\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(\left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + -2 \cdot \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(5 + \frac{\sqrt{3} \cdot 4}{2} i\right)\right))double f() {
double r844925 = 1.0;
double r844926 = -r844925;
double r844927 = 2.0;
double r844928 = r844926 / r844927;
double r844929 = 3.0;
double r844930 = sqrt(r844929);
double r844931 = r844930 / r844927;
double r844932 = /* ERROR: no complex support in C */;
double r844933 = r844932 * r844932;
double r844934 = r844933 * r844932;
double r844935 = r844934 * r844932;
double r844936 = -r844927;
double r844937 = 0.0;
double r844938 = /* ERROR: no complex support in C */;
double r844939 = r844938 * r844932;
double r844940 = r844939 * r844932;
double r844941 = r844940 * r844932;
double r844942 = r844935 + r844941;
double r844943 = 5.0;
double r844944 = /* ERROR: no complex support in C */;
double r844945 = r844944 * r844932;
double r844946 = r844945 * r844932;
double r844947 = r844942 + r844946;
double r844948 = 4.0;
double r844949 = /* ERROR: no complex support in C */;
double r844950 = r844949 * r844932;
double r844951 = r844947 + r844950;
double r844952 = 7.0;
double r844953 = /* ERROR: no complex support in C */;
double r844954 = r844951 + r844953;
double r844955 = /* ERROR: no complex support in C */;
return r844955;
}
double f() {
double r844956 = 3.0;
double r844957 = sqrt(r844956);
double r844958 = 2.0;
double r844959 = r844957 / r844958;
double r844960 = -4.0;
double r844961 = r844957 / r844960;
double r844962 = r844961 + r844961;
double r844963 = r844959 * r844962;
double r844964 = 0.25;
double r844965 = r844963 + r844964;
double r844966 = /* ERROR: no complex support in C */;
double r844967 = 6.0;
double r844968 = -2.0;
double r844969 = r844968 * r844959;
double r844970 = /* ERROR: no complex support in C */;
double r844971 = r844966 + r844970;
double r844972 = r844971 * r844966;
double r844973 = 5.0;
double r844974 = 4.0;
double r844975 = r844957 * r844974;
double r844976 = r844975 / r844958;
double r844977 = /* ERROR: no complex support in C */;
double r844978 = r844972 + r844977;
double r844979 = /* ERROR: no complex support in C */;
return r844979;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019152 +o rules:numerics
(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))))