\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 r25807 = 1.0;
double r25808 = -r25807;
double r25809 = 2.0;
double r25810 = r25808 / r25809;
double r25811 = 3.0;
double r25812 = sqrt(r25811);
double r25813 = r25812 / r25809;
double r25814 = /* ERROR: no complex support in C */;
double r25815 = r25814 * r25814;
double r25816 = r25815 * r25814;
double r25817 = r25816 * r25814;
double r25818 = -r25809;
double r25819 = 0.0;
double r25820 = /* ERROR: no complex support in C */;
double r25821 = r25820 * r25814;
double r25822 = r25821 * r25814;
double r25823 = r25822 * r25814;
double r25824 = r25817 + r25823;
double r25825 = 5.0;
double r25826 = /* ERROR: no complex support in C */;
double r25827 = r25826 * r25814;
double r25828 = r25827 * r25814;
double r25829 = r25824 + r25828;
double r25830 = 4.0;
double r25831 = /* ERROR: no complex support in C */;
double r25832 = r25831 * r25814;
double r25833 = r25829 + r25832;
double r25834 = 7.0;
double r25835 = /* ERROR: no complex support in C */;
double r25836 = r25833 + r25835;
double r25837 = /* ERROR: no complex support in C */;
return r25837;
}
double f() {
double r25838 = 1.0;
double r25839 = -r25838;
double r25840 = 2.0;
double r25841 = r25839 / r25840;
double r25842 = 3.0;
double r25843 = sqrt(r25842);
double r25844 = r25843 / r25840;
double r25845 = /* ERROR: no complex support in C */;
double r25846 = r25845 * r25845;
double r25847 = r25846 * r25845;
double r25848 = r25847 * r25845;
double r25849 = -r25840;
double r25850 = 0.0;
double r25851 = /* ERROR: no complex support in C */;
double r25852 = r25851 * r25845;
double r25853 = r25852 * r25845;
double r25854 = r25853 * r25845;
double r25855 = r25848 + r25854;
double r25856 = 5.0;
double r25857 = /* ERROR: no complex support in C */;
double r25858 = r25857 * r25845;
double r25859 = r25858 * r25845;
double r25860 = r25855 + r25859;
double r25861 = 4.0;
double r25862 = /* ERROR: no complex support in C */;
double r25863 = r25862 * r25845;
double r25864 = r25860 + r25863;
double r25865 = 7.0;
double r25866 = /* ERROR: no complex support in C */;
double r25867 = r25864 + r25866;
double r25868 = /* ERROR: no complex support in C */;
return r25868;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019322
(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))))