#include #include #include #include #include char *name = "Henrywood and Agarwal, Equation (12)"; double f_if(float d, float h, float l, float M, float D) { float r26725 = d; float r26726 = h; float r26727 = r26725 / r26726; float r26728 = 1; float r26729 = 2; float r26730 = r26728 / r26729; float r26731 = pow(r26727, r26730); float r26732 = l; float r26733 = r26725 / r26732; float r26734 = pow(r26733, r26730); float r26735 = r26731 * r26734; float r26736 = M; float r26737 = D; float r26738 = r26736 * r26737; float r26739 = r26729 * r26725; float r26740 = r26738 / r26739; float r26741 = pow(r26740, r26729); float r26742 = r26730 * r26741; float r26743 = r26726 / r26732; float r26744 = r26742 * r26743; float r26745 = r26728 - r26744; float r26746 = r26735 * r26745; return r26746; } double f_id(double d, double h, double l, double M, double D) { double r26747 = d; double r26748 = h; double r26749 = r26747 / r26748; double r26750 = 1; double r26751 = 2; double r26752 = r26750 / r26751; double r26753 = pow(r26749, r26752); double r26754 = l; double r26755 = r26747 / r26754; double r26756 = pow(r26755, r26752); double r26757 = r26753 * r26756; double r26758 = M; double r26759 = D; double r26760 = r26758 * r26759; double r26761 = r26751 * r26747; double r26762 = r26760 / r26761; double r26763 = pow(r26762, r26751); double r26764 = r26752 * r26763; double r26765 = r26748 / r26754; double r26766 = r26764 * r26765; double r26767 = r26750 - r26766; double r26768 = r26757 * r26767; return r26768; } double f_of(float d, float h, float l, float M, float D) { float r26769 = h; float r26770 = -1.920054654637834e-168; bool r26771 = r26769 <= r26770; float r26772 = 1; float r26773 = M; float r26774 = D; float r26775 = r26773 * r26774; float r26776 = d; float r26777 = 2; float r26778 = r26776 * r26777; float r26779 = r26775 / r26778; float r26780 = pow(r26779, r26777); float r26781 = r26769 * r26780; float r26782 = l; float r26783 = r26782 * r26777; float r26784 = r26781 / r26783; float r26785 = r26772 - r26784; float r26786 = r26776 / r26769; float r26787 = r26772 / r26777; float r26788 = pow(r26786, r26787); float r26789 = 1/2; float r26790 = -1; float r26791 = r26790 / r26782; float r26792 = log(r26791); float r26793 = r26790 / r26776; float r26794 = log(r26793); float r26795 = r26792 - r26794; float r26796 = r26789 * r26795; float r26797 = exp(r26796); float r26798 = r26788 * r26797; float r26799 = r26785 * r26798; float r26800 = -2.919280088412085e-309; bool r26801 = r26769 <= r26800; float r26802 = r26776 / r26782; float r26803 = sqrt(r26802); float r26804 = pow(r26803, r26787); float r26805 = r26804 * r26804; float r26806 = r26790 / r26769; float r26807 = log(r26806); float r26808 = r26807 - r26794; float r26809 = r26808 * r26789; float r26810 = exp(r26809); float r26811 = r26805 * r26810; float r26812 = r26785 * r26811; float r26813 = 1.2211621461849747e-39; bool r26814 = r26769 <= r26813; float r26815 = r26787 * r26780; float r26816 = r26769 / r26782; float r26817 = r26815 * r26816; float r26818 = r26772 - r26817; float r26819 = r26772 / r26769; float r26820 = pow(r26819, r26787); float r26821 = pow(r26776, r26787); float r26822 = r26820 * r26821; float r26823 = pow(r26802, r26787); float r26824 = r26822 * r26823; float r26825 = r26818 * r26824; float r26826 = r26772 / r26782; float r26827 = pow(r26826, r26787); float r26828 = r26827 * r26821; float r26829 = r26828 * r26788; float r26830 = r26785 * r26829; float r26831 = r26814 ? r26825 : r26830; float r26832 = r26801 ? r26812 : r26831; float r26833 = r26771 ? r26799 : r26832; return r26833; } double f_od(double d, double h, double l, double M, double D) { double r26834 = h; double r26835 = -1.920054654637834e-168; bool r26836 = r26834 <= r26835; double r26837 = 1; double r26838 = M; double r26839 = D; double r26840 = r26838 * r26839; double r26841 = d; double r26842 = 2; double r26843 = r26841 * r26842; double r26844 = r26840 / r26843; double r26845 = pow(r26844, r26842); double r26846 = r26834 * r26845; double r26847 = l; double r26848 = r26847 * r26842; double r26849 = r26846 / r26848; double r26850 = r26837 - r26849; double r26851 = r26841 / r26834; double r26852 = r26837 / r26842; double r26853 = pow(r26851, r26852); double r26854 = 1/2; double r26855 = -1; double r26856 = r26855 / r26847; double r26857 = log(r26856); double r26858 = r26855 / r26841; double r26859 = log(r26858); double r26860 = r26857 - r26859; double r26861 = r26854 * r26860; double r26862 = exp(r26861); double r26863 = r26853 * r26862; double r26864 = r26850 * r26863; double r26865 = -2.919280088412085e-309; bool r26866 = r26834 <= r26865; double r26867 = r26841 / r26847; double r26868 = sqrt(r26867); double r26869 = pow(r26868, r26852); double r26870 = r26869 * r26869; double r26871 = r26855 / r26834; double r26872 = log(r26871); double r26873 = r26872 - r26859; double r26874 = r26873 * r26854; double r26875 = exp(r26874); double r26876 = r26870 * r26875; double r26877 = r26850 * r26876; double r26878 = 1.2211621461849747e-39; bool r26879 = r26834 <= r26878; double r26880 = r26852 * r26845; double r26881 = r26834 / r26847; double r26882 = r26880 * r26881; double r26883 = r26837 - r26882; double r26884 = r26837 / r26834; double r26885 = pow(r26884, r26852); double r26886 = pow(r26841, r26852); double r26887 = r26885 * r26886; double r26888 = pow(r26867, r26852); double r26889 = r26887 * r26888; double r26890 = r26883 * r26889; double r26891 = r26837 / r26847; double r26892 = pow(r26891, r26852); double r26893 = r26892 * r26886; double r26894 = r26893 * r26853; double r26895 = r26850 * r26894; double r26896 = r26879 ? r26890 : r26895; double r26897 = r26866 ? r26877 : r26896; double r26898 = r26836 ? r26864 : r26897; return r26898; } 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 r26899, r26900, r26901, r26902, r26903, r26904, r26905, r26906, r26907, r26908, r26909, r26910, r26911, r26912, r26913, r26914, r26915, r26916, r26917, r26918, r26919, r26920; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r26899); mpfr_init(r26900); mpfr_init(r26901); mpfr_init_set_str(r26902, "1", 10, MPFR_RNDN); mpfr_init_set_str(r26903, "2", 10, MPFR_RNDN); mpfr_init(r26904); mpfr_init(r26905); mpfr_init(r26906); mpfr_init(r26907); mpfr_init(r26908); mpfr_init(r26909); mpfr_init(r26910); mpfr_init(r26911); mpfr_init(r26912); mpfr_init(r26913); mpfr_init(r26914); mpfr_init(r26915); mpfr_init(r26916); mpfr_init(r26917); mpfr_init(r26918); mpfr_init(r26919); mpfr_init(r26920); } double f_im(double d, double h, double l, double M, double D) { mpfr_set_d(r26899, d, MPFR_RNDN); mpfr_set_d(r26900, h, MPFR_RNDN); mpfr_div(r26901, r26899, r26900, MPFR_RNDN); ; ; mpfr_div(r26904, r26902, r26903, MPFR_RNDN); mpfr_pow(r26905, r26901, r26904, MPFR_RNDN); mpfr_set_d(r26906, l, MPFR_RNDN); mpfr_div(r26907, r26899, r26906, MPFR_RNDN); mpfr_pow(r26908, r26907, r26904, MPFR_RNDN); mpfr_mul(r26909, r26905, r26908, MPFR_RNDN); mpfr_set_d(r26910, M, MPFR_RNDN); mpfr_set_d(r26911, D, MPFR_RNDN); mpfr_mul(r26912, r26910, r26911, MPFR_RNDN); mpfr_mul(r26913, r26903, r26899, MPFR_RNDN); mpfr_div(r26914, r26912, r26913, MPFR_RNDN); mpfr_pow(r26915, r26914, r26903, MPFR_RNDN); mpfr_mul(r26916, r26904, r26915, MPFR_RNDN); mpfr_div(r26917, r26900, r26906, MPFR_RNDN); mpfr_mul(r26918, r26916, r26917, MPFR_RNDN); mpfr_sub(r26919, r26902, r26918, MPFR_RNDN); mpfr_mul(r26920, r26909, r26919, MPFR_RNDN); return mpfr_get_d(r26920, MPFR_RNDN); } static mpfr_t r26921, r26922, r26923, r26924, r26925, r26926, r26927, r26928, r26929, r26930, r26931, r26932, r26933, r26934, r26935, r26936, r26937, r26938, r26939, r26940, r26941, r26942, r26943, r26944, r26945, r26946, r26947, r26948, r26949, r26950, r26951, r26952, r26953, r26954, r26955, r26956, r26957, r26958, r26959, r26960, r26961, r26962, r26963, r26964, r26965, r26966, r26967, r26968, r26969, r26970, r26971, r26972, r26973, r26974, r26975, r26976, r26977, r26978, r26979, r26980, r26981, r26982, r26983, r26984, r26985; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r26921); mpfr_init_set_str(r26922, "-1.920054654637834e-168", 10, MPFR_RNDN); mpfr_init(r26923); mpfr_init_set_str(r26924, "1", 10, MPFR_RNDN); mpfr_init(r26925); mpfr_init(r26926); mpfr_init(r26927); mpfr_init(r26928); mpfr_init_set_str(r26929, "2", 10, MPFR_RNDN); mpfr_init(r26930); mpfr_init(r26931); mpfr_init(r26932); mpfr_init(r26933); mpfr_init(r26934); mpfr_init(r26935); mpfr_init(r26936); mpfr_init(r26937); mpfr_init(r26938); mpfr_init(r26939); mpfr_init(r26940); mpfr_init_set_str(r26941, "1/2", 10, MPFR_RNDN); mpfr_init_set_str(r26942, "-1", 10, MPFR_RNDN); mpfr_init(r26943); mpfr_init(r26944); mpfr_init(r26945); mpfr_init(r26946); mpfr_init(r26947); mpfr_init(r26948); mpfr_init(r26949); mpfr_init(r26950); mpfr_init(r26951); mpfr_init_set_str(r26952, "-2.919280088412085e-309", 10, MPFR_RNDN); mpfr_init(r26953); mpfr_init(r26954); mpfr_init(r26955); mpfr_init(r26956); mpfr_init(r26957); mpfr_init(r26958); mpfr_init(r26959); mpfr_init(r26960); mpfr_init(r26961); mpfr_init(r26962); mpfr_init(r26963); mpfr_init(r26964); mpfr_init_set_str(r26965, "1.2211621461849747e-39", 10, MPFR_RNDN); mpfr_init(r26966); mpfr_init(r26967); mpfr_init(r26968); mpfr_init(r26969); mpfr_init(r26970); mpfr_init(r26971); mpfr_init(r26972); mpfr_init(r26973); mpfr_init(r26974); mpfr_init(r26975); mpfr_init(r26976); mpfr_init(r26977); mpfr_init(r26978); mpfr_init(r26979); mpfr_init(r26980); mpfr_init(r26981); mpfr_init(r26982); mpfr_init(r26983); mpfr_init(r26984); mpfr_init(r26985); } double f_fm(double d, double h, double l, double M, double D) { mpfr_set_d(r26921, h, MPFR_RNDN); ; mpfr_set_si(r26923, mpfr_cmp(r26921, r26922) <= 0, MPFR_RNDN); ; mpfr_set_d(r26925, M, MPFR_RNDN); mpfr_set_d(r26926, D, MPFR_RNDN); mpfr_mul(r26927, r26925, r26926, MPFR_RNDN); mpfr_set_d(r26928, d, MPFR_RNDN); ; mpfr_mul(r26930, r26928, r26929, MPFR_RNDN); mpfr_div(r26931, r26927, r26930, MPFR_RNDN); mpfr_pow(r26932, r26931, r26929, MPFR_RNDN); mpfr_mul(r26933, r26921, r26932, MPFR_RNDN); mpfr_set_d(r26934, l, MPFR_RNDN); mpfr_mul(r26935, r26934, r26929, MPFR_RNDN); mpfr_div(r26936, r26933, r26935, MPFR_RNDN); mpfr_sub(r26937, r26924, r26936, MPFR_RNDN); mpfr_div(r26938, r26928, r26921, MPFR_RNDN); mpfr_div(r26939, r26924, r26929, MPFR_RNDN); mpfr_pow(r26940, r26938, r26939, MPFR_RNDN); ; ; mpfr_div(r26943, r26942, r26934, MPFR_RNDN); mpfr_log(r26944, r26943, MPFR_RNDN); mpfr_div(r26945, r26942, r26928, MPFR_RNDN); mpfr_log(r26946, r26945, MPFR_RNDN); mpfr_sub(r26947, r26944, r26946, MPFR_RNDN); mpfr_mul(r26948, r26941, r26947, MPFR_RNDN); mpfr_exp(r26949, r26948, MPFR_RNDN); mpfr_mul(r26950, r26940, r26949, MPFR_RNDN); mpfr_mul(r26951, r26937, r26950, MPFR_RNDN); ; mpfr_set_si(r26953, mpfr_cmp(r26921, r26952) <= 0, MPFR_RNDN); mpfr_div(r26954, r26928, r26934, MPFR_RNDN); mpfr_sqrt(r26955, r26954, MPFR_RNDN); mpfr_pow(r26956, r26955, r26939, MPFR_RNDN); mpfr_mul(r26957, r26956, r26956, MPFR_RNDN); mpfr_div(r26958, r26942, r26921, MPFR_RNDN); mpfr_log(r26959, r26958, MPFR_RNDN); mpfr_sub(r26960, r26959, r26946, MPFR_RNDN); mpfr_mul(r26961, r26960, r26941, MPFR_RNDN); mpfr_exp(r26962, r26961, MPFR_RNDN); mpfr_mul(r26963, r26957, r26962, MPFR_RNDN); mpfr_mul(r26964, r26937, r26963, MPFR_RNDN); ; mpfr_set_si(r26966, mpfr_cmp(r26921, r26965) <= 0, MPFR_RNDN); mpfr_mul(r26967, r26939, r26932, MPFR_RNDN); mpfr_div(r26968, r26921, r26934, MPFR_RNDN); mpfr_mul(r26969, r26967, r26968, MPFR_RNDN); mpfr_sub(r26970, r26924, r26969, MPFR_RNDN); mpfr_div(r26971, r26924, r26921, MPFR_RNDN); mpfr_pow(r26972, r26971, r26939, MPFR_RNDN); mpfr_pow(r26973, r26928, r26939, MPFR_RNDN); mpfr_mul(r26974, r26972, r26973, MPFR_RNDN); mpfr_pow(r26975, r26954, r26939, MPFR_RNDN); mpfr_mul(r26976, r26974, r26975, MPFR_RNDN); mpfr_mul(r26977, r26970, r26976, MPFR_RNDN); mpfr_div(r26978, r26924, r26934, MPFR_RNDN); mpfr_pow(r26979, r26978, r26939, MPFR_RNDN); mpfr_mul(r26980, r26979, r26973, MPFR_RNDN); mpfr_mul(r26981, r26980, r26940, MPFR_RNDN); mpfr_mul(r26982, r26937, r26981, MPFR_RNDN); if (mpfr_get_si(r26966, MPFR_RNDN)) { mpfr_set(r26983, r26977, MPFR_RNDN); } else { mpfr_set(r26983, r26982, MPFR_RNDN); }; if (mpfr_get_si(r26953, MPFR_RNDN)) { mpfr_set(r26984, r26964, MPFR_RNDN); } else { mpfr_set(r26984, r26983, MPFR_RNDN); }; if (mpfr_get_si(r26923, MPFR_RNDN)) { mpfr_set(r26985, r26951, MPFR_RNDN); } else { mpfr_set(r26985, r26984, MPFR_RNDN); }; return mpfr_get_d(r26985, MPFR_RNDN); } static mpfr_t r26986, r26987, r26988, r26989, r26990, r26991, r26992, r26993, r26994, r26995, r26996, r26997, r26998, r26999, r27000, r27001, r27002, r27003, r27004, r27005, r27006, r27007, r27008, r27009, r27010, r27011, r27012, r27013, r27014, r27015, r27016, r27017, r27018, r27019, r27020, r27021, r27022, r27023, r27024, r27025, r27026, r27027, r27028, r27029, r27030, r27031, r27032, r27033, r27034, r27035, r27036, r27037, r27038, r27039, r27040, r27041, r27042, r27043, r27044, r27045, r27046, r27047, r27048, r27049, r27050; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init(r26986); mpfr_init_set_str(r26987, "-1.920054654637834e-168", 10, MPFR_RNDN); mpfr_init(r26988); mpfr_init_set_str(r26989, "1", 10, MPFR_RNDN); mpfr_init(r26990); mpfr_init(r26991); mpfr_init(r26992); mpfr_init(r26993); mpfr_init_set_str(r26994, "2", 10, MPFR_RNDN); mpfr_init(r26995); mpfr_init(r26996); mpfr_init(r26997); mpfr_init(r26998); mpfr_init(r26999); mpfr_init(r27000); mpfr_init(r27001); mpfr_init(r27002); mpfr_init(r27003); mpfr_init(r27004); mpfr_init(r27005); mpfr_init_set_str(r27006, "1/2", 10, MPFR_RNDN); mpfr_init_set_str(r27007, "-1", 10, MPFR_RNDN); mpfr_init(r27008); mpfr_init(r27009); mpfr_init(r27010); mpfr_init(r27011); mpfr_init(r27012); mpfr_init(r27013); mpfr_init(r27014); mpfr_init(r27015); mpfr_init(r27016); mpfr_init_set_str(r27017, "-2.919280088412085e-309", 10, MPFR_RNDN); mpfr_init(r27018); mpfr_init(r27019); mpfr_init(r27020); mpfr_init(r27021); mpfr_init(r27022); mpfr_init(r27023); mpfr_init(r27024); mpfr_init(r27025); mpfr_init(r27026); mpfr_init(r27027); mpfr_init(r27028); mpfr_init(r27029); mpfr_init_set_str(r27030, "1.2211621461849747e-39", 10, MPFR_RNDN); mpfr_init(r27031); mpfr_init(r27032); mpfr_init(r27033); mpfr_init(r27034); mpfr_init(r27035); mpfr_init(r27036); mpfr_init(r27037); mpfr_init(r27038); mpfr_init(r27039); mpfr_init(r27040); mpfr_init(r27041); mpfr_init(r27042); mpfr_init(r27043); mpfr_init(r27044); mpfr_init(r27045); mpfr_init(r27046); mpfr_init(r27047); mpfr_init(r27048); mpfr_init(r27049); mpfr_init(r27050); } double f_dm(double d, double h, double l, double M, double D) { mpfr_set_d(r26986, h, MPFR_RNDN); ; mpfr_set_si(r26988, mpfr_cmp(r26986, r26987) <= 0, MPFR_RNDN); ; mpfr_set_d(r26990, M, MPFR_RNDN); mpfr_set_d(r26991, D, MPFR_RNDN); mpfr_mul(r26992, r26990, r26991, MPFR_RNDN); mpfr_set_d(r26993, d, MPFR_RNDN); ; mpfr_mul(r26995, r26993, r26994, MPFR_RNDN); mpfr_div(r26996, r26992, r26995, MPFR_RNDN); mpfr_pow(r26997, r26996, r26994, MPFR_RNDN); mpfr_mul(r26998, r26986, r26997, MPFR_RNDN); mpfr_set_d(r26999, l, MPFR_RNDN); mpfr_mul(r27000, r26999, r26994, MPFR_RNDN); mpfr_div(r27001, r26998, r27000, MPFR_RNDN); mpfr_sub(r27002, r26989, r27001, MPFR_RNDN); mpfr_div(r27003, r26993, r26986, MPFR_RNDN); mpfr_div(r27004, r26989, r26994, MPFR_RNDN); mpfr_pow(r27005, r27003, r27004, MPFR_RNDN); ; ; mpfr_div(r27008, r27007, r26999, MPFR_RNDN); mpfr_log(r27009, r27008, MPFR_RNDN); mpfr_div(r27010, r27007, r26993, MPFR_RNDN); mpfr_log(r27011, r27010, MPFR_RNDN); mpfr_sub(r27012, r27009, r27011, MPFR_RNDN); mpfr_mul(r27013, r27006, r27012, MPFR_RNDN); mpfr_exp(r27014, r27013, MPFR_RNDN); mpfr_mul(r27015, r27005, r27014, MPFR_RNDN); mpfr_mul(r27016, r27002, r27015, MPFR_RNDN); ; mpfr_set_si(r27018, mpfr_cmp(r26986, r27017) <= 0, MPFR_RNDN); mpfr_div(r27019, r26993, r26999, MPFR_RNDN); mpfr_sqrt(r27020, r27019, MPFR_RNDN); mpfr_pow(r27021, r27020, r27004, MPFR_RNDN); mpfr_mul(r27022, r27021, r27021, MPFR_RNDN); mpfr_div(r27023, r27007, r26986, MPFR_RNDN); mpfr_log(r27024, r27023, MPFR_RNDN); mpfr_sub(r27025, r27024, r27011, MPFR_RNDN); mpfr_mul(r27026, r27025, r27006, MPFR_RNDN); mpfr_exp(r27027, r27026, MPFR_RNDN); mpfr_mul(r27028, r27022, r27027, MPFR_RNDN); mpfr_mul(r27029, r27002, r27028, MPFR_RNDN); ; mpfr_set_si(r27031, mpfr_cmp(r26986, r27030) <= 0, MPFR_RNDN); mpfr_mul(r27032, r27004, r26997, MPFR_RNDN); mpfr_div(r27033, r26986, r26999, MPFR_RNDN); mpfr_mul(r27034, r27032, r27033, MPFR_RNDN); mpfr_sub(r27035, r26989, r27034, MPFR_RNDN); mpfr_div(r27036, r26989, r26986, MPFR_RNDN); mpfr_pow(r27037, r27036, r27004, MPFR_RNDN); mpfr_pow(r27038, r26993, r27004, MPFR_RNDN); mpfr_mul(r27039, r27037, r27038, MPFR_RNDN); mpfr_pow(r27040, r27019, r27004, MPFR_RNDN); mpfr_mul(r27041, r27039, r27040, MPFR_RNDN); mpfr_mul(r27042, r27035, r27041, MPFR_RNDN); mpfr_div(r27043, r26989, r26999, MPFR_RNDN); mpfr_pow(r27044, r27043, r27004, MPFR_RNDN); mpfr_mul(r27045, r27044, r27038, MPFR_RNDN); mpfr_mul(r27046, r27045, r27005, MPFR_RNDN); mpfr_mul(r27047, r27002, r27046, MPFR_RNDN); if (mpfr_get_si(r27031, MPFR_RNDN)) { mpfr_set(r27048, r27042, MPFR_RNDN); } else { mpfr_set(r27048, r27047, MPFR_RNDN); }; if (mpfr_get_si(r27018, MPFR_RNDN)) { mpfr_set(r27049, r27029, MPFR_RNDN); } else { mpfr_set(r27049, r27048, MPFR_RNDN); }; if (mpfr_get_si(r26988, MPFR_RNDN)) { mpfr_set(r27050, r27016, MPFR_RNDN); } else { mpfr_set(r27050, r27049, MPFR_RNDN); }; return mpfr_get_d(r27050, MPFR_RNDN); }