/
sigma_error.c
99 lines (78 loc) · 2.55 KB
/
sigma_error.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <gsl/gsl_sort.h>
#include <gsl/gsl_statistics.h>
#define N 7344
int main (void)
{
int i, j, warn, counter;
double lim[11];
lim[0]=0.0;
lim[1]=0.84;
lim[2]=1.47;
lim[3]=2.1;
lim[4]=2.6;
lim[5]=3.1;
lim[6]=3.6;
lim[7]=4.2;
lim[8]=5.8;
lim[9]=10.0;
lim[10]=18.0;
counter = 0.0;
double pos[N],vel[N],err[N],vel_sq, sum;
double mean, median, skew, sd, kurtosis, error, sum1, sum2;
FILE *velo, *sig, *script;
velo = fopen("velocity.dat", "r");
sig = fopen("sigma.dat","w");
for(i=0.0; i<N; i++)
{
fscanf(velo, "%lf %lf %lf", &pos[i], &vel[i], &err[i]);
}
//printf ("The sample mean is %g\n", mean);
fclose(velo);
for(j=0.0; j<10.0; j=j+1.0)
{
counter = 0.0;
for(i = 0.0;(i)<=N; i++)
{
if( lim[j] <= pos[i] && pos[i] < lim[(j)+1] )
{
counter++;
gsl_sort (vel, 1, counter);
mean = gsl_stats_mean(vel, 1, counter);
median = gsl_stats_median_from_sorted_data (vel, 1, counter);
sd = gsl_stats_sd (vel, 1, counter);
skew = gsl_stats_skew(vel, 1, counter);
kurtosis = gsl_stats_kurtosis (vel, 1, counter);
sum1 = pow((vel[i]-mean)*(vel[i]-mean),(-0.5));
sum1++;
sum2 = (vel[i]-mean)*err[i];
sum2++;
//error = 1.0/(sqrt(counter)) * (pow(,(-0.5))) * () * err[i];
error = 1.0/(sqrt(counter)) * sum1 * sum2;
}
}
printf("Particulas entre %lf y %lf es %d\n",lim[j],lim[j +1], counter);
printf("Error %lf\n", error);
printf ("The sample mean is %g\n", mean);
printf ("The median is %g\n", median);
printf ("Standard deviation is %g\n", sd);
printf ("Skewness is %g\n", skew);
printf ("kurtosis is %g\n\n", kurtosis);
//printf("Sigma in the bin is: %.2f\n\n", sig);
fprintf(sig, "%lf\t %lf\t %lf\t %d\n", (lim[j]+lim[j+1])*0.5, sd, error, counter);
}
fclose(sig);
script = fopen( "script1.gpl", "w" );
fprintf(script, "set grid\nset terminal png\nset output 'Sigma_vs_rad.png'\nset nokey\n");
fprintf( script, "set title 'Sigma vs Radius'\n" );
//fprintf( script, "set logscale x\n" );
fprintf( script, "set xlabel 'Radius in Arcmin'\n" );
fprintf( script, "set xrange [0:15]\n" );
fprintf( script, "set ylabel 'Sigma (km/s)'\n" );
fprintf( script, "plot 'sigma.dat' u 1:2:3 pt 7 ps 1 with errorbars\n");
fclose(script);
warn = system("gnuplot script1.gpl");
return(warn);
}