\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 r210 = 1.0;
double r211 = -r210;
double r212 = 2.0;
double r213 = r211 / r212;
double r214 = 3.0;
double r215 = sqrt(r214);
double r216 = r215 / r212;
double r217 = /* ERROR: no complex support in C */;
double r218 = r217 * r217;
double r219 = r218 * r217;
double r220 = r219 * r217;
double r221 = -r212;
double r222 = 0.0;
double r223 = /* ERROR: no complex support in C */;
double r224 = r223 * r217;
double r225 = r224 * r217;
double r226 = r225 * r217;
double r227 = r220 + r226;
double r228 = 5.0;
double r229 = /* ERROR: no complex support in C */;
double r230 = r229 * r217;
double r231 = r230 * r217;
double r232 = r227 + r231;
double r233 = 4.0;
double r234 = /* ERROR: no complex support in C */;
double r235 = r234 * r217;
double r236 = r232 + r235;
double r237 = 7.0;
double r238 = /* ERROR: no complex support in C */;
double r239 = r236 + r238;
double r240 = /* ERROR: no complex support in C */;
return r240;
}
double f() {
double r241 = 1.0;
double r242 = -r241;
double r243 = 2.0;
double r244 = r242 / r243;
double r245 = 3.0;
double r246 = sqrt(r245);
double r247 = r246 / r243;
double r248 = /* ERROR: no complex support in C */;
double r249 = r248 * r248;
double r250 = r249 * r248;
double r251 = r250 * r248;
double r252 = -r243;
double r253 = 0.0;
double r254 = /* ERROR: no complex support in C */;
double r255 = r254 * r248;
double r256 = r255 * r248;
double r257 = r256 * r248;
double r258 = r251 + r257;
double r259 = 5.0;
double r260 = /* ERROR: no complex support in C */;
double r261 = r260 * r248;
double r262 = r261 * r248;
double r263 = r258 + r262;
double r264 = 4.0;
double r265 = /* ERROR: no complex support in C */;
double r266 = r265 * r248;
double r267 = r263 + r266;
double r268 = 7.0;
double r269 = /* ERROR: no complex support in C */;
double r270 = r267 + r269;
double r271 = /* ERROR: no complex support in C */;
return r271;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020025 +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))))