\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 r1076518 = -1.0;
double r1076519 = 1.0;
double r1076520 = /* ERROR: no complex support in C */;
double r1076521 = r1076520 * r1076520;
double r1076522 = r1076521 * r1076520;
double r1076523 = r1076522 * r1076520;
double r1076524 = r1076523 * r1076520;
double r1076525 = r1076524 * r1076520;
double r1076526 = 6.0;
double r1076527 = 0.0;
double r1076528 = /* ERROR: no complex support in C */;
double r1076529 = r1076528 * r1076520;
double r1076530 = r1076529 * r1076520;
double r1076531 = r1076530 * r1076520;
double r1076532 = r1076531 * r1076520;
double r1076533 = r1076532 * r1076520;
double r1076534 = r1076525 + r1076533;
double r1076535 = 15.0;
double r1076536 = /* ERROR: no complex support in C */;
double r1076537 = r1076536 * r1076520;
double r1076538 = r1076537 * r1076520;
double r1076539 = r1076538 * r1076520;
double r1076540 = r1076539 * r1076520;
double r1076541 = r1076534 + r1076540;
double r1076542 = 20.0;
double r1076543 = /* ERROR: no complex support in C */;
double r1076544 = r1076543 * r1076520;
double r1076545 = r1076544 * r1076520;
double r1076546 = r1076545 * r1076520;
double r1076547 = r1076541 + r1076546;
double r1076548 = r1076547 + r1076538;
double r1076549 = r1076548 + r1076529;
double r1076550 = /* ERROR: no complex support in C */;
double r1076551 = r1076549 + r1076550;
double r1076552 = /* ERROR: no complex support in C */;
return r1076552;
}
double f() {
double r1076553 = -5.0;
double r1076554 = -24.0;
double r1076555 = /* ERROR: no complex support in C */;
double r1076556 = 24.0;
double r1076557 = /* ERROR: no complex support in C */;
double r1076558 = 0.0;
double r1076559 = 8.0;
double r1076560 = /* ERROR: no complex support in C */;
double r1076561 = r1076557 + r1076560;
double r1076562 = 40.0;
double r1076563 = /* ERROR: no complex support in C */;
double r1076564 = -60.0;
double r1076565 = /* ERROR: no complex support in C */;
double r1076566 = r1076563 + r1076565;
double r1076567 = r1076561 + r1076566;
double r1076568 = r1076555 + r1076567;
double r1076569 = /* ERROR: no complex support in C */;
return r1076569;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019121
(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))))