\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
double f() {
double r17381 = -1.0;
double r17382 = 1.0;
double r17383 = /* ERROR: no complex support in C */;
double r17384 = r17383 * r17383;
double r17385 = r17384 * r17383;
double r17386 = r17385 * r17383;
double r17387 = r17386 * r17383;
double r17388 = r17387 * r17383;
double r17389 = 6.0;
double r17390 = 0.0;
double r17391 = /* ERROR: no complex support in C */;
double r17392 = r17391 * r17383;
double r17393 = r17392 * r17383;
double r17394 = r17393 * r17383;
double r17395 = r17394 * r17383;
double r17396 = r17395 * r17383;
double r17397 = r17388 + r17396;
double r17398 = 15.0;
double r17399 = /* ERROR: no complex support in C */;
double r17400 = r17399 * r17383;
double r17401 = r17400 * r17383;
double r17402 = r17401 * r17383;
double r17403 = r17402 * r17383;
double r17404 = r17397 + r17403;
double r17405 = 20.0;
double r17406 = /* ERROR: no complex support in C */;
double r17407 = r17406 * r17383;
double r17408 = r17407 * r17383;
double r17409 = r17408 * r17383;
double r17410 = r17404 + r17409;
double r17411 = r17410 + r17401;
double r17412 = r17411 + r17392;
double r17413 = /* ERROR: no complex support in C */;
double r17414 = r17412 + r17413;
double r17415 = /* ERROR: no complex support in C */;
return r17415;
}
double f() {
double r17416 = -1.0;
double r17417 = 1.0;
double r17418 = /* ERROR: no complex support in C */;
double r17419 = r17418 * r17418;
double r17420 = r17419 * r17418;
double r17421 = r17420 * r17418;
double r17422 = r17421 * r17418;
double r17423 = r17422 * r17418;
double r17424 = 6.0;
double r17425 = 0.0;
double r17426 = /* ERROR: no complex support in C */;
double r17427 = r17426 * r17418;
double r17428 = r17427 * r17418;
double r17429 = r17428 * r17418;
double r17430 = r17429 * r17418;
double r17431 = r17430 * r17418;
double r17432 = r17423 + r17431;
double r17433 = 15.0;
double r17434 = /* ERROR: no complex support in C */;
double r17435 = r17434 * r17418;
double r17436 = r17435 * r17418;
double r17437 = r17436 * r17418;
double r17438 = r17437 * r17418;
double r17439 = r17432 + r17438;
double r17440 = 20.0;
double r17441 = /* ERROR: no complex support in C */;
double r17442 = r17441 * r17418;
double r17443 = r17442 * r17418;
double r17444 = r17443 * r17418;
double r17445 = r17439 + r17444;
double r17446 = r17445 + r17436;
double r17447 = r17446 + r17427;
double r17448 = /* ERROR: no complex support in C */;
double r17449 = r17447 + r17448;
double r17450 = /* ERROR: no complex support in C */;
return r17450;
}
Initial program 0
Final simplification0
herbie shell --seed 2020036
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))