\Im(\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))
\Im(\left(-1 + 0 i\right))
double f() {
double r853113 = -1.0;
double r853114 = 1.0;
double r853115 = /* ERROR: no complex support in C */;
double r853116 = r853115 * r853115;
double r853117 = r853116 * r853115;
double r853118 = r853117 * r853115;
double r853119 = r853118 * r853115;
double r853120 = r853119 * r853115;
double r853121 = 6.0;
double r853122 = 0.0;
double r853123 = /* ERROR: no complex support in C */;
double r853124 = r853123 * r853115;
double r853125 = r853124 * r853115;
double r853126 = r853125 * r853115;
double r853127 = r853126 * r853115;
double r853128 = r853127 * r853115;
double r853129 = r853120 + r853128;
double r853130 = 15.0;
double r853131 = /* ERROR: no complex support in C */;
double r853132 = r853131 * r853115;
double r853133 = r853132 * r853115;
double r853134 = r853133 * r853115;
double r853135 = r853134 * r853115;
double r853136 = r853129 + r853135;
double r853137 = 20.0;
double r853138 = /* ERROR: no complex support in C */;
double r853139 = r853138 * r853115;
double r853140 = r853139 * r853115;
double r853141 = r853140 * r853115;
double r853142 = r853136 + r853141;
double r853143 = r853142 + r853133;
double r853144 = r853143 + r853124;
double r853145 = /* ERROR: no complex support in C */;
double r853146 = r853144 + r853145;
double r853147 = /* ERROR: no complex support in C */;
return r853147;
}
double f() {
double r853148 = -1.0;
double r853149 = 0.0;
double r853150 = /* ERROR: no complex support in C */;
double r853151 = /* ERROR: no complex support in C */;
return r853151;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019141
(FPCore ()
:name "3.9.1 imaginary part (p56)"
(im (+.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))))