sindata.inc

来自「开放源码的编译器open watcom 1.6.0版的源代码」· INC 代码 · 共 57 行

        modstart  sindata

        xdefp   __PIby4

__PIby4 dt      0.785398163397448309615
;;
;;extern  double  _EvalPoly( double, double *, int );
;;extern  double  _OddPoly( double, double *, int );
;;
;;
;;static double _sinpoly[] = {
;;         1.0 / (2.*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17),
;;        -1.0 / (2.*3*4*5*6*7*8*9*10*11*12*13*14*15),
;;         1.0 / (2.*3*4*5*6*7*8*9*10*11*12*13),
;;        -1.0 / (2.*3*4*5*6*7*8*9*10*11),
;;         1.0 / (2.*3*4*5*6*7*8*9),
;;        -1.0 / (2.*3*4*5*6*7),
;;         1.0 / (2.*3*4*5),
;;        -1.0 / (2.*3),
;;         1.0
;;};
        xdefp   __SinPoly
__SinPoly dt 0.0000000000000028114572543455207631  ; 1./17!
        dt  -0.00000000000076471637318198164759  ; 1./15!
        dt   0.00000000016059043836821614599  ; 1./13!
        dt  -0.000000025052108385441718775  ; 1./11!
        dt   0.0000027557319223985890652  ; 1./9!
        dt  -0.00019841269841269841269  ; 1./7!
        dt   0.0083333333333333333333  ; 1./5!
        dt  -0.16666666666666666666  ; 1./3!
        dt   1.00000000000000000000  ; 1./1!
;;
;;static double _cospoly[] = {
;;         1.0 / (2.*3*4*5*6*7*8*9*10*11*12*13*14*15*16),
;;        -1.0 / (2.*3*4*5*6*7*8*9*10*11*12*13*14),
;;         1.0 / (2.*3*4*5*6*7*8*9*10*11*12),
;;        -1.0 / (2.*3*4*5*6*7*8*9*10),
;;         1.0 / (2.*3*4*5*6*7*8),
;;        -1.0 / (2.*3*4*5*6),
;;         1.0 / (2.*3*4),
;;        -1.0 / (2.),
;;         1.0
;;};
        xdefp   __CosPoly
        xdefp   __One
__CosPoly dt 0.000000000000047794773323873852974  ; 1./16!
        dt  -0.000000000011470745597729724713  ; 1./14!
        dt   0.0000000020876756987868098979  ; 1./12!
        dt  -0.00000027557319223985890652  ; 1./10!
        dt   0.000024801587301587301587  ; 1./8!
        dt  -0.0013888888888888888888  ; 1./6!
        dt   0.041666666666666666666  ; 1./4!
        dt  -0.50000000000000000000  ; 1./2!
__One   dt   1.00000000000000000000  ; 1./1!