\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 r1232385 = -1.0;
double r1232386 = 1.0;
double r1232387 = /* ERROR: no complex support in C */;
double r1232388 = r1232387 * r1232387;
double r1232389 = r1232388 * r1232387;
double r1232390 = r1232389 * r1232387;
double r1232391 = r1232390 * r1232387;
double r1232392 = r1232391 * r1232387;
double r1232393 = 6.0;
double r1232394 = 0.0;
double r1232395 = /* ERROR: no complex support in C */;
double r1232396 = r1232395 * r1232387;
double r1232397 = r1232396 * r1232387;
double r1232398 = r1232397 * r1232387;
double r1232399 = r1232398 * r1232387;
double r1232400 = r1232399 * r1232387;
double r1232401 = r1232392 + r1232400;
double r1232402 = 15.0;
double r1232403 = /* ERROR: no complex support in C */;
double r1232404 = r1232403 * r1232387;
double r1232405 = r1232404 * r1232387;
double r1232406 = r1232405 * r1232387;
double r1232407 = r1232406 * r1232387;
double r1232408 = r1232401 + r1232407;
double r1232409 = 20.0;
double r1232410 = /* ERROR: no complex support in C */;
double r1232411 = r1232410 * r1232387;
double r1232412 = r1232411 * r1232387;
double r1232413 = r1232412 * r1232387;
double r1232414 = r1232408 + r1232413;
double r1232415 = r1232414 + r1232405;
double r1232416 = r1232415 + r1232396;
double r1232417 = /* ERROR: no complex support in C */;
double r1232418 = r1232416 + r1232417;
double r1232419 = /* ERROR: no complex support in C */;
return r1232419;
}
double f() {
double r1232420 = -5.0;
double r1232421 = -24.0;
double r1232422 = /* ERROR: no complex support in C */;
double r1232423 = 24.0;
double r1232424 = /* ERROR: no complex support in C */;
double r1232425 = 0.0;
double r1232426 = 8.0;
double r1232427 = /* ERROR: no complex support in C */;
double r1232428 = r1232424 + r1232427;
double r1232429 = 40.0;
double r1232430 = /* ERROR: no complex support in C */;
double r1232431 = -60.0;
double r1232432 = /* ERROR: no complex support in C */;
double r1232433 = r1232430 + r1232432;
double r1232434 = r1232428 + r1232433;
double r1232435 = r1232422 + r1232434;
double r1232436 = /* ERROR: no complex support in C */;
return r1232436;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019121 +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))))