#include #include #include #include #include char *name = "Linear.V4:$cdot from linear-1.19.1.3"; double f_if(float x, float y, float z, float t, float a, float b, float c, float i) { float r26031 = x; float r26032 = y; float r26033 = r26031 * r26032; float r26034 = z; float r26035 = t; float r26036 = r26034 * r26035; float r26037 = r26033 + r26036; float r26038 = a; float r26039 = b; float r26040 = r26038 * r26039; float r26041 = r26037 + r26040; float r26042 = c; float r26043 = i; float r26044 = r26042 * r26043; float r26045 = r26041 + r26044; return r26045; } double f_id(double x, double y, double z, double t, double a, double b, double c, double i) { double r26046 = x; double r26047 = y; double r26048 = r26046 * r26047; double r26049 = z; double r26050 = t; double r26051 = r26049 * r26050; double r26052 = r26048 + r26051; double r26053 = a; double r26054 = b; double r26055 = r26053 * r26054; double r26056 = r26052 + r26055; double r26057 = c; double r26058 = i; double r26059 = r26057 * r26058; double r26060 = r26056 + r26059; return r26060; } double f_of(float x, float y, float z, float t, float a, float b, float c, float i) { float r26061 = z; float r26062 = t; float r26063 = y; float r26064 = x; float r26065 = r26063 * r26064; float r26066 = fma(r26061, r26062, r26065); float r26067 = i; float r26068 = c; float r26069 = b; float r26070 = a; float r26071 = r26069 * r26070; float r26072 = fma(r26067, r26068, r26071); float r26073 = r26066 + r26072; return r26073; } double f_od(double x, double y, double z, double t, double a, double b, double c, double i) { double r26074 = z; double r26075 = t; double r26076 = y; double r26077 = x; double r26078 = r26076 * r26077; double r26079 = fma(r26074, r26075, r26078); double r26080 = i; double r26081 = c; double r26082 = b; double r26083 = a; double r26084 = r26082 * r26083; double r26085 = fma(r26080, r26081, r26084); double r26086 = r26079 + r26085; return r26086; } void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) { mpfr_fmod(r, n, d, rmd); if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd); } static mpfr_t r26087, r26088, r26089, r26090, r26091, r26092, r26093, r26094, r26095, r26096, r26097, r26098, r26099, r26100, r26101; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r26087); mpfr_init(r26088); mpfr_init(r26089); mpfr_init(r26090); mpfr_init(r26091); mpfr_init(r26092); mpfr_init(r26093); mpfr_init(r26094); mpfr_init(r26095); mpfr_init(r26096); mpfr_init(r26097); mpfr_init(r26098); mpfr_init(r26099); mpfr_init(r26100); mpfr_init(r26101); } double f_im(double x, double y, double z, double t, double a, double b, double c, double i) { mpfr_set_d(r26087, x, MPFR_RNDN); mpfr_set_d(r26088, y, MPFR_RNDN); mpfr_mul(r26089, r26087, r26088, MPFR_RNDN); mpfr_set_d(r26090, z, MPFR_RNDN); mpfr_set_d(r26091, t, MPFR_RNDN); mpfr_mul(r26092, r26090, r26091, MPFR_RNDN); mpfr_add(r26093, r26089, r26092, MPFR_RNDN); mpfr_set_d(r26094, a, MPFR_RNDN); mpfr_set_d(r26095, b, MPFR_RNDN); mpfr_mul(r26096, r26094, r26095, MPFR_RNDN); mpfr_add(r26097, r26093, r26096, MPFR_RNDN); mpfr_set_d(r26098, c, MPFR_RNDN); mpfr_set_d(r26099, i, MPFR_RNDN); mpfr_mul(r26100, r26098, r26099, MPFR_RNDN); mpfr_add(r26101, r26097, r26100, MPFR_RNDN); return mpfr_get_d(r26101, MPFR_RNDN); } static mpfr_t r26102, r26103, r26104, r26105, r26106, r26107, r26108, r26109, r26110, r26111, r26112, r26113, r26114; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r26102); mpfr_init(r26103); mpfr_init(r26104); mpfr_init(r26105); mpfr_init(r26106); mpfr_init(r26107); mpfr_init(r26108); mpfr_init(r26109); mpfr_init(r26110); mpfr_init(r26111); mpfr_init(r26112); mpfr_init(r26113); mpfr_init(r26114); } double f_fm(double x, double y, double z, double t, double a, double b, double c, double i) { mpfr_set_d(r26102, z, MPFR_RNDN); mpfr_set_d(r26103, t, MPFR_RNDN); mpfr_set_d(r26104, y, MPFR_RNDN); mpfr_set_d(r26105, x, MPFR_RNDN); mpfr_mul(r26106, r26104, r26105, MPFR_RNDN); mpfr_fma(r26107, r26102, r26103, r26106, MPFR_RNDN); mpfr_set_d(r26108, i, MPFR_RNDN); mpfr_set_d(r26109, c, MPFR_RNDN); mpfr_set_d(r26110, b, MPFR_RNDN); mpfr_set_d(r26111, a, MPFR_RNDN); mpfr_mul(r26112, r26110, r26111, MPFR_RNDN); mpfr_fma(r26113, r26108, r26109, r26112, MPFR_RNDN); mpfr_add(r26114, r26107, r26113, MPFR_RNDN); return mpfr_get_d(r26114, MPFR_RNDN); } static mpfr_t r26115, r26116, r26117, r26118, r26119, r26120, r26121, r26122, r26123, r26124, r26125, r26126, r26127; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init(r26115); mpfr_init(r26116); mpfr_init(r26117); mpfr_init(r26118); mpfr_init(r26119); mpfr_init(r26120); mpfr_init(r26121); mpfr_init(r26122); mpfr_init(r26123); mpfr_init(r26124); mpfr_init(r26125); mpfr_init(r26126); mpfr_init(r26127); } double f_dm(double x, double y, double z, double t, double a, double b, double c, double i) { mpfr_set_d(r26115, z, MPFR_RNDN); mpfr_set_d(r26116, t, MPFR_RNDN); mpfr_set_d(r26117, y, MPFR_RNDN); mpfr_set_d(r26118, x, MPFR_RNDN); mpfr_mul(r26119, r26117, r26118, MPFR_RNDN); mpfr_fma(r26120, r26115, r26116, r26119, MPFR_RNDN); mpfr_set_d(r26121, i, MPFR_RNDN); mpfr_set_d(r26122, c, MPFR_RNDN); mpfr_set_d(r26123, b, MPFR_RNDN); mpfr_set_d(r26124, a, MPFR_RNDN); mpfr_mul(r26125, r26123, r26124, MPFR_RNDN); mpfr_fma(r26126, r26121, r26122, r26125, MPFR_RNDN); mpfr_add(r26127, r26120, r26126, MPFR_RNDN); return mpfr_get_d(r26127, MPFR_RNDN); }