\Re(\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))
\Re(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(15 + 0.0 i\right)\right)\right) + \left(6 + 0.0 i\right)\right)\right) + \left(1 + 0.0 i\right)\right) + \left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right)\right)\right)\right)\right))
double f() {
double r28157 = -1.0;
double r28158 = 1.0;
double r28159 = /* ERROR: no complex support in C */;
double r28160 = r28159 * r28159;
double r28161 = r28160 * r28159;
double r28162 = r28161 * r28159;
double r28163 = r28162 * r28159;
double r28164 = r28163 * r28159;
double r28165 = 6.0;
double r28166 = 0.0;
double r28167 = /* ERROR: no complex support in C */;
double r28168 = r28167 * r28159;
double r28169 = r28168 * r28159;
double r28170 = r28169 * r28159;
double r28171 = r28170 * r28159;
double r28172 = r28171 * r28159;
double r28173 = r28164 + r28172;
double r28174 = 15.0;
double r28175 = /* ERROR: no complex support in C */;
double r28176 = r28175 * r28159;
double r28177 = r28176 * r28159;
double r28178 = r28177 * r28159;
double r28179 = r28178 * r28159;
double r28180 = r28173 + r28179;
double r28181 = 20.0;
double r28182 = /* ERROR: no complex support in C */;
double r28183 = r28182 * r28159;
double r28184 = r28183 * r28159;
double r28185 = r28184 * r28159;
double r28186 = r28180 + r28185;
double r28187 = r28186 + r28177;
double r28188 = r28187 + r28168;
double r28189 = /* ERROR: no complex support in C */;
double r28190 = r28188 + r28189;
double r28191 = /* ERROR: no complex support in C */;
return r28191;
}
double f() {
double r28192 = -1.0;
double r28193 = 1.0;
double r28194 = /* ERROR: no complex support in C */;
double r28195 = 20.0;
double r28196 = 0.0;
double r28197 = /* ERROR: no complex support in C */;
double r28198 = r28197 * r28194;
double r28199 = 15.0;
double r28200 = /* ERROR: no complex support in C */;
double r28201 = r28198 + r28200;
double r28202 = r28194 * r28201;
double r28203 = 6.0;
double r28204 = /* ERROR: no complex support in C */;
double r28205 = r28202 + r28204;
double r28206 = r28194 * r28205;
double r28207 = /* ERROR: no complex support in C */;
double r28208 = r28206 + r28207;
double r28209 = r28194 * r28194;
double r28210 = r28200 * r28194;
double r28211 = r28194 + r28204;
double r28212 = r28209 * r28211;
double r28213 = r28210 + r28212;
double r28214 = r28209 * r28213;
double r28215 = r28194 * r28214;
double r28216 = r28208 + r28215;
double r28217 = /* ERROR: no complex support in C */;
return r28217;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2020046 +o rules:numerics
(FPCore ()
:name "3.9.1 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (+ (+ (* (* (* (* (* (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))))