\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 r562429 = -1.0;
double r562430 = 1.0;
double r562431 = /* ERROR: no complex support in C */;
double r562432 = r562431 * r562431;
double r562433 = r562432 * r562431;
double r562434 = r562433 * r562431;
double r562435 = r562434 * r562431;
double r562436 = r562435 * r562431;
double r562437 = 6.0;
double r562438 = 0.0;
double r562439 = /* ERROR: no complex support in C */;
double r562440 = r562439 * r562431;
double r562441 = r562440 * r562431;
double r562442 = r562441 * r562431;
double r562443 = r562442 * r562431;
double r562444 = r562443 * r562431;
double r562445 = r562436 + r562444;
double r562446 = 15.0;
double r562447 = /* ERROR: no complex support in C */;
double r562448 = r562447 * r562431;
double r562449 = r562448 * r562431;
double r562450 = r562449 * r562431;
double r562451 = r562450 * r562431;
double r562452 = r562445 + r562451;
double r562453 = 20.0;
double r562454 = /* ERROR: no complex support in C */;
double r562455 = r562454 * r562431;
double r562456 = r562455 * r562431;
double r562457 = r562456 * r562431;
double r562458 = r562452 + r562457;
double r562459 = r562458 + r562449;
double r562460 = r562459 + r562440;
double r562461 = /* ERROR: no complex support in C */;
double r562462 = r562460 + r562461;
double r562463 = /* ERROR: no complex support in C */;
return r562463;
}
double f() {
double r562464 = 0.0;
return r562464;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019137
(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))))