\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 r21718 = -1.0;
double r21719 = 1.0;
double r21720 = /* ERROR: no complex support in C */;
double r21721 = r21720 * r21720;
double r21722 = r21721 * r21720;
double r21723 = r21722 * r21720;
double r21724 = r21723 * r21720;
double r21725 = r21724 * r21720;
double r21726 = 6.0;
double r21727 = 0.0;
double r21728 = /* ERROR: no complex support in C */;
double r21729 = r21728 * r21720;
double r21730 = r21729 * r21720;
double r21731 = r21730 * r21720;
double r21732 = r21731 * r21720;
double r21733 = r21732 * r21720;
double r21734 = r21725 + r21733;
double r21735 = 15.0;
double r21736 = /* ERROR: no complex support in C */;
double r21737 = r21736 * r21720;
double r21738 = r21737 * r21720;
double r21739 = r21738 * r21720;
double r21740 = r21739 * r21720;
double r21741 = r21734 + r21740;
double r21742 = 20.0;
double r21743 = /* ERROR: no complex support in C */;
double r21744 = r21743 * r21720;
double r21745 = r21744 * r21720;
double r21746 = r21745 * r21720;
double r21747 = r21741 + r21746;
double r21748 = r21747 + r21738;
double r21749 = r21748 + r21729;
double r21750 = /* ERROR: no complex support in C */;
double r21751 = r21749 + r21750;
double r21752 = /* ERROR: no complex support in C */;
return r21752;
}
double f() {
double r21753 = -1.0;
double r21754 = 1.0;
double r21755 = /* ERROR: no complex support in C */;
double r21756 = r21755 * r21755;
double r21757 = r21756 * r21755;
double r21758 = r21757 * r21755;
double r21759 = r21758 * r21755;
double r21760 = r21759 * r21755;
double r21761 = 6.0;
double r21762 = 0.0;
double r21763 = /* ERROR: no complex support in C */;
double r21764 = r21763 * r21755;
double r21765 = r21764 * r21755;
double r21766 = r21765 * r21755;
double r21767 = r21766 * r21755;
double r21768 = r21767 * r21755;
double r21769 = r21760 + r21768;
double r21770 = 15.0;
double r21771 = /* ERROR: no complex support in C */;
double r21772 = r21771 * r21755;
double r21773 = r21772 * r21755;
double r21774 = r21773 * r21755;
double r21775 = r21774 * r21755;
double r21776 = r21769 + r21775;
double r21777 = 20.0;
double r21778 = /* ERROR: no complex support in C */;
double r21779 = r21778 * r21755;
double r21780 = r21779 * r21755;
double r21781 = r21780 * r21755;
double r21782 = r21776 + r21781;
double r21783 = r21782 + r21773;
double r21784 = r21783 + r21764;
double r21785 = /* ERROR: no complex support in C */;
double r21786 = r21784 + r21785;
double r21787 = /* ERROR: no complex support in C */;
return r21787;
}
Initial program 0
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))))