\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(\left(\left(5 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} - 2\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(4 + 0.0 i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r13154 = 1.0;
double r13155 = -r13154;
double r13156 = 2.0;
double r13157 = r13155 / r13156;
double r13158 = 3.0;
double r13159 = sqrt(r13158);
double r13160 = r13159 / r13156;
double r13161 = /* ERROR: no complex support in C */;
double r13162 = r13161 * r13161;
double r13163 = r13162 * r13161;
double r13164 = r13163 * r13161;
double r13165 = -r13156;
double r13166 = 0.0;
double r13167 = /* ERROR: no complex support in C */;
double r13168 = r13167 * r13161;
double r13169 = r13168 * r13161;
double r13170 = r13169 * r13161;
double r13171 = r13164 + r13170;
double r13172 = 5.0;
double r13173 = /* ERROR: no complex support in C */;
double r13174 = r13173 * r13161;
double r13175 = r13174 * r13161;
double r13176 = r13171 + r13175;
double r13177 = 4.0;
double r13178 = /* ERROR: no complex support in C */;
double r13179 = r13178 * r13161;
double r13180 = r13176 + r13179;
double r13181 = 7.0;
double r13182 = /* ERROR: no complex support in C */;
double r13183 = r13180 + r13182;
double r13184 = /* ERROR: no complex support in C */;
return r13184;
}
double f() {
double r13185 = 5.0;
double r13186 = 0.0;
double r13187 = /* ERROR: no complex support in C */;
double r13188 = 1.0;
double r13189 = -r13188;
double r13190 = 2.0;
double r13191 = r13189 / r13190;
double r13192 = 3.0;
double r13193 = sqrt(r13192);
double r13194 = r13193 / r13190;
double r13195 = /* ERROR: no complex support in C */;
double r13196 = r13191 - r13190;
double r13197 = r13194 + r13186;
double r13198 = /* ERROR: no complex support in C */;
double r13199 = r13195 * r13198;
double r13200 = r13187 + r13199;
double r13201 = r13200 * r13195;
double r13202 = 4.0;
double r13203 = /* ERROR: no complex support in C */;
double r13204 = r13201 + r13203;
double r13205 = r13204 * r13195;
double r13206 = 7.0;
double r13207 = /* ERROR: no complex support in C */;
double r13208 = r13205 + r13207;
double r13209 = /* ERROR: no complex support in C */;
return r13209;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020047
(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))))