\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\Im(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(15 + 0.0 i\right)\right)\right) + \left(6 + 0.0 i\right)\right)\right) + \left(1 + 0.0 i\right)\right) + \left(\left(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right)\right)\right)\right)\right))
double f() {
double r4827 = -1.0;
double r4828 = 1.0;
double r4829 = /* ERROR: no complex support in C */;
double r4830 = r4829 * r4829;
double r4831 = r4830 * r4829;
double r4832 = r4831 * r4829;
double r4833 = r4832 * r4829;
double r4834 = r4833 * r4829;
double r4835 = 6.0;
double r4836 = 0.0;
double r4837 = /* ERROR: no complex support in C */;
double r4838 = r4837 * r4829;
double r4839 = r4838 * r4829;
double r4840 = r4839 * r4829;
double r4841 = r4840 * r4829;
double r4842 = r4841 * r4829;
double r4843 = r4834 + r4842;
double r4844 = 15.0;
double r4845 = /* ERROR: no complex support in C */;
double r4846 = r4845 * r4829;
double r4847 = r4846 * r4829;
double r4848 = r4847 * r4829;
double r4849 = r4848 * r4829;
double r4850 = r4843 + r4849;
double r4851 = 20.0;
double r4852 = /* ERROR: no complex support in C */;
double r4853 = r4852 * r4829;
double r4854 = r4853 * r4829;
double r4855 = r4854 * r4829;
double r4856 = r4850 + r4855;
double r4857 = r4856 + r4847;
double r4858 = r4857 + r4838;
double r4859 = /* ERROR: no complex support in C */;
double r4860 = r4858 + r4859;
double r4861 = /* ERROR: no complex support in C */;
return r4861;
}
double f() {
double r4862 = -1.0;
double r4863 = 1.0;
double r4864 = /* ERROR: no complex support in C */;
double r4865 = 20.0;
double r4866 = 0.0;
double r4867 = /* ERROR: no complex support in C */;
double r4868 = r4867 * r4864;
double r4869 = 15.0;
double r4870 = /* ERROR: no complex support in C */;
double r4871 = r4868 + r4870;
double r4872 = r4864 * r4871;
double r4873 = 6.0;
double r4874 = /* ERROR: no complex support in C */;
double r4875 = r4872 + r4874;
double r4876 = r4864 * r4875;
double r4877 = /* ERROR: no complex support in C */;
double r4878 = r4876 + r4877;
double r4879 = r4864 * r4864;
double r4880 = r4870 * r4864;
double r4881 = r4864 + r4874;
double r4882 = r4879 * r4881;
double r4883 = r4880 + r4882;
double r4884 = r4879 * r4883;
double r4885 = r4864 * r4884;
double r4886 = r4878 + r4885;
double r4887 = /* ERROR: no complex support in C */;
return r4887;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2020045
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))