开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 生物技术 > 查看源码
nr.h
资源名称：ClusterTreeViewCode.zip　[点击查看]
上传用户：szb0815
上传日期：2007-06-13
资源大小：338k
文件大小：26k
源码类别：

生物技术

开发平台：

C++ Builder

nr.h：源码内容
  1. /* CAUTION: This is the ANSI C (only) version of the Numerical Recipes
  2.    utility file nr.h.  Do not confuse this file with the same-named
  3.    file nr.h that is supplied in the 'misc' subdirectory.
  4.    *That* file is the one from the book, and contains both ANSI and
  5.    traditional K&R versions, along with #ifdef macros to select the
  6.    correct version.  *This* file contains only ANSI C.               */
  8. #ifndef _NR_H_
  9. #define _NR_H_
  11. #ifndef _FCOMPLEX_DECLARE_T_
  12. typedef struct FCOMPLEX {float r,i;} fcomplex;
  13. #define _FCOMPLEX_DECLARE_T_
  14. #endif /* _FCOMPLEX_DECLARE_T_ */
  16. #ifndef _ARITHCODE_DECLARE_T_
  17. typedef struct {
  18. unsigned long *ilob,*iupb,*ncumfq,jdif,nc,minint,nch,ncum,nrad;
  19. } arithcode;
  20. #define _ARITHCODE_DECLARE_T_
  21. #endif /* _ARITHCODE_DECLARE_T_ */
  23. #ifndef _HUFFCODE_DECLARE_T_
  24. typedef struct {
  25. unsigned long *icod,*ncod,*left,*right,nch,nodemax;
  26. } huffcode;
  27. #define _HUFFCODE_DECLARE_T_
  28. #endif /* _HUFFCODE_DECLARE_T_ */
  30. #include <stdio.h>
  32. void addint(double **uf, double **uc, double **res, int nf);
  33. void airy(float x, float *ai, float *bi, float *aip, float *bip);
  34. void amebsa(float **p, float y[], int ndim, float pb[], float *yb,
  35. float ftol, float (*funk)(float []), int *iter, float temptr);
  36. void amoeba(float **p, float y[], int ndim, float ftol,
  37. float (*funk)(float []), int *iter);
  38. float amotry(float **p, float y[], float psum[], int ndim,
  39. float (*funk)(float []), int ihi, float fac);
  40. float amotsa(float **p, float y[], float psum[], int ndim, float pb[],
  41. float *yb, float (*funk)(float []), int ihi, float *yhi, float fac);
  42. void anneal(float x[], float y[], int iorder[], int ncity);
  43. double anorm2(double **a, int n);
  44. void arcmak(unsigned long nfreq[], unsigned long nchh, unsigned long nradd,
  45. arithcode *acode);
  46. void arcode(unsigned long *ich, unsigned char **codep, unsigned long *lcode,
  47. unsigned long *lcd, int isign, arithcode *acode);
  48. void arcsum(unsigned long iin[], unsigned long iout[], unsigned long ja,
  49. int nwk, unsigned long nrad, unsigned long nc);
  50. void asolve(unsigned long n, double b[], double x[], int itrnsp);
  51. void atimes(unsigned long n, double x[], double r[], int itrnsp);
  52. void avevar(float data[], unsigned long n, float *ave, float *var);
  53. void balanc(float **a, int n);
  54. void banbks(float **a, unsigned long n, int m1, int m2, float **al,
  55. unsigned long indx[], float b[]);
  56. void bandec(float **a, unsigned long n, int m1, int m2, float **al,
  57. unsigned long indx[], float *d);
  58. void banmul(float **a, unsigned long n, int m1, int m2, float x[], float b[]);
  59. void bcucof(float y[], float y1[], float y2[], float y12[], float d1,
  60. float d2, float **c);
  61. void bcuint(float y[], float y1[], float y2[], float y12[],
  62. float x1l, float x1u, float x2l, float x2u, float x1,
  63. float x2, float *ansy, float *ansy1, float *ansy2);
  64. void beschb(double x, double *gam1, double *gam2, double *gampl,
  65. double *gammi);
  66. float bessi(int n, float x);
  67. float bessi0(float x);
  68. float bessi1(float x);
  69. void bessik(float x, float xnu, float *ri, float *rk, float *rip,
  70. float *rkp);
  71. float bessj(int n, float x);
  72. float bessj0(float x);
  73. float bessj1(float x);
  74. void bessjy(float x, float xnu, float *rj, float *ry, float *rjp,
  75. float *ryp);
  76. float bessk(int n, float x);
  77. float bessk0(float x);
  78. float bessk1(float x);
  79. float bessy(int n, float x);
  80. float bessy0(float x);
  81. float bessy1(float x);
  82. float beta(float z, float w);
  83. float betacf(float a, float b, float x);
  84. float betai(float a, float b, float x);
  85. float bico(int n, int k);
  86. void bksub(int ne, int nb, int jf, int k1, int k2, float ***c);
  87. float bnldev(float pp, int n, long *idum);
  88. float brent(float ax, float bx, float cx,
  89. float (*f)(float), float tol, float *xmin);
  90. void broydn(float x[], int n, int *check,
  91. void (*vecfunc)(int, float [], float []));
  92. void bsstep(float y[], float dydx[], int nv, float *xx, float htry,
  93. float eps, float yscal[], float *hdid, float *hnext,
  94. void (*derivs)(float, float [], float []));
  95. void caldat(long julian, int *mm, int *id, int *iyyy);
  96. void chder(float a, float b, float c[], float cder[], int n);
  97. float chebev(float a, float b, float c[], int m, float x);
  98. void chebft(float a, float b, float c[], int n, float (*func)(float));
  99. void chebpc(float c[], float d[], int n);
  100. void chint(float a, float b, float c[], float cint[], int n);
  101. float chixy(float bang);
  102. void choldc(float **a, int n, float p[]);
  103. void cholsl(float **a, int n, float p[], float b[], float x[]);
  104. void chsone(float bins[], float ebins[], int nbins, int knstrn,
  105. float *df, float *chsq, float *prob);
  106. void chstwo(float bins1[], float bins2[], int nbins, int knstrn,
  107. float *df, float *chsq, float *prob);
  108. void cisi(float x, float *ci, float *si);
  109. void cntab1(int **nn, int ni, int nj, float *chisq,
  110. float *df, float *prob, float *cramrv, float *ccc);
  111. void cntab2(int **nn, int ni, int nj, float *h, float *hx, float *hy,
  112. float *hygx, float *hxgy, float *uygx, float *uxgy, float *uxy);
  113. void convlv(float data[], unsigned long n, float respns[], unsigned long m,
  114. int isign, float ans[]);
  115. void copy(double **aout, double **ain, int n);
  116. void correl(float data1[], float data2[], unsigned long n, float ans[]);
  117. void cosft(float y[], int n, int isign);
  118. void cosft1(float y[], int n);
  119. void cosft2(float y[], int n, int isign);
  120. void covsrt(float **covar, int ma, int ia[], int mfit);
  121. void crank(unsigned long n, float w[], float *s);
  122. void cyclic(float a[], float b[], float c[], float alpha, float beta,
  123. float r[], float x[], unsigned long n);
  124. void daub4(float a[], unsigned long n, int isign);
  125. float dawson(float x);
  126. float dbrent(float ax, float bx, float cx,
  127. float (*f)(float), float (*df)(float), float tol, float *xmin);
  128. void ddpoly(float c[], int nc, float x, float pd[], int nd);
  129. int decchk(char string[], int n, char *ch);
  130. void derivs(float x, float y[], float dydx[]);
  131. float df1dim(float x);
  132. void dfour1(double data[], unsigned long nn, int isign);
  133. void dfpmin(float p[], int n, float gtol, int *iter, float *fret,
  134. float (*func)(float []), void (*dfunc)(float [], float []));
  135. float dfridr(float (*func)(float), float x, float h, float *err);
  136. void dftcor(float w, float delta, float a, float b, float endpts[],
  137. float *corre, float *corim, float *corfac);
  138. void dftint(float (*func)(float), float a, float b, float w,
  139. float *cosint, float *sinint);
  140. void difeq(int k, int k1, int k2, int jsf, int is1, int isf,
  141. int indexv[], int ne, float **s, float **y);
  142. void dlinmin(float p[], float xi[], int n, float *fret,
  143. float (*func)(float []), void (*dfunc)(float [], float[]));
  144. double dpythag(double a, double b);
  145. void drealft(double data[], unsigned long n, int isign);
  146. void dsprsax(double sa[], unsigned long ija[], double x[], double b[],
  147. unsigned long n);
  148. void dsprstx(double sa[], unsigned long ija[], double x[], double b[],
  149. unsigned long n);
  150. void dsvbksb(double **u, double w[], double **v, int m, int n, double b[],
  151. double x[]);
  152. void dsvdcmp(double **a, int m, int n, double w[], double **v);
  153. void eclass(int nf[], int n, int lista[], int listb[], int m);
  154. void eclazz(int nf[], int n, int (*equiv)(int, int));
  155. float ei(float x);
  156. void eigsrt(float d[], float **v, int n);
  157. float elle(float phi, float ak);
  158. float ellf(float phi, float ak);
  159. float ellpi(float phi, float en, float ak);
  160. void elmhes(float **a, int n);
  161. float erfcc(float x);
  162. float erff(float x);
  163. float erffc(float x);
  164. void eulsum(float *sum, float term, int jterm, float wksp[]);
  165. float evlmem(float fdt, float d[], int m, float xms);
  166. float expdev(long *idum);
  167. float expint(int n, float x);
  168. float f1(float x);
  169. float f1dim(float x);
  170. float f2(float y);
  171. float f3(float z);
  172. float factln(int n);
  173. float factrl(int n);
  174. void fasper(float x[], float y[], unsigned long n, float ofac, float hifac,
  175. float wk1[], float wk2[], unsigned long nwk, unsigned long *nout,
  176. unsigned long *jmax, float *prob);
  177. void fdjac(int n, float x[], float fvec[], float **df,
  178. void (*vecfunc)(int, float [], float []));
  179. void fgauss(float x, float a[], float *y, float dyda[], int na);
  180. void fill0(double **u, int n);
  181. void fit(float x[], float y[], int ndata, float sig[], int mwt,
  182. float *a, float *b, float *siga, float *sigb, float *chi2, float *q);
  183. void fitexy(float x[], float y[], int ndat, float sigx[], float sigy[],
  184. float *a, float *b, float *siga, float *sigb, float *chi2, float *q);
  185. void fixrts(float d[], int m);
  186. void fleg(float x, float pl[], int nl);
  187. void flmoon(int n, int nph, long *jd, float *frac);
  188. float fmin(float x[]);
  189. void four1(float data[], unsigned long nn, int isign);
  190. void fourew(FILE *file[5], int *na, int *nb, int *nc, int *nd);
  191. void fourfs(FILE *file[5], unsigned long nn[], int ndim, int isign);
  192. void fourn(float data[], unsigned long nn[], int ndim, int isign);
  193. void fpoly(float x, float p[], int np);
  194. void fred2(int n, float a, float b, float t[], float f[], float w[],
  195. float (*g)(float), float (*ak)(float, float));
  196. float fredin(float x, int n, float a, float b, float t[], float f[], float w[],
  197. float (*g)(float), float (*ak)(float, float));
  198. void frenel(float x, float *s, float *c);
  199. void frprmn(float p[], int n, float ftol, int *iter, float *fret,
  200. float (*func)(float []), void (*dfunc)(float [], float []));
  201. void ftest(float data1[], unsigned long n1, float data2[], unsigned long n2,
  202. float *f, float *prob);
  203. float gamdev(int ia, long *idum);
  204. float gammln(float xx);
  205. float gammp(float a, float x);
  206. float gammq(float a, float x);
  207. float gasdev(long *idum);
  208. void gaucof(int n, float a[], float b[], float amu0, float x[], float w[]);
  209. void gauher(float x[], float w[], int n);
  210. void gaujac(float x[], float w[], int n, float alf, float bet);
  211. void gaulag(float x[], float w[], int n, float alf);
  212. void gauleg(float x1, float x2, float x[], float w[], int n);
  213. void gaussj(float **a, int n, float **b, int m);
  214. void gcf(float *gammcf, float a, float x, float *gln);
  215. float golden(float ax, float bx, float cx, float (*f)(float), float tol,
  216. float *xmin);
  217. void gser(float *gamser, float a, float x, float *gln);
  218. void hpsel(unsigned long m, unsigned long n, float arr[], float heap[]);
  219. void hpsort(unsigned long n, float ra[]);
  220. void hqr(float **a, int n, float wr[], float wi[]);
  221. void hufapp(unsigned long index[], unsigned long nprob[], unsigned long n,
  222. unsigned long i);
  223. void hufdec(unsigned long *ich, unsigned char *code, unsigned long lcode,
  224. unsigned long *nb, huffcode *hcode);
  225. void hufenc(unsigned long ich, unsigned char **codep, unsigned long *lcode,
  226. unsigned long *nb, huffcode *hcode);
  227. void hufmak(unsigned long nfreq[], unsigned long nchin, unsigned long *ilong,
  228. unsigned long *nlong, huffcode *hcode);
  229. void hunt(float xx[], unsigned long n, float x, unsigned long *jlo);
  230. void hypdrv(float s, float yy[], float dyyds[]);
  231. fcomplex hypgeo(fcomplex a, fcomplex b, fcomplex c, fcomplex z);
  232. void hypser(fcomplex a, fcomplex b, fcomplex c, fcomplex z,
  233. fcomplex *series, fcomplex *deriv);
  234. unsigned short icrc(unsigned short crc, unsigned char *bufptr,
  235. unsigned long len, short jinit, int jrev);
  236. unsigned short icrc1(unsigned short crc, unsigned char onech);
  237. unsigned long igray(unsigned long n, int is);
  238. void iindexx(unsigned long n, long arr[], unsigned long indx[]);
  239. void indexx(unsigned long n, float arr[], unsigned long indx[]);
  240. void interp(double **uf, double **uc, int nf);
  241. int irbit1(unsigned long *iseed);
  242. int irbit2(unsigned long *iseed);
  243. void jacobi(float **a, int n, float d[], float **v, int *nrot);
  244. void jacobn(float x, float y[], float dfdx[], float **dfdy, int n);
  245. long julday(int mm, int id, int iyyy);
  246. void kendl1(float data1[], float data2[], unsigned long n, float *tau, float *z,
  247. float *prob);
  248. void kendl2(float **tab, int i, int j, float *tau, float *z, float *prob);
  249. void kermom(double w[], double y, int m);
  250. void ks2d1s(float x1[], float y1[], unsigned long n1,
  251. void (*quadvl)(float, float, float *, float *, float *, float *),
  252. float *d1, float *prob);
  253. void ks2d2s(float x1[], float y1[], unsigned long n1, float x2[], float y2[],
  254. unsigned long n2, float *d, float *prob);
  255. void ksone(float data[], unsigned long n, float (*func)(float), float *d,
  256. float *prob);
  257. void kstwo(float data1[], unsigned long n1, float data2[], unsigned long n2,
  258. float *d, float *prob);
  259. void laguer(fcomplex a[], int m, fcomplex *x, int *its);
  260. void lfit(float x[], float y[], float sig[], int ndat, float a[], int ia[],
  261. int ma, float **covar, float *chisq, void (*funcs)(float, float [], int));
  262. void linbcg(unsigned long n, double b[], double x[], int itol, double tol,
  263.  int itmax, int *iter, double *err);
  264. void linmin(float p[], float xi[], int n, float *fret,
  265. float (*func)(float []));
  266. void lnsrch(int n, float xold[], float fold, float g[], float p[], float x[],
  267.  float *f, float stpmax, int *check, float (*func)(float []));
  268. void load(float x1, float v[], float y[]);
  269. void load1(float x1, float v1[], float y[]);
  270. void load2(float x2, float v2[], float y[]);
  271. void locate(float xx[], unsigned long n, float x, unsigned long *j);
  272. void lop(double **out, double **u, int n);
  273. void lubksb(float **a, int n, int *indx, float b[]);
  274. void ludcmp(float **a, int n, int *indx, float *d);
  275. void machar(int *ibeta, int *it, int *irnd, int *ngrd,
  276. int *machep, int *negep, int *iexp, int *minexp, int *maxexp,
  277. float *eps, float *epsneg, float *xmin, float *xmax);
  278. void matadd(double **a, double **b, double **c, int n);
  279. void matsub(double **a, double **b, double **c, int n);
  280. void medfit(float x[], float y[], int ndata, float *a, float *b, float *abdev);
  281. void memcof(float data[], int n, int m, float *xms, float d[]);
  282. int metrop(float de, float t);
  283. void mgfas(double **u, int n, int maxcyc);
  284. void mglin(double **u, int n, int ncycle);
  285. float midexp(float (*funk)(float), float aa, float bb, int n);
  286. float midinf(float (*funk)(float), float aa, float bb, int n);
  287. float midpnt(float (*func)(float), float a, float b, int n);
  288. float midsql(float (*funk)(float), float aa, float bb, int n);
  289. float midsqu(float (*funk)(float), float aa, float bb, int n);
  290. void miser(float (*func)(float []), float regn[], int ndim, unsigned long npts,
  291. float dith, float *ave, float *var);
  292. void mmid(float y[], float dydx[], int nvar, float xs, float htot,
  293. int nstep, float yout[], void (*derivs)(float, float[], float[]));
  294. void mnbrak(float *ax, float *bx, float *cx, float *fa, float *fb,
  295. float *fc, float (*func)(float));
  296. void mnewt(int ntrial, float x[], int n, float tolx, float tolf);
  297. void moment(float data[], int n, float *ave, float *adev, float *sdev,
  298. float *var, float *skew, float *curt);
  299. void mp2dfr(unsigned char a[], unsigned char s[], int n, int *m);
  300. void mpadd(unsigned char w[], unsigned char u[], unsigned char v[], int n);
  301. void mpdiv(unsigned char q[], unsigned char r[], unsigned char u[],
  302. unsigned char v[], int n, int m);
  303. void mpinv(unsigned char u[], unsigned char v[], int n, int m);
  304. void mplsh(unsigned char u[], int n);
  305. void mpmov(unsigned char u[], unsigned char v[], int n);
  306. void mpmul(unsigned char w[], unsigned char u[], unsigned char v[], int n,
  307. int m);
  308. void mpneg(unsigned char u[], int n);
  309. void mppi(int n);
  310. void mprove(float **a, float **alud, int n, int indx[], float b[],
  311. float x[]);
  312. void mpsad(unsigned char w[], unsigned char u[], int n, int iv);
  313. void mpsdv(unsigned char w[], unsigned char u[], int n, int iv, int *ir);
  314. void mpsmu(unsigned char w[], unsigned char u[], int n, int iv);
  315. void mpsqrt(unsigned char w[], unsigned char u[], unsigned char v[], int n,
  316. int m);
  317. void mpsub(int *is, unsigned char w[], unsigned char u[], unsigned char v[],
  318. int n);
  319. void mrqcof(float x[], float y[], float sig[], int ndata, float a[],
  320. int ia[], int ma, float **alpha, float beta[], float *chisq,
  321. void (*funcs)(float, float [], float *, float [], int));
  322. void mrqmin(float x[], float y[], float sig[], int ndata, float a[],
  323. int ia[], int ma, float **covar, float **alpha, float *chisq,
  324. void (*funcs)(float, float [], float *, float [], int), float *alamda);
  325. void newt(float x[], int n, int *check,
  326. void (*vecfunc)(int, float [], float []));
  327. void odeint(float ystart[], int nvar, float x1, float x2,
  328. float eps, float h1, float hmin, int *nok, int *nbad,
  329. void (*derivs)(float, float [], float []),
  330. void (*rkqs)(float [], float [], int, float *, float, float,
  331. float [], float *, float *, void (*)(float, float [], float [])));
  332. void orthog(int n, float anu[], float alpha[], float beta[], float a[],
  333. float b[]);
  334. void pade(double cof[], int n, float *resid);
  335. void pccheb(float d[], float c[], int n);
  336. void pcshft(float a, float b, float d[], int n);
  337. void pearsn(float x[], float y[], unsigned long n, float *r, float *prob,
  338. float *z);
  339. void period(float x[], float y[], int n, float ofac, float hifac,
  340. float px[], float py[], int np, int *nout, int *jmax, float *prob);
  341. void piksr2(int n, float arr[], float brr[]);
  342. void piksrt(int n, float arr[]);
  343. void pinvs(int ie1, int ie2, int je1, int jsf, int jc1, int k,
  344. float ***c, float **s);
  345. float plgndr(int l, int m, float x);
  346. float poidev(float xm, long *idum);
  347. void polcoe(float x[], float y[], int n, float cof[]);
  348. void polcof(float xa[], float ya[], int n, float cof[]);
  349. void poldiv(float u[], int n, float v[], int nv, float q[], float r[]);
  350. void polin2(float x1a[], float x2a[], float **ya, int m, int n,
  351. float x1, float x2, float *y, float *dy);
  352. void polint(float xa[], float ya[], int n, float x, float *y, float *dy);
  353. void powell(float p[], float **xi, int n, float ftol, int *iter, float *fret,
  354. float (*func)(float []));
  355. void predic(float data[], int ndata, float d[], int m, float future[], int nfut);
  356. float probks(float alam);
  357. void psdes(unsigned long *lword, unsigned long *irword);
  358. void pwt(float a[], unsigned long n, int isign);
  359. void pwtset(int n);
  360. float pythag(float a, float b);
  361. void pzextr(int iest, float xest, float yest[], float yz[], float dy[],
  362. int nv);
  363. float qgaus(float (*func)(float), float a, float b);
  364. void qrdcmp(float **a, int n, float *c, float *d, int *sing);
  365. float qromb(float (*func)(float), float a, float b);
  366. float qromo(float (*func)(float), float a, float b,
  367. float (*choose)(float (*)(float), float, float, int));
  368. void qroot(float p[], int n, float *b, float *c, float eps);
  369. void qrsolv(float **a, int n, float c[], float d[], float b[]);
  370. void qrupdt(float **r, float **qt, int n, float u[], float v[]);
  371. float qsimp(float (*func)(float), float a, float b);
  372. float qtrap(float (*func)(float), float a, float b);
  373. float quad3d(float (*func)(float, float, float), float x1, float x2);
  374. void quadct(float x, float y, float xx[], float yy[], unsigned long nn,
  375. float *fa, float *fb, float *fc, float *fd);
  376. void quadmx(float **a, int n);
  377. void quadvl(float x, float y, float *fa, float *fb, float *fc, float *fd);
  378. float ran0(long *idum);
  379. float ran1(long *idum);
  380. float ran2(long *idum);
  381. float ran3(long *idum);
  382. float ran4(long *idum);
  383. void rank(unsigned long n, unsigned long indx[], unsigned long irank[]);
  384. void ranpt(float pt[], float regn[], int n);
  385. void ratint(float xa[], float ya[], int n, float x, float *y, float *dy);
  386. void ratlsq(double (*fn)(double), double a, double b, int mm, int kk,
  387. double cof[], double *dev);
  388. double ratval(double x, double cof[], int mm, int kk);
  389. float rc(float x, float y);
  390. float rd(float x, float y, float z);
  391. void realft(float data[], unsigned long n, int isign);
  392. void rebin(float rc, int nd, float r[], float xin[], float xi[]);
  393. void red(int iz1, int iz2, int jz1, int jz2, int jm1, int jm2, int jmf,
  394. int ic1, int jc1, int jcf, int kc, float ***c, float **s);
  395. void relax(double **u, double **rhs, int n);
  396. void relax2(double **u, double **rhs, int n);
  397. void resid(double **res, double **u, double **rhs, int n);
  398. float revcst(float x[], float y[], int iorder[], int ncity, int n[]);
  399. void reverse(int iorder[], int ncity, int n[]);
  400. float rf(float x, float y, float z);
  401. float rj(float x, float y, float z, float p);
  402. void rk4(float y[], float dydx[], int n, float x, float h, float yout[],
  403. void (*derivs)(float, float [], float []));
  404. void rkck(float y[], float dydx[], int n, float x, float h,
  405. float yout[], float yerr[], void (*derivs)(float, float [], float []));
  406. void rkdumb(float vstart[], int nvar, float x1, float x2, int nstep,
  407. void (*derivs)(float, float [], float []));
  408. void rkqs(float y[], float dydx[], int n, float *x,
  409. float htry, float eps, float yscal[], float *hdid, float *hnext,
  410. void (*derivs)(float, float [], float []));
  411. void rlft3(float ***data, float **speq, unsigned long nn1,
  412. unsigned long nn2, unsigned long nn3, int isign);
  413. float rofunc(float b);
  414. void rotate(float **r, float **qt, int n, int i, float a, float b);
  415. void rsolv(float **a, int n, float d[], float b[]);
  416. void rstrct(double **uc, double **uf, int nc);
  417. float rtbis(float (*func)(float), float x1, float x2, float xacc);
  418. float rtflsp(float (*func)(float), float x1, float x2, float xacc);
  419. float rtnewt(void (*funcd)(float, float *, float *), float x1, float x2,
  420. float xacc);
  421. float rtsafe(void (*funcd)(float, float *, float *), float x1, float x2,
  422. float xacc);
  423. float rtsec(float (*func)(float), float x1, float x2, float xacc);
  424. void rzextr(int iest, float xest, float yest[], float yz[], float dy[], int nv);
  425. void savgol(float c[], int np, int nl, int nr, int ld, int m);
  426. void score(float xf, float y[], float f[]);
  427. void scrsho(float (*fx)(float));
  428. float select(unsigned long k, unsigned long n, float arr[]);
  429. float selip(unsigned long k, unsigned long n, float arr[]);
  430. void shell(unsigned long n, float a[]);
  431. void shoot(int n, float v[], float f[]);
  432. void shootf(int n, float v[], float f[]);
  433. void simp1(float **a, int mm, int ll[], int nll, int iabf, int *kp,
  434. float *bmax);
  435. void simp2(float **a, int n, int l2[], int nl2, int *ip, int kp, float *q1);
  436. void simp3(float **a, int i1, int k1, int ip, int kp);
  437. void simplx(float **a, int m, int n, int m1, int m2, int m3, int *icase,
  438. int izrov[], int iposv[]);
  439. void simpr(float y[], float dydx[], float dfdx[], float **dfdy,
  440. int n, float xs, float htot, int nstep, float yout[],
  441. void (*derivs)(float, float [], float []));
  442. void sinft(float y[], int n);
  443. void slvsm2(double **u, double **rhs);
  444. void slvsml(double **u, double **rhs);
  445. void sncndn(float uu, float emmc, float *sn, float *cn, float *dn);
  446. double snrm(unsigned long n, double sx[], int itol);
  447. void sobseq(int *n, float x[]);
  448. void solvde(int itmax, float conv, float slowc, float scalv[],
  449. int indexv[], int ne, int nb, int m, float **y, float ***c, float **s);
  450. void sor(double **a, double **b, double **c, double **d, double **e,
  451. double **f, double **u, int jmax, double rjac);
  452. void sort(unsigned long n, float arr[]);
  453. void sort2(unsigned long n, float arr[], float brr[]);
  454. void sort2i(unsigned long n, int arr[], int brr[]);
  455. void sort3(unsigned long n, float ra[], float rb[], float rc[]);
  456. void spctrm(FILE *fp, float p[], int m, int k, int ovrlap);
  457. void spear(float data1[], float data2[], unsigned long n, float *d, float *zd,
  458. float *probd, float *rs, float *probrs);
  459. void sphbes(int n, float x, float *sj, float *sy, float *sjp, float *syp);
  460. void splie2(float x1a[], float x2a[], float **ya, int m, int n, float **y2a);
  461. void splin2(float x1a[], float x2a[], float **ya, float **y2a, int m, int n,
  462. float x1, float x2, float *y);
  463. void spline(float x[], float y[], int n, float yp1, float ypn, float y2[]);
  464. void splint(float xa[], float ya[], float y2a[], int n, float x, float *y);
  465. void spread(float y, float yy[], unsigned long n, float x, int m);
  466. void sprsax(float sa[], unsigned long ija[], float x[], float b[],
  467. unsigned long n);
  468. void sprsin(float **a, int n, float thresh, unsigned long nmax, float sa[],
  469. unsigned long ija[]);
  470. void sprspm(float sa[], unsigned long ija[], float sb[], unsigned long ijb[],
  471. float sc[], unsigned long ijc[]);
  472. void sprstm(float sa[], unsigned long ija[], float sb[], unsigned long ijb[],
  473. float thresh, unsigned long nmax, float sc[], unsigned long ijc[]);
  474. void sprstp(float sa[], unsigned long ija[], float sb[], unsigned long ijb[]);
  475. void sprstx(float sa[], unsigned long ija[], float x[], float b[],
  476. unsigned long n);
  477. void stifbs(float y[], float dydx[], int nv, float *xx,
  478. float htry, float eps, float yscal[], float *hdid, float *hnext,
  479. void (*derivs)(float, float [], float []));
  480. void stiff(float y[], float dydx[], int n, float *x,
  481. float htry, float eps, float yscal[], float *hdid, float *hnext,
  482. void (*derivs)(float, float [], float []));
  483. void stoerm(float y[], float d2y[], int nv, float xs,
  484. float htot, int nstep, float yout[],
  485. void (*derivs)(float, float [], float []));
  486. void svbksb(float **u, float w[], float **v, int m, int n, float b[],
  487. float x[]);
  488. void svdcmp(float **a, int m, int n, float w[], float **v);
  489. void svdfit(float x[], float y[], float sig[], int ndata, float a[],
  490. int ma, float **u, float **v, float w[], float *chisq,
  491. void (*funcs)(float, float [], int));
  492. void svdvar(float **v, int ma, float w[], float **cvm);
  493. void toeplz(float r[], float x[], float y[], int n);
  494. void tptest(float data1[], float data2[], unsigned long n, float *t, float *prob);
  495. void tqli(float d[], float e[], int n, float **z);
  496. float trapzd(float (*func)(float), float a, float b, int n);
  497. void tred2(float **a, int n, float d[], float e[]);
  498. void tridag(float a[], float b[], float c[], float r[], float u[],
  499. unsigned long n);
  500. float trncst(float x[], float y[], int iorder[], int ncity, int n[]);
  501. void trnspt(int iorder[], int ncity, int n[]);
  502. void ttest(float data1[], unsigned long n1, float data2[], unsigned long n2,
  503. float *t, float *prob);
  504. void tutest(float data1[], unsigned long n1, float data2[], unsigned long n2,
  505. float *t, float *prob);
  506. void twofft(float data1[], float data2[], float fft1[], float fft2[],
  507. unsigned long n);
  508. void vander(double x[], double w[], double q[], int n);
  509. void vegas(float regn[], int ndim, float (*fxn)(float [], float), int init,
  510. unsigned long ncall, int itmx, int nprn, float *tgral, float *sd,
  511. float *chi2a);
  512. void voltra(int n, int m, float t0, float h, float *t, float **f,
  513. float (*g)(int, float), float (*ak)(int, int, float, float));
  514. void wt1(float a[], unsigned long n, int isign,
  515. void (*wtstep)(float [], unsigned long, int));
  516. void wtn(float a[], unsigned long nn[], int ndim, int isign,
  517. void (*wtstep)(float [], unsigned long, int));
  518. void wwghts(float wghts[], int n, float h,
  519. void (*kermom)(double [], double ,int));
  520. int zbrac(float (*func)(float), float *x1, float *x2);
  521. void zbrak(float (*fx)(float), float x1, float x2, int n, float xb1[],
  522. float xb2[], int *nb);
  523. float zbrent(float (*func)(float), float x1, float x2, float tol);
  524. void zrhqr(float a[], int m, float rtr[], float rti[]);
  525. float zriddr(float (*func)(float), float x1, float x2, float xacc);
  526. void zroots(fcomplex a[], int m, fcomplex roots[], int polish);
  528. #endif /* _NR_H_ */