\Im(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\Im(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
double f() {
double r25141 = -1.0;
double r25142 = 1.0;
double r25143 = /* ERROR: no complex support in C */;
double r25144 = r25143 * r25143;
double r25145 = r25144 * r25143;
double r25146 = r25145 * r25143;
double r25147 = r25146 * r25143;
double r25148 = r25147 * r25143;
double r25149 = 6.0;
double r25150 = 0.0;
double r25151 = /* ERROR: no complex support in C */;
double r25152 = r25151 * r25143;
double r25153 = r25152 * r25143;
double r25154 = r25153 * r25143;
double r25155 = r25154 * r25143;
double r25156 = r25155 * r25143;
double r25157 = r25148 + r25156;
double r25158 = 15.0;
double r25159 = /* ERROR: no complex support in C */;
double r25160 = r25159 * r25143;
double r25161 = r25160 * r25143;
double r25162 = r25161 * r25143;
double r25163 = r25162 * r25143;
double r25164 = r25157 + r25163;
double r25165 = 20.0;
double r25166 = /* ERROR: no complex support in C */;
double r25167 = r25166 * r25143;
double r25168 = r25167 * r25143;
double r25169 = r25168 * r25143;
double r25170 = r25164 + r25169;
double r25171 = r25170 + r25161;
double r25172 = r25171 + r25152;
double r25173 = /* ERROR: no complex support in C */;
double r25174 = r25172 + r25173;
double r25175 = /* ERROR: no complex support in C */;
return r25175;
}
double f() {
double r25176 = -1.0;
double r25177 = 1.0;
double r25178 = /* ERROR: no complex support in C */;
double r25179 = r25178 * r25178;
double r25180 = r25179 * r25178;
double r25181 = r25180 * r25178;
double r25182 = r25181 * r25178;
double r25183 = r25182 * r25178;
double r25184 = 6.0;
double r25185 = 0.0;
double r25186 = /* ERROR: no complex support in C */;
double r25187 = r25186 * r25178;
double r25188 = r25187 * r25178;
double r25189 = r25188 * r25178;
double r25190 = r25189 * r25178;
double r25191 = r25190 * r25178;
double r25192 = r25183 + r25191;
double r25193 = 15.0;
double r25194 = /* ERROR: no complex support in C */;
double r25195 = r25194 * r25178;
double r25196 = r25195 * r25178;
double r25197 = r25196 * r25178;
double r25198 = r25197 * r25178;
double r25199 = r25192 + r25198;
double r25200 = 20.0;
double r25201 = /* ERROR: no complex support in C */;
double r25202 = r25201 * r25178;
double r25203 = r25202 * r25178;
double r25204 = r25203 * r25178;
double r25205 = r25199 + r25204;
double r25206 = r25205 + r25196;
double r25207 = r25206 + r25187;
double r25208 = /* ERROR: no complex support in C */;
double r25209 = r25207 + r25208;
double r25210 = /* ERROR: no complex support in C */;
return r25210;
}
Initial program 0
Final simplification0
herbie shell --seed 2020060 +o rules:numerics
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))