#include #include #include #include #include char *name = "NMSE Section 6.1 mentioned, A"; double f_if(float x, float eps) { float r15416 = 1.0f; float r15417 = eps; float r15418 = r15416 / r15417; float r15419 = r15416 + r15418; float r15420 = r15416 - r15417; float r15421 = x; float r15422 = r15420 * r15421; float r15423 = -r15422; float r15424 = exp(r15423); float r15425 = r15419 * r15424; float r15426 = r15418 - r15416; float r15427 = r15416 + r15417; float r15428 = r15427 * r15421; float r15429 = -r15428; float r15430 = exp(r15429); float r15431 = r15426 * r15430; float r15432 = r15425 - r15431; float r15433 = 2.0f; float r15434 = r15432 / r15433; return r15434; } double f_id(double x, double eps) { double r15435 = 1.0; double r15436 = eps; double r15437 = r15435 / r15436; double r15438 = r15435 + r15437; double r15439 = r15435 - r15436; double r15440 = x; double r15441 = r15439 * r15440; double r15442 = -r15441; double r15443 = exp(r15442); double r15444 = r15438 * r15443; double r15445 = r15437 - r15435; double r15446 = r15435 + r15436; double r15447 = r15446 * r15440; double r15448 = -r15447; double r15449 = exp(r15448); double r15450 = r15445 * r15449; double r15451 = r15444 - r15450; double r15452 = 2.0; double r15453 = r15451 / r15452; return r15453; } double f_of(float x, float eps) { float r15454 = x; float r15455 = 2883.1030255300666f; bool r15456 = r15454 <= r15455; float r15457 = r15454 * (r15454 * r15454); float r15458 = 0.6666666666666666f; float r15459 = r15457 * r15458; float r15460 = 2.0f; float r15461 = r15454 * r15454; float r15462 = r15460 - r15461; float r15463 = r15459 + r15462; float r15464 = r15463 / r15460; float r15465 = 1.0f; float r15466 = eps; float r15467 = r15465 / r15466; float r15468 = r15465 + r15467; float r15469 = r15465 - r15466; float r15470 = r15469 * r15454; float r15471 = -r15470; float r15472 = exp(r15471); float r15473 = r15468 * r15472; float r15474 = r15467 - r15465; float r15475 = cbrt(r15474); float r15476 = r15465 + r15466; float r15477 = r15476 * r15454; float r15478 = -r15477; float r15479 = exp(r15478); float r15480 = 0.3333333333333333f; float r15481 = pow(r15479, r15480); float r15482 = r15475 * r15481; float r15483 = r15482 * (r15482 * r15482); float r15484 = r15473 - r15483; float r15485 = r15484 / r15460; float r15486 = r15456 ? r15464 : r15485; return r15486; } double f_od(double x, double eps) { double r15487 = x; double r15488 = 2883.1030255300666; bool r15489 = r15487 <= r15488; double r15490 = r15487 * (r15487 * r15487); double r15491 = 0.6666666666666666; double r15492 = r15490 * r15491; double r15493 = 2.0; double r15494 = r15487 * r15487; double r15495 = r15493 - r15494; double r15496 = r15492 + r15495; double r15497 = r15496 / r15493; double r15498 = 1.0; double r15499 = eps; double r15500 = r15498 / r15499; double r15501 = r15498 + r15500; double r15502 = r15498 - r15499; double r15503 = r15502 * r15487; double r15504 = -r15503; double r15505 = exp(r15504); double r15506 = r15501 * r15505; double r15507 = r15500 - r15498; double r15508 = cbrt(r15507); double r15509 = r15498 + r15499; double r15510 = r15509 * r15487; double r15511 = -r15510; double r15512 = exp(r15511); double r15513 = 0.3333333333333333; double r15514 = pow(r15512, r15513); double r15515 = r15508 * r15514; double r15516 = r15515 * (r15515 * r15515); double r15517 = r15506 - r15516; double r15518 = r15517 / r15493; double r15519 = r15489 ? r15497 : r15518; return r15519; } 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 r15520, r15521, r15522, r15523, r15524, r15525, r15526, r15527, r15528, r15529, r15530, r15531, r15532, r15533, r15534, r15535, r15536, r15537, r15538; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r15520, "1", 10, MPFR_RNDN); mpfr_init(r15521); mpfr_init(r15522); mpfr_init(r15523); mpfr_init(r15524); mpfr_init(r15525); mpfr_init(r15526); mpfr_init(r15527); mpfr_init(r15528); mpfr_init(r15529); mpfr_init(r15530); mpfr_init(r15531); mpfr_init(r15532); mpfr_init(r15533); mpfr_init(r15534); mpfr_init(r15535); mpfr_init(r15536); mpfr_init_set_str(r15537, "2", 10, MPFR_RNDN); mpfr_init(r15538); } double f_im(double x, double eps) { ; mpfr_set_d(r15521, eps, MPFR_RNDN); mpfr_div(r15522, r15520, r15521, MPFR_RNDN); mpfr_add(r15523, r15520, r15522, MPFR_RNDN); mpfr_sub(r15524, r15520, r15521, MPFR_RNDN); mpfr_set_d(r15525, x, MPFR_RNDN); mpfr_mul(r15526, r15524, r15525, MPFR_RNDN); mpfr_neg(r15527, r15526, MPFR_RNDN); mpfr_exp(r15528, r15527, MPFR_RNDN); mpfr_mul(r15529, r15523, r15528, MPFR_RNDN); mpfr_sub(r15530, r15522, r15520, MPFR_RNDN); mpfr_add(r15531, r15520, r15521, MPFR_RNDN); mpfr_mul(r15532, r15531, r15525, MPFR_RNDN); mpfr_neg(r15533, r15532, MPFR_RNDN); mpfr_exp(r15534, r15533, MPFR_RNDN); mpfr_mul(r15535, r15530, r15534, MPFR_RNDN); mpfr_sub(r15536, r15529, r15535, MPFR_RNDN); ; mpfr_div(r15538, r15536, r15537, MPFR_RNDN); return mpfr_get_d(r15538, MPFR_RNDN); } static mpfr_t r15539, r15540, r15541, r15542, r15543, r15544, r15545, r15546, r15547, r15548, r15549, r15550, r15551, r15552, r15553, r15554, r15555, r15556, r15557, r15558, r15559, r15560, r15561, r15562, r15563, r15564, r15565, r15566, r15567, r15568, r15569, r15570, r15571; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15539); mpfr_init_set_str(r15540, "2883.1030255300666", 10, MPFR_RNDN); mpfr_init(r15541); mpfr_init(r15542); mpfr_init_set_str(r15543, "2/3", 10, MPFR_RNDN); mpfr_init(r15544); mpfr_init_set_str(r15545, "2", 10, MPFR_RNDN); mpfr_init(r15546); mpfr_init(r15547); mpfr_init(r15548); mpfr_init(r15549); 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_set_str(r15565, "1/3", 10, MPFR_RNDN); mpfr_init(r15566); mpfr_init(r15567); mpfr_init(r15568); mpfr_init(r15569); mpfr_init(r15570); mpfr_init(r15571); } double f_fm(double x, double eps) { mpfr_set_d(r15539, x, MPFR_RNDN); ; mpfr_set_si(r15541, mpfr_cmp(r15539, r15540) <= 0, MPFR_RNDN); mpfr_mul(r15542, r15539, r15539, MPFR_RNDN); mpfr_mul(r15542, r15542, r15539, MPFR_RNDN); ; mpfr_mul(r15544, r15542, r15543, MPFR_RNDN); ; mpfr_mul(r15546, r15539, r15539, MPFR_RNDN); mpfr_sub(r15547, r15545, r15546, MPFR_RNDN); mpfr_add(r15548, r15544, r15547, MPFR_RNDN); mpfr_div(r15549, r15548, r15545, MPFR_RNDN); ; 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_mul(r15555, r15554, r15539, MPFR_RNDN); mpfr_neg(r15556, r15555, MPFR_RNDN); mpfr_exp(r15557, r15556, MPFR_RNDN); mpfr_mul(r15558, r15553, r15557, MPFR_RNDN); mpfr_sub(r15559, r15552, r15550, MPFR_RNDN); mpfr_cbrt(r15560, r15559, MPFR_RNDN); mpfr_add(r15561, r15550, r15551, MPFR_RNDN); mpfr_mul(r15562, r15561, r15539, MPFR_RNDN); mpfr_neg(r15563, r15562, MPFR_RNDN); mpfr_exp(r15564, r15563, MPFR_RNDN); ; mpfr_pow(r15566, r15564, r15565, MPFR_RNDN); mpfr_mul(r15567, r15560, r15566, MPFR_RNDN); mpfr_mul(r15568, r15567, r15567, MPFR_RNDN); mpfr_mul(r15568, r15568, r15567, MPFR_RNDN); mpfr_sub(r15569, r15558, r15568, MPFR_RNDN); mpfr_div(r15570, r15569, r15545, MPFR_RNDN); if (mpfr_get_si(r15541, MPFR_RNDN)) { mpfr_set(r15571, r15549, MPFR_RNDN); } else { mpfr_set(r15571, r15570, MPFR_RNDN); }; return mpfr_get_d(r15571, MPFR_RNDN); } static mpfr_t 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, r15603, r15604; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15572); mpfr_init_set_str(r15573, "2883.1030255300666", 10, MPFR_RNDN); mpfr_init(r15574); mpfr_init(r15575); mpfr_init_set_str(r15576, "2/3", 10, MPFR_RNDN); mpfr_init(r15577); mpfr_init_set_str(r15578, "2", 10, MPFR_RNDN); mpfr_init(r15579); mpfr_init(r15580); mpfr_init(r15581); mpfr_init(r15582); mpfr_init_set_str(r15583, "1", 10, MPFR_RNDN); 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_set_str(r15598, "1/3", 10, MPFR_RNDN); mpfr_init(r15599); mpfr_init(r15600); mpfr_init(r15601); mpfr_init(r15602); mpfr_init(r15603); mpfr_init(r15604); } double f_dm(double x, double eps) { mpfr_set_d(r15572, x, MPFR_RNDN); ; mpfr_set_si(r15574, mpfr_cmp(r15572, r15573) <= 0, MPFR_RNDN); mpfr_mul(r15575, r15572, r15572, MPFR_RNDN); mpfr_mul(r15575, r15575, r15572, MPFR_RNDN); ; mpfr_mul(r15577, r15575, r15576, MPFR_RNDN); ; mpfr_mul(r15579, r15572, r15572, MPFR_RNDN); mpfr_sub(r15580, r15578, r15579, MPFR_RNDN); mpfr_add(r15581, r15577, r15580, MPFR_RNDN); mpfr_div(r15582, r15581, r15578, MPFR_RNDN); ; mpfr_set_d(r15584, eps, MPFR_RNDN); mpfr_div(r15585, r15583, r15584, MPFR_RNDN); mpfr_add(r15586, r15583, r15585, MPFR_RNDN); mpfr_sub(r15587, r15583, r15584, MPFR_RNDN); mpfr_mul(r15588, r15587, r15572, MPFR_RNDN); mpfr_neg(r15589, r15588, MPFR_RNDN); mpfr_exp(r15590, r15589, MPFR_RNDN); mpfr_mul(r15591, r15586, r15590, MPFR_RNDN); mpfr_sub(r15592, r15585, r15583, MPFR_RNDN); mpfr_cbrt(r15593, r15592, MPFR_RNDN); mpfr_add(r15594, r15583, r15584, MPFR_RNDN); mpfr_mul(r15595, r15594, r15572, MPFR_RNDN); mpfr_neg(r15596, r15595, MPFR_RNDN); mpfr_exp(r15597, r15596, MPFR_RNDN); ; mpfr_pow(r15599, r15597, r15598, MPFR_RNDN); mpfr_mul(r15600, r15593, r15599, MPFR_RNDN); mpfr_mul(r15601, r15600, r15600, MPFR_RNDN); mpfr_mul(r15601, r15601, r15600, MPFR_RNDN); mpfr_sub(r15602, r15591, r15601, MPFR_RNDN); mpfr_div(r15603, r15602, r15578, MPFR_RNDN); if (mpfr_get_si(r15574, MPFR_RNDN)) { mpfr_set(r15604, r15582, MPFR_RNDN); } else { mpfr_set(r15604, r15603, MPFR_RNDN); }; return mpfr_get_d(r15604, MPFR_RNDN); }