\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 r12624 = -1.0;
double r12625 = 1.0;
double r12626 = /* ERROR: no complex support in C */;
double r12627 = r12626 * r12626;
double r12628 = r12627 * r12626;
double r12629 = r12628 * r12626;
double r12630 = r12629 * r12626;
double r12631 = r12630 * r12626;
double r12632 = 6.0;
double r12633 = 0.0;
double r12634 = /* ERROR: no complex support in C */;
double r12635 = r12634 * r12626;
double r12636 = r12635 * r12626;
double r12637 = r12636 * r12626;
double r12638 = r12637 * r12626;
double r12639 = r12638 * r12626;
double r12640 = r12631 + r12639;
double r12641 = 15.0;
double r12642 = /* ERROR: no complex support in C */;
double r12643 = r12642 * r12626;
double r12644 = r12643 * r12626;
double r12645 = r12644 * r12626;
double r12646 = r12645 * r12626;
double r12647 = r12640 + r12646;
double r12648 = 20.0;
double r12649 = /* ERROR: no complex support in C */;
double r12650 = r12649 * r12626;
double r12651 = r12650 * r12626;
double r12652 = r12651 * r12626;
double r12653 = r12647 + r12652;
double r12654 = r12653 + r12644;
double r12655 = r12654 + r12635;
double r12656 = /* ERROR: no complex support in C */;
double r12657 = r12655 + r12656;
double r12658 = /* ERROR: no complex support in C */;
return r12658;
}
double f() {
double r12659 = 0.0;
return r12659;
}
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))))