#include #include #include #include #include char *name = "Complex division, real part"; double f_if(float a, float b, float c, float d) { float r23715 = a; float r23716 = c; float r23717 = r23715 * r23716; float r23718 = b; float r23719 = d; float r23720 = r23718 * r23719; float r23721 = r23717 + r23720; float r23722 = r23716 * r23716; float r23723 = r23719 * r23719; float r23724 = r23722 + r23723; float r23725 = r23721 / r23724; return r23725; } double f_id(double a, double b, double c, double d) { double r23726 = a; double r23727 = c; double r23728 = r23726 * r23727; double r23729 = b; double r23730 = d; double r23731 = r23729 * r23730; double r23732 = r23728 + r23731; double r23733 = r23727 * r23727; double r23734 = r23730 * r23730; double r23735 = r23733 + r23734; double r23736 = r23732 / r23735; return r23736; } double f_of(float a, float b, float c, float d) { float r23737 = c; float r23738 = -5.9954642524857316e+23; bool r23739 = r23737 <= r23738; float r23740 = a; float r23741 = -r23740; float r23742 = r23737 * r23737; float r23743 = d; float r23744 = r23743 * r23743; float r23745 = r23742 + r23744; float r23746 = sqrt(r23745); float r23747 = r23741 / r23746; float r23748 = r23740 * r23737; float r23749 = b; float r23750 = r23749 * r23743; float r23751 = r23748 + r23750; float r23752 = r23751 / r23746; float r23753 = r23752 / r23746; float r23754 = r23739 ? r23747 : r23753; return r23754; } double f_od(double a, double b, double c, double d) { double r23755 = c; double r23756 = -5.9954642524857316e+23; bool r23757 = r23755 <= r23756; double r23758 = a; double r23759 = -r23758; double r23760 = r23755 * r23755; double r23761 = d; double r23762 = r23761 * r23761; double r23763 = r23760 + r23762; double r23764 = sqrt(r23763); double r23765 = r23759 / r23764; double r23766 = r23758 * r23755; double r23767 = b; double r23768 = r23767 * r23761; double r23769 = r23766 + r23768; double r23770 = r23769 / r23764; double r23771 = r23770 / r23764; double r23772 = r23757 ? r23765 : r23771; return r23772; } 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 r23773, r23774, r23775, r23776, r23777, r23778, r23779, r23780, r23781, r23782, r23783; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r23773); mpfr_init(r23774); mpfr_init(r23775); mpfr_init(r23776); mpfr_init(r23777); mpfr_init(r23778); mpfr_init(r23779); mpfr_init(r23780); mpfr_init(r23781); mpfr_init(r23782); mpfr_init(r23783); } double f_im(double a, double b, double c, double d) { mpfr_set_d(r23773, a, MPFR_RNDN); mpfr_set_d(r23774, c, MPFR_RNDN); mpfr_mul(r23775, r23773, r23774, MPFR_RNDN); mpfr_set_d(r23776, b, MPFR_RNDN); mpfr_set_d(r23777, d, MPFR_RNDN); mpfr_mul(r23778, r23776, r23777, MPFR_RNDN); mpfr_add(r23779, r23775, r23778, MPFR_RNDN); mpfr_mul(r23780, r23774, r23774, MPFR_RNDN); mpfr_mul(r23781, r23777, r23777, MPFR_RNDN); mpfr_add(r23782, r23780, r23781, MPFR_RNDN); mpfr_div(r23783, r23779, r23782, MPFR_RNDN); return mpfr_get_d(r23783, MPFR_RNDN); } static mpfr_t r23784, r23785, r23786, r23787, r23788, r23789, r23790, r23791, r23792, r23793, r23794, r23795, r23796, r23797, r23798, r23799, r23800, r23801; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r23784); mpfr_init_set_str(r23785, "-5.9954642524857316e+23", 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); mpfr_init(r23794); mpfr_init(r23795); mpfr_init(r23796); mpfr_init(r23797); mpfr_init(r23798); mpfr_init(r23799); mpfr_init(r23800); mpfr_init(r23801); } double f_fm(double a, double b, double c, double d) { mpfr_set_d(r23784, c, MPFR_RNDN); ; mpfr_set_si(r23786, mpfr_cmp(r23784, r23785) <= 0, MPFR_RNDN); mpfr_set_d(r23787, a, MPFR_RNDN); mpfr_neg(r23788, r23787, MPFR_RNDN); mpfr_mul(r23789, r23784, r23784, MPFR_RNDN); mpfr_set_d(r23790, d, MPFR_RNDN); mpfr_mul(r23791, r23790, r23790, MPFR_RNDN); mpfr_add(r23792, r23789, r23791, MPFR_RNDN); mpfr_sqrt(r23793, r23792, MPFR_RNDN); mpfr_div(r23794, r23788, r23793, MPFR_RNDN); mpfr_mul(r23795, r23787, r23784, MPFR_RNDN); mpfr_set_d(r23796, b, MPFR_RNDN); mpfr_mul(r23797, r23796, r23790, MPFR_RNDN); mpfr_add(r23798, r23795, r23797, MPFR_RNDN); mpfr_div(r23799, r23798, r23793, MPFR_RNDN); mpfr_div(r23800, r23799, r23793, MPFR_RNDN); if (mpfr_get_si(r23786, MPFR_RNDN)) { mpfr_set(r23801, r23794, MPFR_RNDN); } else { mpfr_set(r23801, r23800, MPFR_RNDN); }; return mpfr_get_d(r23801, MPFR_RNDN); } static mpfr_t r23802, r23803, r23804, r23805, r23806, r23807, r23808, r23809, r23810, r23811, r23812, r23813, r23814, r23815, r23816, r23817, r23818, r23819; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init(r23802); mpfr_init_set_str(r23803, "-5.9954642524857316e+23", 10, MPFR_RNDN); 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); mpfr_init(r23813); mpfr_init(r23814); mpfr_init(r23815); mpfr_init(r23816); mpfr_init(r23817); mpfr_init(r23818); mpfr_init(r23819); } double f_dm(double a, double b, double c, double d) { mpfr_set_d(r23802, c, MPFR_RNDN); ; mpfr_set_si(r23804, mpfr_cmp(r23802, r23803) <= 0, MPFR_RNDN); mpfr_set_d(r23805, a, MPFR_RNDN); mpfr_neg(r23806, r23805, MPFR_RNDN); mpfr_mul(r23807, r23802, r23802, MPFR_RNDN); mpfr_set_d(r23808, d, MPFR_RNDN); mpfr_mul(r23809, r23808, r23808, MPFR_RNDN); mpfr_add(r23810, r23807, r23809, MPFR_RNDN); mpfr_sqrt(r23811, r23810, MPFR_RNDN); mpfr_div(r23812, r23806, r23811, MPFR_RNDN); mpfr_mul(r23813, r23805, r23802, MPFR_RNDN); mpfr_set_d(r23814, b, MPFR_RNDN); mpfr_mul(r23815, r23814, r23808, MPFR_RNDN); mpfr_add(r23816, r23813, r23815, MPFR_RNDN); mpfr_div(r23817, r23816, r23811, MPFR_RNDN); mpfr_div(r23818, r23817, r23811, MPFR_RNDN); if (mpfr_get_si(r23804, MPFR_RNDN)) { mpfr_set(r23819, r23812, MPFR_RNDN); } else { mpfr_set(r23819, r23818, MPFR_RNDN); }; return mpfr_get_d(r23819, MPFR_RNDN); }