\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 r25220 = 1.0;
double r25221 = -r25220;
double r25222 = 2.0;
double r25223 = r25221 / r25222;
double r25224 = 3.0;
double r25225 = sqrt(r25224);
double r25226 = r25225 / r25222;
double r25227 = /* ERROR: no complex support in C */;
double r25228 = r25227 * r25227;
double r25229 = r25228 * r25227;
double r25230 = r25229 * r25227;
double r25231 = -r25222;
double r25232 = 0.0;
double r25233 = /* ERROR: no complex support in C */;
double r25234 = r25233 * r25227;
double r25235 = r25234 * r25227;
double r25236 = r25235 * r25227;
double r25237 = r25230 + r25236;
double r25238 = 5.0;
double r25239 = /* ERROR: no complex support in C */;
double r25240 = r25239 * r25227;
double r25241 = r25240 * r25227;
double r25242 = r25237 + r25241;
double r25243 = 4.0;
double r25244 = /* ERROR: no complex support in C */;
double r25245 = r25244 * r25227;
double r25246 = r25242 + r25245;
double r25247 = 7.0;
double r25248 = /* ERROR: no complex support in C */;
double r25249 = r25246 + r25248;
double r25250 = /* ERROR: no complex support in C */;
return r25250;
}
double f() {
double r25251 = 1.0;
double r25252 = -r25251;
double r25253 = 2.0;
double r25254 = r25252 / r25253;
double r25255 = 3.0;
double r25256 = sqrt(r25255);
double r25257 = r25256 / r25253;
double r25258 = /* ERROR: no complex support in C */;
double r25259 = r25258 * r25258;
double r25260 = r25259 * r25258;
double r25261 = r25260 * r25258;
double r25262 = -r25253;
double r25263 = 0.0;
double r25264 = /* ERROR: no complex support in C */;
double r25265 = r25264 * r25258;
double r25266 = r25265 * r25258;
double r25267 = r25266 * r25258;
double r25268 = r25261 + r25267;
double r25269 = 5.0;
double r25270 = /* ERROR: no complex support in C */;
double r25271 = r25270 * r25258;
double r25272 = r25271 * r25258;
double r25273 = r25268 + r25272;
double r25274 = 4.0;
double r25275 = /* ERROR: no complex support in C */;
double r25276 = r25275 * r25258;
double r25277 = r25273 + r25276;
double r25278 = 7.0;
double r25279 = /* ERROR: no complex support in C */;
double r25280 = r25277 + r25279;
double r25281 = /* ERROR: no complex support in C */;
return r25281;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020036
(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))))