12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- /*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
- /* $Id$ */
- #include <math.h>
- #include <float.h>
- #include <errno.h>
- #include "localmath.h"
- double
- log(double x)
- {
- /* Algorithm and coefficients from:
- "Software manual for the elementary functions"
- by W.J. Cody and W. Waite, Prentice-Hall, 1980
- */
- static double a[] = {
- -0.64124943423745581147e2,
- 0.16383943563021534222e2,
- -0.78956112887491257267e0
- };
- static double b[] = {
- -0.76949932108494879777e3,
- 0.31203222091924532844e3,
- -0.35667977739034646171e2,
- 1.0
- };
- double znum, zden, z, w;
- int exponent;
- if (__IsNan(x)) {
- errno = EDOM;
- return x;
- }
- if (x < 0) {
- errno = EDOM;
- return -HUGE_VAL;
- }
- else if (x == 0) {
- errno = ERANGE;
- return -HUGE_VAL;
- }
- if (x <= DBL_MAX) {
- }
- else return x; /* for infinity and Nan */
- x = frexp(x, &exponent);
- if (x > M_1_SQRT2) {
- znum = (x - 0.5) - 0.5;
- zden = x * 0.5 + 0.5;
- }
- else {
- znum = x - 0.5;
- zden = znum * 0.5 + 0.5;
- exponent--;
- }
- z = znum/zden; w = z * z;
- x = z + z * w * (POLYNOM2(w,a)/POLYNOM3(w,b));
- z = exponent;
- x += z * (-2.121944400546905827679e-4);
- return x + z * 0.693359375;
- }
|