\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 r475713 = -1.0;
double r475714 = 1.0;
double r475715 = /* ERROR: no complex support in C */;
double r475716 = r475715 * r475715;
double r475717 = r475716 * r475715;
double r475718 = r475717 * r475715;
double r475719 = r475718 * r475715;
double r475720 = r475719 * r475715;
double r475721 = 6.0;
double r475722 = 0.0;
double r475723 = /* ERROR: no complex support in C */;
double r475724 = r475723 * r475715;
double r475725 = r475724 * r475715;
double r475726 = r475725 * r475715;
double r475727 = r475726 * r475715;
double r475728 = r475727 * r475715;
double r475729 = r475720 + r475728;
double r475730 = 15.0;
double r475731 = /* ERROR: no complex support in C */;
double r475732 = r475731 * r475715;
double r475733 = r475732 * r475715;
double r475734 = r475733 * r475715;
double r475735 = r475734 * r475715;
double r475736 = r475729 + r475735;
double r475737 = 20.0;
double r475738 = /* ERROR: no complex support in C */;
double r475739 = r475738 * r475715;
double r475740 = r475739 * r475715;
double r475741 = r475740 * r475715;
double r475742 = r475736 + r475741;
double r475743 = r475742 + r475733;
double r475744 = r475743 + r475724;
double r475745 = /* ERROR: no complex support in C */;
double r475746 = r475744 + r475745;
double r475747 = /* ERROR: no complex support in C */;
return r475747;
}
double f() {
double r475748 = -1.0;
return r475748;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019153 +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))))