#include #include #include #include #include char *name = "Cubic critical, narrow range"; double f_if(float a, float b, float c, float __attribute__((unused)) d) { float r23713 = b; float r23714 = -r23713; float r23715 = r23713 * r23713; float r23716 = 3; float r23717 = a; float r23718 = r23716 * r23717; float r23719 = c; float r23720 = r23718 * r23719; float r23721 = r23715 - r23720; float r23722 = sqrt(r23721); float r23723 = r23714 + r23722; float r23724 = r23723 / r23718; return r23724; } double f_id(double a, double b, double c, double __attribute__((unused)) d) { double r23725 = b; double r23726 = -r23725; double r23727 = r23725 * r23725; double r23728 = 3; double r23729 = a; double r23730 = r23728 * r23729; double r23731 = c; double r23732 = r23730 * r23731; double r23733 = r23727 - r23732; double r23734 = sqrt(r23733); double r23735 = r23726 + r23734; double r23736 = r23735 / r23730; return r23736; } double f_of(float a, float b, float c, float __attribute__((unused)) d) { float r23737 = c; float r23738 = -r23737; float r23739 = 1; float r23740 = r23738 / r23739; float r23741 = a; float r23742 = r23740 * r23741; float r23743 = 3; float r23744 = r23743 * r23741; float r23745 = b; float r23746 = r23745 * r23745; float r23747 = fma(r23738, r23744, r23746); float r23748 = sqrt(r23747); float r23749 = r23748 + r23745; float r23750 = r23742 / r23749; float r23751 = r23750 / r23741; return r23751; } double f_od(double a, double b, double c, double __attribute__((unused)) d) { double r23752 = c; double r23753 = -r23752; double r23754 = 1; double r23755 = r23753 / r23754; double r23756 = a; double r23757 = r23755 * r23756; double r23758 = 3; double r23759 = r23758 * r23756; double r23760 = b; double r23761 = r23760 * r23760; double r23762 = fma(r23753, r23759, r23761); double r23763 = sqrt(r23762); double r23764 = r23763 + r23760; double r23765 = r23757 / r23764; double r23766 = r23765 / r23756; return r23766; } 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 r23767, r23768, r23769, r23770, r23771, r23772, r23773, r23774, r23775, r23776, r23777, r23778; void setup_mpfr_f_im() { mpfr_set_default_prec(656); mpfr_init(r23767); mpfr_init(r23768); mpfr_init(r23769); mpfr_init_set_str(r23770, "3", 10, MPFR_RNDN); mpfr_init(r23771); mpfr_init(r23772); mpfr_init(r23773); mpfr_init(r23774); mpfr_init(r23775); mpfr_init(r23776); mpfr_init(r23777); mpfr_init(r23778); } double f_im(double a, double b, double c, double __attribute__((unused)) d) { mpfr_set_d(r23767, b, MPFR_RNDN); mpfr_neg(r23768, r23767, MPFR_RNDN); mpfr_mul(r23769, r23767, r23767, MPFR_RNDN); ; mpfr_set_d(r23771, a, MPFR_RNDN); mpfr_mul(r23772, r23770, r23771, MPFR_RNDN); mpfr_set_d(r23773, c, MPFR_RNDN); mpfr_mul(r23774, r23772, r23773, MPFR_RNDN); mpfr_sub(r23775, r23769, r23774, MPFR_RNDN); mpfr_sqrt(r23776, r23775, MPFR_RNDN); mpfr_add(r23777, r23768, r23776, MPFR_RNDN); mpfr_div(r23778, r23777, r23772, MPFR_RNDN); return mpfr_get_d(r23778, MPFR_RNDN); } static mpfr_t r23779, r23780, r23781, r23782, r23783, r23784, r23785, r23786, r23787, r23788, r23789, r23790, r23791, r23792, r23793; void setup_mpfr_f_fm() { mpfr_set_default_prec(656); mpfr_init(r23779); mpfr_init(r23780); mpfr_init_set_str(r23781, "1", 10, MPFR_RNDN); mpfr_init(r23782); mpfr_init(r23783); mpfr_init(r23784); mpfr_init_set_str(r23785, "3", 10, MPFR_RNDN); mpfr_init(r23786); mpfr_init(r23787); mpfr_init(r23788); mpfr_init(r23789); mpfr_init(r23790); mpfr_init(r23791); mpfr_init(r23792); mpfr_init(r23793); } double f_fm(double a, double b, double c, double __attribute__((unused)) d) { mpfr_set_d(r23779, c, MPFR_RNDN); mpfr_neg(r23780, r23779, MPFR_RNDN); ; mpfr_div(r23782, r23780, r23781, MPFR_RNDN); mpfr_set_d(r23783, a, MPFR_RNDN); mpfr_mul(r23784, r23782, r23783, MPFR_RNDN); ; mpfr_mul(r23786, r23785, r23783, MPFR_RNDN); mpfr_set_d(r23787, b, MPFR_RNDN); mpfr_mul(r23788, r23787, r23787, MPFR_RNDN); mpfr_fma(r23789, r23780, r23786, r23788, MPFR_RNDN); mpfr_sqrt(r23790, r23789, MPFR_RNDN); mpfr_add(r23791, r23790, r23787, MPFR_RNDN); mpfr_div(r23792, r23784, r23791, MPFR_RNDN); mpfr_div(r23793, r23792, r23783, MPFR_RNDN); return mpfr_get_d(r23793, MPFR_RNDN); } static mpfr_t r23794, r23795, r23796, r23797, r23798, r23799, r23800, r23801, r23802, r23803, r23804, r23805, r23806, r23807, r23808; void setup_mpfr_f_dm() { mpfr_set_default_prec(656); mpfr_init(r23794); mpfr_init(r23795); mpfr_init_set_str(r23796, "1", 10, MPFR_RNDN); mpfr_init(r23797); mpfr_init(r23798); mpfr_init(r23799); mpfr_init_set_str(r23800, "3", 10, MPFR_RNDN); mpfr_init(r23801); mpfr_init(r23802); mpfr_init(r23803); mpfr_init(r23804); mpfr_init(r23805); mpfr_init(r23806); mpfr_init(r23807); mpfr_init(r23808); } double f_dm(double a, double b, double c, double __attribute__((unused)) d) { mpfr_set_d(r23794, c, MPFR_RNDN); mpfr_neg(r23795, r23794, MPFR_RNDN); ; mpfr_div(r23797, r23795, r23796, MPFR_RNDN); mpfr_set_d(r23798, a, MPFR_RNDN); mpfr_mul(r23799, r23797, r23798, MPFR_RNDN); ; mpfr_mul(r23801, r23800, r23798, MPFR_RNDN); mpfr_set_d(r23802, b, MPFR_RNDN); mpfr_mul(r23803, r23802, r23802, MPFR_RNDN); mpfr_fma(r23804, r23795, r23801, r23803, MPFR_RNDN); mpfr_sqrt(r23805, r23804, MPFR_RNDN); mpfr_add(r23806, r23805, r23802, MPFR_RNDN); mpfr_div(r23807, r23799, r23806, MPFR_RNDN); mpfr_div(r23808, r23807, r23798, MPFR_RNDN); return mpfr_get_d(r23808, MPFR_RNDN); }