\Re(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0 i\right)\right))
\Re(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r4946526 = -1.0;
double r4946527 = 1.0;
double r4946528 = /* ERROR: no complex support in C */;
double r4946529 = r4946528 * r4946528;
double r4946530 = r4946529 * r4946528;
double r4946531 = r4946530 * r4946528;
double r4946532 = r4946531 * r4946528;
double r4946533 = r4946532 * r4946528;
double r4946534 = 6.0;
double r4946535 = 0.0;
double r4946536 = /* ERROR: no complex support in C */;
double r4946537 = r4946536 * r4946528;
double r4946538 = r4946537 * r4946528;
double r4946539 = r4946538 * r4946528;
double r4946540 = r4946539 * r4946528;
double r4946541 = r4946540 * r4946528;
double r4946542 = r4946533 + r4946541;
double r4946543 = 15.0;
double r4946544 = /* ERROR: no complex support in C */;
double r4946545 = r4946544 * r4946528;
double r4946546 = r4946545 * r4946528;
double r4946547 = r4946546 * r4946528;
double r4946548 = r4946547 * r4946528;
double r4946549 = r4946542 + r4946548;
double r4946550 = 20.0;
double r4946551 = /* ERROR: no complex support in C */;
double r4946552 = r4946551 * r4946528;
double r4946553 = r4946552 * r4946528;
double r4946554 = r4946553 * r4946528;
double r4946555 = r4946549 + r4946554;
double r4946556 = r4946555 + r4946546;
double r4946557 = r4946556 + r4946537;
double r4946558 = /* ERROR: no complex support in C */;
double r4946559 = r4946557 + r4946558;
double r4946560 = /* ERROR: no complex support in C */;
return r4946560;
}
double f() {
double r4946561 = -5.0;
double r4946562 = -24.0;
double r4946563 = /* ERROR: no complex support in C */;
double r4946564 = 24.0;
double r4946565 = /* ERROR: no complex support in C */;
double r4946566 = 0.0;
double r4946567 = 8.0;
double r4946568 = /* ERROR: no complex support in C */;
double r4946569 = r4946565 + r4946568;
double r4946570 = 40.0;
double r4946571 = /* ERROR: no complex support in C */;
double r4946572 = -60.0;
double r4946573 = /* ERROR: no complex support in C */;
double r4946574 = r4946571 + r4946573;
double r4946575 = r4946569 + r4946574;
double r4946576 = r4946563 + r4946575;
double r4946577 = /* ERROR: no complex support in C */;
return r4946577;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019128 +o rules:numerics
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+.c (+.c (+.c (+.c (+.c (+.c (*.c (*.c (*.c (*.c (*.c (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (*.c (*.c (*.c (*.c (*.c (complex 6 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (complex 20 0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1))) (*.c (complex 6 0) (complex -1 1))) (complex 1 0))))