\Im(\left(\left(\left(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\left(\left(\left(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\left(5 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(4 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))\Im(\left(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right)\right)\right) + \left(\left(\left(5 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r25301 = 1.0;
double r25302 = -r25301;
double r25303 = 2.0;
double r25304 = r25302 / r25303;
double r25305 = 3.0;
double r25306 = sqrt(r25305);
double r25307 = r25306 / r25303;
double r25308 = /* ERROR: no complex support in C */;
double r25309 = r25308 * r25308;
double r25310 = r25309 * r25308;
double r25311 = r25310 * r25308;
double r25312 = -r25303;
double r25313 = 0.0;
double r25314 = /* ERROR: no complex support in C */;
double r25315 = r25314 * r25308;
double r25316 = r25315 * r25308;
double r25317 = r25316 * r25308;
double r25318 = r25311 + r25317;
double r25319 = 5.0;
double r25320 = /* ERROR: no complex support in C */;
double r25321 = r25320 * r25308;
double r25322 = r25321 * r25308;
double r25323 = r25318 + r25322;
double r25324 = 4.0;
double r25325 = /* ERROR: no complex support in C */;
double r25326 = r25325 * r25308;
double r25327 = r25323 + r25326;
double r25328 = 7.0;
double r25329 = /* ERROR: no complex support in C */;
double r25330 = r25327 + r25329;
double r25331 = /* ERROR: no complex support in C */;
return r25331;
}
double f() {
double r25332 = 1.0;
double r25333 = -r25332;
double r25334 = 2.0;
double r25335 = r25333 / r25334;
double r25336 = 3.0;
double r25337 = sqrt(r25336);
double r25338 = r25337 / r25334;
double r25339 = /* ERROR: no complex support in C */;
double r25340 = r25339 * r25339;
double r25341 = r25340 * r25339;
double r25342 = r25339 * r25341;
double r25343 = -r25334;
double r25344 = 0.0;
double r25345 = /* ERROR: no complex support in C */;
double r25346 = r25345 * r25339;
double r25347 = r25339 * r25346;
double r25348 = r25339 * r25347;
double r25349 = r25342 + r25348;
double r25350 = 5.0;
double r25351 = /* ERROR: no complex support in C */;
double r25352 = r25351 * r25339;
double r25353 = r25352 * r25339;
double r25354 = r25349 + r25353;
double r25355 = 4.0;
double r25356 = /* ERROR: no complex support in C */;
double r25357 = r25339 * r25356;
double r25358 = r25354 + r25357;
double r25359 = 7.0;
double r25360 = /* ERROR: no complex support in C */;
double r25361 = r25358 + r25360;
double r25362 = /* ERROR: no complex support in C */;
return r25362;
}
Initial program 0
Final simplification0
herbie shell --seed 2019196 +o rules:numerics
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+ (+ (+ (+ (* (* (* (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (* (* (* (complex (- 2.0) 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (* (complex 5.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))