\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(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)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r28964 = 1.0;
double r28965 = -r28964;
double r28966 = 2.0;
double r28967 = r28965 / r28966;
double r28968 = 3.0;
double r28969 = sqrt(r28968);
double r28970 = r28969 / r28966;
double r28971 = /* ERROR: no complex support in C */;
double r28972 = r28971 * r28971;
double r28973 = r28972 * r28971;
double r28974 = r28973 * r28971;
double r28975 = -r28966;
double r28976 = 0.0;
double r28977 = /* ERROR: no complex support in C */;
double r28978 = r28977 * r28971;
double r28979 = r28978 * r28971;
double r28980 = r28979 * r28971;
double r28981 = r28974 + r28980;
double r28982 = 5.0;
double r28983 = /* ERROR: no complex support in C */;
double r28984 = r28983 * r28971;
double r28985 = r28984 * r28971;
double r28986 = r28981 + r28985;
double r28987 = 4.0;
double r28988 = /* ERROR: no complex support in C */;
double r28989 = r28988 * r28971;
double r28990 = r28986 + r28989;
double r28991 = 7.0;
double r28992 = /* ERROR: no complex support in C */;
double r28993 = r28990 + r28992;
double r28994 = /* ERROR: no complex support in C */;
return r28994;
}
double f() {
double r28995 = 1.0;
double r28996 = -r28995;
double r28997 = 2.0;
double r28998 = r28996 / r28997;
double r28999 = 3.0;
double r29000 = sqrt(r28999);
double r29001 = r29000 / r28997;
double r29002 = /* ERROR: no complex support in C */;
double r29003 = 4.0;
double r29004 = 0.0;
double r29005 = /* ERROR: no complex support in C */;
double r29006 = 5.0;
double r29007 = /* ERROR: no complex support in C */;
double r29008 = r28995 / r28997;
double r29009 = r29008 + r28997;
double r29010 = -r29009;
double r29011 = r29001 + r29004;
double r29012 = /* ERROR: no complex support in C */;
double r29013 = r29002 * r29012;
double r29014 = r29007 + r29013;
double r29015 = r29002 * r29014;
double r29016 = r29005 + r29015;
double r29017 = r29002 * r29016;
double r29018 = 7.0;
double r29019 = /* ERROR: no complex support in C */;
double r29020 = r29017 + r29019;
double r29021 = /* ERROR: no complex support in C */;
return r29021;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019351
(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))))