\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 r26456 = 1.0;
double r26457 = -r26456;
double r26458 = 2.0;
double r26459 = r26457 / r26458;
double r26460 = 3.0;
double r26461 = sqrt(r26460);
double r26462 = r26461 / r26458;
double r26463 = /* ERROR: no complex support in C */;
double r26464 = r26463 * r26463;
double r26465 = r26464 * r26463;
double r26466 = r26465 * r26463;
double r26467 = -r26458;
double r26468 = 0.0;
double r26469 = /* ERROR: no complex support in C */;
double r26470 = r26469 * r26463;
double r26471 = r26470 * r26463;
double r26472 = r26471 * r26463;
double r26473 = r26466 + r26472;
double r26474 = 5.0;
double r26475 = /* ERROR: no complex support in C */;
double r26476 = r26475 * r26463;
double r26477 = r26476 * r26463;
double r26478 = r26473 + r26477;
double r26479 = 4.0;
double r26480 = /* ERROR: no complex support in C */;
double r26481 = r26480 * r26463;
double r26482 = r26478 + r26481;
double r26483 = 7.0;
double r26484 = /* ERROR: no complex support in C */;
double r26485 = r26482 + r26484;
double r26486 = /* ERROR: no complex support in C */;
return r26486;
}
double f() {
double r26487 = 1.0;
double r26488 = -r26487;
double r26489 = 2.0;
double r26490 = r26488 / r26489;
double r26491 = 3.0;
double r26492 = sqrt(r26491);
double r26493 = r26492 / r26489;
double r26494 = /* ERROR: no complex support in C */;
double r26495 = r26494 * r26494;
double r26496 = r26495 * r26494;
double r26497 = r26496 * r26494;
double r26498 = -r26489;
double r26499 = 0.0;
double r26500 = /* ERROR: no complex support in C */;
double r26501 = r26500 * r26494;
double r26502 = r26501 * r26494;
double r26503 = r26502 * r26494;
double r26504 = r26497 + r26503;
double r26505 = 5.0;
double r26506 = /* ERROR: no complex support in C */;
double r26507 = r26506 * r26494;
double r26508 = r26507 * r26494;
double r26509 = r26504 + r26508;
double r26510 = 4.0;
double r26511 = /* ERROR: no complex support in C */;
double r26512 = r26511 * r26494;
double r26513 = r26509 + r26512;
double r26514 = 7.0;
double r26515 = /* ERROR: no complex support in C */;
double r26516 = r26513 + r26515;
double r26517 = /* ERROR: no complex support in C */;
return r26517;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019356
(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))))