\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 r25637 = -1.0;
double r25638 = 1.0;
double r25639 = /* ERROR: no complex support in C */;
double r25640 = r25639 * r25639;
double r25641 = r25640 * r25639;
double r25642 = r25641 * r25639;
double r25643 = r25642 * r25639;
double r25644 = r25643 * r25639;
double r25645 = 6.0;
double r25646 = 0.0;
double r25647 = /* ERROR: no complex support in C */;
double r25648 = r25647 * r25639;
double r25649 = r25648 * r25639;
double r25650 = r25649 * r25639;
double r25651 = r25650 * r25639;
double r25652 = r25651 * r25639;
double r25653 = r25644 + r25652;
double r25654 = 15.0;
double r25655 = /* ERROR: no complex support in C */;
double r25656 = r25655 * r25639;
double r25657 = r25656 * r25639;
double r25658 = r25657 * r25639;
double r25659 = r25658 * r25639;
double r25660 = r25653 + r25659;
double r25661 = 20.0;
double r25662 = /* ERROR: no complex support in C */;
double r25663 = r25662 * r25639;
double r25664 = r25663 * r25639;
double r25665 = r25664 * r25639;
double r25666 = r25660 + r25665;
double r25667 = r25666 + r25657;
double r25668 = r25667 + r25648;
double r25669 = /* ERROR: no complex support in C */;
double r25670 = r25668 + r25669;
double r25671 = /* ERROR: no complex support in C */;
return r25671;
}
double f() {
double r25672 = -1.0;
double r25673 = 1.0;
double r25674 = /* ERROR: no complex support in C */;
double r25675 = r25674 * r25674;
double r25676 = r25675 * r25674;
double r25677 = r25676 * r25674;
double r25678 = r25677 * r25674;
double r25679 = r25678 * r25674;
double r25680 = 6.0;
double r25681 = 0.0;
double r25682 = /* ERROR: no complex support in C */;
double r25683 = r25682 * r25674;
double r25684 = r25683 * r25674;
double r25685 = r25684 * r25674;
double r25686 = r25685 * r25674;
double r25687 = r25686 * r25674;
double r25688 = r25679 + r25687;
double r25689 = 15.0;
double r25690 = /* ERROR: no complex support in C */;
double r25691 = r25690 * r25674;
double r25692 = r25691 * r25674;
double r25693 = r25692 * r25674;
double r25694 = r25693 * r25674;
double r25695 = r25688 + r25694;
double r25696 = 20.0;
double r25697 = /* ERROR: no complex support in C */;
double r25698 = r25697 * r25674;
double r25699 = r25698 * r25674;
double r25700 = r25699 * r25674;
double r25701 = r25695 + r25700;
double r25702 = r25701 + r25692;
double r25703 = r25702 + r25683;
double r25704 = /* ERROR: no complex support in C */;
double r25705 = r25703 + r25704;
double r25706 = /* ERROR: no complex support in C */;
return r25706;
}
Initial program 0
Final simplification0
herbie shell --seed 2019347
(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))))