\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))
-1
double f() {
double r18498 = -1.0;
double r18499 = 1.0;
double r18500 = /* ERROR: no complex support in C */;
double r18501 = r18500 * r18500;
double r18502 = r18501 * r18500;
double r18503 = r18502 * r18500;
double r18504 = r18503 * r18500;
double r18505 = r18504 * r18500;
double r18506 = 6.0;
double r18507 = 0.0;
double r18508 = /* ERROR: no complex support in C */;
double r18509 = r18508 * r18500;
double r18510 = r18509 * r18500;
double r18511 = r18510 * r18500;
double r18512 = r18511 * r18500;
double r18513 = r18512 * r18500;
double r18514 = r18505 + r18513;
double r18515 = 15.0;
double r18516 = /* ERROR: no complex support in C */;
double r18517 = r18516 * r18500;
double r18518 = r18517 * r18500;
double r18519 = r18518 * r18500;
double r18520 = r18519 * r18500;
double r18521 = r18514 + r18520;
double r18522 = 20.0;
double r18523 = /* ERROR: no complex support in C */;
double r18524 = r18523 * r18500;
double r18525 = r18524 * r18500;
double r18526 = r18525 * r18500;
double r18527 = r18521 + r18526;
double r18528 = r18527 + r18518;
double r18529 = r18528 + r18509;
double r18530 = /* ERROR: no complex support in C */;
double r18531 = r18529 + r18530;
double r18532 = /* ERROR: no complex support in C */;
return r18532;
}
double f() {
double r18533 = -1.0;
return r18533;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019163
(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))))