\Im(\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))\Im(\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 r26214 = 1.0;
double r26215 = -r26214;
double r26216 = 2.0;
double r26217 = r26215 / r26216;
double r26218 = 3.0;
double r26219 = sqrt(r26218);
double r26220 = r26219 / r26216;
double r26221 = /* ERROR: no complex support in C */;
double r26222 = r26221 * r26221;
double r26223 = r26222 * r26221;
double r26224 = r26223 * r26221;
double r26225 = -r26216;
double r26226 = 0.0;
double r26227 = /* ERROR: no complex support in C */;
double r26228 = r26227 * r26221;
double r26229 = r26228 * r26221;
double r26230 = r26229 * r26221;
double r26231 = r26224 + r26230;
double r26232 = 5.0;
double r26233 = /* ERROR: no complex support in C */;
double r26234 = r26233 * r26221;
double r26235 = r26234 * r26221;
double r26236 = r26231 + r26235;
double r26237 = 4.0;
double r26238 = /* ERROR: no complex support in C */;
double r26239 = r26238 * r26221;
double r26240 = r26236 + r26239;
double r26241 = 7.0;
double r26242 = /* ERROR: no complex support in C */;
double r26243 = r26240 + r26242;
double r26244 = /* ERROR: no complex support in C */;
return r26244;
}
double f() {
double r26245 = 1.0;
double r26246 = -r26245;
double r26247 = 2.0;
double r26248 = r26246 / r26247;
double r26249 = 3.0;
double r26250 = sqrt(r26249);
double r26251 = r26250 / r26247;
double r26252 = /* ERROR: no complex support in C */;
double r26253 = r26252 * r26252;
double r26254 = r26253 * r26252;
double r26255 = r26254 * r26252;
double r26256 = -r26247;
double r26257 = 0.0;
double r26258 = /* ERROR: no complex support in C */;
double r26259 = r26258 * r26252;
double r26260 = r26259 * r26252;
double r26261 = r26260 * r26252;
double r26262 = r26255 + r26261;
double r26263 = 5.0;
double r26264 = /* ERROR: no complex support in C */;
double r26265 = r26264 * r26252;
double r26266 = r26265 * r26252;
double r26267 = r26262 + r26266;
double r26268 = 4.0;
double r26269 = /* ERROR: no complex support in C */;
double r26270 = r26269 * r26252;
double r26271 = r26267 + r26270;
double r26272 = 7.0;
double r26273 = /* ERROR: no complex support in C */;
double r26274 = r26271 + r26273;
double r26275 = /* ERROR: no complex support in C */;
return r26275;
}
Initial program 0
Final simplification0
herbie shell --seed 2019362
(FPCore ()
:name "3.9.2 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (* (* (* (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))))