#include #include #include #include #include char *name = "Jmat.Real.erfi, branch x greater than or equal to 5"; double f_if(float x) { float r18912 = 1.0f; float r18913 = atan2(1.0, 0.0); float r18914 = sqrt(r18913); float r18915 = r18912 / r18914; float r18916 = x; float r18917 = fabs(r18916); float r18918 = r18917 * r18917; float r18919 = exp(r18918); float r18920 = r18915 * r18919; float r18921 = r18912 / r18917; float r18922 = 2.0f; float r18923 = r18912 / r18922; float r18924 = r18921 * r18921; float r18925 = r18924 * r18921; float r18926 = r18923 * r18925; float r18927 = r18921 + r18926; float r18928 = 3.0f; float r18929 = 4.0f; float r18930 = r18928 / r18929; float r18931 = r18925 * r18921; float r18932 = r18931 * r18921; float r18933 = r18930 * r18932; float r18934 = r18927 + r18933; float r18935 = 15.0f; float r18936 = 8.0f; float r18937 = r18935 / r18936; float r18938 = r18932 * r18921; float r18939 = r18938 * r18921; float r18940 = r18937 * r18939; float r18941 = r18934 + r18940; float r18942 = r18920 * r18941; return r18942; } double f_id(double x) { double r18943 = 1.0; double r18944 = atan2(1.0, 0.0); double r18945 = sqrt(r18944); double r18946 = r18943 / r18945; double r18947 = x; double r18948 = fabs(r18947); double r18949 = r18948 * r18948; double r18950 = exp(r18949); double r18951 = r18946 * r18950; double r18952 = r18943 / r18948; double r18953 = 2.0; double r18954 = r18943 / r18953; double r18955 = r18952 * r18952; double r18956 = r18955 * r18952; double r18957 = r18954 * r18956; double r18958 = r18952 + r18957; double r18959 = 3.0; double r18960 = 4.0; double r18961 = r18959 / r18960; double r18962 = r18956 * r18952; double r18963 = r18962 * r18952; double r18964 = r18961 * r18963; double r18965 = r18958 + r18964; double r18966 = 15.0; double r18967 = 8.0; double r18968 = r18966 / r18967; double r18969 = r18963 * r18952; double r18970 = r18969 * r18952; double r18971 = r18968 * r18970; double r18972 = r18965 + r18971; double r18973 = r18951 * r18972; return r18973; } double f_of(float x) { float r18974 = x; float r18975 = fabs(r18974); float r18976 = r18975 * r18975; float r18977 = exp(r18976); float r18978 = atan2(1.0, 0.0); float r18979 = sqrt(r18978); float r18980 = r18977 / r18979; float r18981 = 15.0f; float r18982 = r18981 / r18975; float r18983 = r18975 * (r18975 * r18975); float r18984 = r18983 * r18983; float r18985 = r18982 / r18984; float r18986 = 8.0f; float r18987 = r18985 / r18986; float r18988 = 1.0f; float r18989 = 2.0f; float r18990 = r18988 / r18989; float r18991 = r18990 / r18983; float r18992 = r18988 / r18975; float r18993 = r18991 + r18992; float r18994 = 0.75f; float r18995 = r18994 / r18975; float r18996 = r18976 * r18976; float r18997 = r18995 / r18996; float r18998 = r18993 + r18997; float r18999 = r18987 + r18998; float r19000 = r18980 * r18999; return r19000; } double f_od(double x) { double r19001 = x; double r19002 = fabs(r19001); double r19003 = r19002 * r19002; double r19004 = exp(r19003); double r19005 = atan2(1.0, 0.0); double r19006 = sqrt(r19005); double r19007 = r19004 / r19006; double r19008 = 15.0; double r19009 = r19008 / r19002; double r19010 = r19002 * (r19002 * r19002); double r19011 = r19010 * r19010; double r19012 = r19009 / r19011; double r19013 = 8.0; double r19014 = r19012 / r19013; double r19015 = 1.0; double r19016 = 2.0; double r19017 = r19015 / r19016; double r19018 = r19017 / r19010; double r19019 = r19015 / r19002; double r19020 = r19018 + r19019; double r19021 = 0.75; double r19022 = r19021 / r19002; double r19023 = r19003 * r19003; double r19024 = r19022 / r19023; double r19025 = r19020 + r19024; double r19026 = r19014 + r19025; double r19027 = r19007 * r19026; return r19027; } 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 r19028, r19029, r19030, r19031, r19032, r19033, r19034, r19035, r19036, r19037, r19038, r19039, r19040, r19041, r19042, r19043, r19044, r19045, r19046, r19047, r19048, r19049, r19050, r19051, r19052, r19053, r19054, r19055, r19056, r19057, r19058; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r19028, "1", 10, MPFR_RNDN); mpfr_init(r19029); mpfr_init(r19030); mpfr_init(r19031); mpfr_init(r19032); mpfr_init(r19033); mpfr_init(r19034); mpfr_init(r19035); mpfr_init(r19036); mpfr_init(r19037); mpfr_init_set_str(r19038, "2", 10, MPFR_RNDN); mpfr_init(r19039); mpfr_init(r19040); mpfr_init(r19041); mpfr_init(r19042); mpfr_init(r19043); mpfr_init_set_str(r19044, "3", 10, MPFR_RNDN); mpfr_init_set_str(r19045, "4", 10, MPFR_RNDN); mpfr_init(r19046); mpfr_init(r19047); mpfr_init(r19048); mpfr_init(r19049); mpfr_init(r19050); mpfr_init_set_str(r19051, "15", 10, MPFR_RNDN); mpfr_init_set_str(r19052, "8", 10, MPFR_RNDN); mpfr_init(r19053); mpfr_init(r19054); mpfr_init(r19055); mpfr_init(r19056); mpfr_init(r19057); mpfr_init(r19058); } double f_im(double x) { ; mpfr_const_pi(r19029, MPFR_RNDN); mpfr_sqrt(r19030, r19029, MPFR_RNDN); mpfr_div(r19031, r19028, r19030, MPFR_RNDN); mpfr_set_d(r19032, x, MPFR_RNDN); mpfr_abs(r19033, r19032, MPFR_RNDN); mpfr_mul(r19034, r19033, r19033, MPFR_RNDN); mpfr_exp(r19035, r19034, MPFR_RNDN); mpfr_mul(r19036, r19031, r19035, MPFR_RNDN); mpfr_div(r19037, r19028, r19033, MPFR_RNDN); ; mpfr_div(r19039, r19028, r19038, MPFR_RNDN); mpfr_mul(r19040, r19037, r19037, MPFR_RNDN); mpfr_mul(r19041, r19040, r19037, MPFR_RNDN); mpfr_mul(r19042, r19039, r19041, MPFR_RNDN); mpfr_add(r19043, r19037, r19042, MPFR_RNDN); ; ; mpfr_div(r19046, r19044, r19045, MPFR_RNDN); mpfr_mul(r19047, r19041, r19037, MPFR_RNDN); mpfr_mul(r19048, r19047, r19037, MPFR_RNDN); mpfr_mul(r19049, r19046, r19048, MPFR_RNDN); mpfr_add(r19050, r19043, r19049, MPFR_RNDN); ; ; mpfr_div(r19053, r19051, r19052, MPFR_RNDN); mpfr_mul(r19054, r19048, r19037, MPFR_RNDN); mpfr_mul(r19055, r19054, r19037, MPFR_RNDN); mpfr_mul(r19056, r19053, r19055, MPFR_RNDN); mpfr_add(r19057, r19050, r19056, MPFR_RNDN); mpfr_mul(r19058, r19036, r19057, MPFR_RNDN); return mpfr_get_d(r19058, MPFR_RNDN); } static mpfr_t r19059, r19060, r19061, r19062, r19063, r19064, r19065, r19066, r19067, r19068, r19069, r19070, r19071, r19072, r19073, r19074, r19075, r19076, r19077, r19078, r19079, r19080, r19081, r19082, r19083, r19084, r19085; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r19059); mpfr_init(r19060); mpfr_init(r19061); mpfr_init(r19062); mpfr_init(r19063); mpfr_init(r19064); mpfr_init(r19065); mpfr_init_set_str(r19066, "15", 10, MPFR_RNDN); mpfr_init(r19067); mpfr_init(r19068); mpfr_init(r19069); mpfr_init(r19070); mpfr_init_set_str(r19071, "8", 10, MPFR_RNDN); mpfr_init(r19072); mpfr_init_set_str(r19073, "1", 10, MPFR_RNDN); mpfr_init_set_str(r19074, "2", 10, MPFR_RNDN); mpfr_init(r19075); mpfr_init(r19076); mpfr_init(r19077); mpfr_init(r19078); mpfr_init_set_str(r19079, "3/4", 10, MPFR_RNDN); mpfr_init(r19080); mpfr_init(r19081); mpfr_init(r19082); mpfr_init(r19083); mpfr_init(r19084); mpfr_init(r19085); } double f_fm(double x) { mpfr_set_d(r19059, x, MPFR_RNDN); mpfr_abs(r19060, r19059, MPFR_RNDN); mpfr_mul(r19061, r19060, r19060, MPFR_RNDN); mpfr_exp(r19062, r19061, MPFR_RNDN); mpfr_const_pi(r19063, MPFR_RNDN); mpfr_sqrt(r19064, r19063, MPFR_RNDN); mpfr_div(r19065, r19062, r19064, MPFR_RNDN); ; mpfr_div(r19067, r19066, r19060, MPFR_RNDN); mpfr_mul(r19068, r19060, r19060, MPFR_RNDN); mpfr_mul(r19068, r19068, r19060, MPFR_RNDN); mpfr_mul(r19069, r19068, r19068, MPFR_RNDN); mpfr_div(r19070, r19067, r19069, MPFR_RNDN); ; mpfr_div(r19072, r19070, r19071, MPFR_RNDN); ; ; mpfr_div(r19075, r19073, r19074, MPFR_RNDN); mpfr_div(r19076, r19075, r19068, MPFR_RNDN); mpfr_div(r19077, r19073, r19060, MPFR_RNDN); mpfr_add(r19078, r19076, r19077, MPFR_RNDN); ; mpfr_div(r19080, r19079, r19060, MPFR_RNDN); mpfr_sqr(r19081, r19061, MPFR_RNDN); mpfr_div(r19082, r19080, r19081, MPFR_RNDN); mpfr_add(r19083, r19078, r19082, MPFR_RNDN); mpfr_add(r19084, r19072, r19083, MPFR_RNDN); mpfr_mul(r19085, r19065, r19084, MPFR_RNDN); return mpfr_get_d(r19085, MPFR_RNDN); } static mpfr_t r19086, r19087, r19088, r19089, r19090, r19091, r19092, r19093, r19094, r19095, r19096, r19097, r19098, r19099, r19100, r19101, r19102, r19103, r19104, r19105, r19106, r19107, r19108, r19109, r19110, r19111, r19112; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r19086); mpfr_init(r19087); mpfr_init(r19088); mpfr_init(r19089); mpfr_init(r19090); mpfr_init(r19091); mpfr_init(r19092); mpfr_init_set_str(r19093, "15", 10, MPFR_RNDN); mpfr_init(r19094); mpfr_init(r19095); mpfr_init(r19096); mpfr_init(r19097); mpfr_init_set_str(r19098, "8", 10, MPFR_RNDN); mpfr_init(r19099); mpfr_init_set_str(r19100, "1", 10, MPFR_RNDN); mpfr_init_set_str(r19101, "2", 10, MPFR_RNDN); mpfr_init(r19102); mpfr_init(r19103); mpfr_init(r19104); mpfr_init(r19105); mpfr_init_set_str(r19106, "3/4", 10, MPFR_RNDN); mpfr_init(r19107); mpfr_init(r19108); mpfr_init(r19109); mpfr_init(r19110); mpfr_init(r19111); mpfr_init(r19112); } double f_dm(double x) { mpfr_set_d(r19086, x, MPFR_RNDN); mpfr_abs(r19087, r19086, MPFR_RNDN); mpfr_mul(r19088, r19087, r19087, MPFR_RNDN); mpfr_exp(r19089, r19088, MPFR_RNDN); mpfr_const_pi(r19090, MPFR_RNDN); mpfr_sqrt(r19091, r19090, MPFR_RNDN); mpfr_div(r19092, r19089, r19091, MPFR_RNDN); ; mpfr_div(r19094, r19093, r19087, MPFR_RNDN); mpfr_mul(r19095, r19087, r19087, MPFR_RNDN); mpfr_mul(r19095, r19095, r19087, MPFR_RNDN); mpfr_mul(r19096, r19095, r19095, MPFR_RNDN); mpfr_div(r19097, r19094, r19096, MPFR_RNDN); ; mpfr_div(r19099, r19097, r19098, MPFR_RNDN); ; ; mpfr_div(r19102, r19100, r19101, MPFR_RNDN); mpfr_div(r19103, r19102, r19095, MPFR_RNDN); mpfr_div(r19104, r19100, r19087, MPFR_RNDN); mpfr_add(r19105, r19103, r19104, MPFR_RNDN); ; mpfr_div(r19107, r19106, r19087, MPFR_RNDN); mpfr_sqr(r19108, r19088, MPFR_RNDN); mpfr_div(r19109, r19107, r19108, MPFR_RNDN); mpfr_add(r19110, r19105, r19109, MPFR_RNDN); mpfr_add(r19111, r19099, r19110, MPFR_RNDN); mpfr_mul(r19112, r19092, r19111, MPFR_RNDN); return mpfr_get_d(r19112, MPFR_RNDN); }