#include #include #include #include #include char *name = "NMSE problem 3.2.1, negative"; double f_if(float a, float b_2F2, float c) { float r15521 = b_2F2; float r15522 = -r15521; float r15523 = r15521 * r15521; float r15524 = a; float r15525 = c; float r15526 = r15524 * r15525; float r15527 = r15523 - r15526; float r15528 = sqrt(r15527); float r15529 = r15522 - r15528; float r15530 = r15529 / r15524; return r15530; } double f_id(double a, double b_2F2, double c) { double r15531 = b_2F2; double r15532 = -r15531; double r15533 = r15531 * r15531; double r15534 = a; double r15535 = c; double r15536 = r15534 * r15535; double r15537 = r15533 - r15536; double r15538 = sqrt(r15537); double r15539 = r15532 - r15538; double r15540 = r15539 / r15534; return r15540; } double f_of(float a, float b_2F2, float c) { float r15541 = b_2F2; float r15542 = -6.345878891092372e+46f; bool r15543 = r15541 <= r15542; float r15544 = -r15541; float r15545 = r15541 + r15544; float r15546 = a; float r15547 = r15545 / r15546; float r15548 = 0.5f; float r15549 = c; float r15550 = r15549 / r15541; float r15551 = r15548 * r15550; float r15552 = r15547 - r15551; float r15553 = -1.6249307588497366e-76f; bool r15554 = r15541 <= r15553; float r15555 = r15546 * r15549; float r15556 = r15541 * r15541; float r15557 = r15556 - r15555; float r15558 = sqrt(r15557); float r15559 = r15544 + r15558; float r15560 = r15555 / r15559; float r15561 = r15560 / r15546; float r15562 = -1.0745984396746834e-89f; bool r15563 = r15541 <= r15562; float r15564 = 3.741572576046744e+123f; bool r15565 = r15541 <= r15564; float r15566 = r15544 - r15558; float r15567 = r15566 / r15546; float r15568 = r15541 / r15549; float r15569 = r15548 / r15568; float r15570 = r15541 / r15546; float r15571 = 2.0f; float r15572 = r15570 * r15571; float r15573 = r15569 - r15572; float r15574 = r15565 ? r15567 : r15573; float r15575 = r15563 ? r15552 : r15574; float r15576 = r15554 ? r15561 : r15575; float r15577 = r15543 ? r15552 : r15576; return r15577; } double f_od(double a, double b_2F2, double c) { double r15578 = b_2F2; double r15579 = -6.345878891092372e+46; bool r15580 = r15578 <= r15579; double r15581 = -r15578; double r15582 = r15578 + r15581; double r15583 = a; double r15584 = r15582 / r15583; double r15585 = 0.5; double r15586 = c; double r15587 = r15586 / r15578; double r15588 = r15585 * r15587; double r15589 = r15584 - r15588; double r15590 = -1.6249307588497366e-76; bool r15591 = r15578 <= r15590; double r15592 = r15583 * r15586; double r15593 = r15578 * r15578; double r15594 = r15593 - r15592; double r15595 = sqrt(r15594); double r15596 = r15581 + r15595; double r15597 = r15592 / r15596; double r15598 = r15597 / r15583; double r15599 = -1.0745984396746834e-89; bool r15600 = r15578 <= r15599; double r15601 = 3.741572576046744e+123; bool r15602 = r15578 <= r15601; double r15603 = r15581 - r15595; double r15604 = r15603 / r15583; double r15605 = r15578 / r15586; double r15606 = r15585 / r15605; double r15607 = r15578 / r15583; double r15608 = 2.0; double r15609 = r15607 * r15608; double r15610 = r15606 - r15609; double r15611 = r15602 ? r15604 : r15610; double r15612 = r15600 ? r15589 : r15611; double r15613 = r15591 ? r15598 : r15612; double r15614 = r15580 ? r15589 : r15613; return r15614; } 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 r15615, r15616, r15617, r15618, r15619, r15620, r15621, r15622, r15623, r15624; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15615); mpfr_init(r15616); mpfr_init(r15617); mpfr_init(r15618); mpfr_init(r15619); mpfr_init(r15620); mpfr_init(r15621); mpfr_init(r15622); mpfr_init(r15623); mpfr_init(r15624); } double f_im(double a, double b_2F2, double c) { mpfr_set_d(r15615, b_2F2, MPFR_RNDN); mpfr_neg(r15616, r15615, MPFR_RNDN); mpfr_sqr(r15617, r15615, MPFR_RNDN); mpfr_set_d(r15618, a, MPFR_RNDN); mpfr_set_d(r15619, c, MPFR_RNDN); mpfr_mul(r15620, r15618, r15619, MPFR_RNDN); mpfr_sub(r15621, r15617, r15620, MPFR_RNDN); mpfr_sqrt(r15622, r15621, MPFR_RNDN); mpfr_sub(r15623, r15616, r15622, MPFR_RNDN); mpfr_div(r15624, r15623, r15618, MPFR_RNDN); return mpfr_get_d(r15624, MPFR_RNDN); } static mpfr_t r15625, r15626, r15627, r15628, r15629, r15630, r15631, 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; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15625); mpfr_init_set_str(r15626, "-6.345878891092372e+46", 10, MPFR_RNDN); mpfr_init(r15627); mpfr_init(r15628); mpfr_init(r15629); mpfr_init(r15630); mpfr_init(r15631); mpfr_init_set_str(r15632, "1/2", 10, MPFR_RNDN); mpfr_init(r15633); mpfr_init(r15634); mpfr_init(r15635); mpfr_init(r15636); mpfr_init_set_str(r15637, "-1.6249307588497366e-76", 10, MPFR_RNDN); mpfr_init(r15638); mpfr_init(r15639); mpfr_init(r15640); mpfr_init(r15641); mpfr_init(r15642); mpfr_init(r15643); mpfr_init(r15644); mpfr_init(r15645); mpfr_init_set_str(r15646, "-1.0745984396746834e-89", 10, MPFR_RNDN); mpfr_init(r15647); mpfr_init_set_str(r15648, "3.741572576046744e+123", 10, MPFR_RNDN); mpfr_init(r15649); mpfr_init(r15650); mpfr_init(r15651); mpfr_init(r15652); mpfr_init(r15653); mpfr_init(r15654); mpfr_init_set_str(r15655, "2", 10, MPFR_RNDN); mpfr_init(r15656); mpfr_init(r15657); mpfr_init(r15658); mpfr_init(r15659); mpfr_init(r15660); mpfr_init(r15661); } double f_fm(double a, double b_2F2, double c) { mpfr_set_d(r15625, b_2F2, MPFR_RNDN); ; mpfr_set_si(r15627, mpfr_cmp(r15625, r15626) <= 0, MPFR_RNDN); mpfr_neg(r15628, r15625, MPFR_RNDN); mpfr_add(r15629, r15625, r15628, MPFR_RNDN); mpfr_set_d(r15630, a, MPFR_RNDN); mpfr_div(r15631, r15629, r15630, MPFR_RNDN); ; mpfr_set_d(r15633, c, MPFR_RNDN); mpfr_div(r15634, r15633, r15625, MPFR_RNDN); mpfr_mul(r15635, r15632, r15634, MPFR_RNDN); mpfr_sub(r15636, r15631, r15635, MPFR_RNDN); ; mpfr_set_si(r15638, mpfr_cmp(r15625, r15637) <= 0, MPFR_RNDN); mpfr_mul(r15639, r15630, r15633, MPFR_RNDN); mpfr_sqr(r15640, r15625, MPFR_RNDN); mpfr_sub(r15641, r15640, r15639, MPFR_RNDN); mpfr_sqrt(r15642, r15641, MPFR_RNDN); mpfr_add(r15643, r15628, r15642, MPFR_RNDN); mpfr_div(r15644, r15639, r15643, MPFR_RNDN); mpfr_div(r15645, r15644, r15630, MPFR_RNDN); ; mpfr_set_si(r15647, mpfr_cmp(r15625, r15646) <= 0, MPFR_RNDN); ; mpfr_set_si(r15649, mpfr_cmp(r15625, r15648) <= 0, MPFR_RNDN); mpfr_sub(r15650, r15628, r15642, MPFR_RNDN); mpfr_div(r15651, r15650, r15630, MPFR_RNDN); mpfr_div(r15652, r15625, r15633, MPFR_RNDN); mpfr_div(r15653, r15632, r15652, MPFR_RNDN); mpfr_div(r15654, r15625, r15630, MPFR_RNDN); ; mpfr_mul(r15656, r15654, r15655, MPFR_RNDN); mpfr_sub(r15657, r15653, r15656, MPFR_RNDN); if (mpfr_get_si(r15649, MPFR_RNDN)) { mpfr_set(r15658, r15651, MPFR_RNDN); } else { mpfr_set(r15658, r15657, MPFR_RNDN); }; if (mpfr_get_si(r15647, MPFR_RNDN)) { mpfr_set(r15659, r15636, MPFR_RNDN); } else { mpfr_set(r15659, r15658, MPFR_RNDN); }; if (mpfr_get_si(r15638, MPFR_RNDN)) { mpfr_set(r15660, r15645, MPFR_RNDN); } else { mpfr_set(r15660, r15659, MPFR_RNDN); }; if (mpfr_get_si(r15627, MPFR_RNDN)) { mpfr_set(r15661, r15636, MPFR_RNDN); } else { mpfr_set(r15661, r15660, MPFR_RNDN); }; return mpfr_get_d(r15661, MPFR_RNDN); } static mpfr_t r15662, r15663, r15664, r15665, r15666, r15667, r15668, r15669, r15670, r15671, r15672, r15673, r15674, r15675, r15676, r15677, r15678, r15679, r15680, r15681, r15682, r15683, r15684, r15685, r15686, r15687, r15688, r15689, r15690, r15691, r15692, r15693, r15694, r15695, r15696, r15697, r15698; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15662); mpfr_init_set_str(r15663, "-6.345878891092372e+46", 10, MPFR_RNDN); mpfr_init(r15664); mpfr_init(r15665); mpfr_init(r15666); mpfr_init(r15667); mpfr_init(r15668); mpfr_init_set_str(r15669, "1/2", 10, MPFR_RNDN); mpfr_init(r15670); mpfr_init(r15671); mpfr_init(r15672); mpfr_init(r15673); mpfr_init_set_str(r15674, "-1.6249307588497366e-76", 10, MPFR_RNDN); mpfr_init(r15675); mpfr_init(r15676); mpfr_init(r15677); mpfr_init(r15678); mpfr_init(r15679); mpfr_init(r15680); mpfr_init(r15681); mpfr_init(r15682); mpfr_init_set_str(r15683, "-1.0745984396746834e-89", 10, MPFR_RNDN); mpfr_init(r15684); mpfr_init_set_str(r15685, "3.741572576046744e+123", 10, MPFR_RNDN); mpfr_init(r15686); mpfr_init(r15687); mpfr_init(r15688); mpfr_init(r15689); mpfr_init(r15690); mpfr_init(r15691); mpfr_init_set_str(r15692, "2", 10, MPFR_RNDN); mpfr_init(r15693); mpfr_init(r15694); mpfr_init(r15695); mpfr_init(r15696); mpfr_init(r15697); mpfr_init(r15698); } double f_dm(double a, double b_2F2, double c) { mpfr_set_d(r15662, b_2F2, MPFR_RNDN); ; mpfr_set_si(r15664, mpfr_cmp(r15662, r15663) <= 0, MPFR_RNDN); mpfr_neg(r15665, r15662, MPFR_RNDN); mpfr_add(r15666, r15662, r15665, MPFR_RNDN); mpfr_set_d(r15667, a, MPFR_RNDN); mpfr_div(r15668, r15666, r15667, MPFR_RNDN); ; mpfr_set_d(r15670, c, MPFR_RNDN); mpfr_div(r15671, r15670, r15662, MPFR_RNDN); mpfr_mul(r15672, r15669, r15671, MPFR_RNDN); mpfr_sub(r15673, r15668, r15672, MPFR_RNDN); ; mpfr_set_si(r15675, mpfr_cmp(r15662, r15674) <= 0, MPFR_RNDN); mpfr_mul(r15676, r15667, r15670, MPFR_RNDN); mpfr_sqr(r15677, r15662, MPFR_RNDN); mpfr_sub(r15678, r15677, r15676, MPFR_RNDN); mpfr_sqrt(r15679, r15678, MPFR_RNDN); mpfr_add(r15680, r15665, r15679, MPFR_RNDN); mpfr_div(r15681, r15676, r15680, MPFR_RNDN); mpfr_div(r15682, r15681, r15667, MPFR_RNDN); ; mpfr_set_si(r15684, mpfr_cmp(r15662, r15683) <= 0, MPFR_RNDN); ; mpfr_set_si(r15686, mpfr_cmp(r15662, r15685) <= 0, MPFR_RNDN); mpfr_sub(r15687, r15665, r15679, MPFR_RNDN); mpfr_div(r15688, r15687, r15667, MPFR_RNDN); mpfr_div(r15689, r15662, r15670, MPFR_RNDN); mpfr_div(r15690, r15669, r15689, MPFR_RNDN); mpfr_div(r15691, r15662, r15667, MPFR_RNDN); ; mpfr_mul(r15693, r15691, r15692, MPFR_RNDN); mpfr_sub(r15694, r15690, r15693, MPFR_RNDN); if (mpfr_get_si(r15686, MPFR_RNDN)) { mpfr_set(r15695, r15688, MPFR_RNDN); } else { mpfr_set(r15695, r15694, MPFR_RNDN); }; if (mpfr_get_si(r15684, MPFR_RNDN)) { mpfr_set(r15696, r15673, MPFR_RNDN); } else { mpfr_set(r15696, r15695, MPFR_RNDN); }; if (mpfr_get_si(r15675, MPFR_RNDN)) { mpfr_set(r15697, r15682, MPFR_RNDN); } else { mpfr_set(r15697, r15696, MPFR_RNDN); }; if (mpfr_get_si(r15664, MPFR_RNDN)) { mpfr_set(r15698, r15673, MPFR_RNDN); } else { mpfr_set(r15698, r15697, MPFR_RNDN); }; return mpfr_get_d(r15698, MPFR_RNDN); }