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