\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 r404707 = -1.0;
double r404708 = 1.0;
double r404709 = /* ERROR: no complex support in C */;
double r404710 = r404709 * r404709;
double r404711 = r404710 * r404709;
double r404712 = r404711 * r404709;
double r404713 = r404712 * r404709;
double r404714 = r404713 * r404709;
double r404715 = 6.0;
double r404716 = 0.0;
double r404717 = /* ERROR: no complex support in C */;
double r404718 = r404717 * r404709;
double r404719 = r404718 * r404709;
double r404720 = r404719 * r404709;
double r404721 = r404720 * r404709;
double r404722 = r404721 * r404709;
double r404723 = r404714 + r404722;
double r404724 = 15.0;
double r404725 = /* ERROR: no complex support in C */;
double r404726 = r404725 * r404709;
double r404727 = r404726 * r404709;
double r404728 = r404727 * r404709;
double r404729 = r404728 * r404709;
double r404730 = r404723 + r404729;
double r404731 = 20.0;
double r404732 = /* ERROR: no complex support in C */;
double r404733 = r404732 * r404709;
double r404734 = r404733 * r404709;
double r404735 = r404734 * r404709;
double r404736 = r404730 + r404735;
double r404737 = r404736 + r404727;
double r404738 = r404737 + r404718;
double r404739 = /* ERROR: no complex support in C */;
double r404740 = r404738 + r404739;
double r404741 = /* ERROR: no complex support in C */;
return r404741;
}
double f() {
double r404742 = 0.0;
return r404742;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019154
(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))))