\Im(\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))
0
double f() {
double r381781 = -1.0;
double r381782 = 1.0;
double r381783 = /* ERROR: no complex support in C */;
double r381784 = r381783 * r381783;
double r381785 = r381784 * r381783;
double r381786 = r381785 * r381783;
double r381787 = r381786 * r381783;
double r381788 = r381787 * r381783;
double r381789 = 6.0;
double r381790 = 0.0;
double r381791 = /* ERROR: no complex support in C */;
double r381792 = r381791 * r381783;
double r381793 = r381792 * r381783;
double r381794 = r381793 * r381783;
double r381795 = r381794 * r381783;
double r381796 = r381795 * r381783;
double r381797 = r381788 + r381796;
double r381798 = 15.0;
double r381799 = /* ERROR: no complex support in C */;
double r381800 = r381799 * r381783;
double r381801 = r381800 * r381783;
double r381802 = r381801 * r381783;
double r381803 = r381802 * r381783;
double r381804 = r381797 + r381803;
double r381805 = 20.0;
double r381806 = /* ERROR: no complex support in C */;
double r381807 = r381806 * r381783;
double r381808 = r381807 * r381783;
double r381809 = r381808 * r381783;
double r381810 = r381804 + r381809;
double r381811 = r381810 + r381801;
double r381812 = r381811 + r381792;
double r381813 = /* ERROR: no complex support in C */;
double r381814 = r381812 + r381813;
double r381815 = /* ERROR: no complex support in C */;
return r381815;
}
double f() {
double r381816 = 0.0;
return r381816;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019151
(FPCore ()
:name "3.9.1 imaginary part (p56)"
(im (+.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))))