\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 r24364 = 1.0;
double r24365 = -r24364;
double r24366 = 2.0;
double r24367 = r24365 / r24366;
double r24368 = 3.0;
double r24369 = sqrt(r24368);
double r24370 = r24369 / r24366;
double r24371 = /* ERROR: no complex support in C */;
double r24372 = r24371 * r24371;
double r24373 = r24372 * r24371;
double r24374 = r24373 * r24371;
double r24375 = -r24366;
double r24376 = 0.0;
double r24377 = /* ERROR: no complex support in C */;
double r24378 = r24377 * r24371;
double r24379 = r24378 * r24371;
double r24380 = r24379 * r24371;
double r24381 = r24374 + r24380;
double r24382 = 5.0;
double r24383 = /* ERROR: no complex support in C */;
double r24384 = r24383 * r24371;
double r24385 = r24384 * r24371;
double r24386 = r24381 + r24385;
double r24387 = 4.0;
double r24388 = /* ERROR: no complex support in C */;
double r24389 = r24388 * r24371;
double r24390 = r24386 + r24389;
double r24391 = 7.0;
double r24392 = /* ERROR: no complex support in C */;
double r24393 = r24390 + r24392;
double r24394 = /* ERROR: no complex support in C */;
return r24394;
}
double f() {
double r24395 = 1.0;
double r24396 = -r24395;
double r24397 = 2.0;
double r24398 = r24396 / r24397;
double r24399 = 3.0;
double r24400 = sqrt(r24399);
double r24401 = r24400 / r24397;
double r24402 = /* ERROR: no complex support in C */;
double r24403 = r24402 * r24402;
double r24404 = r24403 * r24402;
double r24405 = r24404 * r24402;
double r24406 = -r24397;
double r24407 = 0.0;
double r24408 = /* ERROR: no complex support in C */;
double r24409 = r24408 * r24402;
double r24410 = r24409 * r24402;
double r24411 = r24410 * r24402;
double r24412 = r24405 + r24411;
double r24413 = 5.0;
double r24414 = /* ERROR: no complex support in C */;
double r24415 = r24414 * r24402;
double r24416 = r24415 * r24402;
double r24417 = r24412 + r24416;
double r24418 = 4.0;
double r24419 = /* ERROR: no complex support in C */;
double r24420 = r24419 * r24402;
double r24421 = r24417 + r24420;
double r24422 = 7.0;
double r24423 = /* ERROR: no complex support in C */;
double r24424 = r24421 + r24423;
double r24425 = /* ERROR: no complex support in C */;
return r24425;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020024
(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))))