\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(4 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(5 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \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)\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r25922 = 1.0;
double r25923 = -r25922;
double r25924 = 2.0;
double r25925 = r25923 / r25924;
double r25926 = 3.0;
double r25927 = sqrt(r25926);
double r25928 = r25927 / r25924;
double r25929 = /* ERROR: no complex support in C */;
double r25930 = r25929 * r25929;
double r25931 = r25930 * r25929;
double r25932 = r25931 * r25929;
double r25933 = -r25924;
double r25934 = 0.0;
double r25935 = /* ERROR: no complex support in C */;
double r25936 = r25935 * r25929;
double r25937 = r25936 * r25929;
double r25938 = r25937 * r25929;
double r25939 = r25932 + r25938;
double r25940 = 5.0;
double r25941 = /* ERROR: no complex support in C */;
double r25942 = r25941 * r25929;
double r25943 = r25942 * r25929;
double r25944 = r25939 + r25943;
double r25945 = 4.0;
double r25946 = /* ERROR: no complex support in C */;
double r25947 = r25946 * r25929;
double r25948 = r25944 + r25947;
double r25949 = 7.0;
double r25950 = /* ERROR: no complex support in C */;
double r25951 = r25948 + r25950;
double r25952 = /* ERROR: no complex support in C */;
return r25952;
}
double f() {
double r25953 = 1.0;
double r25954 = -r25953;
double r25955 = 2.0;
double r25956 = r25954 / r25955;
double r25957 = 3.0;
double r25958 = sqrt(r25957);
double r25959 = r25958 / r25955;
double r25960 = /* ERROR: no complex support in C */;
double r25961 = 4.0;
double r25962 = 0.0;
double r25963 = /* ERROR: no complex support in C */;
double r25964 = 5.0;
double r25965 = /* ERROR: no complex support in C */;
double r25966 = r25953 / r25955;
double r25967 = r25966 + r25955;
double r25968 = -r25967;
double r25969 = r25959 + r25962;
double r25970 = /* ERROR: no complex support in C */;
double r25971 = r25960 * r25970;
double r25972 = r25965 + r25971;
double r25973 = r25960 * r25972;
double r25974 = r25963 + r25973;
double r25975 = r25960 * r25974;
double r25976 = 7.0;
double r25977 = /* ERROR: no complex support in C */;
double r25978 = r25975 + r25977;
double r25979 = /* ERROR: no complex support in C */;
return r25979;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019323
(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))))