#include #include #include #include #include char *name = "_divideComplex, real part"; double f_if(float x_re, float x_im, float y_re, float y_im) { float r26051 = x_re; float r26052 = y_re; float r26053 = r26051 * r26052; float r26054 = x_im; float r26055 = y_im; float r26056 = r26054 * r26055; float r26057 = r26053 + r26056; float r26058 = r26052 * r26052; float r26059 = r26055 * r26055; float r26060 = r26058 + r26059; float r26061 = r26057 / r26060; return r26061; } double f_id(double x_re, double x_im, double y_re, double y_im) { double r26062 = x_re; double r26063 = y_re; double r26064 = r26062 * r26063; double r26065 = x_im; double r26066 = y_im; double r26067 = r26065 * r26066; double r26068 = r26064 + r26067; double r26069 = r26063 * r26063; double r26070 = r26066 * r26066; double r26071 = r26069 + r26070; double r26072 = r26068 / r26071; return r26072; } double f_of(float x_re, float x_im, float y_re, float y_im) { float r26073 = x_re; float r26074 = y_re; float r26075 = r26073 * r26074; float r26076 = x_im; float r26077 = y_im; float r26078 = r26076 * r26077; float r26079 = r26075 + r26078; float r26080 = r26074 * r26074; float r26081 = r26077 * r26077; float r26082 = r26080 + r26081; float r26083 = r26079 / r26082; float r26084 = -5.295721881989966e+304; bool r26085 = r26083 <= r26084; float r26086 = -r26073; float r26087 = r26081 + r26080; float r26088 = sqrt(r26087); float r26089 = r26086 / r26088; float r26090 = 1.7786337187724033e+308; bool r26091 = r26083 <= r26090; float r26092 = 1; float r26093 = r26082 / r26079; float r26094 = r26092 / r26093; float r26095 = r26091 ? r26094 : r26089; float r26096 = r26085 ? r26089 : r26095; return r26096; } double f_od(double x_re, double x_im, double y_re, double y_im) { double r26097 = x_re; double r26098 = y_re; double r26099 = r26097 * r26098; double r26100 = x_im; double r26101 = y_im; double r26102 = r26100 * r26101; double r26103 = r26099 + r26102; double r26104 = r26098 * r26098; double r26105 = r26101 * r26101; double r26106 = r26104 + r26105; double r26107 = r26103 / r26106; double r26108 = -5.295721881989966e+304; bool r26109 = r26107 <= r26108; double r26110 = -r26097; double r26111 = r26105 + r26104; double r26112 = sqrt(r26111); double r26113 = r26110 / r26112; double r26114 = 1.7786337187724033e+308; bool r26115 = r26107 <= r26114; double r26116 = 1; double r26117 = r26106 / r26103; double r26118 = r26116 / r26117; double r26119 = r26115 ? r26118 : r26113; double r26120 = r26109 ? r26113 : r26119; return r26120; } 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 r26121, r26122, r26123, r26124, r26125, r26126, r26127, r26128, r26129, r26130, r26131; void setup_mpfr_f_im() { mpfr_set_default_prec(592); 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); mpfr_init(r26130); mpfr_init(r26131); } double f_im(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r26121, x_re, MPFR_RNDN); mpfr_set_d(r26122, y_re, MPFR_RNDN); mpfr_mul(r26123, r26121, r26122, MPFR_RNDN); mpfr_set_d(r26124, x_im, MPFR_RNDN); mpfr_set_d(r26125, y_im, MPFR_RNDN); mpfr_mul(r26126, r26124, r26125, MPFR_RNDN); mpfr_add(r26127, r26123, r26126, MPFR_RNDN); mpfr_mul(r26128, r26122, r26122, MPFR_RNDN); mpfr_mul(r26129, r26125, r26125, MPFR_RNDN); mpfr_add(r26130, r26128, r26129, MPFR_RNDN); mpfr_div(r26131, r26127, r26130, MPFR_RNDN); return mpfr_get_d(r26131, MPFR_RNDN); } static mpfr_t r26132, r26133, r26134, r26135, r26136, r26137, r26138, r26139, r26140, r26141, r26142, r26143, r26144, r26145, r26146, r26147, r26148, r26149, r26150, r26151, r26152, r26153, r26154, r26155; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r26132); mpfr_init(r26133); mpfr_init(r26134); mpfr_init(r26135); mpfr_init(r26136); mpfr_init(r26137); mpfr_init(r26138); mpfr_init(r26139); mpfr_init(r26140); mpfr_init(r26141); mpfr_init(r26142); mpfr_init_set_str(r26143, "-5.295721881989966e+304", 10, MPFR_RNDN); mpfr_init(r26144); mpfr_init(r26145); mpfr_init(r26146); mpfr_init(r26147); mpfr_init(r26148); mpfr_init_set_str(r26149, "1.7786337187724033e+308", 10, MPFR_RNDN); mpfr_init(r26150); mpfr_init_set_str(r26151, "1", 10, MPFR_RNDN); mpfr_init(r26152); mpfr_init(r26153); mpfr_init(r26154); mpfr_init(r26155); } double f_fm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r26132, x_re, MPFR_RNDN); mpfr_set_d(r26133, y_re, MPFR_RNDN); mpfr_mul(r26134, r26132, r26133, MPFR_RNDN); mpfr_set_d(r26135, x_im, MPFR_RNDN); mpfr_set_d(r26136, y_im, MPFR_RNDN); mpfr_mul(r26137, r26135, r26136, MPFR_RNDN); mpfr_add(r26138, r26134, r26137, MPFR_RNDN); mpfr_mul(r26139, r26133, r26133, MPFR_RNDN); mpfr_mul(r26140, r26136, r26136, MPFR_RNDN); mpfr_add(r26141, r26139, r26140, MPFR_RNDN); mpfr_div(r26142, r26138, r26141, MPFR_RNDN); ; mpfr_set_si(r26144, mpfr_cmp(r26142, r26143) <= 0, MPFR_RNDN); mpfr_neg(r26145, r26132, MPFR_RNDN); mpfr_add(r26146, r26140, r26139, MPFR_RNDN); mpfr_sqrt(r26147, r26146, MPFR_RNDN); mpfr_div(r26148, r26145, r26147, MPFR_RNDN); ; mpfr_set_si(r26150, mpfr_cmp(r26142, r26149) <= 0, MPFR_RNDN); ; mpfr_div(r26152, r26141, r26138, MPFR_RNDN); mpfr_div(r26153, r26151, r26152, MPFR_RNDN); if (mpfr_get_si(r26150, MPFR_RNDN)) { mpfr_set(r26154, r26153, MPFR_RNDN); } else { mpfr_set(r26154, r26148, MPFR_RNDN); }; if (mpfr_get_si(r26144, MPFR_RNDN)) { mpfr_set(r26155, r26148, MPFR_RNDN); } else { mpfr_set(r26155, r26154, MPFR_RNDN); }; return mpfr_get_d(r26155, MPFR_RNDN); } static mpfr_t r26156, r26157, r26158, r26159, r26160, r26161, r26162, r26163, r26164, r26165, r26166, r26167, r26168, r26169, r26170, r26171, r26172, r26173, r26174, r26175, r26176, r26177, r26178, r26179; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); 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_set_str(r26167, "-5.295721881989966e+304", 10, MPFR_RNDN); mpfr_init(r26168); mpfr_init(r26169); mpfr_init(r26170); mpfr_init(r26171); mpfr_init(r26172); mpfr_init_set_str(r26173, "1.7786337187724033e+308", 10, MPFR_RNDN); mpfr_init(r26174); mpfr_init_set_str(r26175, "1", 10, MPFR_RNDN); mpfr_init(r26176); mpfr_init(r26177); mpfr_init(r26178); mpfr_init(r26179); } double f_dm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r26156, x_re, MPFR_RNDN); mpfr_set_d(r26157, y_re, MPFR_RNDN); mpfr_mul(r26158, r26156, r26157, MPFR_RNDN); mpfr_set_d(r26159, x_im, MPFR_RNDN); mpfr_set_d(r26160, y_im, MPFR_RNDN); mpfr_mul(r26161, r26159, r26160, MPFR_RNDN); mpfr_add(r26162, r26158, r26161, MPFR_RNDN); mpfr_mul(r26163, r26157, r26157, MPFR_RNDN); mpfr_mul(r26164, r26160, r26160, MPFR_RNDN); mpfr_add(r26165, r26163, r26164, MPFR_RNDN); mpfr_div(r26166, r26162, r26165, MPFR_RNDN); ; mpfr_set_si(r26168, mpfr_cmp(r26166, r26167) <= 0, MPFR_RNDN); mpfr_neg(r26169, r26156, MPFR_RNDN); mpfr_add(r26170, r26164, r26163, MPFR_RNDN); mpfr_sqrt(r26171, r26170, MPFR_RNDN); mpfr_div(r26172, r26169, r26171, MPFR_RNDN); ; mpfr_set_si(r26174, mpfr_cmp(r26166, r26173) <= 0, MPFR_RNDN); ; mpfr_div(r26176, r26165, r26162, MPFR_RNDN); mpfr_div(r26177, r26175, r26176, MPFR_RNDN); if (mpfr_get_si(r26174, MPFR_RNDN)) { mpfr_set(r26178, r26177, MPFR_RNDN); } else { mpfr_set(r26178, r26172, MPFR_RNDN); }; if (mpfr_get_si(r26168, MPFR_RNDN)) { mpfr_set(r26179, r26172, MPFR_RNDN); } else { mpfr_set(r26179, r26178, MPFR_RNDN); }; return mpfr_get_d(r26179, MPFR_RNDN); }