\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(\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))double f() {
double r24451 = 1.0;
double r24452 = -r24451;
double r24453 = 2.0;
double r24454 = r24452 / r24453;
double r24455 = 3.0;
double r24456 = sqrt(r24455);
double r24457 = r24456 / r24453;
double r24458 = /* ERROR: no complex support in C */;
double r24459 = r24458 * r24458;
double r24460 = r24459 * r24458;
double r24461 = r24460 * r24458;
double r24462 = -r24453;
double r24463 = 0.0;
double r24464 = /* ERROR: no complex support in C */;
double r24465 = r24464 * r24458;
double r24466 = r24465 * r24458;
double r24467 = r24466 * r24458;
double r24468 = r24461 + r24467;
double r24469 = 5.0;
double r24470 = /* ERROR: no complex support in C */;
double r24471 = r24470 * r24458;
double r24472 = r24471 * r24458;
double r24473 = r24468 + r24472;
double r24474 = 4.0;
double r24475 = /* ERROR: no complex support in C */;
double r24476 = r24475 * r24458;
double r24477 = r24473 + r24476;
double r24478 = 7.0;
double r24479 = /* ERROR: no complex support in C */;
double r24480 = r24477 + r24479;
double r24481 = /* ERROR: no complex support in C */;
return r24481;
}
double f() {
double r24482 = 1.0;
double r24483 = -r24482;
double r24484 = 2.0;
double r24485 = r24483 / r24484;
double r24486 = 3.0;
double r24487 = sqrt(r24486);
double r24488 = r24487 / r24484;
double r24489 = /* ERROR: no complex support in C */;
double r24490 = r24489 * r24489;
double r24491 = r24490 * r24489;
double r24492 = r24491 * r24489;
double r24493 = -r24484;
double r24494 = 0.0;
double r24495 = /* ERROR: no complex support in C */;
double r24496 = r24495 * r24489;
double r24497 = r24496 * r24489;
double r24498 = r24497 * r24489;
double r24499 = r24492 + r24498;
double r24500 = 5.0;
double r24501 = /* ERROR: no complex support in C */;
double r24502 = r24501 * r24489;
double r24503 = r24502 * r24489;
double r24504 = r24499 + r24503;
double r24505 = 4.0;
double r24506 = /* ERROR: no complex support in C */;
double r24507 = r24506 * r24489;
double r24508 = r24504 + r24507;
double r24509 = 7.0;
double r24510 = /* ERROR: no complex support in C */;
double r24511 = r24508 + r24510;
double r24512 = /* ERROR: no complex support in C */;
return r24512;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020060
(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))))