\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(\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(\frac{-1}{2} - 2\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\right)\right) + \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r78747 = 1.0;
double r78748 = -r78747;
double r78749 = 2.0;
double r78750 = r78748 / r78749;
double r78751 = 3.0;
double r78752 = sqrt(r78751);
double r78753 = r78752 / r78749;
double r78754 = /* ERROR: no complex support in C */;
double r78755 = r78754 * r78754;
double r78756 = r78755 * r78754;
double r78757 = r78756 * r78754;
double r78758 = -r78749;
double r78759 = 0.0;
double r78760 = /* ERROR: no complex support in C */;
double r78761 = r78760 * r78754;
double r78762 = r78761 * r78754;
double r78763 = r78762 * r78754;
double r78764 = r78757 + r78763;
double r78765 = 5.0;
double r78766 = /* ERROR: no complex support in C */;
double r78767 = r78766 * r78754;
double r78768 = r78767 * r78754;
double r78769 = r78764 + r78768;
double r78770 = 4.0;
double r78771 = /* ERROR: no complex support in C */;
double r78772 = r78771 * r78754;
double r78773 = r78769 + r78772;
double r78774 = 7.0;
double r78775 = /* ERROR: no complex support in C */;
double r78776 = r78773 + r78775;
double r78777 = /* ERROR: no complex support in C */;
return r78777;
}
double f() {
double r78778 = 1.0;
double r78779 = -r78778;
double r78780 = 2.0;
double r78781 = r78779 / r78780;
double r78782 = 3.0;
double r78783 = sqrt(r78782);
double r78784 = r78783 / r78780;
double r78785 = /* ERROR: no complex support in C */;
double r78786 = 5.0;
double r78787 = 0.0;
double r78788 = /* ERROR: no complex support in C */;
double r78789 = r78781 - r78780;
double r78790 = r78784 + r78787;
double r78791 = /* ERROR: no complex support in C */;
double r78792 = r78785 * r78791;
double r78793 = r78788 + r78792;
double r78794 = r78785 * r78793;
double r78795 = 4.0;
double r78796 = /* ERROR: no complex support in C */;
double r78797 = r78794 + r78796;
double r78798 = r78785 * r78797;
double r78799 = 7.0;
double r78800 = /* ERROR: no complex support in C */;
double r78801 = r78798 + r78800;
double r78802 = /* ERROR: no complex support in C */;
return r78802;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020047 +o rules:numerics
(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))))