\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Im(\left(\left(\frac{11}{2} + \left(\left(-\sqrt{3}\right) - \frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{-2} i\right) + \left(5 + \sqrt{3} \cdot 2 i\right)\right))double f() {
double r746278 = 1.0;
double r746279 = -r746278;
double r746280 = 2.0;
double r746281 = r746279 / r746280;
double r746282 = 3.0;
double r746283 = sqrt(r746282);
double r746284 = r746283 / r746280;
double r746285 = /* ERROR: no complex support in C */;
double r746286 = r746285 * r746285;
double r746287 = r746286 * r746285;
double r746288 = r746287 * r746285;
double r746289 = -r746280;
double r746290 = 0.0;
double r746291 = /* ERROR: no complex support in C */;
double r746292 = r746291 * r746285;
double r746293 = r746292 * r746285;
double r746294 = r746293 * r746285;
double r746295 = r746288 + r746294;
double r746296 = 5.0;
double r746297 = /* ERROR: no complex support in C */;
double r746298 = r746297 * r746285;
double r746299 = r746298 * r746285;
double r746300 = r746295 + r746299;
double r746301 = 4.0;
double r746302 = /* ERROR: no complex support in C */;
double r746303 = r746302 * r746285;
double r746304 = r746300 + r746303;
double r746305 = 7.0;
double r746306 = /* ERROR: no complex support in C */;
double r746307 = r746304 + r746306;
double r746308 = /* ERROR: no complex support in C */;
return r746308;
}
double f() {
double r746309 = 5.5;
double r746310 = 3.0;
double r746311 = sqrt(r746310);
double r746312 = -r746311;
double r746313 = 2.0;
double r746314 = r746311 / r746313;
double r746315 = r746312 - r746314;
double r746316 = /* ERROR: no complex support in C */;
double r746317 = -0.5;
double r746318 = -2.0;
double r746319 = r746311 / r746318;
double r746320 = /* ERROR: no complex support in C */;
double r746321 = r746316 * r746320;
double r746322 = 5.0;
double r746323 = r746311 * r746313;
double r746324 = /* ERROR: no complex support in C */;
double r746325 = r746321 + r746324;
double r746326 = /* ERROR: no complex support in C */;
return r746326;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019151
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))