\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(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) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(4 + 0.0 i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r32636 = 1.0;
double r32637 = -r32636;
double r32638 = 2.0;
double r32639 = r32637 / r32638;
double r32640 = 3.0;
double r32641 = sqrt(r32640);
double r32642 = r32641 / r32638;
double r32643 = /* ERROR: no complex support in C */;
double r32644 = r32643 * r32643;
double r32645 = r32644 * r32643;
double r32646 = r32645 * r32643;
double r32647 = -r32638;
double r32648 = 0.0;
double r32649 = /* ERROR: no complex support in C */;
double r32650 = r32649 * r32643;
double r32651 = r32650 * r32643;
double r32652 = r32651 * r32643;
double r32653 = r32646 + r32652;
double r32654 = 5.0;
double r32655 = /* ERROR: no complex support in C */;
double r32656 = r32655 * r32643;
double r32657 = r32656 * r32643;
double r32658 = r32653 + r32657;
double r32659 = 4.0;
double r32660 = /* ERROR: no complex support in C */;
double r32661 = r32660 * r32643;
double r32662 = r32658 + r32661;
double r32663 = 7.0;
double r32664 = /* ERROR: no complex support in C */;
double r32665 = r32662 + r32664;
double r32666 = /* ERROR: no complex support in C */;
return r32666;
}
double f() {
double r32667 = 5.0;
double r32668 = 0.0;
double r32669 = /* ERROR: no complex support in C */;
double r32670 = 1.0;
double r32671 = -r32670;
double r32672 = 2.0;
double r32673 = r32671 / r32672;
double r32674 = 3.0;
double r32675 = sqrt(r32674);
double r32676 = r32675 / r32672;
double r32677 = /* ERROR: no complex support in C */;
double r32678 = r32673 - r32672;
double r32679 = r32676 + r32668;
double r32680 = /* ERROR: no complex support in C */;
double r32681 = r32677 * r32680;
double r32682 = r32669 + r32681;
double r32683 = r32682 * r32677;
double r32684 = 4.0;
double r32685 = /* ERROR: no complex support in C */;
double r32686 = r32683 + r32685;
double r32687 = r32686 * r32677;
double r32688 = 7.0;
double r32689 = /* ERROR: no complex support in C */;
double r32690 = r32687 + r32689;
double r32691 = /* ERROR: no complex support in C */;
return r32691;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020042
(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))))