\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 r807047 = -1.0;
double r807048 = 1.0;
double r807049 = /* ERROR: no complex support in C */;
double r807050 = r807049 * r807049;
double r807051 = r807050 * r807049;
double r807052 = r807051 * r807049;
double r807053 = r807052 * r807049;
double r807054 = r807053 * r807049;
double r807055 = 6.0;
double r807056 = 0.0;
double r807057 = /* ERROR: no complex support in C */;
double r807058 = r807057 * r807049;
double r807059 = r807058 * r807049;
double r807060 = r807059 * r807049;
double r807061 = r807060 * r807049;
double r807062 = r807061 * r807049;
double r807063 = r807054 + r807062;
double r807064 = 15.0;
double r807065 = /* ERROR: no complex support in C */;
double r807066 = r807065 * r807049;
double r807067 = r807066 * r807049;
double r807068 = r807067 * r807049;
double r807069 = r807068 * r807049;
double r807070 = r807063 + r807069;
double r807071 = 20.0;
double r807072 = /* ERROR: no complex support in C */;
double r807073 = r807072 * r807049;
double r807074 = r807073 * r807049;
double r807075 = r807074 * r807049;
double r807076 = r807070 + r807075;
double r807077 = r807076 + r807067;
double r807078 = r807077 + r807058;
double r807079 = /* ERROR: no complex support in C */;
double r807080 = r807078 + r807079;
double r807081 = /* ERROR: no complex support in C */;
return r807081;
}
double f() {
double r807082 = -1.0;
return r807082;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019162 +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))))