\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 r1078390 = -1.0;
double r1078391 = 1.0;
double r1078392 = /* ERROR: no complex support in C */;
double r1078393 = r1078392 * r1078392;
double r1078394 = r1078393 * r1078392;
double r1078395 = r1078394 * r1078392;
double r1078396 = r1078395 * r1078392;
double r1078397 = r1078396 * r1078392;
double r1078398 = 6.0;
double r1078399 = 0.0;
double r1078400 = /* ERROR: no complex support in C */;
double r1078401 = r1078400 * r1078392;
double r1078402 = r1078401 * r1078392;
double r1078403 = r1078402 * r1078392;
double r1078404 = r1078403 * r1078392;
double r1078405 = r1078404 * r1078392;
double r1078406 = r1078397 + r1078405;
double r1078407 = 15.0;
double r1078408 = /* ERROR: no complex support in C */;
double r1078409 = r1078408 * r1078392;
double r1078410 = r1078409 * r1078392;
double r1078411 = r1078410 * r1078392;
double r1078412 = r1078411 * r1078392;
double r1078413 = r1078406 + r1078412;
double r1078414 = 20.0;
double r1078415 = /* ERROR: no complex support in C */;
double r1078416 = r1078415 * r1078392;
double r1078417 = r1078416 * r1078392;
double r1078418 = r1078417 * r1078392;
double r1078419 = r1078413 + r1078418;
double r1078420 = r1078419 + r1078410;
double r1078421 = r1078420 + r1078401;
double r1078422 = /* ERROR: no complex support in C */;
double r1078423 = r1078421 + r1078422;
double r1078424 = /* ERROR: no complex support in C */;
return r1078424;
}
double f() {
double r1078425 = -1.0;
double r1078426 = 0.0;
double r1078427 = /* ERROR: no complex support in C */;
double r1078428 = /* ERROR: no complex support in C */;
return r1078428;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019151
(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))))