\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 r29133 = 1.0;
double r29134 = -r29133;
double r29135 = 2.0;
double r29136 = r29134 / r29135;
double r29137 = 3.0;
double r29138 = sqrt(r29137);
double r29139 = r29138 / r29135;
double r29140 = /* ERROR: no complex support in C */;
double r29141 = r29140 * r29140;
double r29142 = r29141 * r29140;
double r29143 = r29142 * r29140;
double r29144 = -r29135;
double r29145 = 0.0;
double r29146 = /* ERROR: no complex support in C */;
double r29147 = r29146 * r29140;
double r29148 = r29147 * r29140;
double r29149 = r29148 * r29140;
double r29150 = r29143 + r29149;
double r29151 = 5.0;
double r29152 = /* ERROR: no complex support in C */;
double r29153 = r29152 * r29140;
double r29154 = r29153 * r29140;
double r29155 = r29150 + r29154;
double r29156 = 4.0;
double r29157 = /* ERROR: no complex support in C */;
double r29158 = r29157 * r29140;
double r29159 = r29155 + r29158;
double r29160 = 7.0;
double r29161 = /* ERROR: no complex support in C */;
double r29162 = r29159 + r29161;
double r29163 = /* ERROR: no complex support in C */;
return r29163;
}
double f() {
double r29164 = 1.0;
double r29165 = -r29164;
double r29166 = 2.0;
double r29167 = r29165 / r29166;
double r29168 = 3.0;
double r29169 = sqrt(r29168);
double r29170 = r29169 / r29166;
double r29171 = /* ERROR: no complex support in C */;
double r29172 = r29171 * r29171;
double r29173 = r29172 * r29171;
double r29174 = r29173 * r29171;
double r29175 = -r29166;
double r29176 = 0.0;
double r29177 = /* ERROR: no complex support in C */;
double r29178 = r29177 * r29171;
double r29179 = r29178 * r29171;
double r29180 = r29179 * r29171;
double r29181 = r29174 + r29180;
double r29182 = 5.0;
double r29183 = /* ERROR: no complex support in C */;
double r29184 = r29183 * r29171;
double r29185 = r29184 * r29171;
double r29186 = r29181 + r29185;
double r29187 = 4.0;
double r29188 = /* ERROR: no complex support in C */;
double r29189 = r29188 * r29171;
double r29190 = r29186 + r29189;
double r29191 = 7.0;
double r29192 = /* ERROR: no complex support in C */;
double r29193 = r29190 + r29192;
double r29194 = /* ERROR: no complex support in C */;
return r29194;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019362
(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))))