\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 r28264 = 1.0;
double r28265 = -r28264;
double r28266 = 2.0;
double r28267 = r28265 / r28266;
double r28268 = 3.0;
double r28269 = sqrt(r28268);
double r28270 = r28269 / r28266;
double r28271 = /* ERROR: no complex support in C */;
double r28272 = r28271 * r28271;
double r28273 = r28272 * r28271;
double r28274 = r28273 * r28271;
double r28275 = -r28266;
double r28276 = 0.0;
double r28277 = /* ERROR: no complex support in C */;
double r28278 = r28277 * r28271;
double r28279 = r28278 * r28271;
double r28280 = r28279 * r28271;
double r28281 = r28274 + r28280;
double r28282 = 5.0;
double r28283 = /* ERROR: no complex support in C */;
double r28284 = r28283 * r28271;
double r28285 = r28284 * r28271;
double r28286 = r28281 + r28285;
double r28287 = 4.0;
double r28288 = /* ERROR: no complex support in C */;
double r28289 = r28288 * r28271;
double r28290 = r28286 + r28289;
double r28291 = 7.0;
double r28292 = /* ERROR: no complex support in C */;
double r28293 = r28290 + r28292;
double r28294 = /* ERROR: no complex support in C */;
return r28294;
}
double f() {
double r28295 = 1.0;
double r28296 = -r28295;
double r28297 = 2.0;
double r28298 = r28296 / r28297;
double r28299 = 3.0;
double r28300 = sqrt(r28299);
double r28301 = r28300 / r28297;
double r28302 = /* ERROR: no complex support in C */;
double r28303 = r28302 * r28302;
double r28304 = r28303 * r28302;
double r28305 = r28304 * r28302;
double r28306 = -r28297;
double r28307 = 0.0;
double r28308 = /* ERROR: no complex support in C */;
double r28309 = r28308 * r28302;
double r28310 = r28309 * r28302;
double r28311 = r28310 * r28302;
double r28312 = r28305 + r28311;
double r28313 = 5.0;
double r28314 = /* ERROR: no complex support in C */;
double r28315 = r28314 * r28302;
double r28316 = r28315 * r28302;
double r28317 = r28312 + r28316;
double r28318 = 4.0;
double r28319 = /* ERROR: no complex support in C */;
double r28320 = r28319 * r28302;
double r28321 = r28317 + r28320;
double r28322 = 7.0;
double r28323 = /* ERROR: no complex support in C */;
double r28324 = r28321 + r28323;
double r28325 = /* ERROR: no complex support in C */;
return r28325;
}
Initial program 0
Final simplification0
herbie shell --seed 2019199
(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))))