\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(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right) + \left(6 + \frac{-1}{2} \cdot \frac{\sqrt{3}}{\frac{1}{2}} i\right)\right) \cdot \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right)\right))double f() {
double r1810564 = 1.0;
double r1810565 = -r1810564;
double r1810566 = 2.0;
double r1810567 = r1810565 / r1810566;
double r1810568 = 3.0;
double r1810569 = sqrt(r1810568);
double r1810570 = r1810569 / r1810566;
double r1810571 = /* ERROR: no complex support in C */;
double r1810572 = r1810571 * r1810571;
double r1810573 = r1810572 * r1810571;
double r1810574 = r1810573 * r1810571;
double r1810575 = -r1810566;
double r1810576 = 0.0;
double r1810577 = /* ERROR: no complex support in C */;
double r1810578 = r1810577 * r1810571;
double r1810579 = r1810578 * r1810571;
double r1810580 = r1810579 * r1810571;
double r1810581 = r1810574 + r1810580;
double r1810582 = 5.0;
double r1810583 = /* ERROR: no complex support in C */;
double r1810584 = r1810583 * r1810571;
double r1810585 = r1810584 * r1810571;
double r1810586 = r1810581 + r1810585;
double r1810587 = 4.0;
double r1810588 = /* ERROR: no complex support in C */;
double r1810589 = r1810588 * r1810571;
double r1810590 = r1810586 + r1810589;
double r1810591 = 7.0;
double r1810592 = /* ERROR: no complex support in C */;
double r1810593 = r1810590 + r1810592;
double r1810594 = /* ERROR: no complex support in C */;
return r1810594;
}
double f() {
double r1810595 = 5.0;
double r1810596 = 3.0;
double r1810597 = sqrt(r1810596);
double r1810598 = 2.0;
double r1810599 = r1810597 / r1810598;
double r1810600 = 4.0;
double r1810601 = r1810599 * r1810600;
double r1810602 = /* ERROR: no complex support in C */;
double r1810603 = 0.25;
double r1810604 = r1810599 * r1810599;
double r1810605 = r1810603 - r1810604;
double r1810606 = -r1810597;
double r1810607 = r1810606 / r1810598;
double r1810608 = /* ERROR: no complex support in C */;
double r1810609 = 6.0;
double r1810610 = -0.5;
double r1810611 = 0.5;
double r1810612 = r1810597 / r1810611;
double r1810613 = r1810610 * r1810612;
double r1810614 = /* ERROR: no complex support in C */;
double r1810615 = r1810608 + r1810614;
double r1810616 = r1810615 * r1810608;
double r1810617 = r1810602 + r1810616;
double r1810618 = /* ERROR: no complex support in C */;
return r1810618;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019158
(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))))