#include #include #include #include #include char *name = "NMSE problem 3.3.5"; double f_if(float x, float eps) { float r15131 = x; float r15132 = eps; float r15133 = r15131 + r15132; float r15134 = cos(r15133); float r15135 = cos(r15131); float r15136 = r15134 - r15135; return r15136; } double f_id(double x, double eps) { double r15137 = x; double r15138 = eps; double r15139 = r15137 + r15138; double r15140 = cos(r15139); double r15141 = cos(r15137); double r15142 = r15140 - r15141; return r15142; } double f_of(float x, float eps) { float r15143 = eps; float r15144 = -0.0003180400817655027f; bool r15145 = r15143 <= r15144; float r15146 = x; float r15147 = cos(r15146); float r15148 = cos(r15143); float r15149 = r15147 * r15148; float r15150 = sin(r15146); float r15151 = sin(r15143); float r15152 = r15150 * r15151; float r15153 = cbrt(r15152); float r15154 = r15153 * (r15153 * r15153); float r15155 = r15149 - r15154; float r15156 = r15155 - r15147; float r15157 = 0.013964768499135971f; bool r15158 = r15143 <= r15157; float r15159 = r15143 * r15143; float r15160 = 0.5f; float r15161 = r15159 * r15160; float r15162 = fma(r15151, r15150, r15161); float r15163 = -r15162; float r15164 = expm1(r15149); float r15165 = log1p(r15164); float r15166 = r15165 - r15152; float r15167 = r15166 - r15147; float r15168 = r15158 ? r15163 : r15167; float r15169 = r15145 ? r15156 : r15168; return r15169; } double f_od(double x, double eps) { double r15170 = eps; double r15171 = -0.0003180400817655027; bool r15172 = r15170 <= r15171; double r15173 = x; double r15174 = cos(r15173); double r15175 = cos(r15170); double r15176 = r15174 * r15175; double r15177 = sin(r15173); double r15178 = sin(r15170); double r15179 = r15177 * r15178; double r15180 = cbrt(r15179); double r15181 = r15180 * (r15180 * r15180); double r15182 = r15176 - r15181; double r15183 = r15182 - r15174; double r15184 = 0.013964768499135971; bool r15185 = r15170 <= r15184; double r15186 = r15170 * r15170; double r15187 = 0.5; double r15188 = r15186 * r15187; double r15189 = fma(r15178, r15177, r15188); double r15190 = -r15189; double r15191 = expm1(r15176); double r15192 = log1p(r15191); double r15193 = r15192 - r15179; double r15194 = r15193 - r15174; double r15195 = r15185 ? r15190 : r15194; double r15196 = r15172 ? r15183 : r15195; return r15196; } 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 r15197, r15198, r15199, r15200, r15201, r15202; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15197); mpfr_init(r15198); mpfr_init(r15199); mpfr_init(r15200); mpfr_init(r15201); mpfr_init(r15202); } double f_im(double x, double eps) { mpfr_set_d(r15197, x, MPFR_RNDN); mpfr_set_d(r15198, eps, MPFR_RNDN); mpfr_add(r15199, r15197, r15198, MPFR_RNDN); mpfr_cos(r15200, r15199, MPFR_RNDN); mpfr_cos(r15201, r15197, MPFR_RNDN); mpfr_sub(r15202, r15200, r15201, MPFR_RNDN); return mpfr_get_d(r15202, MPFR_RNDN); } static mpfr_t r15203, r15204, r15205, r15206, r15207, r15208, r15209, r15210, r15211, r15212, r15213, r15214, r15215, r15216, r15217, r15218, r15219, r15220, r15221, r15222, r15223, r15224, r15225, r15226, r15227, r15228, r15229; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15203); mpfr_init_set_str(r15204, "-0.00031804008f0", 10, MPFR_RNDN); mpfr_init(r15205); mpfr_init(r15206); mpfr_init(r15207); mpfr_init(r15208); mpfr_init(r15209); mpfr_init(r15210); mpfr_init(r15211); mpfr_init(r15212); mpfr_init(r15213); mpfr_init(r15214); mpfr_init(r15215); mpfr_init(r15216); mpfr_init_set_str(r15217, "0.0139647685f0", 10, MPFR_RNDN); mpfr_init(r15218); mpfr_init(r15219); mpfr_init_set_str(r15220, "1/2", 10, MPFR_RNDN); mpfr_init(r15221); mpfr_init(r15222); mpfr_init(r15223); mpfr_init(r15224); mpfr_init(r15225); mpfr_init(r15226); mpfr_init(r15227); mpfr_init(r15228); mpfr_init(r15229); } double f_fm(double x, double eps) { mpfr_set_d(r15203, eps, MPFR_RNDN); ; mpfr_set_si(r15205, mpfr_cmp(r15203, r15204) <= 0, MPFR_RNDN); mpfr_set_d(r15206, x, MPFR_RNDN); mpfr_cos(r15207, r15206, MPFR_RNDN); mpfr_cos(r15208, r15203, MPFR_RNDN); mpfr_mul(r15209, r15207, r15208, MPFR_RNDN); mpfr_sin(r15210, r15206, MPFR_RNDN); mpfr_sin(r15211, r15203, MPFR_RNDN); mpfr_mul(r15212, r15210, r15211, MPFR_RNDN); mpfr_cbrt(r15213, r15212, MPFR_RNDN); mpfr_mul(r15214, r15213, r15213, MPFR_RNDN); mpfr_mul(r15214, r15214, r15213, MPFR_RNDN); mpfr_sub(r15215, r15209, r15214, MPFR_RNDN); mpfr_sub(r15216, r15215, r15207, MPFR_RNDN); ; mpfr_set_si(r15218, mpfr_cmp(r15203, r15217) <= 0, MPFR_RNDN); mpfr_mul(r15219, r15203, r15203, MPFR_RNDN); ; mpfr_mul(r15221, r15219, r15220, MPFR_RNDN); mpfr_fma(r15222, r15211, r15210, r15221, MPFR_RNDN); mpfr_neg(r15223, r15222, MPFR_RNDN); mpfr_expm1(r15224, r15209, MPFR_RNDN); mpfr_log1p(r15225, r15224, MPFR_RNDN); mpfr_sub(r15226, r15225, r15212, MPFR_RNDN); mpfr_sub(r15227, r15226, r15207, MPFR_RNDN); if (mpfr_get_si(r15218, MPFR_RNDN)) { mpfr_set(r15228, r15223, MPFR_RNDN); } else { mpfr_set(r15228, r15227, MPFR_RNDN); }; if (mpfr_get_si(r15205, MPFR_RNDN)) { mpfr_set(r15229, r15216, MPFR_RNDN); } else { mpfr_set(r15229, r15228, MPFR_RNDN); }; return mpfr_get_d(r15229, MPFR_RNDN); } static mpfr_t r15230, r15231, r15232, r15233, r15234, r15235, r15236, r15237, r15238, r15239, r15240, r15241, r15242, r15243, r15244, r15245, r15246, r15247, r15248, r15249, r15250, r15251, r15252, r15253, r15254, r15255, r15256; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15230); mpfr_init_set_str(r15231, "-0.00031804008f0", 10, MPFR_RNDN); mpfr_init(r15232); mpfr_init(r15233); mpfr_init(r15234); mpfr_init(r15235); mpfr_init(r15236); mpfr_init(r15237); mpfr_init(r15238); mpfr_init(r15239); mpfr_init(r15240); mpfr_init(r15241); mpfr_init(r15242); mpfr_init(r15243); mpfr_init_set_str(r15244, "0.0139647685f0", 10, MPFR_RNDN); mpfr_init(r15245); mpfr_init(r15246); mpfr_init_set_str(r15247, "1/2", 10, MPFR_RNDN); mpfr_init(r15248); mpfr_init(r15249); mpfr_init(r15250); mpfr_init(r15251); mpfr_init(r15252); mpfr_init(r15253); mpfr_init(r15254); mpfr_init(r15255); mpfr_init(r15256); } double f_dm(double x, double eps) { mpfr_set_d(r15230, eps, MPFR_RNDN); ; mpfr_set_si(r15232, mpfr_cmp(r15230, r15231) <= 0, MPFR_RNDN); mpfr_set_d(r15233, x, MPFR_RNDN); mpfr_cos(r15234, r15233, MPFR_RNDN); mpfr_cos(r15235, r15230, MPFR_RNDN); mpfr_mul(r15236, r15234, r15235, MPFR_RNDN); mpfr_sin(r15237, r15233, MPFR_RNDN); mpfr_sin(r15238, r15230, MPFR_RNDN); mpfr_mul(r15239, r15237, r15238, MPFR_RNDN); mpfr_cbrt(r15240, r15239, MPFR_RNDN); mpfr_mul(r15241, r15240, r15240, MPFR_RNDN); mpfr_mul(r15241, r15241, r15240, MPFR_RNDN); mpfr_sub(r15242, r15236, r15241, MPFR_RNDN); mpfr_sub(r15243, r15242, r15234, MPFR_RNDN); ; mpfr_set_si(r15245, mpfr_cmp(r15230, r15244) <= 0, MPFR_RNDN); mpfr_mul(r15246, r15230, r15230, MPFR_RNDN); ; mpfr_mul(r15248, r15246, r15247, MPFR_RNDN); mpfr_fma(r15249, r15238, r15237, r15248, MPFR_RNDN); mpfr_neg(r15250, r15249, MPFR_RNDN); mpfr_expm1(r15251, r15236, MPFR_RNDN); mpfr_log1p(r15252, r15251, MPFR_RNDN); mpfr_sub(r15253, r15252, r15239, MPFR_RNDN); mpfr_sub(r15254, r15253, r15234, MPFR_RNDN); if (mpfr_get_si(r15245, MPFR_RNDN)) { mpfr_set(r15255, r15250, MPFR_RNDN); } else { mpfr_set(r15255, r15254, MPFR_RNDN); }; if (mpfr_get_si(r15232, MPFR_RNDN)) { mpfr_set(r15256, r15243, MPFR_RNDN); } else { mpfr_set(r15256, r15255, MPFR_RNDN); }; return mpfr_get_d(r15256, MPFR_RNDN); }