\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 r84312 = 1.0;
double r84313 = -r84312;
double r84314 = 2.0;
double r84315 = r84313 / r84314;
double r84316 = 3.0;
double r84317 = sqrt(r84316);
double r84318 = r84317 / r84314;
double r84319 = /* ERROR: no complex support in C */;
double r84320 = r84319 * r84319;
double r84321 = r84320 * r84319;
double r84322 = r84321 * r84319;
double r84323 = -r84314;
double r84324 = 0.0;
double r84325 = /* ERROR: no complex support in C */;
double r84326 = r84325 * r84319;
double r84327 = r84326 * r84319;
double r84328 = r84327 * r84319;
double r84329 = r84322 + r84328;
double r84330 = 5.0;
double r84331 = /* ERROR: no complex support in C */;
double r84332 = r84331 * r84319;
double r84333 = r84332 * r84319;
double r84334 = r84329 + r84333;
double r84335 = 4.0;
double r84336 = /* ERROR: no complex support in C */;
double r84337 = r84336 * r84319;
double r84338 = r84334 + r84337;
double r84339 = 7.0;
double r84340 = /* ERROR: no complex support in C */;
double r84341 = r84338 + r84340;
double r84342 = /* ERROR: no complex support in C */;
return r84342;
}
double f() {
double r84343 = 1.0;
double r84344 = -r84343;
double r84345 = 2.0;
double r84346 = r84344 / r84345;
double r84347 = 3.0;
double r84348 = sqrt(r84347);
double r84349 = r84348 / r84345;
double r84350 = /* ERROR: no complex support in C */;
double r84351 = r84350 * r84350;
double r84352 = r84351 * r84350;
double r84353 = r84352 * r84350;
double r84354 = -r84345;
double r84355 = 0.0;
double r84356 = /* ERROR: no complex support in C */;
double r84357 = r84356 * r84350;
double r84358 = r84357 * r84350;
double r84359 = r84358 * r84350;
double r84360 = r84353 + r84359;
double r84361 = 5.0;
double r84362 = /* ERROR: no complex support in C */;
double r84363 = r84362 * r84350;
double r84364 = r84363 * r84350;
double r84365 = r84360 + r84364;
double r84366 = 4.0;
double r84367 = /* ERROR: no complex support in C */;
double r84368 = r84367 * r84350;
double r84369 = r84365 + r84368;
double r84370 = 7.0;
double r84371 = /* ERROR: no complex support in C */;
double r84372 = r84369 + r84371;
double r84373 = /* ERROR: no complex support in C */;
return r84373;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019354
(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))))