\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))
\Im(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r1399529 = -1.0;
double r1399530 = 1.0;
double r1399531 = /* ERROR: no complex support in C */;
double r1399532 = r1399531 * r1399531;
double r1399533 = r1399532 * r1399531;
double r1399534 = r1399533 * r1399531;
double r1399535 = r1399534 * r1399531;
double r1399536 = r1399535 * r1399531;
double r1399537 = 6.0;
double r1399538 = 0.0;
double r1399539 = /* ERROR: no complex support in C */;
double r1399540 = r1399539 * r1399531;
double r1399541 = r1399540 * r1399531;
double r1399542 = r1399541 * r1399531;
double r1399543 = r1399542 * r1399531;
double r1399544 = r1399543 * r1399531;
double r1399545 = r1399536 + r1399544;
double r1399546 = 15.0;
double r1399547 = /* ERROR: no complex support in C */;
double r1399548 = r1399547 * r1399531;
double r1399549 = r1399548 * r1399531;
double r1399550 = r1399549 * r1399531;
double r1399551 = r1399550 * r1399531;
double r1399552 = r1399545 + r1399551;
double r1399553 = 20.0;
double r1399554 = /* ERROR: no complex support in C */;
double r1399555 = r1399554 * r1399531;
double r1399556 = r1399555 * r1399531;
double r1399557 = r1399556 * r1399531;
double r1399558 = r1399552 + r1399557;
double r1399559 = r1399558 + r1399549;
double r1399560 = r1399559 + r1399540;
double r1399561 = /* ERROR: no complex support in C */;
double r1399562 = r1399560 + r1399561;
double r1399563 = /* ERROR: no complex support in C */;
return r1399563;
}
double f() {
double r1399564 = -5.0;
double r1399565 = -24.0;
double r1399566 = /* ERROR: no complex support in C */;
double r1399567 = 24.0;
double r1399568 = /* ERROR: no complex support in C */;
double r1399569 = 0.0;
double r1399570 = 8.0;
double r1399571 = /* ERROR: no complex support in C */;
double r1399572 = r1399568 + r1399571;
double r1399573 = 40.0;
double r1399574 = /* ERROR: no complex support in C */;
double r1399575 = -60.0;
double r1399576 = /* ERROR: no complex support in C */;
double r1399577 = r1399574 + r1399576;
double r1399578 = r1399572 + r1399577;
double r1399579 = r1399566 + r1399578;
double r1399580 = /* ERROR: no complex support in C */;
return r1399580;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019107
(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))))