\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 r527034 = -1.0;
double r527035 = 1.0;
double r527036 = /* ERROR: no complex support in C */;
double r527037 = r527036 * r527036;
double r527038 = r527037 * r527036;
double r527039 = r527038 * r527036;
double r527040 = r527039 * r527036;
double r527041 = r527040 * r527036;
double r527042 = 6.0;
double r527043 = 0.0;
double r527044 = /* ERROR: no complex support in C */;
double r527045 = r527044 * r527036;
double r527046 = r527045 * r527036;
double r527047 = r527046 * r527036;
double r527048 = r527047 * r527036;
double r527049 = r527048 * r527036;
double r527050 = r527041 + r527049;
double r527051 = 15.0;
double r527052 = /* ERROR: no complex support in C */;
double r527053 = r527052 * r527036;
double r527054 = r527053 * r527036;
double r527055 = r527054 * r527036;
double r527056 = r527055 * r527036;
double r527057 = r527050 + r527056;
double r527058 = 20.0;
double r527059 = /* ERROR: no complex support in C */;
double r527060 = r527059 * r527036;
double r527061 = r527060 * r527036;
double r527062 = r527061 * r527036;
double r527063 = r527057 + r527062;
double r527064 = r527063 + r527054;
double r527065 = r527064 + r527045;
double r527066 = /* ERROR: no complex support in C */;
double r527067 = r527065 + r527066;
double r527068 = /* ERROR: no complex support in C */;
return r527068;
}
double f() {
double r527069 = -1.0;
return r527069;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019132 +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))))