\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(4 + 0.0 i\right) + \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)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r29161 = 1.0;
double r29162 = -r29161;
double r29163 = 2.0;
double r29164 = r29162 / r29163;
double r29165 = 3.0;
double r29166 = sqrt(r29165);
double r29167 = r29166 / r29163;
double r29168 = /* ERROR: no complex support in C */;
double r29169 = r29168 * r29168;
double r29170 = r29169 * r29168;
double r29171 = r29170 * r29168;
double r29172 = -r29163;
double r29173 = 0.0;
double r29174 = /* ERROR: no complex support in C */;
double r29175 = r29174 * r29168;
double r29176 = r29175 * r29168;
double r29177 = r29176 * r29168;
double r29178 = r29171 + r29177;
double r29179 = 5.0;
double r29180 = /* ERROR: no complex support in C */;
double r29181 = r29180 * r29168;
double r29182 = r29181 * r29168;
double r29183 = r29178 + r29182;
double r29184 = 4.0;
double r29185 = /* ERROR: no complex support in C */;
double r29186 = r29185 * r29168;
double r29187 = r29183 + r29186;
double r29188 = 7.0;
double r29189 = /* ERROR: no complex support in C */;
double r29190 = r29187 + r29189;
double r29191 = /* ERROR: no complex support in C */;
return r29191;
}
double f() {
double r29192 = 1.0;
double r29193 = -r29192;
double r29194 = 2.0;
double r29195 = r29193 / r29194;
double r29196 = 3.0;
double r29197 = sqrt(r29196);
double r29198 = r29197 / r29194;
double r29199 = /* ERROR: no complex support in C */;
double r29200 = 4.0;
double r29201 = 0.0;
double r29202 = /* ERROR: no complex support in C */;
double r29203 = 5.0;
double r29204 = /* ERROR: no complex support in C */;
double r29205 = r29192 / r29194;
double r29206 = r29205 + r29194;
double r29207 = -r29206;
double r29208 = r29198 + r29201;
double r29209 = /* ERROR: no complex support in C */;
double r29210 = r29199 * r29209;
double r29211 = r29204 + r29210;
double r29212 = r29199 * r29211;
double r29213 = r29202 + r29212;
double r29214 = r29199 * r29213;
double r29215 = 7.0;
double r29216 = /* ERROR: no complex support in C */;
double r29217 = r29214 + r29216;
double r29218 = /* ERROR: no complex support in C */;
return r29218;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019322
(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))))