#include #include #include #include #include char *name = "2-ancestry mixing, negative discriminant"; double f_if(float g, float h) { float r24167 = 2; float r24168 = atan2(1.0, 0.0); float r24169 = r24167 * r24168; float r24170 = 3; float r24171 = r24169 / r24170; float r24172 = g; float r24173 = -r24172; float r24174 = h; float r24175 = r24173 / r24174; float r24176 = acos(r24175); float r24177 = r24176 / r24170; float r24178 = r24171 + r24177; float r24179 = cos(r24178); float r24180 = r24167 * r24179; return r24180; } double f_id(double g, double h) { double r24181 = 2; double r24182 = atan2(1.0, 0.0); double r24183 = r24181 * r24182; double r24184 = 3; double r24185 = r24183 / r24184; double r24186 = g; double r24187 = -r24186; double r24188 = h; double r24189 = r24187 / r24188; double r24190 = acos(r24189); double r24191 = r24190 / r24184; double r24192 = r24185 + r24191; double r24193 = cos(r24192); double r24194 = r24181 * r24193; return r24194; } double f_of(float g, float h) { float r24195 = 2; float r24196 = 3; float r24197 = r24195 / r24196; float r24198 = atan2(1.0, 0.0); float r24199 = g; float r24200 = h; float r24201 = r24199 / r24200; float r24202 = -r24201; float r24203 = acos(r24202); float r24204 = sqrt(r24203); float r24205 = r24196 / r24204; float r24206 = r24204 / r24205; float r24207 = fma(r24197, r24198, r24206); float r24208 = cos(r24207); float r24209 = r24195 * r24208; return r24209; } double f_od(double g, double h) { double r24210 = 2; double r24211 = 3; double r24212 = r24210 / r24211; double r24213 = atan2(1.0, 0.0); double r24214 = g; double r24215 = h; double r24216 = r24214 / r24215; double r24217 = -r24216; double r24218 = acos(r24217); double r24219 = sqrt(r24218); double r24220 = r24211 / r24219; double r24221 = r24219 / r24220; double r24222 = fma(r24212, r24213, r24221); double r24223 = cos(r24222); double r24224 = r24210 * r24223; return r24224; } 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 r24225, r24226, r24227, r24228, r24229, r24230, r24231, r24232, r24233, r24234, r24235, r24236, r24237, r24238; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init_set_str(r24225, "2", 10, MPFR_RNDN); mpfr_init(r24226); mpfr_init(r24227); mpfr_init_set_str(r24228, "3", 10, MPFR_RNDN); mpfr_init(r24229); mpfr_init(r24230); mpfr_init(r24231); mpfr_init(r24232); mpfr_init(r24233); mpfr_init(r24234); mpfr_init(r24235); mpfr_init(r24236); mpfr_init(r24237); mpfr_init(r24238); } double f_im(double g, double h) { ; mpfr_const_pi(r24226, MPFR_RNDN); mpfr_mul(r24227, r24225, r24226, MPFR_RNDN); ; mpfr_div(r24229, r24227, r24228, MPFR_RNDN); mpfr_set_d(r24230, g, MPFR_RNDN); mpfr_neg(r24231, r24230, MPFR_RNDN); mpfr_set_d(r24232, h, MPFR_RNDN); mpfr_div(r24233, r24231, r24232, MPFR_RNDN); mpfr_acos(r24234, r24233, MPFR_RNDN); mpfr_div(r24235, r24234, r24228, MPFR_RNDN); mpfr_add(r24236, r24229, r24235, MPFR_RNDN); mpfr_cos(r24237, r24236, MPFR_RNDN); mpfr_mul(r24238, r24225, r24237, MPFR_RNDN); return mpfr_get_d(r24238, MPFR_RNDN); } static mpfr_t r24239, r24240, r24241, r24242, r24243, r24244, r24245, r24246, r24247, r24248, r24249, r24250, r24251, r24252, r24253; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init_set_str(r24239, "2", 10, MPFR_RNDN); mpfr_init_set_str(r24240, "3", 10, MPFR_RNDN); mpfr_init(r24241); mpfr_init(r24242); mpfr_init(r24243); mpfr_init(r24244); mpfr_init(r24245); mpfr_init(r24246); mpfr_init(r24247); mpfr_init(r24248); mpfr_init(r24249); mpfr_init(r24250); mpfr_init(r24251); mpfr_init(r24252); mpfr_init(r24253); } double f_fm(double g, double h) { ; ; mpfr_div(r24241, r24239, r24240, MPFR_RNDN); mpfr_const_pi(r24242, MPFR_RNDN); mpfr_set_d(r24243, g, MPFR_RNDN); mpfr_set_d(r24244, h, MPFR_RNDN); mpfr_div(r24245, r24243, r24244, MPFR_RNDN); mpfr_neg(r24246, r24245, MPFR_RNDN); mpfr_acos(r24247, r24246, MPFR_RNDN); mpfr_sqrt(r24248, r24247, MPFR_RNDN); mpfr_div(r24249, r24240, r24248, MPFR_RNDN); mpfr_div(r24250, r24248, r24249, MPFR_RNDN); mpfr_fma(r24251, r24241, r24242, r24250, MPFR_RNDN); mpfr_cos(r24252, r24251, MPFR_RNDN); mpfr_mul(r24253, r24239, r24252, MPFR_RNDN); return mpfr_get_d(r24253, MPFR_RNDN); } static mpfr_t r24254, r24255, r24256, r24257, r24258, r24259, r24260, r24261, r24262, r24263, r24264, r24265, r24266, r24267, r24268; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init_set_str(r24254, "2", 10, MPFR_RNDN); mpfr_init_set_str(r24255, "3", 10, MPFR_RNDN); mpfr_init(r24256); mpfr_init(r24257); mpfr_init(r24258); mpfr_init(r24259); mpfr_init(r24260); mpfr_init(r24261); mpfr_init(r24262); mpfr_init(r24263); mpfr_init(r24264); mpfr_init(r24265); mpfr_init(r24266); mpfr_init(r24267); mpfr_init(r24268); } double f_dm(double g, double h) { ; ; mpfr_div(r24256, r24254, r24255, MPFR_RNDN); mpfr_const_pi(r24257, MPFR_RNDN); mpfr_set_d(r24258, g, MPFR_RNDN); mpfr_set_d(r24259, h, MPFR_RNDN); mpfr_div(r24260, r24258, r24259, MPFR_RNDN); mpfr_neg(r24261, r24260, MPFR_RNDN); mpfr_acos(r24262, r24261, MPFR_RNDN); mpfr_sqrt(r24263, r24262, MPFR_RNDN); mpfr_div(r24264, r24255, r24263, MPFR_RNDN); mpfr_div(r24265, r24263, r24264, MPFR_RNDN); mpfr_fma(r24266, r24256, r24257, r24265, MPFR_RNDN); mpfr_cos(r24267, r24266, MPFR_RNDN); mpfr_mul(r24268, r24254, r24267, MPFR_RNDN); return mpfr_get_d(r24268, MPFR_RNDN); }