\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 r12382 = -1.0;
double r12383 = 1.0;
double r12384 = /* ERROR: no complex support in C */;
double r12385 = r12384 * r12384;
double r12386 = r12385 * r12384;
double r12387 = r12386 * r12384;
double r12388 = r12387 * r12384;
double r12389 = r12388 * r12384;
double r12390 = 6.0;
double r12391 = 0.0;
double r12392 = /* ERROR: no complex support in C */;
double r12393 = r12392 * r12384;
double r12394 = r12393 * r12384;
double r12395 = r12394 * r12384;
double r12396 = r12395 * r12384;
double r12397 = r12396 * r12384;
double r12398 = r12389 + r12397;
double r12399 = 15.0;
double r12400 = /* ERROR: no complex support in C */;
double r12401 = r12400 * r12384;
double r12402 = r12401 * r12384;
double r12403 = r12402 * r12384;
double r12404 = r12403 * r12384;
double r12405 = r12398 + r12404;
double r12406 = 20.0;
double r12407 = /* ERROR: no complex support in C */;
double r12408 = r12407 * r12384;
double r12409 = r12408 * r12384;
double r12410 = r12409 * r12384;
double r12411 = r12405 + r12410;
double r12412 = r12411 + r12402;
double r12413 = r12412 + r12393;
double r12414 = /* ERROR: no complex support in C */;
double r12415 = r12413 + r12414;
double r12416 = /* ERROR: no complex support in C */;
return r12416;
}
double f() {
double r12417 = 0.0;
return r12417;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019155 +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))))