\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(\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) + \left(5 + 0.0 i\right)\right)\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r25944 = 1.0;
double r25945 = -r25944;
double r25946 = 2.0;
double r25947 = r25945 / r25946;
double r25948 = 3.0;
double r25949 = sqrt(r25948);
double r25950 = r25949 / r25946;
double r25951 = /* ERROR: no complex support in C */;
double r25952 = r25951 * r25951;
double r25953 = r25952 * r25951;
double r25954 = r25953 * r25951;
double r25955 = -r25946;
double r25956 = 0.0;
double r25957 = /* ERROR: no complex support in C */;
double r25958 = r25957 * r25951;
double r25959 = r25958 * r25951;
double r25960 = r25959 * r25951;
double r25961 = r25954 + r25960;
double r25962 = 5.0;
double r25963 = /* ERROR: no complex support in C */;
double r25964 = r25963 * r25951;
double r25965 = r25964 * r25951;
double r25966 = r25961 + r25965;
double r25967 = 4.0;
double r25968 = /* ERROR: no complex support in C */;
double r25969 = r25968 * r25951;
double r25970 = r25966 + r25969;
double r25971 = 7.0;
double r25972 = /* ERROR: no complex support in C */;
double r25973 = r25970 + r25972;
double r25974 = /* ERROR: no complex support in C */;
return r25974;
}
double f() {
double r25975 = 1.0;
double r25976 = -r25975;
double r25977 = 2.0;
double r25978 = r25976 / r25977;
double r25979 = 3.0;
double r25980 = sqrt(r25979);
double r25981 = r25980 / r25977;
double r25982 = /* ERROR: no complex support in C */;
double r25983 = 4.0;
double r25984 = 0.0;
double r25985 = /* ERROR: no complex support in C */;
double r25986 = r25975 / r25977;
double r25987 = r25986 + r25977;
double r25988 = -r25987;
double r25989 = r25981 + r25984;
double r25990 = /* ERROR: no complex support in C */;
double r25991 = r25982 * r25990;
double r25992 = 5.0;
double r25993 = /* ERROR: no complex support in C */;
double r25994 = r25991 + r25993;
double r25995 = r25982 * r25994;
double r25996 = r25985 + r25995;
double r25997 = r25982 * r25996;
double r25998 = 7.0;
double r25999 = /* ERROR: no complex support in C */;
double r26000 = r25997 + r25999;
double r26001 = /* ERROR: no complex support in C */;
return r26001;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019325 +o rules:numerics
(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))))