\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 r22791 = -1.0;
double r22792 = 1.0;
double r22793 = /* ERROR: no complex support in C */;
double r22794 = r22793 * r22793;
double r22795 = r22794 * r22793;
double r22796 = r22795 * r22793;
double r22797 = r22796 * r22793;
double r22798 = r22797 * r22793;
double r22799 = 6.0;
double r22800 = 0.0;
double r22801 = /* ERROR: no complex support in C */;
double r22802 = r22801 * r22793;
double r22803 = r22802 * r22793;
double r22804 = r22803 * r22793;
double r22805 = r22804 * r22793;
double r22806 = r22805 * r22793;
double r22807 = r22798 + r22806;
double r22808 = 15.0;
double r22809 = /* ERROR: no complex support in C */;
double r22810 = r22809 * r22793;
double r22811 = r22810 * r22793;
double r22812 = r22811 * r22793;
double r22813 = r22812 * r22793;
double r22814 = r22807 + r22813;
double r22815 = 20.0;
double r22816 = /* ERROR: no complex support in C */;
double r22817 = r22816 * r22793;
double r22818 = r22817 * r22793;
double r22819 = r22818 * r22793;
double r22820 = r22814 + r22819;
double r22821 = r22820 + r22811;
double r22822 = r22821 + r22802;
double r22823 = /* ERROR: no complex support in C */;
double r22824 = r22822 + r22823;
double r22825 = /* ERROR: no complex support in C */;
return r22825;
}
double f() {
double r22826 = -1.0;
double r22827 = 1.0;
double r22828 = /* ERROR: no complex support in C */;
double r22829 = r22828 * r22828;
double r22830 = r22829 * r22828;
double r22831 = r22830 * r22828;
double r22832 = r22831 * r22828;
double r22833 = r22832 * r22828;
double r22834 = 6.0;
double r22835 = 0.0;
double r22836 = /* ERROR: no complex support in C */;
double r22837 = r22836 * r22828;
double r22838 = r22837 * r22828;
double r22839 = r22838 * r22828;
double r22840 = r22839 * r22828;
double r22841 = r22840 * r22828;
double r22842 = r22833 + r22841;
double r22843 = 15.0;
double r22844 = /* ERROR: no complex support in C */;
double r22845 = r22844 * r22828;
double r22846 = r22845 * r22828;
double r22847 = r22846 * r22828;
double r22848 = r22847 * r22828;
double r22849 = r22842 + r22848;
double r22850 = 20.0;
double r22851 = /* ERROR: no complex support in C */;
double r22852 = r22851 * r22828;
double r22853 = r22852 * r22828;
double r22854 = r22853 * r22828;
double r22855 = r22849 + r22854;
double r22856 = r22855 + r22846;
double r22857 = r22856 + r22837;
double r22858 = /* ERROR: no complex support in C */;
double r22859 = r22857 + r22858;
double r22860 = /* ERROR: no complex support in C */;
return r22860;
}
Initial program 0
Final simplification0
herbie shell --seed 2020027
(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))))