\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 r13554 = -1.0;
double r13555 = 1.0;
double r13556 = /* ERROR: no complex support in C */;
double r13557 = r13556 * r13556;
double r13558 = r13557 * r13556;
double r13559 = r13558 * r13556;
double r13560 = r13559 * r13556;
double r13561 = r13560 * r13556;
double r13562 = 6.0;
double r13563 = 0.0;
double r13564 = /* ERROR: no complex support in C */;
double r13565 = r13564 * r13556;
double r13566 = r13565 * r13556;
double r13567 = r13566 * r13556;
double r13568 = r13567 * r13556;
double r13569 = r13568 * r13556;
double r13570 = r13561 + r13569;
double r13571 = 15.0;
double r13572 = /* ERROR: no complex support in C */;
double r13573 = r13572 * r13556;
double r13574 = r13573 * r13556;
double r13575 = r13574 * r13556;
double r13576 = r13575 * r13556;
double r13577 = r13570 + r13576;
double r13578 = 20.0;
double r13579 = /* ERROR: no complex support in C */;
double r13580 = r13579 * r13556;
double r13581 = r13580 * r13556;
double r13582 = r13581 * r13556;
double r13583 = r13577 + r13582;
double r13584 = r13583 + r13574;
double r13585 = r13584 + r13565;
double r13586 = /* ERROR: no complex support in C */;
double r13587 = r13585 + r13586;
double r13588 = /* ERROR: no complex support in C */;
return r13588;
}
double f() {
double r13589 = 0.0;
return r13589;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019135 +o rules:numerics
(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))))