\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 r795009 = -1.0;
double r795010 = 1.0;
double r795011 = /* ERROR: no complex support in C */;
double r795012 = r795011 * r795011;
double r795013 = r795012 * r795011;
double r795014 = r795013 * r795011;
double r795015 = r795014 * r795011;
double r795016 = r795015 * r795011;
double r795017 = 6.0;
double r795018 = 0.0;
double r795019 = /* ERROR: no complex support in C */;
double r795020 = r795019 * r795011;
double r795021 = r795020 * r795011;
double r795022 = r795021 * r795011;
double r795023 = r795022 * r795011;
double r795024 = r795023 * r795011;
double r795025 = r795016 + r795024;
double r795026 = 15.0;
double r795027 = /* ERROR: no complex support in C */;
double r795028 = r795027 * r795011;
double r795029 = r795028 * r795011;
double r795030 = r795029 * r795011;
double r795031 = r795030 * r795011;
double r795032 = r795025 + r795031;
double r795033 = 20.0;
double r795034 = /* ERROR: no complex support in C */;
double r795035 = r795034 * r795011;
double r795036 = r795035 * r795011;
double r795037 = r795036 * r795011;
double r795038 = r795032 + r795037;
double r795039 = r795038 + r795029;
double r795040 = r795039 + r795020;
double r795041 = /* ERROR: no complex support in C */;
double r795042 = r795040 + r795041;
double r795043 = /* ERROR: no complex support in C */;
return r795043;
}
double f() {
double r795044 = -1.0;
return r795044;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019162
(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))))