\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 r33766 = 1.0;
double r33767 = -r33766;
double r33768 = 2.0;
double r33769 = r33767 / r33768;
double r33770 = 3.0;
double r33771 = sqrt(r33770);
double r33772 = r33771 / r33768;
double r33773 = /* ERROR: no complex support in C */;
double r33774 = r33773 * r33773;
double r33775 = r33774 * r33773;
double r33776 = r33775 * r33773;
double r33777 = -r33768;
double r33778 = 0.0;
double r33779 = /* ERROR: no complex support in C */;
double r33780 = r33779 * r33773;
double r33781 = r33780 * r33773;
double r33782 = r33781 * r33773;
double r33783 = r33776 + r33782;
double r33784 = 5.0;
double r33785 = /* ERROR: no complex support in C */;
double r33786 = r33785 * r33773;
double r33787 = r33786 * r33773;
double r33788 = r33783 + r33787;
double r33789 = 4.0;
double r33790 = /* ERROR: no complex support in C */;
double r33791 = r33790 * r33773;
double r33792 = r33788 + r33791;
double r33793 = 7.0;
double r33794 = /* ERROR: no complex support in C */;
double r33795 = r33792 + r33794;
double r33796 = /* ERROR: no complex support in C */;
return r33796;
}
double f() {
double r33797 = 1.0;
double r33798 = -r33797;
double r33799 = 2.0;
double r33800 = r33798 / r33799;
double r33801 = 3.0;
double r33802 = sqrt(r33801);
double r33803 = r33802 / r33799;
double r33804 = /* ERROR: no complex support in C */;
double r33805 = r33804 * r33804;
double r33806 = r33805 * r33804;
double r33807 = r33806 * r33804;
double r33808 = -r33799;
double r33809 = 0.0;
double r33810 = /* ERROR: no complex support in C */;
double r33811 = r33810 * r33804;
double r33812 = r33811 * r33804;
double r33813 = r33812 * r33804;
double r33814 = r33807 + r33813;
double r33815 = 5.0;
double r33816 = /* ERROR: no complex support in C */;
double r33817 = r33816 * r33804;
double r33818 = r33817 * r33804;
double r33819 = r33814 + r33818;
double r33820 = 4.0;
double r33821 = /* ERROR: no complex support in C */;
double r33822 = r33821 * r33804;
double r33823 = r33819 + r33822;
double r33824 = 7.0;
double r33825 = /* ERROR: no complex support in C */;
double r33826 = r33823 + r33825;
double r33827 = /* ERROR: no complex support in C */;
return r33827;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020020
(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))))