\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 r5590 = -1.0;
double r5591 = 1.0;
double r5592 = /* ERROR: no complex support in C */;
double r5593 = r5592 * r5592;
double r5594 = r5593 * r5592;
double r5595 = r5594 * r5592;
double r5596 = r5595 * r5592;
double r5597 = r5596 * r5592;
double r5598 = 6.0;
double r5599 = 0.0;
double r5600 = /* ERROR: no complex support in C */;
double r5601 = r5600 * r5592;
double r5602 = r5601 * r5592;
double r5603 = r5602 * r5592;
double r5604 = r5603 * r5592;
double r5605 = r5604 * r5592;
double r5606 = r5597 + r5605;
double r5607 = 15.0;
double r5608 = /* ERROR: no complex support in C */;
double r5609 = r5608 * r5592;
double r5610 = r5609 * r5592;
double r5611 = r5610 * r5592;
double r5612 = r5611 * r5592;
double r5613 = r5606 + r5612;
double r5614 = 20.0;
double r5615 = /* ERROR: no complex support in C */;
double r5616 = r5615 * r5592;
double r5617 = r5616 * r5592;
double r5618 = r5617 * r5592;
double r5619 = r5613 + r5618;
double r5620 = r5619 + r5610;
double r5621 = r5620 + r5601;
double r5622 = /* ERROR: no complex support in C */;
double r5623 = r5621 + r5622;
double r5624 = /* ERROR: no complex support in C */;
return r5624;
}
double f() {
double r5625 = -1.0;
double r5626 = 1.0;
double r5627 = /* ERROR: no complex support in C */;
double r5628 = r5627 * r5627;
double r5629 = r5628 * r5627;
double r5630 = r5629 * r5627;
double r5631 = r5630 * r5627;
double r5632 = r5631 * r5627;
double r5633 = 6.0;
double r5634 = 0.0;
double r5635 = /* ERROR: no complex support in C */;
double r5636 = r5635 * r5627;
double r5637 = r5636 * r5627;
double r5638 = r5637 * r5627;
double r5639 = r5638 * r5627;
double r5640 = r5639 * r5627;
double r5641 = r5632 + r5640;
double r5642 = 15.0;
double r5643 = /* ERROR: no complex support in C */;
double r5644 = r5643 * r5627;
double r5645 = r5644 * r5627;
double r5646 = r5645 * r5627;
double r5647 = r5646 * r5627;
double r5648 = r5641 + r5647;
double r5649 = 20.0;
double r5650 = /* ERROR: no complex support in C */;
double r5651 = r5650 * r5627;
double r5652 = r5651 * r5627;
double r5653 = r5652 * r5627;
double r5654 = r5648 + r5653;
double r5655 = r5654 + r5645;
double r5656 = r5655 + r5636;
double r5657 = /* ERROR: no complex support in C */;
double r5658 = r5656 + r5657;
double r5659 = /* ERROR: no complex support in C */;
return r5659;
}
Initial program 0
Final simplification0
herbie shell --seed 2020045 +o rules:numerics
(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))))