\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
double f() {
double r38422 = -1.0;
double r38423 = 1.0;
double r38424 = /* ERROR: no complex support in C */;
double r38425 = r38424 * r38424;
double r38426 = r38425 * r38424;
double r38427 = r38426 * r38424;
double r38428 = r38427 * r38424;
double r38429 = r38428 * r38424;
double r38430 = 6.0;
double r38431 = 0.0;
double r38432 = /* ERROR: no complex support in C */;
double r38433 = r38432 * r38424;
double r38434 = r38433 * r38424;
double r38435 = r38434 * r38424;
double r38436 = r38435 * r38424;
double r38437 = r38436 * r38424;
double r38438 = r38429 + r38437;
double r38439 = 15.0;
double r38440 = /* ERROR: no complex support in C */;
double r38441 = r38440 * r38424;
double r38442 = r38441 * r38424;
double r38443 = r38442 * r38424;
double r38444 = r38443 * r38424;
double r38445 = r38438 + r38444;
double r38446 = 20.0;
double r38447 = /* ERROR: no complex support in C */;
double r38448 = r38447 * r38424;
double r38449 = r38448 * r38424;
double r38450 = r38449 * r38424;
double r38451 = r38445 + r38450;
double r38452 = r38451 + r38442;
double r38453 = r38452 + r38433;
double r38454 = /* ERROR: no complex support in C */;
double r38455 = r38453 + r38454;
double r38456 = /* ERROR: no complex support in C */;
return r38456;
}
double f() {
double r38457 = -1.0;
double r38458 = 1.0;
double r38459 = /* ERROR: no complex support in C */;
double r38460 = r38459 * r38459;
double r38461 = r38460 * r38459;
double r38462 = r38461 * r38459;
double r38463 = r38462 * r38459;
double r38464 = r38463 * r38459;
double r38465 = 6.0;
double r38466 = 0.0;
double r38467 = /* ERROR: no complex support in C */;
double r38468 = r38467 * r38459;
double r38469 = r38468 * r38459;
double r38470 = r38469 * r38459;
double r38471 = r38470 * r38459;
double r38472 = r38471 * r38459;
double r38473 = r38464 + r38472;
double r38474 = 15.0;
double r38475 = /* ERROR: no complex support in C */;
double r38476 = r38475 * r38459;
double r38477 = r38476 * r38459;
double r38478 = r38477 * r38459;
double r38479 = r38478 * r38459;
double r38480 = r38473 + r38479;
double r38481 = 20.0;
double r38482 = /* ERROR: no complex support in C */;
double r38483 = r38482 * r38459;
double r38484 = r38483 * r38459;
double r38485 = r38484 * r38459;
double r38486 = r38480 + r38485;
double r38487 = r38486 + r38477;
double r38488 = r38487 + r38468;
double r38489 = /* ERROR: no complex support in C */;
double r38490 = r38488 + r38489;
double r38491 = /* ERROR: no complex support in C */;
return r38491;
}
Initial program 0
Final simplification0
herbie shell --seed 2020047
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))