\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 r27404 = 1.0;
double r27405 = -r27404;
double r27406 = 2.0;
double r27407 = r27405 / r27406;
double r27408 = 3.0;
double r27409 = sqrt(r27408);
double r27410 = r27409 / r27406;
double r27411 = /* ERROR: no complex support in C */;
double r27412 = r27411 * r27411;
double r27413 = r27412 * r27411;
double r27414 = r27413 * r27411;
double r27415 = -r27406;
double r27416 = 0.0;
double r27417 = /* ERROR: no complex support in C */;
double r27418 = r27417 * r27411;
double r27419 = r27418 * r27411;
double r27420 = r27419 * r27411;
double r27421 = r27414 + r27420;
double r27422 = 5.0;
double r27423 = /* ERROR: no complex support in C */;
double r27424 = r27423 * r27411;
double r27425 = r27424 * r27411;
double r27426 = r27421 + r27425;
double r27427 = 4.0;
double r27428 = /* ERROR: no complex support in C */;
double r27429 = r27428 * r27411;
double r27430 = r27426 + r27429;
double r27431 = 7.0;
double r27432 = /* ERROR: no complex support in C */;
double r27433 = r27430 + r27432;
double r27434 = /* ERROR: no complex support in C */;
return r27434;
}
double f() {
double r27435 = 1.0;
double r27436 = -r27435;
double r27437 = 2.0;
double r27438 = r27436 / r27437;
double r27439 = 3.0;
double r27440 = sqrt(r27439);
double r27441 = r27440 / r27437;
double r27442 = /* ERROR: no complex support in C */;
double r27443 = r27442 * r27442;
double r27444 = r27443 * r27442;
double r27445 = r27444 * r27442;
double r27446 = -r27437;
double r27447 = 0.0;
double r27448 = /* ERROR: no complex support in C */;
double r27449 = r27448 * r27442;
double r27450 = r27449 * r27442;
double r27451 = r27450 * r27442;
double r27452 = r27445 + r27451;
double r27453 = 5.0;
double r27454 = /* ERROR: no complex support in C */;
double r27455 = r27454 * r27442;
double r27456 = r27455 * r27442;
double r27457 = r27452 + r27456;
double r27458 = 4.0;
double r27459 = /* ERROR: no complex support in C */;
double r27460 = r27459 * r27442;
double r27461 = r27457 + r27460;
double r27462 = 7.0;
double r27463 = /* ERROR: no complex support in C */;
double r27464 = r27461 + r27463;
double r27465 = /* ERROR: no complex support in C */;
return r27465;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019352
(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))))