\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 r29472 = 1.0;
double r29473 = -r29472;
double r29474 = 2.0;
double r29475 = r29473 / r29474;
double r29476 = 3.0;
double r29477 = sqrt(r29476);
double r29478 = r29477 / r29474;
double r29479 = /* ERROR: no complex support in C */;
double r29480 = r29479 * r29479;
double r29481 = r29480 * r29479;
double r29482 = r29481 * r29479;
double r29483 = -r29474;
double r29484 = 0.0;
double r29485 = /* ERROR: no complex support in C */;
double r29486 = r29485 * r29479;
double r29487 = r29486 * r29479;
double r29488 = r29487 * r29479;
double r29489 = r29482 + r29488;
double r29490 = 5.0;
double r29491 = /* ERROR: no complex support in C */;
double r29492 = r29491 * r29479;
double r29493 = r29492 * r29479;
double r29494 = r29489 + r29493;
double r29495 = 4.0;
double r29496 = /* ERROR: no complex support in C */;
double r29497 = r29496 * r29479;
double r29498 = r29494 + r29497;
double r29499 = 7.0;
double r29500 = /* ERROR: no complex support in C */;
double r29501 = r29498 + r29500;
double r29502 = /* ERROR: no complex support in C */;
return r29502;
}
double f() {
double r29503 = 1.0;
double r29504 = -r29503;
double r29505 = 2.0;
double r29506 = r29504 / r29505;
double r29507 = 3.0;
double r29508 = sqrt(r29507);
double r29509 = r29508 / r29505;
double r29510 = /* ERROR: no complex support in C */;
double r29511 = r29510 * r29510;
double r29512 = r29511 * r29510;
double r29513 = r29512 * r29510;
double r29514 = -r29505;
double r29515 = 0.0;
double r29516 = /* ERROR: no complex support in C */;
double r29517 = r29516 * r29510;
double r29518 = r29517 * r29510;
double r29519 = r29518 * r29510;
double r29520 = r29513 + r29519;
double r29521 = 5.0;
double r29522 = /* ERROR: no complex support in C */;
double r29523 = r29522 * r29510;
double r29524 = r29523 * r29510;
double r29525 = r29520 + r29524;
double r29526 = 4.0;
double r29527 = /* ERROR: no complex support in C */;
double r29528 = r29527 * r29510;
double r29529 = r29525 + r29528;
double r29530 = 7.0;
double r29531 = /* ERROR: no complex support in C */;
double r29532 = r29529 + r29531;
double r29533 = /* ERROR: no complex support in C */;
return r29533;
}
Initial program 0
Final simplification0
herbie shell --seed 2020043
(FPCore ()
:name "3.9.2 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (* (* (* (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (* (* (* (complex (- 2) 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (* (complex 5 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (complex 4 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0.0))))