\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 r31224 = 1.0;
double r31225 = -r31224;
double r31226 = 2.0;
double r31227 = r31225 / r31226;
double r31228 = 3.0;
double r31229 = sqrt(r31228);
double r31230 = r31229 / r31226;
double r31231 = /* ERROR: no complex support in C */;
double r31232 = r31231 * r31231;
double r31233 = r31232 * r31231;
double r31234 = r31233 * r31231;
double r31235 = -r31226;
double r31236 = 0.0;
double r31237 = /* ERROR: no complex support in C */;
double r31238 = r31237 * r31231;
double r31239 = r31238 * r31231;
double r31240 = r31239 * r31231;
double r31241 = r31234 + r31240;
double r31242 = 5.0;
double r31243 = /* ERROR: no complex support in C */;
double r31244 = r31243 * r31231;
double r31245 = r31244 * r31231;
double r31246 = r31241 + r31245;
double r31247 = 4.0;
double r31248 = /* ERROR: no complex support in C */;
double r31249 = r31248 * r31231;
double r31250 = r31246 + r31249;
double r31251 = 7.0;
double r31252 = /* ERROR: no complex support in C */;
double r31253 = r31250 + r31252;
double r31254 = /* ERROR: no complex support in C */;
return r31254;
}
double f() {
double r31255 = 1.0;
double r31256 = -r31255;
double r31257 = 2.0;
double r31258 = r31256 / r31257;
double r31259 = 3.0;
double r31260 = sqrt(r31259);
double r31261 = r31260 / r31257;
double r31262 = /* ERROR: no complex support in C */;
double r31263 = r31262 * r31262;
double r31264 = r31263 * r31262;
double r31265 = r31264 * r31262;
double r31266 = -r31257;
double r31267 = 0.0;
double r31268 = /* ERROR: no complex support in C */;
double r31269 = r31268 * r31262;
double r31270 = r31269 * r31262;
double r31271 = r31270 * r31262;
double r31272 = r31265 + r31271;
double r31273 = 5.0;
double r31274 = /* ERROR: no complex support in C */;
double r31275 = r31274 * r31262;
double r31276 = r31275 * r31262;
double r31277 = r31272 + r31276;
double r31278 = 4.0;
double r31279 = /* ERROR: no complex support in C */;
double r31280 = r31279 * r31262;
double r31281 = r31277 + r31280;
double r31282 = 7.0;
double r31283 = /* ERROR: no complex support in C */;
double r31284 = r31281 + r31283;
double r31285 = /* ERROR: no complex support in C */;
return r31285;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020034
(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))))