\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(\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)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r24176 = 1.0;
double r24177 = -r24176;
double r24178 = 2.0;
double r24179 = r24177 / r24178;
double r24180 = 3.0;
double r24181 = sqrt(r24180);
double r24182 = r24181 / r24178;
double r24183 = /* ERROR: no complex support in C */;
double r24184 = r24183 * r24183;
double r24185 = r24184 * r24183;
double r24186 = r24185 * r24183;
double r24187 = -r24178;
double r24188 = 0.0;
double r24189 = /* ERROR: no complex support in C */;
double r24190 = r24189 * r24183;
double r24191 = r24190 * r24183;
double r24192 = r24191 * r24183;
double r24193 = r24186 + r24192;
double r24194 = 5.0;
double r24195 = /* ERROR: no complex support in C */;
double r24196 = r24195 * r24183;
double r24197 = r24196 * r24183;
double r24198 = r24193 + r24197;
double r24199 = 4.0;
double r24200 = /* ERROR: no complex support in C */;
double r24201 = r24200 * r24183;
double r24202 = r24198 + r24201;
double r24203 = 7.0;
double r24204 = /* ERROR: no complex support in C */;
double r24205 = r24202 + r24204;
double r24206 = /* ERROR: no complex support in C */;
return r24206;
}
double f() {
double r24207 = 1.0;
double r24208 = -r24207;
double r24209 = 2.0;
double r24210 = r24208 / r24209;
double r24211 = 3.0;
double r24212 = sqrt(r24211);
double r24213 = r24212 / r24209;
double r24214 = /* ERROR: no complex support in C */;
double r24215 = 5.0;
double r24216 = 0.0;
double r24217 = /* ERROR: no complex support in C */;
double r24218 = r24207 / r24209;
double r24219 = r24218 + r24209;
double r24220 = -r24219;
double r24221 = r24213 + r24216;
double r24222 = /* ERROR: no complex support in C */;
double r24223 = r24214 * r24222;
double r24224 = r24217 + r24223;
double r24225 = r24214 * r24224;
double r24226 = 4.0;
double r24227 = /* ERROR: no complex support in C */;
double r24228 = r24225 + r24227;
double r24229 = r24214 * r24228;
double r24230 = 7.0;
double r24231 = /* ERROR: no complex support in C */;
double r24232 = r24229 + r24231;
double r24233 = /* ERROR: no complex support in C */;
return r24233;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019199
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+ (+ (+ (+ (* (* (* (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (* (* (* (complex (- 2.0) 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (* (complex 5.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))