\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))
\Im(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r1726837 = -1.0;
double r1726838 = 1.0;
double r1726839 = /* ERROR: no complex support in C */;
double r1726840 = r1726839 * r1726839;
double r1726841 = r1726840 * r1726839;
double r1726842 = r1726841 * r1726839;
double r1726843 = r1726842 * r1726839;
double r1726844 = r1726843 * r1726839;
double r1726845 = 6.0;
double r1726846 = 0.0;
double r1726847 = /* ERROR: no complex support in C */;
double r1726848 = r1726847 * r1726839;
double r1726849 = r1726848 * r1726839;
double r1726850 = r1726849 * r1726839;
double r1726851 = r1726850 * r1726839;
double r1726852 = r1726851 * r1726839;
double r1726853 = r1726844 + r1726852;
double r1726854 = 15.0;
double r1726855 = /* ERROR: no complex support in C */;
double r1726856 = r1726855 * r1726839;
double r1726857 = r1726856 * r1726839;
double r1726858 = r1726857 * r1726839;
double r1726859 = r1726858 * r1726839;
double r1726860 = r1726853 + r1726859;
double r1726861 = 20.0;
double r1726862 = /* ERROR: no complex support in C */;
double r1726863 = r1726862 * r1726839;
double r1726864 = r1726863 * r1726839;
double r1726865 = r1726864 * r1726839;
double r1726866 = r1726860 + r1726865;
double r1726867 = r1726866 + r1726857;
double r1726868 = r1726867 + r1726848;
double r1726869 = /* ERROR: no complex support in C */;
double r1726870 = r1726868 + r1726869;
double r1726871 = /* ERROR: no complex support in C */;
return r1726871;
}
double f() {
double r1726872 = -5.0;
double r1726873 = -24.0;
double r1726874 = /* ERROR: no complex support in C */;
double r1726875 = 24.0;
double r1726876 = /* ERROR: no complex support in C */;
double r1726877 = 0.0;
double r1726878 = 8.0;
double r1726879 = /* ERROR: no complex support in C */;
double r1726880 = r1726876 + r1726879;
double r1726881 = 40.0;
double r1726882 = /* ERROR: no complex support in C */;
double r1726883 = -60.0;
double r1726884 = /* ERROR: no complex support in C */;
double r1726885 = r1726882 + r1726884;
double r1726886 = r1726880 + r1726885;
double r1726887 = r1726874 + r1726886;
double r1726888 = /* ERROR: no complex support in C */;
return r1726888;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019128
(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))))