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