\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 r85317 = -1.0;
double r85318 = 1.0;
double r85319 = /* ERROR: no complex support in C */;
double r85320 = r85319 * r85319;
double r85321 = r85320 * r85319;
double r85322 = r85321 * r85319;
double r85323 = r85322 * r85319;
double r85324 = r85323 * r85319;
double r85325 = 6.0;
double r85326 = 0.0;
double r85327 = /* ERROR: no complex support in C */;
double r85328 = r85327 * r85319;
double r85329 = r85328 * r85319;
double r85330 = r85329 * r85319;
double r85331 = r85330 * r85319;
double r85332 = r85331 * r85319;
double r85333 = r85324 + r85332;
double r85334 = 15.0;
double r85335 = /* ERROR: no complex support in C */;
double r85336 = r85335 * r85319;
double r85337 = r85336 * r85319;
double r85338 = r85337 * r85319;
double r85339 = r85338 * r85319;
double r85340 = r85333 + r85339;
double r85341 = 20.0;
double r85342 = /* ERROR: no complex support in C */;
double r85343 = r85342 * r85319;
double r85344 = r85343 * r85319;
double r85345 = r85344 * r85319;
double r85346 = r85340 + r85345;
double r85347 = r85346 + r85337;
double r85348 = r85347 + r85328;
double r85349 = /* ERROR: no complex support in C */;
double r85350 = r85348 + r85349;
double r85351 = /* ERROR: no complex support in C */;
return r85351;
}
double f() {
double r85352 = -1.0;
double r85353 = 1.0;
double r85354 = /* ERROR: no complex support in C */;
double r85355 = r85354 * r85354;
double r85356 = r85355 * r85354;
double r85357 = r85356 * r85354;
double r85358 = r85357 * r85354;
double r85359 = r85358 * r85354;
double r85360 = 6.0;
double r85361 = 0.0;
double r85362 = /* ERROR: no complex support in C */;
double r85363 = r85362 * r85354;
double r85364 = r85363 * r85354;
double r85365 = r85364 * r85354;
double r85366 = r85365 * r85354;
double r85367 = r85366 * r85354;
double r85368 = r85359 + r85367;
double r85369 = 15.0;
double r85370 = /* ERROR: no complex support in C */;
double r85371 = r85370 * r85354;
double r85372 = r85371 * r85354;
double r85373 = r85372 * r85354;
double r85374 = r85373 * r85354;
double r85375 = r85368 + r85374;
double r85376 = 20.0;
double r85377 = /* ERROR: no complex support in C */;
double r85378 = r85377 * r85354;
double r85379 = r85378 * r85354;
double r85380 = r85379 * r85354;
double r85381 = r85375 + r85380;
double r85382 = r85381 + r85372;
double r85383 = r85382 + r85363;
double r85384 = /* ERROR: no complex support in C */;
double r85385 = r85383 + r85384;
double r85386 = /* ERROR: no complex support in C */;
return r85386;
}
Initial program 0
Final simplification0
herbie shell --seed 2019354
(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))))