\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 r35151 = 1.0;
double r35152 = -r35151;
double r35153 = 2.0;
double r35154 = r35152 / r35153;
double r35155 = 3.0;
double r35156 = sqrt(r35155);
double r35157 = r35156 / r35153;
double r35158 = /* ERROR: no complex support in C */;
double r35159 = r35158 * r35158;
double r35160 = r35159 * r35158;
double r35161 = r35160 * r35158;
double r35162 = -r35153;
double r35163 = 0.0;
double r35164 = /* ERROR: no complex support in C */;
double r35165 = r35164 * r35158;
double r35166 = r35165 * r35158;
double r35167 = r35166 * r35158;
double r35168 = r35161 + r35167;
double r35169 = 5.0;
double r35170 = /* ERROR: no complex support in C */;
double r35171 = r35170 * r35158;
double r35172 = r35171 * r35158;
double r35173 = r35168 + r35172;
double r35174 = 4.0;
double r35175 = /* ERROR: no complex support in C */;
double r35176 = r35175 * r35158;
double r35177 = r35173 + r35176;
double r35178 = 7.0;
double r35179 = /* ERROR: no complex support in C */;
double r35180 = r35177 + r35179;
double r35181 = /* ERROR: no complex support in C */;
return r35181;
}
double f() {
double r35182 = 1.0;
double r35183 = -r35182;
double r35184 = 2.0;
double r35185 = r35183 / r35184;
double r35186 = 3.0;
double r35187 = sqrt(r35186);
double r35188 = r35187 / r35184;
double r35189 = /* ERROR: no complex support in C */;
double r35190 = r35189 * r35189;
double r35191 = r35190 * r35189;
double r35192 = r35191 * r35189;
double r35193 = -r35184;
double r35194 = 0.0;
double r35195 = /* ERROR: no complex support in C */;
double r35196 = r35195 * r35189;
double r35197 = r35196 * r35189;
double r35198 = r35197 * r35189;
double r35199 = r35192 + r35198;
double r35200 = 5.0;
double r35201 = /* ERROR: no complex support in C */;
double r35202 = r35201 * r35189;
double r35203 = r35202 * r35189;
double r35204 = r35199 + r35203;
double r35205 = 4.0;
double r35206 = /* ERROR: no complex support in C */;
double r35207 = r35206 * r35189;
double r35208 = r35204 + r35207;
double r35209 = 7.0;
double r35210 = /* ERROR: no complex support in C */;
double r35211 = r35208 + r35210;
double r35212 = /* ERROR: no complex support in C */;
return r35212;
}
Initial program 0
Final simplification0
herbie shell --seed 2020056
(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))))