\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(-\left(\frac{1}{2} + 2\right)\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 r37350 = 1.0;
double r37351 = -r37350;
double r37352 = 2.0;
double r37353 = r37351 / r37352;
double r37354 = 3.0;
double r37355 = sqrt(r37354);
double r37356 = r37355 / r37352;
double r37357 = /* ERROR: no complex support in C */;
double r37358 = r37357 * r37357;
double r37359 = r37358 * r37357;
double r37360 = r37359 * r37357;
double r37361 = -r37352;
double r37362 = 0.0;
double r37363 = /* ERROR: no complex support in C */;
double r37364 = r37363 * r37357;
double r37365 = r37364 * r37357;
double r37366 = r37365 * r37357;
double r37367 = r37360 + r37366;
double r37368 = 5.0;
double r37369 = /* ERROR: no complex support in C */;
double r37370 = r37369 * r37357;
double r37371 = r37370 * r37357;
double r37372 = r37367 + r37371;
double r37373 = 4.0;
double r37374 = /* ERROR: no complex support in C */;
double r37375 = r37374 * r37357;
double r37376 = r37372 + r37375;
double r37377 = 7.0;
double r37378 = /* ERROR: no complex support in C */;
double r37379 = r37376 + r37378;
double r37380 = /* ERROR: no complex support in C */;
return r37380;
}
double f() {
double r37381 = 1.0;
double r37382 = -r37381;
double r37383 = 2.0;
double r37384 = r37382 / r37383;
double r37385 = 3.0;
double r37386 = sqrt(r37385);
double r37387 = r37386 / r37383;
double r37388 = /* ERROR: no complex support in C */;
double r37389 = 5.0;
double r37390 = 0.0;
double r37391 = /* ERROR: no complex support in C */;
double r37392 = r37381 / r37383;
double r37393 = r37392 + r37383;
double r37394 = -r37393;
double r37395 = r37387 + r37390;
double r37396 = /* ERROR: no complex support in C */;
double r37397 = r37388 * r37396;
double r37398 = r37391 + r37397;
double r37399 = r37388 * r37398;
double r37400 = 4.0;
double r37401 = /* ERROR: no complex support in C */;
double r37402 = r37399 + r37401;
double r37403 = r37402 * r37388;
double r37404 = 7.0;
double r37405 = /* ERROR: no complex support in C */;
double r37406 = r37403 + r37405;
double r37407 = /* ERROR: no complex support in C */;
return r37407;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020047
(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))))