\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 r22691 = 1.0;
double r22692 = -r22691;
double r22693 = 2.0;
double r22694 = r22692 / r22693;
double r22695 = 3.0;
double r22696 = sqrt(r22695);
double r22697 = r22696 / r22693;
double r22698 = /* ERROR: no complex support in C */;
double r22699 = r22698 * r22698;
double r22700 = r22699 * r22698;
double r22701 = r22700 * r22698;
double r22702 = -r22693;
double r22703 = 0.0;
double r22704 = /* ERROR: no complex support in C */;
double r22705 = r22704 * r22698;
double r22706 = r22705 * r22698;
double r22707 = r22706 * r22698;
double r22708 = r22701 + r22707;
double r22709 = 5.0;
double r22710 = /* ERROR: no complex support in C */;
double r22711 = r22710 * r22698;
double r22712 = r22711 * r22698;
double r22713 = r22708 + r22712;
double r22714 = 4.0;
double r22715 = /* ERROR: no complex support in C */;
double r22716 = r22715 * r22698;
double r22717 = r22713 + r22716;
double r22718 = 7.0;
double r22719 = /* ERROR: no complex support in C */;
double r22720 = r22717 + r22719;
double r22721 = /* ERROR: no complex support in C */;
return r22721;
}
double f() {
double r22722 = 1.0;
double r22723 = -r22722;
double r22724 = 2.0;
double r22725 = r22723 / r22724;
double r22726 = 3.0;
double r22727 = sqrt(r22726);
double r22728 = r22727 / r22724;
double r22729 = /* ERROR: no complex support in C */;
double r22730 = r22729 * r22729;
double r22731 = r22730 * r22729;
double r22732 = r22731 * r22729;
double r22733 = -r22724;
double r22734 = 0.0;
double r22735 = /* ERROR: no complex support in C */;
double r22736 = r22735 * r22729;
double r22737 = r22736 * r22729;
double r22738 = r22737 * r22729;
double r22739 = r22732 + r22738;
double r22740 = 5.0;
double r22741 = /* ERROR: no complex support in C */;
double r22742 = r22741 * r22729;
double r22743 = r22742 * r22729;
double r22744 = r22739 + r22743;
double r22745 = 4.0;
double r22746 = /* ERROR: no complex support in C */;
double r22747 = r22746 * r22729;
double r22748 = r22744 + r22747;
double r22749 = 7.0;
double r22750 = /* ERROR: no complex support in C */;
double r22751 = r22748 + r22750;
double r22752 = /* ERROR: no complex support in C */;
return r22752;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020039
(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))))