\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 r12356 = -1.0;
double r12357 = 1.0;
double r12358 = /* ERROR: no complex support in C */;
double r12359 = r12358 * r12358;
double r12360 = r12359 * r12358;
double r12361 = r12360 * r12358;
double r12362 = r12361 * r12358;
double r12363 = r12362 * r12358;
double r12364 = 6.0;
double r12365 = 0.0;
double r12366 = /* ERROR: no complex support in C */;
double r12367 = r12366 * r12358;
double r12368 = r12367 * r12358;
double r12369 = r12368 * r12358;
double r12370 = r12369 * r12358;
double r12371 = r12370 * r12358;
double r12372 = r12363 + r12371;
double r12373 = 15.0;
double r12374 = /* ERROR: no complex support in C */;
double r12375 = r12374 * r12358;
double r12376 = r12375 * r12358;
double r12377 = r12376 * r12358;
double r12378 = r12377 * r12358;
double r12379 = r12372 + r12378;
double r12380 = 20.0;
double r12381 = /* ERROR: no complex support in C */;
double r12382 = r12381 * r12358;
double r12383 = r12382 * r12358;
double r12384 = r12383 * r12358;
double r12385 = r12379 + r12384;
double r12386 = r12385 + r12376;
double r12387 = r12386 + r12367;
double r12388 = /* ERROR: no complex support in C */;
double r12389 = r12387 + r12388;
double r12390 = /* ERROR: no complex support in C */;
return r12390;
}
double f() {
double r12391 = 0.0;
return r12391;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019154 +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))))