\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 r21586 = 1.0;
double r21587 = -r21586;
double r21588 = 2.0;
double r21589 = r21587 / r21588;
double r21590 = 3.0;
double r21591 = sqrt(r21590);
double r21592 = r21591 / r21588;
double r21593 = /* ERROR: no complex support in C */;
double r21594 = r21593 * r21593;
double r21595 = r21594 * r21593;
double r21596 = r21595 * r21593;
double r21597 = -r21588;
double r21598 = 0.0;
double r21599 = /* ERROR: no complex support in C */;
double r21600 = r21599 * r21593;
double r21601 = r21600 * r21593;
double r21602 = r21601 * r21593;
double r21603 = r21596 + r21602;
double r21604 = 5.0;
double r21605 = /* ERROR: no complex support in C */;
double r21606 = r21605 * r21593;
double r21607 = r21606 * r21593;
double r21608 = r21603 + r21607;
double r21609 = 4.0;
double r21610 = /* ERROR: no complex support in C */;
double r21611 = r21610 * r21593;
double r21612 = r21608 + r21611;
double r21613 = 7.0;
double r21614 = /* ERROR: no complex support in C */;
double r21615 = r21612 + r21614;
double r21616 = /* ERROR: no complex support in C */;
return r21616;
}
double f() {
double r21617 = 1.0;
double r21618 = -r21617;
double r21619 = 2.0;
double r21620 = r21618 / r21619;
double r21621 = 3.0;
double r21622 = sqrt(r21621);
double r21623 = r21622 / r21619;
double r21624 = /* ERROR: no complex support in C */;
double r21625 = r21624 * r21624;
double r21626 = r21625 * r21624;
double r21627 = r21626 * r21624;
double r21628 = -r21619;
double r21629 = 0.0;
double r21630 = /* ERROR: no complex support in C */;
double r21631 = r21630 * r21624;
double r21632 = r21631 * r21624;
double r21633 = r21632 * r21624;
double r21634 = r21627 + r21633;
double r21635 = 5.0;
double r21636 = /* ERROR: no complex support in C */;
double r21637 = r21636 * r21624;
double r21638 = r21637 * r21624;
double r21639 = r21634 + r21638;
double r21640 = 4.0;
double r21641 = /* ERROR: no complex support in C */;
double r21642 = r21641 * r21624;
double r21643 = r21639 + r21642;
double r21644 = 7.0;
double r21645 = /* ERROR: no complex support in C */;
double r21646 = r21643 + r21645;
double r21647 = /* ERROR: no complex support in C */;
return r21647;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019294
(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))))