#include #include #include #include #include char *name = "NMSE section 3.11"; double f_if(float x) { float r15961 = x; float r15962 = exp(r15961); float r15963 = 1.0f; float r15964 = r15962 - r15963; float r15965 = r15962 / r15964; return r15965; } double f_id(double x) { double r15966 = x; double r15967 = exp(r15966); double r15968 = 1.0; double r15969 = r15967 - r15968; double r15970 = r15967 / r15969; return r15970; } double f_of(float x) { float r15971 = x; float r15972 = -0.0012153552379459143f; bool r15973 = r15971 <= r15972; float r15974 = exp(r15971); float r15975 = 1.0f; float r15976 = r15974 - r15975; float r15977 = r15974 / r15976; float r15978 = 0.0782879889011383f; bool r15979 = r15971 <= r15978; float r15980 = 0.5f; float r15981 = r15971 * r15971; float r15982 = r15980 * r15981; float r15983 = 0.1666666716337204f; float r15984 = 3.0f; float r15985 = pow(r15971, r15984); float r15986 = r15983 * r15985; float r15987 = r15986 + r15971; float r15988 = r15982 + r15987; float r15989 = r15974 / r15988; float r15990 = -r15971; float r15991 = exp(r15990); float r15992 = r15975 - r15991; float r15993 = r15975 / r15992; float r15994 = r15979 ? r15989 : r15993; float r15995 = r15973 ? r15977 : r15994; return r15995; } double f_od(double x) { double r15996 = x; double r15997 = -0.0012153552379459143; bool r15998 = r15996 <= r15997; double r15999 = exp(r15996); double r16000 = 1.0; double r16001 = r15999 - r16000; double r16002 = r15999 / r16001; double r16003 = 0.0782879889011383; bool r16004 = r15996 <= r16003; double r16005 = 0.5; double r16006 = r15996 * r15996; double r16007 = r16005 * r16006; double r16008 = 0.1666666716337204; double r16009 = 3.0; double r16010 = pow(r15996, r16009); double r16011 = r16008 * r16010; double r16012 = r16011 + r15996; double r16013 = r16007 + r16012; double r16014 = r15999 / r16013; double r16015 = -r15996; double r16016 = exp(r16015); double r16017 = r16000 - r16016; double r16018 = r16000 / r16017; double r16019 = r16004 ? r16014 : r16018; double r16020 = r15998 ? r16002 : r16019; return r16020; } 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 r16021, r16022, r16023, r16024, r16025; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r16021); mpfr_init(r16022); mpfr_init_set_str(r16023, "1", 10, MPFR_RNDN); mpfr_init(r16024); mpfr_init(r16025); } double f_im(double x) { mpfr_set_d(r16021, x, MPFR_RNDN); mpfr_exp(r16022, r16021, MPFR_RNDN); ; mpfr_sub(r16024, r16022, r16023, MPFR_RNDN); mpfr_div(r16025, r16022, r16024, MPFR_RNDN); return mpfr_get_d(r16025, MPFR_RNDN); } static mpfr_t r16026, r16027, r16028, r16029, r16030, r16031, r16032, r16033, r16034, r16035, r16036, r16037, r16038, r16039, r16040, r16041, r16042, r16043, r16044, r16045, r16046, r16047, r16048, r16049, r16050; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r16026); mpfr_init_set_str(r16027, "-0.0012153552f0", 10, MPFR_RNDN); mpfr_init(r16028); mpfr_init(r16029); mpfr_init_set_str(r16030, "1", 10, MPFR_RNDN); mpfr_init(r16031); mpfr_init(r16032); mpfr_init_set_str(r16033, "0.07828799f0", 10, MPFR_RNDN); mpfr_init(r16034); mpfr_init_set_str(r16035, "1/2", 10, MPFR_RNDN); mpfr_init(r16036); mpfr_init(r16037); mpfr_init_set_str(r16038, "1/6", 10, MPFR_RNDN); mpfr_init_set_str(r16039, "3", 10, MPFR_RNDN); mpfr_init(r16040); mpfr_init(r16041); mpfr_init(r16042); mpfr_init(r16043); mpfr_init(r16044); mpfr_init(r16045); mpfr_init(r16046); mpfr_init(r16047); mpfr_init(r16048); mpfr_init(r16049); mpfr_init(r16050); } double f_fm(double x) { mpfr_set_d(r16026, x, MPFR_RNDN); ; mpfr_set_si(r16028, mpfr_cmp(r16026, r16027) <= 0, MPFR_RNDN); mpfr_exp(r16029, r16026, MPFR_RNDN); ; mpfr_sub(r16031, r16029, r16030, MPFR_RNDN); mpfr_div(r16032, r16029, r16031, MPFR_RNDN); ; mpfr_set_si(r16034, mpfr_cmp(r16026, r16033) <= 0, MPFR_RNDN); ; mpfr_sqr(r16036, r16026, MPFR_RNDN); mpfr_mul(r16037, r16035, r16036, MPFR_RNDN); ; ; mpfr_pow(r16040, r16026, r16039, MPFR_RNDN); mpfr_mul(r16041, r16038, r16040, MPFR_RNDN); mpfr_add(r16042, r16041, r16026, MPFR_RNDN); mpfr_add(r16043, r16037, r16042, MPFR_RNDN); mpfr_div(r16044, r16029, r16043, MPFR_RNDN); mpfr_neg(r16045, r16026, MPFR_RNDN); mpfr_exp(r16046, r16045, MPFR_RNDN); mpfr_sub(r16047, r16030, r16046, MPFR_RNDN); mpfr_div(r16048, r16030, r16047, MPFR_RNDN); if (mpfr_get_si(r16034, MPFR_RNDN)) { mpfr_set(r16049, r16044, MPFR_RNDN); } else { mpfr_set(r16049, r16048, MPFR_RNDN); }; if (mpfr_get_si(r16028, MPFR_RNDN)) { mpfr_set(r16050, r16032, MPFR_RNDN); } else { mpfr_set(r16050, r16049, MPFR_RNDN); }; return mpfr_get_d(r16050, MPFR_RNDN); } static mpfr_t r16051, r16052, r16053, r16054, r16055, r16056, r16057, r16058, r16059, r16060, r16061, r16062, r16063, r16064, r16065, r16066, r16067, r16068, r16069, r16070, r16071, r16072, r16073, r16074, r16075; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r16051); mpfr_init_set_str(r16052, "-0.0012153552f0", 10, MPFR_RNDN); mpfr_init(r16053); mpfr_init(r16054); mpfr_init_set_str(r16055, "1", 10, MPFR_RNDN); mpfr_init(r16056); mpfr_init(r16057); mpfr_init_set_str(r16058, "0.07828799f0", 10, MPFR_RNDN); mpfr_init(r16059); mpfr_init_set_str(r16060, "1/2", 10, MPFR_RNDN); mpfr_init(r16061); mpfr_init(r16062); mpfr_init_set_str(r16063, "1/6", 10, MPFR_RNDN); mpfr_init_set_str(r16064, "3", 10, MPFR_RNDN); mpfr_init(r16065); mpfr_init(r16066); mpfr_init(r16067); mpfr_init(r16068); mpfr_init(r16069); mpfr_init(r16070); mpfr_init(r16071); mpfr_init(r16072); mpfr_init(r16073); mpfr_init(r16074); mpfr_init(r16075); } double f_dm(double x) { mpfr_set_d(r16051, x, MPFR_RNDN); ; mpfr_set_si(r16053, mpfr_cmp(r16051, r16052) <= 0, MPFR_RNDN); mpfr_exp(r16054, r16051, MPFR_RNDN); ; mpfr_sub(r16056, r16054, r16055, MPFR_RNDN); mpfr_div(r16057, r16054, r16056, MPFR_RNDN); ; mpfr_set_si(r16059, mpfr_cmp(r16051, r16058) <= 0, MPFR_RNDN); ; mpfr_sqr(r16061, r16051, MPFR_RNDN); mpfr_mul(r16062, r16060, r16061, MPFR_RNDN); ; ; mpfr_pow(r16065, r16051, r16064, MPFR_RNDN); mpfr_mul(r16066, r16063, r16065, MPFR_RNDN); mpfr_add(r16067, r16066, r16051, MPFR_RNDN); mpfr_add(r16068, r16062, r16067, MPFR_RNDN); mpfr_div(r16069, r16054, r16068, MPFR_RNDN); mpfr_neg(r16070, r16051, MPFR_RNDN); mpfr_exp(r16071, r16070, MPFR_RNDN); mpfr_sub(r16072, r16055, r16071, MPFR_RNDN); mpfr_div(r16073, r16055, r16072, MPFR_RNDN); if (mpfr_get_si(r16059, MPFR_RNDN)) { mpfr_set(r16074, r16069, MPFR_RNDN); } else { mpfr_set(r16074, r16073, MPFR_RNDN); }; if (mpfr_get_si(r16053, MPFR_RNDN)) { mpfr_set(r16075, r16057, MPFR_RNDN); } else { mpfr_set(r16075, r16074, MPFR_RNDN); }; return mpfr_get_d(r16075, MPFR_RNDN); }