\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 r26838 = -1.0;
double r26839 = 1.0;
double r26840 = /* ERROR: no complex support in C */;
double r26841 = r26840 * r26840;
double r26842 = r26841 * r26840;
double r26843 = r26842 * r26840;
double r26844 = r26843 * r26840;
double r26845 = r26844 * r26840;
double r26846 = 6.0;
double r26847 = 0.0;
double r26848 = /* ERROR: no complex support in C */;
double r26849 = r26848 * r26840;
double r26850 = r26849 * r26840;
double r26851 = r26850 * r26840;
double r26852 = r26851 * r26840;
double r26853 = r26852 * r26840;
double r26854 = r26845 + r26853;
double r26855 = 15.0;
double r26856 = /* ERROR: no complex support in C */;
double r26857 = r26856 * r26840;
double r26858 = r26857 * r26840;
double r26859 = r26858 * r26840;
double r26860 = r26859 * r26840;
double r26861 = r26854 + r26860;
double r26862 = 20.0;
double r26863 = /* ERROR: no complex support in C */;
double r26864 = r26863 * r26840;
double r26865 = r26864 * r26840;
double r26866 = r26865 * r26840;
double r26867 = r26861 + r26866;
double r26868 = r26867 + r26858;
double r26869 = r26868 + r26849;
double r26870 = /* ERROR: no complex support in C */;
double r26871 = r26869 + r26870;
double r26872 = /* ERROR: no complex support in C */;
return r26872;
}
double f() {
double r26873 = -1.0;
double r26874 = 1.0;
double r26875 = /* ERROR: no complex support in C */;
double r26876 = r26875 * r26875;
double r26877 = r26876 * r26875;
double r26878 = r26877 * r26875;
double r26879 = r26878 * r26875;
double r26880 = r26879 * r26875;
double r26881 = 6.0;
double r26882 = 0.0;
double r26883 = /* ERROR: no complex support in C */;
double r26884 = r26883 * r26875;
double r26885 = r26884 * r26875;
double r26886 = r26885 * r26875;
double r26887 = r26886 * r26875;
double r26888 = r26887 * r26875;
double r26889 = r26880 + r26888;
double r26890 = 15.0;
double r26891 = /* ERROR: no complex support in C */;
double r26892 = r26891 * r26875;
double r26893 = r26892 * r26875;
double r26894 = r26893 * r26875;
double r26895 = r26894 * r26875;
double r26896 = r26889 + r26895;
double r26897 = 20.0;
double r26898 = /* ERROR: no complex support in C */;
double r26899 = r26898 * r26875;
double r26900 = r26899 * r26875;
double r26901 = r26900 * r26875;
double r26902 = r26896 + r26901;
double r26903 = r26902 + r26893;
double r26904 = r26903 + r26884;
double r26905 = /* ERROR: no complex support in C */;
double r26906 = r26904 + r26905;
double r26907 = /* ERROR: no complex support in C */;
return r26907;
}
Initial program 0
Final simplification0
herbie shell --seed 2020021
(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))))