\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 r31180 = -1.0;
double r31181 = 1.0;
double r31182 = /* ERROR: no complex support in C */;
double r31183 = r31182 * r31182;
double r31184 = r31183 * r31182;
double r31185 = r31184 * r31182;
double r31186 = r31185 * r31182;
double r31187 = r31186 * r31182;
double r31188 = 6.0;
double r31189 = 0.0;
double r31190 = /* ERROR: no complex support in C */;
double r31191 = r31190 * r31182;
double r31192 = r31191 * r31182;
double r31193 = r31192 * r31182;
double r31194 = r31193 * r31182;
double r31195 = r31194 * r31182;
double r31196 = r31187 + r31195;
double r31197 = 15.0;
double r31198 = /* ERROR: no complex support in C */;
double r31199 = r31198 * r31182;
double r31200 = r31199 * r31182;
double r31201 = r31200 * r31182;
double r31202 = r31201 * r31182;
double r31203 = r31196 + r31202;
double r31204 = 20.0;
double r31205 = /* ERROR: no complex support in C */;
double r31206 = r31205 * r31182;
double r31207 = r31206 * r31182;
double r31208 = r31207 * r31182;
double r31209 = r31203 + r31208;
double r31210 = r31209 + r31200;
double r31211 = r31210 + r31191;
double r31212 = /* ERROR: no complex support in C */;
double r31213 = r31211 + r31212;
double r31214 = /* ERROR: no complex support in C */;
return r31214;
}
double f() {
double r31215 = -1.0;
double r31216 = 1.0;
double r31217 = /* ERROR: no complex support in C */;
double r31218 = r31217 * r31217;
double r31219 = r31218 * r31217;
double r31220 = r31219 * r31217;
double r31221 = r31220 * r31217;
double r31222 = r31221 * r31217;
double r31223 = 6.0;
double r31224 = 0.0;
double r31225 = /* ERROR: no complex support in C */;
double r31226 = r31225 * r31217;
double r31227 = r31226 * r31217;
double r31228 = r31227 * r31217;
double r31229 = r31228 * r31217;
double r31230 = r31229 * r31217;
double r31231 = r31222 + r31230;
double r31232 = 15.0;
double r31233 = /* ERROR: no complex support in C */;
double r31234 = r31233 * r31217;
double r31235 = r31234 * r31217;
double r31236 = r31235 * r31217;
double r31237 = r31236 * r31217;
double r31238 = r31231 + r31237;
double r31239 = 20.0;
double r31240 = /* ERROR: no complex support in C */;
double r31241 = r31240 * r31217;
double r31242 = r31241 * r31217;
double r31243 = r31242 * r31217;
double r31244 = r31238 + r31243;
double r31245 = r31244 + r31235;
double r31246 = r31245 + r31226;
double r31247 = /* ERROR: no complex support in C */;
double r31248 = r31246 + r31247;
double r31249 = /* ERROR: no complex support in C */;
return r31249;
}
Initial program 0
Final simplification0
herbie shell --seed 2020018
(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))))