\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 r2630777 = 1.0;
double r2630778 = -r2630777;
double r2630779 = 2.0;
double r2630780 = r2630778 / r2630779;
double r2630781 = 3.0;
double r2630782 = sqrt(r2630781);
double r2630783 = r2630782 / r2630779;
double r2630784 = /* ERROR: no complex support in C */;
double r2630785 = r2630784 * r2630784;
double r2630786 = r2630785 * r2630784;
double r2630787 = r2630786 * r2630784;
double r2630788 = -r2630779;
double r2630789 = 0.0;
double r2630790 = /* ERROR: no complex support in C */;
double r2630791 = r2630790 * r2630784;
double r2630792 = r2630791 * r2630784;
double r2630793 = r2630792 * r2630784;
double r2630794 = r2630787 + r2630793;
double r2630795 = 5.0;
double r2630796 = /* ERROR: no complex support in C */;
double r2630797 = r2630796 * r2630784;
double r2630798 = r2630797 * r2630784;
double r2630799 = r2630794 + r2630798;
double r2630800 = 4.0;
double r2630801 = /* ERROR: no complex support in C */;
double r2630802 = r2630801 * r2630784;
double r2630803 = r2630799 + r2630802;
double r2630804 = 7.0;
double r2630805 = /* ERROR: no complex support in C */;
double r2630806 = r2630803 + r2630805;
double r2630807 = /* ERROR: no complex support in C */;
return r2630807;
}
double f() {
double r2630808 = 1.0;
double r2630809 = -r2630808;
double r2630810 = 2.0;
double r2630811 = r2630809 / r2630810;
double r2630812 = 3.0;
double r2630813 = sqrt(r2630812);
double r2630814 = r2630813 / r2630810;
double r2630815 = /* ERROR: no complex support in C */;
double r2630816 = r2630815 * r2630815;
double r2630817 = r2630816 * r2630815;
double r2630818 = r2630815 * r2630817;
double r2630819 = -r2630810;
double r2630820 = 0.0;
double r2630821 = /* ERROR: no complex support in C */;
double r2630822 = r2630821 * r2630815;
double r2630823 = r2630815 * r2630822;
double r2630824 = r2630815 * r2630823;
double r2630825 = r2630818 + r2630824;
double r2630826 = 5.0;
double r2630827 = /* ERROR: no complex support in C */;
double r2630828 = r2630827 * r2630815;
double r2630829 = r2630828 * r2630815;
double r2630830 = r2630825 + r2630829;
double r2630831 = 4.0;
double r2630832 = /* ERROR: no complex support in C */;
double r2630833 = r2630815 * r2630832;
double r2630834 = r2630830 + r2630833;
double r2630835 = 7.0;
double r2630836 = /* ERROR: no complex support in C */;
double r2630837 = r2630834 + r2630836;
double r2630838 = /* ERROR: no complex support in C */;
return r2630838;
}
Initial program 0
Final simplification0
herbie shell --seed 2019169 +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))))