\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 r3856371 = -1.0;
double r3856372 = 1.0;
double r3856373 = /* ERROR: no complex support in C */;
double r3856374 = r3856373 * r3856373;
double r3856375 = r3856374 * r3856373;
double r3856376 = r3856375 * r3856373;
double r3856377 = r3856376 * r3856373;
double r3856378 = r3856377 * r3856373;
double r3856379 = 6.0;
double r3856380 = 0.0;
double r3856381 = /* ERROR: no complex support in C */;
double r3856382 = r3856381 * r3856373;
double r3856383 = r3856382 * r3856373;
double r3856384 = r3856383 * r3856373;
double r3856385 = r3856384 * r3856373;
double r3856386 = r3856385 * r3856373;
double r3856387 = r3856378 + r3856386;
double r3856388 = 15.0;
double r3856389 = /* ERROR: no complex support in C */;
double r3856390 = r3856389 * r3856373;
double r3856391 = r3856390 * r3856373;
double r3856392 = r3856391 * r3856373;
double r3856393 = r3856392 * r3856373;
double r3856394 = r3856387 + r3856393;
double r3856395 = 20.0;
double r3856396 = /* ERROR: no complex support in C */;
double r3856397 = r3856396 * r3856373;
double r3856398 = r3856397 * r3856373;
double r3856399 = r3856398 * r3856373;
double r3856400 = r3856394 + r3856399;
double r3856401 = r3856400 + r3856391;
double r3856402 = r3856401 + r3856382;
double r3856403 = /* ERROR: no complex support in C */;
double r3856404 = r3856402 + r3856403;
double r3856405 = /* ERROR: no complex support in C */;
return r3856405;
}
double f() {
double r3856406 = -5.0;
double r3856407 = -24.0;
double r3856408 = /* ERROR: no complex support in C */;
double r3856409 = 24.0;
double r3856410 = /* ERROR: no complex support in C */;
double r3856411 = 0.0;
double r3856412 = 8.0;
double r3856413 = /* ERROR: no complex support in C */;
double r3856414 = r3856410 + r3856413;
double r3856415 = 40.0;
double r3856416 = /* ERROR: no complex support in C */;
double r3856417 = -60.0;
double r3856418 = /* ERROR: no complex support in C */;
double r3856419 = r3856416 + r3856418;
double r3856420 = r3856414 + r3856419;
double r3856421 = r3856408 + r3856420;
double r3856422 = /* ERROR: no complex support in C */;
return r3856422;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019104 +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))))