\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(5 + \frac{\sqrt{3}}{2} \cdot 4 i\right) + \left(\left(\left(\left(-\frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{1}{4}\right) + \frac{-\sqrt{3}}{2} i\right) + \left(6 + \frac{\sqrt{3}}{-1} i\right)\right) \cdot \left(\left(\left(-\frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{1}{4}\right) + \frac{-\sqrt{3}}{2} i\right)\right))double f() {
double r768401 = 1.0;
double r768402 = -r768401;
double r768403 = 2.0;
double r768404 = r768402 / r768403;
double r768405 = 3.0;
double r768406 = sqrt(r768405);
double r768407 = r768406 / r768403;
double r768408 = /* ERROR: no complex support in C */;
double r768409 = r768408 * r768408;
double r768410 = r768409 * r768408;
double r768411 = r768410 * r768408;
double r768412 = -r768403;
double r768413 = 0.0;
double r768414 = /* ERROR: no complex support in C */;
double r768415 = r768414 * r768408;
double r768416 = r768415 * r768408;
double r768417 = r768416 * r768408;
double r768418 = r768411 + r768417;
double r768419 = 5.0;
double r768420 = /* ERROR: no complex support in C */;
double r768421 = r768420 * r768408;
double r768422 = r768421 * r768408;
double r768423 = r768418 + r768422;
double r768424 = 4.0;
double r768425 = /* ERROR: no complex support in C */;
double r768426 = r768425 * r768408;
double r768427 = r768423 + r768426;
double r768428 = 7.0;
double r768429 = /* ERROR: no complex support in C */;
double r768430 = r768427 + r768429;
double r768431 = /* ERROR: no complex support in C */;
return r768431;
}
double f() {
double r768432 = 5.0;
double r768433 = 3.0;
double r768434 = sqrt(r768433);
double r768435 = 2.0;
double r768436 = r768434 / r768435;
double r768437 = 4.0;
double r768438 = r768436 * r768437;
double r768439 = /* ERROR: no complex support in C */;
double r768440 = r768436 * r768436;
double r768441 = -r768440;
double r768442 = 0.25;
double r768443 = r768441 + r768442;
double r768444 = -r768434;
double r768445 = r768444 / r768435;
double r768446 = /* ERROR: no complex support in C */;
double r768447 = 6.0;
double r768448 = -1.0;
double r768449 = r768434 / r768448;
double r768450 = /* ERROR: no complex support in C */;
double r768451 = r768446 + r768450;
double r768452 = r768451 * r768446;
double r768453 = r768439 + r768452;
double r768454 = /* ERROR: no complex support in C */;
return r768454;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019151
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))