\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 r24197 = 1.0;
double r24198 = -r24197;
double r24199 = 2.0;
double r24200 = r24198 / r24199;
double r24201 = 3.0;
double r24202 = sqrt(r24201);
double r24203 = r24202 / r24199;
double r24204 = /* ERROR: no complex support in C */;
double r24205 = r24204 * r24204;
double r24206 = r24205 * r24204;
double r24207 = r24206 * r24204;
double r24208 = -r24199;
double r24209 = 0.0;
double r24210 = /* ERROR: no complex support in C */;
double r24211 = r24210 * r24204;
double r24212 = r24211 * r24204;
double r24213 = r24212 * r24204;
double r24214 = r24207 + r24213;
double r24215 = 5.0;
double r24216 = /* ERROR: no complex support in C */;
double r24217 = r24216 * r24204;
double r24218 = r24217 * r24204;
double r24219 = r24214 + r24218;
double r24220 = 4.0;
double r24221 = /* ERROR: no complex support in C */;
double r24222 = r24221 * r24204;
double r24223 = r24219 + r24222;
double r24224 = 7.0;
double r24225 = /* ERROR: no complex support in C */;
double r24226 = r24223 + r24225;
double r24227 = /* ERROR: no complex support in C */;
return r24227;
}
double f() {
double r24228 = 1.0;
double r24229 = -r24228;
double r24230 = 2.0;
double r24231 = r24229 / r24230;
double r24232 = 3.0;
double r24233 = sqrt(r24232);
double r24234 = r24233 / r24230;
double r24235 = /* ERROR: no complex support in C */;
double r24236 = r24235 * r24235;
double r24237 = r24236 * r24235;
double r24238 = r24237 * r24235;
double r24239 = -r24230;
double r24240 = 0.0;
double r24241 = /* ERROR: no complex support in C */;
double r24242 = r24241 * r24235;
double r24243 = r24242 * r24235;
double r24244 = r24243 * r24235;
double r24245 = r24238 + r24244;
double r24246 = 5.0;
double r24247 = /* ERROR: no complex support in C */;
double r24248 = r24247 * r24235;
double r24249 = r24248 * r24235;
double r24250 = r24245 + r24249;
double r24251 = 4.0;
double r24252 = /* ERROR: no complex support in C */;
double r24253 = r24252 * r24235;
double r24254 = r24250 + r24253;
double r24255 = 7.0;
double r24256 = /* ERROR: no complex support in C */;
double r24257 = r24254 + r24256;
double r24258 = /* ERROR: no complex support in C */;
return r24258;
}
Initial program 0
Final simplification0
herbie shell --seed 2020042
(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))))