\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 r21856 = 1.0;
double r21857 = -r21856;
double r21858 = 2.0;
double r21859 = r21857 / r21858;
double r21860 = 3.0;
double r21861 = sqrt(r21860);
double r21862 = r21861 / r21858;
double r21863 = /* ERROR: no complex support in C */;
double r21864 = r21863 * r21863;
double r21865 = r21864 * r21863;
double r21866 = r21865 * r21863;
double r21867 = -r21858;
double r21868 = 0.0;
double r21869 = /* ERROR: no complex support in C */;
double r21870 = r21869 * r21863;
double r21871 = r21870 * r21863;
double r21872 = r21871 * r21863;
double r21873 = r21866 + r21872;
double r21874 = 5.0;
double r21875 = /* ERROR: no complex support in C */;
double r21876 = r21875 * r21863;
double r21877 = r21876 * r21863;
double r21878 = r21873 + r21877;
double r21879 = 4.0;
double r21880 = /* ERROR: no complex support in C */;
double r21881 = r21880 * r21863;
double r21882 = r21878 + r21881;
double r21883 = 7.0;
double r21884 = /* ERROR: no complex support in C */;
double r21885 = r21882 + r21884;
double r21886 = /* ERROR: no complex support in C */;
return r21886;
}
double f() {
double r21887 = 1.0;
double r21888 = -r21887;
double r21889 = 2.0;
double r21890 = r21888 / r21889;
double r21891 = 3.0;
double r21892 = sqrt(r21891);
double r21893 = r21892 / r21889;
double r21894 = /* ERROR: no complex support in C */;
double r21895 = r21894 * r21894;
double r21896 = r21895 * r21894;
double r21897 = r21896 * r21894;
double r21898 = -r21889;
double r21899 = 0.0;
double r21900 = /* ERROR: no complex support in C */;
double r21901 = r21900 * r21894;
double r21902 = r21901 * r21894;
double r21903 = r21902 * r21894;
double r21904 = r21897 + r21903;
double r21905 = 5.0;
double r21906 = /* ERROR: no complex support in C */;
double r21907 = r21906 * r21894;
double r21908 = r21907 * r21894;
double r21909 = r21904 + r21908;
double r21910 = 4.0;
double r21911 = /* ERROR: no complex support in C */;
double r21912 = r21911 * r21894;
double r21913 = r21909 + r21912;
double r21914 = 7.0;
double r21915 = /* ERROR: no complex support in C */;
double r21916 = r21913 + r21915;
double r21917 = /* ERROR: no complex support in C */;
return r21917;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020081
(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))))