\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))
\Re(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r1424065 = -1.0;
double r1424066 = 1.0;
double r1424067 = /* ERROR: no complex support in C */;
double r1424068 = r1424067 * r1424067;
double r1424069 = r1424068 * r1424067;
double r1424070 = r1424069 * r1424067;
double r1424071 = r1424070 * r1424067;
double r1424072 = r1424071 * r1424067;
double r1424073 = 6.0;
double r1424074 = 0.0;
double r1424075 = /* ERROR: no complex support in C */;
double r1424076 = r1424075 * r1424067;
double r1424077 = r1424076 * r1424067;
double r1424078 = r1424077 * r1424067;
double r1424079 = r1424078 * r1424067;
double r1424080 = r1424079 * r1424067;
double r1424081 = r1424072 + r1424080;
double r1424082 = 15.0;
double r1424083 = /* ERROR: no complex support in C */;
double r1424084 = r1424083 * r1424067;
double r1424085 = r1424084 * r1424067;
double r1424086 = r1424085 * r1424067;
double r1424087 = r1424086 * r1424067;
double r1424088 = r1424081 + r1424087;
double r1424089 = 20.0;
double r1424090 = /* ERROR: no complex support in C */;
double r1424091 = r1424090 * r1424067;
double r1424092 = r1424091 * r1424067;
double r1424093 = r1424092 * r1424067;
double r1424094 = r1424088 + r1424093;
double r1424095 = r1424094 + r1424085;
double r1424096 = r1424095 + r1424076;
double r1424097 = /* ERROR: no complex support in C */;
double r1424098 = r1424096 + r1424097;
double r1424099 = /* ERROR: no complex support in C */;
return r1424099;
}
double f() {
double r1424100 = -5.0;
double r1424101 = -24.0;
double r1424102 = /* ERROR: no complex support in C */;
double r1424103 = 24.0;
double r1424104 = /* ERROR: no complex support in C */;
double r1424105 = 0.0;
double r1424106 = 8.0;
double r1424107 = /* ERROR: no complex support in C */;
double r1424108 = r1424104 + r1424107;
double r1424109 = 40.0;
double r1424110 = /* ERROR: no complex support in C */;
double r1424111 = -60.0;
double r1424112 = /* ERROR: no complex support in C */;
double r1424113 = r1424110 + r1424112;
double r1424114 = r1424108 + r1424113;
double r1424115 = r1424102 + r1424114;
double r1424116 = /* ERROR: no complex support in C */;
return r1424116;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019124
(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))))