\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 r3094494 = -1.0;
double r3094495 = 1.0;
double r3094496 = /* ERROR: no complex support in C */;
double r3094497 = r3094496 * r3094496;
double r3094498 = r3094497 * r3094496;
double r3094499 = r3094498 * r3094496;
double r3094500 = r3094499 * r3094496;
double r3094501 = r3094500 * r3094496;
double r3094502 = 6.0;
double r3094503 = 0.0;
double r3094504 = /* ERROR: no complex support in C */;
double r3094505 = r3094504 * r3094496;
double r3094506 = r3094505 * r3094496;
double r3094507 = r3094506 * r3094496;
double r3094508 = r3094507 * r3094496;
double r3094509 = r3094508 * r3094496;
double r3094510 = r3094501 + r3094509;
double r3094511 = 15.0;
double r3094512 = /* ERROR: no complex support in C */;
double r3094513 = r3094512 * r3094496;
double r3094514 = r3094513 * r3094496;
double r3094515 = r3094514 * r3094496;
double r3094516 = r3094515 * r3094496;
double r3094517 = r3094510 + r3094516;
double r3094518 = 20.0;
double r3094519 = /* ERROR: no complex support in C */;
double r3094520 = r3094519 * r3094496;
double r3094521 = r3094520 * r3094496;
double r3094522 = r3094521 * r3094496;
double r3094523 = r3094517 + r3094522;
double r3094524 = r3094523 + r3094514;
double r3094525 = r3094524 + r3094505;
double r3094526 = /* ERROR: no complex support in C */;
double r3094527 = r3094525 + r3094526;
double r3094528 = /* ERROR: no complex support in C */;
return r3094528;
}
double f() {
double r3094529 = -5.0;
double r3094530 = -24.0;
double r3094531 = /* ERROR: no complex support in C */;
double r3094532 = 24.0;
double r3094533 = /* ERROR: no complex support in C */;
double r3094534 = 0.0;
double r3094535 = 8.0;
double r3094536 = /* ERROR: no complex support in C */;
double r3094537 = r3094533 + r3094536;
double r3094538 = 40.0;
double r3094539 = /* ERROR: no complex support in C */;
double r3094540 = -60.0;
double r3094541 = /* ERROR: no complex support in C */;
double r3094542 = r3094539 + r3094541;
double r3094543 = r3094537 + r3094542;
double r3094544 = r3094531 + r3094543;
double r3094545 = /* ERROR: no complex support in C */;
return r3094545;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019125
(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))))