\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 r601478 = -1.0;
double r601479 = 1.0;
double r601480 = /* ERROR: no complex support in C */;
double r601481 = r601480 * r601480;
double r601482 = r601481 * r601480;
double r601483 = r601482 * r601480;
double r601484 = r601483 * r601480;
double r601485 = r601484 * r601480;
double r601486 = 6.0;
double r601487 = 0.0;
double r601488 = /* ERROR: no complex support in C */;
double r601489 = r601488 * r601480;
double r601490 = r601489 * r601480;
double r601491 = r601490 * r601480;
double r601492 = r601491 * r601480;
double r601493 = r601492 * r601480;
double r601494 = r601485 + r601493;
double r601495 = 15.0;
double r601496 = /* ERROR: no complex support in C */;
double r601497 = r601496 * r601480;
double r601498 = r601497 * r601480;
double r601499 = r601498 * r601480;
double r601500 = r601499 * r601480;
double r601501 = r601494 + r601500;
double r601502 = 20.0;
double r601503 = /* ERROR: no complex support in C */;
double r601504 = r601503 * r601480;
double r601505 = r601504 * r601480;
double r601506 = r601505 * r601480;
double r601507 = r601501 + r601506;
double r601508 = r601507 + r601498;
double r601509 = r601508 + r601489;
double r601510 = /* ERROR: no complex support in C */;
double r601511 = r601509 + r601510;
double r601512 = /* ERROR: no complex support in C */;
return r601512;
}
double f() {
double r601513 = 0.0;
return r601513;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019135
(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))))