1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
/*
* This file was automatically generated by version 1.7 of cextract.
* Manual editing not recommended.
*
* Edited for use by cephesmodule.c by Travis Oliphant
*
* Created: Fri Mar 31 19:17:33 1995
*/
#ifndef CEPHES_H
#define CEPHES_H
#include "cephes/cephes_names.h"
#ifdef __cplusplus
extern "C" {
#endif
extern int airy ( double x, double *ai, double *aip, double *bi, double *bip );
extern double bdtrc ( int k, int n, double p );
extern double bdtr ( int k, int n, double p );
extern double bdtri ( int k, int n, double y );
extern double beta ( double a, double b );
extern double lbeta ( double a, double b );
extern double btdtr ( double a, double b, double x );
extern double cbrt ( double x );
/*
extern double chbevl ( double x, void *P, int n );
*/
extern double chdtrc ( double df, double x );
extern double chdtr ( double df, double x );
extern double chdtri ( double df, double y );
extern double dawsn ( double xx );
/*
extern void eigens ( double A[], double RR[], double E[], int N );
*/
extern double ellie ( double phi, double m );
extern double ellik ( double phi, double m );
extern double ellpe ( double x );
extern int ellpj ( double u, double m, double *sn, double *cn, double *dn, double *ph );
extern double ellpk ( double x );
extern double exp10 ( double x );
extern double exp1m ( double x );
extern double exp2 ( double x );
extern double expn ( int n, double x );
/*
extern double fabs ( double x );
extern double fac ( int i );
*/
extern double fdtrc ( double a, double b, double x );
extern double fdtr ( double a, double b, double x );
extern double fdtri ( double a, double b, double y );
/*
extern int fftr ( double x[], int m0, double sine[] );
extern double frexp ( double x, int *pw2 );
*/
/*
extern double ldexp ( double x, int pw2 );
*/
extern int fresnl ( double xxa, double *ssa, double *cca );
extern double Gamma ( double x );
extern double lgam ( double x );
extern double gdtr ( double a, double b, double x );
extern double gdtrc ( double a, double b, double x );
extern double gdtri ( double a, double b, double y );
/*
extern int gels ( double A[], double R[], int M, double EPS, double AUX[] );
*/
extern double hyp2f1 ( double a, double b, double c, double x );
extern double hyperg ( double a, double b, double x );
extern double hyp2f0 ( double a, double b, double x, int type, double *err );
extern double onef2 ( double a, double b, double c, double x, double *err );
extern double threef0 ( double a, double b, double c, double x, double *err );
extern double i0 ( double x );
extern double i0e ( double x );
extern double i1 ( double x );
extern double i1e ( double x );
extern double igamc ( double a, double x );
extern double igam ( double a, double x );
extern double igami ( double a, double y0 );
extern double incbet ( double aa, double bb, double xx );
extern double incbi ( double aa, double bb, double yy0 );
extern double iv ( double v, double x );
extern double j0 ( double x );
extern double y0 ( double x );
extern double j1 ( double x );
extern double y1 ( double x );
extern double jn ( int n, double x );
extern double jv ( double n, double x );
extern double k0 ( double x );
extern double k0e ( double x );
extern double k1 ( double x );
extern double k1e ( double x );
extern double kn ( int nn, double x );
/*
extern int levnsn ( int n, double r[], double a[], double e[], double refl[] );
#ifndef log2
extern double log2 ( double x );
#endif
*/
/*
extern long lrand ( void );
extern long lsqrt ( long x );
extern int mtherr ( char *name, int code );
extern double polevl ( double x, void *P, int N );
extern double p1evl ( double x, void *P, int N );
*/
extern double nbdtrc ( int k, int n, double p );
extern double nbdtr ( int k, int n, double p );
extern double nbdtri ( int k, int n, double p );
extern double ndtr ( double a );
extern double log_ndtr ( double a );
extern double erfc ( double a );
extern double erf ( double x );
extern double ndtri ( double y0 );
extern double pdtrc ( int k, double m );
extern double pdtr ( int k, double m );
extern double pdtri ( int k, double y );
/*
extern double pow ( double x, double y );
extern double powi ( double x, int nn );
*/
extern double psi ( double x );
/*
extern void revers ( double y[], double x[], int n );
*/
extern double rgamma ( double x );
extern double round ( double x );
/*
extern int sprec ( void );
extern int dprec ( void );
extern int ldprec ( void );
*/
extern int shichi ( double x, double *si, double *ci );
extern int sici ( double x, double *si, double *ci );
/*
extern double simpsn ( double f[], double delta );
extern int simq ( double A[], double B[], double X[], int n, int flag, int IPS[] );
*/
extern double radian ( double d, double m, double s );
/*
extern int sincos ( double x, double *s, double *c, int flg );
*/
extern double sindg ( double x );
extern double cosdg ( double x );
/*
extern double sinh ( double x );
*/
extern double spence ( double x );
/*
extern double sqrt ( double x );
*/
extern double stdtr ( int k, double t );
extern double stdtri ( int k, double p );
extern double struve ( double v, double x );
extern double yv ( double v, double x);
/*
extern double tan ( double x );
extern double cot ( double x );
*/
extern double tandg ( double x );
extern double cotdg ( double x );
/*
extern double tanh ( double x );
*/
extern double log1p ( double x );
extern double expm1 ( double x );
extern double cosm1 ( double x );
extern double yn ( int n, double x );
extern double zeta ( double x, double q );
extern double zetac ( double x );
extern double smirnov (int n, double e );
extern double smirnovi (int n, double p );
extern double kolmogorov ( double x );
extern double kolmogi ( double p );
#ifdef __cplusplus
}
#endif
#endif /* CEPHES_H */
|
