\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(-1 + 1 i\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(6 + 0.0 i\right)\right)\right) + \left(1 + 0.0 i\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(20 + 0.0 i\right)\right)\right) + \left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right)\right)\right)\right)\right))
double f() {
double r10255 = -1.0;
double r10256 = 1.0;
double r10257 = /* ERROR: no complex support in C */;
double r10258 = r10257 * r10257;
double r10259 = r10258 * r10257;
double r10260 = r10259 * r10257;
double r10261 = r10260 * r10257;
double r10262 = r10261 * r10257;
double r10263 = 6.0;
double r10264 = 0.0;
double r10265 = /* ERROR: no complex support in C */;
double r10266 = r10265 * r10257;
double r10267 = r10266 * r10257;
double r10268 = r10267 * r10257;
double r10269 = r10268 * r10257;
double r10270 = r10269 * r10257;
double r10271 = r10262 + r10270;
double r10272 = 15.0;
double r10273 = /* ERROR: no complex support in C */;
double r10274 = r10273 * r10257;
double r10275 = r10274 * r10257;
double r10276 = r10275 * r10257;
double r10277 = r10276 * r10257;
double r10278 = r10271 + r10277;
double r10279 = 20.0;
double r10280 = /* ERROR: no complex support in C */;
double r10281 = r10280 * r10257;
double r10282 = r10281 * r10257;
double r10283 = r10282 * r10257;
double r10284 = r10278 + r10283;
double r10285 = r10284 + r10275;
double r10286 = r10285 + r10266;
double r10287 = /* ERROR: no complex support in C */;
double r10288 = r10286 + r10287;
double r10289 = /* ERROR: no complex support in C */;
return r10289;
}
double f() {
double r10290 = -1.0;
double r10291 = 1.0;
double r10292 = /* ERROR: no complex support in C */;
double r10293 = 15.0;
double r10294 = 0.0;
double r10295 = /* ERROR: no complex support in C */;
double r10296 = r10295 * r10292;
double r10297 = 6.0;
double r10298 = /* ERROR: no complex support in C */;
double r10299 = r10296 + r10298;
double r10300 = r10292 * r10299;
double r10301 = /* ERROR: no complex support in C */;
double r10302 = r10300 + r10301;
double r10303 = r10292 * r10292;
double r10304 = 20.0;
double r10305 = /* ERROR: no complex support in C */;
double r10306 = r10296 + r10305;
double r10307 = r10292 * r10306;
double r10308 = r10292 + r10298;
double r10309 = r10303 * r10308;
double r10310 = r10292 * r10309;
double r10311 = r10307 + r10310;
double r10312 = r10303 * r10311;
double r10313 = r10302 + r10312;
double r10314 = /* ERROR: no complex support in C */;
return r10314;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019303
(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))))