#include #include #include #include #include char *name = "NMSE problem 3.2.1, negative"; double f_if(float a, float b_2F2, float c) { float r15485 = b_2F2; float r15486 = -r15485; float r15487 = r15485 * r15485; float r15488 = a; float r15489 = c; float r15490 = r15488 * r15489; float r15491 = r15487 - r15490; float r15492 = sqrt(r15491); float r15493 = r15486 - r15492; float r15494 = r15493 / r15488; return r15494; } double f_id(double a, double b_2F2, double c) { double r15495 = b_2F2; double r15496 = -r15495; double r15497 = r15495 * r15495; double r15498 = a; double r15499 = c; double r15500 = r15498 * r15499; double r15501 = r15497 - r15500; double r15502 = sqrt(r15501); double r15503 = r15496 - r15502; double r15504 = r15503 / r15498; return r15504; } double f_of(float a, float b_2F2, float c) { float r15505 = b_2F2; float r15506 = -7.080805652591413e-28f; bool r15507 = r15505 <= r15506; float r15508 = c; float r15509 = 0.5f; float r15510 = r15509 * r15508; float r15511 = a; float r15512 = r15511 / r15505; float r15513 = r15510 * r15512; float r15514 = 2.0f; float r15515 = r15514 * r15505; float r15516 = r15513 - r15515; float r15517 = r15508 / r15516; float r15518 = -1.6753920190774815e-283f; bool r15519 = r15505 <= r15518; float r15520 = 1.0f; float r15521 = r15511 / r15520; float r15522 = -r15505; float r15523 = r15505 * r15505; float r15524 = r15511 * r15508; float r15525 = r15523 - r15524; float r15526 = sqrt(r15525); float r15527 = r15522 + r15526; float r15528 = r15508 / r15527; float r15529 = r15521 * r15528; float r15530 = r15529 / r15511; float r15531 = 2.2736054037680634e+124f; bool r15532 = r15505 <= r15531; float r15533 = r15522 / r15511; float r15534 = r15526 / r15511; float r15535 = r15533 - r15534; float r15536 = r15505 / r15508; float r15537 = r15509 / r15536; float r15538 = r15505 / r15511; float r15539 = r15538 * r15514; float r15540 = r15537 - r15539; float r15541 = r15532 ? r15535 : r15540; float r15542 = r15519 ? r15530 : r15541; float r15543 = r15507 ? r15517 : r15542; return r15543; } double f_od(double a, double b_2F2, double c) { double r15544 = b_2F2; double r15545 = -7.080805652591413e-28; bool r15546 = r15544 <= r15545; double r15547 = c; double r15548 = 0.5; double r15549 = r15548 * r15547; double r15550 = a; double r15551 = r15550 / r15544; double r15552 = r15549 * r15551; double r15553 = 2.0; double r15554 = r15553 * r15544; double r15555 = r15552 - r15554; double r15556 = r15547 / r15555; double r15557 = -1.6753920190774815e-283; bool r15558 = r15544 <= r15557; double r15559 = 1.0; double r15560 = r15550 / r15559; double r15561 = -r15544; double r15562 = r15544 * r15544; double r15563 = r15550 * r15547; double r15564 = r15562 - r15563; double r15565 = sqrt(r15564); double r15566 = r15561 + r15565; double r15567 = r15547 / r15566; double r15568 = r15560 * r15567; double r15569 = r15568 / r15550; double r15570 = 2.2736054037680634e+124; bool r15571 = r15544 <= r15570; double r15572 = r15561 / r15550; double r15573 = r15565 / r15550; double r15574 = r15572 - r15573; double r15575 = r15544 / r15547; double r15576 = r15548 / r15575; double r15577 = r15544 / r15550; double r15578 = r15577 * r15553; double r15579 = r15576 - r15578; double r15580 = r15571 ? r15574 : r15579; double r15581 = r15558 ? r15569 : r15580; double r15582 = r15546 ? r15556 : r15581; return r15582; } 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 r15583, r15584, r15585, r15586, r15587, r15588, r15589, r15590, r15591, r15592; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15583); mpfr_init(r15584); mpfr_init(r15585); mpfr_init(r15586); mpfr_init(r15587); mpfr_init(r15588); mpfr_init(r15589); mpfr_init(r15590); mpfr_init(r15591); mpfr_init(r15592); } double f_im(double a, double b_2F2, double c) { mpfr_set_d(r15583, b_2F2, MPFR_RNDN); mpfr_neg(r15584, r15583, MPFR_RNDN); mpfr_sqr(r15585, r15583, MPFR_RNDN); mpfr_set_d(r15586, a, MPFR_RNDN); mpfr_set_d(r15587, c, MPFR_RNDN); mpfr_mul(r15588, r15586, r15587, MPFR_RNDN); mpfr_sub(r15589, r15585, r15588, MPFR_RNDN); mpfr_sqrt(r15590, r15589, MPFR_RNDN); mpfr_sub(r15591, r15584, r15590, MPFR_RNDN); mpfr_div(r15592, r15591, r15586, MPFR_RNDN); return mpfr_get_d(r15592, MPFR_RNDN); } static mpfr_t r15593, r15594, r15595, r15596, r15597, r15598, r15599, r15600, r15601, r15602, r15603, r15604, r15605, r15606, r15607, r15608, r15609, r15610, r15611, r15612, r15613, r15614, r15615, r15616, r15617, r15618, r15619, r15620, r15621, r15622, r15623, r15624, r15625, r15626, r15627, r15628, r15629, r15630, r15631; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15593); mpfr_init_set_str(r15594, "-7.080805652591413e-28", 10, MPFR_RNDN); mpfr_init(r15595); mpfr_init(r15596); mpfr_init_set_str(r15597, "1/2", 10, MPFR_RNDN); mpfr_init(r15598); mpfr_init(r15599); mpfr_init(r15600); mpfr_init(r15601); mpfr_init_set_str(r15602, "2", 10, MPFR_RNDN); mpfr_init(r15603); mpfr_init(r15604); mpfr_init(r15605); mpfr_init_set_str(r15606, "-1.6753920190774815e-283", 10, MPFR_RNDN); mpfr_init(r15607); mpfr_init_set_str(r15608, "1", 10, MPFR_RNDN); mpfr_init(r15609); mpfr_init(r15610); mpfr_init(r15611); mpfr_init(r15612); mpfr_init(r15613); mpfr_init(r15614); mpfr_init(r15615); mpfr_init(r15616); mpfr_init(r15617); mpfr_init(r15618); mpfr_init_set_str(r15619, "2.2736054037680634e+124", 10, MPFR_RNDN); mpfr_init(r15620); mpfr_init(r15621); mpfr_init(r15622); mpfr_init(r15623); mpfr_init(r15624); mpfr_init(r15625); mpfr_init(r15626); mpfr_init(r15627); mpfr_init(r15628); mpfr_init(r15629); mpfr_init(r15630); mpfr_init(r15631); } double f_fm(double a, double b_2F2, double c) { mpfr_set_d(r15593, b_2F2, MPFR_RNDN); ; mpfr_set_si(r15595, mpfr_cmp(r15593, r15594) <= 0, MPFR_RNDN); mpfr_set_d(r15596, c, MPFR_RNDN); ; mpfr_mul(r15598, r15597, r15596, MPFR_RNDN); mpfr_set_d(r15599, a, MPFR_RNDN); mpfr_div(r15600, r15599, r15593, MPFR_RNDN); mpfr_mul(r15601, r15598, r15600, MPFR_RNDN); ; mpfr_mul(r15603, r15602, r15593, MPFR_RNDN); mpfr_sub(r15604, r15601, r15603, MPFR_RNDN); mpfr_div(r15605, r15596, r15604, MPFR_RNDN); ; mpfr_set_si(r15607, mpfr_cmp(r15593, r15606) <= 0, MPFR_RNDN); ; mpfr_div(r15609, r15599, r15608, MPFR_RNDN); mpfr_neg(r15610, r15593, MPFR_RNDN); mpfr_sqr(r15611, r15593, MPFR_RNDN); mpfr_mul(r15612, r15599, r15596, MPFR_RNDN); mpfr_sub(r15613, r15611, r15612, MPFR_RNDN); mpfr_sqrt(r15614, r15613, MPFR_RNDN); mpfr_add(r15615, r15610, r15614, MPFR_RNDN); mpfr_div(r15616, r15596, r15615, MPFR_RNDN); mpfr_mul(r15617, r15609, r15616, MPFR_RNDN); mpfr_div(r15618, r15617, r15599, MPFR_RNDN); ; mpfr_set_si(r15620, mpfr_cmp(r15593, r15619) <= 0, MPFR_RNDN); mpfr_div(r15621, r15610, r15599, MPFR_RNDN); mpfr_div(r15622, r15614, r15599, MPFR_RNDN); mpfr_sub(r15623, r15621, r15622, MPFR_RNDN); mpfr_div(r15624, r15593, r15596, MPFR_RNDN); mpfr_div(r15625, r15597, r15624, MPFR_RNDN); mpfr_div(r15626, r15593, r15599, MPFR_RNDN); mpfr_mul(r15627, r15626, r15602, MPFR_RNDN); mpfr_sub(r15628, r15625, r15627, MPFR_RNDN); if (mpfr_get_si(r15620, MPFR_RNDN)) { mpfr_set(r15629, r15623, MPFR_RNDN); } else { mpfr_set(r15629, r15628, MPFR_RNDN); }; if (mpfr_get_si(r15607, MPFR_RNDN)) { mpfr_set(r15630, r15618, MPFR_RNDN); } else { mpfr_set(r15630, r15629, MPFR_RNDN); }; if (mpfr_get_si(r15595, MPFR_RNDN)) { mpfr_set(r15631, r15605, MPFR_RNDN); } else { mpfr_set(r15631, r15630, MPFR_RNDN); }; return mpfr_get_d(r15631, MPFR_RNDN); } static mpfr_t r15632, r15633, r15634, r15635, r15636, r15637, r15638, r15639, r15640, r15641, r15642, r15643, r15644, r15645, r15646, r15647, r15648, r15649, r15650, r15651, r15652, r15653, r15654, r15655, r15656, r15657, r15658, r15659, r15660, r15661, r15662, r15663, r15664, r15665, r15666, r15667, r15668, r15669, r15670; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15632); mpfr_init_set_str(r15633, "-7.080805652591413e-28", 10, MPFR_RNDN); mpfr_init(r15634); mpfr_init(r15635); mpfr_init_set_str(r15636, "1/2", 10, MPFR_RNDN); mpfr_init(r15637); mpfr_init(r15638); mpfr_init(r15639); mpfr_init(r15640); mpfr_init_set_str(r15641, "2", 10, MPFR_RNDN); mpfr_init(r15642); mpfr_init(r15643); mpfr_init(r15644); mpfr_init_set_str(r15645, "-1.6753920190774815e-283", 10, MPFR_RNDN); mpfr_init(r15646); mpfr_init_set_str(r15647, "1", 10, MPFR_RNDN); mpfr_init(r15648); mpfr_init(r15649); mpfr_init(r15650); mpfr_init(r15651); mpfr_init(r15652); mpfr_init(r15653); mpfr_init(r15654); mpfr_init(r15655); mpfr_init(r15656); mpfr_init(r15657); mpfr_init_set_str(r15658, "2.2736054037680634e+124", 10, MPFR_RNDN); mpfr_init(r15659); mpfr_init(r15660); mpfr_init(r15661); mpfr_init(r15662); mpfr_init(r15663); mpfr_init(r15664); mpfr_init(r15665); mpfr_init(r15666); mpfr_init(r15667); mpfr_init(r15668); mpfr_init(r15669); mpfr_init(r15670); } double f_dm(double a, double b_2F2, double c) { mpfr_set_d(r15632, b_2F2, MPFR_RNDN); ; mpfr_set_si(r15634, mpfr_cmp(r15632, r15633) <= 0, MPFR_RNDN); mpfr_set_d(r15635, c, MPFR_RNDN); ; mpfr_mul(r15637, r15636, r15635, MPFR_RNDN); mpfr_set_d(r15638, a, MPFR_RNDN); mpfr_div(r15639, r15638, r15632, MPFR_RNDN); mpfr_mul(r15640, r15637, r15639, MPFR_RNDN); ; mpfr_mul(r15642, r15641, r15632, MPFR_RNDN); mpfr_sub(r15643, r15640, r15642, MPFR_RNDN); mpfr_div(r15644, r15635, r15643, MPFR_RNDN); ; mpfr_set_si(r15646, mpfr_cmp(r15632, r15645) <= 0, MPFR_RNDN); ; mpfr_div(r15648, r15638, r15647, MPFR_RNDN); mpfr_neg(r15649, r15632, MPFR_RNDN); mpfr_sqr(r15650, r15632, MPFR_RNDN); mpfr_mul(r15651, r15638, r15635, MPFR_RNDN); mpfr_sub(r15652, r15650, r15651, MPFR_RNDN); mpfr_sqrt(r15653, r15652, MPFR_RNDN); mpfr_add(r15654, r15649, r15653, MPFR_RNDN); mpfr_div(r15655, r15635, r15654, MPFR_RNDN); mpfr_mul(r15656, r15648, r15655, MPFR_RNDN); mpfr_div(r15657, r15656, r15638, MPFR_RNDN); ; mpfr_set_si(r15659, mpfr_cmp(r15632, r15658) <= 0, MPFR_RNDN); mpfr_div(r15660, r15649, r15638, MPFR_RNDN); mpfr_div(r15661, r15653, r15638, MPFR_RNDN); mpfr_sub(r15662, r15660, r15661, MPFR_RNDN); mpfr_div(r15663, r15632, r15635, MPFR_RNDN); mpfr_div(r15664, r15636, r15663, MPFR_RNDN); mpfr_div(r15665, r15632, r15638, MPFR_RNDN); mpfr_mul(r15666, r15665, r15641, MPFR_RNDN); mpfr_sub(r15667, r15664, r15666, MPFR_RNDN); if (mpfr_get_si(r15659, MPFR_RNDN)) { mpfr_set(r15668, r15662, MPFR_RNDN); } else { mpfr_set(r15668, r15667, MPFR_RNDN); }; if (mpfr_get_si(r15646, MPFR_RNDN)) { mpfr_set(r15669, r15657, MPFR_RNDN); } else { mpfr_set(r15669, r15668, MPFR_RNDN); }; if (mpfr_get_si(r15634, MPFR_RNDN)) { mpfr_set(r15670, r15644, MPFR_RNDN); } else { mpfr_set(r15670, r15669, MPFR_RNDN); }; return mpfr_get_d(r15670, MPFR_RNDN); }