|
Packit |
67cb25 |
#include <stdio.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_cdf.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
main (void)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double P, Q;
|
|
Packit |
67cb25 |
double x = 2.0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
P = gsl_cdf_ugaussian_P (x);
|
|
Packit |
67cb25 |
printf ("prob(x < %f) = %f\n", x, P);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
Q = gsl_cdf_ugaussian_Q (x);
|
|
Packit |
67cb25 |
printf ("prob(x > %f) = %f\n", x, Q);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
x = gsl_cdf_ugaussian_Pinv (P);
|
|
Packit |
67cb25 |
printf ("Pinv(%f) = %f\n", P, x);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
x = gsl_cdf_ugaussian_Qinv (Q);
|
|
Packit |
67cb25 |
printf ("Qinv(%f) = %f\n", Q, x);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return 0;
|
|
Packit |
67cb25 |
}
|