\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 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))
-1
double f() {
double r38160 = -1.0;
double r38161 = 1.0;
double r38162 = /* ERROR: no complex support in C */;
double r38163 = r38162 * r38162;
double r38164 = r38163 * r38162;
double r38165 = r38164 * r38162;
double r38166 = r38165 * r38162;
double r38167 = r38166 * r38162;
double r38168 = 6.0;
double r38169 = 0.0;
double r38170 = /* ERROR: no complex support in C */;
double r38171 = r38170 * r38162;
double r38172 = r38171 * r38162;
double r38173 = r38172 * r38162;
double r38174 = r38173 * r38162;
double r38175 = r38174 * r38162;
double r38176 = r38167 + r38175;
double r38177 = 15.0;
double r38178 = /* ERROR: no complex support in C */;
double r38179 = r38178 * r38162;
double r38180 = r38179 * r38162;
double r38181 = r38180 * r38162;
double r38182 = r38181 * r38162;
double r38183 = r38176 + r38182;
double r38184 = 20.0;
double r38185 = /* ERROR: no complex support in C */;
double r38186 = r38185 * r38162;
double r38187 = r38186 * r38162;
double r38188 = r38187 * r38162;
double r38189 = r38183 + r38188;
double r38190 = r38189 + r38180;
double r38191 = r38190 + r38171;
double r38192 = /* ERROR: no complex support in C */;
double r38193 = r38191 + r38192;
double r38194 = /* ERROR: no complex support in C */;
return r38194;
}
double f() {
double r38195 = -1.0;
return r38195;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019151
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+.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))))