\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\Re(\left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(15 + 0.0 i\right)\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right)\right)\right)\right)\right) + \left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(1 + 0.0 i\right)\right)\right))
double f() {
double r25371 = -1.0;
double r25372 = 1.0;
double r25373 = /* ERROR: no complex support in C */;
double r25374 = r25373 * r25373;
double r25375 = r25374 * r25373;
double r25376 = r25375 * r25373;
double r25377 = r25376 * r25373;
double r25378 = r25377 * r25373;
double r25379 = 6.0;
double r25380 = 0.0;
double r25381 = /* ERROR: no complex support in C */;
double r25382 = r25381 * r25373;
double r25383 = r25382 * r25373;
double r25384 = r25383 * r25373;
double r25385 = r25384 * r25373;
double r25386 = r25385 * r25373;
double r25387 = r25378 + r25386;
double r25388 = 15.0;
double r25389 = /* ERROR: no complex support in C */;
double r25390 = r25389 * r25373;
double r25391 = r25390 * r25373;
double r25392 = r25391 * r25373;
double r25393 = r25392 * r25373;
double r25394 = r25387 + r25393;
double r25395 = 20.0;
double r25396 = /* ERROR: no complex support in C */;
double r25397 = r25396 * r25373;
double r25398 = r25397 * r25373;
double r25399 = r25398 * r25373;
double r25400 = r25394 + r25399;
double r25401 = r25400 + r25391;
double r25402 = r25401 + r25382;
double r25403 = /* ERROR: no complex support in C */;
double r25404 = r25402 + r25403;
double r25405 = /* ERROR: no complex support in C */;
return r25405;
}
double f() {
double r25406 = -1.0;
double r25407 = 1.0;
double r25408 = /* ERROR: no complex support in C */;
double r25409 = 20.0;
double r25410 = 0.0;
double r25411 = /* ERROR: no complex support in C */;
double r25412 = r25411 * r25408;
double r25413 = 15.0;
double r25414 = /* ERROR: no complex support in C */;
double r25415 = r25412 + r25414;
double r25416 = r25408 * r25415;
double r25417 = r25408 * r25408;
double r25418 = r25414 * r25408;
double r25419 = 6.0;
double r25420 = /* ERROR: no complex support in C */;
double r25421 = r25408 + r25420;
double r25422 = r25417 * r25421;
double r25423 = r25418 + r25422;
double r25424 = r25417 * r25423;
double r25425 = r25416 + r25424;
double r25426 = r25408 * r25425;
double r25427 = r25420 * r25408;
double r25428 = /* ERROR: no complex support in C */;
double r25429 = r25427 + r25428;
double r25430 = r25426 + r25429;
double r25431 = /* ERROR: no complex support in C */;
return r25431;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2020044
(FPCore ()
:name "3.9.1 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))