\Re(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\Re(\left(\left(\left(1 + 0.0 i\right) + \left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(6 + 0.0 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(\left(-1 + 1 i\right) \cdot \left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right) + \left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(20 + 0.0 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right)\right)\right))
double f() {
double r25751 = -1.0;
double r25752 = 1.0;
double r25753 = /* ERROR: no complex support in C */;
double r25754 = r25753 * r25753;
double r25755 = r25754 * r25753;
double r25756 = r25755 * r25753;
double r25757 = r25756 * r25753;
double r25758 = r25757 * r25753;
double r25759 = 6.0;
double r25760 = 0.0;
double r25761 = /* ERROR: no complex support in C */;
double r25762 = r25761 * r25753;
double r25763 = r25762 * r25753;
double r25764 = r25763 * r25753;
double r25765 = r25764 * r25753;
double r25766 = r25765 * r25753;
double r25767 = r25758 + r25766;
double r25768 = 15.0;
double r25769 = /* ERROR: no complex support in C */;
double r25770 = r25769 * r25753;
double r25771 = r25770 * r25753;
double r25772 = r25771 * r25753;
double r25773 = r25772 * r25753;
double r25774 = r25767 + r25773;
double r25775 = 20.0;
double r25776 = /* ERROR: no complex support in C */;
double r25777 = r25776 * r25753;
double r25778 = r25777 * r25753;
double r25779 = r25778 * r25753;
double r25780 = r25774 + r25779;
double r25781 = r25780 + r25771;
double r25782 = r25781 + r25762;
double r25783 = /* ERROR: no complex support in C */;
double r25784 = r25782 + r25783;
double r25785 = /* ERROR: no complex support in C */;
return r25785;
}
double f() {
double r25786 = 1.0;
double r25787 = 0.0;
double r25788 = /* ERROR: no complex support in C */;
double r25789 = 15.0;
double r25790 = /* ERROR: no complex support in C */;
double r25791 = -1.0;
double r25792 = /* ERROR: no complex support in C */;
double r25793 = r25790 * r25792;
double r25794 = 6.0;
double r25795 = /* ERROR: no complex support in C */;
double r25796 = r25793 + r25795;
double r25797 = r25796 * r25792;
double r25798 = r25788 + r25797;
double r25799 = r25792 * r25792;
double r25800 = r25792 * r25799;
double r25801 = r25792 + r25795;
double r25802 = r25800 * r25801;
double r25803 = 20.0;
double r25804 = /* ERROR: no complex support in C */;
double r25805 = r25793 + r25804;
double r25806 = r25805 * r25792;
double r25807 = r25802 + r25806;
double r25808 = r25799 * r25807;
double r25809 = r25798 + r25808;
double r25810 = /* ERROR: no complex support in C */;
return r25810;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019174 +o rules:numerics
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1.0 1.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (* (* (* (* (* (complex 6.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (* (* (* (complex 15.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (* (* (complex 20.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (* (complex 15.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (complex 6.0 0.0) (complex -1.0 1.0))) (complex 1.0 0.0))))