\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 r28010 = 1.0;
double r28011 = -r28010;
double r28012 = 2.0;
double r28013 = r28011 / r28012;
double r28014 = 3.0;
double r28015 = sqrt(r28014);
double r28016 = r28015 / r28012;
double r28017 = /* ERROR: no complex support in C */;
double r28018 = r28017 * r28017;
double r28019 = r28018 * r28017;
double r28020 = r28019 * r28017;
double r28021 = -r28012;
double r28022 = 0.0;
double r28023 = /* ERROR: no complex support in C */;
double r28024 = r28023 * r28017;
double r28025 = r28024 * r28017;
double r28026 = r28025 * r28017;
double r28027 = r28020 + r28026;
double r28028 = 5.0;
double r28029 = /* ERROR: no complex support in C */;
double r28030 = r28029 * r28017;
double r28031 = r28030 * r28017;
double r28032 = r28027 + r28031;
double r28033 = 4.0;
double r28034 = /* ERROR: no complex support in C */;
double r28035 = r28034 * r28017;
double r28036 = r28032 + r28035;
double r28037 = 7.0;
double r28038 = /* ERROR: no complex support in C */;
double r28039 = r28036 + r28038;
double r28040 = /* ERROR: no complex support in C */;
return r28040;
}
double f() {
double r28041 = 1.0;
double r28042 = -r28041;
double r28043 = 2.0;
double r28044 = r28042 / r28043;
double r28045 = 3.0;
double r28046 = sqrt(r28045);
double r28047 = r28046 / r28043;
double r28048 = /* ERROR: no complex support in C */;
double r28049 = r28048 * r28048;
double r28050 = r28049 * r28048;
double r28051 = r28050 * r28048;
double r28052 = -r28043;
double r28053 = 0.0;
double r28054 = /* ERROR: no complex support in C */;
double r28055 = r28054 * r28048;
double r28056 = r28055 * r28048;
double r28057 = r28056 * r28048;
double r28058 = r28051 + r28057;
double r28059 = 5.0;
double r28060 = /* ERROR: no complex support in C */;
double r28061 = r28060 * r28048;
double r28062 = r28061 * r28048;
double r28063 = r28058 + r28062;
double r28064 = 4.0;
double r28065 = /* ERROR: no complex support in C */;
double r28066 = r28065 * r28048;
double r28067 = r28063 + r28066;
double r28068 = 7.0;
double r28069 = /* ERROR: no complex support in C */;
double r28070 = r28067 + r28069;
double r28071 = /* ERROR: no complex support in C */;
return r28071;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 197574269
(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))))