\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 r28126 = 1.0;
double r28127 = -r28126;
double r28128 = 2.0;
double r28129 = r28127 / r28128;
double r28130 = 3.0;
double r28131 = sqrt(r28130);
double r28132 = r28131 / r28128;
double r28133 = /* ERROR: no complex support in C */;
double r28134 = r28133 * r28133;
double r28135 = r28134 * r28133;
double r28136 = r28135 * r28133;
double r28137 = -r28128;
double r28138 = 0.0;
double r28139 = /* ERROR: no complex support in C */;
double r28140 = r28139 * r28133;
double r28141 = r28140 * r28133;
double r28142 = r28141 * r28133;
double r28143 = r28136 + r28142;
double r28144 = 5.0;
double r28145 = /* ERROR: no complex support in C */;
double r28146 = r28145 * r28133;
double r28147 = r28146 * r28133;
double r28148 = r28143 + r28147;
double r28149 = 4.0;
double r28150 = /* ERROR: no complex support in C */;
double r28151 = r28150 * r28133;
double r28152 = r28148 + r28151;
double r28153 = 7.0;
double r28154 = /* ERROR: no complex support in C */;
double r28155 = r28152 + r28154;
double r28156 = /* ERROR: no complex support in C */;
return r28156;
}
double f() {
double r28157 = 1.0;
double r28158 = -r28157;
double r28159 = 2.0;
double r28160 = r28158 / r28159;
double r28161 = 3.0;
double r28162 = sqrt(r28161);
double r28163 = r28162 / r28159;
double r28164 = /* ERROR: no complex support in C */;
double r28165 = r28164 * r28164;
double r28166 = r28165 * r28164;
double r28167 = r28166 * r28164;
double r28168 = -r28159;
double r28169 = 0.0;
double r28170 = /* ERROR: no complex support in C */;
double r28171 = r28170 * r28164;
double r28172 = r28171 * r28164;
double r28173 = r28172 * r28164;
double r28174 = r28167 + r28173;
double r28175 = 5.0;
double r28176 = /* ERROR: no complex support in C */;
double r28177 = r28176 * r28164;
double r28178 = r28177 * r28164;
double r28179 = r28174 + r28178;
double r28180 = 4.0;
double r28181 = /* ERROR: no complex support in C */;
double r28182 = r28181 * r28164;
double r28183 = r28179 + r28182;
double r28184 = 7.0;
double r28185 = /* ERROR: no complex support in C */;
double r28186 = r28183 + r28185;
double r28187 = /* ERROR: no complex support in C */;
return r28187;
}
Initial program 0
Final simplification0
herbie shell --seed 2019325
(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))))