|
@@ -0,0 +1,170 @@
|
|
|
+/*
|
|
|
+ * 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) */
|
|
|
+
|
|
|
+
|
|
|
+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 );
|