\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 r4488 = -1.0;
double r4489 = 1.0;
double r4490 = /* ERROR: no complex support in C */;
double r4491 = r4490 * r4490;
double r4492 = r4491 * r4490;
double r4493 = r4492 * r4490;
double r4494 = r4493 * r4490;
double r4495 = r4494 * r4490;
double r4496 = 6.0;
double r4497 = 0.0;
double r4498 = /* ERROR: no complex support in C */;
double r4499 = r4498 * r4490;
double r4500 = r4499 * r4490;
double r4501 = r4500 * r4490;
double r4502 = r4501 * r4490;
double r4503 = r4502 * r4490;
double r4504 = r4495 + r4503;
double r4505 = 15.0;
double r4506 = /* ERROR: no complex support in C */;
double r4507 = r4506 * r4490;
double r4508 = r4507 * r4490;
double r4509 = r4508 * r4490;
double r4510 = r4509 * r4490;
double r4511 = r4504 + r4510;
double r4512 = 20.0;
double r4513 = /* ERROR: no complex support in C */;
double r4514 = r4513 * r4490;
double r4515 = r4514 * r4490;
double r4516 = r4515 * r4490;
double r4517 = r4511 + r4516;
double r4518 = r4517 + r4508;
double r4519 = r4518 + r4499;
double r4520 = /* ERROR: no complex support in C */;
double r4521 = r4519 + r4520;
double r4522 = /* ERROR: no complex support in C */;
return r4522;
}
double f() {
double r4523 = -1.0;
double r4524 = 1.0;
double r4525 = /* ERROR: no complex support in C */;
double r4526 = r4525 * r4525;
double r4527 = r4526 * r4525;
double r4528 = r4527 * r4525;
double r4529 = r4528 * r4525;
double r4530 = r4529 * r4525;
double r4531 = 6.0;
double r4532 = 0.0;
double r4533 = /* ERROR: no complex support in C */;
double r4534 = r4533 * r4525;
double r4535 = r4534 * r4525;
double r4536 = r4535 * r4525;
double r4537 = r4536 * r4525;
double r4538 = r4537 * r4525;
double r4539 = r4530 + r4538;
double r4540 = 15.0;
double r4541 = /* ERROR: no complex support in C */;
double r4542 = r4541 * r4525;
double r4543 = r4542 * r4525;
double r4544 = r4543 * r4525;
double r4545 = r4544 * r4525;
double r4546 = r4539 + r4545;
double r4547 = 20.0;
double r4548 = /* ERROR: no complex support in C */;
double r4549 = r4548 * r4525;
double r4550 = r4549 * r4525;
double r4551 = r4550 * r4525;
double r4552 = r4546 + r4551;
double r4553 = r4552 + r4543;
double r4554 = r4553 + r4534;
double r4555 = /* ERROR: no complex support in C */;
double r4556 = r4554 + r4555;
double r4557 = /* ERROR: no complex support in C */;
return r4557;
}
Initial program 0
Final simplification0
herbie shell --seed 2020045
(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))))