\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 r24271 = -1.0;
double r24272 = 1.0;
double r24273 = /* ERROR: no complex support in C */;
double r24274 = r24273 * r24273;
double r24275 = r24274 * r24273;
double r24276 = r24275 * r24273;
double r24277 = r24276 * r24273;
double r24278 = r24277 * r24273;
double r24279 = 6.0;
double r24280 = 0.0;
double r24281 = /* ERROR: no complex support in C */;
double r24282 = r24281 * r24273;
double r24283 = r24282 * r24273;
double r24284 = r24283 * r24273;
double r24285 = r24284 * r24273;
double r24286 = r24285 * r24273;
double r24287 = r24278 + r24286;
double r24288 = 15.0;
double r24289 = /* ERROR: no complex support in C */;
double r24290 = r24289 * r24273;
double r24291 = r24290 * r24273;
double r24292 = r24291 * r24273;
double r24293 = r24292 * r24273;
double r24294 = r24287 + r24293;
double r24295 = 20.0;
double r24296 = /* ERROR: no complex support in C */;
double r24297 = r24296 * r24273;
double r24298 = r24297 * r24273;
double r24299 = r24298 * r24273;
double r24300 = r24294 + r24299;
double r24301 = r24300 + r24291;
double r24302 = r24301 + r24282;
double r24303 = /* ERROR: no complex support in C */;
double r24304 = r24302 + r24303;
double r24305 = /* ERROR: no complex support in C */;
return r24305;
}
double f() {
double r24306 = -1.0;
double r24307 = 1.0;
double r24308 = /* ERROR: no complex support in C */;
double r24309 = r24308 * r24308;
double r24310 = r24309 * r24308;
double r24311 = r24310 * r24308;
double r24312 = r24311 * r24308;
double r24313 = r24312 * r24308;
double r24314 = 6.0;
double r24315 = 0.0;
double r24316 = /* ERROR: no complex support in C */;
double r24317 = r24316 * r24308;
double r24318 = r24317 * r24308;
double r24319 = r24318 * r24308;
double r24320 = r24319 * r24308;
double r24321 = r24320 * r24308;
double r24322 = r24313 + r24321;
double r24323 = 15.0;
double r24324 = /* ERROR: no complex support in C */;
double r24325 = r24324 * r24308;
double r24326 = r24325 * r24308;
double r24327 = r24326 * r24308;
double r24328 = r24327 * r24308;
double r24329 = r24322 + r24328;
double r24330 = 20.0;
double r24331 = /* ERROR: no complex support in C */;
double r24332 = r24331 * r24308;
double r24333 = r24332 * r24308;
double r24334 = r24333 * r24308;
double r24335 = r24329 + r24334;
double r24336 = r24335 + r24326;
double r24337 = r24336 + r24317;
double r24338 = /* ERROR: no complex support in C */;
double r24339 = r24337 + r24338;
double r24340 = /* ERROR: no complex support in C */;
return r24340;
}
Initial program 0
Final simplification0
herbie shell --seed 2020043
(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))))