\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(\frac{-1}{2} + \frac{-\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} + \frac{-\sqrt{3}}{2} i\right) + \left(6 + \frac{\sqrt{3}}{-1} i\right)\right) + \left(5 + \frac{\sqrt{3}}{\frac{1}{2}} i\right)\right))double f() {
double r1124476 = 1.0;
double r1124477 = -r1124476;
double r1124478 = 2.0;
double r1124479 = r1124477 / r1124478;
double r1124480 = 3.0;
double r1124481 = sqrt(r1124480);
double r1124482 = r1124481 / r1124478;
double r1124483 = /* ERROR: no complex support in C */;
double r1124484 = r1124483 * r1124483;
double r1124485 = r1124484 * r1124483;
double r1124486 = r1124485 * r1124483;
double r1124487 = -r1124478;
double r1124488 = 0.0;
double r1124489 = /* ERROR: no complex support in C */;
double r1124490 = r1124489 * r1124483;
double r1124491 = r1124490 * r1124483;
double r1124492 = r1124491 * r1124483;
double r1124493 = r1124486 + r1124492;
double r1124494 = 5.0;
double r1124495 = /* ERROR: no complex support in C */;
double r1124496 = r1124495 * r1124483;
double r1124497 = r1124496 * r1124483;
double r1124498 = r1124493 + r1124497;
double r1124499 = 4.0;
double r1124500 = /* ERROR: no complex support in C */;
double r1124501 = r1124500 * r1124483;
double r1124502 = r1124498 + r1124501;
double r1124503 = 7.0;
double r1124504 = /* ERROR: no complex support in C */;
double r1124505 = r1124502 + r1124504;
double r1124506 = /* ERROR: no complex support in C */;
return r1124506;
}
double f() {
double r1124507 = -0.5;
double r1124508 = 3.0;
double r1124509 = sqrt(r1124508);
double r1124510 = -r1124509;
double r1124511 = 2.0;
double r1124512 = r1124510 / r1124511;
double r1124513 = /* ERROR: no complex support in C */;
double r1124514 = 6.0;
double r1124515 = -1.0;
double r1124516 = r1124509 / r1124515;
double r1124517 = /* ERROR: no complex support in C */;
double r1124518 = r1124513 + r1124517;
double r1124519 = r1124513 * r1124518;
double r1124520 = 5.0;
double r1124521 = 0.5;
double r1124522 = r1124509 / r1124521;
double r1124523 = /* ERROR: no complex support in C */;
double r1124524 = r1124519 + r1124523;
double r1124525 = /* ERROR: no complex support in C */;
return r1124525;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019162 +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))))