\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 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 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 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 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0 i\right)\right))
0
double f() {
double r815899 = -1.0;
double r815900 = 1.0;
double r815901 = /* ERROR: no complex support in C */;
double r815902 = r815901 * r815901;
double r815903 = r815902 * r815901;
double r815904 = r815903 * r815901;
double r815905 = r815904 * r815901;
double r815906 = r815905 * r815901;
double r815907 = 6.0;
double r815908 = 0.0;
double r815909 = /* ERROR: no complex support in C */;
double r815910 = r815909 * r815901;
double r815911 = r815910 * r815901;
double r815912 = r815911 * r815901;
double r815913 = r815912 * r815901;
double r815914 = r815913 * r815901;
double r815915 = r815906 + r815914;
double r815916 = 15.0;
double r815917 = /* ERROR: no complex support in C */;
double r815918 = r815917 * r815901;
double r815919 = r815918 * r815901;
double r815920 = r815919 * r815901;
double r815921 = r815920 * r815901;
double r815922 = r815915 + r815921;
double r815923 = 20.0;
double r815924 = /* ERROR: no complex support in C */;
double r815925 = r815924 * r815901;
double r815926 = r815925 * r815901;
double r815927 = r815926 * r815901;
double r815928 = r815922 + r815927;
double r815929 = r815928 + r815919;
double r815930 = r815929 + r815910;
double r815931 = /* ERROR: no complex support in C */;
double r815932 = r815930 + r815931;
double r815933 = /* ERROR: no complex support in C */;
return r815933;
}
double f() {
double r815934 = 0.0;
return r815934;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019163
(FPCore ()
:name "3.9.1 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (+.c (+.c (*.c (*.c (*.c (*.c (*.c (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (*.c (*.c (*.c (*.c (*.c (complex 6 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (complex 20 0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1))) (*.c (complex 6 0) (complex -1 1))) (complex 1 0))))