\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 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 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 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 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0 i\right)\right))
\Re(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r2845617 = -1.0;
double r2845618 = 1.0;
double r2845619 = /* ERROR: no complex support in C */;
double r2845620 = r2845619 * r2845619;
double r2845621 = r2845620 * r2845619;
double r2845622 = r2845621 * r2845619;
double r2845623 = r2845622 * r2845619;
double r2845624 = r2845623 * r2845619;
double r2845625 = 6.0;
double r2845626 = 0.0;
double r2845627 = /* ERROR: no complex support in C */;
double r2845628 = r2845627 * r2845619;
double r2845629 = r2845628 * r2845619;
double r2845630 = r2845629 * r2845619;
double r2845631 = r2845630 * r2845619;
double r2845632 = r2845631 * r2845619;
double r2845633 = r2845624 + r2845632;
double r2845634 = 15.0;
double r2845635 = /* ERROR: no complex support in C */;
double r2845636 = r2845635 * r2845619;
double r2845637 = r2845636 * r2845619;
double r2845638 = r2845637 * r2845619;
double r2845639 = r2845638 * r2845619;
double r2845640 = r2845633 + r2845639;
double r2845641 = 20.0;
double r2845642 = /* ERROR: no complex support in C */;
double r2845643 = r2845642 * r2845619;
double r2845644 = r2845643 * r2845619;
double r2845645 = r2845644 * r2845619;
double r2845646 = r2845640 + r2845645;
double r2845647 = r2845646 + r2845637;
double r2845648 = r2845647 + r2845628;
double r2845649 = /* ERROR: no complex support in C */;
double r2845650 = r2845648 + r2845649;
double r2845651 = /* ERROR: no complex support in C */;
return r2845651;
}
double f() {
double r2845652 = -5.0;
double r2845653 = -24.0;
double r2845654 = /* ERROR: no complex support in C */;
double r2845655 = 24.0;
double r2845656 = /* ERROR: no complex support in C */;
double r2845657 = 0.0;
double r2845658 = 8.0;
double r2845659 = /* ERROR: no complex support in C */;
double r2845660 = r2845656 + r2845659;
double r2845661 = 40.0;
double r2845662 = /* ERROR: no complex support in C */;
double r2845663 = -60.0;
double r2845664 = /* ERROR: no complex support in C */;
double r2845665 = r2845662 + r2845664;
double r2845666 = r2845660 + r2845665;
double r2845667 = r2845654 + r2845666;
double r2845668 = /* ERROR: no complex support in C */;
return r2845668;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019120
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+.c (+.c (+.c (+.c (+.c (+.c (*.c (*.c (*.c (*.c (*.c (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (*.c (*.c (*.c (*.c (*.c (complex 6 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (complex 20 0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1))) (*.c (complex 6 0) (complex -1 1))) (complex 1 0))))