\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 r29737 = 1.0;
double r29738 = -r29737;
double r29739 = 2.0;
double r29740 = r29738 / r29739;
double r29741 = 3.0;
double r29742 = sqrt(r29741);
double r29743 = r29742 / r29739;
double r29744 = /* ERROR: no complex support in C */;
double r29745 = r29744 * r29744;
double r29746 = r29745 * r29744;
double r29747 = r29746 * r29744;
double r29748 = -r29739;
double r29749 = 0.0;
double r29750 = /* ERROR: no complex support in C */;
double r29751 = r29750 * r29744;
double r29752 = r29751 * r29744;
double r29753 = r29752 * r29744;
double r29754 = r29747 + r29753;
double r29755 = 5.0;
double r29756 = /* ERROR: no complex support in C */;
double r29757 = r29756 * r29744;
double r29758 = r29757 * r29744;
double r29759 = r29754 + r29758;
double r29760 = 4.0;
double r29761 = /* ERROR: no complex support in C */;
double r29762 = r29761 * r29744;
double r29763 = r29759 + r29762;
double r29764 = 7.0;
double r29765 = /* ERROR: no complex support in C */;
double r29766 = r29763 + r29765;
double r29767 = /* ERROR: no complex support in C */;
return r29767;
}
double f() {
double r29768 = 1.0;
double r29769 = -r29768;
double r29770 = 2.0;
double r29771 = r29769 / r29770;
double r29772 = 3.0;
double r29773 = sqrt(r29772);
double r29774 = r29773 / r29770;
double r29775 = /* ERROR: no complex support in C */;
double r29776 = r29775 * r29775;
double r29777 = r29776 * r29775;
double r29778 = r29777 * r29775;
double r29779 = -r29770;
double r29780 = 0.0;
double r29781 = /* ERROR: no complex support in C */;
double r29782 = r29781 * r29775;
double r29783 = r29782 * r29775;
double r29784 = r29783 * r29775;
double r29785 = r29778 + r29784;
double r29786 = 5.0;
double r29787 = /* ERROR: no complex support in C */;
double r29788 = r29787 * r29775;
double r29789 = r29788 * r29775;
double r29790 = r29785 + r29789;
double r29791 = 4.0;
double r29792 = /* ERROR: no complex support in C */;
double r29793 = r29792 * r29775;
double r29794 = r29790 + r29793;
double r29795 = 7.0;
double r29796 = /* ERROR: no complex support in C */;
double r29797 = r29794 + r29796;
double r29798 = /* ERROR: no complex support in C */;
return r29798;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020027
(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))))