\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 r10329 = -1.0;
double r10330 = 1.0;
double r10331 = /* ERROR: no complex support in C */;
double r10332 = r10331 * r10331;
double r10333 = r10332 * r10331;
double r10334 = r10333 * r10331;
double r10335 = r10334 * r10331;
double r10336 = r10335 * r10331;
double r10337 = 6.0;
double r10338 = 0.0;
double r10339 = /* ERROR: no complex support in C */;
double r10340 = r10339 * r10331;
double r10341 = r10340 * r10331;
double r10342 = r10341 * r10331;
double r10343 = r10342 * r10331;
double r10344 = r10343 * r10331;
double r10345 = r10336 + r10344;
double r10346 = 15.0;
double r10347 = /* ERROR: no complex support in C */;
double r10348 = r10347 * r10331;
double r10349 = r10348 * r10331;
double r10350 = r10349 * r10331;
double r10351 = r10350 * r10331;
double r10352 = r10345 + r10351;
double r10353 = 20.0;
double r10354 = /* ERROR: no complex support in C */;
double r10355 = r10354 * r10331;
double r10356 = r10355 * r10331;
double r10357 = r10356 * r10331;
double r10358 = r10352 + r10357;
double r10359 = r10358 + r10349;
double r10360 = r10359 + r10340;
double r10361 = /* ERROR: no complex support in C */;
double r10362 = r10360 + r10361;
double r10363 = /* ERROR: no complex support in C */;
return r10363;
}
double f() {
double r10364 = -1.0;
double r10365 = 1.0;
double r10366 = /* ERROR: no complex support in C */;
double r10367 = r10366 * r10366;
double r10368 = r10367 * r10366;
double r10369 = r10368 * r10366;
double r10370 = r10369 * r10366;
double r10371 = r10370 * r10366;
double r10372 = 6.0;
double r10373 = 0.0;
double r10374 = /* ERROR: no complex support in C */;
double r10375 = r10374 * r10366;
double r10376 = r10375 * r10366;
double r10377 = r10376 * r10366;
double r10378 = r10377 * r10366;
double r10379 = r10378 * r10366;
double r10380 = r10371 + r10379;
double r10381 = 15.0;
double r10382 = /* ERROR: no complex support in C */;
double r10383 = r10382 * r10366;
double r10384 = r10383 * r10366;
double r10385 = r10384 * r10366;
double r10386 = r10385 * r10366;
double r10387 = r10380 + r10386;
double r10388 = 20.0;
double r10389 = /* ERROR: no complex support in C */;
double r10390 = r10389 * r10366;
double r10391 = r10390 * r10366;
double r10392 = r10391 * r10366;
double r10393 = r10387 + r10392;
double r10394 = r10393 + r10384;
double r10395 = r10394 + r10375;
double r10396 = /* ERROR: no complex support in C */;
double r10397 = r10395 + r10396;
double r10398 = /* ERROR: no complex support in C */;
return r10398;
}
Initial program 0
Final simplification0
herbie shell --seed 2019325
(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))))