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; either version 2 of the License, or
  14  * (at your option) any later version.
  15  *
  16  * This program is distributed in the hope that it will be useful, but
  17  * WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU General Public License along
  22  * with this program; if not, write to the Free Software Foundation, Inc.,
  23  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  24  */
  25 /*
  26  * Prototypes of Cephes functions
  27  */
  28
  29 #ifndef _CEPHES_H_
  30 #define _CEPHES_H_
  31
  32 /* Variable for error reporting.  See mtherr.c.  */
  33 extern int merror;
  34
  35 #if 0
  36 extern int airy ( double x, double *ai, double *aip, double *bi, double *bip );
  37 extern double beta ( double a, double b );
  38 extern double lbeta ( double a, double b );
  39 extern double chdtrc ( double df, double x );
  40 extern double chdtr ( double df, double x );
  41 extern double chdtri ( double df, double y );
  42 extern double dawsn ( double xx );
  43 extern double ellie ( double phi, double m );
  44 extern double ellik ( double phi, double m );
  45 extern double ellpe ( double x );
  46 extern double ellpk ( double x );
  47 extern double expn ( int n, double x );
  48 extern double fac ( int i );
  49 extern double fdtrc ( int ia, int ib, double x );
  50 extern double fdtr ( int ia, int ib, double x );
  51 extern double fdtri ( int ia, int ib, double y );
  52 extern double frexp ( double x, int *pw2 );
  53 extern double ldexp ( double x, int pw2 );
  54 extern int fresnl ( double xxa, double *ssa, double *cca );
  55 extern double gdtr ( double a, double b, double x );
  56 extern double gdtrc ( double a, double b, double x );
  57 extern double hyp2f0 ( double a, double b, double x, int type, double *err );
  58 extern double hyp2f1 ( double a, double b, double c, double x );
  59 extern double hyperg ( double a, double b, double x );
  60 #endif
  61 extern double i0 ( double x );
  62 extern double i0e ( double x );
  63 #if 0
  64 extern double i1 ( double x );
  65 extern double i1e ( double x );
  66 extern double iv ( double v, double x );
  67 extern double igamc ( double a, double x );
  68 extern double igam ( double a, double x );
  69 extern double igami ( double a, double y0_ );
  70 extern double incbet ( double aa, double bb, double xx );
  71 extern double incbi ( double aa, double bb, double yy0 );
  72 extern double jv ( double n, double x );
  73 extern double k0 ( double x );
  74 extern double k0e ( double x );
  75 extern double k1 ( double x );
  76 extern double k1e ( double x );
  77 extern double kn ( int nn, double x );
  78 extern int mtherr ( char *name, int code );
  79 extern double ndtr ( double a );
  80 extern double ndtri ( double y0_ );
  81 extern double pdtrc ( int k, double m );
  82 extern double pdtr ( int k, double m );
  83 extern double pdtri ( int k, double y );
  84 extern double psi ( double x );
  85 extern void revers ( double y[], double x[], int n );
  86 extern double true_gamma ( double x );
  87 extern double rgamma ( double x );
  88 extern int shichi ( double x, double *si, double *ci );
  89 extern int sici ( double x, double *si, double *ci );
  90 extern double spence ( double x );
  91 extern double stdtr ( int k, double t );
  92 extern double stdtri ( int k, double p );
  93 extern double onef2 ( double a, double b, double c, double x, double *err );
  94 extern double threef0 ( double a, double b, double c, double x, double *err );
  95 extern double struve ( double v, double x );
  96 extern double log1p ( double x );
  97 extern double expm1 ( double x );
  98 extern double cosm1 ( double x );
  99 extern double yv ( double v, double x );
 100 extern double zeta ( double x, double q );
 101 extern double zetac ( double x );
 102
 103 #endif
 104 extern double chbevl ( double x, void *P, int n );
 105 #if 0
 106 extern double polevl ( double x, void *P, int n );
 107 extern double p1evl ( double x, void *P, int n );
 108
 109 /* polyn.c */
 110 extern void polini ( int maxdeg );
 111 extern void polprt ( double a[], int na, int d );
 112 extern void polclr ( double *a, int n );
 113 extern void polmov ( double *a, int na, double *b );
 114 extern void polmul ( double a[], int na, double b[], int nb, double c[] );
 115 extern void poladd ( double a[], int na, double b[], int nb, double c[] );
 116 extern void polsub ( double a[], int na, double b[], int nb, double c[] );
 117 extern int poldiv ( double a[], int na, double b[], int nb, double c[] );
 118 extern void polsbt ( double a[], int na, double b[], int nb, double c[] );
 119 extern double poleva ( double a[], int na, double x );
 120
 121 #endif
 122
 123 #endif /* _CEPHES_H_ */