\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(\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) + \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r23907 = 1.0;
double r23908 = -r23907;
double r23909 = 2.0;
double r23910 = r23908 / r23909;
double r23911 = 3.0;
double r23912 = sqrt(r23911);
double r23913 = r23912 / r23909;
double r23914 = /* ERROR: no complex support in C */;
double r23915 = r23914 * r23914;
double r23916 = r23915 * r23914;
double r23917 = r23916 * r23914;
double r23918 = -r23909;
double r23919 = 0.0;
double r23920 = /* ERROR: no complex support in C */;
double r23921 = r23920 * r23914;
double r23922 = r23921 * r23914;
double r23923 = r23922 * r23914;
double r23924 = r23917 + r23923;
double r23925 = 5.0;
double r23926 = /* ERROR: no complex support in C */;
double r23927 = r23926 * r23914;
double r23928 = r23927 * r23914;
double r23929 = r23924 + r23928;
double r23930 = 4.0;
double r23931 = /* ERROR: no complex support in C */;
double r23932 = r23931 * r23914;
double r23933 = r23929 + r23932;
double r23934 = 7.0;
double r23935 = /* ERROR: no complex support in C */;
double r23936 = r23933 + r23935;
double r23937 = /* ERROR: no complex support in C */;
return r23937;
}
double f() {
double r23938 = 1.0;
double r23939 = -r23938;
double r23940 = 2.0;
double r23941 = r23939 / r23940;
double r23942 = 3.0;
double r23943 = sqrt(r23942);
double r23944 = r23943 / r23940;
double r23945 = /* ERROR: no complex support in C */;
double r23946 = 5.0;
double r23947 = 0.0;
double r23948 = /* ERROR: no complex support in C */;
double r23949 = r23938 / r23940;
double r23950 = r23949 + r23940;
double r23951 = -r23950;
double r23952 = r23944 + r23947;
double r23953 = /* ERROR: no complex support in C */;
double r23954 = r23945 * r23953;
double r23955 = r23948 + r23954;
double r23956 = r23945 * r23955;
double r23957 = 4.0;
double r23958 = /* ERROR: no complex support in C */;
double r23959 = r23956 + r23958;
double r23960 = r23945 * r23959;
double r23961 = 7.0;
double r23962 = /* ERROR: no complex support in C */;
double r23963 = r23960 + r23962;
double r23964 = /* ERROR: no complex support in C */;
return r23964;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019209
(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))))