\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 r1816238 = -1.0;
double r1816239 = 1.0;
double r1816240 = /* ERROR: no complex support in C */;
double r1816241 = r1816240 * r1816240;
double r1816242 = r1816241 * r1816240;
double r1816243 = r1816242 * r1816240;
double r1816244 = r1816243 * r1816240;
double r1816245 = r1816244 * r1816240;
double r1816246 = 6.0;
double r1816247 = 0.0;
double r1816248 = /* ERROR: no complex support in C */;
double r1816249 = r1816248 * r1816240;
double r1816250 = r1816249 * r1816240;
double r1816251 = r1816250 * r1816240;
double r1816252 = r1816251 * r1816240;
double r1816253 = r1816252 * r1816240;
double r1816254 = r1816245 + r1816253;
double r1816255 = 15.0;
double r1816256 = /* ERROR: no complex support in C */;
double r1816257 = r1816256 * r1816240;
double r1816258 = r1816257 * r1816240;
double r1816259 = r1816258 * r1816240;
double r1816260 = r1816259 * r1816240;
double r1816261 = r1816254 + r1816260;
double r1816262 = 20.0;
double r1816263 = /* ERROR: no complex support in C */;
double r1816264 = r1816263 * r1816240;
double r1816265 = r1816264 * r1816240;
double r1816266 = r1816265 * r1816240;
double r1816267 = r1816261 + r1816266;
double r1816268 = r1816267 + r1816258;
double r1816269 = r1816268 + r1816249;
double r1816270 = /* ERROR: no complex support in C */;
double r1816271 = r1816269 + r1816270;
double r1816272 = /* ERROR: no complex support in C */;
return r1816272;
}
double f() {
double r1816273 = 0.0;
return r1816273;
}
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))))