\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(\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)\right) + \left(\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(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r24150 = 1.0;
double r24151 = -r24150;
double r24152 = 2.0;
double r24153 = r24151 / r24152;
double r24154 = 3.0;
double r24155 = sqrt(r24154);
double r24156 = r24155 / r24152;
double r24157 = /* ERROR: no complex support in C */;
double r24158 = r24157 * r24157;
double r24159 = r24158 * r24157;
double r24160 = r24159 * r24157;
double r24161 = -r24152;
double r24162 = 0.0;
double r24163 = /* ERROR: no complex support in C */;
double r24164 = r24163 * r24157;
double r24165 = r24164 * r24157;
double r24166 = r24165 * r24157;
double r24167 = r24160 + r24166;
double r24168 = 5.0;
double r24169 = /* ERROR: no complex support in C */;
double r24170 = r24169 * r24157;
double r24171 = r24170 * r24157;
double r24172 = r24167 + r24171;
double r24173 = 4.0;
double r24174 = /* ERROR: no complex support in C */;
double r24175 = r24174 * r24157;
double r24176 = r24172 + r24175;
double r24177 = 7.0;
double r24178 = /* ERROR: no complex support in C */;
double r24179 = r24176 + r24178;
double r24180 = /* ERROR: no complex support in C */;
return r24180;
}
double f() {
double r24181 = 1.0;
double r24182 = -r24181;
double r24183 = 2.0;
double r24184 = r24182 / r24183;
double r24185 = 3.0;
double r24186 = sqrt(r24185);
double r24187 = r24186 / r24183;
double r24188 = /* ERROR: no complex support in C */;
double r24189 = r24188 * r24188;
double r24190 = r24189 * r24188;
double r24191 = r24188 * r24190;
double r24192 = -r24183;
double r24193 = 0.0;
double r24194 = /* ERROR: no complex support in C */;
double r24195 = r24194 * r24188;
double r24196 = r24188 * r24195;
double r24197 = r24188 * r24196;
double r24198 = r24191 + r24197;
double r24199 = 5.0;
double r24200 = /* ERROR: no complex support in C */;
double r24201 = r24200 * r24188;
double r24202 = r24201 * r24188;
double r24203 = r24198 + r24202;
double r24204 = 4.0;
double r24205 = /* ERROR: no complex support in C */;
double r24206 = r24188 * r24205;
double r24207 = r24203 + r24206;
double r24208 = 7.0;
double r24209 = /* ERROR: no complex support in C */;
double r24210 = r24207 + r24209;
double r24211 = /* ERROR: no complex support in C */;
return r24211;
}
Initial program 0
Final simplification0
herbie shell --seed 2019195
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+ (+ (+ (+ (* (* (* (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (* (* (* (complex (- 2.0) 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (* (complex 5.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))