\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 r1678972 = -1.0;
double r1678973 = 1.0;
double r1678974 = /* ERROR: no complex support in C */;
double r1678975 = r1678974 * r1678974;
double r1678976 = r1678975 * r1678974;
double r1678977 = r1678976 * r1678974;
double r1678978 = r1678977 * r1678974;
double r1678979 = r1678978 * r1678974;
double r1678980 = 6.0;
double r1678981 = 0.0;
double r1678982 = /* ERROR: no complex support in C */;
double r1678983 = r1678982 * r1678974;
double r1678984 = r1678983 * r1678974;
double r1678985 = r1678984 * r1678974;
double r1678986 = r1678985 * r1678974;
double r1678987 = r1678986 * r1678974;
double r1678988 = r1678979 + r1678987;
double r1678989 = 15.0;
double r1678990 = /* ERROR: no complex support in C */;
double r1678991 = r1678990 * r1678974;
double r1678992 = r1678991 * r1678974;
double r1678993 = r1678992 * r1678974;
double r1678994 = r1678993 * r1678974;
double r1678995 = r1678988 + r1678994;
double r1678996 = 20.0;
double r1678997 = /* ERROR: no complex support in C */;
double r1678998 = r1678997 * r1678974;
double r1678999 = r1678998 * r1678974;
double r1679000 = r1678999 * r1678974;
double r1679001 = r1678995 + r1679000;
double r1679002 = r1679001 + r1678992;
double r1679003 = r1679002 + r1678983;
double r1679004 = /* ERROR: no complex support in C */;
double r1679005 = r1679003 + r1679004;
double r1679006 = /* ERROR: no complex support in C */;
return r1679006;
}
double f() {
double r1679007 = 0.0;
return r1679007;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019158
(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))))