\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(5 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(-\left(\frac{1}{2} + 2\right)\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\right)\right) + \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r36215 = 1.0;
double r36216 = -r36215;
double r36217 = 2.0;
double r36218 = r36216 / r36217;
double r36219 = 3.0;
double r36220 = sqrt(r36219);
double r36221 = r36220 / r36217;
double r36222 = /* ERROR: no complex support in C */;
double r36223 = r36222 * r36222;
double r36224 = r36223 * r36222;
double r36225 = r36224 * r36222;
double r36226 = -r36217;
double r36227 = 0.0;
double r36228 = /* ERROR: no complex support in C */;
double r36229 = r36228 * r36222;
double r36230 = r36229 * r36222;
double r36231 = r36230 * r36222;
double r36232 = r36225 + r36231;
double r36233 = 5.0;
double r36234 = /* ERROR: no complex support in C */;
double r36235 = r36234 * r36222;
double r36236 = r36235 * r36222;
double r36237 = r36232 + r36236;
double r36238 = 4.0;
double r36239 = /* ERROR: no complex support in C */;
double r36240 = r36239 * r36222;
double r36241 = r36237 + r36240;
double r36242 = 7.0;
double r36243 = /* ERROR: no complex support in C */;
double r36244 = r36241 + r36243;
double r36245 = /* ERROR: no complex support in C */;
return r36245;
}
double f() {
double r36246 = 1.0;
double r36247 = -r36246;
double r36248 = 2.0;
double r36249 = r36247 / r36248;
double r36250 = 3.0;
double r36251 = sqrt(r36250);
double r36252 = r36251 / r36248;
double r36253 = /* ERROR: no complex support in C */;
double r36254 = 5.0;
double r36255 = 0.0;
double r36256 = /* ERROR: no complex support in C */;
double r36257 = r36246 / r36248;
double r36258 = r36257 + r36248;
double r36259 = -r36258;
double r36260 = r36252 + r36255;
double r36261 = /* ERROR: no complex support in C */;
double r36262 = r36253 * r36261;
double r36263 = r36256 + r36262;
double r36264 = r36253 * r36263;
double r36265 = 4.0;
double r36266 = /* ERROR: no complex support in C */;
double r36267 = r36264 + r36266;
double r36268 = r36253 * r36267;
double r36269 = 7.0;
double r36270 = /* ERROR: no complex support in C */;
double r36271 = r36268 + r36270;
double r36272 = /* ERROR: no complex support in C */;
return r36272;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019235 +o rules:numerics
(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))))