\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(4 + 0.0 i\right) + \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(-\left(\frac{1}{2} + 2\right)\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right) + \left(5 + 0.0 i\right)\right)\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r26445 = 1.0;
double r26446 = -r26445;
double r26447 = 2.0;
double r26448 = r26446 / r26447;
double r26449 = 3.0;
double r26450 = sqrt(r26449);
double r26451 = r26450 / r26447;
double r26452 = /* ERROR: no complex support in C */;
double r26453 = r26452 * r26452;
double r26454 = r26453 * r26452;
double r26455 = r26454 * r26452;
double r26456 = -r26447;
double r26457 = 0.0;
double r26458 = /* ERROR: no complex support in C */;
double r26459 = r26458 * r26452;
double r26460 = r26459 * r26452;
double r26461 = r26460 * r26452;
double r26462 = r26455 + r26461;
double r26463 = 5.0;
double r26464 = /* ERROR: no complex support in C */;
double r26465 = r26464 * r26452;
double r26466 = r26465 * r26452;
double r26467 = r26462 + r26466;
double r26468 = 4.0;
double r26469 = /* ERROR: no complex support in C */;
double r26470 = r26469 * r26452;
double r26471 = r26467 + r26470;
double r26472 = 7.0;
double r26473 = /* ERROR: no complex support in C */;
double r26474 = r26471 + r26473;
double r26475 = /* ERROR: no complex support in C */;
return r26475;
}
double f() {
double r26476 = 1.0;
double r26477 = -r26476;
double r26478 = 2.0;
double r26479 = r26477 / r26478;
double r26480 = 3.0;
double r26481 = sqrt(r26480);
double r26482 = r26481 / r26478;
double r26483 = /* ERROR: no complex support in C */;
double r26484 = 4.0;
double r26485 = 0.0;
double r26486 = /* ERROR: no complex support in C */;
double r26487 = r26476 / r26478;
double r26488 = r26487 + r26478;
double r26489 = -r26488;
double r26490 = r26482 + r26485;
double r26491 = /* ERROR: no complex support in C */;
double r26492 = r26483 * r26491;
double r26493 = 5.0;
double r26494 = /* ERROR: no complex support in C */;
double r26495 = r26492 + r26494;
double r26496 = r26483 * r26495;
double r26497 = r26486 + r26496;
double r26498 = r26483 * r26497;
double r26499 = 7.0;
double r26500 = /* ERROR: no complex support in C */;
double r26501 = r26498 + r26500;
double r26502 = /* ERROR: no complex support in C */;
return r26502;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019326 +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))))