#include #include #include #include #include char *name = "quadm (p42, negative)"; double f_if(float a, float b, float c) { float r26156 = b; float r26157 = -r26156; float r26158 = r26156 * r26156; float r26159 = 4; float r26160 = a; float r26161 = c; float r26162 = r26160 * r26161; float r26163 = r26159 * r26162; float r26164 = r26158 - r26163; float r26165 = sqrt(r26164); float r26166 = r26157 - r26165; float r26167 = 2; float r26168 = r26167 * r26160; float r26169 = r26166 / r26168; return r26169; } double f_id(double a, double b, double c) { double r26170 = b; double r26171 = -r26170; double r26172 = r26170 * r26170; double r26173 = 4; double r26174 = a; double r26175 = c; double r26176 = r26174 * r26175; double r26177 = r26173 * r26176; double r26178 = r26172 - r26177; double r26179 = sqrt(r26178); double r26180 = r26171 - r26179; double r26181 = 2; double r26182 = r26181 * r26174; double r26183 = r26180 / r26182; return r26183; } double f_of(float a, float b, float c) { float r26184 = b; float r26185 = -2.3676157084219913e+111; bool r26186 = r26184 <= r26185; float r26187 = 4; float r26188 = 2; float r26189 = r26187 / r26188; float r26190 = c; float r26191 = r26189 * r26190; float r26192 = r26190 / r26184; float r26193 = a; float r26194 = r26193 * r26188; float r26195 = r26192 * r26194; float r26196 = r26184 + r26184; float r26197 = r26195 - r26196; float r26198 = r26191 / r26197; float r26199 = -9.377661527054922e-288; bool r26200 = r26184 <= r26199; float r26201 = 1; float r26202 = r26201 / r26188; float r26203 = r26187 * r26190; float r26204 = r26184 * r26184; float r26205 = r26187 * r26193; float r26206 = r26205 * r26190; float r26207 = r26204 - r26206; float r26208 = sqrt(r26207); float r26209 = r26208 - r26184; float r26210 = r26203 / r26209; float r26211 = r26202 * r26210; float r26212 = 7.574837362105014e-10; bool r26213 = r26184 <= r26212; float r26214 = -r26184; float r26215 = r26193 * r26190; float r26216 = r26187 * r26215; float r26217 = r26204 - r26216; float r26218 = sqrt(r26217); float r26219 = r26214 - r26218; float r26220 = r26188 * r26193; float r26221 = r26201 / r26220; float r26222 = r26219 * r26221; float r26223 = r26214 / r26193; float r26224 = r26213 ? r26222 : r26223; float r26225 = r26200 ? r26211 : r26224; float r26226 = r26186 ? r26198 : r26225; return r26226; } double f_od(double a, double b, double c) { double r26227 = b; double r26228 = -2.3676157084219913e+111; bool r26229 = r26227 <= r26228; double r26230 = 4; double r26231 = 2; double r26232 = r26230 / r26231; double r26233 = c; double r26234 = r26232 * r26233; double r26235 = r26233 / r26227; double r26236 = a; double r26237 = r26236 * r26231; double r26238 = r26235 * r26237; double r26239 = r26227 + r26227; double r26240 = r26238 - r26239; double r26241 = r26234 / r26240; double r26242 = -9.377661527054922e-288; bool r26243 = r26227 <= r26242; double r26244 = 1; double r26245 = r26244 / r26231; double r26246 = r26230 * r26233; double r26247 = r26227 * r26227; double r26248 = r26230 * r26236; double r26249 = r26248 * r26233; double r26250 = r26247 - r26249; double r26251 = sqrt(r26250); double r26252 = r26251 - r26227; double r26253 = r26246 / r26252; double r26254 = r26245 * r26253; double r26255 = 7.574837362105014e-10; bool r26256 = r26227 <= r26255; double r26257 = -r26227; double r26258 = r26236 * r26233; double r26259 = r26230 * r26258; double r26260 = r26247 - r26259; double r26261 = sqrt(r26260); double r26262 = r26257 - r26261; double r26263 = r26231 * r26236; double r26264 = r26244 / r26263; double r26265 = r26262 * r26264; double r26266 = r26257 / r26236; double r26267 = r26256 ? r26265 : r26266; double r26268 = r26243 ? r26254 : r26267; double r26269 = r26229 ? r26241 : r26268; return r26269; } 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 r26270, r26271, r26272, r26273, r26274, r26275, r26276, r26277, r26278, r26279, r26280, r26281, r26282, r26283; void setup_mpfr_f_im() { mpfr_set_default_prec(3408); mpfr_init(r26270); mpfr_init(r26271); mpfr_init(r26272); mpfr_init_set_str(r26273, "4", 10, MPFR_RNDN); mpfr_init(r26274); mpfr_init(r26275); mpfr_init(r26276); mpfr_init(r26277); mpfr_init(r26278); mpfr_init(r26279); mpfr_init(r26280); mpfr_init_set_str(r26281, "2", 10, MPFR_RNDN); mpfr_init(r26282); mpfr_init(r26283); } double f_im(double a, double b, double c) { mpfr_set_d(r26270, b, MPFR_RNDN); mpfr_neg(r26271, r26270, MPFR_RNDN); mpfr_mul(r26272, r26270, r26270, MPFR_RNDN); ; mpfr_set_d(r26274, a, MPFR_RNDN); mpfr_set_d(r26275, c, MPFR_RNDN); mpfr_mul(r26276, r26274, r26275, MPFR_RNDN); mpfr_mul(r26277, r26273, r26276, MPFR_RNDN); mpfr_sub(r26278, r26272, r26277, MPFR_RNDN); mpfr_sqrt(r26279, r26278, MPFR_RNDN); mpfr_sub(r26280, r26271, r26279, MPFR_RNDN); ; mpfr_mul(r26282, r26281, r26274, MPFR_RNDN); mpfr_div(r26283, r26280, r26282, MPFR_RNDN); return mpfr_get_d(r26283, MPFR_RNDN); } static mpfr_t r26284, r26285, r26286, r26287, r26288, r26289, r26290, r26291, r26292, r26293, r26294, r26295, r26296, r26297, r26298, r26299, r26300, r26301, r26302, r26303, r26304, r26305, r26306, r26307, r26308, r26309, r26310, r26311, r26312, r26313, r26314, r26315, r26316, r26317, r26318, r26319, r26320, r26321, r26322, r26323, r26324, r26325, r26326; void setup_mpfr_f_fm() { mpfr_set_default_prec(3408); mpfr_init(r26284); mpfr_init_set_str(r26285, "-2.3676157084219913e+111", 10, MPFR_RNDN); mpfr_init(r26286); mpfr_init_set_str(r26287, "4", 10, MPFR_RNDN); mpfr_init_set_str(r26288, "2", 10, MPFR_RNDN); mpfr_init(r26289); mpfr_init(r26290); mpfr_init(r26291); mpfr_init(r26292); mpfr_init(r26293); mpfr_init(r26294); mpfr_init(r26295); mpfr_init(r26296); mpfr_init(r26297); mpfr_init(r26298); mpfr_init_set_str(r26299, "-9.377661527054922e-288", 10, MPFR_RNDN); mpfr_init(r26300); mpfr_init_set_str(r26301, "1", 10, MPFR_RNDN); mpfr_init(r26302); mpfr_init(r26303); mpfr_init(r26304); mpfr_init(r26305); mpfr_init(r26306); mpfr_init(r26307); mpfr_init(r26308); mpfr_init(r26309); mpfr_init(r26310); mpfr_init(r26311); mpfr_init_set_str(r26312, "7.574837362105014e-10", 10, MPFR_RNDN); mpfr_init(r26313); mpfr_init(r26314); mpfr_init(r26315); mpfr_init(r26316); mpfr_init(r26317); mpfr_init(r26318); mpfr_init(r26319); mpfr_init(r26320); mpfr_init(r26321); mpfr_init(r26322); mpfr_init(r26323); mpfr_init(r26324); mpfr_init(r26325); mpfr_init(r26326); } double f_fm(double a, double b, double c) { mpfr_set_d(r26284, b, MPFR_RNDN); ; mpfr_set_si(r26286, mpfr_cmp(r26284, r26285) <= 0, MPFR_RNDN); ; ; mpfr_div(r26289, r26287, r26288, MPFR_RNDN); mpfr_set_d(r26290, c, MPFR_RNDN); mpfr_mul(r26291, r26289, r26290, MPFR_RNDN); mpfr_div(r26292, r26290, r26284, MPFR_RNDN); mpfr_set_d(r26293, a, MPFR_RNDN); mpfr_mul(r26294, r26293, r26288, MPFR_RNDN); mpfr_mul(r26295, r26292, r26294, MPFR_RNDN); mpfr_add(r26296, r26284, r26284, MPFR_RNDN); mpfr_sub(r26297, r26295, r26296, MPFR_RNDN); mpfr_div(r26298, r26291, r26297, MPFR_RNDN); ; mpfr_set_si(r26300, mpfr_cmp(r26284, r26299) <= 0, MPFR_RNDN); ; mpfr_div(r26302, r26301, r26288, MPFR_RNDN); mpfr_mul(r26303, r26287, r26290, MPFR_RNDN); mpfr_mul(r26304, r26284, r26284, MPFR_RNDN); mpfr_mul(r26305, r26287, r26293, MPFR_RNDN); mpfr_mul(r26306, r26305, r26290, MPFR_RNDN); mpfr_sub(r26307, r26304, r26306, MPFR_RNDN); mpfr_sqrt(r26308, r26307, MPFR_RNDN); mpfr_sub(r26309, r26308, r26284, MPFR_RNDN); mpfr_div(r26310, r26303, r26309, MPFR_RNDN); mpfr_mul(r26311, r26302, r26310, MPFR_RNDN); ; mpfr_set_si(r26313, mpfr_cmp(r26284, r26312) <= 0, MPFR_RNDN); mpfr_neg(r26314, r26284, MPFR_RNDN); mpfr_mul(r26315, r26293, r26290, MPFR_RNDN); mpfr_mul(r26316, r26287, r26315, MPFR_RNDN); mpfr_sub(r26317, r26304, r26316, MPFR_RNDN); mpfr_sqrt(r26318, r26317, MPFR_RNDN); mpfr_sub(r26319, r26314, r26318, MPFR_RNDN); mpfr_mul(r26320, r26288, r26293, MPFR_RNDN); mpfr_div(r26321, r26301, r26320, MPFR_RNDN); mpfr_mul(r26322, r26319, r26321, MPFR_RNDN); mpfr_div(r26323, r26314, r26293, MPFR_RNDN); if (mpfr_get_si(r26313, MPFR_RNDN)) { mpfr_set(r26324, r26322, MPFR_RNDN); } else { mpfr_set(r26324, r26323, MPFR_RNDN); }; if (mpfr_get_si(r26300, MPFR_RNDN)) { mpfr_set(r26325, r26311, MPFR_RNDN); } else { mpfr_set(r26325, r26324, MPFR_RNDN); }; if (mpfr_get_si(r26286, MPFR_RNDN)) { mpfr_set(r26326, r26298, MPFR_RNDN); } else { mpfr_set(r26326, r26325, MPFR_RNDN); }; return mpfr_get_d(r26326, MPFR_RNDN); } static mpfr_t r26327, r26328, r26329, r26330, r26331, r26332, r26333, r26334, r26335, r26336, r26337, r26338, r26339, r26340, r26341, r26342, r26343, r26344, r26345, r26346, r26347, r26348, r26349, r26350, r26351, r26352, r26353, r26354, r26355, r26356, r26357, r26358, r26359, r26360, r26361, r26362, r26363, r26364, r26365, r26366, r26367, r26368, r26369; void setup_mpfr_f_dm() { mpfr_set_default_prec(3408); mpfr_init(r26327); mpfr_init_set_str(r26328, "-2.3676157084219913e+111", 10, MPFR_RNDN); mpfr_init(r26329); mpfr_init_set_str(r26330, "4", 10, MPFR_RNDN); mpfr_init_set_str(r26331, "2", 10, MPFR_RNDN); mpfr_init(r26332); mpfr_init(r26333); mpfr_init(r26334); mpfr_init(r26335); mpfr_init(r26336); mpfr_init(r26337); mpfr_init(r26338); mpfr_init(r26339); mpfr_init(r26340); mpfr_init(r26341); mpfr_init_set_str(r26342, "-9.377661527054922e-288", 10, MPFR_RNDN); mpfr_init(r26343); mpfr_init_set_str(r26344, "1", 10, MPFR_RNDN); mpfr_init(r26345); mpfr_init(r26346); mpfr_init(r26347); mpfr_init(r26348); mpfr_init(r26349); mpfr_init(r26350); mpfr_init(r26351); mpfr_init(r26352); mpfr_init(r26353); mpfr_init(r26354); mpfr_init_set_str(r26355, "7.574837362105014e-10", 10, MPFR_RNDN); mpfr_init(r26356); mpfr_init(r26357); mpfr_init(r26358); mpfr_init(r26359); mpfr_init(r26360); mpfr_init(r26361); mpfr_init(r26362); mpfr_init(r26363); mpfr_init(r26364); mpfr_init(r26365); mpfr_init(r26366); mpfr_init(r26367); mpfr_init(r26368); mpfr_init(r26369); } double f_dm(double a, double b, double c) { mpfr_set_d(r26327, b, MPFR_RNDN); ; mpfr_set_si(r26329, mpfr_cmp(r26327, r26328) <= 0, MPFR_RNDN); ; ; mpfr_div(r26332, r26330, r26331, MPFR_RNDN); mpfr_set_d(r26333, c, MPFR_RNDN); mpfr_mul(r26334, r26332, r26333, MPFR_RNDN); mpfr_div(r26335, r26333, r26327, MPFR_RNDN); mpfr_set_d(r26336, a, MPFR_RNDN); mpfr_mul(r26337, r26336, r26331, MPFR_RNDN); mpfr_mul(r26338, r26335, r26337, MPFR_RNDN); mpfr_add(r26339, r26327, r26327, MPFR_RNDN); mpfr_sub(r26340, r26338, r26339, MPFR_RNDN); mpfr_div(r26341, r26334, r26340, MPFR_RNDN); ; mpfr_set_si(r26343, mpfr_cmp(r26327, r26342) <= 0, MPFR_RNDN); ; mpfr_div(r26345, r26344, r26331, MPFR_RNDN); mpfr_mul(r26346, r26330, r26333, MPFR_RNDN); mpfr_mul(r26347, r26327, r26327, MPFR_RNDN); mpfr_mul(r26348, r26330, r26336, MPFR_RNDN); mpfr_mul(r26349, r26348, r26333, MPFR_RNDN); mpfr_sub(r26350, r26347, r26349, MPFR_RNDN); mpfr_sqrt(r26351, r26350, MPFR_RNDN); mpfr_sub(r26352, r26351, r26327, MPFR_RNDN); mpfr_div(r26353, r26346, r26352, MPFR_RNDN); mpfr_mul(r26354, r26345, r26353, MPFR_RNDN); ; mpfr_set_si(r26356, mpfr_cmp(r26327, r26355) <= 0, MPFR_RNDN); mpfr_neg(r26357, r26327, MPFR_RNDN); mpfr_mul(r26358, r26336, r26333, MPFR_RNDN); mpfr_mul(r26359, r26330, r26358, MPFR_RNDN); mpfr_sub(r26360, r26347, r26359, MPFR_RNDN); mpfr_sqrt(r26361, r26360, MPFR_RNDN); mpfr_sub(r26362, r26357, r26361, MPFR_RNDN); mpfr_mul(r26363, r26331, r26336, MPFR_RNDN); mpfr_div(r26364, r26344, r26363, MPFR_RNDN); mpfr_mul(r26365, r26362, r26364, MPFR_RNDN); mpfr_div(r26366, r26357, r26336, MPFR_RNDN); if (mpfr_get_si(r26356, MPFR_RNDN)) { mpfr_set(r26367, r26365, MPFR_RNDN); } else { mpfr_set(r26367, r26366, MPFR_RNDN); }; if (mpfr_get_si(r26343, MPFR_RNDN)) { mpfr_set(r26368, r26354, MPFR_RNDN); } else { mpfr_set(r26368, r26367, MPFR_RNDN); }; if (mpfr_get_si(r26329, MPFR_RNDN)) { mpfr_set(r26369, r26341, MPFR_RNDN); } else { mpfr_set(r26369, r26368, MPFR_RNDN); }; return mpfr_get_d(r26369, MPFR_RNDN); }