\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 r19855 = -1.0;
double r19856 = 1.0;
double r19857 = /* ERROR: no complex support in C */;
double r19858 = r19857 * r19857;
double r19859 = r19858 * r19857;
double r19860 = r19859 * r19857;
double r19861 = r19860 * r19857;
double r19862 = r19861 * r19857;
double r19863 = 6.0;
double r19864 = 0.0;
double r19865 = /* ERROR: no complex support in C */;
double r19866 = r19865 * r19857;
double r19867 = r19866 * r19857;
double r19868 = r19867 * r19857;
double r19869 = r19868 * r19857;
double r19870 = r19869 * r19857;
double r19871 = r19862 + r19870;
double r19872 = 15.0;
double r19873 = /* ERROR: no complex support in C */;
double r19874 = r19873 * r19857;
double r19875 = r19874 * r19857;
double r19876 = r19875 * r19857;
double r19877 = r19876 * r19857;
double r19878 = r19871 + r19877;
double r19879 = 20.0;
double r19880 = /* ERROR: no complex support in C */;
double r19881 = r19880 * r19857;
double r19882 = r19881 * r19857;
double r19883 = r19882 * r19857;
double r19884 = r19878 + r19883;
double r19885 = r19884 + r19875;
double r19886 = r19885 + r19866;
double r19887 = /* ERROR: no complex support in C */;
double r19888 = r19886 + r19887;
double r19889 = /* ERROR: no complex support in C */;
return r19889;
}
double f() {
double r19890 = -1.0;
double r19891 = 1.0;
double r19892 = /* ERROR: no complex support in C */;
double r19893 = r19892 * r19892;
double r19894 = r19893 * r19892;
double r19895 = r19894 * r19892;
double r19896 = r19895 * r19892;
double r19897 = r19896 * r19892;
double r19898 = 6.0;
double r19899 = 0.0;
double r19900 = /* ERROR: no complex support in C */;
double r19901 = r19900 * r19892;
double r19902 = r19901 * r19892;
double r19903 = r19902 * r19892;
double r19904 = r19903 * r19892;
double r19905 = r19904 * r19892;
double r19906 = r19897 + r19905;
double r19907 = 15.0;
double r19908 = /* ERROR: no complex support in C */;
double r19909 = r19908 * r19892;
double r19910 = r19909 * r19892;
double r19911 = r19910 * r19892;
double r19912 = r19911 * r19892;
double r19913 = r19906 + r19912;
double r19914 = 20.0;
double r19915 = /* ERROR: no complex support in C */;
double r19916 = r19915 * r19892;
double r19917 = r19916 * r19892;
double r19918 = r19917 * r19892;
double r19919 = r19913 + r19918;
double r19920 = r19919 + r19910;
double r19921 = r19920 + r19901;
double r19922 = /* ERROR: no complex support in C */;
double r19923 = r19921 + r19922;
double r19924 = /* ERROR: no complex support in C */;
return r19924;
}
Initial program 0
Final simplification0
herbie shell --seed 2019356
(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))))