\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(\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))
double f() {
double r25855 = -1.0;
double r25856 = 1.0;
double r25857 = /* ERROR: no complex support in C */;
double r25858 = r25857 * r25857;
double r25859 = r25858 * r25857;
double r25860 = r25859 * r25857;
double r25861 = r25860 * r25857;
double r25862 = r25861 * r25857;
double r25863 = 6.0;
double r25864 = 0.0;
double r25865 = /* ERROR: no complex support in C */;
double r25866 = r25865 * r25857;
double r25867 = r25866 * r25857;
double r25868 = r25867 * r25857;
double r25869 = r25868 * r25857;
double r25870 = r25869 * r25857;
double r25871 = r25862 + r25870;
double r25872 = 15.0;
double r25873 = /* ERROR: no complex support in C */;
double r25874 = r25873 * r25857;
double r25875 = r25874 * r25857;
double r25876 = r25875 * r25857;
double r25877 = r25876 * r25857;
double r25878 = r25871 + r25877;
double r25879 = 20.0;
double r25880 = /* ERROR: no complex support in C */;
double r25881 = r25880 * r25857;
double r25882 = r25881 * r25857;
double r25883 = r25882 * r25857;
double r25884 = r25878 + r25883;
double r25885 = r25884 + r25875;
double r25886 = r25885 + r25866;
double r25887 = /* ERROR: no complex support in C */;
double r25888 = r25886 + r25887;
double r25889 = /* ERROR: no complex support in C */;
return r25889;
}
double f() {
double r25890 = -1.0;
double r25891 = 1.0;
double r25892 = /* ERROR: no complex support in C */;
double r25893 = r25892 * r25892;
double r25894 = r25893 * r25892;
double r25895 = r25894 * r25892;
double r25896 = r25895 * r25892;
double r25897 = r25896 * r25892;
double r25898 = 6.0;
double r25899 = 0.0;
double r25900 = /* ERROR: no complex support in C */;
double r25901 = r25900 * r25892;
double r25902 = r25901 * r25892;
double r25903 = r25902 * r25892;
double r25904 = r25903 * r25892;
double r25905 = r25904 * r25892;
double r25906 = r25897 + r25905;
double r25907 = 15.0;
double r25908 = /* ERROR: no complex support in C */;
double r25909 = r25908 * r25892;
double r25910 = r25909 * r25892;
double r25911 = r25910 * r25892;
double r25912 = r25911 * r25892;
double r25913 = r25906 + r25912;
double r25914 = 20.0;
double r25915 = /* ERROR: no complex support in C */;
double r25916 = r25915 * r25892;
double r25917 = r25916 * r25892;
double r25918 = r25917 * r25892;
double r25919 = r25913 + r25918;
double r25920 = r25919 + r25910;
double r25921 = r25920 + r25901;
double r25922 = /* ERROR: no complex support in C */;
double r25923 = r25921 + r25922;
double r25924 = /* ERROR: no complex support in C */;
return r25924;
}
Initial program 0
Final simplification0
herbie shell --seed 2020081
(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))))