gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/k_tan.c - 5.9KB - 151 lines

93:                                         z = w = x + y;
94:                                         SET_LOW_WORD(z, 0);
95:                                         v = y - (z - x);
96:                                         t = a = -one / w;
97:                                         SET_LOW_WORD(t, 0);
98:                                         s = one + t * z;
143:                 z = w;
144:                 SET_LOW_WORD(z, 0);
145:                 v = r - (z - x);      /* z+v = r+x */
146:                 t = a = -1.0 / w;     /* a = -1.0/w */
147:                 SET_LOW_WORD(t, 0);
148:                 s = 1.0 + t * z;