\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(\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) + \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(-2 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right)\right) + \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) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0 i\right)\right) + \left(7 + 0 i\right)\right))double f() {
double r1347600 = 1.0;
double r1347601 = -r1347600;
double r1347602 = 2.0;
double r1347603 = r1347601 / r1347602;
double r1347604 = 3.0;
double r1347605 = sqrt(r1347604);
double r1347606 = r1347605 / r1347602;
double r1347607 = /* ERROR: no complex support in C */;
double r1347608 = r1347607 * r1347607;
double r1347609 = r1347608 * r1347607;
double r1347610 = r1347609 * r1347607;
double r1347611 = -r1347602;
double r1347612 = 0.0;
double r1347613 = /* ERROR: no complex support in C */;
double r1347614 = r1347613 * r1347607;
double r1347615 = r1347614 * r1347607;
double r1347616 = r1347615 * r1347607;
double r1347617 = r1347610 + r1347616;
double r1347618 = 5.0;
double r1347619 = /* ERROR: no complex support in C */;
double r1347620 = r1347619 * r1347607;
double r1347621 = r1347620 * r1347607;
double r1347622 = r1347617 + r1347621;
double r1347623 = 4.0;
double r1347624 = /* ERROR: no complex support in C */;
double r1347625 = r1347624 * r1347607;
double r1347626 = r1347622 + r1347625;
double r1347627 = 7.0;
double r1347628 = /* ERROR: no complex support in C */;
double r1347629 = r1347626 + r1347628;
double r1347630 = /* ERROR: no complex support in C */;
return r1347630;
}
double f() {
double r1347631 = -0.5;
double r1347632 = 3.0;
double r1347633 = sqrt(r1347632);
double r1347634 = 2.0;
double r1347635 = r1347633 / r1347634;
double r1347636 = /* ERROR: no complex support in C */;
double r1347637 = r1347636 * r1347636;
double r1347638 = r1347637 * r1347636;
double r1347639 = r1347636 * r1347638;
double r1347640 = -2.0;
double r1347641 = 0.0;
double r1347642 = /* ERROR: no complex support in C */;
double r1347643 = r1347642 * r1347636;
double r1347644 = r1347636 * r1347643;
double r1347645 = r1347636 * r1347644;
double r1347646 = r1347639 + r1347645;
double r1347647 = 5.0;
double r1347648 = /* ERROR: no complex support in C */;
double r1347649 = r1347648 * r1347636;
double r1347650 = r1347649 * r1347636;
double r1347651 = r1347646 + r1347650;
double r1347652 = 4.0;
double r1347653 = /* ERROR: no complex support in C */;
double r1347654 = r1347636 * r1347653;
double r1347655 = r1347651 + r1347654;
double r1347656 = 7.0;
double r1347657 = /* ERROR: no complex support in C */;
double r1347658 = r1347655 + r1347657;
double r1347659 = /* ERROR: no complex support in C */;
return r1347659;
}
Initial program 0
Final simplification0
herbie shell --seed 2019107
(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))))