\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 r208 = 1.0;
double r209 = -r208;
double r210 = 2.0;
double r211 = r209 / r210;
double r212 = 3.0;
double r213 = sqrt(r212);
double r214 = r213 / r210;
double r215 = /* ERROR: no complex support in C */;
double r216 = r215 * r215;
double r217 = r216 * r215;
double r218 = r217 * r215;
double r219 = -r210;
double r220 = 0.0;
double r221 = /* ERROR: no complex support in C */;
double r222 = r221 * r215;
double r223 = r222 * r215;
double r224 = r223 * r215;
double r225 = r218 + r224;
double r226 = 5.0;
double r227 = /* ERROR: no complex support in C */;
double r228 = r227 * r215;
double r229 = r228 * r215;
double r230 = r225 + r229;
double r231 = 4.0;
double r232 = /* ERROR: no complex support in C */;
double r233 = r232 * r215;
double r234 = r230 + r233;
double r235 = 7.0;
double r236 = /* ERROR: no complex support in C */;
double r237 = r234 + r236;
double r238 = /* ERROR: no complex support in C */;
return r238;
}
double f() {
double r239 = 1.0;
double r240 = -r239;
double r241 = 2.0;
double r242 = r240 / r241;
double r243 = 3.0;
double r244 = sqrt(r243);
double r245 = r244 / r241;
double r246 = /* ERROR: no complex support in C */;
double r247 = r246 * r246;
double r248 = r247 * r246;
double r249 = r248 * r246;
double r250 = -r241;
double r251 = 0.0;
double r252 = /* ERROR: no complex support in C */;
double r253 = r252 * r246;
double r254 = r253 * r246;
double r255 = r254 * r246;
double r256 = r249 + r255;
double r257 = 5.0;
double r258 = /* ERROR: no complex support in C */;
double r259 = r258 * r246;
double r260 = r259 * r246;
double r261 = r256 + r260;
double r262 = 4.0;
double r263 = /* ERROR: no complex support in C */;
double r264 = r263 * r246;
double r265 = r261 + r264;
double r266 = 7.0;
double r267 = /* ERROR: no complex support in C */;
double r268 = r265 + r267;
double r269 = /* ERROR: no complex support in C */;
return r269;
}
Initial program 0
Final simplification0
herbie shell --seed 2020025
(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))))