\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(\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))double f() {
double r27376 = 1.0;
double r27377 = -r27376;
double r27378 = 2.0;
double r27379 = r27377 / r27378;
double r27380 = 3.0;
double r27381 = sqrt(r27380);
double r27382 = r27381 / r27378;
double r27383 = /* ERROR: no complex support in C */;
double r27384 = r27383 * r27383;
double r27385 = r27384 * r27383;
double r27386 = r27385 * r27383;
double r27387 = -r27378;
double r27388 = 0.0;
double r27389 = /* ERROR: no complex support in C */;
double r27390 = r27389 * r27383;
double r27391 = r27390 * r27383;
double r27392 = r27391 * r27383;
double r27393 = r27386 + r27392;
double r27394 = 5.0;
double r27395 = /* ERROR: no complex support in C */;
double r27396 = r27395 * r27383;
double r27397 = r27396 * r27383;
double r27398 = r27393 + r27397;
double r27399 = 4.0;
double r27400 = /* ERROR: no complex support in C */;
double r27401 = r27400 * r27383;
double r27402 = r27398 + r27401;
double r27403 = 7.0;
double r27404 = /* ERROR: no complex support in C */;
double r27405 = r27402 + r27404;
double r27406 = /* ERROR: no complex support in C */;
return r27406;
}
double f() {
double r27407 = 1.0;
double r27408 = -r27407;
double r27409 = 2.0;
double r27410 = r27408 / r27409;
double r27411 = 3.0;
double r27412 = sqrt(r27411);
double r27413 = r27412 / r27409;
double r27414 = /* ERROR: no complex support in C */;
double r27415 = r27414 * r27414;
double r27416 = r27415 * r27414;
double r27417 = r27416 * r27414;
double r27418 = -r27409;
double r27419 = 0.0;
double r27420 = /* ERROR: no complex support in C */;
double r27421 = r27420 * r27414;
double r27422 = r27421 * r27414;
double r27423 = r27422 * r27414;
double r27424 = r27417 + r27423;
double r27425 = 5.0;
double r27426 = /* ERROR: no complex support in C */;
double r27427 = r27426 * r27414;
double r27428 = r27427 * r27414;
double r27429 = r27424 + r27428;
double r27430 = 4.0;
double r27431 = /* ERROR: no complex support in C */;
double r27432 = r27431 * r27414;
double r27433 = r27429 + r27432;
double r27434 = 7.0;
double r27435 = /* ERROR: no complex support in C */;
double r27436 = r27433 + r27435;
double r27437 = /* ERROR: no complex support in C */;
return r27437;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020025
(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))))