#include #include #include #include #include char *name = "NMSE problem 3.4.2"; double f_if(float a, float b, float eps) { float r15522 = eps; float r15523 = a; float r15524 = b; float r15525 = r15523 + r15524; float r15526 = r15525 * r15522; float r15527 = exp(r15526); float r15528 = 1.0f; float r15529 = r15527 - r15528; float r15530 = r15522 * r15529; float r15531 = r15523 * r15522; float r15532 = exp(r15531); float r15533 = r15532 - r15528; float r15534 = r15524 * r15522; float r15535 = exp(r15534); float r15536 = r15535 - r15528; float r15537 = r15533 * r15536; float r15538 = r15530 / r15537; return r15538; } double f_id(double a, double b, double eps) { double r15539 = eps; double r15540 = a; double r15541 = b; double r15542 = r15540 + r15541; double r15543 = r15542 * r15539; double r15544 = exp(r15543); double r15545 = 1.0; double r15546 = r15544 - r15545; double r15547 = r15539 * r15546; double r15548 = r15540 * r15539; double r15549 = exp(r15548); double r15550 = r15549 - r15545; double r15551 = r15541 * r15539; double r15552 = exp(r15551); double r15553 = r15552 - r15545; double r15554 = r15550 * r15553; double r15555 = r15547 / r15554; return r15555; } double f_of(float a, float b, float eps) { float r15556 = eps; float r15557 = b; float r15558 = a; float r15559 = r15557 + r15558; float r15560 = r15556 * r15559; float r15561 = expm1(r15560); float r15562 = r15558 * r15556; float r15563 = expm1(r15562); float r15564 = r15561 / r15563; float r15565 = 1.0f; float r15566 = r15557 * r15556; float r15567 = expm1(r15566); float r15568 = r15567 / r15556; float r15569 = r15565 / r15568; float r15570 = r15564 * r15569; return r15570; } double f_od(double a, double b, double eps) { double r15571 = eps; double r15572 = b; double r15573 = a; double r15574 = r15572 + r15573; double r15575 = r15571 * r15574; double r15576 = expm1(r15575); double r15577 = r15573 * r15571; double r15578 = expm1(r15577); double r15579 = r15576 / r15578; double r15580 = 1.0; double r15581 = r15572 * r15571; double r15582 = expm1(r15581); double r15583 = r15582 / r15571; double r15584 = r15580 / r15583; double r15585 = r15579 * r15584; return r15585; } 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 r15586, r15587, r15588, r15589, r15590, r15591, r15592, r15593, r15594, r15595, r15596, r15597, r15598, r15599, r15600, r15601, r15602; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15586); mpfr_init(r15587); mpfr_init(r15588); mpfr_init(r15589); mpfr_init(r15590); mpfr_init(r15591); mpfr_init_set_str(r15592, "1", 10, MPFR_RNDN); mpfr_init(r15593); mpfr_init(r15594); mpfr_init(r15595); mpfr_init(r15596); mpfr_init(r15597); mpfr_init(r15598); mpfr_init(r15599); mpfr_init(r15600); mpfr_init(r15601); mpfr_init(r15602); } double f_im(double a, double b, double eps) { mpfr_set_d(r15586, eps, MPFR_RNDN); mpfr_set_d(r15587, a, MPFR_RNDN); mpfr_set_d(r15588, b, MPFR_RNDN); mpfr_add(r15589, r15587, r15588, MPFR_RNDN); mpfr_mul(r15590, r15589, r15586, MPFR_RNDN); mpfr_exp(r15591, r15590, MPFR_RNDN); ; mpfr_sub(r15593, r15591, r15592, MPFR_RNDN); mpfr_mul(r15594, r15586, r15593, MPFR_RNDN); mpfr_mul(r15595, r15587, r15586, MPFR_RNDN); mpfr_exp(r15596, r15595, MPFR_RNDN); mpfr_sub(r15597, r15596, r15592, MPFR_RNDN); mpfr_mul(r15598, r15588, r15586, MPFR_RNDN); mpfr_exp(r15599, r15598, MPFR_RNDN); mpfr_sub(r15600, r15599, r15592, MPFR_RNDN); mpfr_mul(r15601, r15597, r15600, MPFR_RNDN); mpfr_div(r15602, r15594, r15601, MPFR_RNDN); return mpfr_get_d(r15602, MPFR_RNDN); } static mpfr_t r15603, r15604, r15605, r15606, r15607, r15608, r15609, r15610, r15611, r15612, r15613, r15614, r15615, r15616, r15617; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15603); mpfr_init(r15604); mpfr_init(r15605); mpfr_init(r15606); mpfr_init(r15607); mpfr_init(r15608); mpfr_init(r15609); mpfr_init(r15610); mpfr_init(r15611); mpfr_init_set_str(r15612, "1", 10, MPFR_RNDN); mpfr_init(r15613); mpfr_init(r15614); mpfr_init(r15615); mpfr_init(r15616); mpfr_init(r15617); } double f_fm(double a, double b, double eps) { mpfr_set_d(r15603, eps, MPFR_RNDN); mpfr_set_d(r15604, b, MPFR_RNDN); mpfr_set_d(r15605, a, MPFR_RNDN); mpfr_add(r15606, r15604, r15605, MPFR_RNDN); mpfr_mul(r15607, r15603, r15606, MPFR_RNDN); mpfr_expm1(r15608, r15607, MPFR_RNDN); mpfr_mul(r15609, r15605, r15603, MPFR_RNDN); mpfr_expm1(r15610, r15609, MPFR_RNDN); mpfr_div(r15611, r15608, r15610, MPFR_RNDN); ; mpfr_mul(r15613, r15604, r15603, MPFR_RNDN); mpfr_expm1(r15614, r15613, MPFR_RNDN); mpfr_div(r15615, r15614, r15603, MPFR_RNDN); mpfr_div(r15616, r15612, r15615, MPFR_RNDN); mpfr_mul(r15617, r15611, r15616, MPFR_RNDN); return mpfr_get_d(r15617, MPFR_RNDN); } static mpfr_t r15618, r15619, r15620, r15621, r15622, r15623, r15624, r15625, r15626, r15627, r15628, r15629, r15630, r15631, r15632; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15618); mpfr_init(r15619); mpfr_init(r15620); mpfr_init(r15621); mpfr_init(r15622); mpfr_init(r15623); mpfr_init(r15624); mpfr_init(r15625); mpfr_init(r15626); mpfr_init_set_str(r15627, "1", 10, MPFR_RNDN); mpfr_init(r15628); mpfr_init(r15629); mpfr_init(r15630); mpfr_init(r15631); mpfr_init(r15632); } double f_dm(double a, double b, double eps) { mpfr_set_d(r15618, eps, MPFR_RNDN); mpfr_set_d(r15619, b, MPFR_RNDN); mpfr_set_d(r15620, a, MPFR_RNDN); mpfr_add(r15621, r15619, r15620, MPFR_RNDN); mpfr_mul(r15622, r15618, r15621, MPFR_RNDN); mpfr_expm1(r15623, r15622, MPFR_RNDN); mpfr_mul(r15624, r15620, r15618, MPFR_RNDN); mpfr_expm1(r15625, r15624, MPFR_RNDN); mpfr_div(r15626, r15623, r15625, MPFR_RNDN); ; mpfr_mul(r15628, r15619, r15618, MPFR_RNDN); mpfr_expm1(r15629, r15628, MPFR_RNDN); mpfr_div(r15630, r15629, r15618, MPFR_RNDN); mpfr_div(r15631, r15627, r15630, MPFR_RNDN); mpfr_mul(r15632, r15626, r15631, MPFR_RNDN); return mpfr_get_d(r15632, MPFR_RNDN); }