\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 r25799 = 1.0;
double r25800 = -r25799;
double r25801 = 2.0;
double r25802 = r25800 / r25801;
double r25803 = 3.0;
double r25804 = sqrt(r25803);
double r25805 = r25804 / r25801;
double r25806 = /* ERROR: no complex support in C */;
double r25807 = r25806 * r25806;
double r25808 = r25807 * r25806;
double r25809 = r25808 * r25806;
double r25810 = -r25801;
double r25811 = 0.0;
double r25812 = /* ERROR: no complex support in C */;
double r25813 = r25812 * r25806;
double r25814 = r25813 * r25806;
double r25815 = r25814 * r25806;
double r25816 = r25809 + r25815;
double r25817 = 5.0;
double r25818 = /* ERROR: no complex support in C */;
double r25819 = r25818 * r25806;
double r25820 = r25819 * r25806;
double r25821 = r25816 + r25820;
double r25822 = 4.0;
double r25823 = /* ERROR: no complex support in C */;
double r25824 = r25823 * r25806;
double r25825 = r25821 + r25824;
double r25826 = 7.0;
double r25827 = /* ERROR: no complex support in C */;
double r25828 = r25825 + r25827;
double r25829 = /* ERROR: no complex support in C */;
return r25829;
}
double f() {
double r25830 = 1.0;
double r25831 = -r25830;
double r25832 = 2.0;
double r25833 = r25831 / r25832;
double r25834 = 3.0;
double r25835 = sqrt(r25834);
double r25836 = r25835 / r25832;
double r25837 = /* ERROR: no complex support in C */;
double r25838 = r25837 * r25837;
double r25839 = r25838 * r25837;
double r25840 = r25839 * r25837;
double r25841 = -r25832;
double r25842 = 0.0;
double r25843 = /* ERROR: no complex support in C */;
double r25844 = r25843 * r25837;
double r25845 = r25844 * r25837;
double r25846 = r25845 * r25837;
double r25847 = r25840 + r25846;
double r25848 = 5.0;
double r25849 = /* ERROR: no complex support in C */;
double r25850 = r25849 * r25837;
double r25851 = r25850 * r25837;
double r25852 = r25847 + r25851;
double r25853 = 4.0;
double r25854 = /* ERROR: no complex support in C */;
double r25855 = r25854 * r25837;
double r25856 = r25852 + r25855;
double r25857 = 7.0;
double r25858 = /* ERROR: no complex support in C */;
double r25859 = r25856 + r25858;
double r25860 = /* ERROR: no complex support in C */;
return r25860;
}
Initial program 0
Final simplification0
herbie shell --seed 2019326
(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))))