\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(\left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + -2 \cdot \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(5 + \frac{\sqrt{3} \cdot 4}{2} i\right)\right))double f() {
double r675532 = 1.0;
double r675533 = -r675532;
double r675534 = 2.0;
double r675535 = r675533 / r675534;
double r675536 = 3.0;
double r675537 = sqrt(r675536);
double r675538 = r675537 / r675534;
double r675539 = /* ERROR: no complex support in C */;
double r675540 = r675539 * r675539;
double r675541 = r675540 * r675539;
double r675542 = r675541 * r675539;
double r675543 = -r675534;
double r675544 = 0.0;
double r675545 = /* ERROR: no complex support in C */;
double r675546 = r675545 * r675539;
double r675547 = r675546 * r675539;
double r675548 = r675547 * r675539;
double r675549 = r675542 + r675548;
double r675550 = 5.0;
double r675551 = /* ERROR: no complex support in C */;
double r675552 = r675551 * r675539;
double r675553 = r675552 * r675539;
double r675554 = r675549 + r675553;
double r675555 = 4.0;
double r675556 = /* ERROR: no complex support in C */;
double r675557 = r675556 * r675539;
double r675558 = r675554 + r675557;
double r675559 = 7.0;
double r675560 = /* ERROR: no complex support in C */;
double r675561 = r675558 + r675560;
double r675562 = /* ERROR: no complex support in C */;
return r675562;
}
double f() {
double r675563 = 3.0;
double r675564 = sqrt(r675563);
double r675565 = 2.0;
double r675566 = r675564 / r675565;
double r675567 = -4.0;
double r675568 = r675564 / r675567;
double r675569 = r675568 + r675568;
double r675570 = r675566 * r675569;
double r675571 = 0.25;
double r675572 = r675570 + r675571;
double r675573 = /* ERROR: no complex support in C */;
double r675574 = 6.0;
double r675575 = -2.0;
double r675576 = r675575 * r675566;
double r675577 = /* ERROR: no complex support in C */;
double r675578 = r675573 + r675577;
double r675579 = r675578 * r675573;
double r675580 = 5.0;
double r675581 = 4.0;
double r675582 = r675564 * r675581;
double r675583 = r675582 / r675565;
double r675584 = /* ERROR: no complex support in C */;
double r675585 = r675579 + r675584;
double r675586 = /* ERROR: no complex support in C */;
return r675586;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019154 +o rules:numerics
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))