\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.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))
\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.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 r90810 = -1.0;
double r90811 = 1.0;
double r90812 = /* ERROR: no complex support in C */;
double r90813 = r90812 * r90812;
double r90814 = r90813 * r90812;
double r90815 = r90814 * r90812;
double r90816 = r90815 * r90812;
double r90817 = r90816 * r90812;
double r90818 = 6.0;
double r90819 = 0.0;
double r90820 = /* ERROR: no complex support in C */;
double r90821 = r90820 * r90812;
double r90822 = r90821 * r90812;
double r90823 = r90822 * r90812;
double r90824 = r90823 * r90812;
double r90825 = r90824 * r90812;
double r90826 = r90817 + r90825;
double r90827 = 15.0;
double r90828 = /* ERROR: no complex support in C */;
double r90829 = r90828 * r90812;
double r90830 = r90829 * r90812;
double r90831 = r90830 * r90812;
double r90832 = r90831 * r90812;
double r90833 = r90826 + r90832;
double r90834 = 20.0;
double r90835 = /* ERROR: no complex support in C */;
double r90836 = r90835 * r90812;
double r90837 = r90836 * r90812;
double r90838 = r90837 * r90812;
double r90839 = r90833 + r90838;
double r90840 = r90839 + r90830;
double r90841 = r90840 + r90821;
double r90842 = /* ERROR: no complex support in C */;
double r90843 = r90841 + r90842;
double r90844 = /* ERROR: no complex support in C */;
return r90844;
}
double f() {
double r90845 = -1.0;
double r90846 = 1.0;
double r90847 = /* ERROR: no complex support in C */;
double r90848 = r90847 * r90847;
double r90849 = r90848 * r90847;
double r90850 = r90849 * r90847;
double r90851 = r90850 * r90847;
double r90852 = r90851 * r90847;
double r90853 = 6.0;
double r90854 = 0.0;
double r90855 = /* ERROR: no complex support in C */;
double r90856 = r90855 * r90847;
double r90857 = r90856 * r90847;
double r90858 = r90857 * r90847;
double r90859 = r90858 * r90847;
double r90860 = r90859 * r90847;
double r90861 = r90852 + r90860;
double r90862 = 15.0;
double r90863 = /* ERROR: no complex support in C */;
double r90864 = r90863 * r90847;
double r90865 = r90864 * r90847;
double r90866 = r90865 * r90847;
double r90867 = r90866 * r90847;
double r90868 = r90861 + r90867;
double r90869 = 20.0;
double r90870 = /* ERROR: no complex support in C */;
double r90871 = r90870 * r90847;
double r90872 = r90871 * r90847;
double r90873 = r90872 * r90847;
double r90874 = r90868 + r90873;
double r90875 = r90874 + r90865;
double r90876 = r90875 + r90856;
double r90877 = /* ERROR: no complex support in C */;
double r90878 = r90876 + r90877;
double r90879 = /* ERROR: no complex support in C */;
return r90879;
}
Initial program 0
Final simplification0
herbie shell --seed 2020020 +o rules:numerics
(FPCore ()
:name "3.9.1 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (+ (+ (* (* (* (* (* (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))))