\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 r1106380 = -1.0;
double r1106381 = 1.0;
double r1106382 = /* ERROR: no complex support in C */;
double r1106383 = r1106382 * r1106382;
double r1106384 = r1106383 * r1106382;
double r1106385 = r1106384 * r1106382;
double r1106386 = r1106385 * r1106382;
double r1106387 = r1106386 * r1106382;
double r1106388 = 6.0;
double r1106389 = 0.0;
double r1106390 = /* ERROR: no complex support in C */;
double r1106391 = r1106390 * r1106382;
double r1106392 = r1106391 * r1106382;
double r1106393 = r1106392 * r1106382;
double r1106394 = r1106393 * r1106382;
double r1106395 = r1106394 * r1106382;
double r1106396 = r1106387 + r1106395;
double r1106397 = 15.0;
double r1106398 = /* ERROR: no complex support in C */;
double r1106399 = r1106398 * r1106382;
double r1106400 = r1106399 * r1106382;
double r1106401 = r1106400 * r1106382;
double r1106402 = r1106401 * r1106382;
double r1106403 = r1106396 + r1106402;
double r1106404 = 20.0;
double r1106405 = /* ERROR: no complex support in C */;
double r1106406 = r1106405 * r1106382;
double r1106407 = r1106406 * r1106382;
double r1106408 = r1106407 * r1106382;
double r1106409 = r1106403 + r1106408;
double r1106410 = r1106409 + r1106400;
double r1106411 = r1106410 + r1106391;
double r1106412 = /* ERROR: no complex support in C */;
double r1106413 = r1106411 + r1106412;
double r1106414 = /* ERROR: no complex support in C */;
return r1106414;
}
double f() {
double r1106415 = -1.0;
return r1106415;
}
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))))