\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(4 + 0.0 i\right) + \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)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r25745 = 1.0;
double r25746 = -r25745;
double r25747 = 2.0;
double r25748 = r25746 / r25747;
double r25749 = 3.0;
double r25750 = sqrt(r25749);
double r25751 = r25750 / r25747;
double r25752 = /* ERROR: no complex support in C */;
double r25753 = r25752 * r25752;
double r25754 = r25753 * r25752;
double r25755 = r25754 * r25752;
double r25756 = -r25747;
double r25757 = 0.0;
double r25758 = /* ERROR: no complex support in C */;
double r25759 = r25758 * r25752;
double r25760 = r25759 * r25752;
double r25761 = r25760 * r25752;
double r25762 = r25755 + r25761;
double r25763 = 5.0;
double r25764 = /* ERROR: no complex support in C */;
double r25765 = r25764 * r25752;
double r25766 = r25765 * r25752;
double r25767 = r25762 + r25766;
double r25768 = 4.0;
double r25769 = /* ERROR: no complex support in C */;
double r25770 = r25769 * r25752;
double r25771 = r25767 + r25770;
double r25772 = 7.0;
double r25773 = /* ERROR: no complex support in C */;
double r25774 = r25771 + r25773;
double r25775 = /* ERROR: no complex support in C */;
return r25775;
}
double f() {
double r25776 = 1.0;
double r25777 = -r25776;
double r25778 = 2.0;
double r25779 = r25777 / r25778;
double r25780 = 3.0;
double r25781 = sqrt(r25780);
double r25782 = r25781 / r25778;
double r25783 = /* ERROR: no complex support in C */;
double r25784 = 4.0;
double r25785 = 0.0;
double r25786 = /* ERROR: no complex support in C */;
double r25787 = 5.0;
double r25788 = /* ERROR: no complex support in C */;
double r25789 = r25776 / r25778;
double r25790 = r25789 + r25778;
double r25791 = -r25790;
double r25792 = r25782 + r25785;
double r25793 = /* ERROR: no complex support in C */;
double r25794 = r25783 * r25793;
double r25795 = r25788 + r25794;
double r25796 = r25783 * r25795;
double r25797 = r25786 + r25796;
double r25798 = r25783 * r25797;
double r25799 = 7.0;
double r25800 = /* ERROR: no complex support in C */;
double r25801 = r25798 + r25800;
double r25802 = /* ERROR: no complex support in C */;
return r25802;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019350
(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))))