#include #include #include #include #include char *name = "NMSE Section 6.1 mentioned, A"; double f_if(float x, float eps) { float r15444 = 1.0f; float r15445 = eps; float r15446 = r15444 / r15445; float r15447 = r15444 + r15446; float r15448 = r15444 - r15445; float r15449 = x; float r15450 = r15448 * r15449; float r15451 = -r15450; float r15452 = exp(r15451); float r15453 = r15447 * r15452; float r15454 = r15446 - r15444; float r15455 = r15444 + r15445; float r15456 = r15455 * r15449; float r15457 = -r15456; float r15458 = exp(r15457); float r15459 = r15454 * r15458; float r15460 = r15453 - r15459; float r15461 = 2.0f; float r15462 = r15460 / r15461; return r15462; } double f_id(double x, double eps) { double r15463 = 1.0; double r15464 = eps; double r15465 = r15463 / r15464; double r15466 = r15463 + r15465; double r15467 = r15463 - r15464; double r15468 = x; double r15469 = r15467 * r15468; double r15470 = -r15469; double r15471 = exp(r15470); double r15472 = r15466 * r15471; double r15473 = r15465 - r15463; double r15474 = r15463 + r15464; double r15475 = r15474 * r15468; double r15476 = -r15475; double r15477 = exp(r15476); double r15478 = r15473 * r15477; double r15479 = r15472 - r15478; double r15480 = 2.0; double r15481 = r15479 / r15480; return r15481; } double f_of(float x, float eps) { float r15482 = x; float r15483 = 859.3889770507812f; bool r15484 = r15482 <= r15483; float r15485 = 2.0f; float r15486 = eps; float r15487 = r15485 / r15486; float r15488 = r15485 + r15487; float r15489 = r15482 * r15485; float r15490 = r15489 / r15486; float r15491 = r15488 + r15490; float r15492 = exp(r15482); float r15493 = 1.0f; float r15494 = r15493 - r15486; float r15495 = pow(r15492, r15494); float r15496 = r15491 / r15495; float r15497 = r15496 / r15488; float r15498 = r15493 / r15486; float r15499 = r15493 + r15498; float r15500 = r15494 * r15482; float r15501 = -r15500; float r15502 = exp(r15501); float r15503 = r15499 * r15502; float r15504 = r15498 - r15493; float r15505 = cbrt(r15504); float r15506 = r15493 + r15486; float r15507 = r15506 * r15482; float r15508 = -r15507; float r15509 = exp(r15508); float r15510 = cbrt(r15509); float r15511 = r15505 * r15510; float r15512 = r15511 * (r15511 * r15511); float r15513 = r15503 - r15512; float r15514 = r15513 / r15485; float r15515 = r15484 ? r15497 : r15514; return r15515; } double f_od(double x, double eps) { double r15516 = x; double r15517 = 859.3889770507812; bool r15518 = r15516 <= r15517; double r15519 = 2.0; double r15520 = eps; double r15521 = r15519 / r15520; double r15522 = r15519 + r15521; double r15523 = r15516 * r15519; double r15524 = r15523 / r15520; double r15525 = r15522 + r15524; double r15526 = exp(r15516); double r15527 = 1.0; double r15528 = r15527 - r15520; double r15529 = pow(r15526, r15528); double r15530 = r15525 / r15529; double r15531 = r15530 / r15522; double r15532 = r15527 / r15520; double r15533 = r15527 + r15532; double r15534 = r15528 * r15516; double r15535 = -r15534; double r15536 = exp(r15535); double r15537 = r15533 * r15536; double r15538 = r15532 - r15527; double r15539 = cbrt(r15538); double r15540 = r15527 + r15520; double r15541 = r15540 * r15516; double r15542 = -r15541; double r15543 = exp(r15542); double r15544 = cbrt(r15543); double r15545 = r15539 * r15544; double r15546 = r15545 * (r15545 * r15545); double r15547 = r15537 - r15546; double r15548 = r15547 / r15519; double r15549 = r15518 ? r15531 : r15548; return r15549; } 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 r15550, r15551, r15552, r15553, r15554, r15555, r15556, r15557, r15558, r15559, r15560, r15561, r15562, r15563, r15564, r15565, r15566, r15567, r15568; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r15550, "1", 10, MPFR_RNDN); mpfr_init(r15551); mpfr_init(r15552); mpfr_init(r15553); mpfr_init(r15554); mpfr_init(r15555); mpfr_init(r15556); mpfr_init(r15557); mpfr_init(r15558); mpfr_init(r15559); mpfr_init(r15560); mpfr_init(r15561); mpfr_init(r15562); mpfr_init(r15563); mpfr_init(r15564); mpfr_init(r15565); mpfr_init(r15566); mpfr_init_set_str(r15567, "2", 10, MPFR_RNDN); mpfr_init(r15568); } double f_im(double x, double eps) { ; mpfr_set_d(r15551, eps, MPFR_RNDN); mpfr_div(r15552, r15550, r15551, MPFR_RNDN); mpfr_add(r15553, r15550, r15552, MPFR_RNDN); mpfr_sub(r15554, r15550, r15551, MPFR_RNDN); mpfr_set_d(r15555, x, MPFR_RNDN); mpfr_mul(r15556, r15554, r15555, MPFR_RNDN); mpfr_neg(r15557, r15556, MPFR_RNDN); mpfr_exp(r15558, r15557, MPFR_RNDN); mpfr_mul(r15559, r15553, r15558, MPFR_RNDN); mpfr_sub(r15560, r15552, r15550, MPFR_RNDN); mpfr_add(r15561, r15550, r15551, MPFR_RNDN); mpfr_mul(r15562, r15561, r15555, MPFR_RNDN); mpfr_neg(r15563, r15562, MPFR_RNDN); mpfr_exp(r15564, r15563, MPFR_RNDN); mpfr_mul(r15565, r15560, r15564, MPFR_RNDN); mpfr_sub(r15566, r15559, r15565, MPFR_RNDN); ; mpfr_div(r15568, r15566, r15567, MPFR_RNDN); return mpfr_get_d(r15568, MPFR_RNDN); } static mpfr_t r15569, r15570, r15571, r15572, r15573, r15574, r15575, r15576, r15577, r15578, r15579, r15580, r15581, r15582, r15583, r15584, r15585, r15586, r15587, r15588, r15589, r15590, r15591, r15592, r15593, r15594, r15595, r15596, r15597, r15598, r15599, r15600, r15601, r15602; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15569); mpfr_init_set_str(r15570, "859.389f0", 10, MPFR_RNDN); mpfr_init(r15571); mpfr_init_set_str(r15572, "2", 10, MPFR_RNDN); mpfr_init(r15573); mpfr_init(r15574); mpfr_init(r15575); mpfr_init(r15576); mpfr_init(r15577); mpfr_init(r15578); mpfr_init(r15579); mpfr_init_set_str(r15580, "1", 10, MPFR_RNDN); mpfr_init(r15581); mpfr_init(r15582); 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); 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_fm(double x, double eps) { mpfr_set_d(r15569, x, MPFR_RNDN); ; mpfr_set_si(r15571, mpfr_cmp(r15569, r15570) <= 0, MPFR_RNDN); ; mpfr_set_d(r15573, eps, MPFR_RNDN); mpfr_div(r15574, r15572, r15573, MPFR_RNDN); mpfr_add(r15575, r15572, r15574, MPFR_RNDN); mpfr_mul(r15576, r15569, r15572, MPFR_RNDN); mpfr_div(r15577, r15576, r15573, MPFR_RNDN); mpfr_add(r15578, r15575, r15577, MPFR_RNDN); mpfr_exp(r15579, r15569, MPFR_RNDN); ; mpfr_sub(r15581, r15580, r15573, MPFR_RNDN); mpfr_pow(r15582, r15579, r15581, MPFR_RNDN); mpfr_div(r15583, r15578, r15582, MPFR_RNDN); mpfr_div(r15584, r15583, r15575, MPFR_RNDN); mpfr_div(r15585, r15580, r15573, MPFR_RNDN); mpfr_add(r15586, r15580, r15585, MPFR_RNDN); mpfr_mul(r15587, r15581, r15569, MPFR_RNDN); mpfr_neg(r15588, r15587, MPFR_RNDN); mpfr_exp(r15589, r15588, MPFR_RNDN); mpfr_mul(r15590, r15586, r15589, MPFR_RNDN); mpfr_sub(r15591, r15585, r15580, MPFR_RNDN); mpfr_cbrt(r15592, r15591, MPFR_RNDN); mpfr_add(r15593, r15580, r15573, MPFR_RNDN); mpfr_mul(r15594, r15593, r15569, MPFR_RNDN); mpfr_neg(r15595, r15594, MPFR_RNDN); mpfr_exp(r15596, r15595, MPFR_RNDN); mpfr_cbrt(r15597, r15596, MPFR_RNDN); mpfr_mul(r15598, r15592, r15597, MPFR_RNDN); mpfr_mul(r15599, r15598, r15598, MPFR_RNDN); mpfr_mul(r15599, r15599, r15598, MPFR_RNDN); mpfr_sub(r15600, r15590, r15599, MPFR_RNDN); mpfr_div(r15601, r15600, r15572, MPFR_RNDN); if (mpfr_get_si(r15571, MPFR_RNDN)) { mpfr_set(r15602, r15584, MPFR_RNDN); } else { mpfr_set(r15602, 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, r15618, r15619, r15620, r15621, r15622, r15623, r15624, r15625, r15626, r15627, r15628, r15629, r15630, r15631, r15632, r15633, r15634, r15635, r15636; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15603); mpfr_init_set_str(r15604, "859.389f0", 10, MPFR_RNDN); mpfr_init(r15605); mpfr_init_set_str(r15606, "2", 10, MPFR_RNDN); mpfr_init(r15607); mpfr_init(r15608); mpfr_init(r15609); mpfr_init(r15610); mpfr_init(r15611); mpfr_init(r15612); mpfr_init(r15613); mpfr_init_set_str(r15614, "1", 10, MPFR_RNDN); 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); mpfr_init(r15625); mpfr_init(r15626); mpfr_init(r15627); mpfr_init(r15628); mpfr_init(r15629); mpfr_init(r15630); mpfr_init(r15631); mpfr_init(r15632); mpfr_init(r15633); mpfr_init(r15634); mpfr_init(r15635); mpfr_init(r15636); } double f_dm(double x, double eps) { mpfr_set_d(r15603, x, MPFR_RNDN); ; mpfr_set_si(r15605, mpfr_cmp(r15603, r15604) <= 0, MPFR_RNDN); ; mpfr_set_d(r15607, eps, MPFR_RNDN); mpfr_div(r15608, r15606, r15607, MPFR_RNDN); mpfr_add(r15609, r15606, r15608, MPFR_RNDN); mpfr_mul(r15610, r15603, r15606, MPFR_RNDN); mpfr_div(r15611, r15610, r15607, MPFR_RNDN); mpfr_add(r15612, r15609, r15611, MPFR_RNDN); mpfr_exp(r15613, r15603, MPFR_RNDN); ; mpfr_sub(r15615, r15614, r15607, MPFR_RNDN); mpfr_pow(r15616, r15613, r15615, MPFR_RNDN); mpfr_div(r15617, r15612, r15616, MPFR_RNDN); mpfr_div(r15618, r15617, r15609, MPFR_RNDN); mpfr_div(r15619, r15614, r15607, MPFR_RNDN); mpfr_add(r15620, r15614, r15619, MPFR_RNDN); mpfr_mul(r15621, r15615, r15603, MPFR_RNDN); mpfr_neg(r15622, r15621, MPFR_RNDN); mpfr_exp(r15623, r15622, MPFR_RNDN); mpfr_mul(r15624, r15620, r15623, MPFR_RNDN); mpfr_sub(r15625, r15619, r15614, MPFR_RNDN); mpfr_cbrt(r15626, r15625, MPFR_RNDN); mpfr_add(r15627, r15614, r15607, MPFR_RNDN); mpfr_mul(r15628, r15627, r15603, MPFR_RNDN); mpfr_neg(r15629, r15628, MPFR_RNDN); mpfr_exp(r15630, r15629, MPFR_RNDN); mpfr_cbrt(r15631, r15630, MPFR_RNDN); mpfr_mul(r15632, r15626, r15631, MPFR_RNDN); mpfr_mul(r15633, r15632, r15632, MPFR_RNDN); mpfr_mul(r15633, r15633, r15632, MPFR_RNDN); mpfr_sub(r15634, r15624, r15633, MPFR_RNDN); mpfr_div(r15635, r15634, r15606, MPFR_RNDN); if (mpfr_get_si(r15605, MPFR_RNDN)) { mpfr_set(r15636, r15618, MPFR_RNDN); } else { mpfr_set(r15636, r15635, MPFR_RNDN); }; return mpfr_get_d(r15636, MPFR_RNDN); }