#include #include #include #include #include char *name = "Henrywood and Agarwal, Equation (9a)"; double f_if(float w0, float M, float D, float h, float l, float d) { float r25865 = w0; float r25866 = 1; float r25867 = M; float r25868 = D; float r25869 = r25867 * r25868; float r25870 = 2; float r25871 = d; float r25872 = r25870 * r25871; float r25873 = r25869 / r25872; float r25874 = pow(r25873, r25870); float r25875 = h; float r25876 = l; float r25877 = r25875 / r25876; float r25878 = r25874 * r25877; float r25879 = r25866 - r25878; float r25880 = sqrt(r25879); float r25881 = r25865 * r25880; return r25881; } double f_id(double w0, double M, double D, double h, double l, double d) { double r25882 = w0; double r25883 = 1; double r25884 = M; double r25885 = D; double r25886 = r25884 * r25885; double r25887 = 2; double r25888 = d; double r25889 = r25887 * r25888; double r25890 = r25886 / r25889; double r25891 = pow(r25890, r25887); double r25892 = h; double r25893 = l; double r25894 = r25892 / r25893; double r25895 = r25891 * r25894; double r25896 = r25883 - r25895; double r25897 = sqrt(r25896); double r25898 = r25882 * r25897; return r25898; } double f_of(float w0, float M, float D, float h, float l, float d) { float r25899 = 1; float r25900 = M; float r25901 = 2; float r25902 = r25900 / r25901; float r25903 = D; float r25904 = d; float r25905 = r25903 / r25904; float r25906 = r25902 * r25905; float r25907 = pow(r25906, r25901); float r25908 = h; float r25909 = l; float r25910 = r25908 / r25909; float r25911 = r25907 * r25910; float r25912 = r25899 - r25911; float r25913 = sqrt(r25912); float r25914 = 2.4200885555955457e+137; bool r25915 = r25913 <= r25914; float r25916 = w0; float r25917 = r25916 * r25913; float r25918 = r25900 / r25904; float r25919 = r25908 * r25903; float r25920 = 1/2; float r25921 = r25919 * r25920; float r25922 = r25918 * r25921; float r25923 = r25903 / r25901; float r25924 = r25923 * r25918; float r25925 = r25924 / r25909; float r25926 = r25922 * r25925; float r25927 = r25899 - r25926; float r25928 = sqrt(r25927); float r25929 = r25928 * r25916; float r25930 = r25915 ? r25917 : r25929; return r25930; } double f_od(double w0, double M, double D, double h, double l, double d) { double r25931 = 1; double r25932 = M; double r25933 = 2; double r25934 = r25932 / r25933; double r25935 = D; double r25936 = d; double r25937 = r25935 / r25936; double r25938 = r25934 * r25937; double r25939 = pow(r25938, r25933); double r25940 = h; double r25941 = l; double r25942 = r25940 / r25941; double r25943 = r25939 * r25942; double r25944 = r25931 - r25943; double r25945 = sqrt(r25944); double r25946 = 2.4200885555955457e+137; bool r25947 = r25945 <= r25946; double r25948 = w0; double r25949 = r25948 * r25945; double r25950 = r25932 / r25936; double r25951 = r25940 * r25935; double r25952 = 1/2; double r25953 = r25951 * r25952; double r25954 = r25950 * r25953; double r25955 = r25935 / r25933; double r25956 = r25955 * r25950; double r25957 = r25956 / r25941; double r25958 = r25954 * r25957; double r25959 = r25931 - r25958; double r25960 = sqrt(r25959); double r25961 = r25960 * r25948; double r25962 = r25947 ? r25949 : r25961; return r25962; } 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 r25963, r25964, r25965, r25966, r25967, r25968, r25969, r25970, r25971, r25972, r25973, r25974, r25975, r25976, r25977, r25978, r25979; void setup_mpfr_f_im() { mpfr_set_default_prec(336); mpfr_init(r25963); mpfr_init_set_str(r25964, "1", 10, MPFR_RNDN); mpfr_init(r25965); mpfr_init(r25966); mpfr_init(r25967); mpfr_init_set_str(r25968, "2", 10, MPFR_RNDN); mpfr_init(r25969); mpfr_init(r25970); mpfr_init(r25971); mpfr_init(r25972); mpfr_init(r25973); mpfr_init(r25974); mpfr_init(r25975); mpfr_init(r25976); mpfr_init(r25977); mpfr_init(r25978); mpfr_init(r25979); } double f_im(double w0, double M, double D, double h, double l, double d) { mpfr_set_d(r25963, w0, MPFR_RNDN); ; mpfr_set_d(r25965, M, MPFR_RNDN); mpfr_set_d(r25966, D, MPFR_RNDN); mpfr_mul(r25967, r25965, r25966, MPFR_RNDN); ; mpfr_set_d(r25969, d, MPFR_RNDN); mpfr_mul(r25970, r25968, r25969, MPFR_RNDN); mpfr_div(r25971, r25967, r25970, MPFR_RNDN); mpfr_pow(r25972, r25971, r25968, MPFR_RNDN); mpfr_set_d(r25973, h, MPFR_RNDN); mpfr_set_d(r25974, l, MPFR_RNDN); mpfr_div(r25975, r25973, r25974, MPFR_RNDN); mpfr_mul(r25976, r25972, r25975, MPFR_RNDN); mpfr_sub(r25977, r25964, r25976, MPFR_RNDN); mpfr_sqrt(r25978, r25977, MPFR_RNDN); mpfr_mul(r25979, r25963, r25978, MPFR_RNDN); return mpfr_get_d(r25979, MPFR_RNDN); } static mpfr_t r25980, r25981, r25982, r25983, r25984, r25985, r25986, r25987, r25988, r25989, r25990, r25991, r25992, r25993, r25994, r25995, r25996, r25997, r25998, r25999, r26000, r26001, r26002, r26003, r26004, r26005, r26006, r26007, r26008, r26009, r26010, r26011; void setup_mpfr_f_fm() { mpfr_set_default_prec(336); mpfr_init_set_str(r25980, "1", 10, MPFR_RNDN); mpfr_init(r25981); mpfr_init_set_str(r25982, "2", 10, MPFR_RNDN); mpfr_init(r25983); mpfr_init(r25984); mpfr_init(r25985); mpfr_init(r25986); mpfr_init(r25987); mpfr_init(r25988); mpfr_init(r25989); mpfr_init(r25990); mpfr_init(r25991); mpfr_init(r25992); mpfr_init(r25993); mpfr_init(r25994); mpfr_init_set_str(r25995, "2.4200885555955457e+137", 10, MPFR_RNDN); mpfr_init(r25996); mpfr_init(r25997); mpfr_init(r25998); mpfr_init(r25999); mpfr_init(r26000); mpfr_init_set_str(r26001, "1/2", 10, MPFR_RNDN); mpfr_init(r26002); mpfr_init(r26003); mpfr_init(r26004); mpfr_init(r26005); mpfr_init(r26006); mpfr_init(r26007); mpfr_init(r26008); mpfr_init(r26009); mpfr_init(r26010); mpfr_init(r26011); } double f_fm(double w0, double M, double D, double h, double l, double d) { ; mpfr_set_d(r25981, M, MPFR_RNDN); ; mpfr_div(r25983, r25981, r25982, MPFR_RNDN); mpfr_set_d(r25984, D, MPFR_RNDN); mpfr_set_d(r25985, d, MPFR_RNDN); mpfr_div(r25986, r25984, r25985, MPFR_RNDN); mpfr_mul(r25987, r25983, r25986, MPFR_RNDN); mpfr_pow(r25988, r25987, r25982, MPFR_RNDN); mpfr_set_d(r25989, h, MPFR_RNDN); mpfr_set_d(r25990, l, MPFR_RNDN); mpfr_div(r25991, r25989, r25990, MPFR_RNDN); mpfr_mul(r25992, r25988, r25991, MPFR_RNDN); mpfr_sub(r25993, r25980, r25992, MPFR_RNDN); mpfr_sqrt(r25994, r25993, MPFR_RNDN); ; mpfr_set_si(r25996, mpfr_cmp(r25994, r25995) <= 0, MPFR_RNDN); mpfr_set_d(r25997, w0, MPFR_RNDN); mpfr_mul(r25998, r25997, r25994, MPFR_RNDN); mpfr_div(r25999, r25981, r25985, MPFR_RNDN); mpfr_mul(r26000, r25989, r25984, MPFR_RNDN); ; mpfr_mul(r26002, r26000, r26001, MPFR_RNDN); mpfr_mul(r26003, r25999, r26002, MPFR_RNDN); mpfr_div(r26004, r25984, r25982, MPFR_RNDN); mpfr_mul(r26005, r26004, r25999, MPFR_RNDN); mpfr_div(r26006, r26005, r25990, MPFR_RNDN); mpfr_mul(r26007, r26003, r26006, MPFR_RNDN); mpfr_sub(r26008, r25980, r26007, MPFR_RNDN); mpfr_sqrt(r26009, r26008, MPFR_RNDN); mpfr_mul(r26010, r26009, r25997, MPFR_RNDN); if (mpfr_get_si(r25996, MPFR_RNDN)) { mpfr_set(r26011, r25998, MPFR_RNDN); } else { mpfr_set(r26011, r26010, MPFR_RNDN); }; return mpfr_get_d(r26011, MPFR_RNDN); } static mpfr_t r26012, r26013, r26014, r26015, r26016, r26017, r26018, r26019, r26020, r26021, r26022, r26023, r26024, r26025, r26026, r26027, r26028, r26029, r26030, r26031, r26032, r26033, r26034, r26035, r26036, r26037, r26038, r26039, r26040, r26041, r26042, r26043; void setup_mpfr_f_dm() { mpfr_set_default_prec(336); mpfr_init_set_str(r26012, "1", 10, MPFR_RNDN); mpfr_init(r26013); mpfr_init_set_str(r26014, "2", 10, MPFR_RNDN); mpfr_init(r26015); mpfr_init(r26016); mpfr_init(r26017); mpfr_init(r26018); mpfr_init(r26019); mpfr_init(r26020); mpfr_init(r26021); mpfr_init(r26022); mpfr_init(r26023); mpfr_init(r26024); mpfr_init(r26025); mpfr_init(r26026); mpfr_init_set_str(r26027, "2.4200885555955457e+137", 10, MPFR_RNDN); mpfr_init(r26028); mpfr_init(r26029); mpfr_init(r26030); mpfr_init(r26031); mpfr_init(r26032); mpfr_init_set_str(r26033, "1/2", 10, MPFR_RNDN); mpfr_init(r26034); mpfr_init(r26035); mpfr_init(r26036); mpfr_init(r26037); mpfr_init(r26038); mpfr_init(r26039); mpfr_init(r26040); mpfr_init(r26041); mpfr_init(r26042); mpfr_init(r26043); } double f_dm(double w0, double M, double D, double h, double l, double d) { ; mpfr_set_d(r26013, M, MPFR_RNDN); ; mpfr_div(r26015, r26013, r26014, MPFR_RNDN); mpfr_set_d(r26016, D, MPFR_RNDN); mpfr_set_d(r26017, d, MPFR_RNDN); mpfr_div(r26018, r26016, r26017, MPFR_RNDN); mpfr_mul(r26019, r26015, r26018, MPFR_RNDN); mpfr_pow(r26020, r26019, r26014, MPFR_RNDN); mpfr_set_d(r26021, h, MPFR_RNDN); mpfr_set_d(r26022, l, MPFR_RNDN); mpfr_div(r26023, r26021, r26022, MPFR_RNDN); mpfr_mul(r26024, r26020, r26023, MPFR_RNDN); mpfr_sub(r26025, r26012, r26024, MPFR_RNDN); mpfr_sqrt(r26026, r26025, MPFR_RNDN); ; mpfr_set_si(r26028, mpfr_cmp(r26026, r26027) <= 0, MPFR_RNDN); mpfr_set_d(r26029, w0, MPFR_RNDN); mpfr_mul(r26030, r26029, r26026, MPFR_RNDN); mpfr_div(r26031, r26013, r26017, MPFR_RNDN); mpfr_mul(r26032, r26021, r26016, MPFR_RNDN); ; mpfr_mul(r26034, r26032, r26033, MPFR_RNDN); mpfr_mul(r26035, r26031, r26034, MPFR_RNDN); mpfr_div(r26036, r26016, r26014, MPFR_RNDN); mpfr_mul(r26037, r26036, r26031, MPFR_RNDN); mpfr_div(r26038, r26037, r26022, MPFR_RNDN); mpfr_mul(r26039, r26035, r26038, MPFR_RNDN); mpfr_sub(r26040, r26012, r26039, MPFR_RNDN); mpfr_sqrt(r26041, r26040, MPFR_RNDN); mpfr_mul(r26042, r26041, r26029, MPFR_RNDN); if (mpfr_get_si(r26028, MPFR_RNDN)) { mpfr_set(r26043, r26030, MPFR_RNDN); } else { mpfr_set(r26043, r26042, MPFR_RNDN); }; return mpfr_get_d(r26043, MPFR_RNDN); }