\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(\frac{-1}{2} + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) \cdot \left(\left(\frac{-1}{2} + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + \left(-\sqrt{3}\right) i\right)\right) + \left(5 + \sqrt{3} \cdot 2 i\right)\right))double f() {
double r1081798 = 1.0;
double r1081799 = -r1081798;
double r1081800 = 2.0;
double r1081801 = r1081799 / r1081800;
double r1081802 = 3.0;
double r1081803 = sqrt(r1081802);
double r1081804 = r1081803 / r1081800;
double r1081805 = /* ERROR: no complex support in C */;
double r1081806 = r1081805 * r1081805;
double r1081807 = r1081806 * r1081805;
double r1081808 = r1081807 * r1081805;
double r1081809 = -r1081800;
double r1081810 = 0.0;
double r1081811 = /* ERROR: no complex support in C */;
double r1081812 = r1081811 * r1081805;
double r1081813 = r1081812 * r1081805;
double r1081814 = r1081813 * r1081805;
double r1081815 = r1081808 + r1081814;
double r1081816 = 5.0;
double r1081817 = /* ERROR: no complex support in C */;
double r1081818 = r1081817 * r1081805;
double r1081819 = r1081818 * r1081805;
double r1081820 = r1081815 + r1081819;
double r1081821 = 4.0;
double r1081822 = /* ERROR: no complex support in C */;
double r1081823 = r1081822 * r1081805;
double r1081824 = r1081820 + r1081823;
double r1081825 = 7.0;
double r1081826 = /* ERROR: no complex support in C */;
double r1081827 = r1081824 + r1081826;
double r1081828 = /* ERROR: no complex support in C */;
return r1081828;
}
double f() {
double r1081829 = -0.5;
double r1081830 = 3.0;
double r1081831 = sqrt(r1081830);
double r1081832 = -4.0;
double r1081833 = r1081831 / r1081832;
double r1081834 = r1081833 + r1081833;
double r1081835 = /* ERROR: no complex support in C */;
double r1081836 = 6.0;
double r1081837 = -r1081831;
double r1081838 = /* ERROR: no complex support in C */;
double r1081839 = r1081835 + r1081838;
double r1081840 = r1081835 * r1081839;
double r1081841 = 5.0;
double r1081842 = 2.0;
double r1081843 = r1081831 * r1081842;
double r1081844 = /* ERROR: no complex support in C */;
double r1081845 = r1081840 + r1081844;
double r1081846 = /* ERROR: no complex support in C */;
return r1081846;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019135 +o rules:numerics
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))