\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 r26817 = 1.0;
double r26818 = -r26817;
double r26819 = 2.0;
double r26820 = r26818 / r26819;
double r26821 = 3.0;
double r26822 = sqrt(r26821);
double r26823 = r26822 / r26819;
double r26824 = /* ERROR: no complex support in C */;
double r26825 = r26824 * r26824;
double r26826 = r26825 * r26824;
double r26827 = r26826 * r26824;
double r26828 = -r26819;
double r26829 = 0.0;
double r26830 = /* ERROR: no complex support in C */;
double r26831 = r26830 * r26824;
double r26832 = r26831 * r26824;
double r26833 = r26832 * r26824;
double r26834 = r26827 + r26833;
double r26835 = 5.0;
double r26836 = /* ERROR: no complex support in C */;
double r26837 = r26836 * r26824;
double r26838 = r26837 * r26824;
double r26839 = r26834 + r26838;
double r26840 = 4.0;
double r26841 = /* ERROR: no complex support in C */;
double r26842 = r26841 * r26824;
double r26843 = r26839 + r26842;
double r26844 = 7.0;
double r26845 = /* ERROR: no complex support in C */;
double r26846 = r26843 + r26845;
double r26847 = /* ERROR: no complex support in C */;
return r26847;
}
double f() {
double r26848 = 1.0;
double r26849 = -r26848;
double r26850 = 2.0;
double r26851 = r26849 / r26850;
double r26852 = 3.0;
double r26853 = sqrt(r26852);
double r26854 = r26853 / r26850;
double r26855 = /* ERROR: no complex support in C */;
double r26856 = r26855 * r26855;
double r26857 = r26856 * r26855;
double r26858 = r26857 * r26855;
double r26859 = -r26850;
double r26860 = 0.0;
double r26861 = /* ERROR: no complex support in C */;
double r26862 = r26861 * r26855;
double r26863 = r26862 * r26855;
double r26864 = r26863 * r26855;
double r26865 = r26858 + r26864;
double r26866 = 5.0;
double r26867 = /* ERROR: no complex support in C */;
double r26868 = r26867 * r26855;
double r26869 = r26868 * r26855;
double r26870 = r26865 + r26869;
double r26871 = 4.0;
double r26872 = /* ERROR: no complex support in C */;
double r26873 = r26872 * r26855;
double r26874 = r26870 + r26873;
double r26875 = 7.0;
double r26876 = /* ERROR: no complex support in C */;
double r26877 = r26874 + r26876;
double r26878 = /* ERROR: no complex support in C */;
return r26878;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020056
(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))))