\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 r21731 = 1.0;
double r21732 = -r21731;
double r21733 = 2.0;
double r21734 = r21732 / r21733;
double r21735 = 3.0;
double r21736 = sqrt(r21735);
double r21737 = r21736 / r21733;
double r21738 = /* ERROR: no complex support in C */;
double r21739 = r21738 * r21738;
double r21740 = r21739 * r21738;
double r21741 = r21740 * r21738;
double r21742 = -r21733;
double r21743 = 0.0;
double r21744 = /* ERROR: no complex support in C */;
double r21745 = r21744 * r21738;
double r21746 = r21745 * r21738;
double r21747 = r21746 * r21738;
double r21748 = r21741 + r21747;
double r21749 = 5.0;
double r21750 = /* ERROR: no complex support in C */;
double r21751 = r21750 * r21738;
double r21752 = r21751 * r21738;
double r21753 = r21748 + r21752;
double r21754 = 4.0;
double r21755 = /* ERROR: no complex support in C */;
double r21756 = r21755 * r21738;
double r21757 = r21753 + r21756;
double r21758 = 7.0;
double r21759 = /* ERROR: no complex support in C */;
double r21760 = r21757 + r21759;
double r21761 = /* ERROR: no complex support in C */;
return r21761;
}
double f() {
double r21762 = 1.0;
double r21763 = -r21762;
double r21764 = 2.0;
double r21765 = r21763 / r21764;
double r21766 = 3.0;
double r21767 = sqrt(r21766);
double r21768 = r21767 / r21764;
double r21769 = /* ERROR: no complex support in C */;
double r21770 = r21769 * r21769;
double r21771 = r21770 * r21769;
double r21772 = r21771 * r21769;
double r21773 = -r21764;
double r21774 = 0.0;
double r21775 = /* ERROR: no complex support in C */;
double r21776 = r21775 * r21769;
double r21777 = r21776 * r21769;
double r21778 = r21777 * r21769;
double r21779 = r21772 + r21778;
double r21780 = 5.0;
double r21781 = /* ERROR: no complex support in C */;
double r21782 = r21781 * r21769;
double r21783 = r21782 * r21769;
double r21784 = r21779 + r21783;
double r21785 = 4.0;
double r21786 = /* ERROR: no complex support in C */;
double r21787 = r21786 * r21769;
double r21788 = r21784 + r21787;
double r21789 = 7.0;
double r21790 = /* ERROR: no complex support in C */;
double r21791 = r21788 + r21790;
double r21792 = /* ERROR: no complex support in C */;
return r21792;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020064
(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))))