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