\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 r22303 = 1.0;
double r22304 = -r22303;
double r22305 = 2.0;
double r22306 = r22304 / r22305;
double r22307 = 3.0;
double r22308 = sqrt(r22307);
double r22309 = r22308 / r22305;
double r22310 = /* ERROR: no complex support in C */;
double r22311 = r22310 * r22310;
double r22312 = r22311 * r22310;
double r22313 = r22312 * r22310;
double r22314 = -r22305;
double r22315 = 0.0;
double r22316 = /* ERROR: no complex support in C */;
double r22317 = r22316 * r22310;
double r22318 = r22317 * r22310;
double r22319 = r22318 * r22310;
double r22320 = r22313 + r22319;
double r22321 = 5.0;
double r22322 = /* ERROR: no complex support in C */;
double r22323 = r22322 * r22310;
double r22324 = r22323 * r22310;
double r22325 = r22320 + r22324;
double r22326 = 4.0;
double r22327 = /* ERROR: no complex support in C */;
double r22328 = r22327 * r22310;
double r22329 = r22325 + r22328;
double r22330 = 7.0;
double r22331 = /* ERROR: no complex support in C */;
double r22332 = r22329 + r22331;
double r22333 = /* ERROR: no complex support in C */;
return r22333;
}
double f() {
double r22334 = 1.0;
double r22335 = -r22334;
double r22336 = 2.0;
double r22337 = r22335 / r22336;
double r22338 = 3.0;
double r22339 = sqrt(r22338);
double r22340 = r22339 / r22336;
double r22341 = /* ERROR: no complex support in C */;
double r22342 = r22341 * r22341;
double r22343 = r22342 * r22341;
double r22344 = r22343 * r22341;
double r22345 = -r22336;
double r22346 = 0.0;
double r22347 = /* ERROR: no complex support in C */;
double r22348 = r22347 * r22341;
double r22349 = r22348 * r22341;
double r22350 = r22349 * r22341;
double r22351 = r22344 + r22350;
double r22352 = 5.0;
double r22353 = /* ERROR: no complex support in C */;
double r22354 = r22353 * r22341;
double r22355 = r22354 * r22341;
double r22356 = r22351 + r22355;
double r22357 = 4.0;
double r22358 = /* ERROR: no complex support in C */;
double r22359 = r22358 * r22341;
double r22360 = r22356 + r22359;
double r22361 = 7.0;
double r22362 = /* ERROR: no complex support in C */;
double r22363 = r22360 + r22362;
double r22364 = /* ERROR: no complex support in C */;
return r22364;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019344
(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))))