#include #include #include #include #include char *name = "The quadratic formula (r2)"; double f_if(float a, float b, float c) { float r15823 = b; float r15824 = -r15823; float r15825 = r15823 * r15823; float r15826 = 4.0f; float r15827 = a; float r15828 = c; float r15829 = r15827 * r15828; float r15830 = r15826 * r15829; float r15831 = r15825 - r15830; float r15832 = sqrt(r15831); float r15833 = r15824 - r15832; float r15834 = 2.0f; float r15835 = r15834 * r15827; float r15836 = r15833 / r15835; return r15836; } double f_id(double a, double b, double c) { double r15837 = b; double r15838 = -r15837; double r15839 = r15837 * r15837; double r15840 = 4.0; double r15841 = a; double r15842 = c; double r15843 = r15841 * r15842; double r15844 = r15840 * r15843; double r15845 = r15839 - r15844; double r15846 = sqrt(r15845); double r15847 = r15838 - r15846; double r15848 = 2.0; double r15849 = r15848 * r15841; double r15850 = r15847 / r15849; return r15850; } double f_of(float a, float b, float c) { float r15851 = b; float r15852 = -12859387936768.0f; bool r15853 = r15851 <= r15852; float r15854 = c; float r15855 = r15854 / r15851; float r15856 = -2.0f; float r15857 = 2.0f; float r15858 = r15856 / r15857; float r15859 = r15855 * r15858; float r15860 = -3.6132191130716646e-30f; bool r15861 = r15851 <= r15860; float r15862 = r15854 / r15857; float r15863 = 4.0f; float r15864 = -r15851; float r15865 = r15851 * r15851; float r15866 = a; float r15867 = r15854 * r15866; float r15868 = r15867 * r15863; float r15869 = r15865 - r15868; float r15870 = sqrt(r15869); float r15871 = r15864 + r15870; float r15872 = r15863 / r15871; float r15873 = r15862 * r15872; float r15874 = 1591572340670464.0f; bool r15875 = r15851 <= r15874; float r15876 = r15866 * r15854; float r15877 = r15863 * r15876; float r15878 = r15865 - r15877; float r15879 = sqrt(r15878); float r15880 = r15864 - r15879; float r15881 = cbrt(r15880); float r15882 = r15857 * r15866; float r15883 = cbrt(r15882); float r15884 = r15881 / r15883; float r15885 = r15884 * (r15884 * r15884); float r15886 = r15851 / r15866; float r15887 = r15855 - r15886; float r15888 = r15875 ? r15885 : r15887; float r15889 = r15861 ? r15873 : r15888; float r15890 = r15853 ? r15859 : r15889; return r15890; } double f_od(double a, double b, double c) { double r15891 = b; double r15892 = -12859387936768.0; bool r15893 = r15891 <= r15892; double r15894 = c; double r15895 = r15894 / r15891; double r15896 = -2.0; double r15897 = 2.0; double r15898 = r15896 / r15897; double r15899 = r15895 * r15898; double r15900 = -3.6132191130716646e-30; bool r15901 = r15891 <= r15900; double r15902 = r15894 / r15897; double r15903 = 4.0; double r15904 = -r15891; double r15905 = r15891 * r15891; double r15906 = a; double r15907 = r15894 * r15906; double r15908 = r15907 * r15903; double r15909 = r15905 - r15908; double r15910 = sqrt(r15909); double r15911 = r15904 + r15910; double r15912 = r15903 / r15911; double r15913 = r15902 * r15912; double r15914 = 1591572340670464.0; bool r15915 = r15891 <= r15914; double r15916 = r15906 * r15894; double r15917 = r15903 * r15916; double r15918 = r15905 - r15917; double r15919 = sqrt(r15918); double r15920 = r15904 - r15919; double r15921 = cbrt(r15920); double r15922 = r15897 * r15906; double r15923 = cbrt(r15922); double r15924 = r15921 / r15923; double r15925 = r15924 * (r15924 * r15924); double r15926 = r15891 / r15906; double r15927 = r15895 - r15926; double r15928 = r15915 ? r15925 : r15927; double r15929 = r15901 ? r15913 : r15928; double r15930 = r15893 ? r15899 : r15929; return r15930; } 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 r15931, r15932, r15933, r15934, r15935, r15936, r15937, r15938, r15939, r15940, r15941, r15942, r15943, r15944; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15931); mpfr_init(r15932); mpfr_init(r15933); mpfr_init_set_str(r15934, "4", 10, MPFR_RNDN); mpfr_init(r15935); mpfr_init(r15936); mpfr_init(r15937); mpfr_init(r15938); mpfr_init(r15939); mpfr_init(r15940); mpfr_init(r15941); mpfr_init_set_str(r15942, "2", 10, MPFR_RNDN); mpfr_init(r15943); mpfr_init(r15944); } double f_im(double a, double b, double c) { mpfr_set_d(r15931, b, MPFR_RNDN); mpfr_neg(r15932, r15931, MPFR_RNDN); mpfr_sqr(r15933, r15931, MPFR_RNDN); ; mpfr_set_d(r15935, a, MPFR_RNDN); mpfr_set_d(r15936, c, MPFR_RNDN); mpfr_mul(r15937, r15935, r15936, MPFR_RNDN); mpfr_mul(r15938, r15934, r15937, MPFR_RNDN); mpfr_sub(r15939, r15933, r15938, MPFR_RNDN); mpfr_sqrt(r15940, r15939, MPFR_RNDN); mpfr_sub(r15941, r15932, r15940, MPFR_RNDN); ; mpfr_mul(r15943, r15942, r15935, MPFR_RNDN); mpfr_div(r15944, r15941, r15943, MPFR_RNDN); return mpfr_get_d(r15944, MPFR_RNDN); } static mpfr_t r15945, r15946, r15947, r15948, r15949, r15950, r15951, r15952, r15953, r15954, r15955, r15956, r15957, r15958, r15959, r15960, r15961, r15962, r15963, r15964, r15965, r15966, r15967, r15968, r15969, r15970, r15971, r15972, r15973, r15974, r15975, r15976, r15977, r15978, r15979, r15980, r15981, r15982, r15983, r15984; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15945); mpfr_init_set_str(r15946, "-1.2859388f+13", 10, MPFR_RNDN); mpfr_init(r15947); mpfr_init(r15948); mpfr_init(r15949); mpfr_init_set_str(r15950, "-2", 10, MPFR_RNDN); mpfr_init_set_str(r15951, "2", 10, MPFR_RNDN); mpfr_init(r15952); mpfr_init(r15953); mpfr_init_set_str(r15954, "-3.613219f-30", 10, MPFR_RNDN); mpfr_init(r15955); mpfr_init(r15956); mpfr_init_set_str(r15957, "4", 10, MPFR_RNDN); mpfr_init(r15958); mpfr_init(r15959); mpfr_init(r15960); mpfr_init(r15961); mpfr_init(r15962); mpfr_init(r15963); mpfr_init(r15964); mpfr_init(r15965); mpfr_init(r15966); mpfr_init(r15967); mpfr_init_set_str(r15968, "1.5915723f+15", 10, MPFR_RNDN); mpfr_init(r15969); mpfr_init(r15970); mpfr_init(r15971); mpfr_init(r15972); mpfr_init(r15973); mpfr_init(r15974); mpfr_init(r15975); mpfr_init(r15976); mpfr_init(r15977); mpfr_init(r15978); mpfr_init(r15979); mpfr_init(r15980); mpfr_init(r15981); mpfr_init(r15982); mpfr_init(r15983); mpfr_init(r15984); } double f_fm(double a, double b, double c) { mpfr_set_d(r15945, b, MPFR_RNDN); ; mpfr_set_si(r15947, mpfr_cmp(r15945, r15946) <= 0, MPFR_RNDN); mpfr_set_d(r15948, c, MPFR_RNDN); mpfr_div(r15949, r15948, r15945, MPFR_RNDN); ; ; mpfr_div(r15952, r15950, r15951, MPFR_RNDN); mpfr_mul(r15953, r15949, r15952, MPFR_RNDN); ; mpfr_set_si(r15955, mpfr_cmp(r15945, r15954) <= 0, MPFR_RNDN); mpfr_div(r15956, r15948, r15951, MPFR_RNDN); ; mpfr_neg(r15958, r15945, MPFR_RNDN); mpfr_sqr(r15959, r15945, MPFR_RNDN); mpfr_set_d(r15960, a, MPFR_RNDN); mpfr_mul(r15961, r15948, r15960, MPFR_RNDN); mpfr_mul(r15962, r15961, r15957, MPFR_RNDN); mpfr_sub(r15963, r15959, r15962, MPFR_RNDN); mpfr_sqrt(r15964, r15963, MPFR_RNDN); mpfr_add(r15965, r15958, r15964, MPFR_RNDN); mpfr_div(r15966, r15957, r15965, MPFR_RNDN); mpfr_mul(r15967, r15956, r15966, MPFR_RNDN); ; mpfr_set_si(r15969, mpfr_cmp(r15945, r15968) <= 0, MPFR_RNDN); mpfr_mul(r15970, r15960, r15948, MPFR_RNDN); mpfr_mul(r15971, r15957, r15970, MPFR_RNDN); mpfr_sub(r15972, r15959, r15971, MPFR_RNDN); mpfr_sqrt(r15973, r15972, MPFR_RNDN); mpfr_sub(r15974, r15958, r15973, MPFR_RNDN); mpfr_cbrt(r15975, r15974, MPFR_RNDN); mpfr_mul(r15976, r15951, r15960, MPFR_RNDN); mpfr_cbrt(r15977, r15976, MPFR_RNDN); mpfr_div(r15978, r15975, r15977, MPFR_RNDN); mpfr_mul(r15979, r15978, r15978, MPFR_RNDN); mpfr_mul(r15979, r15979, r15978, MPFR_RNDN); mpfr_div(r15980, r15945, r15960, MPFR_RNDN); mpfr_sub(r15981, r15949, r15980, MPFR_RNDN); if (mpfr_get_si(r15969, MPFR_RNDN)) { mpfr_set(r15982, r15979, MPFR_RNDN); } else { mpfr_set(r15982, r15981, MPFR_RNDN); }; if (mpfr_get_si(r15955, MPFR_RNDN)) { mpfr_set(r15983, r15967, MPFR_RNDN); } else { mpfr_set(r15983, r15982, MPFR_RNDN); }; if (mpfr_get_si(r15947, MPFR_RNDN)) { mpfr_set(r15984, r15953, MPFR_RNDN); } else { mpfr_set(r15984, r15983, MPFR_RNDN); }; return mpfr_get_d(r15984, MPFR_RNDN); } static mpfr_t r15985, r15986, r15987, r15988, r15989, r15990, r15991, r15992, r15993, r15994, r15995, r15996, r15997, r15998, r15999, r16000, r16001, r16002, r16003, r16004, r16005, r16006, r16007, r16008, r16009, r16010, r16011, r16012, r16013, r16014, r16015, r16016, r16017, r16018, r16019, r16020, r16021, r16022, r16023, r16024; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15985); mpfr_init_set_str(r15986, "-1.2859388f+13", 10, MPFR_RNDN); mpfr_init(r15987); mpfr_init(r15988); mpfr_init(r15989); mpfr_init_set_str(r15990, "-2", 10, MPFR_RNDN); mpfr_init_set_str(r15991, "2", 10, MPFR_RNDN); mpfr_init(r15992); mpfr_init(r15993); mpfr_init_set_str(r15994, "-3.613219f-30", 10, MPFR_RNDN); mpfr_init(r15995); mpfr_init(r15996); mpfr_init_set_str(r15997, "4", 10, MPFR_RNDN); mpfr_init(r15998); mpfr_init(r15999); mpfr_init(r16000); mpfr_init(r16001); mpfr_init(r16002); mpfr_init(r16003); mpfr_init(r16004); mpfr_init(r16005); mpfr_init(r16006); mpfr_init(r16007); mpfr_init_set_str(r16008, "1.5915723f+15", 10, MPFR_RNDN); mpfr_init(r16009); mpfr_init(r16010); mpfr_init(r16011); mpfr_init(r16012); mpfr_init(r16013); mpfr_init(r16014); mpfr_init(r16015); mpfr_init(r16016); mpfr_init(r16017); mpfr_init(r16018); mpfr_init(r16019); mpfr_init(r16020); mpfr_init(r16021); mpfr_init(r16022); mpfr_init(r16023); mpfr_init(r16024); } double f_dm(double a, double b, double c) { mpfr_set_d(r15985, b, MPFR_RNDN); ; mpfr_set_si(r15987, mpfr_cmp(r15985, r15986) <= 0, MPFR_RNDN); mpfr_set_d(r15988, c, MPFR_RNDN); mpfr_div(r15989, r15988, r15985, MPFR_RNDN); ; ; mpfr_div(r15992, r15990, r15991, MPFR_RNDN); mpfr_mul(r15993, r15989, r15992, MPFR_RNDN); ; mpfr_set_si(r15995, mpfr_cmp(r15985, r15994) <= 0, MPFR_RNDN); mpfr_div(r15996, r15988, r15991, MPFR_RNDN); ; mpfr_neg(r15998, r15985, MPFR_RNDN); mpfr_sqr(r15999, r15985, MPFR_RNDN); mpfr_set_d(r16000, a, MPFR_RNDN); mpfr_mul(r16001, r15988, r16000, MPFR_RNDN); mpfr_mul(r16002, r16001, r15997, MPFR_RNDN); mpfr_sub(r16003, r15999, r16002, MPFR_RNDN); mpfr_sqrt(r16004, r16003, MPFR_RNDN); mpfr_add(r16005, r15998, r16004, MPFR_RNDN); mpfr_div(r16006, r15997, r16005, MPFR_RNDN); mpfr_mul(r16007, r15996, r16006, MPFR_RNDN); ; mpfr_set_si(r16009, mpfr_cmp(r15985, r16008) <= 0, MPFR_RNDN); mpfr_mul(r16010, r16000, r15988, MPFR_RNDN); mpfr_mul(r16011, r15997, r16010, MPFR_RNDN); mpfr_sub(r16012, r15999, r16011, MPFR_RNDN); mpfr_sqrt(r16013, r16012, MPFR_RNDN); mpfr_sub(r16014, r15998, r16013, MPFR_RNDN); mpfr_cbrt(r16015, r16014, MPFR_RNDN); mpfr_mul(r16016, r15991, r16000, MPFR_RNDN); mpfr_cbrt(r16017, r16016, MPFR_RNDN); mpfr_div(r16018, r16015, r16017, MPFR_RNDN); mpfr_mul(r16019, r16018, r16018, MPFR_RNDN); mpfr_mul(r16019, r16019, r16018, MPFR_RNDN); mpfr_div(r16020, r15985, r16000, MPFR_RNDN); mpfr_sub(r16021, r15989, r16020, MPFR_RNDN); if (mpfr_get_si(r16009, MPFR_RNDN)) { mpfr_set(r16022, r16019, MPFR_RNDN); } else { mpfr_set(r16022, r16021, MPFR_RNDN); }; if (mpfr_get_si(r15995, MPFR_RNDN)) { mpfr_set(r16023, r16007, MPFR_RNDN); } else { mpfr_set(r16023, r16022, MPFR_RNDN); }; if (mpfr_get_si(r15987, MPFR_RNDN)) { mpfr_set(r16024, r15993, MPFR_RNDN); } else { mpfr_set(r16024, r16023, MPFR_RNDN); }; return mpfr_get_d(r16024, MPFR_RNDN); }