\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(1 + 0.0 i\right) + \left(\left(-1 + 1 i\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(6 + 0.0 i\right)\right)\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \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(\left(6 + 0.0 i\right) + \left(-1 + 1 i\right)\right)\right) + \left(\left(-1 + 1 i\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(20 + 0.0 i\right)\right)\right)\right)\right)\right))
double f() {
double r24152 = -1.0;
double r24153 = 1.0;
double r24154 = /* ERROR: no complex support in C */;
double r24155 = r24154 * r24154;
double r24156 = r24155 * r24154;
double r24157 = r24156 * r24154;
double r24158 = r24157 * r24154;
double r24159 = r24158 * r24154;
double r24160 = 6.0;
double r24161 = 0.0;
double r24162 = /* ERROR: no complex support in C */;
double r24163 = r24162 * r24154;
double r24164 = r24163 * r24154;
double r24165 = r24164 * r24154;
double r24166 = r24165 * r24154;
double r24167 = r24166 * r24154;
double r24168 = r24159 + r24167;
double r24169 = 15.0;
double r24170 = /* ERROR: no complex support in C */;
double r24171 = r24170 * r24154;
double r24172 = r24171 * r24154;
double r24173 = r24172 * r24154;
double r24174 = r24173 * r24154;
double r24175 = r24168 + r24174;
double r24176 = 20.0;
double r24177 = /* ERROR: no complex support in C */;
double r24178 = r24177 * r24154;
double r24179 = r24178 * r24154;
double r24180 = r24179 * r24154;
double r24181 = r24175 + r24180;
double r24182 = r24181 + r24172;
double r24183 = r24182 + r24163;
double r24184 = /* ERROR: no complex support in C */;
double r24185 = r24183 + r24184;
double r24186 = /* ERROR: no complex support in C */;
return r24186;
}
double f() {
double r24187 = 1.0;
double r24188 = 0.0;
double r24189 = /* ERROR: no complex support in C */;
double r24190 = -1.0;
double r24191 = /* ERROR: no complex support in C */;
double r24192 = 15.0;
double r24193 = /* ERROR: no complex support in C */;
double r24194 = r24193 * r24191;
double r24195 = 6.0;
double r24196 = /* ERROR: no complex support in C */;
double r24197 = r24194 + r24196;
double r24198 = r24191 * r24197;
double r24199 = r24189 + r24198;
double r24200 = r24191 * r24191;
double r24201 = r24200 * r24191;
double r24202 = r24196 + r24191;
double r24203 = r24201 * r24202;
double r24204 = 20.0;
double r24205 = /* ERROR: no complex support in C */;
double r24206 = r24194 + r24205;
double r24207 = r24191 * r24206;
double r24208 = r24203 + r24207;
double r24209 = r24200 * r24208;
double r24210 = r24199 + r24209;
double r24211 = /* ERROR: no complex support in C */;
return r24211;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2020045
(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))))