\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(5 + \frac{\sqrt{3}}{2} \cdot 4 i\right) + \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right) + \left(6 + \frac{-1}{2} \cdot \frac{\sqrt{3}}{\frac{1}{2}} i\right)\right) \cdot \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right)\right))double f() {
double r1789818 = 1.0;
double r1789819 = -r1789818;
double r1789820 = 2.0;
double r1789821 = r1789819 / r1789820;
double r1789822 = 3.0;
double r1789823 = sqrt(r1789822);
double r1789824 = r1789823 / r1789820;
double r1789825 = /* ERROR: no complex support in C */;
double r1789826 = r1789825 * r1789825;
double r1789827 = r1789826 * r1789825;
double r1789828 = r1789827 * r1789825;
double r1789829 = -r1789820;
double r1789830 = 0.0;
double r1789831 = /* ERROR: no complex support in C */;
double r1789832 = r1789831 * r1789825;
double r1789833 = r1789832 * r1789825;
double r1789834 = r1789833 * r1789825;
double r1789835 = r1789828 + r1789834;
double r1789836 = 5.0;
double r1789837 = /* ERROR: no complex support in C */;
double r1789838 = r1789837 * r1789825;
double r1789839 = r1789838 * r1789825;
double r1789840 = r1789835 + r1789839;
double r1789841 = 4.0;
double r1789842 = /* ERROR: no complex support in C */;
double r1789843 = r1789842 * r1789825;
double r1789844 = r1789840 + r1789843;
double r1789845 = 7.0;
double r1789846 = /* ERROR: no complex support in C */;
double r1789847 = r1789844 + r1789846;
double r1789848 = /* ERROR: no complex support in C */;
return r1789848;
}
double f() {
double r1789849 = 5.0;
double r1789850 = 3.0;
double r1789851 = sqrt(r1789850);
double r1789852 = 2.0;
double r1789853 = r1789851 / r1789852;
double r1789854 = 4.0;
double r1789855 = r1789853 * r1789854;
double r1789856 = /* ERROR: no complex support in C */;
double r1789857 = 0.25;
double r1789858 = r1789853 * r1789853;
double r1789859 = r1789857 - r1789858;
double r1789860 = -r1789851;
double r1789861 = r1789860 / r1789852;
double r1789862 = /* ERROR: no complex support in C */;
double r1789863 = 6.0;
double r1789864 = -0.5;
double r1789865 = 0.5;
double r1789866 = r1789851 / r1789865;
double r1789867 = r1789864 * r1789866;
double r1789868 = /* ERROR: no complex support in C */;
double r1789869 = r1789862 + r1789868;
double r1789870 = r1789869 * r1789862;
double r1789871 = r1789856 + r1789870;
double r1789872 = /* ERROR: no complex support in C */;
return r1789872;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019162
(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))))