75 lines
1.5 KiB
C
75 lines
1.5 KiB
C
/*
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
*
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
*
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
*
|
|
* Dr. Andrew S. Tanenbaum
|
|
* Wiskundig Seminarium
|
|
* Vrije Universiteit
|
|
* Postbox 7161
|
|
* 1007 MC Amsterdam
|
|
* The Netherlands
|
|
*
|
|
*/
|
|
|
|
/* $Header$ */
|
|
|
|
/* Author: J.W. Stevenson */
|
|
|
|
extern double _fef();
|
|
|
|
/*
|
|
log returns the natural logarithm of its floating
|
|
point argument.
|
|
|
|
The coefficients are #2705 from Hart & Cheney. (19.38D)
|
|
|
|
It calls _fef.
|
|
*/
|
|
|
|
#define HUGE 1.701411733192644270e38
|
|
|
|
static double log2 = 0.693147180559945309e0;
|
|
static double sqrto2 = 0.707106781186547524e0;
|
|
static double p0 = -.240139179559210510e2;
|
|
static double p1 = 0.309572928215376501e2;
|
|
static double p2 = -.963769093368686593e1;
|
|
static double p3 = 0.421087371217979714e0;
|
|
static double q0 = -.120069589779605255e2;
|
|
static double q1 = 0.194809660700889731e2;
|
|
static double q2 = -.891110902798312337e1;
|
|
|
|
double
|
|
_log(arg)
|
|
double arg;
|
|
{
|
|
double x,z, zsq, temp;
|
|
int exp;
|
|
|
|
if(arg <= 0) {
|
|
error(3);
|
|
return(-HUGE);
|
|
}
|
|
x = _fef(arg,&exp);
|
|
/*
|
|
while(x < 0.5) {
|
|
x =* 2;
|
|
exp--;
|
|
}
|
|
*/
|
|
if(x<sqrto2) {
|
|
x *= 2;
|
|
exp--;
|
|
}
|
|
|
|
z = (x-1)/(x+1);
|
|
zsq = z*z;
|
|
|
|
temp = ((p3*zsq + p2)*zsq + p1)*zsq + p0;
|
|
temp = temp/(((zsq + q2)*zsq + q1)*zsq + q0);
|
|
temp = temp*z + exp*log2;
|
|
return(temp);
|
|
}
|