\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(5 + 0.0 i\right) + \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)\right)\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r22872 = 1.0;
double r22873 = -r22872;
double r22874 = 2.0;
double r22875 = r22873 / r22874;
double r22876 = 3.0;
double r22877 = sqrt(r22876);
double r22878 = r22877 / r22874;
double r22879 = /* ERROR: no complex support in C */;
double r22880 = r22879 * r22879;
double r22881 = r22880 * r22879;
double r22882 = r22881 * r22879;
double r22883 = -r22874;
double r22884 = 0.0;
double r22885 = /* ERROR: no complex support in C */;
double r22886 = r22885 * r22879;
double r22887 = r22886 * r22879;
double r22888 = r22887 * r22879;
double r22889 = r22882 + r22888;
double r22890 = 5.0;
double r22891 = /* ERROR: no complex support in C */;
double r22892 = r22891 * r22879;
double r22893 = r22892 * r22879;
double r22894 = r22889 + r22893;
double r22895 = 4.0;
double r22896 = /* ERROR: no complex support in C */;
double r22897 = r22896 * r22879;
double r22898 = r22894 + r22897;
double r22899 = 7.0;
double r22900 = /* ERROR: no complex support in C */;
double r22901 = r22898 + r22900;
double r22902 = /* ERROR: no complex support in C */;
return r22902;
}
double f() {
double r22903 = 1.0;
double r22904 = -r22903;
double r22905 = 2.0;
double r22906 = r22904 / r22905;
double r22907 = 3.0;
double r22908 = sqrt(r22907);
double r22909 = r22908 / r22905;
double r22910 = /* ERROR: no complex support in C */;
double r22911 = 4.0;
double r22912 = 0.0;
double r22913 = /* ERROR: no complex support in C */;
double r22914 = 5.0;
double r22915 = /* ERROR: no complex support in C */;
double r22916 = r22903 / r22905;
double r22917 = r22916 + r22905;
double r22918 = -r22917;
double r22919 = r22909 + r22912;
double r22920 = /* ERROR: no complex support in C */;
double r22921 = r22910 * r22920;
double r22922 = r22915 + r22921;
double r22923 = r22910 * r22922;
double r22924 = r22913 + r22923;
double r22925 = r22910 * r22924;
double r22926 = 7.0;
double r22927 = /* ERROR: no complex support in C */;
double r22928 = r22925 + r22927;
double r22929 = /* ERROR: no complex support in C */;
return r22929;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019323
(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))))