\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 r966293 = -1.0;
double r966294 = 1.0;
double r966295 = /* ERROR: no complex support in C */;
double r966296 = r966295 * r966295;
double r966297 = r966296 * r966295;
double r966298 = r966297 * r966295;
double r966299 = r966298 * r966295;
double r966300 = r966299 * r966295;
double r966301 = 6.0;
double r966302 = 0.0;
double r966303 = /* ERROR: no complex support in C */;
double r966304 = r966303 * r966295;
double r966305 = r966304 * r966295;
double r966306 = r966305 * r966295;
double r966307 = r966306 * r966295;
double r966308 = r966307 * r966295;
double r966309 = r966300 + r966308;
double r966310 = 15.0;
double r966311 = /* ERROR: no complex support in C */;
double r966312 = r966311 * r966295;
double r966313 = r966312 * r966295;
double r966314 = r966313 * r966295;
double r966315 = r966314 * r966295;
double r966316 = r966309 + r966315;
double r966317 = 20.0;
double r966318 = /* ERROR: no complex support in C */;
double r966319 = r966318 * r966295;
double r966320 = r966319 * r966295;
double r966321 = r966320 * r966295;
double r966322 = r966316 + r966321;
double r966323 = r966322 + r966313;
double r966324 = r966323 + r966304;
double r966325 = /* ERROR: no complex support in C */;
double r966326 = r966324 + r966325;
double r966327 = /* ERROR: no complex support in C */;
return r966327;
}
double f() {
double r966328 = 0.0;
return r966328;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019164
(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))))