\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 r25137 = 1.0;
double r25138 = -r25137;
double r25139 = 2.0;
double r25140 = r25138 / r25139;
double r25141 = 3.0;
double r25142 = sqrt(r25141);
double r25143 = r25142 / r25139;
double r25144 = /* ERROR: no complex support in C */;
double r25145 = r25144 * r25144;
double r25146 = r25145 * r25144;
double r25147 = r25146 * r25144;
double r25148 = -r25139;
double r25149 = 0.0;
double r25150 = /* ERROR: no complex support in C */;
double r25151 = r25150 * r25144;
double r25152 = r25151 * r25144;
double r25153 = r25152 * r25144;
double r25154 = r25147 + r25153;
double r25155 = 5.0;
double r25156 = /* ERROR: no complex support in C */;
double r25157 = r25156 * r25144;
double r25158 = r25157 * r25144;
double r25159 = r25154 + r25158;
double r25160 = 4.0;
double r25161 = /* ERROR: no complex support in C */;
double r25162 = r25161 * r25144;
double r25163 = r25159 + r25162;
double r25164 = 7.0;
double r25165 = /* ERROR: no complex support in C */;
double r25166 = r25163 + r25165;
double r25167 = /* ERROR: no complex support in C */;
return r25167;
}
double f() {
double r25168 = 1.0;
double r25169 = -r25168;
double r25170 = 2.0;
double r25171 = r25169 / r25170;
double r25172 = 3.0;
double r25173 = sqrt(r25172);
double r25174 = r25173 / r25170;
double r25175 = /* ERROR: no complex support in C */;
double r25176 = r25175 * r25175;
double r25177 = r25176 * r25175;
double r25178 = r25177 * r25175;
double r25179 = -r25170;
double r25180 = 0.0;
double r25181 = /* ERROR: no complex support in C */;
double r25182 = r25181 * r25175;
double r25183 = r25182 * r25175;
double r25184 = r25183 * r25175;
double r25185 = r25178 + r25184;
double r25186 = 5.0;
double r25187 = /* ERROR: no complex support in C */;
double r25188 = r25187 * r25175;
double r25189 = r25188 * r25175;
double r25190 = r25185 + r25189;
double r25191 = 4.0;
double r25192 = /* ERROR: no complex support in C */;
double r25193 = r25192 * r25175;
double r25194 = r25190 + r25193;
double r25195 = 7.0;
double r25196 = /* ERROR: no complex support in C */;
double r25197 = r25194 + r25196;
double r25198 = /* ERROR: no complex support in C */;
return r25198;
}
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))))