\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(\left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + -2 \cdot \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(5 + \frac{\sqrt{3} \cdot 4}{2} i\right)\right))double f() {
double r801951 = 1.0;
double r801952 = -r801951;
double r801953 = 2.0;
double r801954 = r801952 / r801953;
double r801955 = 3.0;
double r801956 = sqrt(r801955);
double r801957 = r801956 / r801953;
double r801958 = /* ERROR: no complex support in C */;
double r801959 = r801958 * r801958;
double r801960 = r801959 * r801958;
double r801961 = r801960 * r801958;
double r801962 = -r801953;
double r801963 = 0.0;
double r801964 = /* ERROR: no complex support in C */;
double r801965 = r801964 * r801958;
double r801966 = r801965 * r801958;
double r801967 = r801966 * r801958;
double r801968 = r801961 + r801967;
double r801969 = 5.0;
double r801970 = /* ERROR: no complex support in C */;
double r801971 = r801970 * r801958;
double r801972 = r801971 * r801958;
double r801973 = r801968 + r801972;
double r801974 = 4.0;
double r801975 = /* ERROR: no complex support in C */;
double r801976 = r801975 * r801958;
double r801977 = r801973 + r801976;
double r801978 = 7.0;
double r801979 = /* ERROR: no complex support in C */;
double r801980 = r801977 + r801979;
double r801981 = /* ERROR: no complex support in C */;
return r801981;
}
double f() {
double r801982 = 3.0;
double r801983 = sqrt(r801982);
double r801984 = 2.0;
double r801985 = r801983 / r801984;
double r801986 = -4.0;
double r801987 = r801983 / r801986;
double r801988 = r801987 + r801987;
double r801989 = r801985 * r801988;
double r801990 = 0.25;
double r801991 = r801989 + r801990;
double r801992 = /* ERROR: no complex support in C */;
double r801993 = 6.0;
double r801994 = -2.0;
double r801995 = r801994 * r801985;
double r801996 = /* ERROR: no complex support in C */;
double r801997 = r801992 + r801996;
double r801998 = r801997 * r801992;
double r801999 = 5.0;
double r802000 = 4.0;
double r802001 = r801983 * r802000;
double r802002 = r802001 / r801984;
double r802003 = /* ERROR: no complex support in C */;
double r802004 = r801998 + r802003;
double r802005 = /* ERROR: no complex support in C */;
return r802005;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019153 +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))))