\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 r114940 = 1.0;
double r114941 = -r114940;
double r114942 = 2.0;
double r114943 = r114941 / r114942;
double r114944 = 3.0;
double r114945 = sqrt(r114944);
double r114946 = r114945 / r114942;
double r114947 = /* ERROR: no complex support in C */;
double r114948 = r114947 * r114947;
double r114949 = r114948 * r114947;
double r114950 = r114949 * r114947;
double r114951 = -r114942;
double r114952 = 0.0;
double r114953 = /* ERROR: no complex support in C */;
double r114954 = r114953 * r114947;
double r114955 = r114954 * r114947;
double r114956 = r114955 * r114947;
double r114957 = r114950 + r114956;
double r114958 = 5.0;
double r114959 = /* ERROR: no complex support in C */;
double r114960 = r114959 * r114947;
double r114961 = r114960 * r114947;
double r114962 = r114957 + r114961;
double r114963 = 4.0;
double r114964 = /* ERROR: no complex support in C */;
double r114965 = r114964 * r114947;
double r114966 = r114962 + r114965;
double r114967 = 7.0;
double r114968 = /* ERROR: no complex support in C */;
double r114969 = r114966 + r114968;
double r114970 = /* ERROR: no complex support in C */;
return r114970;
}
double f() {
double r114971 = 1.0;
double r114972 = -r114971;
double r114973 = 2.0;
double r114974 = r114972 / r114973;
double r114975 = 3.0;
double r114976 = sqrt(r114975);
double r114977 = r114976 / r114973;
double r114978 = /* ERROR: no complex support in C */;
double r114979 = r114978 * r114978;
double r114980 = r114979 * r114978;
double r114981 = r114980 * r114978;
double r114982 = -r114973;
double r114983 = 0.0;
double r114984 = /* ERROR: no complex support in C */;
double r114985 = r114984 * r114978;
double r114986 = r114985 * r114978;
double r114987 = r114986 * r114978;
double r114988 = r114981 + r114987;
double r114989 = 5.0;
double r114990 = /* ERROR: no complex support in C */;
double r114991 = r114990 * r114978;
double r114992 = r114991 * r114978;
double r114993 = r114988 + r114992;
double r114994 = 4.0;
double r114995 = /* ERROR: no complex support in C */;
double r114996 = r114995 * r114978;
double r114997 = r114993 + r114996;
double r114998 = 7.0;
double r114999 = /* ERROR: no complex support in C */;
double r115000 = r114997 + r114999;
double r115001 = /* ERROR: no complex support in C */;
return r115001;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 350497007
(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))))