\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 r21930 = 1.0;
double r21931 = -r21930;
double r21932 = 2.0;
double r21933 = r21931 / r21932;
double r21934 = 3.0;
double r21935 = sqrt(r21934);
double r21936 = r21935 / r21932;
double r21937 = /* ERROR: no complex support in C */;
double r21938 = r21937 * r21937;
double r21939 = r21938 * r21937;
double r21940 = r21939 * r21937;
double r21941 = -r21932;
double r21942 = 0.0;
double r21943 = /* ERROR: no complex support in C */;
double r21944 = r21943 * r21937;
double r21945 = r21944 * r21937;
double r21946 = r21945 * r21937;
double r21947 = r21940 + r21946;
double r21948 = 5.0;
double r21949 = /* ERROR: no complex support in C */;
double r21950 = r21949 * r21937;
double r21951 = r21950 * r21937;
double r21952 = r21947 + r21951;
double r21953 = 4.0;
double r21954 = /* ERROR: no complex support in C */;
double r21955 = r21954 * r21937;
double r21956 = r21952 + r21955;
double r21957 = 7.0;
double r21958 = /* ERROR: no complex support in C */;
double r21959 = r21956 + r21958;
double r21960 = /* ERROR: no complex support in C */;
return r21960;
}
double f() {
double r21961 = 1.0;
double r21962 = -r21961;
double r21963 = 2.0;
double r21964 = r21962 / r21963;
double r21965 = 3.0;
double r21966 = sqrt(r21965);
double r21967 = r21966 / r21963;
double r21968 = /* ERROR: no complex support in C */;
double r21969 = r21968 * r21968;
double r21970 = r21969 * r21968;
double r21971 = r21970 * r21968;
double r21972 = -r21963;
double r21973 = 0.0;
double r21974 = /* ERROR: no complex support in C */;
double r21975 = r21974 * r21968;
double r21976 = r21975 * r21968;
double r21977 = r21976 * r21968;
double r21978 = r21971 + r21977;
double r21979 = 5.0;
double r21980 = /* ERROR: no complex support in C */;
double r21981 = r21980 * r21968;
double r21982 = r21981 * r21968;
double r21983 = r21978 + r21982;
double r21984 = 4.0;
double r21985 = /* ERROR: no complex support in C */;
double r21986 = r21985 * r21968;
double r21987 = r21983 + r21986;
double r21988 = 7.0;
double r21989 = /* ERROR: no complex support in C */;
double r21990 = r21987 + r21989;
double r21991 = /* ERROR: no complex support in C */;
return r21991;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020049
(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))))