#include #include #include #include #include char *name = "Octave 3.8, jcobi/2"; double f_if(float alpha, float beta, float i) { float r25956 = alpha; float r25957 = beta; float r25958 = r25956 + r25957; float r25959 = r25957 - r25956; float r25960 = r25958 * r25959; float r25961 = 2; float r25962 = i; float r25963 = r25961 * r25962; float r25964 = r25958 + r25963; float r25965 = r25960 / r25964; float r25966 = 2.0; float r25967 = r25964 + r25966; float r25968 = r25965 / r25967; float r25969 = 1.0; float r25970 = r25968 + r25969; float r25971 = r25970 / r25966; return r25971; } double f_id(double alpha, double beta, double i) { double r25972 = alpha; double r25973 = beta; double r25974 = r25972 + r25973; double r25975 = r25973 - r25972; double r25976 = r25974 * r25975; double r25977 = 2; double r25978 = i; double r25979 = r25977 * r25978; double r25980 = r25974 + r25979; double r25981 = r25976 / r25980; double r25982 = 2.0; double r25983 = r25980 + r25982; double r25984 = r25981 / r25983; double r25985 = 1.0; double r25986 = r25984 + r25985; double r25987 = r25986 / r25982; return r25987; } double f_of(float alpha, float beta, float i) { float r25988 = alpha; float r25989 = beta; float r25990 = r25988 + r25989; float r25991 = i; float r25992 = 2; float r25993 = fma(r25991, r25992, r25989); float r25994 = 2.0; float r25995 = r25994 + r25988; float r25996 = r25993 + r25995; float r25997 = r25990 / r25996; float r25998 = r25989 - r25988; float r25999 = cbrt(r25998); float r26000 = r25999 * r25999; float r26001 = fma(r25991, r25992, r25990); float r26002 = r25999 / r26001; float r26003 = r26000 * r26002; float r26004 = 1.0; float r26005 = fma(r25997, r26003, r26004); float r26006 = 3; float r26007 = pow(r26005, r26006); float r26008 = cbrt(r26007); float r26009 = r26008 / r25994; float r26010 = 7.575589886591226e-15; bool r26011 = r26009 <= r26010; float r26012 = 3.0; float r26013 = -r26012; float r26014 = r25992 / r25988; float r26015 = r25988 / r25989; float r26016 = r26014 / r26015; float r26017 = r25989 + r26004; float r26018 = r26014 * r26017; float r26019 = fma(r26013, r26016, r26018); float r26020 = r26019 / r25994; float r26021 = exp(1.0); float r26022 = r25998 / r26001; float r26023 = fma(r25997, r26022, r26004); float r26024 = pow(r26023, r26006); float r26025 = log(r26024); float r26026 = pow(r26021, r26025); float r26027 = cbrt(r26026); float r26028 = r26027 / r25994; float r26029 = r26011 ? r26020 : r26028; return r26029; } double f_od(double alpha, double beta, double i) { double r26030 = alpha; double r26031 = beta; double r26032 = r26030 + r26031; double r26033 = i; double r26034 = 2; double r26035 = fma(r26033, r26034, r26031); double r26036 = 2.0; double r26037 = r26036 + r26030; double r26038 = r26035 + r26037; double r26039 = r26032 / r26038; double r26040 = r26031 - r26030; double r26041 = cbrt(r26040); double r26042 = r26041 * r26041; double r26043 = fma(r26033, r26034, r26032); double r26044 = r26041 / r26043; double r26045 = r26042 * r26044; double r26046 = 1.0; double r26047 = fma(r26039, r26045, r26046); double r26048 = 3; double r26049 = pow(r26047, r26048); double r26050 = cbrt(r26049); double r26051 = r26050 / r26036; double r26052 = 7.575589886591226e-15; bool r26053 = r26051 <= r26052; double r26054 = 3.0; double r26055 = -r26054; double r26056 = r26034 / r26030; double r26057 = r26030 / r26031; double r26058 = r26056 / r26057; double r26059 = r26031 + r26046; double r26060 = r26056 * r26059; double r26061 = fma(r26055, r26058, r26060); double r26062 = r26061 / r26036; double r26063 = exp(1.0); double r26064 = r26040 / r26043; double r26065 = fma(r26039, r26064, r26046); double r26066 = pow(r26065, r26048); double r26067 = log(r26066); double r26068 = pow(r26063, r26067); double r26069 = cbrt(r26068); double r26070 = r26069 / r26036; double r26071 = r26053 ? r26062 : r26070; return r26071; } 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 r26072, r26073, r26074, r26075, r26076, r26077, r26078, r26079, r26080, r26081, r26082, r26083, r26084, r26085, r26086, r26087; void setup_mpfr_f_im() { mpfr_set_default_prec(1360); mpfr_init(r26072); mpfr_init(r26073); mpfr_init(r26074); mpfr_init(r26075); mpfr_init(r26076); mpfr_init_set_str(r26077, "2", 10, MPFR_RNDN); mpfr_init(r26078); mpfr_init(r26079); mpfr_init(r26080); mpfr_init(r26081); mpfr_init_set_str(r26082, "2.0", 10, MPFR_RNDN); mpfr_init(r26083); mpfr_init(r26084); mpfr_init_set_str(r26085, "1.0", 10, MPFR_RNDN); mpfr_init(r26086); mpfr_init(r26087); } double f_im(double alpha, double beta, double i) { mpfr_set_d(r26072, alpha, MPFR_RNDN); mpfr_set_d(r26073, beta, MPFR_RNDN); mpfr_add(r26074, r26072, r26073, MPFR_RNDN); mpfr_sub(r26075, r26073, r26072, MPFR_RNDN); mpfr_mul(r26076, r26074, r26075, MPFR_RNDN); ; mpfr_set_d(r26078, i, MPFR_RNDN); mpfr_mul(r26079, r26077, r26078, MPFR_RNDN); mpfr_add(r26080, r26074, r26079, MPFR_RNDN); mpfr_div(r26081, r26076, r26080, MPFR_RNDN); ; mpfr_add(r26083, r26080, r26082, MPFR_RNDN); mpfr_div(r26084, r26081, r26083, MPFR_RNDN); ; mpfr_add(r26086, r26084, r26085, MPFR_RNDN); mpfr_div(r26087, r26086, r26082, MPFR_RNDN); return mpfr_get_d(r26087, MPFR_RNDN); } static mpfr_t r26088, r26089, r26090, r26091, r26092, r26093, r26094, r26095, r26096, r26097, r26098, r26099, r26100, r26101, r26102, r26103, r26104, r26105, r26106, r26107, r26108, r26109, r26110, r26111, r26112, r26113, r26114, r26115, r26116, r26117, r26118, r26119, r26120, r26121, r26122, r26123, r26124, r26125, r26126, r26127, r26128, r26129; void setup_mpfr_f_fm() { mpfr_set_default_prec(1360); mpfr_init(r26088); mpfr_init(r26089); mpfr_init(r26090); mpfr_init(r26091); mpfr_init_set_str(r26092, "2", 10, MPFR_RNDN); mpfr_init(r26093); mpfr_init_set_str(r26094, "2.0", 10, MPFR_RNDN); mpfr_init(r26095); mpfr_init(r26096); mpfr_init(r26097); mpfr_init(r26098); mpfr_init(r26099); mpfr_init(r26100); mpfr_init(r26101); mpfr_init(r26102); mpfr_init(r26103); mpfr_init_set_str(r26104, "1.0", 10, MPFR_RNDN); mpfr_init(r26105); mpfr_init_set_str(r26106, "3", 10, MPFR_RNDN); mpfr_init(r26107); mpfr_init(r26108); mpfr_init(r26109); mpfr_init_set_str(r26110, "7.575589886591226e-15", 10, MPFR_RNDN); mpfr_init(r26111); mpfr_init_set_str(r26112, "3.0", 10, MPFR_RNDN); mpfr_init(r26113); mpfr_init(r26114); 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); mpfr_init(r26128); mpfr_init(r26129); } double f_fm(double alpha, double beta, double i) { mpfr_set_d(r26088, alpha, MPFR_RNDN); mpfr_set_d(r26089, beta, MPFR_RNDN); mpfr_add(r26090, r26088, r26089, MPFR_RNDN); mpfr_set_d(r26091, i, MPFR_RNDN); ; mpfr_fma(r26093, r26091, r26092, r26089, MPFR_RNDN); ; mpfr_add(r26095, r26094, r26088, MPFR_RNDN); mpfr_add(r26096, r26093, r26095, MPFR_RNDN); mpfr_div(r26097, r26090, r26096, MPFR_RNDN); mpfr_sub(r26098, r26089, r26088, MPFR_RNDN); mpfr_cbrt(r26099, r26098, MPFR_RNDN); mpfr_mul(r26100, r26099, r26099, MPFR_RNDN); mpfr_fma(r26101, r26091, r26092, r26090, MPFR_RNDN); mpfr_div(r26102, r26099, r26101, MPFR_RNDN); mpfr_mul(r26103, r26100, r26102, MPFR_RNDN); ; mpfr_fma(r26105, r26097, r26103, r26104, MPFR_RNDN); ; mpfr_pow(r26107, r26105, r26106, MPFR_RNDN); mpfr_cbrt(r26108, r26107, MPFR_RNDN); mpfr_div(r26109, r26108, r26094, MPFR_RNDN); ; mpfr_set_si(r26111, mpfr_cmp(r26109, r26110) <= 0, MPFR_RNDN); ; mpfr_neg(r26113, r26112, MPFR_RNDN); mpfr_div(r26114, r26092, r26088, MPFR_RNDN); mpfr_div(r26115, r26088, r26089, MPFR_RNDN); mpfr_div(r26116, r26114, r26115, MPFR_RNDN); mpfr_add(r26117, r26089, r26104, MPFR_RNDN); mpfr_mul(r26118, r26114, r26117, MPFR_RNDN); mpfr_fma(r26119, r26113, r26116, r26118, MPFR_RNDN); mpfr_div(r26120, r26119, r26094, MPFR_RNDN); mpfr_set_si(r26121, 1, MPFR_RNDN), mpfr_const_exp(r26121, r26121, MPFR_RNDN); mpfr_div(r26122, r26098, r26101, MPFR_RNDN); mpfr_fma(r26123, r26097, r26122, r26104, MPFR_RNDN); mpfr_pow(r26124, r26123, r26106, MPFR_RNDN); mpfr_log(r26125, r26124, MPFR_RNDN); mpfr_pow(r26126, r26121, r26125, MPFR_RNDN); mpfr_cbrt(r26127, r26126, MPFR_RNDN); mpfr_div(r26128, r26127, r26094, MPFR_RNDN); if (mpfr_get_si(r26111, MPFR_RNDN)) { mpfr_set(r26129, r26120, MPFR_RNDN); } else { mpfr_set(r26129, r26128, MPFR_RNDN); }; return mpfr_get_d(r26129, MPFR_RNDN); } static mpfr_t r26130, r26131, r26132, r26133, r26134, r26135, r26136, r26137, r26138, r26139, r26140, r26141, r26142, r26143, r26144, r26145, r26146, r26147, r26148, r26149, r26150, r26151, r26152, r26153, r26154, r26155, r26156, r26157, r26158, r26159, r26160, r26161, r26162, r26163, r26164, r26165, r26166, r26167, r26168, r26169, r26170, r26171; void setup_mpfr_f_dm() { mpfr_set_default_prec(1360); mpfr_init(r26130); mpfr_init(r26131); mpfr_init(r26132); mpfr_init(r26133); mpfr_init_set_str(r26134, "2", 10, MPFR_RNDN); mpfr_init(r26135); mpfr_init_set_str(r26136, "2.0", 10, MPFR_RNDN); mpfr_init(r26137); mpfr_init(r26138); mpfr_init(r26139); mpfr_init(r26140); mpfr_init(r26141); mpfr_init(r26142); mpfr_init(r26143); mpfr_init(r26144); mpfr_init(r26145); mpfr_init_set_str(r26146, "1.0", 10, MPFR_RNDN); mpfr_init(r26147); mpfr_init_set_str(r26148, "3", 10, MPFR_RNDN); mpfr_init(r26149); mpfr_init(r26150); mpfr_init(r26151); mpfr_init_set_str(r26152, "7.575589886591226e-15", 10, MPFR_RNDN); mpfr_init(r26153); mpfr_init_set_str(r26154, "3.0", 10, MPFR_RNDN); mpfr_init(r26155); mpfr_init(r26156); mpfr_init(r26157); mpfr_init(r26158); mpfr_init(r26159); mpfr_init(r26160); mpfr_init(r26161); mpfr_init(r26162); mpfr_init(r26163); mpfr_init(r26164); mpfr_init(r26165); mpfr_init(r26166); mpfr_init(r26167); mpfr_init(r26168); mpfr_init(r26169); mpfr_init(r26170); mpfr_init(r26171); } double f_dm(double alpha, double beta, double i) { mpfr_set_d(r26130, alpha, MPFR_RNDN); mpfr_set_d(r26131, beta, MPFR_RNDN); mpfr_add(r26132, r26130, r26131, MPFR_RNDN); mpfr_set_d(r26133, i, MPFR_RNDN); ; mpfr_fma(r26135, r26133, r26134, r26131, MPFR_RNDN); ; mpfr_add(r26137, r26136, r26130, MPFR_RNDN); mpfr_add(r26138, r26135, r26137, MPFR_RNDN); mpfr_div(r26139, r26132, r26138, MPFR_RNDN); mpfr_sub(r26140, r26131, r26130, MPFR_RNDN); mpfr_cbrt(r26141, r26140, MPFR_RNDN); mpfr_mul(r26142, r26141, r26141, MPFR_RNDN); mpfr_fma(r26143, r26133, r26134, r26132, MPFR_RNDN); mpfr_div(r26144, r26141, r26143, MPFR_RNDN); mpfr_mul(r26145, r26142, r26144, MPFR_RNDN); ; mpfr_fma(r26147, r26139, r26145, r26146, MPFR_RNDN); ; mpfr_pow(r26149, r26147, r26148, MPFR_RNDN); mpfr_cbrt(r26150, r26149, MPFR_RNDN); mpfr_div(r26151, r26150, r26136, MPFR_RNDN); ; mpfr_set_si(r26153, mpfr_cmp(r26151, r26152) <= 0, MPFR_RNDN); ; mpfr_neg(r26155, r26154, MPFR_RNDN); mpfr_div(r26156, r26134, r26130, MPFR_RNDN); mpfr_div(r26157, r26130, r26131, MPFR_RNDN); mpfr_div(r26158, r26156, r26157, MPFR_RNDN); mpfr_add(r26159, r26131, r26146, MPFR_RNDN); mpfr_mul(r26160, r26156, r26159, MPFR_RNDN); mpfr_fma(r26161, r26155, r26158, r26160, MPFR_RNDN); mpfr_div(r26162, r26161, r26136, MPFR_RNDN); mpfr_set_si(r26163, 1, MPFR_RNDN), mpfr_const_exp(r26163, r26163, MPFR_RNDN); mpfr_div(r26164, r26140, r26143, MPFR_RNDN); mpfr_fma(r26165, r26139, r26164, r26146, MPFR_RNDN); mpfr_pow(r26166, r26165, r26148, MPFR_RNDN); mpfr_log(r26167, r26166, MPFR_RNDN); mpfr_pow(r26168, r26163, r26167, MPFR_RNDN); mpfr_cbrt(r26169, r26168, MPFR_RNDN); mpfr_div(r26170, r26169, r26136, MPFR_RNDN); if (mpfr_get_si(r26153, MPFR_RNDN)) { mpfr_set(r26171, r26162, MPFR_RNDN); } else { mpfr_set(r26171, r26170, MPFR_RNDN); }; return mpfr_get_d(r26171, MPFR_RNDN); }