123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176 |
- /*
- * This file was automatically generated by version 1.7 of cextract.
- * Manual editing not recommended.
- *
- * Created: Fri Feb 23 20:31:13 1996
- *
- * Modified (anyway) for PalmOS Feb 22, 1997, D.Jeff Dionne
- */
- typedef struct {
- float r;
- float i;
- }cmplxf;
- /* Some useful constants. */
- #define M_E 2.7182818284590452354 /* e */
- #define M_LOG2E 1.4426950408889634074 /* log_2 e */
- #define M_LOG10E 0.43429448190325182765 /* log_10 e */
- #define M_LN2 0.69314718055994530942 /* log_e 2 */
- #define M_LN10 2.30258509299404568402 /* log_e 10 */
- #define M_PI 3.14159265358979323846 /* pi */
- #define M_PI_2 1.57079632679489661923 /* pi/2 */
- #define M_PI_4 0.78539816339744830962 /* pi/4 */
- #define M_1_PI 0.31830988618379067154 /* 1/pi */
- #define M_2_PI 0.63661977236758134308 /* 2/pi */
- #define M_2_SQRTPI 1.12837916709551257390 /* 2/sqrt(pi) */
- #define M_SQRT2 1.41421356237309504880 /* sqrt(2) */
- #define M_SQRT1_2 0.70710678118654752440 /* 1/sqrt(2) */
- #if 1
- extern double sin(double);
- extern double cos(double);
- extern double sqrt(double);
- #else
- extern float acos ( float x );
- extern float acosh ( float xx );
- extern int airy ( float xx, float *ai, float *aip, float *bi, float *bip );
- extern float asin ( float xx );
- extern float asinh ( float xx );
- extern float atan2 ( float y, float x );
- extern float atan ( float xx );
- extern float atanh ( float xx );
- extern float bdtrc ( int k, int n, float pp );
- extern float bdtr ( int k, int n, float pp );
- extern float bdtri ( int k, int n, float yy );
- extern float beta ( float aa, float bb );
- extern float cabs ( cmplxf *z );
- extern void cacos ( cmplxf *z, cmplxf *w );
- extern void cadd ( cmplxf *a, cmplxf *b, cmplxf *c );
- extern void casin ( cmplxf *z, cmplxf *w );
- extern void catan ( cmplxf *z, cmplxf *w );
- extern float cbrt ( float xx );
- extern void cchsh ( float xx, float *c, float *s );
- extern void ccos ( cmplxf *z, cmplxf *w );
- extern void ccot ( cmplxf *z, cmplxf *w );
- extern void cdiv ( cmplxf *a, cmplxf *b, cmplxf *c );
- extern float ceil ( float x );
- extern void cexp ( cmplxf *z, cmplxf *w );
- extern float chbevl ( float x, float *array, int n );
- extern float chdtrc ( float dff, float xx );
- extern float chdtr ( float dff, float xx );
- extern float chdtri ( float dff, float yy );
- extern void clog ( cmplxf *z, cmplxf *w );
- extern void cmov ( short *a, short *b );
- extern void cmul ( cmplxf *a, cmplxf *b, cmplxf *c );
- extern void cneg ( cmplxf *a );
- extern float cosdg ( float xx );
- extern float cos ( float xx );
- extern float cosh ( float xx );
- extern float cotdg ( float x );
- extern float cot ( float x );
- extern void csin ( cmplxf *z, cmplxf *w );
- extern void csqrt ( cmplxf *z, cmplxf *w );
- extern void csub ( cmplxf *a, cmplxf *b, cmplxf *c );
- extern void ctan ( cmplxf *z, cmplxf *w );
- extern float ctans ( cmplxf *z );
- extern float dawsn ( float xxx );
- extern int dprec ( void );
- extern float ellie ( float phia, float ma );
- extern float ellik ( float phia, float ma );
- extern float ellpe ( float xx );
- extern int ellpj ( float uu, float mm, float *sn, float *cn, float *dn, float *ph );
- extern float ellpk ( float xx );
- extern float erfc ( float aa );
- extern float erf ( float xx );
- extern float exp10 ( float xx );
- extern float exp2 ( float xx );
- extern float exp ( float xx );
- extern float expn ( int n, float xx );
- extern float fac ( int i );
- extern float fdtrc ( int ia, int ib, float xx );
- extern float fdtr ( int ia, int ib, int xx );
- extern float fdtri ( int ia, int ib, float yy );
- extern float floor ( float x );
- extern void fresnl ( float xxa, float *ssa, float *cca );
- extern float frexp ( float x, int *pw2 );
- extern float gamma ( float xx );
- extern float gdtrc ( float aa, float bb, float xx );
- extern float gdtr ( float aa, float bb, float xx );
- extern float hyp2f0 ( float aa, float bb, float xx, int type, float *err );
- extern float hyp2f1 ( float aa, float bb, float cc, float xx );
- extern float hyperg ( float aa, float bb, float xx );
- extern float i0e ( float x );
- extern float i0 ( float x );
- extern float i1e ( float xx );
- extern float i1 ( float xx );
- extern float igamc ( float aa, float xx );
- extern float igam ( float aa, float xx );
- extern float igami ( float aa, float yy0 );
- extern float incbet ( float aaa, float bbb, float xxx );
- extern float incbi ( float aaa, float bbb, float yyy0 );
- extern float incbps ( float aa, float bb, float xx );
- extern float iv ( float v, float x );
- extern float j0 ( float xx );
- extern float j1 ( float xx );
- extern float jn ( int n, float xx );
- extern float jv ( float nn, float xx );
- extern float k0e ( float xx );
- extern float k0 ( float xx );
- extern float k1e ( float xx );
- extern float k1 ( float xx );
- extern float kn ( int nnn, float xx );
- extern float ldexp ( float x, int pw2 );
- extern int ldprec ( void );
- extern float lgam ( float xx );
- extern float log10 ( float xx );
- extern float log2 ( float xx );
- extern float log ( float xx );
- /* extern int mtherr ( char *name, int code ); */
- extern float nbdtrc ( int k, int n, float pp );
- extern float nbdtr ( int k, int n, float pp );
- extern float ndtr ( float aa );
- extern float ndtri ( float yy0 );
- extern float onef2 ( float aa, float bb, float cc, float xx, float *err );
- extern float p1evl ( float xx, float *coef, int N );
- extern float pdtrc ( int k, float mm );
- extern float pdtr ( int k, float mm );
- extern float pdtri ( int k, float yy );
- extern void poladd ( float a[], int na, float b[], int nb, float c[] );
- extern void polclr ( float *a, int n );
- extern int poldiv ( float a[], int na, float b[], int nb, float c[] );
- extern float poleva ( float *a, int na, float xx );
- extern float polevl ( float xx, float *coef, int N );
- extern void polini ( int maxdeg );
- extern void polmov ( float *a, int na, float *b );
- extern void polmul ( float a[], int na, float b[], int nb, float c[] );
- extern void polprt ( float *a, int na, int d );
- extern void polsbt ( float a[], int na, float b[], int nb, float c[] );
- extern void polsub ( float a[], int na, float b[], int nb, float c[] );
- extern float pow ( float x, float y );
- extern float powi ( float x, int nn );
- extern float psi ( float xx );
- extern float redupi ( float xx );
- extern float rgamma ( float xx );
- extern int shichi ( float xx, float *si, float *ci );
- extern int sici ( float xx, float *si, float *ci );
- extern float sindg ( float xx );
- extern float sin ( float xx );
- extern float sinh ( float xx );
- extern float spence ( float xx );
- extern int sprec ( void );
- extern float sqrt ( float xx );
- extern float stdtr ( int k, float tt );
- extern float struve ( float vv, float xx );
- extern float tandg ( float x );
- extern float tan ( float x );
- extern float tanh ( float xx );
- extern float threef0 ( float aa, float bb, float cc, float xx, float *err );
- extern float y0 ( float xx );
- extern float y1 ( float xx );
- extern float yn ( int nn, float xx );
- extern float yv ( float vv, float xx );
- extern float zetac ( float xx );
- extern float zeta ( float xx, float qq );
- #endif
|