Parent Directory | Revision Log | Patch
revision 1.1.2.5 by bjg, Sun Jun 29 13:33:36 2003 UTC | revision 1.1.2.6 by bjg, Tue Jul 15 15:52:55 2003 UTC | |
---|---|---|
# | Line 109 cornish_fisher (double t, double n) | Line 109 cornish_fisher (double t, double n) |
109 | double a = n - 0.5; | double a = n - 0.5; |
110 | double b = 48.0 * a * a; | double b = 48.0 * a * a; |
111 | ||
112 | double z2 = a * log (1 + (t * t / n)); | double z2 = a * log1p (t * t / n); |
113 | double z = sqrt (z2); | double z = sqrt (z2); |
114 | ||
115 | double p5 = z * poly_eval (coeffs6, 9, z2); | double p5 = z * poly_eval (coeffs6, 9, z2); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |