00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
#if defined(LIBM_SCCS) && !defined(lint)
00014
static char rcsid[] =
"$NetBSD: e_asin.c,v 1.9 1995/05/12 04:57:22 jtc Exp $";
00015
#endif
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
#include "math.h"
00049
#include "mathP.h"
00050
00051
#ifdef __STDC__
00052
static const double
00053
#else
00054
static double
00055
#endif
00056 one = 1.00000000000000000000e+00,
00057 huge = 1.000e+300,
00058 pio2_hi = 1.57079632679489655800e+00,
00059 pio2_lo = 6.12323399573676603587e-17,
00060 pio4_hi = 7.85398163397448278999e-01,
00061
00062 pS0 = 1.66666666666666657415e-01,
00063 pS1 = -3.25565818622400915405e-01,
00064 pS2 = 2.01212532134862925881e-01,
00065 pS3 = -4.00555345006794114027e-02,
00066 pS4 = 7.91534994289814532176e-04,
00067 pS5 = 3.47933107596021167570e-05,
00068 qS1 = -2.40339491173441421878e+00,
00069 qS2 = 2.02094576023350569471e+00,
00070 qS3 = -6.88283971605453293030e-01,
00071 qS4 = 7.70381505559019352791e-02;
00072
00073
#ifdef __STDC__
00074
double __ieee754_asin(
double x)
00075 #
else
00076 double __ieee754_asin(x)
00077 double x;
00078 #endif
00079 {
00080
double t,w,p,q,c,r,s;
00081 int32_t hx,ix;
00082
00083
00084 t = 0;
00085
00086
GET_HIGH_WORD(hx,x);
00087 ix = hx&0x7fffffff;
00088
if(ix>= 0x3ff00000) {
00089 u_int32_t lx;
00090
GET_LOW_WORD(lx,x);
00091
if(((ix-0x3ff00000)|lx)==0)
00092
00093
return x*pio2_hi+x*pio2_lo;
00094
return (x-x)/(x-x);
00095 }
else if (ix<0x3fe00000) {
00096
if(ix<0x3e400000) {
00097
if(huge+x>
one)
return x;
00098 }
else
00099 t = x*x;
00100 p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
00101 q =
one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
00102 w = p/q;
00103
return x+x*w;
00104 }
00105
00106 w =
one-
fabs(x);
00107 t = w*0.5;
00108 p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
00109 q =
one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
00110 s =
__ieee754_sqrt(t);
00111
if(ix>=0x3FEF3333) {
00112 w = p/q;
00113 t = pio2_hi-(2.0*(s+s*w)-pio2_lo);
00114 }
else {
00115 w = s;
00116
SET_LOW_WORD(w,0);
00117 c = (t-w*w)/(s+w);
00118 r = p/q;
00119 p = 2.0*s*r-(pio2_lo-2.0*c);
00120 q = pio4_hi-2.0*w;
00121 t = pio4_hi-(p-q);
00122 }
00123
if(hx>0)
return t;
else return -t;
00124 }