\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 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 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 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 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0 i\right)\right))
\Im(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r2636176 = -1.0;
double r2636177 = 1.0;
double r2636178 = /* ERROR: no complex support in C */;
double r2636179 = r2636178 * r2636178;
double r2636180 = r2636179 * r2636178;
double r2636181 = r2636180 * r2636178;
double r2636182 = r2636181 * r2636178;
double r2636183 = r2636182 * r2636178;
double r2636184 = 6.0;
double r2636185 = 0.0;
double r2636186 = /* ERROR: no complex support in C */;
double r2636187 = r2636186 * r2636178;
double r2636188 = r2636187 * r2636178;
double r2636189 = r2636188 * r2636178;
double r2636190 = r2636189 * r2636178;
double r2636191 = r2636190 * r2636178;
double r2636192 = r2636183 + r2636191;
double r2636193 = 15.0;
double r2636194 = /* ERROR: no complex support in C */;
double r2636195 = r2636194 * r2636178;
double r2636196 = r2636195 * r2636178;
double r2636197 = r2636196 * r2636178;
double r2636198 = r2636197 * r2636178;
double r2636199 = r2636192 + r2636198;
double r2636200 = 20.0;
double r2636201 = /* ERROR: no complex support in C */;
double r2636202 = r2636201 * r2636178;
double r2636203 = r2636202 * r2636178;
double r2636204 = r2636203 * r2636178;
double r2636205 = r2636199 + r2636204;
double r2636206 = r2636205 + r2636196;
double r2636207 = r2636206 + r2636187;
double r2636208 = /* ERROR: no complex support in C */;
double r2636209 = r2636207 + r2636208;
double r2636210 = /* ERROR: no complex support in C */;
return r2636210;
}
double f() {
double r2636211 = -5.0;
double r2636212 = -24.0;
double r2636213 = /* ERROR: no complex support in C */;
double r2636214 = 24.0;
double r2636215 = /* ERROR: no complex support in C */;
double r2636216 = 0.0;
double r2636217 = 8.0;
double r2636218 = /* ERROR: no complex support in C */;
double r2636219 = r2636215 + r2636218;
double r2636220 = 40.0;
double r2636221 = /* ERROR: no complex support in C */;
double r2636222 = -60.0;
double r2636223 = /* ERROR: no complex support in C */;
double r2636224 = r2636221 + r2636223;
double r2636225 = r2636219 + r2636224;
double r2636226 = r2636213 + r2636225;
double r2636227 = /* ERROR: no complex support in C */;
return r2636227;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019104
(FPCore ()
:name "3.9.1 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (+.c (+.c (*.c (*.c (*.c (*.c (*.c (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (*.c (*.c (*.c (*.c (*.c (complex 6 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (complex 20 0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1))) (*.c (complex 6 0) (complex -1 1))) (complex 1 0))))