\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 r2328401 = 1.0;
double r2328402 = -r2328401;
double r2328403 = 2.0;
double r2328404 = r2328402 / r2328403;
double r2328405 = 3.0;
double r2328406 = sqrt(r2328405);
double r2328407 = r2328406 / r2328403;
double r2328408 = /* ERROR: no complex support in C */;
double r2328409 = r2328408 * r2328408;
double r2328410 = r2328409 * r2328408;
double r2328411 = r2328410 * r2328408;
double r2328412 = -r2328403;
double r2328413 = 0.0;
double r2328414 = /* ERROR: no complex support in C */;
double r2328415 = r2328414 * r2328408;
double r2328416 = r2328415 * r2328408;
double r2328417 = r2328416 * r2328408;
double r2328418 = r2328411 + r2328417;
double r2328419 = 5.0;
double r2328420 = /* ERROR: no complex support in C */;
double r2328421 = r2328420 * r2328408;
double r2328422 = r2328421 * r2328408;
double r2328423 = r2328418 + r2328422;
double r2328424 = 4.0;
double r2328425 = /* ERROR: no complex support in C */;
double r2328426 = r2328425 * r2328408;
double r2328427 = r2328423 + r2328426;
double r2328428 = 7.0;
double r2328429 = /* ERROR: no complex support in C */;
double r2328430 = r2328427 + r2328429;
double r2328431 = /* ERROR: no complex support in C */;
return r2328431;
}
double f() {
double r2328432 = 1.0;
double r2328433 = -r2328432;
double r2328434 = 2.0;
double r2328435 = r2328433 / r2328434;
double r2328436 = 3.0;
double r2328437 = sqrt(r2328436);
double r2328438 = r2328437 / r2328434;
double r2328439 = /* ERROR: no complex support in C */;
double r2328440 = r2328439 * r2328439;
double r2328441 = r2328440 * r2328439;
double r2328442 = r2328439 * r2328441;
double r2328443 = -r2328434;
double r2328444 = 0.0;
double r2328445 = /* ERROR: no complex support in C */;
double r2328446 = r2328445 * r2328439;
double r2328447 = r2328439 * r2328446;
double r2328448 = r2328439 * r2328447;
double r2328449 = r2328442 + r2328448;
double r2328450 = 5.0;
double r2328451 = /* ERROR: no complex support in C */;
double r2328452 = r2328451 * r2328439;
double r2328453 = r2328452 * r2328439;
double r2328454 = r2328449 + r2328453;
double r2328455 = 4.0;
double r2328456 = /* ERROR: no complex support in C */;
double r2328457 = r2328439 * r2328456;
double r2328458 = r2328454 + r2328457;
double r2328459 = 7.0;
double r2328460 = /* ERROR: no complex support in C */;
double r2328461 = r2328458 + r2328460;
double r2328462 = /* ERROR: no complex support in C */;
return r2328462;
}
Initial program 0
Final simplification0
herbie shell --seed 2019179 +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))))