\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 r18333 = -1.0;
double r18334 = 1.0;
double r18335 = /* ERROR: no complex support in C */;
double r18336 = r18335 * r18335;
double r18337 = r18336 * r18335;
double r18338 = r18337 * r18335;
double r18339 = r18338 * r18335;
double r18340 = r18339 * r18335;
double r18341 = 6.0;
double r18342 = 0.0;
double r18343 = /* ERROR: no complex support in C */;
double r18344 = r18343 * r18335;
double r18345 = r18344 * r18335;
double r18346 = r18345 * r18335;
double r18347 = r18346 * r18335;
double r18348 = r18347 * r18335;
double r18349 = r18340 + r18348;
double r18350 = 15.0;
double r18351 = /* ERROR: no complex support in C */;
double r18352 = r18351 * r18335;
double r18353 = r18352 * r18335;
double r18354 = r18353 * r18335;
double r18355 = r18354 * r18335;
double r18356 = r18349 + r18355;
double r18357 = 20.0;
double r18358 = /* ERROR: no complex support in C */;
double r18359 = r18358 * r18335;
double r18360 = r18359 * r18335;
double r18361 = r18360 * r18335;
double r18362 = r18356 + r18361;
double r18363 = r18362 + r18353;
double r18364 = r18363 + r18344;
double r18365 = /* ERROR: no complex support in C */;
double r18366 = r18364 + r18365;
double r18367 = /* ERROR: no complex support in C */;
return r18367;
}
double f() {
double r18368 = -1.0;
double r18369 = 1.0;
double r18370 = /* ERROR: no complex support in C */;
double r18371 = r18370 * r18370;
double r18372 = r18371 * r18370;
double r18373 = r18372 * r18370;
double r18374 = r18373 * r18370;
double r18375 = r18374 * r18370;
double r18376 = 6.0;
double r18377 = 0.0;
double r18378 = /* ERROR: no complex support in C */;
double r18379 = r18378 * r18370;
double r18380 = r18379 * r18370;
double r18381 = r18380 * r18370;
double r18382 = r18381 * r18370;
double r18383 = r18382 * r18370;
double r18384 = r18375 + r18383;
double r18385 = 15.0;
double r18386 = /* ERROR: no complex support in C */;
double r18387 = r18386 * r18370;
double r18388 = r18387 * r18370;
double r18389 = r18388 * r18370;
double r18390 = r18389 * r18370;
double r18391 = r18384 + r18390;
double r18392 = 20.0;
double r18393 = /* ERROR: no complex support in C */;
double r18394 = r18393 * r18370;
double r18395 = r18394 * r18370;
double r18396 = r18395 * r18370;
double r18397 = r18391 + r18396;
double r18398 = r18397 + r18388;
double r18399 = r18398 + r18379;
double r18400 = /* ERROR: no complex support in C */;
double r18401 = r18399 + r18400;
double r18402 = /* ERROR: no complex support in C */;
return r18402;
}
Initial program 0
Final simplification0
herbie shell --seed 2019353
(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))))