#include #include #include #include #include char *name = "Numeric.SpecFunctions:logGammaL from math-functions-0.1.5.2"; double f_if(float x, float y, float z, float t, float a) { float r25084 = x; float r25085 = y; float r25086 = r25084 + r25085; float r25087 = log(r25086); float r25088 = z; float r25089 = log(r25088); float r25090 = r25087 + r25089; float r25091 = t; float r25092 = r25090 - r25091; float r25093 = a; float r25094 = 0.5; float r25095 = r25093 - r25094; float r25096 = log(r25091); float r25097 = r25095 * r25096; float r25098 = r25092 + r25097; return r25098; } double f_id(double x, double y, double z, double t, double a) { double r25099 = x; double r25100 = y; double r25101 = r25099 + r25100; double r25102 = log(r25101); double r25103 = z; double r25104 = log(r25103); double r25105 = r25102 + r25104; double r25106 = t; double r25107 = r25105 - r25106; double r25108 = a; double r25109 = 0.5; double r25110 = r25108 - r25109; double r25111 = log(r25106); double r25112 = r25110 * r25111; double r25113 = r25107 + r25112; return r25113; } double f_of(float x, float y, float z, float t, float a) { float r25114 = y; float r25115 = x; float r25116 = r25114 + r25115; float r25117 = log(r25116); float r25118 = t; float r25119 = a; float r25120 = 0.5; float r25121 = r25119 - r25120; float r25122 = log(r25118); float r25123 = z; float r25124 = log(r25123); float r25125 = fma(r25121, r25122, r25124); float r25126 = r25118 - r25125; float r25127 = r25117 - r25126; return r25127; } double f_od(double x, double y, double z, double t, double a) { double r25128 = y; double r25129 = x; double r25130 = r25128 + r25129; double r25131 = log(r25130); double r25132 = t; double r25133 = a; double r25134 = 0.5; double r25135 = r25133 - r25134; double r25136 = log(r25132); double r25137 = z; double r25138 = log(r25137); double r25139 = fma(r25135, r25136, r25138); double r25140 = r25132 - r25139; double r25141 = r25131 - r25140; return r25141; } void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) { mpfr_fmod(r, n, d, rmd); if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd); } static mpfr_t r25142, r25143, r25144, r25145, r25146, r25147, r25148, r25149, r25150, r25151, r25152, r25153, r25154, r25155, r25156; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r25142); mpfr_init(r25143); mpfr_init(r25144); mpfr_init(r25145); mpfr_init(r25146); mpfr_init(r25147); mpfr_init(r25148); mpfr_init(r25149); mpfr_init(r25150); mpfr_init(r25151); mpfr_init_set_str(r25152, "0.5", 10, MPFR_RNDN); mpfr_init(r25153); mpfr_init(r25154); mpfr_init(r25155); mpfr_init(r25156); } double f_im(double x, double y, double z, double t, double a) { mpfr_set_d(r25142, x, MPFR_RNDN); mpfr_set_d(r25143, y, MPFR_RNDN); mpfr_add(r25144, r25142, r25143, MPFR_RNDN); mpfr_log(r25145, r25144, MPFR_RNDN); mpfr_set_d(r25146, z, MPFR_RNDN); mpfr_log(r25147, r25146, MPFR_RNDN); mpfr_add(r25148, r25145, r25147, MPFR_RNDN); mpfr_set_d(r25149, t, MPFR_RNDN); mpfr_sub(r25150, r25148, r25149, MPFR_RNDN); mpfr_set_d(r25151, a, MPFR_RNDN); ; mpfr_sub(r25153, r25151, r25152, MPFR_RNDN); mpfr_log(r25154, r25149, MPFR_RNDN); mpfr_mul(r25155, r25153, r25154, MPFR_RNDN); mpfr_add(r25156, r25150, r25155, MPFR_RNDN); return mpfr_get_d(r25156, MPFR_RNDN); } static mpfr_t r25157, r25158, r25159, r25160, r25161, r25162, r25163, r25164, r25165, r25166, r25167, r25168, r25169, r25170; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r25157); mpfr_init(r25158); mpfr_init(r25159); mpfr_init(r25160); mpfr_init(r25161); mpfr_init(r25162); mpfr_init_set_str(r25163, "0.5", 10, MPFR_RNDN); mpfr_init(r25164); mpfr_init(r25165); mpfr_init(r25166); mpfr_init(r25167); mpfr_init(r25168); mpfr_init(r25169); mpfr_init(r25170); } double f_fm(double x, double y, double z, double t, double a) { mpfr_set_d(r25157, y, MPFR_RNDN); mpfr_set_d(r25158, x, MPFR_RNDN); mpfr_add(r25159, r25157, r25158, MPFR_RNDN); mpfr_log(r25160, r25159, MPFR_RNDN); mpfr_set_d(r25161, t, MPFR_RNDN); mpfr_set_d(r25162, a, MPFR_RNDN); ; mpfr_sub(r25164, r25162, r25163, MPFR_RNDN); mpfr_log(r25165, r25161, MPFR_RNDN); mpfr_set_d(r25166, z, MPFR_RNDN); mpfr_log(r25167, r25166, MPFR_RNDN); mpfr_fma(r25168, r25164, r25165, r25167, MPFR_RNDN); mpfr_sub(r25169, r25161, r25168, MPFR_RNDN); mpfr_sub(r25170, r25160, r25169, MPFR_RNDN); return mpfr_get_d(r25170, MPFR_RNDN); } static mpfr_t r25171, r25172, r25173, r25174, r25175, r25176, r25177, r25178, r25179, r25180, r25181, r25182, r25183, r25184; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init(r25171); mpfr_init(r25172); mpfr_init(r25173); mpfr_init(r25174); mpfr_init(r25175); mpfr_init(r25176); mpfr_init_set_str(r25177, "0.5", 10, MPFR_RNDN); mpfr_init(r25178); mpfr_init(r25179); mpfr_init(r25180); mpfr_init(r25181); mpfr_init(r25182); mpfr_init(r25183); mpfr_init(r25184); } double f_dm(double x, double y, double z, double t, double a) { mpfr_set_d(r25171, y, MPFR_RNDN); mpfr_set_d(r25172, x, MPFR_RNDN); mpfr_add(r25173, r25171, r25172, MPFR_RNDN); mpfr_log(r25174, r25173, MPFR_RNDN); mpfr_set_d(r25175, t, MPFR_RNDN); mpfr_set_d(r25176, a, MPFR_RNDN); ; mpfr_sub(r25178, r25176, r25177, MPFR_RNDN); mpfr_log(r25179, r25175, MPFR_RNDN); mpfr_set_d(r25180, z, MPFR_RNDN); mpfr_log(r25181, r25180, MPFR_RNDN); mpfr_fma(r25182, r25178, r25179, r25181, MPFR_RNDN); mpfr_sub(r25183, r25175, r25182, MPFR_RNDN); mpfr_sub(r25184, r25174, r25183, MPFR_RNDN); return mpfr_get_d(r25184, MPFR_RNDN); }