University of Groningenfounded in 1614  -  top 100 university

# Scientific graph

```
```/* this program plots a curve and a set of experimatel data with errorbars
Special feautures:
- automatic scaling
- second graph with logarithmic Y-as
*/

#include <stdio.h>
#include <math.h>
#include "komplot.h"

int main()
{
float x[14], y[14];
float xh;
int i;
float xe[] = {-0.4, 0.7,-0.1, 0.5, 1.2, 0.3, 1.0, 2.0};
float ye[] = { 0.8, 1.8, 1.0, 1.6, 3.5, 1.4, 2.5, 7.3};
float fe[] = {0.1, 0.2, 0.1, 0.2, 0.2, 0.1, 0.8, 0.3};

frame_style("scientific");
/* define font = Helvetica (default Times-Roman)*/
ps_define_font("A", "Helvetica");

/* automatic scaling alog y axis */
frame(12, -0.5, 2.5, 10, 0, 0, "X", "Y", "Scientific graph");
xh = -0.6;
for (i=1 ; i < 15 ; i++)
{
xh = xh +0.2;
x[i-1] = xh;
y[i-1] = exp(xh);
}
curve("y = exp(x)", 14, x, y);
markers("Experimental data", 8, xe, ye, 17);
v_errorbars("with error bars ", 8, xe, ye, fe);

/* same graph with logarithmic Y-axis (ysize = -10) */
frame(12, -0.5, 2.5, -10, 0, 0, "X", "Y", "Scientific graph");
curve("y = exp(x)", 14, x, y);
markers("Experimental data", 8, xe, ye, 17);
v_errorbars(" ", 8, xe, ye, fe);

printf (" >>>>>> This program generated KOMPLOT.TMP\n");
printf (" >>>>>> KOMPLOT.TMP is inputfile for komplot\n");

/*
komplot(40,"sg.ps");
system("xv sg.ps");
*/
return 0;

}

```

```