\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(5 + \frac{4}{\frac{2}{\sqrt{3}}} i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) + \left(6 + \frac{\sqrt{3}}{2} \cdot -2 i\right)\right)\right))double f() {
double r2468839 = 1.0;
double r2468840 = -r2468839;
double r2468841 = 2.0;
double r2468842 = r2468840 / r2468841;
double r2468843 = 3.0;
double r2468844 = sqrt(r2468843);
double r2468845 = r2468844 / r2468841;
double r2468846 = /* ERROR: no complex support in C */;
double r2468847 = r2468846 * r2468846;
double r2468848 = r2468847 * r2468846;
double r2468849 = r2468848 * r2468846;
double r2468850 = -r2468841;
double r2468851 = 0.0;
double r2468852 = /* ERROR: no complex support in C */;
double r2468853 = r2468852 * r2468846;
double r2468854 = r2468853 * r2468846;
double r2468855 = r2468854 * r2468846;
double r2468856 = r2468849 + r2468855;
double r2468857 = 5.0;
double r2468858 = /* ERROR: no complex support in C */;
double r2468859 = r2468858 * r2468846;
double r2468860 = r2468859 * r2468846;
double r2468861 = r2468856 + r2468860;
double r2468862 = 4.0;
double r2468863 = /* ERROR: no complex support in C */;
double r2468864 = r2468863 * r2468846;
double r2468865 = r2468861 + r2468864;
double r2468866 = 7.0;
double r2468867 = /* ERROR: no complex support in C */;
double r2468868 = r2468865 + r2468867;
double r2468869 = /* ERROR: no complex support in C */;
return r2468869;
}
double f() {
double r2468870 = 5.0;
double r2468871 = 4.0;
double r2468872 = 2.0;
double r2468873 = 3.0;
double r2468874 = sqrt(r2468873);
double r2468875 = r2468872 / r2468874;
double r2468876 = r2468871 / r2468875;
double r2468877 = /* ERROR: no complex support in C */;
double r2468878 = 0.25;
double r2468879 = r2468874 / r2468872;
double r2468880 = r2468879 * r2468879;
double r2468881 = r2468878 - r2468880;
double r2468882 = -r2468879;
double r2468883 = /* ERROR: no complex support in C */;
double r2468884 = 6.0;
double r2468885 = -2.0;
double r2468886 = r2468879 * r2468885;
double r2468887 = /* ERROR: no complex support in C */;
double r2468888 = r2468883 + r2468887;
double r2468889 = r2468883 * r2468888;
double r2468890 = r2468877 + r2468889;
double r2468891 = /* ERROR: no complex support in C */;
return r2468891;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019104
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))