\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 r570942 = -1.0;
double r570943 = 1.0;
double r570944 = /* ERROR: no complex support in C */;
double r570945 = r570944 * r570944;
double r570946 = r570945 * r570944;
double r570947 = r570946 * r570944;
double r570948 = r570947 * r570944;
double r570949 = r570948 * r570944;
double r570950 = 6.0;
double r570951 = 0.0;
double r570952 = /* ERROR: no complex support in C */;
double r570953 = r570952 * r570944;
double r570954 = r570953 * r570944;
double r570955 = r570954 * r570944;
double r570956 = r570955 * r570944;
double r570957 = r570956 * r570944;
double r570958 = r570949 + r570957;
double r570959 = 15.0;
double r570960 = /* ERROR: no complex support in C */;
double r570961 = r570960 * r570944;
double r570962 = r570961 * r570944;
double r570963 = r570962 * r570944;
double r570964 = r570963 * r570944;
double r570965 = r570958 + r570964;
double r570966 = 20.0;
double r570967 = /* ERROR: no complex support in C */;
double r570968 = r570967 * r570944;
double r570969 = r570968 * r570944;
double r570970 = r570969 * r570944;
double r570971 = r570965 + r570970;
double r570972 = r570971 + r570962;
double r570973 = r570972 + r570953;
double r570974 = /* ERROR: no complex support in C */;
double r570975 = r570973 + r570974;
double r570976 = /* ERROR: no complex support in C */;
return r570976;
}
double f() {
double r570977 = -1.0;
return r570977;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019135 +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))))