\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 r24535 = 1.0;
double r24536 = -r24535;
double r24537 = 2.0;
double r24538 = r24536 / r24537;
double r24539 = 3.0;
double r24540 = sqrt(r24539);
double r24541 = r24540 / r24537;
double r24542 = /* ERROR: no complex support in C */;
double r24543 = r24542 * r24542;
double r24544 = r24543 * r24542;
double r24545 = r24544 * r24542;
double r24546 = -r24537;
double r24547 = 0.0;
double r24548 = /* ERROR: no complex support in C */;
double r24549 = r24548 * r24542;
double r24550 = r24549 * r24542;
double r24551 = r24550 * r24542;
double r24552 = r24545 + r24551;
double r24553 = 5.0;
double r24554 = /* ERROR: no complex support in C */;
double r24555 = r24554 * r24542;
double r24556 = r24555 * r24542;
double r24557 = r24552 + r24556;
double r24558 = 4.0;
double r24559 = /* ERROR: no complex support in C */;
double r24560 = r24559 * r24542;
double r24561 = r24557 + r24560;
double r24562 = 7.0;
double r24563 = /* ERROR: no complex support in C */;
double r24564 = r24561 + r24563;
double r24565 = /* ERROR: no complex support in C */;
return r24565;
}
double f() {
double r24566 = 1.0;
double r24567 = -r24566;
double r24568 = 2.0;
double r24569 = r24567 / r24568;
double r24570 = 3.0;
double r24571 = sqrt(r24570);
double r24572 = r24571 / r24568;
double r24573 = /* ERROR: no complex support in C */;
double r24574 = r24573 * r24573;
double r24575 = r24574 * r24573;
double r24576 = r24575 * r24573;
double r24577 = -r24568;
double r24578 = 0.0;
double r24579 = /* ERROR: no complex support in C */;
double r24580 = r24579 * r24573;
double r24581 = r24580 * r24573;
double r24582 = r24581 * r24573;
double r24583 = r24576 + r24582;
double r24584 = 5.0;
double r24585 = /* ERROR: no complex support in C */;
double r24586 = r24585 * r24573;
double r24587 = r24586 * r24573;
double r24588 = r24583 + r24587;
double r24589 = 4.0;
double r24590 = /* ERROR: no complex support in C */;
double r24591 = r24590 * r24573;
double r24592 = r24588 + r24591;
double r24593 = 7.0;
double r24594 = /* ERROR: no complex support in C */;
double r24595 = r24592 + r24594;
double r24596 = /* ERROR: no complex support in C */;
return r24596;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020018
(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))))