\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(5 + \frac{\sqrt{3}}{2} \cdot 4 i\right) + \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right) + \left(6 + \frac{-1}{2} \cdot \frac{\sqrt{3}}{\frac{1}{2}} i\right)\right) \cdot \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right)\right))double f() {
double r1881344 = 1.0;
double r1881345 = -r1881344;
double r1881346 = 2.0;
double r1881347 = r1881345 / r1881346;
double r1881348 = 3.0;
double r1881349 = sqrt(r1881348);
double r1881350 = r1881349 / r1881346;
double r1881351 = /* ERROR: no complex support in C */;
double r1881352 = r1881351 * r1881351;
double r1881353 = r1881352 * r1881351;
double r1881354 = r1881353 * r1881351;
double r1881355 = -r1881346;
double r1881356 = 0.0;
double r1881357 = /* ERROR: no complex support in C */;
double r1881358 = r1881357 * r1881351;
double r1881359 = r1881358 * r1881351;
double r1881360 = r1881359 * r1881351;
double r1881361 = r1881354 + r1881360;
double r1881362 = 5.0;
double r1881363 = /* ERROR: no complex support in C */;
double r1881364 = r1881363 * r1881351;
double r1881365 = r1881364 * r1881351;
double r1881366 = r1881361 + r1881365;
double r1881367 = 4.0;
double r1881368 = /* ERROR: no complex support in C */;
double r1881369 = r1881368 * r1881351;
double r1881370 = r1881366 + r1881369;
double r1881371 = 7.0;
double r1881372 = /* ERROR: no complex support in C */;
double r1881373 = r1881370 + r1881372;
double r1881374 = /* ERROR: no complex support in C */;
return r1881374;
}
double f() {
double r1881375 = 5.0;
double r1881376 = 3.0;
double r1881377 = sqrt(r1881376);
double r1881378 = 2.0;
double r1881379 = r1881377 / r1881378;
double r1881380 = 4.0;
double r1881381 = r1881379 * r1881380;
double r1881382 = /* ERROR: no complex support in C */;
double r1881383 = 0.25;
double r1881384 = r1881379 * r1881379;
double r1881385 = r1881383 - r1881384;
double r1881386 = -r1881377;
double r1881387 = r1881386 / r1881378;
double r1881388 = /* ERROR: no complex support in C */;
double r1881389 = 6.0;
double r1881390 = -0.5;
double r1881391 = 0.5;
double r1881392 = r1881377 / r1881391;
double r1881393 = r1881390 * r1881392;
double r1881394 = /* ERROR: no complex support in C */;
double r1881395 = r1881388 + r1881394;
double r1881396 = r1881395 * r1881388;
double r1881397 = r1881382 + r1881396;
double r1881398 = /* ERROR: no complex support in C */;
return r1881398;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019162
(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))))