Blame doc/examples/specfun_e.c
|
Packit |
67cb25 |
#include <stdio.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_errno.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_sf_bessel.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
main (void)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double x = 5.0;
|
|
Packit |
67cb25 |
gsl_sf_result result;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
double expected = -0.17759677131433830434739701;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int status = gsl_sf_bessel_J0_e (x, &result);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
printf ("status = %s\n", gsl_strerror(status));
|
|
Packit |
67cb25 |
printf ("J0(5.0) = %.18f\n"
|
|
Packit |
67cb25 |
" +/- % .18f\n",
|
|
Packit |
67cb25 |
result.val, result.err);
|
|
Packit |
67cb25 |
printf ("exact = %.18f\n", expected);
|
|
Packit |
67cb25 |
return status;
|
|
Packit |
67cb25 |
}
|