\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 r38022 = -1.0;
double r38023 = 1.0;
double r38024 = /* ERROR: no complex support in C */;
double r38025 = r38024 * r38024;
double r38026 = r38025 * r38024;
double r38027 = r38026 * r38024;
double r38028 = r38027 * r38024;
double r38029 = r38028 * r38024;
double r38030 = 6.0;
double r38031 = 0.0;
double r38032 = /* ERROR: no complex support in C */;
double r38033 = r38032 * r38024;
double r38034 = r38033 * r38024;
double r38035 = r38034 * r38024;
double r38036 = r38035 * r38024;
double r38037 = r38036 * r38024;
double r38038 = r38029 + r38037;
double r38039 = 15.0;
double r38040 = /* ERROR: no complex support in C */;
double r38041 = r38040 * r38024;
double r38042 = r38041 * r38024;
double r38043 = r38042 * r38024;
double r38044 = r38043 * r38024;
double r38045 = r38038 + r38044;
double r38046 = 20.0;
double r38047 = /* ERROR: no complex support in C */;
double r38048 = r38047 * r38024;
double r38049 = r38048 * r38024;
double r38050 = r38049 * r38024;
double r38051 = r38045 + r38050;
double r38052 = r38051 + r38042;
double r38053 = r38052 + r38033;
double r38054 = /* ERROR: no complex support in C */;
double r38055 = r38053 + r38054;
double r38056 = /* ERROR: no complex support in C */;
return r38056;
}
double f() {
double r38057 = -1.0;
return r38057;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019153
(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))))