\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(\frac{11}{2} + \left(\left(-\sqrt{3}\right) - \frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{-2} i\right) + \left(5 + \sqrt{3} \cdot 2 i\right)\right))double f() {
double r730531 = 1.0;
double r730532 = -r730531;
double r730533 = 2.0;
double r730534 = r730532 / r730533;
double r730535 = 3.0;
double r730536 = sqrt(r730535);
double r730537 = r730536 / r730533;
double r730538 = /* ERROR: no complex support in C */;
double r730539 = r730538 * r730538;
double r730540 = r730539 * r730538;
double r730541 = r730540 * r730538;
double r730542 = -r730533;
double r730543 = 0.0;
double r730544 = /* ERROR: no complex support in C */;
double r730545 = r730544 * r730538;
double r730546 = r730545 * r730538;
double r730547 = r730546 * r730538;
double r730548 = r730541 + r730547;
double r730549 = 5.0;
double r730550 = /* ERROR: no complex support in C */;
double r730551 = r730550 * r730538;
double r730552 = r730551 * r730538;
double r730553 = r730548 + r730552;
double r730554 = 4.0;
double r730555 = /* ERROR: no complex support in C */;
double r730556 = r730555 * r730538;
double r730557 = r730553 + r730556;
double r730558 = 7.0;
double r730559 = /* ERROR: no complex support in C */;
double r730560 = r730557 + r730559;
double r730561 = /* ERROR: no complex support in C */;
return r730561;
}
double f() {
double r730562 = 5.5;
double r730563 = 3.0;
double r730564 = sqrt(r730563);
double r730565 = -r730564;
double r730566 = 2.0;
double r730567 = r730564 / r730566;
double r730568 = r730565 - r730567;
double r730569 = /* ERROR: no complex support in C */;
double r730570 = -0.5;
double r730571 = -2.0;
double r730572 = r730564 / r730571;
double r730573 = /* ERROR: no complex support in C */;
double r730574 = r730569 * r730573;
double r730575 = 5.0;
double r730576 = r730564 * r730566;
double r730577 = /* ERROR: no complex support in C */;
double r730578 = r730574 + r730577;
double r730579 = /* ERROR: no complex support in C */;
return r730579;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019152
(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))))