\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))
\Im(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r2233371 = -1.0;
double r2233372 = 1.0;
double r2233373 = /* ERROR: no complex support in C */;
double r2233374 = r2233373 * r2233373;
double r2233375 = r2233374 * r2233373;
double r2233376 = r2233375 * r2233373;
double r2233377 = r2233376 * r2233373;
double r2233378 = r2233377 * r2233373;
double r2233379 = 6.0;
double r2233380 = 0.0;
double r2233381 = /* ERROR: no complex support in C */;
double r2233382 = r2233381 * r2233373;
double r2233383 = r2233382 * r2233373;
double r2233384 = r2233383 * r2233373;
double r2233385 = r2233384 * r2233373;
double r2233386 = r2233385 * r2233373;
double r2233387 = r2233378 + r2233386;
double r2233388 = 15.0;
double r2233389 = /* ERROR: no complex support in C */;
double r2233390 = r2233389 * r2233373;
double r2233391 = r2233390 * r2233373;
double r2233392 = r2233391 * r2233373;
double r2233393 = r2233392 * r2233373;
double r2233394 = r2233387 + r2233393;
double r2233395 = 20.0;
double r2233396 = /* ERROR: no complex support in C */;
double r2233397 = r2233396 * r2233373;
double r2233398 = r2233397 * r2233373;
double r2233399 = r2233398 * r2233373;
double r2233400 = r2233394 + r2233399;
double r2233401 = r2233400 + r2233391;
double r2233402 = r2233401 + r2233382;
double r2233403 = /* ERROR: no complex support in C */;
double r2233404 = r2233402 + r2233403;
double r2233405 = /* ERROR: no complex support in C */;
return r2233405;
}
double f() {
double r2233406 = -5.0;
double r2233407 = -24.0;
double r2233408 = /* ERROR: no complex support in C */;
double r2233409 = 24.0;
double r2233410 = /* ERROR: no complex support in C */;
double r2233411 = 0.0;
double r2233412 = 8.0;
double r2233413 = /* ERROR: no complex support in C */;
double r2233414 = r2233410 + r2233413;
double r2233415 = 40.0;
double r2233416 = /* ERROR: no complex support in C */;
double r2233417 = -60.0;
double r2233418 = /* ERROR: no complex support in C */;
double r2233419 = r2233416 + r2233418;
double r2233420 = r2233414 + r2233419;
double r2233421 = r2233408 + r2233420;
double r2233422 = /* ERROR: no complex support in C */;
return r2233422;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019124 +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))))