#include #include #include #include #include char *name = "VandenBroeck and Keller, Equation (20)"; double f_if(float f) { float r20839 = 1; float r20840 = atan2(1.0, 0.0); float r20841 = 4; float r20842 = r20840 / r20841; float r20843 = r20839 / r20842; float r20844 = f; float r20845 = r20842 * r20844; float r20846 = exp(r20845); float r20847 = -r20845; float r20848 = exp(r20847); float r20849 = r20846 + r20848; float r20850 = r20846 - r20848; float r20851 = r20849 / r20850; float r20852 = log(r20851); float r20853 = r20843 * r20852; float r20854 = -r20853; return r20854; } double f_id(double f) { double r20855 = 1; double r20856 = atan2(1.0, 0.0); double r20857 = 4; double r20858 = r20856 / r20857; double r20859 = r20855 / r20858; double r20860 = f; double r20861 = r20858 * r20860; double r20862 = exp(r20861); double r20863 = -r20861; double r20864 = exp(r20863); double r20865 = r20862 + r20864; double r20866 = r20862 - r20864; double r20867 = r20865 / r20866; double r20868 = log(r20867); double r20869 = r20859 * r20868; double r20870 = -r20869; return r20870; } double f_of(float f) { float r20871 = 4; float r20872 = atan2(1.0, 0.0); float r20873 = r20871 / r20872; float r20874 = -r20873; float r20875 = f; float r20876 = -r20875; float r20877 = r20876 / r20873; float r20878 = exp(r20877); float r20879 = r20872 / r20871; float r20880 = r20879 * r20875; float r20881 = exp(r20880); float r20882 = r20878 + r20881; float r20883 = sqrt(r20882); float r20884 = 1; float r20885 = r20883 / r20884; float r20886 = log(r20885); float r20887 = r20875 * r20875; float r20888 = 1/192; float r20889 = r20875 * r20888; float r20890 = r20887 * r20889; float r20891 = r20872 * r20872; float r20892 = 1/2; float r20893 = r20875 * r20892; float r20894 = fma(r20890, r20891, r20893); float r20895 = 1/61440; float r20896 = 5; float r20897 = pow(r20872, r20896); float r20898 = pow(r20875, r20896); float r20899 = r20897 * r20898; float r20900 = r20895 * r20899; float r20901 = fma(r20872, r20894, r20900); float r20902 = r20883 / r20901; float r20903 = log(r20902); float r20904 = r20886 + r20903; float r20905 = r20874 * r20904; return r20905; } double f_od(double f) { double r20906 = 4; double r20907 = atan2(1.0, 0.0); double r20908 = r20906 / r20907; double r20909 = -r20908; double r20910 = f; double r20911 = -r20910; double r20912 = r20911 / r20908; double r20913 = exp(r20912); double r20914 = r20907 / r20906; double r20915 = r20914 * r20910; double r20916 = exp(r20915); double r20917 = r20913 + r20916; double r20918 = sqrt(r20917); double r20919 = 1; double r20920 = r20918 / r20919; double r20921 = log(r20920); double r20922 = r20910 * r20910; double r20923 = 1/192; double r20924 = r20910 * r20923; double r20925 = r20922 * r20924; double r20926 = r20907 * r20907; double r20927 = 1/2; double r20928 = r20910 * r20927; double r20929 = fma(r20925, r20926, r20928); double r20930 = 1/61440; double r20931 = 5; double r20932 = pow(r20907, r20931); double r20933 = pow(r20910, r20931); double r20934 = r20932 * r20933; double r20935 = r20930 * r20934; double r20936 = fma(r20907, r20929, r20935); double r20937 = r20918 / r20936; double r20938 = log(r20937); double r20939 = r20921 + r20938; double r20940 = r20909 * r20939; return r20940; } 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 r20941, r20942, r20943, r20944, r20945, r20946, r20947, r20948, r20949, r20950, r20951, r20952, r20953, r20954, r20955, r20956; void setup_mpfr_f_im() { mpfr_set_default_prec(1424); mpfr_init_set_str(r20941, "1", 10, MPFR_RNDN); mpfr_init(r20942); mpfr_init_set_str(r20943, "4", 10, MPFR_RNDN); mpfr_init(r20944); mpfr_init(r20945); mpfr_init(r20946); mpfr_init(r20947); mpfr_init(r20948); mpfr_init(r20949); mpfr_init(r20950); mpfr_init(r20951); mpfr_init(r20952); mpfr_init(r20953); mpfr_init(r20954); mpfr_init(r20955); mpfr_init(r20956); } double f_im(double f) { ; mpfr_const_pi(r20942, MPFR_RNDN); ; mpfr_div(r20944, r20942, r20943, MPFR_RNDN); mpfr_div(r20945, r20941, r20944, MPFR_RNDN); mpfr_set_d(r20946, f, MPFR_RNDN); mpfr_mul(r20947, r20944, r20946, MPFR_RNDN); mpfr_exp(r20948, r20947, MPFR_RNDN); mpfr_neg(r20949, r20947, MPFR_RNDN); mpfr_exp(r20950, r20949, MPFR_RNDN); mpfr_add(r20951, r20948, r20950, MPFR_RNDN); mpfr_sub(r20952, r20948, r20950, MPFR_RNDN); mpfr_div(r20953, r20951, r20952, MPFR_RNDN); mpfr_log(r20954, r20953, MPFR_RNDN); mpfr_mul(r20955, r20945, r20954, MPFR_RNDN); mpfr_neg(r20956, r20955, MPFR_RNDN); return mpfr_get_d(r20956, MPFR_RNDN); } static mpfr_t r20957, r20958, r20959, r20960, r20961, r20962, r20963, r20964, r20965, r20966, r20967, r20968, r20969, r20970, r20971, r20972, r20973, r20974, r20975, r20976, r20977, r20978, r20979, r20980, r20981, r20982, r20983, r20984, r20985, r20986, r20987, r20988, r20989, r20990, r20991; void setup_mpfr_f_fm() { mpfr_set_default_prec(1424); mpfr_init_set_str(r20957, "4", 10, MPFR_RNDN); mpfr_init(r20958); mpfr_init(r20959); mpfr_init(r20960); mpfr_init(r20961); mpfr_init(r20962); mpfr_init(r20963); mpfr_init(r20964); mpfr_init(r20965); mpfr_init(r20966); mpfr_init(r20967); mpfr_init(r20968); mpfr_init(r20969); mpfr_init_set_str(r20970, "1", 10, MPFR_RNDN); mpfr_init(r20971); mpfr_init(r20972); mpfr_init(r20973); mpfr_init_set_str(r20974, "1/192", 10, MPFR_RNDN); mpfr_init(r20975); mpfr_init(r20976); mpfr_init(r20977); mpfr_init_set_str(r20978, "1/2", 10, MPFR_RNDN); mpfr_init(r20979); mpfr_init(r20980); mpfr_init_set_str(r20981, "1/61440", 10, MPFR_RNDN); mpfr_init_set_str(r20982, "5", 10, MPFR_RNDN); mpfr_init(r20983); mpfr_init(r20984); mpfr_init(r20985); mpfr_init(r20986); mpfr_init(r20987); mpfr_init(r20988); mpfr_init(r20989); mpfr_init(r20990); mpfr_init(r20991); } double f_fm(double f) { ; mpfr_const_pi(r20958, MPFR_RNDN); mpfr_div(r20959, r20957, r20958, MPFR_RNDN); mpfr_neg(r20960, r20959, MPFR_RNDN); mpfr_set_d(r20961, f, MPFR_RNDN); mpfr_neg(r20962, r20961, MPFR_RNDN); mpfr_div(r20963, r20962, r20959, MPFR_RNDN); mpfr_exp(r20964, r20963, MPFR_RNDN); mpfr_div(r20965, r20958, r20957, MPFR_RNDN); mpfr_mul(r20966, r20965, r20961, MPFR_RNDN); mpfr_exp(r20967, r20966, MPFR_RNDN); mpfr_add(r20968, r20964, r20967, MPFR_RNDN); mpfr_sqrt(r20969, r20968, MPFR_RNDN); ; mpfr_div(r20971, r20969, r20970, MPFR_RNDN); mpfr_log(r20972, r20971, MPFR_RNDN); mpfr_mul(r20973, r20961, r20961, MPFR_RNDN); ; mpfr_mul(r20975, r20961, r20974, MPFR_RNDN); mpfr_mul(r20976, r20973, r20975, MPFR_RNDN); mpfr_mul(r20977, r20958, r20958, MPFR_RNDN); ; mpfr_mul(r20979, r20961, r20978, MPFR_RNDN); mpfr_fma(r20980, r20976, r20977, r20979, MPFR_RNDN); ; ; mpfr_pow(r20983, r20958, r20982, MPFR_RNDN); mpfr_pow(r20984, r20961, r20982, MPFR_RNDN); mpfr_mul(r20985, r20983, r20984, MPFR_RNDN); mpfr_mul(r20986, r20981, r20985, MPFR_RNDN); mpfr_fma(r20987, r20958, r20980, r20986, MPFR_RNDN); mpfr_div(r20988, r20969, r20987, MPFR_RNDN); mpfr_log(r20989, r20988, MPFR_RNDN); mpfr_add(r20990, r20972, r20989, MPFR_RNDN); mpfr_mul(r20991, r20960, r20990, MPFR_RNDN); return mpfr_get_d(r20991, MPFR_RNDN); } static mpfr_t r20992, r20993, r20994, r20995, r20996, r20997, r20998, r20999, r21000, r21001, r21002, r21003, r21004, r21005, r21006, r21007, r21008, r21009, r21010, r21011, r21012, r21013, r21014, r21015, r21016, r21017, r21018, r21019, r21020, r21021, r21022, r21023, r21024, r21025, r21026; void setup_mpfr_f_dm() { mpfr_set_default_prec(1424); mpfr_init_set_str(r20992, "4", 10, MPFR_RNDN); mpfr_init(r20993); mpfr_init(r20994); mpfr_init(r20995); mpfr_init(r20996); mpfr_init(r20997); mpfr_init(r20998); mpfr_init(r20999); mpfr_init(r21000); mpfr_init(r21001); mpfr_init(r21002); mpfr_init(r21003); mpfr_init(r21004); mpfr_init_set_str(r21005, "1", 10, MPFR_RNDN); mpfr_init(r21006); mpfr_init(r21007); mpfr_init(r21008); mpfr_init_set_str(r21009, "1/192", 10, MPFR_RNDN); mpfr_init(r21010); mpfr_init(r21011); mpfr_init(r21012); mpfr_init_set_str(r21013, "1/2", 10, MPFR_RNDN); mpfr_init(r21014); mpfr_init(r21015); mpfr_init_set_str(r21016, "1/61440", 10, MPFR_RNDN); mpfr_init_set_str(r21017, "5", 10, MPFR_RNDN); mpfr_init(r21018); mpfr_init(r21019); mpfr_init(r21020); mpfr_init(r21021); mpfr_init(r21022); mpfr_init(r21023); mpfr_init(r21024); mpfr_init(r21025); mpfr_init(r21026); } double f_dm(double f) { ; mpfr_const_pi(r20993, MPFR_RNDN); mpfr_div(r20994, r20992, r20993, MPFR_RNDN); mpfr_neg(r20995, r20994, MPFR_RNDN); mpfr_set_d(r20996, f, MPFR_RNDN); mpfr_neg(r20997, r20996, MPFR_RNDN); mpfr_div(r20998, r20997, r20994, MPFR_RNDN); mpfr_exp(r20999, r20998, MPFR_RNDN); mpfr_div(r21000, r20993, r20992, MPFR_RNDN); mpfr_mul(r21001, r21000, r20996, MPFR_RNDN); mpfr_exp(r21002, r21001, MPFR_RNDN); mpfr_add(r21003, r20999, r21002, MPFR_RNDN); mpfr_sqrt(r21004, r21003, MPFR_RNDN); ; mpfr_div(r21006, r21004, r21005, MPFR_RNDN); mpfr_log(r21007, r21006, MPFR_RNDN); mpfr_mul(r21008, r20996, r20996, MPFR_RNDN); ; mpfr_mul(r21010, r20996, r21009, MPFR_RNDN); mpfr_mul(r21011, r21008, r21010, MPFR_RNDN); mpfr_mul(r21012, r20993, r20993, MPFR_RNDN); ; mpfr_mul(r21014, r20996, r21013, MPFR_RNDN); mpfr_fma(r21015, r21011, r21012, r21014, MPFR_RNDN); ; ; mpfr_pow(r21018, r20993, r21017, MPFR_RNDN); mpfr_pow(r21019, r20996, r21017, MPFR_RNDN); mpfr_mul(r21020, r21018, r21019, MPFR_RNDN); mpfr_mul(r21021, r21016, r21020, MPFR_RNDN); mpfr_fma(r21022, r20993, r21015, r21021, MPFR_RNDN); mpfr_div(r21023, r21004, r21022, MPFR_RNDN); mpfr_log(r21024, r21023, MPFR_RNDN); mpfr_add(r21025, r21007, r21024, MPFR_RNDN); mpfr_mul(r21026, r20995, r21025, MPFR_RNDN); return mpfr_get_d(r21026, MPFR_RNDN); }