\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(\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(\frac{-1}{2} - 2\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\right)\right) + \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r26270 = 1.0;
double r26271 = -r26270;
double r26272 = 2.0;
double r26273 = r26271 / r26272;
double r26274 = 3.0;
double r26275 = sqrt(r26274);
double r26276 = r26275 / r26272;
double r26277 = /* ERROR: no complex support in C */;
double r26278 = r26277 * r26277;
double r26279 = r26278 * r26277;
double r26280 = r26279 * r26277;
double r26281 = -r26272;
double r26282 = 0.0;
double r26283 = /* ERROR: no complex support in C */;
double r26284 = r26283 * r26277;
double r26285 = r26284 * r26277;
double r26286 = r26285 * r26277;
double r26287 = r26280 + r26286;
double r26288 = 5.0;
double r26289 = /* ERROR: no complex support in C */;
double r26290 = r26289 * r26277;
double r26291 = r26290 * r26277;
double r26292 = r26287 + r26291;
double r26293 = 4.0;
double r26294 = /* ERROR: no complex support in C */;
double r26295 = r26294 * r26277;
double r26296 = r26292 + r26295;
double r26297 = 7.0;
double r26298 = /* ERROR: no complex support in C */;
double r26299 = r26296 + r26298;
double r26300 = /* ERROR: no complex support in C */;
return r26300;
}
double f() {
double r26301 = 1.0;
double r26302 = -r26301;
double r26303 = 2.0;
double r26304 = r26302 / r26303;
double r26305 = 3.0;
double r26306 = sqrt(r26305);
double r26307 = r26306 / r26303;
double r26308 = /* ERROR: no complex support in C */;
double r26309 = 5.0;
double r26310 = 0.0;
double r26311 = /* ERROR: no complex support in C */;
double r26312 = r26304 - r26303;
double r26313 = r26307 + r26310;
double r26314 = /* ERROR: no complex support in C */;
double r26315 = r26308 * r26314;
double r26316 = r26311 + r26315;
double r26317 = r26308 * r26316;
double r26318 = 4.0;
double r26319 = /* ERROR: no complex support in C */;
double r26320 = r26317 + r26319;
double r26321 = r26308 * r26320;
double r26322 = 7.0;
double r26323 = /* ERROR: no complex support in C */;
double r26324 = r26321 + r26323;
double r26325 = /* ERROR: no complex support in C */;
return r26325;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020046 +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))))