QPMS
/
qpms
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(forgotten file from bessel fn tests) 

Former-commit-id: a41fc91628d7f546236eeded6ee3b3077f326d39
This commit is contained in:
Marek Nečada 2018-03-14 16:25:10 +00:00
parent e06cdd3171
commit 165dc57534
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
tests/bessel_precision/besseltest_orig.c Normal file
View File

@ -0,0 +1,48 @@
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <gsl/gsl_sf_bessel.h>
int main() {
int lMax;
while (1 == scanf("%d", &lMax)){
double x;
if (1 != scanf(" %lf", &x))
abort();
double orig[lMax+1], gsl[lMax+2], relerr[lMax+1];
for(int l=0; l <= lMax; ++l)
if (1 != scanf(" %lf", orig+l))
abort();
#if defined JTEST || defined DJTEST
if(gsl_sf_bessel_jl_array(lMax+1,x,gsl))
#elif defined YTEST || defined DYTEST
if(gsl_sf_bessel_yl_array(lMax+1,x,gsl))
#else
if(gsl_sf_bessel_jl_steed_array(lMax+1,x,gsl))
#endif
abort();
#if defined DJTEST || defined DYTEST || defined DJTEST_STEED
#if 1
for (int l = 0; l <= lMax; ++l)
gsl[l] = -gsl[l+1] + (l/x) * gsl[l];
#else
// todo varianta 10.51.2
#endif
#endif
for (int l = 0; l <= lMax; ++l)
relerr[l] = fabs(gsl[l] - orig[l]) / (fabs(gsl[l]) + fabs(orig[l])) * 2;
printf("x = %.16g\n", x);
printf("orig: ");
for (int l = 0; l <= lMax; ++l)
printf("%.16g ", orig[l]);
printf("\ngsl: ");
for (int l = 0; l <= lMax; ++l)
printf("%.16g ", gsl[l]);
printf("\nrerr: ");
for (int l = 0; l <= lMax; ++l)
printf("%.16g ", relerr[l]);
putchar('\n');
}
}