#include #include #include #include #include char *name = "Jmat.Real.erfi, branch x greater than or equal to 5"; double f_if(float x) { float r27130 = 1; float r27131 = atan2(1.0, 0.0); float r27132 = sqrt(r27131); float r27133 = r27130 / r27132; float r27134 = x; float r27135 = fabs(r27134); float r27136 = r27135 * r27135; float r27137 = exp(r27136); float r27138 = r27133 * r27137; float r27139 = r27130 / r27135; float r27140 = 2; float r27141 = r27130 / r27140; float r27142 = r27139 * r27139; float r27143 = r27142 * r27139; float r27144 = r27141 * r27143; float r27145 = r27139 + r27144; float r27146 = 3; float r27147 = 4; float r27148 = r27146 / r27147; float r27149 = r27143 * r27139; float r27150 = r27149 * r27139; float r27151 = r27148 * r27150; float r27152 = r27145 + r27151; float r27153 = 15; float r27154 = 8; float r27155 = r27153 / r27154; float r27156 = r27150 * r27139; float r27157 = r27156 * r27139; float r27158 = r27155 * r27157; float r27159 = r27152 + r27158; float r27160 = r27138 * r27159; return r27160; } double f_id(double x) { double r27161 = 1; double r27162 = atan2(1.0, 0.0); double r27163 = sqrt(r27162); double r27164 = r27161 / r27163; double r27165 = x; double r27166 = fabs(r27165); double r27167 = r27166 * r27166; double r27168 = exp(r27167); double r27169 = r27164 * r27168; double r27170 = r27161 / r27166; double r27171 = 2; double r27172 = r27161 / r27171; double r27173 = r27170 * r27170; double r27174 = r27173 * r27170; double r27175 = r27172 * r27174; double r27176 = r27170 + r27175; double r27177 = 3; double r27178 = 4; double r27179 = r27177 / r27178; double r27180 = r27174 * r27170; double r27181 = r27180 * r27170; double r27182 = r27179 * r27181; double r27183 = r27176 + r27182; double r27184 = 15; double r27185 = 8; double r27186 = r27184 / r27185; double r27187 = r27181 * r27170; double r27188 = r27187 * r27170; double r27189 = r27186 * r27188; double r27190 = r27183 + r27189; double r27191 = r27169 * r27190; return r27191; } double f_of(float x) { float r27192 = 1; float r27193 = x; float r27194 = fabs(r27193); float r27195 = r27192 / r27194; float r27196 = r27194 * r27194; float r27197 = r27195 / r27196; float r27198 = r27197 / r27196; float r27199 = 3; float r27200 = 4; float r27201 = r27199 / r27200; float r27202 = 2; float r27203 = r27192 / r27202; float r27204 = fma(r27197, r27203, r27195); float r27205 = fma(r27198, r27201, r27204); float r27206 = exp(r27196); float r27207 = atan2(1.0, 0.0); float r27208 = sqrt(r27207); float r27209 = r27206 / r27208; float r27210 = -1; float r27211 = r27210 - r27199; float r27212 = pow(r27194, r27211); float r27213 = r27212 * r27197; float r27214 = 15; float r27215 = 8; float r27216 = r27214 / r27215; float r27217 = r27192 / r27208; float r27218 = r27216 * r27217; float r27219 = r27218 * r27206; float r27220 = r27213 * r27219; float r27221 = fma(r27205, r27209, r27220); return r27221; } double f_od(double x) { double r27222 = 1; double r27223 = x; double r27224 = fabs(r27223); double r27225 = r27222 / r27224; double r27226 = r27224 * r27224; double r27227 = r27225 / r27226; double r27228 = r27227 / r27226; double r27229 = 3; double r27230 = 4; double r27231 = r27229 / r27230; double r27232 = 2; double r27233 = r27222 / r27232; double r27234 = fma(r27227, r27233, r27225); double r27235 = fma(r27228, r27231, r27234); double r27236 = exp(r27226); double r27237 = atan2(1.0, 0.0); double r27238 = sqrt(r27237); double r27239 = r27236 / r27238; double r27240 = -1; double r27241 = r27240 - r27229; double r27242 = pow(r27224, r27241); double r27243 = r27242 * r27227; double r27244 = 15; double r27245 = 8; double r27246 = r27244 / r27245; double r27247 = r27222 / r27238; double r27248 = r27246 * r27247; double r27249 = r27248 * r27236; double r27250 = r27243 * r27249; double r27251 = fma(r27235, r27239, r27250); return r27251; } 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 r27252, r27253, r27254, r27255, r27256, r27257, r27258, r27259, r27260, r27261, r27262, r27263, r27264, r27265, r27266, r27267, r27268, r27269, r27270, r27271, r27272, r27273, r27274, r27275, r27276, r27277, r27278, r27279, r27280, r27281, r27282; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init_set_str(r27252, "1", 10, MPFR_RNDN); mpfr_init(r27253); mpfr_init(r27254); mpfr_init(r27255); mpfr_init(r27256); mpfr_init(r27257); mpfr_init(r27258); mpfr_init(r27259); mpfr_init(r27260); mpfr_init(r27261); mpfr_init_set_str(r27262, "2", 10, MPFR_RNDN); mpfr_init(r27263); mpfr_init(r27264); mpfr_init(r27265); mpfr_init(r27266); mpfr_init(r27267); mpfr_init_set_str(r27268, "3", 10, MPFR_RNDN); mpfr_init_set_str(r27269, "4", 10, MPFR_RNDN); mpfr_init(r27270); mpfr_init(r27271); mpfr_init(r27272); mpfr_init(r27273); mpfr_init(r27274); mpfr_init_set_str(r27275, "15", 10, MPFR_RNDN); mpfr_init_set_str(r27276, "8", 10, MPFR_RNDN); mpfr_init(r27277); mpfr_init(r27278); mpfr_init(r27279); mpfr_init(r27280); mpfr_init(r27281); mpfr_init(r27282); } double f_im(double x) { ; mpfr_const_pi(r27253, MPFR_RNDN); mpfr_sqrt(r27254, r27253, MPFR_RNDN); mpfr_div(r27255, r27252, r27254, MPFR_RNDN); mpfr_set_d(r27256, x, MPFR_RNDN); mpfr_abs(r27257, r27256, MPFR_RNDN); mpfr_mul(r27258, r27257, r27257, MPFR_RNDN); mpfr_exp(r27259, r27258, MPFR_RNDN); mpfr_mul(r27260, r27255, r27259, MPFR_RNDN); mpfr_div(r27261, r27252, r27257, MPFR_RNDN); ; mpfr_div(r27263, r27252, r27262, MPFR_RNDN); mpfr_mul(r27264, r27261, r27261, MPFR_RNDN); mpfr_mul(r27265, r27264, r27261, MPFR_RNDN); mpfr_mul(r27266, r27263, r27265, MPFR_RNDN); mpfr_add(r27267, r27261, r27266, MPFR_RNDN); ; ; mpfr_div(r27270, r27268, r27269, MPFR_RNDN); mpfr_mul(r27271, r27265, r27261, MPFR_RNDN); mpfr_mul(r27272, r27271, r27261, MPFR_RNDN); mpfr_mul(r27273, r27270, r27272, MPFR_RNDN); mpfr_add(r27274, r27267, r27273, MPFR_RNDN); ; ; mpfr_div(r27277, r27275, r27276, MPFR_RNDN); mpfr_mul(r27278, r27272, r27261, MPFR_RNDN); mpfr_mul(r27279, r27278, r27261, MPFR_RNDN); mpfr_mul(r27280, r27277, r27279, MPFR_RNDN); mpfr_add(r27281, r27274, r27280, MPFR_RNDN); mpfr_mul(r27282, r27260, r27281, MPFR_RNDN); return mpfr_get_d(r27282, MPFR_RNDN); } static mpfr_t r27283, r27284, r27285, r27286, r27287, r27288, r27289, r27290, r27291, r27292, r27293, r27294, r27295, r27296, r27297, r27298, r27299, r27300, r27301, r27302, r27303, r27304, r27305, r27306, r27307, r27308, r27309, r27310, r27311, r27312; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init_set_str(r27283, "1", 10, MPFR_RNDN); mpfr_init(r27284); mpfr_init(r27285); mpfr_init(r27286); mpfr_init(r27287); mpfr_init(r27288); mpfr_init(r27289); mpfr_init_set_str(r27290, "3", 10, MPFR_RNDN); mpfr_init_set_str(r27291, "4", 10, MPFR_RNDN); mpfr_init(r27292); mpfr_init_set_str(r27293, "2", 10, MPFR_RNDN); mpfr_init(r27294); mpfr_init(r27295); mpfr_init(r27296); mpfr_init(r27297); mpfr_init(r27298); mpfr_init(r27299); mpfr_init(r27300); mpfr_init_set_str(r27301, "-1", 10, MPFR_RNDN); mpfr_init(r27302); mpfr_init(r27303); mpfr_init(r27304); mpfr_init_set_str(r27305, "15", 10, MPFR_RNDN); mpfr_init_set_str(r27306, "8", 10, MPFR_RNDN); mpfr_init(r27307); mpfr_init(r27308); mpfr_init(r27309); mpfr_init(r27310); mpfr_init(r27311); mpfr_init(r27312); } double f_fm(double x) { ; mpfr_set_d(r27284, x, MPFR_RNDN); mpfr_abs(r27285, r27284, MPFR_RNDN); mpfr_div(r27286, r27283, r27285, MPFR_RNDN); mpfr_mul(r27287, r27285, r27285, MPFR_RNDN); mpfr_div(r27288, r27286, r27287, MPFR_RNDN); mpfr_div(r27289, r27288, r27287, MPFR_RNDN); ; ; mpfr_div(r27292, r27290, r27291, MPFR_RNDN); ; mpfr_div(r27294, r27283, r27293, MPFR_RNDN); mpfr_fma(r27295, r27288, r27294, r27286, MPFR_RNDN); mpfr_fma(r27296, r27289, r27292, r27295, MPFR_RNDN); mpfr_exp(r27297, r27287, MPFR_RNDN); mpfr_const_pi(r27298, MPFR_RNDN); mpfr_sqrt(r27299, r27298, MPFR_RNDN); mpfr_div(r27300, r27297, r27299, MPFR_RNDN); ; mpfr_sub(r27302, r27301, r27290, MPFR_RNDN); mpfr_pow(r27303, r27285, r27302, MPFR_RNDN); mpfr_mul(r27304, r27303, r27288, MPFR_RNDN); ; ; mpfr_div(r27307, r27305, r27306, MPFR_RNDN); mpfr_div(r27308, r27283, r27299, MPFR_RNDN); mpfr_mul(r27309, r27307, r27308, MPFR_RNDN); mpfr_mul(r27310, r27309, r27297, MPFR_RNDN); mpfr_mul(r27311, r27304, r27310, MPFR_RNDN); mpfr_fma(r27312, r27296, r27300, r27311, MPFR_RNDN); return mpfr_get_d(r27312, MPFR_RNDN); } static mpfr_t r27313, r27314, r27315, r27316, r27317, r27318, r27319, r27320, r27321, r27322, r27323, r27324, r27325, r27326, r27327, r27328, r27329, r27330, r27331, r27332, r27333, r27334, r27335, r27336, r27337, r27338, r27339, r27340, r27341, r27342; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init_set_str(r27313, "1", 10, MPFR_RNDN); mpfr_init(r27314); mpfr_init(r27315); mpfr_init(r27316); mpfr_init(r27317); mpfr_init(r27318); mpfr_init(r27319); mpfr_init_set_str(r27320, "3", 10, MPFR_RNDN); mpfr_init_set_str(r27321, "4", 10, MPFR_RNDN); mpfr_init(r27322); mpfr_init_set_str(r27323, "2", 10, MPFR_RNDN); mpfr_init(r27324); mpfr_init(r27325); mpfr_init(r27326); mpfr_init(r27327); mpfr_init(r27328); mpfr_init(r27329); mpfr_init(r27330); mpfr_init_set_str(r27331, "-1", 10, MPFR_RNDN); mpfr_init(r27332); mpfr_init(r27333); mpfr_init(r27334); mpfr_init_set_str(r27335, "15", 10, MPFR_RNDN); mpfr_init_set_str(r27336, "8", 10, MPFR_RNDN); mpfr_init(r27337); mpfr_init(r27338); mpfr_init(r27339); mpfr_init(r27340); mpfr_init(r27341); mpfr_init(r27342); } double f_dm(double x) { ; mpfr_set_d(r27314, x, MPFR_RNDN); mpfr_abs(r27315, r27314, MPFR_RNDN); mpfr_div(r27316, r27313, r27315, MPFR_RNDN); mpfr_mul(r27317, r27315, r27315, MPFR_RNDN); mpfr_div(r27318, r27316, r27317, MPFR_RNDN); mpfr_div(r27319, r27318, r27317, MPFR_RNDN); ; ; mpfr_div(r27322, r27320, r27321, MPFR_RNDN); ; mpfr_div(r27324, r27313, r27323, MPFR_RNDN); mpfr_fma(r27325, r27318, r27324, r27316, MPFR_RNDN); mpfr_fma(r27326, r27319, r27322, r27325, MPFR_RNDN); mpfr_exp(r27327, r27317, MPFR_RNDN); mpfr_const_pi(r27328, MPFR_RNDN); mpfr_sqrt(r27329, r27328, MPFR_RNDN); mpfr_div(r27330, r27327, r27329, MPFR_RNDN); ; mpfr_sub(r27332, r27331, r27320, MPFR_RNDN); mpfr_pow(r27333, r27315, r27332, MPFR_RNDN); mpfr_mul(r27334, r27333, r27318, MPFR_RNDN); ; ; mpfr_div(r27337, r27335, r27336, MPFR_RNDN); mpfr_div(r27338, r27313, r27329, MPFR_RNDN); mpfr_mul(r27339, r27337, r27338, MPFR_RNDN); mpfr_mul(r27340, r27339, r27327, MPFR_RNDN); mpfr_mul(r27341, r27334, r27340, MPFR_RNDN); mpfr_fma(r27342, r27326, r27330, r27341, MPFR_RNDN); return mpfr_get_d(r27342, MPFR_RNDN); }