\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 r24983 = 1.0;
double r24984 = -r24983;
double r24985 = 2.0;
double r24986 = r24984 / r24985;
double r24987 = 3.0;
double r24988 = sqrt(r24987);
double r24989 = r24988 / r24985;
double r24990 = /* ERROR: no complex support in C */;
double r24991 = r24990 * r24990;
double r24992 = r24991 * r24990;
double r24993 = r24992 * r24990;
double r24994 = -r24985;
double r24995 = 0.0;
double r24996 = /* ERROR: no complex support in C */;
double r24997 = r24996 * r24990;
double r24998 = r24997 * r24990;
double r24999 = r24998 * r24990;
double r25000 = r24993 + r24999;
double r25001 = 5.0;
double r25002 = /* ERROR: no complex support in C */;
double r25003 = r25002 * r24990;
double r25004 = r25003 * r24990;
double r25005 = r25000 + r25004;
double r25006 = 4.0;
double r25007 = /* ERROR: no complex support in C */;
double r25008 = r25007 * r24990;
double r25009 = r25005 + r25008;
double r25010 = 7.0;
double r25011 = /* ERROR: no complex support in C */;
double r25012 = r25009 + r25011;
double r25013 = /* ERROR: no complex support in C */;
return r25013;
}
double f() {
double r25014 = 1.0;
double r25015 = -r25014;
double r25016 = 2.0;
double r25017 = r25015 / r25016;
double r25018 = 3.0;
double r25019 = sqrt(r25018);
double r25020 = r25019 / r25016;
double r25021 = /* ERROR: no complex support in C */;
double r25022 = 4.0;
double r25023 = 0.0;
double r25024 = /* ERROR: no complex support in C */;
double r25025 = r25014 / r25016;
double r25026 = r25025 + r25016;
double r25027 = -r25026;
double r25028 = r25020 + r25023;
double r25029 = /* ERROR: no complex support in C */;
double r25030 = r25021 * r25029;
double r25031 = 5.0;
double r25032 = /* ERROR: no complex support in C */;
double r25033 = r25030 + r25032;
double r25034 = r25021 * r25033;
double r25035 = r25024 + r25034;
double r25036 = r25021 * r25035;
double r25037 = 7.0;
double r25038 = /* ERROR: no complex support in C */;
double r25039 = r25036 + r25038;
double r25040 = /* ERROR: no complex support in C */;
return r25040;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019303 +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))))