\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 r24933 = 1.0;
double r24934 = -r24933;
double r24935 = 2.0;
double r24936 = r24934 / r24935;
double r24937 = 3.0;
double r24938 = sqrt(r24937);
double r24939 = r24938 / r24935;
double r24940 = /* ERROR: no complex support in C */;
double r24941 = r24940 * r24940;
double r24942 = r24941 * r24940;
double r24943 = r24942 * r24940;
double r24944 = -r24935;
double r24945 = 0.0;
double r24946 = /* ERROR: no complex support in C */;
double r24947 = r24946 * r24940;
double r24948 = r24947 * r24940;
double r24949 = r24948 * r24940;
double r24950 = r24943 + r24949;
double r24951 = 5.0;
double r24952 = /* ERROR: no complex support in C */;
double r24953 = r24952 * r24940;
double r24954 = r24953 * r24940;
double r24955 = r24950 + r24954;
double r24956 = 4.0;
double r24957 = /* ERROR: no complex support in C */;
double r24958 = r24957 * r24940;
double r24959 = r24955 + r24958;
double r24960 = 7.0;
double r24961 = /* ERROR: no complex support in C */;
double r24962 = r24959 + r24961;
double r24963 = /* ERROR: no complex support in C */;
return r24963;
}
double f() {
double r24964 = 1.0;
double r24965 = -r24964;
double r24966 = 2.0;
double r24967 = r24965 / r24966;
double r24968 = 3.0;
double r24969 = sqrt(r24968);
double r24970 = r24969 / r24966;
double r24971 = /* ERROR: no complex support in C */;
double r24972 = 4.0;
double r24973 = 0.0;
double r24974 = /* ERROR: no complex support in C */;
double r24975 = r24964 / r24966;
double r24976 = r24975 + r24966;
double r24977 = -r24976;
double r24978 = r24970 + r24973;
double r24979 = /* ERROR: no complex support in C */;
double r24980 = r24971 * r24979;
double r24981 = 5.0;
double r24982 = /* ERROR: no complex support in C */;
double r24983 = r24980 + r24982;
double r24984 = r24971 * r24983;
double r24985 = r24974 + r24984;
double r24986 = r24971 * r24985;
double r24987 = 7.0;
double r24988 = /* ERROR: no complex support in C */;
double r24989 = r24986 + r24988;
double r24990 = /* ERROR: no complex support in C */;
return r24990;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019304 +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))))