\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 r19733 = 1.0;
double r19734 = -r19733;
double r19735 = 2.0;
double r19736 = r19734 / r19735;
double r19737 = 3.0;
double r19738 = sqrt(r19737);
double r19739 = r19738 / r19735;
double r19740 = /* ERROR: no complex support in C */;
double r19741 = r19740 * r19740;
double r19742 = r19741 * r19740;
double r19743 = r19742 * r19740;
double r19744 = -r19735;
double r19745 = 0.0;
double r19746 = /* ERROR: no complex support in C */;
double r19747 = r19746 * r19740;
double r19748 = r19747 * r19740;
double r19749 = r19748 * r19740;
double r19750 = r19743 + r19749;
double r19751 = 5.0;
double r19752 = /* ERROR: no complex support in C */;
double r19753 = r19752 * r19740;
double r19754 = r19753 * r19740;
double r19755 = r19750 + r19754;
double r19756 = 4.0;
double r19757 = /* ERROR: no complex support in C */;
double r19758 = r19757 * r19740;
double r19759 = r19755 + r19758;
double r19760 = 7.0;
double r19761 = /* ERROR: no complex support in C */;
double r19762 = r19759 + r19761;
double r19763 = /* ERROR: no complex support in C */;
return r19763;
}
double f() {
double r19764 = 1.0;
double r19765 = -r19764;
double r19766 = 2.0;
double r19767 = r19765 / r19766;
double r19768 = 3.0;
double r19769 = sqrt(r19768);
double r19770 = r19769 / r19766;
double r19771 = /* ERROR: no complex support in C */;
double r19772 = r19771 * r19771;
double r19773 = r19772 * r19771;
double r19774 = r19773 * r19771;
double r19775 = -r19766;
double r19776 = 0.0;
double r19777 = /* ERROR: no complex support in C */;
double r19778 = r19777 * r19771;
double r19779 = r19778 * r19771;
double r19780 = r19779 * r19771;
double r19781 = r19774 + r19780;
double r19782 = 5.0;
double r19783 = /* ERROR: no complex support in C */;
double r19784 = r19783 * r19771;
double r19785 = r19784 * r19771;
double r19786 = r19781 + r19785;
double r19787 = 4.0;
double r19788 = /* ERROR: no complex support in C */;
double r19789 = r19788 * r19771;
double r19790 = r19786 + r19789;
double r19791 = 7.0;
double r19792 = /* ERROR: no complex support in C */;
double r19793 = r19790 + r19792;
double r19794 = /* ERROR: no complex support in C */;
return r19794;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019297
(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))))