#include #include #include #include #include char *name = "quadm (p42, negative)"; double f_if(float a, float b, float c) { float r9900 = b; float r9901 = -r9900; float r9902 = r9900 * r9900; float r9903 = 4; float r9904 = a; float r9905 = c; float r9906 = r9904 * r9905; float r9907 = r9903 * r9906; float r9908 = r9902 - r9907; float r9909 = sqrt(r9908); float r9910 = r9901 - r9909; float r9911 = 2; float r9912 = r9911 * r9904; float r9913 = r9910 / r9912; return r9913; } double f_id(double a, double b, double c) { double r9914 = b; double r9915 = -r9914; double r9916 = r9914 * r9914; double r9917 = 4; double r9918 = a; double r9919 = c; double r9920 = r9918 * r9919; double r9921 = r9917 * r9920; double r9922 = r9916 - r9921; double r9923 = sqrt(r9922); double r9924 = r9915 - r9923; double r9925 = 2; double r9926 = r9925 * r9918; double r9927 = r9924 / r9926; return r9927; } double f_of(float a, float b, float c) { float r9928 = b; float r9929 = -1.1058513712164536e+149; bool r9930 = r9928 <= r9929; float r9931 = c; float r9932 = -r9931; float r9933 = r9932 / r9928; float r9934 = -5.496700305081621e-102; bool r9935 = r9928 <= r9934; float r9936 = 4; float r9937 = r9936 * r9931; float r9938 = a; float r9939 = r9937 * r9938; float r9940 = r9938 * r9931; float r9941 = -r9936; float r9942 = r9928 * r9928; float r9943 = fma(r9940, r9941, r9942); float r9944 = sqrt(r9943); float r9945 = r9944 - r9928; float r9946 = r9939 / r9945; float r9947 = 2; float r9948 = r9938 * r9947; float r9949 = r9946 / r9948; float r9950 = 6.959770719239994e+151; bool r9951 = r9928 <= r9950; float r9952 = 1; float r9953 = -r9928; float r9954 = r9940 * r9936; float r9955 = r9942 - r9954; float r9956 = sqrt(r9955); float r9957 = r9953 - r9956; float r9958 = r9948 / r9957; float r9959 = r9952 / r9958; float r9960 = r9931 / r9928; float r9961 = r9928 / r9938; float r9962 = r9960 - r9961; float r9963 = r9951 ? r9959 : r9962; float r9964 = r9935 ? r9949 : r9963; float r9965 = r9930 ? r9933 : r9964; return r9965; } double f_od(double a, double b, double c) { double r9966 = b; double r9967 = -1.1058513712164536e+149; bool r9968 = r9966 <= r9967; double r9969 = c; double r9970 = -r9969; double r9971 = r9970 / r9966; double r9972 = -5.496700305081621e-102; bool r9973 = r9966 <= r9972; double r9974 = 4; double r9975 = r9974 * r9969; double r9976 = a; double r9977 = r9975 * r9976; double r9978 = r9976 * r9969; double r9979 = -r9974; double r9980 = r9966 * r9966; double r9981 = fma(r9978, r9979, r9980); double r9982 = sqrt(r9981); double r9983 = r9982 - r9966; double r9984 = r9977 / r9983; double r9985 = 2; double r9986 = r9976 * r9985; double r9987 = r9984 / r9986; double r9988 = 6.959770719239994e+151; bool r9989 = r9966 <= r9988; double r9990 = 1; double r9991 = -r9966; double r9992 = r9978 * r9974; double r9993 = r9980 - r9992; double r9994 = sqrt(r9993); double r9995 = r9991 - r9994; double r9996 = r9986 / r9995; double r9997 = r9990 / r9996; double r9998 = r9969 / r9966; double r9999 = r9966 / r9976; double r10000 = r9998 - r9999; double r10001 = r9989 ? r9997 : r10000; double r10002 = r9973 ? r9987 : r10001; double r10003 = r9968 ? r9971 : r10002; return r10003; } 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 r10004, r10005, r10006, r10007, r10008, r10009, r10010, r10011, r10012, r10013, r10014, r10015, r10016, r10017; void setup_mpfr_f_im() { mpfr_set_default_prec(3408); mpfr_init(r10004); mpfr_init(r10005); mpfr_init(r10006); mpfr_init_set_str(r10007, "4", 10, MPFR_RNDN); mpfr_init(r10008); mpfr_init(r10009); mpfr_init(r10010); mpfr_init(r10011); mpfr_init(r10012); mpfr_init(r10013); mpfr_init(r10014); mpfr_init_set_str(r10015, "2", 10, MPFR_RNDN); mpfr_init(r10016); mpfr_init(r10017); } double f_im(double a, double b, double c) { mpfr_set_d(r10004, b, MPFR_RNDN); mpfr_neg(r10005, r10004, MPFR_RNDN); mpfr_mul(r10006, r10004, r10004, MPFR_RNDN); ; mpfr_set_d(r10008, a, MPFR_RNDN); mpfr_set_d(r10009, c, MPFR_RNDN); mpfr_mul(r10010, r10008, r10009, MPFR_RNDN); mpfr_mul(r10011, r10007, r10010, MPFR_RNDN); mpfr_sub(r10012, r10006, r10011, MPFR_RNDN); mpfr_sqrt(r10013, r10012, MPFR_RNDN); mpfr_sub(r10014, r10005, r10013, MPFR_RNDN); ; mpfr_mul(r10016, r10015, r10008, MPFR_RNDN); mpfr_div(r10017, r10014, r10016, MPFR_RNDN); return mpfr_get_d(r10017, MPFR_RNDN); } static mpfr_t r10018, r10019, r10020, r10021, r10022, r10023, r10024, r10025, r10026, r10027, r10028, r10029, r10030, r10031, r10032, r10033, r10034, r10035, r10036, r10037, r10038, r10039, r10040, r10041, r10042, r10043, r10044, r10045, r10046, r10047, r10048, r10049, r10050, r10051, r10052, r10053, r10054, r10055; void setup_mpfr_f_fm() { mpfr_set_default_prec(3408); mpfr_init(r10018); mpfr_init_set_str(r10019, "-1.1058513712164536e+149", 10, MPFR_RNDN); mpfr_init(r10020); mpfr_init(r10021); mpfr_init(r10022); mpfr_init(r10023); mpfr_init_set_str(r10024, "-5.496700305081621e-102", 10, MPFR_RNDN); mpfr_init(r10025); mpfr_init_set_str(r10026, "4", 10, MPFR_RNDN); mpfr_init(r10027); mpfr_init(r10028); mpfr_init(r10029); mpfr_init(r10030); mpfr_init(r10031); mpfr_init(r10032); mpfr_init(r10033); mpfr_init(r10034); mpfr_init(r10035); mpfr_init(r10036); mpfr_init_set_str(r10037, "2", 10, MPFR_RNDN); mpfr_init(r10038); mpfr_init(r10039); mpfr_init_set_str(r10040, "6.959770719239994e+151", 10, MPFR_RNDN); mpfr_init(r10041); mpfr_init_set_str(r10042, "1", 10, MPFR_RNDN); mpfr_init(r10043); mpfr_init(r10044); mpfr_init(r10045); mpfr_init(r10046); mpfr_init(r10047); mpfr_init(r10048); mpfr_init(r10049); mpfr_init(r10050); mpfr_init(r10051); mpfr_init(r10052); mpfr_init(r10053); mpfr_init(r10054); mpfr_init(r10055); } double f_fm(double a, double b, double c) { mpfr_set_d(r10018, b, MPFR_RNDN); ; mpfr_set_si(r10020, mpfr_cmp(r10018, r10019) <= 0, MPFR_RNDN); mpfr_set_d(r10021, c, MPFR_RNDN); mpfr_neg(r10022, r10021, MPFR_RNDN); mpfr_div(r10023, r10022, r10018, MPFR_RNDN); ; mpfr_set_si(r10025, mpfr_cmp(r10018, r10024) <= 0, MPFR_RNDN); ; mpfr_mul(r10027, r10026, r10021, MPFR_RNDN); mpfr_set_d(r10028, a, MPFR_RNDN); mpfr_mul(r10029, r10027, r10028, MPFR_RNDN); mpfr_mul(r10030, r10028, r10021, MPFR_RNDN); mpfr_neg(r10031, r10026, MPFR_RNDN); mpfr_mul(r10032, r10018, r10018, MPFR_RNDN); mpfr_fma(r10033, r10030, r10031, r10032, MPFR_RNDN); mpfr_sqrt(r10034, r10033, MPFR_RNDN); mpfr_sub(r10035, r10034, r10018, MPFR_RNDN); mpfr_div(r10036, r10029, r10035, MPFR_RNDN); ; mpfr_mul(r10038, r10028, r10037, MPFR_RNDN); mpfr_div(r10039, r10036, r10038, MPFR_RNDN); ; mpfr_set_si(r10041, mpfr_cmp(r10018, r10040) <= 0, MPFR_RNDN); ; mpfr_neg(r10043, r10018, MPFR_RNDN); mpfr_mul(r10044, r10030, r10026, MPFR_RNDN); mpfr_sub(r10045, r10032, r10044, MPFR_RNDN); mpfr_sqrt(r10046, r10045, MPFR_RNDN); mpfr_sub(r10047, r10043, r10046, MPFR_RNDN); mpfr_div(r10048, r10038, r10047, MPFR_RNDN); mpfr_div(r10049, r10042, r10048, MPFR_RNDN); mpfr_div(r10050, r10021, r10018, MPFR_RNDN); mpfr_div(r10051, r10018, r10028, MPFR_RNDN); mpfr_sub(r10052, r10050, r10051, MPFR_RNDN); if (mpfr_get_si(r10041, MPFR_RNDN)) { mpfr_set(r10053, r10049, MPFR_RNDN); } else { mpfr_set(r10053, r10052, MPFR_RNDN); }; if (mpfr_get_si(r10025, MPFR_RNDN)) { mpfr_set(r10054, r10039, MPFR_RNDN); } else { mpfr_set(r10054, r10053, MPFR_RNDN); }; if (mpfr_get_si(r10020, MPFR_RNDN)) { mpfr_set(r10055, r10023, MPFR_RNDN); } else { mpfr_set(r10055, r10054, MPFR_RNDN); }; return mpfr_get_d(r10055, MPFR_RNDN); } static mpfr_t r10056, r10057, r10058, r10059, r10060, r10061, r10062, r10063, r10064, r10065, r10066, r10067, r10068, r10069, r10070, r10071, r10072, r10073, r10074, r10075, r10076, r10077, r10078, r10079, r10080, r10081, r10082, r10083, r10084, r10085, r10086, r10087, r10088, r10089, r10090, r10091, r10092, r10093; void setup_mpfr_f_dm() { mpfr_set_default_prec(3408); mpfr_init(r10056); mpfr_init_set_str(r10057, "-1.1058513712164536e+149", 10, MPFR_RNDN); mpfr_init(r10058); mpfr_init(r10059); mpfr_init(r10060); mpfr_init(r10061); mpfr_init_set_str(r10062, "-5.496700305081621e-102", 10, MPFR_RNDN); mpfr_init(r10063); mpfr_init_set_str(r10064, "4", 10, MPFR_RNDN); mpfr_init(r10065); mpfr_init(r10066); mpfr_init(r10067); mpfr_init(r10068); mpfr_init(r10069); mpfr_init(r10070); mpfr_init(r10071); mpfr_init(r10072); mpfr_init(r10073); mpfr_init(r10074); mpfr_init_set_str(r10075, "2", 10, MPFR_RNDN); mpfr_init(r10076); mpfr_init(r10077); mpfr_init_set_str(r10078, "6.959770719239994e+151", 10, MPFR_RNDN); mpfr_init(r10079); mpfr_init_set_str(r10080, "1", 10, MPFR_RNDN); mpfr_init(r10081); mpfr_init(r10082); mpfr_init(r10083); mpfr_init(r10084); mpfr_init(r10085); mpfr_init(r10086); mpfr_init(r10087); mpfr_init(r10088); mpfr_init(r10089); mpfr_init(r10090); mpfr_init(r10091); mpfr_init(r10092); mpfr_init(r10093); } double f_dm(double a, double b, double c) { mpfr_set_d(r10056, b, MPFR_RNDN); ; mpfr_set_si(r10058, mpfr_cmp(r10056, r10057) <= 0, MPFR_RNDN); mpfr_set_d(r10059, c, MPFR_RNDN); mpfr_neg(r10060, r10059, MPFR_RNDN); mpfr_div(r10061, r10060, r10056, MPFR_RNDN); ; mpfr_set_si(r10063, mpfr_cmp(r10056, r10062) <= 0, MPFR_RNDN); ; mpfr_mul(r10065, r10064, r10059, MPFR_RNDN); mpfr_set_d(r10066, a, MPFR_RNDN); mpfr_mul(r10067, r10065, r10066, MPFR_RNDN); mpfr_mul(r10068, r10066, r10059, MPFR_RNDN); mpfr_neg(r10069, r10064, MPFR_RNDN); mpfr_mul(r10070, r10056, r10056, MPFR_RNDN); mpfr_fma(r10071, r10068, r10069, r10070, MPFR_RNDN); mpfr_sqrt(r10072, r10071, MPFR_RNDN); mpfr_sub(r10073, r10072, r10056, MPFR_RNDN); mpfr_div(r10074, r10067, r10073, MPFR_RNDN); ; mpfr_mul(r10076, r10066, r10075, MPFR_RNDN); mpfr_div(r10077, r10074, r10076, MPFR_RNDN); ; mpfr_set_si(r10079, mpfr_cmp(r10056, r10078) <= 0, MPFR_RNDN); ; mpfr_neg(r10081, r10056, MPFR_RNDN); mpfr_mul(r10082, r10068, r10064, MPFR_RNDN); mpfr_sub(r10083, r10070, r10082, MPFR_RNDN); mpfr_sqrt(r10084, r10083, MPFR_RNDN); mpfr_sub(r10085, r10081, r10084, MPFR_RNDN); mpfr_div(r10086, r10076, r10085, MPFR_RNDN); mpfr_div(r10087, r10080, r10086, MPFR_RNDN); mpfr_div(r10088, r10059, r10056, MPFR_RNDN); mpfr_div(r10089, r10056, r10066, MPFR_RNDN); mpfr_sub(r10090, r10088, r10089, MPFR_RNDN); if (mpfr_get_si(r10079, MPFR_RNDN)) { mpfr_set(r10091, r10087, MPFR_RNDN); } else { mpfr_set(r10091, r10090, MPFR_RNDN); }; if (mpfr_get_si(r10063, MPFR_RNDN)) { mpfr_set(r10092, r10077, MPFR_RNDN); } else { mpfr_set(r10092, r10091, MPFR_RNDN); }; if (mpfr_get_si(r10058, MPFR_RNDN)) { mpfr_set(r10093, r10061, MPFR_RNDN); } else { mpfr_set(r10093, r10092, MPFR_RNDN); }; return mpfr_get_d(r10093, MPFR_RNDN); }