\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 r9725 = 1.0;
double r9726 = -r9725;
double r9727 = 2.0;
double r9728 = r9726 / r9727;
double r9729 = 3.0;
double r9730 = sqrt(r9729);
double r9731 = r9730 / r9727;
double r9732 = /* ERROR: no complex support in C */;
double r9733 = r9732 * r9732;
double r9734 = r9733 * r9732;
double r9735 = r9734 * r9732;
double r9736 = -r9727;
double r9737 = 0.0;
double r9738 = /* ERROR: no complex support in C */;
double r9739 = r9738 * r9732;
double r9740 = r9739 * r9732;
double r9741 = r9740 * r9732;
double r9742 = r9735 + r9741;
double r9743 = 5.0;
double r9744 = /* ERROR: no complex support in C */;
double r9745 = r9744 * r9732;
double r9746 = r9745 * r9732;
double r9747 = r9742 + r9746;
double r9748 = 4.0;
double r9749 = /* ERROR: no complex support in C */;
double r9750 = r9749 * r9732;
double r9751 = r9747 + r9750;
double r9752 = 7.0;
double r9753 = /* ERROR: no complex support in C */;
double r9754 = r9751 + r9753;
double r9755 = /* ERROR: no complex support in C */;
return r9755;
}
double f() {
double r9756 = 1.0;
double r9757 = -r9756;
double r9758 = 2.0;
double r9759 = r9757 / r9758;
double r9760 = 3.0;
double r9761 = sqrt(r9760);
double r9762 = r9761 / r9758;
double r9763 = /* ERROR: no complex support in C */;
double r9764 = r9763 * r9763;
double r9765 = r9764 * r9763;
double r9766 = r9765 * r9763;
double r9767 = -r9758;
double r9768 = 0.0;
double r9769 = /* ERROR: no complex support in C */;
double r9770 = r9769 * r9763;
double r9771 = r9770 * r9763;
double r9772 = r9771 * r9763;
double r9773 = r9766 + r9772;
double r9774 = 5.0;
double r9775 = /* ERROR: no complex support in C */;
double r9776 = r9775 * r9763;
double r9777 = r9776 * r9763;
double r9778 = r9773 + r9777;
double r9779 = 4.0;
double r9780 = /* ERROR: no complex support in C */;
double r9781 = r9780 * r9763;
double r9782 = r9778 + r9781;
double r9783 = 7.0;
double r9784 = /* ERROR: no complex support in C */;
double r9785 = r9782 + r9784;
double r9786 = /* ERROR: no complex support in C */;
return r9786;
}
Initial program 0
Final simplification0
herbie shell --seed 2019310
(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))))