\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(4 + 0.0 i\right) + \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(\left(-\left(\frac{1}{2} + 2\right)\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right) + \left(5 + 0.0 i\right)\right)\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r21814 = 1.0;
double r21815 = -r21814;
double r21816 = 2.0;
double r21817 = r21815 / r21816;
double r21818 = 3.0;
double r21819 = sqrt(r21818);
double r21820 = r21819 / r21816;
double r21821 = /* ERROR: no complex support in C */;
double r21822 = r21821 * r21821;
double r21823 = r21822 * r21821;
double r21824 = r21823 * r21821;
double r21825 = -r21816;
double r21826 = 0.0;
double r21827 = /* ERROR: no complex support in C */;
double r21828 = r21827 * r21821;
double r21829 = r21828 * r21821;
double r21830 = r21829 * r21821;
double r21831 = r21824 + r21830;
double r21832 = 5.0;
double r21833 = /* ERROR: no complex support in C */;
double r21834 = r21833 * r21821;
double r21835 = r21834 * r21821;
double r21836 = r21831 + r21835;
double r21837 = 4.0;
double r21838 = /* ERROR: no complex support in C */;
double r21839 = r21838 * r21821;
double r21840 = r21836 + r21839;
double r21841 = 7.0;
double r21842 = /* ERROR: no complex support in C */;
double r21843 = r21840 + r21842;
double r21844 = /* ERROR: no complex support in C */;
return r21844;
}
double f() {
double r21845 = 1.0;
double r21846 = -r21845;
double r21847 = 2.0;
double r21848 = r21846 / r21847;
double r21849 = 3.0;
double r21850 = sqrt(r21849);
double r21851 = r21850 / r21847;
double r21852 = /* ERROR: no complex support in C */;
double r21853 = 4.0;
double r21854 = 0.0;
double r21855 = /* ERROR: no complex support in C */;
double r21856 = r21845 / r21847;
double r21857 = r21856 + r21847;
double r21858 = -r21857;
double r21859 = r21851 + r21854;
double r21860 = /* ERROR: no complex support in C */;
double r21861 = r21852 * r21860;
double r21862 = 5.0;
double r21863 = /* ERROR: no complex support in C */;
double r21864 = r21861 + r21863;
double r21865 = r21852 * r21864;
double r21866 = r21855 + r21865;
double r21867 = r21852 * r21866;
double r21868 = 7.0;
double r21869 = /* ERROR: no complex support in C */;
double r21870 = r21867 + r21869;
double r21871 = /* ERROR: no complex support in C */;
return r21871;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019323 +o rules:numerics
(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))))