\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(-\left(\frac{1}{2} + 2\right)\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 r39815 = 1.0;
double r39816 = -r39815;
double r39817 = 2.0;
double r39818 = r39816 / r39817;
double r39819 = 3.0;
double r39820 = sqrt(r39819);
double r39821 = r39820 / r39817;
double r39822 = /* ERROR: no complex support in C */;
double r39823 = r39822 * r39822;
double r39824 = r39823 * r39822;
double r39825 = r39824 * r39822;
double r39826 = -r39817;
double r39827 = 0.0;
double r39828 = /* ERROR: no complex support in C */;
double r39829 = r39828 * r39822;
double r39830 = r39829 * r39822;
double r39831 = r39830 * r39822;
double r39832 = r39825 + r39831;
double r39833 = 5.0;
double r39834 = /* ERROR: no complex support in C */;
double r39835 = r39834 * r39822;
double r39836 = r39835 * r39822;
double r39837 = r39832 + r39836;
double r39838 = 4.0;
double r39839 = /* ERROR: no complex support in C */;
double r39840 = r39839 * r39822;
double r39841 = r39837 + r39840;
double r39842 = 7.0;
double r39843 = /* ERROR: no complex support in C */;
double r39844 = r39841 + r39843;
double r39845 = /* ERROR: no complex support in C */;
return r39845;
}
double f() {
double r39846 = 1.0;
double r39847 = -r39846;
double r39848 = 2.0;
double r39849 = r39847 / r39848;
double r39850 = 3.0;
double r39851 = sqrt(r39850);
double r39852 = r39851 / r39848;
double r39853 = /* ERROR: no complex support in C */;
double r39854 = 5.0;
double r39855 = 0.0;
double r39856 = /* ERROR: no complex support in C */;
double r39857 = r39846 / r39848;
double r39858 = r39857 + r39848;
double r39859 = -r39858;
double r39860 = r39852 + r39855;
double r39861 = /* ERROR: no complex support in C */;
double r39862 = r39853 * r39861;
double r39863 = r39856 + r39862;
double r39864 = r39853 * r39863;
double r39865 = 4.0;
double r39866 = /* ERROR: no complex support in C */;
double r39867 = r39864 + r39866;
double r39868 = r39853 * r39867;
double r39869 = 7.0;
double r39870 = /* ERROR: no complex support in C */;
double r39871 = r39868 + r39870;
double r39872 = /* ERROR: no complex support in C */;
return r39872;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019202
(FPCore ()
:name "3.9.2 real part (p56)"
(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))))