git.gag.com Git - fw/altos/blob - ao-tools/lib/cephes.h

   1 /*
   2  * This file comes from the cephes math library, which was
   3  * released under the GPLV2+ license as a part of the Debian labplot
   4  * package (I've included the GPLV2 license reference here to make
   5  * this clear) - Keith Packard <keithp@keithp.com>
   6  *
   7  * Cephes Math Library Release 2.0:  April, 1987
   8  * Copyright 1984, 1987 by Stephen L. Moshier
   9  * Direct inquiries to 30 Frost Street, Cambridge, MA 02140
  10  *
  11  * This program is free software; you can redistribute it and/or modify
  12  * it under the terms of the GNU General Public License as published by
  13  * the Free Software Foundation; version 2 of the License.
  14  *
  15  * This program is distributed in the hope that it will be useful, but
  16  * WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU General Public License along
  21  * with this program; if not, write to the Free Software Foundation, Inc.,
  22  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  23  */
  24 /*
  25  * Prototypes of Cephes functions
  26  */
  27
  28 #ifndef _CEPHES_H_
  29 #define _CEPHES_H_
  30
  31 /* Variable for error reporting.  See mtherr.c.  */
  32 extern int merror;
  33
  34 #if 0
  35 extern int airy ( double x, double *ai, double *aip, double *bi, double *bip );
  36 extern double beta ( double a, double b );
  37 extern double lbeta ( double a, double b );
  38 extern double chdtrc ( double df, double x );
  39 extern double chdtr ( double df, double x );
  40 extern double chdtri ( double df, double y );
  41 extern double dawsn ( double xx );
  42 extern double ellie ( double phi, double m );
  43 extern double ellik ( double phi, double m );
  44 extern double ellpe ( double x );
  45 extern double ellpk ( double x );
  46 extern double expn ( int n, double x );
  47 extern double fac ( int i );
  48 extern double fdtrc ( int ia, int ib, double x );
  49 extern double fdtr ( int ia, int ib, double x );
  50 extern double fdtri ( int ia, int ib, double y );
  51 extern double frexp ( double x, int *pw2 );
  52 extern double ldexp ( double x, int pw2 );
  53 extern int fresnl ( double xxa, double *ssa, double *cca );
  54 extern double gdtr ( double a, double b, double x );
  55 extern double gdtrc ( double a, double b, double x );
  56 extern double hyp2f0 ( double a, double b, double x, int type, double *err );
  57 extern double hyp2f1 ( double a, double b, double c, double x );
  58 extern double hyperg ( double a, double b, double x );
  59 #endif
  60 extern double i0 ( double x );
  61 extern double i0e ( double x );
  62 #if 0
  63 extern double i1 ( double x );
  64 extern double i1e ( double x );
  65 extern double iv ( double v, double x );
  66 extern double igamc ( double a, double x );
  67 extern double igam ( double a, double x );
  68 extern double igami ( double a, double y0_ );
  69 extern double incbet ( double aa, double bb, double xx );
  70 extern double incbi ( double aa, double bb, double yy0 );
  71 extern double jv ( double n, double x );
  72 extern double k0 ( double x );
  73 extern double k0e ( double x );
  74 extern double k1 ( double x );
  75 extern double k1e ( double x );
  76 extern double kn ( int nn, double x );
  77 extern int mtherr ( char *name, int code );
  78 extern double ndtr ( double a );
  79 extern double ndtri ( double y0_ );
  80 extern double pdtrc ( int k, double m );
  81 extern double pdtr ( int k, double m );
  82 extern double pdtri ( int k, double y );
  83 extern double psi ( double x );
  84 extern void revers ( double y[], double x[], int n );
  85 extern double true_gamma ( double x );
  86 extern double rgamma ( double x );
  87 extern int shichi ( double x, double *si, double *ci );
  88 extern int sici ( double x, double *si, double *ci );
  89 extern double spence ( double x );
  90 extern double stdtr ( int k, double t );
  91 extern double stdtri ( int k, double p );
  92 extern double onef2 ( double a, double b, double c, double x, double *err );
  93 extern double threef0 ( double a, double b, double c, double x, double *err );
  94 extern double struve ( double v, double x );
  95 extern double log1p ( double x );
  96 extern double expm1 ( double x );
  97 extern double cosm1 ( double x );
  98 extern double yv ( double v, double x );
  99 extern double zeta ( double x, double q );
 100 extern double zetac ( double x );
 101
 102 #endif
 103 extern double chbevl ( double x, void *P, int n );
 104 #if 0
 105 extern double polevl ( double x, void *P, int n );
 106 extern double p1evl ( double x, void *P, int n );
 107
 108 /* polyn.c */
 109 extern void polini ( int maxdeg );
 110 extern void polprt ( double a[], int na, int d );
 111 extern void polclr ( double *a, int n );
 112 extern void polmov ( double *a, int na, double *b );
 113 extern void polmul ( double a[], int na, double b[], int nb, double c[] );
 114 extern void poladd ( double a[], int na, double b[], int nb, double c[] );
 115 extern void polsub ( double a[], int na, double b[], int nb, double c[] );
 116 extern int poldiv ( double a[], int na, double b[], int nb, double c[] );
 117 extern void polsbt ( double a[], int na, double b[], int nb, double c[] );
 118 extern double poleva ( double a[], int na, double x );
 119
 120 #endif
 121
 122 #endif /* _CEPHES_H_ */