00001
00002
00003 #ifdef HAVE_GSL
00004 #include <gsl/gsl_math.h>
00005 #include <gsl/gsl_sf.h>
00006 #include <gsl/gsl_randist.h>
00007 #include <gsl/gsl_const_num.h>
00008 #ifdef HAVE_GSL14
00009 #include <gsl/gsl_const_mksa.h>
00010 #include <gsl/gsl_const_cgsm.h>
00011 #else
00012 #include <gsl/gsl_const_mks.h>
00013 #include <gsl/gsl_const_cgs.h>
00014 #endif
00015 #endif
00016
00017 #ifndef FUNCTIONS_H
00018 #define FUNCTIONS_H
00019
00020
00021 double drand() { return random()/(double)RAND_MAX; }
00022 double my_rand() { return rand(); }
00023 double my_random() { return random(); }
00024 double my_fac(double i) { return fac((int)i); }
00025 double my_fdtr(double df1, double df2, double x) { return fdtr((int)df1, (int)df2, x); }
00026 double my_fdtrc(double df1, double df2, double x) { return fdtrc((int)df1, (int)df2, x); }
00027 double my_fdtri(double df1, double df2, double p) { return fdtri((int)df1, (int)df2, p); }
00028 double my_jn(double n, double x) { return jn((int)n,x); }
00029 double my_kn(double n, double x) { return kn((int)n,x); }
00030 double my_ldexp(double x, double expo) { return ldexp(x,(int)expo); }
00031 double my_pdtr(double k, double m) { return pdtr((int)k,m); }
00032 double my_pdtrc(double k, double m) { return pdtrc((int)k,m); }
00033 double my_pdtri(double k, double y) { return pdtr((int)k,y); }
00034 double my_stdtr(double k, double t) { return stdtr((short)k, t); }
00035 double my_stdtri(double k, double p) { return stdtri((short)k,p); }
00036 double my_yn(double n,double x) { return yn((int)n,x); }
00037
00038
00039 #ifdef HAVE_GSL
00040 #define MODE GSL_PREC_DOUBLE
00041
00042 double airy_Ai(double x) { return gsl_sf_airy_Ai(x,MODE); }
00043 double airy_Bi(double x) { return gsl_sf_airy_Bi(x,MODE); }
00044 double airy_Ais(double x) { return gsl_sf_airy_Ai_scaled(x,MODE); }
00045 double airy_Bis(double x) { return gsl_sf_airy_Bi_scaled(x,MODE); }
00046 double airy_Aid(double x) { return gsl_sf_airy_Ai_deriv(x,MODE); }
00047 double airy_Bid(double x) { return gsl_sf_airy_Bi_deriv(x,MODE); }
00048 double airy_Aids(double x) { return gsl_sf_airy_Ai_deriv_scaled(x,MODE); }
00049 double airy_Bids(double x) { return gsl_sf_airy_Bi_deriv_scaled(x,MODE); }
00050 double airy_0_Ai(double s) { return gsl_sf_airy_zero_Ai((unsigned int)s); }
00051 double airy_0_Bi(double s) { return gsl_sf_airy_zero_Bi((unsigned int)s); }
00052 double airy_0_Aid(double s) { return gsl_sf_airy_zero_Ai_deriv((unsigned int)s); }
00053 double airy_0_Bid(double s) { return gsl_sf_airy_zero_Bi_deriv((unsigned int)s); }
00054
00055 double bessel_Jn(double n,double x) { return gsl_sf_bessel_Jn((int)n,x); }
00056 double bessel_Yn(double n,double x) { return gsl_sf_bessel_Yn((int)n,x); }
00057 double bessel_In(double n,double x) { return gsl_sf_bessel_In((int)n,x); }
00058 double bessel_Ins(double n,double x) { return gsl_sf_bessel_In_scaled((int)n,x); }
00059 double bessel_Kn(double n,double x) { return gsl_sf_bessel_Kn((int)n,x); }
00060 double bessel_Kns(double n,double x) { return gsl_sf_bessel_Kn_scaled((int)n,x); }
00061 double bessel_jl(double l,double x) { return gsl_sf_bessel_jl((int)l,x); }
00062 double bessel_yl(double l,double x) { return gsl_sf_bessel_yl((int)l,x); }
00063 double bessel_ils(double l,double x) { return gsl_sf_bessel_il_scaled((int)l,x); }
00064 double bessel_kls(double l,double x) { return gsl_sf_bessel_kl_scaled((int)l,x); }
00065 double bessel_0_J0(double s) { return gsl_sf_bessel_zero_J0((unsigned int)s); }
00066 double bessel_0_J1(double s) { return gsl_sf_bessel_zero_J1((unsigned int)s); }
00067 double bessel_0_Jnu(double nu,double s) { return gsl_sf_bessel_zero_Jnu(nu,(unsigned int)s); }
00068
00069 double hydrogenicR(double n, double l, double z, double r) { return gsl_sf_hydrogenicR((int)n,(int)l,z,r); }
00070
00071 double ellint_Kc(double x) { return gsl_sf_ellint_Kcomp(x,MODE); }
00072 double ellint_Ec(double x) { return gsl_sf_ellint_Ecomp(x,MODE); }
00073 double ellint_F(double phi,double k) { return gsl_sf_ellint_F(phi,k,MODE); }
00074 double ellint_E(double phi,double k) { return gsl_sf_ellint_E(phi,k,MODE); }
00075 double ellint_P(double phi,double k,double n) { return gsl_sf_ellint_P(phi,k,n,MODE); }
00076 double ellint_D(double phi,double k,double n) { return gsl_sf_ellint_D(phi,k,n,MODE); }
00077 double ellint_RC(double x,double y) { return gsl_sf_ellint_RC(x,y,MODE); }
00078 double ellint_RD(double x,double y,double z) { return gsl_sf_ellint_RD(x,y,z,MODE); }
00079 double ellint_RF(double x,double y,double z) { return gsl_sf_ellint_RF(x,y,z,MODE); }
00080 double ellint_RJ(double x,double y,double z, double p) { return gsl_sf_ellint_RJ(x,y,z,p,MODE); }
00081
00082 double exprel_n(double n,double x) { return gsl_sf_exprel_n((int)n,x); }
00083 double fermi_dirac_int(double j,double x) { return gsl_sf_fermi_dirac_int((int)j,x); }
00084
00085 double taylorcoeff(double n,double x) { return gsl_sf_taylorcoeff((int)n,x); }
00086 double fact(double n) { return gsl_sf_fact((unsigned int)n); }
00087 double doublefact(double n) { return gsl_sf_doublefact((unsigned int)n); }
00088 double lnfact(double n) { return gsl_sf_lnfact((unsigned int)n); }
00089 double lndoublefact(double n) { return gsl_sf_lndoublefact((unsigned int)n); }
00090 double choose(double n,double m) { return gsl_sf_choose((unsigned int)n,(unsigned int)m); }
00091 double lnchoose(double n,double m) { return gsl_sf_lnchoose((unsigned int)n,(unsigned int)m); }
00092
00093 double gegenpoly_n(double n,double l,double x) { return gsl_sf_gegenpoly_n((int)n,l,x); }
00094 double hyperg_1F1i(double m,double n,double x) { return gsl_sf_hyperg_1F1_int((int)m,(int)n,x); }
00095 double hyperg_Ui(double m,double n,double x) { return gsl_sf_hyperg_U_int((int)m,(int)n,x); }
00096 double laguerre_n(double n,double a,double x) { return gsl_sf_laguerre_n((int)n,a,x); }
00097
00098 double legendre_Pl(double l,double x) { return gsl_sf_legendre_Pl((int)l,x); }
00099 double legendre_Ql(double l,double x) { return gsl_sf_legendre_Ql((int)l,x); }
00100 double legendre_Plm(double l,double m,double x) { return gsl_sf_legendre_Plm((int)l,(int)m,x); }
00101 double legendre_sphPlm(double l,double m,double x) { return gsl_sf_legendre_sphPlm((int)l,(int)m,x); }
00102 double conicalP_sphreg(double l,double L,double x) { return gsl_sf_conicalP_sph_reg((int)l,L,x); }
00103 double conicalP_cylreg(double m,double l,double x) { return gsl_sf_conicalP_sph_reg((int)m,l,x); }
00104 double legendre_H3d(double l, double L,double e) { return gsl_sf_legendre_H3d((int)l,L,e); }
00105
00106 double gsl_pow(double x, double n) { return gsl_sf_pow_int(x,(int)n); }
00107 double psii(double n) { return gsl_sf_psi_int((int)n); }
00108 double psi1i(double n) { return gsl_sf_psi_1_int((int)n); }
00109 double psi_n(double m, double x) { return gsl_sf_psi_n((int)m,x); }
00110
00111 double zetai(double n) { return gsl_sf_zeta_int((int)n); }
00112 double etai(double n) { return gsl_sf_eta_int((int)n); }
00113
00114
00115 double poisson(double k, double m) { return gsl_ran_poisson_pdf((unsigned int)k,m); }
00116 double bernoulli(double k, double p) { return gsl_ran_bernoulli_pdf((unsigned int)k,p); }
00117 double binomial(double k, double p,double n) { return gsl_ran_binomial_pdf((unsigned int)k,p,(unsigned int)n); }
00118 double negative_binomial(double k, double p,double n) { return gsl_ran_negative_binomial_pdf((unsigned int)k,p,n); }
00119 double pascal(double k, double p,double n) { return gsl_ran_pascal_pdf((unsigned int)k,p,(unsigned int)n); }
00120 double geometric(double k, double p) { return gsl_ran_geometric_pdf((unsigned int)k,p); }
00121 double hypergeometric(double k, double n1,double n2,double t) {
00122 return gsl_ran_hypergeometric_pdf((unsigned int)k,(unsigned int)n1,(unsigned int)n2,(unsigned int)t);
00123 }
00124 double logarithmic(double k, double p) { return gsl_ran_logarithmic_pdf((unsigned int)k,p); }
00125
00126 #endif
00127
00128 struct init arith_fncts[] = {
00129 #ifndef HAVE_SOLARIS
00130 {"atan",atan},
00131 {"atan2",atan2},
00132 {"beta",beta},
00133 {"chbevl",chbevl},
00134 {"ceil",ceil},
00135 {"chdtrc",chdtrc},
00136 {"chdtr",chdtr},
00137 {"chdtri",chdtri},
00138 {"ellie",ellie},
00139 {"ellik",ellik},
00140 {"expn",expn},
00141 {"fac",my_fac},
00142 {"fdtrc",my_fdtrc},
00143 {"fdtr",my_fdtr},
00144 {"fdtri",my_fdtri},
00145 {"gdtr",gdtr},
00146 {"gdtrc",gdtrc},
00147 {"hyp2f1",hyp2f1},
00148 {"hyperg",hyperg},
00149 {"igamc",igamc},
00150 {"igam",igam},
00151 {"igami",igami},
00152 {"incbet",incbet},
00153 {"incbi",incbi},
00154 {"iv",iv},
00155 {"jn",my_jn},
00156 {"jv",jv},
00157 {"kn",my_kn},
00158 {"lbeta",lbeta},
00159 {"ldexp",my_ldexp},
00160 {"pdtrc",my_pdtrc},
00161 {"pdtr",my_pdtr},
00162 {"pdtri",my_pdtri},
00163 {"pow",pow},
00164 {"stdtr",my_stdtr},
00165 {"stdtri",my_stdtri},
00166 {"struve",struve},
00167 {"yn",my_yn},
00168 {"yv",yv},
00169 {"zeta",zeta},
00170 #endif
00171 {"acos",acos},
00172 {"acosh",acosh},
00173 {"asin",asin},
00174 {"asinh",asinh},
00175 {"atanh",atanh},
00176 {"cbrt",cbrt},
00177 {"cos", cos},
00178 {"cosh",cosh},
00179 {"cosm1",cosm1},
00180 {"dawsn",dawsn},
00181 {"ellpe",ellpe},
00182 {"ellpk",ellpk},
00183 {"erf",erf},
00184 {"erfc",erfc},
00185 {"exp", exp},
00186 {"expm1",expm1},
00187 {"fabs",fabs},
00188
00189 {"i0",i0},
00190 {"i0e",i0e},
00191 {"i1",i1},
00192 {"i1e",i1e},
00193
00194 {"j0",j0},
00195 {"j1",j1},
00196 {"k0",k0},
00197 {"k0e",k0e},
00198 {"k1",k1},
00199 {"k1e",k1e},
00200 {"ln", log},
00201 {"log",log10},
00202 {"logb",logb},
00203 {"log1p",log1p},
00204
00205 {"ndtr",ndtr},
00206 {"ndtri",ndtri},
00207 {"psi",psi},
00208 #ifndef HAVE_SOLARIS
00209 {"rand",my_rand},
00210 {"random",my_random},
00211 {"drand",drand},
00212 #endif
00213
00214 {"rgamma",rgamma},
00215 {"rint",rint},
00216
00217
00218
00219 {"sin", sin},
00220 {"sinh",sinh},
00221 {"spence",spence},
00222 {"sqrt", sqrt},
00223 {"tan",tan},
00224 {"tanh",tanh},
00225 {"true_gamma",true_gamma},
00226
00227 {"y0",y0},
00228 {"y1",y1},
00229 {"zetac",zetac},
00230 #ifdef HAVE_GSL
00231 {"gsl_log1p",gsl_log1p},
00232 {"gsl_expm1",gsl_expm1},
00233 {"gsl_hypot",gsl_hypot},
00234 {"gsl_acosh",gsl_acosh},
00235 {"gsl_asinh",gsl_asinh},
00236 {"gsl_atanh",gsl_atanh},
00237 {"airy_ai",airy_Ai},
00238 {"airy_bi",airy_Bi},
00239 {"airy_ais",airy_Ais},
00240 {"airy_bis",airy_Bis},
00241 {"airy_aid",airy_Aid},
00242 {"airy_bid",airy_Bid},
00243 {"airy_aids",airy_Aids},
00244 {"airy_bids",airy_Bids},
00245 {"airy_0_ai",airy_0_Ai},
00246 {"airy_0_bi",airy_0_Bi},
00247 {"airy_0_aid",airy_0_Aid},
00248 {"airy_0_bid",airy_0_Bid},
00249 {"bessel_jj0",gsl_sf_bessel_J0},
00250 {"bessel_jj1",gsl_sf_bessel_J1},
00251 {"bessel_jn",bessel_Jn},
00252 {"bessel_yy0",gsl_sf_bessel_Y0},
00253 {"bessel_yy1",gsl_sf_bessel_Y1},
00254 {"bessel_yn",bessel_Yn},
00255 {"bessel_i0",gsl_sf_bessel_I0},
00256 {"bessel_i1",gsl_sf_bessel_I1},
00257 {"bessel_in",bessel_In},
00258 {"bessel_ii0s",gsl_sf_bessel_I0_scaled},
00259 {"bessel_ii1s",gsl_sf_bessel_I1_scaled},
00260 {"bessel_ins",bessel_Ins},
00261 {"bessel_k0",gsl_sf_bessel_K0},
00262 {"bessel_k1",gsl_sf_bessel_K1},
00263 {"bessel_kn",bessel_Kn},
00264 {"bessel_kk0s",gsl_sf_bessel_K0_scaled},
00265 {"bessel_kk1s",gsl_sf_bessel_K1_scaled},
00266 {"bessel_kns",bessel_Kns},
00267 {"bessel_j0",gsl_sf_bessel_j0},
00268 {"bessel_j1",gsl_sf_bessel_j1},
00269 {"bessel_j2",gsl_sf_bessel_j2},
00270 {"bessel_jl",bessel_jl},
00271 {"bessel_y0",gsl_sf_bessel_y0},
00272 {"bessel_y1",gsl_sf_bessel_y1},
00273 {"bessel_y2",gsl_sf_bessel_y2},
00274 {"bessel_yl",bessel_yl},
00275 {"bessel_i0s",gsl_sf_bessel_i0_scaled},
00276 {"bessel_i1s",gsl_sf_bessel_i1_scaled},
00277 {"bessel_i2s",gsl_sf_bessel_i2_scaled},
00278 {"bessel_ils",bessel_ils},
00279 {"bessel_k0s",gsl_sf_bessel_k0_scaled},
00280 {"bessel_k1s",gsl_sf_bessel_k1_scaled},
00281 {"bessel_k2s",gsl_sf_bessel_k2_scaled},
00282 {"bessel_kls",bessel_kls},
00283 {"bessel_jnu",gsl_sf_bessel_Jnu},
00284 {"bessel_ynu",gsl_sf_bessel_Ynu},
00285 {"bessel_inu",gsl_sf_bessel_Inu},
00286 {"bessel_inus",gsl_sf_bessel_Inu_scaled},
00287 {"bessel_knu",gsl_sf_bessel_Knu},
00288 {"bessel_inknu",gsl_sf_bessel_lnKnu},
00289 {"bessel_knus",gsl_sf_bessel_Knu_scaled},
00290 {"bessel_0_J0",bessel_0_J0},
00291 {"bessel_0_J1",bessel_0_J1},
00292 {"bessel_0_Jnu",bessel_0_Jnu},
00293 {"clausen",gsl_sf_clausen},
00294 {"hydrogenicr_1",gsl_sf_hydrogenicR_1},
00295 {"hydrogenicr",hydrogenicR},
00296 {"dawson",gsl_sf_dawson},
00297 {"debye_1",gsl_sf_debye_1},
00298 {"debye_2",gsl_sf_debye_2},
00299 {"debye_3",gsl_sf_debye_3},
00300 {"debye_4",gsl_sf_debye_4},
00301 {"dilog",gsl_sf_dilog},
00302 {"ellint_kc",ellint_Kc},
00303 {"ellint_ec",ellint_Ec},
00304 {"ellint_f",ellint_F},
00305 {"ellint_e",ellint_E},
00306 {"ellint_p",ellint_P},
00307 {"ellint_d",ellint_D},
00308 {"ellint_rc",ellint_RC},
00309 {"ellint_rd",ellint_RD},
00310 {"ellint_rf",ellint_RF},
00311 {"ellint_rj",ellint_RJ},
00312 {"gsl_erf",gsl_sf_erf},
00313 {"gsl_erfc",gsl_sf_erfc},
00314 {"log_erfc",gsl_sf_log_erfc},
00315 {"erf_z",gsl_sf_erf_Z},
00316 {"erf_q",gsl_sf_erf_Q},
00317 {"gsl_exp",gsl_sf_exp},
00318 {"exprel",gsl_sf_exprel},
00319 {"exprel_2",gsl_sf_exprel_2},
00320 {"exprel_n",exprel_n},
00321 {"expint_e1",gsl_sf_expint_E1},
00322 {"expint_e2",gsl_sf_expint_E2},
00323 {"expint_ei",gsl_sf_expint_Ei},
00324 {"shi",gsl_sf_Shi},
00325 {"chi",gsl_sf_Chi},
00326 {"expint_3",gsl_sf_expint_3},
00327 {"si",gsl_sf_Si},
00328 {"ci",gsl_sf_Ci},
00329 {"atanint",gsl_sf_atanint},
00330 {"fermi_dirac_m1",gsl_sf_fermi_dirac_m1},
00331 {"fermi_dirac_0",gsl_sf_fermi_dirac_0},
00332 {"fermi_dirac_1",gsl_sf_fermi_dirac_1},
00333 {"fermi_dirac_2",gsl_sf_fermi_dirac_2},
00334 {"fermi_dirac_int",fermi_dirac_int},
00335 {"fermi_dirac_mhalf",gsl_sf_fermi_dirac_mhalf},
00336 {"fermi_dirac_half",gsl_sf_fermi_dirac_half},
00337 {"fermi_dirac_3half",gsl_sf_fermi_dirac_3half},
00338 {"fermi_dirac_inc_0",gsl_sf_fermi_dirac_inc_0},
00339 {"gamma",gsl_sf_gamma},
00340 {"lngamma",gsl_sf_lngamma},
00341 {"gammastar",gsl_sf_gammastar},
00342 {"gammainv",gsl_sf_gammainv},
00343 {"taylorcoeff",taylorcoeff},
00344 {"fact",fact},
00345 {"doublefact",doublefact},
00346 {"lnfact",lnfact},
00347 {"lndoublefact",lndoublefact},
00348 {"choose",choose},
00349 {"lnchoose",lnchoose},
00350 {"poch",gsl_sf_poch},
00351 {"lnpoch",gsl_sf_lnpoch},
00352 {"pochrel",gsl_sf_pochrel},
00353 {"gamma_inc_q",gsl_sf_gamma_inc_Q},
00354 {"gamma_inc_p",gsl_sf_gamma_inc_P},
00355 {"gsl_beta",gsl_sf_beta},
00356 {"lnbeta",gsl_sf_lnbeta},
00357 {"beta_inc",gsl_sf_beta_inc},
00358 {"gegenpoly_1",gsl_sf_gegenpoly_1},
00359 {"gegenpoly_2",gsl_sf_gegenpoly_2},
00360 {"gegenpoly_3",gsl_sf_gegenpoly_3},
00361 {"gegenpoly_n",gegenpoly_n},
00362 {"hyperg_0f1",gsl_sf_hyperg_0F1},
00363 {"hyperg_1f1i",hyperg_1F1i},
00364 {"hyperg_1f1",gsl_sf_hyperg_1F1},
00365 {"hyperg_ui",hyperg_Ui},
00366 {"hyperg_u",gsl_sf_hyperg_U},
00367 {"hyperg_2f1",gsl_sf_hyperg_2F1},
00368 {"hyperg_2f1c",gsl_sf_hyperg_2F1_conj},
00369 {"hyperg_2f1r",gsl_sf_hyperg_2F1_renorm},
00370 {"hyperg_2f1cr",gsl_sf_hyperg_2F1_conj_renorm},
00371 {"hyperg_2f0",gsl_sf_hyperg_2F0},
00372 {"laguerre_1",gsl_sf_laguerre_1},
00373 {"laguerre_2",gsl_sf_laguerre_2},
00374 {"laguerre_3",gsl_sf_laguerre_3},
00375 {"lambert_w0",gsl_sf_lambert_W0},
00376 {"lambert_wm1",gsl_sf_lambert_Wm1},
00377 {"legendre_p1",gsl_sf_legendre_P1},
00378 {"legendre_p2",gsl_sf_legendre_P2},
00379 {"legendre_p3",gsl_sf_legendre_P3},
00380 {"legendre_pl",legendre_Pl},
00381 {"legendre_q0",gsl_sf_legendre_Q0},
00382 {"legendre_q1",gsl_sf_legendre_Q1},
00383 {"legendre_ql",legendre_Ql},
00384 {"legendre_plm",legendre_Plm},
00385 {"legendre_sphplm",legendre_sphPlm},
00386 {"conicalp_half",gsl_sf_conicalP_half},
00387 {"conicalp_mhalf",gsl_sf_conicalP_mhalf},
00388 {"conicalp_0",gsl_sf_conicalP_0},
00389 {"conicalp_1",gsl_sf_conicalP_1},
00390 {"conicalp_sphreg",conicalP_sphreg},
00391 {"conicalp_cylreg",conicalP_cylreg},
00392 {"legendre_h3d_0",gsl_sf_legendre_H3d_0},
00393 {"legendre_h3d_1",gsl_sf_legendre_H3d_1},
00394 {"legendre_h3d",legendre_H3d},
00395 {"gsl_log",gsl_sf_log},
00396 {"loga",gsl_sf_log_abs},
00397 {"logp",gsl_sf_log_1plusx},
00398 {"logm",gsl_sf_log_1plusx_mx},
00399 {"gsl_pow",gsl_pow},
00400 {"psii",psii},
00401 {"psi",gsl_sf_psi},
00402 {"psiy",gsl_sf_psi_1piy},
00403 {"psi1i",psi1i},
00404 {"psi_n",psi_n},
00405 {"synchrotron_1",gsl_sf_synchrotron_1},
00406 {"synchrotron_2",gsl_sf_synchrotron_2},
00407 {"transport_2",gsl_sf_transport_2},
00408 {"transport_3",gsl_sf_transport_3},
00409 {"transport_4",gsl_sf_transport_4},
00410 {"transport_5",gsl_sf_transport_5},
00411 {"hypot",gsl_sf_hypot},
00412 {"sinc",gsl_sf_sinc},
00413 {"lnsinh",gsl_sf_lnsinh},
00414 {"lncosh",gsl_sf_lncosh},
00415 {"zetai",zetai},
00416 {"gsl_zeta",gsl_sf_zeta},
00417 {"hzeta",gsl_sf_hzeta},
00418 {"etai",etai},
00419 {"eta",gsl_sf_eta},
00420 {"gaussian",gsl_ran_gaussian_pdf},
00421 {"ugaussian",gsl_ran_ugaussian_pdf},
00422 {"gaussian_tail",gsl_ran_gaussian_tail_pdf},
00423 {"ugaussian_tail",gsl_ran_ugaussian_tail_pdf},
00424 {"bivariate_gaussian",gsl_ran_bivariate_gaussian_pdf},
00425 {"exponential",gsl_ran_exponential_pdf},
00426 {"laplace",gsl_ran_laplace_pdf},
00427 {"exppow",gsl_ran_exppow_pdf},
00428 {"cauchy",gsl_ran_cauchy_pdf},
00429 {"rayleigh",gsl_ran_rayleigh_pdf},
00430 {"rayleigh_tail",gsl_ran_rayleigh_tail_pdf},
00431 {"landau",gsl_ran_landau_pdf},
00432 {"gamma_pdf",gsl_ran_gamma_pdf},
00433 {"flat",gsl_ran_flat_pdf},
00434 {"lognormal",gsl_ran_lognormal_pdf},
00435 {"chisq",gsl_ran_chisq_pdf},
00436 {"fdist",gsl_ran_fdist_pdf},
00437 {"tdist",gsl_ran_tdist_pdf},
00438 {"beta_pdf",gsl_ran_beta_pdf},
00439 {"logistic",gsl_ran_logistic_pdf},
00440 {"pareto",gsl_ran_pareto_pdf},
00441 {"weibull",gsl_ran_weibull_pdf},
00442 {"gumbel1",gsl_ran_gumbel1_pdf},
00443 {"gumbel2",gsl_ran_gumbel2_pdf},
00444 {"poisson",poisson},
00445 {"bernoulli",bernoulli},
00446 {"binomial",binomial},
00447 {"negative_binomial",negative_binomial},
00448 {"pascal",pascal},
00449 {"geometric",geometric},
00450 {"hypergeometric",hypergeometric},
00451 {"logarithmic",logarithmic},
00452 #endif
00453 {0, 0}
00454 };
00455
00456 #endif