#include #include #include #include #include char *name = "Quadratic roots, full range"; double f_if(float a, float b, float c) { float r21263 = b; float r21264 = -r21263; float r21265 = r21263 * r21263; float r21266 = 4; float r21267 = a; float r21268 = r21266 * r21267; float r21269 = c; float r21270 = r21268 * r21269; float r21271 = r21265 - r21270; float r21272 = sqrt(r21271); float r21273 = r21264 + r21272; float r21274 = 2; float r21275 = r21274 * r21267; float r21276 = r21273 / r21275; return r21276; } double f_id(double a, double b, double c) { double r21277 = b; double r21278 = -r21277; double r21279 = r21277 * r21277; double r21280 = 4; double r21281 = a; double r21282 = r21280 * r21281; double r21283 = c; double r21284 = r21282 * r21283; double r21285 = r21279 - r21284; double r21286 = sqrt(r21285); double r21287 = r21278 + r21286; double r21288 = 2; double r21289 = r21288 * r21281; double r21290 = r21287 / r21289; return r21290; } double f_of(float a, float b, float c) { float r21291 = b; float r21292 = -r21291; float r21293 = -5.147683688324792e+99; bool r21294 = r21292 <= r21293; float r21295 = c; float r21296 = 2; float r21297 = r21295 / r21296; float r21298 = r21297 / r21296; float r21299 = 4; float r21300 = r21298 * r21299; float r21301 = a; float r21302 = r21291 / r21295; float r21303 = r21301 / r21302; float r21304 = r21303 - r21291; float r21305 = r21300 / r21304; float r21306 = 1.283865567620366e-259; bool r21307 = r21292 <= r21306; float r21308 = 1; float r21309 = r21308 / r21296; float r21310 = r21295 * r21299; float r21311 = r21291 * r21291; float r21312 = r21299 * r21301; float r21313 = r21295 * r21312; float r21314 = r21311 - r21313; float r21315 = sqrt(r21314); float r21316 = r21292 - r21315; float r21317 = r21310 / r21316; float r21318 = r21309 * r21317; float r21319 = 5.212416467940643e+55; bool r21320 = r21292 <= r21319; float r21321 = r21312 * r21295; float r21322 = r21311 - r21321; float r21323 = sqrt(r21322); float r21324 = r21292 + r21323; float r21325 = r21296 * r21301; float r21326 = r21308 / r21325; float r21327 = r21324 * r21326; float r21328 = r21295 / r21291; float r21329 = r21291 / r21301; float r21330 = r21328 - r21329; float r21331 = r21320 ? r21327 : r21330; float r21332 = r21307 ? r21318 : r21331; float r21333 = r21294 ? r21305 : r21332; return r21333; } double f_od(double a, double b, double c) { double r21334 = b; double r21335 = -r21334; double r21336 = -5.147683688324792e+99; bool r21337 = r21335 <= r21336; double r21338 = c; double r21339 = 2; double r21340 = r21338 / r21339; double r21341 = r21340 / r21339; double r21342 = 4; double r21343 = r21341 * r21342; double r21344 = a; double r21345 = r21334 / r21338; double r21346 = r21344 / r21345; double r21347 = r21346 - r21334; double r21348 = r21343 / r21347; double r21349 = 1.283865567620366e-259; bool r21350 = r21335 <= r21349; double r21351 = 1; double r21352 = r21351 / r21339; double r21353 = r21338 * r21342; double r21354 = r21334 * r21334; double r21355 = r21342 * r21344; double r21356 = r21338 * r21355; double r21357 = r21354 - r21356; double r21358 = sqrt(r21357); double r21359 = r21335 - r21358; double r21360 = r21353 / r21359; double r21361 = r21352 * r21360; double r21362 = 5.212416467940643e+55; bool r21363 = r21335 <= r21362; double r21364 = r21355 * r21338; double r21365 = r21354 - r21364; double r21366 = sqrt(r21365); double r21367 = r21335 + r21366; double r21368 = r21339 * r21344; double r21369 = r21351 / r21368; double r21370 = r21367 * r21369; double r21371 = r21338 / r21334; double r21372 = r21334 / r21344; double r21373 = r21371 - r21372; double r21374 = r21363 ? r21370 : r21373; double r21375 = r21350 ? r21361 : r21374; double r21376 = r21337 ? r21348 : r21375; return r21376; } 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 r21377, r21378, r21379, r21380, r21381, r21382, r21383, r21384, r21385, r21386, r21387, r21388, r21389, r21390; void setup_mpfr_f_im() { mpfr_set_default_prec(3472); mpfr_init(r21377); mpfr_init(r21378); mpfr_init(r21379); mpfr_init_set_str(r21380, "4", 10, MPFR_RNDN); mpfr_init(r21381); mpfr_init(r21382); mpfr_init(r21383); mpfr_init(r21384); mpfr_init(r21385); mpfr_init(r21386); mpfr_init(r21387); mpfr_init_set_str(r21388, "2", 10, MPFR_RNDN); mpfr_init(r21389); mpfr_init(r21390); } double f_im(double a, double b, double c) { mpfr_set_d(r21377, b, MPFR_RNDN); mpfr_neg(r21378, r21377, MPFR_RNDN); mpfr_mul(r21379, r21377, r21377, MPFR_RNDN); ; mpfr_set_d(r21381, a, MPFR_RNDN); mpfr_mul(r21382, r21380, r21381, MPFR_RNDN); mpfr_set_d(r21383, c, MPFR_RNDN); mpfr_mul(r21384, r21382, r21383, MPFR_RNDN); mpfr_sub(r21385, r21379, r21384, MPFR_RNDN); mpfr_sqrt(r21386, r21385, MPFR_RNDN); mpfr_add(r21387, r21378, r21386, MPFR_RNDN); ; mpfr_mul(r21389, r21388, r21381, MPFR_RNDN); mpfr_div(r21390, r21387, r21389, MPFR_RNDN); return mpfr_get_d(r21390, MPFR_RNDN); } static mpfr_t r21391, r21392, r21393, r21394, r21395, r21396, r21397, r21398, r21399, r21400, r21401, r21402, r21403, r21404, r21405, r21406, r21407, r21408, r21409, r21410, r21411, r21412, r21413, r21414, r21415, r21416, r21417, r21418, r21419, r21420, r21421, r21422, r21423, r21424, r21425, r21426, r21427, r21428, r21429, r21430, r21431, r21432, r21433; void setup_mpfr_f_fm() { mpfr_set_default_prec(3472); mpfr_init(r21391); mpfr_init(r21392); mpfr_init_set_str(r21393, "-5.147683688324792e+99", 10, MPFR_RNDN); mpfr_init(r21394); mpfr_init(r21395); mpfr_init_set_str(r21396, "2", 10, MPFR_RNDN); mpfr_init(r21397); mpfr_init(r21398); mpfr_init_set_str(r21399, "4", 10, MPFR_RNDN); mpfr_init(r21400); mpfr_init(r21401); mpfr_init(r21402); mpfr_init(r21403); mpfr_init(r21404); mpfr_init(r21405); mpfr_init_set_str(r21406, "1.283865567620366e-259", 10, MPFR_RNDN); mpfr_init(r21407); mpfr_init_set_str(r21408, "1", 10, MPFR_RNDN); mpfr_init(r21409); mpfr_init(r21410); mpfr_init(r21411); mpfr_init(r21412); mpfr_init(r21413); mpfr_init(r21414); mpfr_init(r21415); mpfr_init(r21416); mpfr_init(r21417); mpfr_init(r21418); mpfr_init_set_str(r21419, "5.212416467940643e+55", 10, MPFR_RNDN); mpfr_init(r21420); mpfr_init(r21421); mpfr_init(r21422); mpfr_init(r21423); mpfr_init(r21424); mpfr_init(r21425); mpfr_init(r21426); mpfr_init(r21427); mpfr_init(r21428); mpfr_init(r21429); mpfr_init(r21430); mpfr_init(r21431); mpfr_init(r21432); mpfr_init(r21433); } double f_fm(double a, double b, double c) { mpfr_set_d(r21391, b, MPFR_RNDN); mpfr_neg(r21392, r21391, MPFR_RNDN); ; mpfr_set_si(r21394, mpfr_cmp(r21392, r21393) <= 0, MPFR_RNDN); mpfr_set_d(r21395, c, MPFR_RNDN); ; mpfr_div(r21397, r21395, r21396, MPFR_RNDN); mpfr_div(r21398, r21397, r21396, MPFR_RNDN); ; mpfr_mul(r21400, r21398, r21399, MPFR_RNDN); mpfr_set_d(r21401, a, MPFR_RNDN); mpfr_div(r21402, r21391, r21395, MPFR_RNDN); mpfr_div(r21403, r21401, r21402, MPFR_RNDN); mpfr_sub(r21404, r21403, r21391, MPFR_RNDN); mpfr_div(r21405, r21400, r21404, MPFR_RNDN); ; mpfr_set_si(r21407, mpfr_cmp(r21392, r21406) <= 0, MPFR_RNDN); ; mpfr_div(r21409, r21408, r21396, MPFR_RNDN); mpfr_mul(r21410, r21395, r21399, MPFR_RNDN); mpfr_mul(r21411, r21391, r21391, MPFR_RNDN); mpfr_mul(r21412, r21399, r21401, MPFR_RNDN); mpfr_mul(r21413, r21395, r21412, MPFR_RNDN); mpfr_sub(r21414, r21411, r21413, MPFR_RNDN); mpfr_sqrt(r21415, r21414, MPFR_RNDN); mpfr_sub(r21416, r21392, r21415, MPFR_RNDN); mpfr_div(r21417, r21410, r21416, MPFR_RNDN); mpfr_mul(r21418, r21409, r21417, MPFR_RNDN); ; mpfr_set_si(r21420, mpfr_cmp(r21392, r21419) <= 0, MPFR_RNDN); mpfr_mul(r21421, r21412, r21395, MPFR_RNDN); mpfr_sub(r21422, r21411, r21421, MPFR_RNDN); mpfr_sqrt(r21423, r21422, MPFR_RNDN); mpfr_add(r21424, r21392, r21423, MPFR_RNDN); mpfr_mul(r21425, r21396, r21401, MPFR_RNDN); mpfr_div(r21426, r21408, r21425, MPFR_RNDN); mpfr_mul(r21427, r21424, r21426, MPFR_RNDN); mpfr_div(r21428, r21395, r21391, MPFR_RNDN); mpfr_div(r21429, r21391, r21401, MPFR_RNDN); mpfr_sub(r21430, r21428, r21429, MPFR_RNDN); if (mpfr_get_si(r21420, MPFR_RNDN)) { mpfr_set(r21431, r21427, MPFR_RNDN); } else { mpfr_set(r21431, r21430, MPFR_RNDN); }; if (mpfr_get_si(r21407, MPFR_RNDN)) { mpfr_set(r21432, r21418, MPFR_RNDN); } else { mpfr_set(r21432, r21431, MPFR_RNDN); }; if (mpfr_get_si(r21394, MPFR_RNDN)) { mpfr_set(r21433, r21405, MPFR_RNDN); } else { mpfr_set(r21433, r21432, MPFR_RNDN); }; return mpfr_get_d(r21433, MPFR_RNDN); } static mpfr_t r21434, r21435, r21436, r21437, r21438, r21439, r21440, r21441, r21442, r21443, r21444, r21445, r21446, r21447, r21448, r21449, r21450, r21451, r21452, r21453, r21454, r21455, r21456, r21457, r21458, r21459, r21460, r21461, r21462, r21463, r21464, r21465, r21466, r21467, r21468, r21469, r21470, r21471, r21472, r21473, r21474, r21475, r21476; void setup_mpfr_f_dm() { mpfr_set_default_prec(3472); mpfr_init(r21434); mpfr_init(r21435); mpfr_init_set_str(r21436, "-5.147683688324792e+99", 10, MPFR_RNDN); mpfr_init(r21437); mpfr_init(r21438); mpfr_init_set_str(r21439, "2", 10, MPFR_RNDN); mpfr_init(r21440); mpfr_init(r21441); mpfr_init_set_str(r21442, "4", 10, MPFR_RNDN); mpfr_init(r21443); mpfr_init(r21444); mpfr_init(r21445); mpfr_init(r21446); mpfr_init(r21447); mpfr_init(r21448); mpfr_init_set_str(r21449, "1.283865567620366e-259", 10, MPFR_RNDN); mpfr_init(r21450); mpfr_init_set_str(r21451, "1", 10, MPFR_RNDN); mpfr_init(r21452); mpfr_init(r21453); mpfr_init(r21454); mpfr_init(r21455); mpfr_init(r21456); mpfr_init(r21457); mpfr_init(r21458); mpfr_init(r21459); mpfr_init(r21460); mpfr_init(r21461); mpfr_init_set_str(r21462, "5.212416467940643e+55", 10, MPFR_RNDN); mpfr_init(r21463); mpfr_init(r21464); mpfr_init(r21465); mpfr_init(r21466); mpfr_init(r21467); mpfr_init(r21468); mpfr_init(r21469); mpfr_init(r21470); mpfr_init(r21471); mpfr_init(r21472); mpfr_init(r21473); mpfr_init(r21474); mpfr_init(r21475); mpfr_init(r21476); } double f_dm(double a, double b, double c) { mpfr_set_d(r21434, b, MPFR_RNDN); mpfr_neg(r21435, r21434, MPFR_RNDN); ; mpfr_set_si(r21437, mpfr_cmp(r21435, r21436) <= 0, MPFR_RNDN); mpfr_set_d(r21438, c, MPFR_RNDN); ; mpfr_div(r21440, r21438, r21439, MPFR_RNDN); mpfr_div(r21441, r21440, r21439, MPFR_RNDN); ; mpfr_mul(r21443, r21441, r21442, MPFR_RNDN); mpfr_set_d(r21444, a, MPFR_RNDN); mpfr_div(r21445, r21434, r21438, MPFR_RNDN); mpfr_div(r21446, r21444, r21445, MPFR_RNDN); mpfr_sub(r21447, r21446, r21434, MPFR_RNDN); mpfr_div(r21448, r21443, r21447, MPFR_RNDN); ; mpfr_set_si(r21450, mpfr_cmp(r21435, r21449) <= 0, MPFR_RNDN); ; mpfr_div(r21452, r21451, r21439, MPFR_RNDN); mpfr_mul(r21453, r21438, r21442, MPFR_RNDN); mpfr_mul(r21454, r21434, r21434, MPFR_RNDN); mpfr_mul(r21455, r21442, r21444, MPFR_RNDN); mpfr_mul(r21456, r21438, r21455, MPFR_RNDN); mpfr_sub(r21457, r21454, r21456, MPFR_RNDN); mpfr_sqrt(r21458, r21457, MPFR_RNDN); mpfr_sub(r21459, r21435, r21458, MPFR_RNDN); mpfr_div(r21460, r21453, r21459, MPFR_RNDN); mpfr_mul(r21461, r21452, r21460, MPFR_RNDN); ; mpfr_set_si(r21463, mpfr_cmp(r21435, r21462) <= 0, MPFR_RNDN); mpfr_mul(r21464, r21455, r21438, MPFR_RNDN); mpfr_sub(r21465, r21454, r21464, MPFR_RNDN); mpfr_sqrt(r21466, r21465, MPFR_RNDN); mpfr_add(r21467, r21435, r21466, MPFR_RNDN); mpfr_mul(r21468, r21439, r21444, MPFR_RNDN); mpfr_div(r21469, r21451, r21468, MPFR_RNDN); mpfr_mul(r21470, r21467, r21469, MPFR_RNDN); mpfr_div(r21471, r21438, r21434, MPFR_RNDN); mpfr_div(r21472, r21434, r21444, MPFR_RNDN); mpfr_sub(r21473, r21471, r21472, MPFR_RNDN); if (mpfr_get_si(r21463, MPFR_RNDN)) { mpfr_set(r21474, r21470, MPFR_RNDN); } else { mpfr_set(r21474, r21473, MPFR_RNDN); }; if (mpfr_get_si(r21450, MPFR_RNDN)) { mpfr_set(r21475, r21461, MPFR_RNDN); } else { mpfr_set(r21475, r21474, MPFR_RNDN); }; if (mpfr_get_si(r21437, MPFR_RNDN)) { mpfr_set(r21476, r21448, MPFR_RNDN); } else { mpfr_set(r21476, r21475, MPFR_RNDN); }; return mpfr_get_d(r21476, MPFR_RNDN); }