\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 r506671 = -1.0;
double r506672 = 1.0;
double r506673 = /* ERROR: no complex support in C */;
double r506674 = r506673 * r506673;
double r506675 = r506674 * r506673;
double r506676 = r506675 * r506673;
double r506677 = r506676 * r506673;
double r506678 = r506677 * r506673;
double r506679 = 6.0;
double r506680 = 0.0;
double r506681 = /* ERROR: no complex support in C */;
double r506682 = r506681 * r506673;
double r506683 = r506682 * r506673;
double r506684 = r506683 * r506673;
double r506685 = r506684 * r506673;
double r506686 = r506685 * r506673;
double r506687 = r506678 + r506686;
double r506688 = 15.0;
double r506689 = /* ERROR: no complex support in C */;
double r506690 = r506689 * r506673;
double r506691 = r506690 * r506673;
double r506692 = r506691 * r506673;
double r506693 = r506692 * r506673;
double r506694 = r506687 + r506693;
double r506695 = 20.0;
double r506696 = /* ERROR: no complex support in C */;
double r506697 = r506696 * r506673;
double r506698 = r506697 * r506673;
double r506699 = r506698 * r506673;
double r506700 = r506694 + r506699;
double r506701 = r506700 + r506691;
double r506702 = r506701 + r506682;
double r506703 = /* ERROR: no complex support in C */;
double r506704 = r506702 + r506703;
double r506705 = /* ERROR: no complex support in C */;
return r506705;
}
double f() {
double r506706 = 0.0;
return r506706;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019156
(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))))