\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 r26053 = 1.0;
double r26054 = -r26053;
double r26055 = 2.0;
double r26056 = r26054 / r26055;
double r26057 = 3.0;
double r26058 = sqrt(r26057);
double r26059 = r26058 / r26055;
double r26060 = /* ERROR: no complex support in C */;
double r26061 = r26060 * r26060;
double r26062 = r26061 * r26060;
double r26063 = r26062 * r26060;
double r26064 = -r26055;
double r26065 = 0.0;
double r26066 = /* ERROR: no complex support in C */;
double r26067 = r26066 * r26060;
double r26068 = r26067 * r26060;
double r26069 = r26068 * r26060;
double r26070 = r26063 + r26069;
double r26071 = 5.0;
double r26072 = /* ERROR: no complex support in C */;
double r26073 = r26072 * r26060;
double r26074 = r26073 * r26060;
double r26075 = r26070 + r26074;
double r26076 = 4.0;
double r26077 = /* ERROR: no complex support in C */;
double r26078 = r26077 * r26060;
double r26079 = r26075 + r26078;
double r26080 = 7.0;
double r26081 = /* ERROR: no complex support in C */;
double r26082 = r26079 + r26081;
double r26083 = /* ERROR: no complex support in C */;
return r26083;
}
double f() {
double r26084 = 1.0;
double r26085 = -r26084;
double r26086 = 2.0;
double r26087 = r26085 / r26086;
double r26088 = 3.0;
double r26089 = sqrt(r26088);
double r26090 = r26089 / r26086;
double r26091 = /* ERROR: no complex support in C */;
double r26092 = 4.0;
double r26093 = 0.0;
double r26094 = /* ERROR: no complex support in C */;
double r26095 = r26084 / r26086;
double r26096 = r26095 + r26086;
double r26097 = -r26096;
double r26098 = r26090 + r26093;
double r26099 = /* ERROR: no complex support in C */;
double r26100 = r26091 * r26099;
double r26101 = 5.0;
double r26102 = /* ERROR: no complex support in C */;
double r26103 = r26100 + r26102;
double r26104 = r26091 * r26103;
double r26105 = r26094 + r26104;
double r26106 = r26091 * r26105;
double r26107 = 7.0;
double r26108 = /* ERROR: no complex support in C */;
double r26109 = r26106 + r26108;
double r26110 = /* ERROR: no complex support in C */;
return r26110;
}
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))))