\Re(\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))\Re(\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 r21797 = 1.0;
double r21798 = -r21797;
double r21799 = 2.0;
double r21800 = r21798 / r21799;
double r21801 = 3.0;
double r21802 = sqrt(r21801);
double r21803 = r21802 / r21799;
double r21804 = /* ERROR: no complex support in C */;
double r21805 = r21804 * r21804;
double r21806 = r21805 * r21804;
double r21807 = r21806 * r21804;
double r21808 = -r21799;
double r21809 = 0.0;
double r21810 = /* ERROR: no complex support in C */;
double r21811 = r21810 * r21804;
double r21812 = r21811 * r21804;
double r21813 = r21812 * r21804;
double r21814 = r21807 + r21813;
double r21815 = 5.0;
double r21816 = /* ERROR: no complex support in C */;
double r21817 = r21816 * r21804;
double r21818 = r21817 * r21804;
double r21819 = r21814 + r21818;
double r21820 = 4.0;
double r21821 = /* ERROR: no complex support in C */;
double r21822 = r21821 * r21804;
double r21823 = r21819 + r21822;
double r21824 = 7.0;
double r21825 = /* ERROR: no complex support in C */;
double r21826 = r21823 + r21825;
double r21827 = /* ERROR: no complex support in C */;
return r21827;
}
double f() {
double r21828 = 1.0;
double r21829 = -r21828;
double r21830 = 2.0;
double r21831 = r21829 / r21830;
double r21832 = 3.0;
double r21833 = sqrt(r21832);
double r21834 = r21833 / r21830;
double r21835 = /* ERROR: no complex support in C */;
double r21836 = r21835 * r21835;
double r21837 = r21836 * r21835;
double r21838 = r21837 * r21835;
double r21839 = -r21830;
double r21840 = 0.0;
double r21841 = /* ERROR: no complex support in C */;
double r21842 = r21841 * r21835;
double r21843 = r21842 * r21835;
double r21844 = r21843 * r21835;
double r21845 = r21838 + r21844;
double r21846 = 5.0;
double r21847 = /* ERROR: no complex support in C */;
double r21848 = r21847 * r21835;
double r21849 = r21848 * r21835;
double r21850 = r21845 + r21849;
double r21851 = 4.0;
double r21852 = /* ERROR: no complex support in C */;
double r21853 = r21852 * r21835;
double r21854 = r21850 + r21853;
double r21855 = 7.0;
double r21856 = /* ERROR: no complex support in C */;
double r21857 = r21854 + r21856;
double r21858 = /* ERROR: no complex support in C */;
return r21858;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020033
(FPCore ()
:name "3.9.2 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (* (* (* (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))))