\Re(\left(\left(\left(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\left(\left(\left(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\left(5 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(4 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))\Re(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(4 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(-\left(\frac{1}{2} + 2\right)\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right) + \left(5 + 0.0 i\right)\right)\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r28507 = 1.0;
double r28508 = -r28507;
double r28509 = 2.0;
double r28510 = r28508 / r28509;
double r28511 = 3.0;
double r28512 = sqrt(r28511);
double r28513 = r28512 / r28509;
double r28514 = /* ERROR: no complex support in C */;
double r28515 = r28514 * r28514;
double r28516 = r28515 * r28514;
double r28517 = r28516 * r28514;
double r28518 = -r28509;
double r28519 = 0.0;
double r28520 = /* ERROR: no complex support in C */;
double r28521 = r28520 * r28514;
double r28522 = r28521 * r28514;
double r28523 = r28522 * r28514;
double r28524 = r28517 + r28523;
double r28525 = 5.0;
double r28526 = /* ERROR: no complex support in C */;
double r28527 = r28526 * r28514;
double r28528 = r28527 * r28514;
double r28529 = r28524 + r28528;
double r28530 = 4.0;
double r28531 = /* ERROR: no complex support in C */;
double r28532 = r28531 * r28514;
double r28533 = r28529 + r28532;
double r28534 = 7.0;
double r28535 = /* ERROR: no complex support in C */;
double r28536 = r28533 + r28535;
double r28537 = /* ERROR: no complex support in C */;
return r28537;
}
double f() {
double r28538 = 1.0;
double r28539 = -r28538;
double r28540 = 2.0;
double r28541 = r28539 / r28540;
double r28542 = 3.0;
double r28543 = sqrt(r28542);
double r28544 = r28543 / r28540;
double r28545 = /* ERROR: no complex support in C */;
double r28546 = 4.0;
double r28547 = 0.0;
double r28548 = /* ERROR: no complex support in C */;
double r28549 = r28538 / r28540;
double r28550 = r28549 + r28540;
double r28551 = -r28550;
double r28552 = r28544 + r28547;
double r28553 = /* ERROR: no complex support in C */;
double r28554 = r28545 * r28553;
double r28555 = 5.0;
double r28556 = /* ERROR: no complex support in C */;
double r28557 = r28554 + r28556;
double r28558 = r28545 * r28557;
double r28559 = r28548 + r28558;
double r28560 = r28545 * r28559;
double r28561 = 7.0;
double r28562 = /* ERROR: no complex support in C */;
double r28563 = r28560 + r28562;
double r28564 = /* ERROR: no complex support in C */;
return r28564;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019303 +o rules:numerics
(FPCore ()
:name "3.9.2 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (* (* (* (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (* (* (* (complex (- 2) 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (* (complex 5 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (complex 4 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0.0))))