#include #include #include #include #include char *name = "Falkner and Boettcher, Appendix B, 2"; double f_if(float v) { float r23723 = 2; float r23724 = sqrt(r23723); float r23725 = 4; float r23726 = r23724 / r23725; float r23727 = 1; float r23728 = 3; float r23729 = v; float r23730 = r23729 * r23729; float r23731 = r23728 * r23730; float r23732 = r23727 - r23731; float r23733 = sqrt(r23732); float r23734 = r23726 * r23733; float r23735 = r23727 - r23730; float r23736 = r23734 * r23735; return r23736; } double f_id(double v) { double r23737 = 2; double r23738 = sqrt(r23737); double r23739 = 4; double r23740 = r23738 / r23739; double r23741 = 1; double r23742 = 3; double r23743 = v; double r23744 = r23743 * r23743; double r23745 = r23742 * r23744; double r23746 = r23741 - r23745; double r23747 = sqrt(r23746); double r23748 = r23740 * r23747; double r23749 = r23741 - r23744; double r23750 = r23748 * r23749; return r23750; } double f_of(float v) { float r23751 = 2; float r23752 = sqrt(r23751); float r23753 = 4; float r23754 = r23752 / r23753; float r23755 = 1; float r23756 = 3; float r23757 = v; float r23758 = r23757 * r23757; float r23759 = r23756 * r23758; float r23760 = r23755 - r23759; float r23761 = sqrt(r23760); float r23762 = r23754 * r23761; float r23763 = r23755 - r23758; float r23764 = r23762 * r23763; float r23765 = expm1(r23764); float r23766 = log1p(r23765); return r23766; } double f_od(double v) { double r23767 = 2; double r23768 = sqrt(r23767); double r23769 = 4; double r23770 = r23768 / r23769; double r23771 = 1; double r23772 = 3; double r23773 = v; double r23774 = r23773 * r23773; double r23775 = r23772 * r23774; double r23776 = r23771 - r23775; double r23777 = sqrt(r23776); double r23778 = r23770 * r23777; double r23779 = r23771 - r23774; double r23780 = r23778 * r23779; double r23781 = expm1(r23780); double r23782 = log1p(r23781); return r23782; } 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 r23783, r23784, r23785, r23786, r23787, r23788, r23789, r23790, r23791, r23792, r23793, r23794, r23795, r23796; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init_set_str(r23783, "2", 10, MPFR_RNDN); mpfr_init(r23784); mpfr_init_set_str(r23785, "4", 10, MPFR_RNDN); mpfr_init(r23786); mpfr_init_set_str(r23787, "1", 10, MPFR_RNDN); mpfr_init_set_str(r23788, "3", 10, MPFR_RNDN); mpfr_init(r23789); mpfr_init(r23790); mpfr_init(r23791); mpfr_init(r23792); mpfr_init(r23793); mpfr_init(r23794); mpfr_init(r23795); mpfr_init(r23796); } double f_im(double v) { ; mpfr_sqrt(r23784, r23783, MPFR_RNDN); ; mpfr_div(r23786, r23784, r23785, MPFR_RNDN); ; ; mpfr_set_d(r23789, v, MPFR_RNDN); mpfr_mul(r23790, r23789, r23789, MPFR_RNDN); mpfr_mul(r23791, r23788, r23790, MPFR_RNDN); mpfr_sub(r23792, r23787, r23791, MPFR_RNDN); mpfr_sqrt(r23793, r23792, MPFR_RNDN); mpfr_mul(r23794, r23786, r23793, MPFR_RNDN); mpfr_sub(r23795, r23787, r23790, MPFR_RNDN); mpfr_mul(r23796, r23794, r23795, MPFR_RNDN); return mpfr_get_d(r23796, MPFR_RNDN); } static mpfr_t r23797, r23798, r23799, r23800, r23801, r23802, r23803, r23804, r23805, r23806, r23807, r23808, r23809, r23810, r23811, r23812; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init_set_str(r23797, "2", 10, MPFR_RNDN); mpfr_init(r23798); mpfr_init_set_str(r23799, "4", 10, MPFR_RNDN); mpfr_init(r23800); mpfr_init_set_str(r23801, "1", 10, MPFR_RNDN); mpfr_init_set_str(r23802, "3", 10, MPFR_RNDN); mpfr_init(r23803); mpfr_init(r23804); mpfr_init(r23805); mpfr_init(r23806); mpfr_init(r23807); mpfr_init(r23808); mpfr_init(r23809); mpfr_init(r23810); mpfr_init(r23811); mpfr_init(r23812); } double f_fm(double v) { ; mpfr_sqrt(r23798, r23797, MPFR_RNDN); ; mpfr_div(r23800, r23798, r23799, MPFR_RNDN); ; ; mpfr_set_d(r23803, v, MPFR_RNDN); mpfr_mul(r23804, r23803, r23803, MPFR_RNDN); mpfr_mul(r23805, r23802, r23804, MPFR_RNDN); mpfr_sub(r23806, r23801, r23805, MPFR_RNDN); mpfr_sqrt(r23807, r23806, MPFR_RNDN); mpfr_mul(r23808, r23800, r23807, MPFR_RNDN); mpfr_sub(r23809, r23801, r23804, MPFR_RNDN); mpfr_mul(r23810, r23808, r23809, MPFR_RNDN); mpfr_expm1(r23811, r23810, MPFR_RNDN); mpfr_log1p(r23812, r23811, MPFR_RNDN); return mpfr_get_d(r23812, MPFR_RNDN); } static mpfr_t r23813, r23814, r23815, r23816, r23817, r23818, r23819, r23820, r23821, r23822, r23823, r23824, r23825, r23826, r23827, r23828; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init_set_str(r23813, "2", 10, MPFR_RNDN); mpfr_init(r23814); mpfr_init_set_str(r23815, "4", 10, MPFR_RNDN); mpfr_init(r23816); mpfr_init_set_str(r23817, "1", 10, MPFR_RNDN); mpfr_init_set_str(r23818, "3", 10, MPFR_RNDN); mpfr_init(r23819); mpfr_init(r23820); mpfr_init(r23821); mpfr_init(r23822); mpfr_init(r23823); mpfr_init(r23824); mpfr_init(r23825); mpfr_init(r23826); mpfr_init(r23827); mpfr_init(r23828); } double f_dm(double v) { ; mpfr_sqrt(r23814, r23813, MPFR_RNDN); ; mpfr_div(r23816, r23814, r23815, MPFR_RNDN); ; ; mpfr_set_d(r23819, v, MPFR_RNDN); mpfr_mul(r23820, r23819, r23819, MPFR_RNDN); mpfr_mul(r23821, r23818, r23820, MPFR_RNDN); mpfr_sub(r23822, r23817, r23821, MPFR_RNDN); mpfr_sqrt(r23823, r23822, MPFR_RNDN); mpfr_mul(r23824, r23816, r23823, MPFR_RNDN); mpfr_sub(r23825, r23817, r23820, MPFR_RNDN); mpfr_mul(r23826, r23824, r23825, MPFR_RNDN); mpfr_expm1(r23827, r23826, MPFR_RNDN); mpfr_log1p(r23828, r23827, MPFR_RNDN); return mpfr_get_d(r23828, MPFR_RNDN); }