\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 r384465 = -1.0;
double r384466 = 1.0;
double r384467 = /* ERROR: no complex support in C */;
double r384468 = r384467 * r384467;
double r384469 = r384468 * r384467;
double r384470 = r384469 * r384467;
double r384471 = r384470 * r384467;
double r384472 = r384471 * r384467;
double r384473 = 6.0;
double r384474 = 0.0;
double r384475 = /* ERROR: no complex support in C */;
double r384476 = r384475 * r384467;
double r384477 = r384476 * r384467;
double r384478 = r384477 * r384467;
double r384479 = r384478 * r384467;
double r384480 = r384479 * r384467;
double r384481 = r384472 + r384480;
double r384482 = 15.0;
double r384483 = /* ERROR: no complex support in C */;
double r384484 = r384483 * r384467;
double r384485 = r384484 * r384467;
double r384486 = r384485 * r384467;
double r384487 = r384486 * r384467;
double r384488 = r384481 + r384487;
double r384489 = 20.0;
double r384490 = /* ERROR: no complex support in C */;
double r384491 = r384490 * r384467;
double r384492 = r384491 * r384467;
double r384493 = r384492 * r384467;
double r384494 = r384488 + r384493;
double r384495 = r384494 + r384485;
double r384496 = r384495 + r384476;
double r384497 = /* ERROR: no complex support in C */;
double r384498 = r384496 + r384497;
double r384499 = /* ERROR: no complex support in C */;
return r384499;
}
double f() {
double r384500 = 0.0;
return r384500;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019152
(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))))