#include #include #include #include #include char *name = "Harley's example"; double f_if(float c_p, float c_n, float t, float s) { float r24101 = 1; float r24102 = s; float r24103 = -r24102; float r24104 = exp(r24103); float r24105 = r24101 + r24104; float r24106 = r24101 / r24105; float r24107 = c_p; float r24108 = pow(r24106, r24107); float r24109 = r24101 - r24106; float r24110 = c_n; float r24111 = pow(r24109, r24110); float r24112 = r24108 * r24111; float r24113 = t; float r24114 = -r24113; float r24115 = exp(r24114); float r24116 = r24101 + r24115; float r24117 = r24101 / r24116; float r24118 = pow(r24117, r24107); float r24119 = r24101 - r24117; float r24120 = pow(r24119, r24110); float r24121 = r24118 * r24120; float r24122 = r24112 / r24121; return r24122; } double f_id(double c_p, double c_n, double t, double s) { double r24123 = 1; double r24124 = s; double r24125 = -r24124; double r24126 = exp(r24125); double r24127 = r24123 + r24126; double r24128 = r24123 / r24127; double r24129 = c_p; double r24130 = pow(r24128, r24129); double r24131 = r24123 - r24128; double r24132 = c_n; double r24133 = pow(r24131, r24132); double r24134 = r24130 * r24133; double r24135 = t; double r24136 = -r24135; double r24137 = exp(r24136); double r24138 = r24123 + r24137; double r24139 = r24123 / r24138; double r24140 = pow(r24139, r24129); double r24141 = r24123 - r24139; double r24142 = pow(r24141, r24132); double r24143 = r24140 * r24142; double r24144 = r24134 / r24143; return r24144; } double f_of(float c_p, float c_n, float t, float s) { float r24145 = c_n; float r24146 = 1; float r24147 = s; float r24148 = -r24147; float r24149 = exp(r24148); float r24150 = r24146 + r24149; float r24151 = r24146 / r24150; float r24152 = r24146 - r24151; float r24153 = log(r24152); float r24154 = c_p; float r24155 = t; float r24156 = -r24155; float r24157 = exp(r24156); float r24158 = log1p(r24157); float r24159 = r24154 * r24158; float r24160 = fma(r24145, r24153, r24159); float r24161 = r24157 + r24146; float r24162 = r24146 / r24161; float r24163 = r24146 - r24162; float r24164 = log(r24163); float r24165 = log1p(r24149); float r24166 = r24165 * r24154; float r24167 = fma(r24145, r24164, r24166); float r24168 = r24160 - r24167; float r24169 = exp(r24168); return r24169; } double f_od(double c_p, double c_n, double t, double s) { double r24170 = c_n; double r24171 = 1; double r24172 = s; double r24173 = -r24172; double r24174 = exp(r24173); double r24175 = r24171 + r24174; double r24176 = r24171 / r24175; double r24177 = r24171 - r24176; double r24178 = log(r24177); double r24179 = c_p; double r24180 = t; double r24181 = -r24180; double r24182 = exp(r24181); double r24183 = log1p(r24182); double r24184 = r24179 * r24183; double r24185 = fma(r24170, r24178, r24184); double r24186 = r24182 + r24171; double r24187 = r24171 / r24186; double r24188 = r24171 - r24187; double r24189 = log(r24188); double r24190 = log1p(r24174); double r24191 = r24190 * r24179; double r24192 = fma(r24170, r24189, r24191); double r24193 = r24185 - r24192; double r24194 = exp(r24193); return r24194; } 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 r24195, r24196, r24197, r24198, r24199, r24200, r24201, r24202, r24203, r24204, r24205, r24206, r24207, r24208, r24209, r24210, r24211, r24212, r24213, r24214, r24215, r24216; void setup_mpfr_f_im() { mpfr_set_default_prec(1936); mpfr_init_set_str(r24195, "1", 10, MPFR_RNDN); mpfr_init(r24196); mpfr_init(r24197); mpfr_init(r24198); mpfr_init(r24199); mpfr_init(r24200); mpfr_init(r24201); mpfr_init(r24202); mpfr_init(r24203); mpfr_init(r24204); mpfr_init(r24205); mpfr_init(r24206); mpfr_init(r24207); mpfr_init(r24208); mpfr_init(r24209); mpfr_init(r24210); mpfr_init(r24211); mpfr_init(r24212); mpfr_init(r24213); mpfr_init(r24214); mpfr_init(r24215); mpfr_init(r24216); } double f_im(double c_p, double c_n, double t, double s) { ; mpfr_set_d(r24196, s, MPFR_RNDN); mpfr_neg(r24197, r24196, MPFR_RNDN); mpfr_exp(r24198, r24197, MPFR_RNDN); mpfr_add(r24199, r24195, r24198, MPFR_RNDN); mpfr_div(r24200, r24195, r24199, MPFR_RNDN); mpfr_set_d(r24201, c_p, MPFR_RNDN); mpfr_pow(r24202, r24200, r24201, MPFR_RNDN); mpfr_sub(r24203, r24195, r24200, MPFR_RNDN); mpfr_set_d(r24204, c_n, MPFR_RNDN); mpfr_pow(r24205, r24203, r24204, MPFR_RNDN); mpfr_mul(r24206, r24202, r24205, MPFR_RNDN); mpfr_set_d(r24207, t, MPFR_RNDN); mpfr_neg(r24208, r24207, MPFR_RNDN); mpfr_exp(r24209, r24208, MPFR_RNDN); mpfr_add(r24210, r24195, r24209, MPFR_RNDN); mpfr_div(r24211, r24195, r24210, MPFR_RNDN); mpfr_pow(r24212, r24211, r24201, MPFR_RNDN); mpfr_sub(r24213, r24195, r24211, MPFR_RNDN); mpfr_pow(r24214, r24213, r24204, MPFR_RNDN); mpfr_mul(r24215, r24212, r24214, MPFR_RNDN); mpfr_div(r24216, r24206, r24215, MPFR_RNDN); return mpfr_get_d(r24216, MPFR_RNDN); } static mpfr_t r24217, r24218, r24219, r24220, r24221, r24222, r24223, r24224, r24225, r24226, r24227, r24228, r24229, r24230, r24231, r24232, r24233, r24234, r24235, r24236, r24237, r24238, r24239, r24240, r24241; void setup_mpfr_f_fm() { mpfr_set_default_prec(1936); mpfr_init(r24217); mpfr_init_set_str(r24218, "1", 10, MPFR_RNDN); 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); mpfr_init(r24228); 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); mpfr_init(r24239); mpfr_init(r24240); mpfr_init(r24241); } double f_fm(double c_p, double c_n, double t, double s) { mpfr_set_d(r24217, c_n, MPFR_RNDN); ; mpfr_set_d(r24219, s, MPFR_RNDN); mpfr_neg(r24220, r24219, MPFR_RNDN); mpfr_exp(r24221, r24220, MPFR_RNDN); mpfr_add(r24222, r24218, r24221, MPFR_RNDN); mpfr_div(r24223, r24218, r24222, MPFR_RNDN); mpfr_sub(r24224, r24218, r24223, MPFR_RNDN); mpfr_log(r24225, r24224, MPFR_RNDN); mpfr_set_d(r24226, c_p, MPFR_RNDN); mpfr_set_d(r24227, t, MPFR_RNDN); mpfr_neg(r24228, r24227, MPFR_RNDN); mpfr_exp(r24229, r24228, MPFR_RNDN); mpfr_log1p(r24230, r24229, MPFR_RNDN); mpfr_mul(r24231, r24226, r24230, MPFR_RNDN); mpfr_fma(r24232, r24217, r24225, r24231, MPFR_RNDN); mpfr_add(r24233, r24229, r24218, MPFR_RNDN); mpfr_div(r24234, r24218, r24233, MPFR_RNDN); mpfr_sub(r24235, r24218, r24234, MPFR_RNDN); mpfr_log(r24236, r24235, MPFR_RNDN); mpfr_log1p(r24237, r24221, MPFR_RNDN); mpfr_mul(r24238, r24237, r24226, MPFR_RNDN); mpfr_fma(r24239, r24217, r24236, r24238, MPFR_RNDN); mpfr_sub(r24240, r24232, r24239, MPFR_RNDN); mpfr_exp(r24241, r24240, MPFR_RNDN); return mpfr_get_d(r24241, MPFR_RNDN); } static mpfr_t r24242, r24243, r24244, r24245, r24246, r24247, r24248, r24249, r24250, r24251, r24252, r24253, r24254, r24255, r24256, r24257, r24258, r24259, r24260, r24261, r24262, r24263, r24264, r24265, r24266; void setup_mpfr_f_dm() { mpfr_set_default_prec(1936); mpfr_init(r24242); mpfr_init_set_str(r24243, "1", 10, MPFR_RNDN); 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); mpfr_init(r24254); mpfr_init(r24255); 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); } double f_dm(double c_p, double c_n, double t, double s) { mpfr_set_d(r24242, c_n, MPFR_RNDN); ; mpfr_set_d(r24244, s, MPFR_RNDN); mpfr_neg(r24245, r24244, MPFR_RNDN); mpfr_exp(r24246, r24245, MPFR_RNDN); mpfr_add(r24247, r24243, r24246, MPFR_RNDN); mpfr_div(r24248, r24243, r24247, MPFR_RNDN); mpfr_sub(r24249, r24243, r24248, MPFR_RNDN); mpfr_log(r24250, r24249, MPFR_RNDN); mpfr_set_d(r24251, c_p, MPFR_RNDN); mpfr_set_d(r24252, t, MPFR_RNDN); mpfr_neg(r24253, r24252, MPFR_RNDN); mpfr_exp(r24254, r24253, MPFR_RNDN); mpfr_log1p(r24255, r24254, MPFR_RNDN); mpfr_mul(r24256, r24251, r24255, MPFR_RNDN); mpfr_fma(r24257, r24242, r24250, r24256, MPFR_RNDN); mpfr_add(r24258, r24254, r24243, MPFR_RNDN); mpfr_div(r24259, r24243, r24258, MPFR_RNDN); mpfr_sub(r24260, r24243, r24259, MPFR_RNDN); mpfr_log(r24261, r24260, MPFR_RNDN); mpfr_log1p(r24262, r24246, MPFR_RNDN); mpfr_mul(r24263, r24262, r24251, MPFR_RNDN); mpfr_fma(r24264, r24242, r24261, r24263, MPFR_RNDN); mpfr_sub(r24265, r24257, r24264, MPFR_RNDN); mpfr_exp(r24266, r24265, MPFR_RNDN); return mpfr_get_d(r24266, MPFR_RNDN); }