\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(4 + 0.0 i\right) + \left(\left(\left(5 + 0.0 i\right) + \left(\left(\left(-\frac{1}{2}\right) + \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)\right) \cdot \left(\left(-\frac{1}{2}\right) + \frac{\sqrt{3}}{2} i\right)\right)\right) \cdot \left(\left(-\frac{1}{2}\right) + \frac{\sqrt{3}}{2} i\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r25782 = 1.0;
double r25783 = -r25782;
double r25784 = 2.0;
double r25785 = r25783 / r25784;
double r25786 = 3.0;
double r25787 = sqrt(r25786);
double r25788 = r25787 / r25784;
double r25789 = /* ERROR: no complex support in C */;
double r25790 = r25789 * r25789;
double r25791 = r25790 * r25789;
double r25792 = r25791 * r25789;
double r25793 = -r25784;
double r25794 = 0.0;
double r25795 = /* ERROR: no complex support in C */;
double r25796 = r25795 * r25789;
double r25797 = r25796 * r25789;
double r25798 = r25797 * r25789;
double r25799 = r25792 + r25798;
double r25800 = 5.0;
double r25801 = /* ERROR: no complex support in C */;
double r25802 = r25801 * r25789;
double r25803 = r25802 * r25789;
double r25804 = r25799 + r25803;
double r25805 = 4.0;
double r25806 = /* ERROR: no complex support in C */;
double r25807 = r25806 * r25789;
double r25808 = r25804 + r25807;
double r25809 = 7.0;
double r25810 = /* ERROR: no complex support in C */;
double r25811 = r25808 + r25810;
double r25812 = /* ERROR: no complex support in C */;
return r25812;
}
double f() {
double r25813 = 4.0;
double r25814 = 0.0;
double r25815 = /* ERROR: no complex support in C */;
double r25816 = 5.0;
double r25817 = /* ERROR: no complex support in C */;
double r25818 = 1.0;
double r25819 = 2.0;
double r25820 = r25818 / r25819;
double r25821 = -r25820;
double r25822 = 3.0;
double r25823 = sqrt(r25822);
double r25824 = r25823 / r25819;
double r25825 = /* ERROR: no complex support in C */;
double r25826 = r25820 + r25819;
double r25827 = -r25826;
double r25828 = r25824 + r25814;
double r25829 = /* ERROR: no complex support in C */;
double r25830 = r25825 * r25829;
double r25831 = r25817 + r25830;
double r25832 = r25831 * r25825;
double r25833 = r25815 + r25832;
double r25834 = r25833 * r25825;
double r25835 = 7.0;
double r25836 = /* ERROR: no complex support in C */;
double r25837 = r25834 + r25836;
double r25838 = /* ERROR: no complex support in C */;
return r25838;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019179
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+ (+ (+ (+ (* (* (* (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (* (* (* (complex (- 2.0) 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (* (complex 5.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))