\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))
-1
double f() {
double r387785 = -1.0;
double r387786 = 1.0;
double r387787 = /* ERROR: no complex support in C */;
double r387788 = r387787 * r387787;
double r387789 = r387788 * r387787;
double r387790 = r387789 * r387787;
double r387791 = r387790 * r387787;
double r387792 = r387791 * r387787;
double r387793 = 6.0;
double r387794 = 0.0;
double r387795 = /* ERROR: no complex support in C */;
double r387796 = r387795 * r387787;
double r387797 = r387796 * r387787;
double r387798 = r387797 * r387787;
double r387799 = r387798 * r387787;
double r387800 = r387799 * r387787;
double r387801 = r387792 + r387800;
double r387802 = 15.0;
double r387803 = /* ERROR: no complex support in C */;
double r387804 = r387803 * r387787;
double r387805 = r387804 * r387787;
double r387806 = r387805 * r387787;
double r387807 = r387806 * r387787;
double r387808 = r387801 + r387807;
double r387809 = 20.0;
double r387810 = /* ERROR: no complex support in C */;
double r387811 = r387810 * r387787;
double r387812 = r387811 * r387787;
double r387813 = r387812 * r387787;
double r387814 = r387808 + r387813;
double r387815 = r387814 + r387805;
double r387816 = r387815 + r387796;
double r387817 = /* ERROR: no complex support in C */;
double r387818 = r387816 + r387817;
double r387819 = /* ERROR: no complex support in C */;
return r387819;
}
double f() {
double r387820 = -1.0;
return r387820;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019154
(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))))