\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 r26025 = 1.0;
double r26026 = -r26025;
double r26027 = 2.0;
double r26028 = r26026 / r26027;
double r26029 = 3.0;
double r26030 = sqrt(r26029);
double r26031 = r26030 / r26027;
double r26032 = /* ERROR: no complex support in C */;
double r26033 = r26032 * r26032;
double r26034 = r26033 * r26032;
double r26035 = r26034 * r26032;
double r26036 = -r26027;
double r26037 = 0.0;
double r26038 = /* ERROR: no complex support in C */;
double r26039 = r26038 * r26032;
double r26040 = r26039 * r26032;
double r26041 = r26040 * r26032;
double r26042 = r26035 + r26041;
double r26043 = 5.0;
double r26044 = /* ERROR: no complex support in C */;
double r26045 = r26044 * r26032;
double r26046 = r26045 * r26032;
double r26047 = r26042 + r26046;
double r26048 = 4.0;
double r26049 = /* ERROR: no complex support in C */;
double r26050 = r26049 * r26032;
double r26051 = r26047 + r26050;
double r26052 = 7.0;
double r26053 = /* ERROR: no complex support in C */;
double r26054 = r26051 + r26053;
double r26055 = /* ERROR: no complex support in C */;
return r26055;
}
double f() {
double r26056 = 1.0;
double r26057 = -r26056;
double r26058 = 2.0;
double r26059 = r26057 / r26058;
double r26060 = 3.0;
double r26061 = sqrt(r26060);
double r26062 = r26061 / r26058;
double r26063 = /* ERROR: no complex support in C */;
double r26064 = r26063 * r26063;
double r26065 = r26064 * r26063;
double r26066 = r26065 * r26063;
double r26067 = -r26058;
double r26068 = 0.0;
double r26069 = /* ERROR: no complex support in C */;
double r26070 = r26069 * r26063;
double r26071 = r26070 * r26063;
double r26072 = r26071 * r26063;
double r26073 = r26066 + r26072;
double r26074 = 5.0;
double r26075 = /* ERROR: no complex support in C */;
double r26076 = r26075 * r26063;
double r26077 = r26076 * r26063;
double r26078 = r26073 + r26077;
double r26079 = 4.0;
double r26080 = /* ERROR: no complex support in C */;
double r26081 = r26080 * r26063;
double r26082 = r26078 + r26081;
double r26083 = 7.0;
double r26084 = /* ERROR: no complex support in C */;
double r26085 = r26082 + r26084;
double r26086 = /* ERROR: no complex support in C */;
return r26086;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020001
(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))))