\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 r623058 = -1.0;
double r623059 = 1.0;
double r623060 = /* ERROR: no complex support in C */;
double r623061 = r623060 * r623060;
double r623062 = r623061 * r623060;
double r623063 = r623062 * r623060;
double r623064 = r623063 * r623060;
double r623065 = r623064 * r623060;
double r623066 = 6.0;
double r623067 = 0.0;
double r623068 = /* ERROR: no complex support in C */;
double r623069 = r623068 * r623060;
double r623070 = r623069 * r623060;
double r623071 = r623070 * r623060;
double r623072 = r623071 * r623060;
double r623073 = r623072 * r623060;
double r623074 = r623065 + r623073;
double r623075 = 15.0;
double r623076 = /* ERROR: no complex support in C */;
double r623077 = r623076 * r623060;
double r623078 = r623077 * r623060;
double r623079 = r623078 * r623060;
double r623080 = r623079 * r623060;
double r623081 = r623074 + r623080;
double r623082 = 20.0;
double r623083 = /* ERROR: no complex support in C */;
double r623084 = r623083 * r623060;
double r623085 = r623084 * r623060;
double r623086 = r623085 * r623060;
double r623087 = r623081 + r623086;
double r623088 = r623087 + r623078;
double r623089 = r623088 + r623069;
double r623090 = /* ERROR: no complex support in C */;
double r623091 = r623089 + r623090;
double r623092 = /* ERROR: no complex support in C */;
return r623092;
}
double f() {
double r623093 = -1.0;
return r623093;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019163 +o rules:numerics
(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))))