\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(\left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + -2 \cdot \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(5 + \frac{\sqrt{3} \cdot 4}{2} i\right)\right))double f() {
double r821249 = 1.0;
double r821250 = -r821249;
double r821251 = 2.0;
double r821252 = r821250 / r821251;
double r821253 = 3.0;
double r821254 = sqrt(r821253);
double r821255 = r821254 / r821251;
double r821256 = /* ERROR: no complex support in C */;
double r821257 = r821256 * r821256;
double r821258 = r821257 * r821256;
double r821259 = r821258 * r821256;
double r821260 = -r821251;
double r821261 = 0.0;
double r821262 = /* ERROR: no complex support in C */;
double r821263 = r821262 * r821256;
double r821264 = r821263 * r821256;
double r821265 = r821264 * r821256;
double r821266 = r821259 + r821265;
double r821267 = 5.0;
double r821268 = /* ERROR: no complex support in C */;
double r821269 = r821268 * r821256;
double r821270 = r821269 * r821256;
double r821271 = r821266 + r821270;
double r821272 = 4.0;
double r821273 = /* ERROR: no complex support in C */;
double r821274 = r821273 * r821256;
double r821275 = r821271 + r821274;
double r821276 = 7.0;
double r821277 = /* ERROR: no complex support in C */;
double r821278 = r821275 + r821277;
double r821279 = /* ERROR: no complex support in C */;
return r821279;
}
double f() {
double r821280 = 3.0;
double r821281 = sqrt(r821280);
double r821282 = 2.0;
double r821283 = r821281 / r821282;
double r821284 = -4.0;
double r821285 = r821281 / r821284;
double r821286 = r821285 + r821285;
double r821287 = r821283 * r821286;
double r821288 = 0.25;
double r821289 = r821287 + r821288;
double r821290 = /* ERROR: no complex support in C */;
double r821291 = 6.0;
double r821292 = -2.0;
double r821293 = r821292 * r821283;
double r821294 = /* ERROR: no complex support in C */;
double r821295 = r821290 + r821294;
double r821296 = r821295 * r821290;
double r821297 = 5.0;
double r821298 = 4.0;
double r821299 = r821281 * r821298;
double r821300 = r821299 / r821282;
double r821301 = /* ERROR: no complex support in C */;
double r821302 = r821296 + r821301;
double r821303 = /* ERROR: no complex support in C */;
return r821303;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019155 +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))))