\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{11}{2} + \left(\frac{\sqrt{3}}{-2} + \left(-\sqrt{3}\right)\right) i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{-2} i\right) + \left(5 + \sqrt{3} \cdot 2 i\right)\right))double f() {
double r900629 = 1.0;
double r900630 = -r900629;
double r900631 = 2.0;
double r900632 = r900630 / r900631;
double r900633 = 3.0;
double r900634 = sqrt(r900633);
double r900635 = r900634 / r900631;
double r900636 = /* ERROR: no complex support in C */;
double r900637 = r900636 * r900636;
double r900638 = r900637 * r900636;
double r900639 = r900638 * r900636;
double r900640 = -r900631;
double r900641 = 0.0;
double r900642 = /* ERROR: no complex support in C */;
double r900643 = r900642 * r900636;
double r900644 = r900643 * r900636;
double r900645 = r900644 * r900636;
double r900646 = r900639 + r900645;
double r900647 = 5.0;
double r900648 = /* ERROR: no complex support in C */;
double r900649 = r900648 * r900636;
double r900650 = r900649 * r900636;
double r900651 = r900646 + r900650;
double r900652 = 4.0;
double r900653 = /* ERROR: no complex support in C */;
double r900654 = r900653 * r900636;
double r900655 = r900651 + r900654;
double r900656 = 7.0;
double r900657 = /* ERROR: no complex support in C */;
double r900658 = r900655 + r900657;
double r900659 = /* ERROR: no complex support in C */;
return r900659;
}
double f() {
double r900660 = 5.5;
double r900661 = 3.0;
double r900662 = sqrt(r900661);
double r900663 = -2.0;
double r900664 = r900662 / r900663;
double r900665 = -r900662;
double r900666 = r900664 + r900665;
double r900667 = /* ERROR: no complex support in C */;
double r900668 = -0.5;
double r900669 = /* ERROR: no complex support in C */;
double r900670 = r900667 * r900669;
double r900671 = 5.0;
double r900672 = 2.0;
double r900673 = r900662 * r900672;
double r900674 = /* ERROR: no complex support in C */;
double r900675 = r900670 + r900674;
double r900676 = /* ERROR: no complex support in C */;
return r900676;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019142 +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))))