\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(\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(\frac{-1}{2} - 2\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\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 r28201 = 1.0;
double r28202 = -r28201;
double r28203 = 2.0;
double r28204 = r28202 / r28203;
double r28205 = 3.0;
double r28206 = sqrt(r28205);
double r28207 = r28206 / r28203;
double r28208 = /* ERROR: no complex support in C */;
double r28209 = r28208 * r28208;
double r28210 = r28209 * r28208;
double r28211 = r28210 * r28208;
double r28212 = -r28203;
double r28213 = 0.0;
double r28214 = /* ERROR: no complex support in C */;
double r28215 = r28214 * r28208;
double r28216 = r28215 * r28208;
double r28217 = r28216 * r28208;
double r28218 = r28211 + r28217;
double r28219 = 5.0;
double r28220 = /* ERROR: no complex support in C */;
double r28221 = r28220 * r28208;
double r28222 = r28221 * r28208;
double r28223 = r28218 + r28222;
double r28224 = 4.0;
double r28225 = /* ERROR: no complex support in C */;
double r28226 = r28225 * r28208;
double r28227 = r28223 + r28226;
double r28228 = 7.0;
double r28229 = /* ERROR: no complex support in C */;
double r28230 = r28227 + r28229;
double r28231 = /* ERROR: no complex support in C */;
return r28231;
}
double f() {
double r28232 = 1.0;
double r28233 = -r28232;
double r28234 = 2.0;
double r28235 = r28233 / r28234;
double r28236 = 3.0;
double r28237 = sqrt(r28236);
double r28238 = r28237 / r28234;
double r28239 = /* ERROR: no complex support in C */;
double r28240 = 5.0;
double r28241 = 0.0;
double r28242 = /* ERROR: no complex support in C */;
double r28243 = r28235 - r28234;
double r28244 = r28238 + r28241;
double r28245 = /* ERROR: no complex support in C */;
double r28246 = r28239 * r28245;
double r28247 = r28242 + r28246;
double r28248 = r28239 * r28247;
double r28249 = 4.0;
double r28250 = /* ERROR: no complex support in C */;
double r28251 = r28248 + r28250;
double r28252 = r28251 * r28239;
double r28253 = 7.0;
double r28254 = /* ERROR: no complex support in C */;
double r28255 = r28252 + r28254;
double r28256 = /* ERROR: no complex support in C */;
return r28256;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020046
(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))))