\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 r385583 = -1.0;
double r385584 = 1.0;
double r385585 = /* ERROR: no complex support in C */;
double r385586 = r385585 * r385585;
double r385587 = r385586 * r385585;
double r385588 = r385587 * r385585;
double r385589 = r385588 * r385585;
double r385590 = r385589 * r385585;
double r385591 = 6.0;
double r385592 = 0.0;
double r385593 = /* ERROR: no complex support in C */;
double r385594 = r385593 * r385585;
double r385595 = r385594 * r385585;
double r385596 = r385595 * r385585;
double r385597 = r385596 * r385585;
double r385598 = r385597 * r385585;
double r385599 = r385590 + r385598;
double r385600 = 15.0;
double r385601 = /* ERROR: no complex support in C */;
double r385602 = r385601 * r385585;
double r385603 = r385602 * r385585;
double r385604 = r385603 * r385585;
double r385605 = r385604 * r385585;
double r385606 = r385599 + r385605;
double r385607 = 20.0;
double r385608 = /* ERROR: no complex support in C */;
double r385609 = r385608 * r385585;
double r385610 = r385609 * r385585;
double r385611 = r385610 * r385585;
double r385612 = r385606 + r385611;
double r385613 = r385612 + r385603;
double r385614 = r385613 + r385594;
double r385615 = /* ERROR: no complex support in C */;
double r385616 = r385614 + r385615;
double r385617 = /* ERROR: no complex support in C */;
return r385617;
}
double f() {
double r385618 = 0.0;
return r385618;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019153
(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))))