mirror of
https://bitbucket.org/cosmicvoids/vide_public.git
synced 2025-07-04 15:21:11 +00:00
20 lines
412 B
C
20 lines
412 B
C
#include <math.h>
|
|
#include <stdio.h>
|
|
#define JMAX 20
|
|
|
|
double qtrap(double (*func)(double), double a, double b, double EPS)
|
|
{
|
|
double trapzd(double (*func)(double), double a, double b, int n);
|
|
/*void nrerror(char error_text[]);*/
|
|
int j;
|
|
double s,olds,t1,t2;
|
|
|
|
olds = -1.0e30;
|
|
for (j=1;j<=JMAX;j++) {
|
|
s=trapzd(func,a,b,j);
|
|
if (fabs(s-olds) < EPS*fabs(olds)) return s;
|
|
olds=s;
|
|
}
|
|
return s;
|
|
}
|
|
#undef JMAX
|