Go to the source code of this file.
double area |
( |
double |
leftmargin, |
|
|
double |
rightmargin |
|
) |
| |
Definition at line 123 of file yield.c.
static double qsimp(double(*func)(double), double a, double b)
double multiarea |
( |
double |
r, |
|
|
int |
dim |
|
) |
| |
Definition at line 129 of file yield.c.
131 double coeff, integral;
137 return integral*coeff;
static double multinormal(double x)
static double multicoeff(int n)
static double qsimp(double(*func)(double), double a, double b)
double normal |
( |
double |
x | ) |
|
Definition at line 56 of file yield.c.
61 y=exp(y)/sqrt(2*M_PI);
double uniform_deviate |
( |
long * |
idum | ) |
|
Definition at line 150 of file yield.c.
163 if((*idum < 0) || (iff==0)) {
165 if((*idum = (
IC-(*idum)) %
IM) < 0)
170 *idum = (
IA*(
unsigned long)(*idum)+
IC) % IM;
171 shuff_tab[j] = (*idum);
173 *idum = (
IA*(
unsigned long)(*idum)+
IC) % IM;
179 nrerror(
"Error in random number generator uniform_deviate.");
183 *idum = (
IA*(
unsigned long)(*idum)+
IC) % IM;
184 shuff_tab[j] = *idum;
186 return (
double) iy/
IM;
void nrerror(char *error_text)