\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(\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))double f() {
double r27251 = 1.0;
double r27252 = -r27251;
double r27253 = 2.0;
double r27254 = r27252 / r27253;
double r27255 = 3.0;
double r27256 = sqrt(r27255);
double r27257 = r27256 / r27253;
double r27258 = /* ERROR: no complex support in C */;
double r27259 = r27258 * r27258;
double r27260 = r27259 * r27258;
double r27261 = r27260 * r27258;
double r27262 = -r27253;
double r27263 = 0.0;
double r27264 = /* ERROR: no complex support in C */;
double r27265 = r27264 * r27258;
double r27266 = r27265 * r27258;
double r27267 = r27266 * r27258;
double r27268 = r27261 + r27267;
double r27269 = 5.0;
double r27270 = /* ERROR: no complex support in C */;
double r27271 = r27270 * r27258;
double r27272 = r27271 * r27258;
double r27273 = r27268 + r27272;
double r27274 = 4.0;
double r27275 = /* ERROR: no complex support in C */;
double r27276 = r27275 * r27258;
double r27277 = r27273 + r27276;
double r27278 = 7.0;
double r27279 = /* ERROR: no complex support in C */;
double r27280 = r27277 + r27279;
double r27281 = /* ERROR: no complex support in C */;
return r27281;
}
double f() {
double r27282 = 1.0;
double r27283 = -r27282;
double r27284 = 2.0;
double r27285 = r27283 / r27284;
double r27286 = 3.0;
double r27287 = sqrt(r27286);
double r27288 = r27287 / r27284;
double r27289 = /* ERROR: no complex support in C */;
double r27290 = r27289 * r27289;
double r27291 = r27290 * r27289;
double r27292 = r27291 * r27289;
double r27293 = -r27284;
double r27294 = 0.0;
double r27295 = /* ERROR: no complex support in C */;
double r27296 = r27295 * r27289;
double r27297 = r27296 * r27289;
double r27298 = r27297 * r27289;
double r27299 = r27292 + r27298;
double r27300 = 5.0;
double r27301 = /* ERROR: no complex support in C */;
double r27302 = r27301 * r27289;
double r27303 = r27302 * r27289;
double r27304 = r27299 + r27303;
double r27305 = 4.0;
double r27306 = /* ERROR: no complex support in C */;
double r27307 = r27306 * r27289;
double r27308 = r27304 + r27307;
double r27309 = 7.0;
double r27310 = /* ERROR: no complex support in C */;
double r27311 = r27308 + r27310;
double r27312 = /* ERROR: no complex support in C */;
return r27312;
}
Initial program 0
Final simplification0
herbie shell --seed 2019198
(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))))