\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 r19667 = 1.0;
double r19668 = -r19667;
double r19669 = 2.0;
double r19670 = r19668 / r19669;
double r19671 = 3.0;
double r19672 = sqrt(r19671);
double r19673 = r19672 / r19669;
double r19674 = /* ERROR: no complex support in C */;
double r19675 = r19674 * r19674;
double r19676 = r19675 * r19674;
double r19677 = r19676 * r19674;
double r19678 = -r19669;
double r19679 = 0.0;
double r19680 = /* ERROR: no complex support in C */;
double r19681 = r19680 * r19674;
double r19682 = r19681 * r19674;
double r19683 = r19682 * r19674;
double r19684 = r19677 + r19683;
double r19685 = 5.0;
double r19686 = /* ERROR: no complex support in C */;
double r19687 = r19686 * r19674;
double r19688 = r19687 * r19674;
double r19689 = r19684 + r19688;
double r19690 = 4.0;
double r19691 = /* ERROR: no complex support in C */;
double r19692 = r19691 * r19674;
double r19693 = r19689 + r19692;
double r19694 = 7.0;
double r19695 = /* ERROR: no complex support in C */;
double r19696 = r19693 + r19695;
double r19697 = /* ERROR: no complex support in C */;
return r19697;
}
double f() {
double r19698 = 1.0;
double r19699 = -r19698;
double r19700 = 2.0;
double r19701 = r19699 / r19700;
double r19702 = 3.0;
double r19703 = sqrt(r19702);
double r19704 = r19703 / r19700;
double r19705 = /* ERROR: no complex support in C */;
double r19706 = r19705 * r19705;
double r19707 = r19706 * r19705;
double r19708 = r19707 * r19705;
double r19709 = -r19700;
double r19710 = 0.0;
double r19711 = /* ERROR: no complex support in C */;
double r19712 = r19711 * r19705;
double r19713 = r19712 * r19705;
double r19714 = r19713 * r19705;
double r19715 = r19708 + r19714;
double r19716 = 5.0;
double r19717 = /* ERROR: no complex support in C */;
double r19718 = r19717 * r19705;
double r19719 = r19718 * r19705;
double r19720 = r19715 + r19719;
double r19721 = 4.0;
double r19722 = /* ERROR: no complex support in C */;
double r19723 = r19722 * r19705;
double r19724 = r19720 + r19723;
double r19725 = 7.0;
double r19726 = /* ERROR: no complex support in C */;
double r19727 = r19724 + r19726;
double r19728 = /* ERROR: no complex support in C */;
return r19728;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020059
(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))))