\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(-1 + 0 i\right))
double f() {
double r712446 = -1.0;
double r712447 = 1.0;
double r712448 = /* ERROR: no complex support in C */;
double r712449 = r712448 * r712448;
double r712450 = r712449 * r712448;
double r712451 = r712450 * r712448;
double r712452 = r712451 * r712448;
double r712453 = r712452 * r712448;
double r712454 = 6.0;
double r712455 = 0.0;
double r712456 = /* ERROR: no complex support in C */;
double r712457 = r712456 * r712448;
double r712458 = r712457 * r712448;
double r712459 = r712458 * r712448;
double r712460 = r712459 * r712448;
double r712461 = r712460 * r712448;
double r712462 = r712453 + r712461;
double r712463 = 15.0;
double r712464 = /* ERROR: no complex support in C */;
double r712465 = r712464 * r712448;
double r712466 = r712465 * r712448;
double r712467 = r712466 * r712448;
double r712468 = r712467 * r712448;
double r712469 = r712462 + r712468;
double r712470 = 20.0;
double r712471 = /* ERROR: no complex support in C */;
double r712472 = r712471 * r712448;
double r712473 = r712472 * r712448;
double r712474 = r712473 * r712448;
double r712475 = r712469 + r712474;
double r712476 = r712475 + r712466;
double r712477 = r712476 + r712457;
double r712478 = /* ERROR: no complex support in C */;
double r712479 = r712477 + r712478;
double r712480 = /* ERROR: no complex support in C */;
return r712480;
}
double f() {
double r712481 = -1.0;
double r712482 = 0.0;
double r712483 = /* ERROR: no complex support in C */;
double r712484 = /* ERROR: no complex support in C */;
return r712484;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019149
(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))))