\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(-\left(\frac{1}{2} + 2\right)\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 r29567 = 1.0;
double r29568 = -r29567;
double r29569 = 2.0;
double r29570 = r29568 / r29569;
double r29571 = 3.0;
double r29572 = sqrt(r29571);
double r29573 = r29572 / r29569;
double r29574 = /* ERROR: no complex support in C */;
double r29575 = r29574 * r29574;
double r29576 = r29575 * r29574;
double r29577 = r29576 * r29574;
double r29578 = -r29569;
double r29579 = 0.0;
double r29580 = /* ERROR: no complex support in C */;
double r29581 = r29580 * r29574;
double r29582 = r29581 * r29574;
double r29583 = r29582 * r29574;
double r29584 = r29577 + r29583;
double r29585 = 5.0;
double r29586 = /* ERROR: no complex support in C */;
double r29587 = r29586 * r29574;
double r29588 = r29587 * r29574;
double r29589 = r29584 + r29588;
double r29590 = 4.0;
double r29591 = /* ERROR: no complex support in C */;
double r29592 = r29591 * r29574;
double r29593 = r29589 + r29592;
double r29594 = 7.0;
double r29595 = /* ERROR: no complex support in C */;
double r29596 = r29593 + r29595;
double r29597 = /* ERROR: no complex support in C */;
return r29597;
}
double f() {
double r29598 = 1.0;
double r29599 = -r29598;
double r29600 = 2.0;
double r29601 = r29599 / r29600;
double r29602 = 3.0;
double r29603 = sqrt(r29602);
double r29604 = r29603 / r29600;
double r29605 = /* ERROR: no complex support in C */;
double r29606 = 5.0;
double r29607 = 0.0;
double r29608 = /* ERROR: no complex support in C */;
double r29609 = r29598 / r29600;
double r29610 = r29609 + r29600;
double r29611 = -r29610;
double r29612 = r29604 + r29607;
double r29613 = /* ERROR: no complex support in C */;
double r29614 = r29605 * r29613;
double r29615 = r29608 + r29614;
double r29616 = r29605 * r29615;
double r29617 = 4.0;
double r29618 = /* ERROR: no complex support in C */;
double r29619 = r29616 + r29618;
double r29620 = r29605 * r29619;
double r29621 = 7.0;
double r29622 = /* ERROR: no complex support in C */;
double r29623 = r29620 + r29622;
double r29624 = /* ERROR: no complex support in C */;
return r29624;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019235
(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))))