\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 r36205 = 1.0;
double r36206 = -r36205;
double r36207 = 2.0;
double r36208 = r36206 / r36207;
double r36209 = 3.0;
double r36210 = sqrt(r36209);
double r36211 = r36210 / r36207;
double r36212 = /* ERROR: no complex support in C */;
double r36213 = r36212 * r36212;
double r36214 = r36213 * r36212;
double r36215 = r36214 * r36212;
double r36216 = -r36207;
double r36217 = 0.0;
double r36218 = /* ERROR: no complex support in C */;
double r36219 = r36218 * r36212;
double r36220 = r36219 * r36212;
double r36221 = r36220 * r36212;
double r36222 = r36215 + r36221;
double r36223 = 5.0;
double r36224 = /* ERROR: no complex support in C */;
double r36225 = r36224 * r36212;
double r36226 = r36225 * r36212;
double r36227 = r36222 + r36226;
double r36228 = 4.0;
double r36229 = /* ERROR: no complex support in C */;
double r36230 = r36229 * r36212;
double r36231 = r36227 + r36230;
double r36232 = 7.0;
double r36233 = /* ERROR: no complex support in C */;
double r36234 = r36231 + r36233;
double r36235 = /* ERROR: no complex support in C */;
return r36235;
}
double f() {
double r36236 = 1.0;
double r36237 = -r36236;
double r36238 = 2.0;
double r36239 = r36237 / r36238;
double r36240 = 3.0;
double r36241 = sqrt(r36240);
double r36242 = r36241 / r36238;
double r36243 = /* ERROR: no complex support in C */;
double r36244 = r36243 * r36243;
double r36245 = r36244 * r36243;
double r36246 = r36245 * r36243;
double r36247 = -r36238;
double r36248 = 0.0;
double r36249 = /* ERROR: no complex support in C */;
double r36250 = r36249 * r36243;
double r36251 = r36250 * r36243;
double r36252 = r36251 * r36243;
double r36253 = r36246 + r36252;
double r36254 = 5.0;
double r36255 = /* ERROR: no complex support in C */;
double r36256 = r36255 * r36243;
double r36257 = r36256 * r36243;
double r36258 = r36253 + r36257;
double r36259 = 4.0;
double r36260 = /* ERROR: no complex support in C */;
double r36261 = r36260 * r36243;
double r36262 = r36258 + r36261;
double r36263 = 7.0;
double r36264 = /* ERROR: no complex support in C */;
double r36265 = r36262 + r36264;
double r36266 = /* ERROR: no complex support in C */;
return r36266;
}
Initial program 0
Final simplification0
herbie shell --seed 2020089
(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))))