\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 r25638 = 1.0;
double r25639 = -r25638;
double r25640 = 2.0;
double r25641 = r25639 / r25640;
double r25642 = 3.0;
double r25643 = sqrt(r25642);
double r25644 = r25643 / r25640;
double r25645 = /* ERROR: no complex support in C */;
double r25646 = r25645 * r25645;
double r25647 = r25646 * r25645;
double r25648 = r25647 * r25645;
double r25649 = -r25640;
double r25650 = 0.0;
double r25651 = /* ERROR: no complex support in C */;
double r25652 = r25651 * r25645;
double r25653 = r25652 * r25645;
double r25654 = r25653 * r25645;
double r25655 = r25648 + r25654;
double r25656 = 5.0;
double r25657 = /* ERROR: no complex support in C */;
double r25658 = r25657 * r25645;
double r25659 = r25658 * r25645;
double r25660 = r25655 + r25659;
double r25661 = 4.0;
double r25662 = /* ERROR: no complex support in C */;
double r25663 = r25662 * r25645;
double r25664 = r25660 + r25663;
double r25665 = 7.0;
double r25666 = /* ERROR: no complex support in C */;
double r25667 = r25664 + r25666;
double r25668 = /* ERROR: no complex support in C */;
return r25668;
}
double f() {
double r25669 = 1.0;
double r25670 = -r25669;
double r25671 = 2.0;
double r25672 = r25670 / r25671;
double r25673 = 3.0;
double r25674 = sqrt(r25673);
double r25675 = r25674 / r25671;
double r25676 = /* ERROR: no complex support in C */;
double r25677 = r25676 * r25676;
double r25678 = r25677 * r25676;
double r25679 = r25678 * r25676;
double r25680 = -r25671;
double r25681 = 0.0;
double r25682 = /* ERROR: no complex support in C */;
double r25683 = r25682 * r25676;
double r25684 = r25683 * r25676;
double r25685 = r25684 * r25676;
double r25686 = r25679 + r25685;
double r25687 = 5.0;
double r25688 = /* ERROR: no complex support in C */;
double r25689 = r25688 * r25676;
double r25690 = r25689 * r25676;
double r25691 = r25686 + r25690;
double r25692 = 4.0;
double r25693 = /* ERROR: no complex support in C */;
double r25694 = r25693 * r25676;
double r25695 = r25691 + r25694;
double r25696 = 7.0;
double r25697 = /* ERROR: no complex support in C */;
double r25698 = r25695 + r25697;
double r25699 = /* ERROR: no complex support in C */;
return r25699;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020001
(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))))