\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Im(\left(\left(\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(-2 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right)\right) + \left(\left(5 + 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) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0 i\right)\right) + \left(7 + 0 i\right)\right))double f() {
double r413220 = 1.0;
double r413221 = -r413220;
double r413222 = 2.0;
double r413223 = r413221 / r413222;
double r413224 = 3.0;
double r413225 = sqrt(r413224);
double r413226 = r413225 / r413222;
double r413227 = /* ERROR: no complex support in C */;
double r413228 = r413227 * r413227;
double r413229 = r413228 * r413227;
double r413230 = r413229 * r413227;
double r413231 = -r413222;
double r413232 = 0.0;
double r413233 = /* ERROR: no complex support in C */;
double r413234 = r413233 * r413227;
double r413235 = r413234 * r413227;
double r413236 = r413235 * r413227;
double r413237 = r413230 + r413236;
double r413238 = 5.0;
double r413239 = /* ERROR: no complex support in C */;
double r413240 = r413239 * r413227;
double r413241 = r413240 * r413227;
double r413242 = r413237 + r413241;
double r413243 = 4.0;
double r413244 = /* ERROR: no complex support in C */;
double r413245 = r413244 * r413227;
double r413246 = r413242 + r413245;
double r413247 = 7.0;
double r413248 = /* ERROR: no complex support in C */;
double r413249 = r413246 + r413248;
double r413250 = /* ERROR: no complex support in C */;
return r413250;
}
double f() {
double r413251 = -0.5;
double r413252 = 3.0;
double r413253 = sqrt(r413252);
double r413254 = 2.0;
double r413255 = r413253 / r413254;
double r413256 = /* ERROR: no complex support in C */;
double r413257 = r413256 * r413256;
double r413258 = r413257 * r413256;
double r413259 = r413256 * r413258;
double r413260 = -2.0;
double r413261 = 0.0;
double r413262 = /* ERROR: no complex support in C */;
double r413263 = r413262 * r413256;
double r413264 = r413256 * r413263;
double r413265 = r413256 * r413264;
double r413266 = r413259 + r413265;
double r413267 = 5.0;
double r413268 = /* ERROR: no complex support in C */;
double r413269 = r413268 * r413256;
double r413270 = r413269 * r413256;
double r413271 = r413266 + r413270;
double r413272 = 4.0;
double r413273 = /* ERROR: no complex support in C */;
double r413274 = r413256 * r413273;
double r413275 = r413271 + r413274;
double r413276 = 7.0;
double r413277 = /* ERROR: no complex support in C */;
double r413278 = r413275 + r413277;
double r413279 = /* ERROR: no complex support in C */;
return r413279;
}
Initial program 0
Final simplification0
herbie shell --seed 2019139
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))