\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 r27930 = 1.0;
double r27931 = -r27930;
double r27932 = 2.0;
double r27933 = r27931 / r27932;
double r27934 = 3.0;
double r27935 = sqrt(r27934);
double r27936 = r27935 / r27932;
double r27937 = /* ERROR: no complex support in C */;
double r27938 = r27937 * r27937;
double r27939 = r27938 * r27937;
double r27940 = r27939 * r27937;
double r27941 = -r27932;
double r27942 = 0.0;
double r27943 = /* ERROR: no complex support in C */;
double r27944 = r27943 * r27937;
double r27945 = r27944 * r27937;
double r27946 = r27945 * r27937;
double r27947 = r27940 + r27946;
double r27948 = 5.0;
double r27949 = /* ERROR: no complex support in C */;
double r27950 = r27949 * r27937;
double r27951 = r27950 * r27937;
double r27952 = r27947 + r27951;
double r27953 = 4.0;
double r27954 = /* ERROR: no complex support in C */;
double r27955 = r27954 * r27937;
double r27956 = r27952 + r27955;
double r27957 = 7.0;
double r27958 = /* ERROR: no complex support in C */;
double r27959 = r27956 + r27958;
double r27960 = /* ERROR: no complex support in C */;
return r27960;
}
double f() {
double r27961 = 1.0;
double r27962 = -r27961;
double r27963 = 2.0;
double r27964 = r27962 / r27963;
double r27965 = 3.0;
double r27966 = sqrt(r27965);
double r27967 = r27966 / r27963;
double r27968 = /* ERROR: no complex support in C */;
double r27969 = r27968 * r27968;
double r27970 = r27969 * r27968;
double r27971 = r27970 * r27968;
double r27972 = -r27963;
double r27973 = 0.0;
double r27974 = /* ERROR: no complex support in C */;
double r27975 = r27974 * r27968;
double r27976 = r27975 * r27968;
double r27977 = r27976 * r27968;
double r27978 = r27971 + r27977;
double r27979 = 5.0;
double r27980 = /* ERROR: no complex support in C */;
double r27981 = r27980 * r27968;
double r27982 = r27981 * r27968;
double r27983 = r27978 + r27982;
double r27984 = 4.0;
double r27985 = /* ERROR: no complex support in C */;
double r27986 = r27985 * r27968;
double r27987 = r27983 + r27986;
double r27988 = 7.0;
double r27989 = /* ERROR: no complex support in C */;
double r27990 = r27987 + r27989;
double r27991 = /* ERROR: no complex support in C */;
return r27991;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020021
(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))))