\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(-1 + 1 i\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(6 + 0.0 i\right)\right)\right) + \left(1 + 0.0 i\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(20 + 0.0 i\right)\right)\right) + \left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right)\right)\right)\right)\right))
double f() {
double r21648 = -1.0;
double r21649 = 1.0;
double r21650 = /* ERROR: no complex support in C */;
double r21651 = r21650 * r21650;
double r21652 = r21651 * r21650;
double r21653 = r21652 * r21650;
double r21654 = r21653 * r21650;
double r21655 = r21654 * r21650;
double r21656 = 6.0;
double r21657 = 0.0;
double r21658 = /* ERROR: no complex support in C */;
double r21659 = r21658 * r21650;
double r21660 = r21659 * r21650;
double r21661 = r21660 * r21650;
double r21662 = r21661 * r21650;
double r21663 = r21662 * r21650;
double r21664 = r21655 + r21663;
double r21665 = 15.0;
double r21666 = /* ERROR: no complex support in C */;
double r21667 = r21666 * r21650;
double r21668 = r21667 * r21650;
double r21669 = r21668 * r21650;
double r21670 = r21669 * r21650;
double r21671 = r21664 + r21670;
double r21672 = 20.0;
double r21673 = /* ERROR: no complex support in C */;
double r21674 = r21673 * r21650;
double r21675 = r21674 * r21650;
double r21676 = r21675 * r21650;
double r21677 = r21671 + r21676;
double r21678 = r21677 + r21668;
double r21679 = r21678 + r21659;
double r21680 = /* ERROR: no complex support in C */;
double r21681 = r21679 + r21680;
double r21682 = /* ERROR: no complex support in C */;
return r21682;
}
double f() {
double r21683 = -1.0;
double r21684 = 1.0;
double r21685 = /* ERROR: no complex support in C */;
double r21686 = 15.0;
double r21687 = 0.0;
double r21688 = /* ERROR: no complex support in C */;
double r21689 = r21688 * r21685;
double r21690 = 6.0;
double r21691 = /* ERROR: no complex support in C */;
double r21692 = r21689 + r21691;
double r21693 = r21685 * r21692;
double r21694 = /* ERROR: no complex support in C */;
double r21695 = r21693 + r21694;
double r21696 = r21685 * r21685;
double r21697 = 20.0;
double r21698 = /* ERROR: no complex support in C */;
double r21699 = r21689 + r21698;
double r21700 = r21685 * r21699;
double r21701 = r21685 + r21691;
double r21702 = r21696 * r21701;
double r21703 = r21685 * r21702;
double r21704 = r21700 + r21703;
double r21705 = r21696 * r21704;
double r21706 = r21695 + r21705;
double r21707 = /* ERROR: no complex support in C */;
return r21707;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019323
(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))))