\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(5 + \frac{\sqrt{3}}{2} \cdot 4 i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) \cdot \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + -2 \cdot \frac{\sqrt{3}}{2} i\right)\right)\right))double f() {
double r316455 = 1.0;
double r316456 = -r316455;
double r316457 = 2.0;
double r316458 = r316456 / r316457;
double r316459 = 3.0;
double r316460 = sqrt(r316459);
double r316461 = r316460 / r316457;
double r316462 = /* ERROR: no complex support in C */;
double r316463 = r316462 * r316462;
double r316464 = r316463 * r316462;
double r316465 = r316464 * r316462;
double r316466 = -r316457;
double r316467 = 0.0;
double r316468 = /* ERROR: no complex support in C */;
double r316469 = r316468 * r316462;
double r316470 = r316469 * r316462;
double r316471 = r316470 * r316462;
double r316472 = r316465 + r316471;
double r316473 = 5.0;
double r316474 = /* ERROR: no complex support in C */;
double r316475 = r316474 * r316462;
double r316476 = r316475 * r316462;
double r316477 = r316472 + r316476;
double r316478 = 4.0;
double r316479 = /* ERROR: no complex support in C */;
double r316480 = r316479 * r316462;
double r316481 = r316477 + r316480;
double r316482 = 7.0;
double r316483 = /* ERROR: no complex support in C */;
double r316484 = r316481 + r316483;
double r316485 = /* ERROR: no complex support in C */;
return r316485;
}
double f() {
double r316486 = 5.0;
double r316487 = 3.0;
double r316488 = sqrt(r316487);
double r316489 = 2.0;
double r316490 = r316488 / r316489;
double r316491 = 4.0;
double r316492 = r316490 * r316491;
double r316493 = /* ERROR: no complex support in C */;
double r316494 = 0.25;
double r316495 = r316490 * r316490;
double r316496 = r316494 - r316495;
double r316497 = -4.0;
double r316498 = r316488 / r316497;
double r316499 = r316498 + r316498;
double r316500 = /* ERROR: no complex support in C */;
double r316501 = 6.0;
double r316502 = -2.0;
double r316503 = r316502 * r316490;
double r316504 = /* ERROR: no complex support in C */;
double r316505 = r316500 + r316504;
double r316506 = r316500 * r316505;
double r316507 = r316493 + r316506;
double r316508 = /* ERROR: no complex support in C */;
return r316508;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019128 +o rules:numerics
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))