#include #include #include #include #include char *name = "powComplex, imaginary part"; double f_if(float x_re, float x_im, float y_re, float y_im) { float r14896 = x_re; float r14897 = r14896 * r14896; float r14898 = x_im; float r14899 = r14898 * r14898; float r14900 = r14897 + r14899; float r14901 = sqrt(r14900); float r14902 = log(r14901); float r14903 = y_re; float r14904 = r14902 * r14903; float r14905 = atan2(r14898, r14896); float r14906 = y_im; float r14907 = r14905 * r14906; float r14908 = r14904 - r14907; float r14909 = exp(r14908); float r14910 = r14902 * r14906; float r14911 = r14905 * r14903; float r14912 = r14910 + r14911; float r14913 = sin(r14912); float r14914 = r14909 * r14913; return r14914; } double f_id(double x_re, double x_im, double y_re, double y_im) { double r14915 = x_re; double r14916 = r14915 * r14915; double r14917 = x_im; double r14918 = r14917 * r14917; double r14919 = r14916 + r14918; double r14920 = sqrt(r14919); double r14921 = log(r14920); double r14922 = y_re; double r14923 = r14921 * r14922; double r14924 = atan2(r14917, r14915); double r14925 = y_im; double r14926 = r14924 * r14925; double r14927 = r14923 - r14926; double r14928 = exp(r14927); double r14929 = r14921 * r14925; double r14930 = r14924 * r14922; double r14931 = r14929 + r14930; double r14932 = sin(r14931); double r14933 = r14928 * r14932; return r14933; } double f_of(float x_re, float x_im, float y_re, float y_im) { float r14934 = x_re; float r14935 = -5.650902015738867e-54f; bool r14936 = r14934 <= r14935; float r14937 = y_re; float r14938 = x_im; float r14939 = atan2(r14938, r14934); float r14940 = r14937 * r14939; float r14941 = -1.0f; float r14942 = r14941 * r14934; float r14943 = log(r14942); float r14944 = y_im; float r14945 = r14943 * r14944; float r14946 = r14940 + r14945; float r14947 = sin(r14946); float r14948 = exp(r14944); float r14949 = pow(r14948, r14939); float r14950 = r14934 * r14934; float r14951 = r14938 * r14938; float r14952 = r14950 + r14951; float r14953 = sqrt(r14952); float r14954 = pow(r14953, r14937); float r14955 = r14949 / r14954; float r14956 = r14947 / r14955; float r14957 = -1.6624045133420514e-205f; bool r14958 = r14934 <= r14957; float r14959 = log(r14953); float r14960 = r14959 * r14944; float r14961 = r14940 + r14960; float r14962 = sin(r14961); float r14963 = r14939 * r14944; float r14964 = 1.0f; float r14965 = 0.5f; float r14966 = r14939 * r14939; float r14967 = r14944 * r14944; float r14968 = r14966 * r14967; float r14969 = r14965 * r14968; float r14970 = r14964 + r14969; float r14971 = r14963 + r14970; float r14972 = r14971 / r14954; float r14973 = r14962 / r14972; float r14974 = 6.630718593830805e-309f; bool r14975 = r14934 <= r14974; float r14976 = log(r14934); float r14977 = r14944 * r14976; float r14978 = r14939 * r14937; float r14979 = r14977 + r14978; float r14980 = r14979 / r14955; float r14981 = r14975 ? r14956 : r14980; float r14982 = r14958 ? r14973 : r14981; float r14983 = r14936 ? r14956 : r14982; return r14983; } double f_od(double x_re, double x_im, double y_re, double y_im) { double r14984 = x_re; double r14985 = -5.650902015738867e-54; bool r14986 = r14984 <= r14985; double r14987 = y_re; double r14988 = x_im; double r14989 = atan2(r14988, r14984); double r14990 = r14987 * r14989; double r14991 = -1.0; double r14992 = r14991 * r14984; double r14993 = log(r14992); double r14994 = y_im; double r14995 = r14993 * r14994; double r14996 = r14990 + r14995; double r14997 = sin(r14996); double r14998 = exp(r14994); double r14999 = pow(r14998, r14989); double r15000 = r14984 * r14984; double r15001 = r14988 * r14988; double r15002 = r15000 + r15001; double r15003 = sqrt(r15002); double r15004 = pow(r15003, r14987); double r15005 = r14999 / r15004; double r15006 = r14997 / r15005; double r15007 = -1.6624045133420514e-205; bool r15008 = r14984 <= r15007; double r15009 = log(r15003); double r15010 = r15009 * r14994; double r15011 = r14990 + r15010; double r15012 = sin(r15011); double r15013 = r14989 * r14994; double r15014 = 1.0; double r15015 = 0.5; double r15016 = r14989 * r14989; double r15017 = r14994 * r14994; double r15018 = r15016 * r15017; double r15019 = r15015 * r15018; double r15020 = r15014 + r15019; double r15021 = r15013 + r15020; double r15022 = r15021 / r15004; double r15023 = r15012 / r15022; double r15024 = 6.630718593830805e-309; bool r15025 = r14984 <= r15024; double r15026 = log(r14984); double r15027 = r14994 * r15026; double r15028 = r14989 * r14987; double r15029 = r15027 + r15028; double r15030 = r15029 / r15005; double r15031 = r15025 ? r15006 : r15030; double r15032 = r15008 ? r15023 : r15031; double r15033 = r14986 ? r15006 : r15032; return r15033; } 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 r15034, r15035, r15036, r15037, r15038, r15039, r15040, r15041, r15042, r15043, r15044, r15045, r15046, r15047, r15048, r15049, r15050, r15051, r15052; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15034); mpfr_init(r15035); mpfr_init(r15036); mpfr_init(r15037); mpfr_init(r15038); mpfr_init(r15039); mpfr_init(r15040); mpfr_init(r15041); mpfr_init(r15042); mpfr_init(r15043); mpfr_init(r15044); mpfr_init(r15045); mpfr_init(r15046); mpfr_init(r15047); mpfr_init(r15048); mpfr_init(r15049); mpfr_init(r15050); mpfr_init(r15051); mpfr_init(r15052); } double f_im(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r15034, x_re, MPFR_RNDN); mpfr_mul(r15035, r15034, r15034, MPFR_RNDN); mpfr_set_d(r15036, x_im, MPFR_RNDN); mpfr_mul(r15037, r15036, r15036, MPFR_RNDN); mpfr_add(r15038, r15035, r15037, MPFR_RNDN); mpfr_sqrt(r15039, r15038, MPFR_RNDN); mpfr_log(r15040, r15039, MPFR_RNDN); mpfr_set_d(r15041, y_re, MPFR_RNDN); mpfr_mul(r15042, r15040, r15041, MPFR_RNDN); mpfr_atan2(r15043, r15036, r15034, MPFR_RNDN); mpfr_set_d(r15044, y_im, MPFR_RNDN); mpfr_mul(r15045, r15043, r15044, MPFR_RNDN); mpfr_sub(r15046, r15042, r15045, MPFR_RNDN); mpfr_exp(r15047, r15046, MPFR_RNDN); mpfr_mul(r15048, r15040, r15044, MPFR_RNDN); mpfr_mul(r15049, r15043, r15041, MPFR_RNDN); mpfr_add(r15050, r15048, r15049, MPFR_RNDN); mpfr_sin(r15051, r15050, MPFR_RNDN); mpfr_mul(r15052, r15047, r15051, MPFR_RNDN); return mpfr_get_d(r15052, MPFR_RNDN); } static mpfr_t r15053, r15054, r15055, r15056, r15057, r15058, r15059, r15060, r15061, r15062, r15063, r15064, r15065, r15066, r15067, r15068, r15069, r15070, r15071, r15072, r15073, r15074, r15075, r15076, r15077, r15078, r15079, r15080, r15081, r15082, r15083, r15084, r15085, r15086, r15087, r15088, r15089, r15090, r15091, r15092, r15093, r15094, r15095, r15096, r15097, r15098, r15099, r15100, r15101, r15102; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15053); mpfr_init_set_str(r15054, "-5.650902015738867e-54", 10, MPFR_RNDN); mpfr_init(r15055); mpfr_init(r15056); mpfr_init(r15057); mpfr_init(r15058); mpfr_init(r15059); mpfr_init_set_str(r15060, "-1", 10, MPFR_RNDN); mpfr_init(r15061); mpfr_init(r15062); mpfr_init(r15063); mpfr_init(r15064); mpfr_init(r15065); mpfr_init(r15066); mpfr_init(r15067); mpfr_init(r15068); mpfr_init(r15069); mpfr_init(r15070); mpfr_init(r15071); mpfr_init(r15072); mpfr_init(r15073); mpfr_init(r15074); mpfr_init(r15075); mpfr_init_set_str(r15076, "-1.6624045133420514e-205", 10, MPFR_RNDN); mpfr_init(r15077); mpfr_init(r15078); mpfr_init(r15079); mpfr_init(r15080); mpfr_init(r15081); mpfr_init(r15082); mpfr_init_set_str(r15083, "1", 10, MPFR_RNDN); mpfr_init_set_str(r15084, "1/2", 10, MPFR_RNDN); mpfr_init(r15085); mpfr_init(r15086); mpfr_init(r15087); mpfr_init(r15088); mpfr_init(r15089); mpfr_init(r15090); mpfr_init(r15091); mpfr_init(r15092); mpfr_init_set_str(r15093, "6.630718593830805e-309", 10, MPFR_RNDN); mpfr_init(r15094); mpfr_init(r15095); mpfr_init(r15096); mpfr_init(r15097); mpfr_init(r15098); mpfr_init(r15099); mpfr_init(r15100); mpfr_init(r15101); mpfr_init(r15102); } double f_fm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r15053, x_re, MPFR_RNDN); ; mpfr_set_si(r15055, mpfr_cmp(r15053, r15054) <= 0, MPFR_RNDN); mpfr_set_d(r15056, y_re, MPFR_RNDN); mpfr_set_d(r15057, x_im, MPFR_RNDN); mpfr_atan2(r15058, r15057, r15053, MPFR_RNDN); mpfr_mul(r15059, r15056, r15058, MPFR_RNDN); ; mpfr_mul(r15061, r15060, r15053, MPFR_RNDN); mpfr_log(r15062, r15061, MPFR_RNDN); mpfr_set_d(r15063, y_im, MPFR_RNDN); mpfr_mul(r15064, r15062, r15063, MPFR_RNDN); mpfr_add(r15065, r15059, r15064, MPFR_RNDN); mpfr_sin(r15066, r15065, MPFR_RNDN); mpfr_exp(r15067, r15063, MPFR_RNDN); mpfr_pow(r15068, r15067, r15058, MPFR_RNDN); mpfr_sqr(r15069, r15053, MPFR_RNDN); mpfr_mul(r15070, r15057, r15057, MPFR_RNDN); mpfr_add(r15071, r15069, r15070, MPFR_RNDN); mpfr_sqrt(r15072, r15071, MPFR_RNDN); mpfr_pow(r15073, r15072, r15056, MPFR_RNDN); mpfr_div(r15074, r15068, r15073, MPFR_RNDN); mpfr_div(r15075, r15066, r15074, MPFR_RNDN); ; mpfr_set_si(r15077, mpfr_cmp(r15053, r15076) <= 0, MPFR_RNDN); mpfr_log(r15078, r15072, MPFR_RNDN); mpfr_mul(r15079, r15078, r15063, MPFR_RNDN); mpfr_add(r15080, r15059, r15079, MPFR_RNDN); mpfr_sin(r15081, r15080, MPFR_RNDN); mpfr_mul(r15082, r15058, r15063, MPFR_RNDN); ; ; mpfr_sqr(r15085, r15058, MPFR_RNDN); mpfr_sqr(r15086, r15063, MPFR_RNDN); mpfr_mul(r15087, r15085, r15086, MPFR_RNDN); mpfr_mul(r15088, r15084, r15087, MPFR_RNDN); mpfr_add(r15089, r15083, r15088, MPFR_RNDN); mpfr_add(r15090, r15082, r15089, MPFR_RNDN); mpfr_div(r15091, r15090, r15073, MPFR_RNDN); mpfr_div(r15092, r15081, r15091, MPFR_RNDN); ; mpfr_set_si(r15094, mpfr_cmp(r15053, r15093) <= 0, MPFR_RNDN); mpfr_log(r15095, r15053, MPFR_RNDN); mpfr_mul(r15096, r15063, r15095, MPFR_RNDN); mpfr_mul(r15097, r15058, r15056, MPFR_RNDN); mpfr_add(r15098, r15096, r15097, MPFR_RNDN); mpfr_div(r15099, r15098, r15074, MPFR_RNDN); if (mpfr_get_si(r15094, MPFR_RNDN)) { mpfr_set(r15100, r15075, MPFR_RNDN); } else { mpfr_set(r15100, r15099, MPFR_RNDN); }; if (mpfr_get_si(r15077, MPFR_RNDN)) { mpfr_set(r15101, r15092, MPFR_RNDN); } else { mpfr_set(r15101, r15100, MPFR_RNDN); }; if (mpfr_get_si(r15055, MPFR_RNDN)) { mpfr_set(r15102, r15075, MPFR_RNDN); } else { mpfr_set(r15102, r15101, MPFR_RNDN); }; return mpfr_get_d(r15102, MPFR_RNDN); } static mpfr_t r15103, r15104, r15105, r15106, r15107, r15108, r15109, r15110, r15111, r15112, r15113, r15114, r15115, r15116, r15117, r15118, r15119, r15120, r15121, r15122, r15123, r15124, r15125, r15126, r15127, r15128, r15129, r15130, r15131, r15132, r15133, r15134, r15135, r15136, r15137, r15138, r15139, r15140, r15141, r15142, r15143, r15144, r15145, r15146, r15147, r15148, r15149, r15150, r15151, r15152; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15103); mpfr_init_set_str(r15104, "-5.650902015738867e-54", 10, MPFR_RNDN); mpfr_init(r15105); mpfr_init(r15106); mpfr_init(r15107); mpfr_init(r15108); mpfr_init(r15109); mpfr_init_set_str(r15110, "-1", 10, MPFR_RNDN); mpfr_init(r15111); mpfr_init(r15112); mpfr_init(r15113); mpfr_init(r15114); mpfr_init(r15115); mpfr_init(r15116); mpfr_init(r15117); mpfr_init(r15118); mpfr_init(r15119); mpfr_init(r15120); mpfr_init(r15121); mpfr_init(r15122); mpfr_init(r15123); mpfr_init(r15124); mpfr_init(r15125); mpfr_init_set_str(r15126, "-1.6624045133420514e-205", 10, MPFR_RNDN); mpfr_init(r15127); mpfr_init(r15128); mpfr_init(r15129); mpfr_init(r15130); mpfr_init(r15131); mpfr_init(r15132); mpfr_init_set_str(r15133, "1", 10, MPFR_RNDN); mpfr_init_set_str(r15134, "1/2", 10, MPFR_RNDN); mpfr_init(r15135); mpfr_init(r15136); mpfr_init(r15137); mpfr_init(r15138); mpfr_init(r15139); mpfr_init(r15140); mpfr_init(r15141); mpfr_init(r15142); mpfr_init_set_str(r15143, "6.630718593830805e-309", 10, MPFR_RNDN); mpfr_init(r15144); mpfr_init(r15145); mpfr_init(r15146); mpfr_init(r15147); mpfr_init(r15148); mpfr_init(r15149); mpfr_init(r15150); mpfr_init(r15151); mpfr_init(r15152); } double f_dm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r15103, x_re, MPFR_RNDN); ; mpfr_set_si(r15105, mpfr_cmp(r15103, r15104) <= 0, MPFR_RNDN); mpfr_set_d(r15106, y_re, MPFR_RNDN); mpfr_set_d(r15107, x_im, MPFR_RNDN); mpfr_atan2(r15108, r15107, r15103, MPFR_RNDN); mpfr_mul(r15109, r15106, r15108, MPFR_RNDN); ; mpfr_mul(r15111, r15110, r15103, MPFR_RNDN); mpfr_log(r15112, r15111, MPFR_RNDN); mpfr_set_d(r15113, y_im, MPFR_RNDN); mpfr_mul(r15114, r15112, r15113, MPFR_RNDN); mpfr_add(r15115, r15109, r15114, MPFR_RNDN); mpfr_sin(r15116, r15115, MPFR_RNDN); mpfr_exp(r15117, r15113, MPFR_RNDN); mpfr_pow(r15118, r15117, r15108, MPFR_RNDN); mpfr_sqr(r15119, r15103, MPFR_RNDN); mpfr_mul(r15120, r15107, r15107, MPFR_RNDN); mpfr_add(r15121, r15119, r15120, MPFR_RNDN); mpfr_sqrt(r15122, r15121, MPFR_RNDN); mpfr_pow(r15123, r15122, r15106, MPFR_RNDN); mpfr_div(r15124, r15118, r15123, MPFR_RNDN); mpfr_div(r15125, r15116, r15124, MPFR_RNDN); ; mpfr_set_si(r15127, mpfr_cmp(r15103, r15126) <= 0, MPFR_RNDN); mpfr_log(r15128, r15122, MPFR_RNDN); mpfr_mul(r15129, r15128, r15113, MPFR_RNDN); mpfr_add(r15130, r15109, r15129, MPFR_RNDN); mpfr_sin(r15131, r15130, MPFR_RNDN); mpfr_mul(r15132, r15108, r15113, MPFR_RNDN); ; ; mpfr_sqr(r15135, r15108, MPFR_RNDN); mpfr_sqr(r15136, r15113, MPFR_RNDN); mpfr_mul(r15137, r15135, r15136, MPFR_RNDN); mpfr_mul(r15138, r15134, r15137, MPFR_RNDN); mpfr_add(r15139, r15133, r15138, MPFR_RNDN); mpfr_add(r15140, r15132, r15139, MPFR_RNDN); mpfr_div(r15141, r15140, r15123, MPFR_RNDN); mpfr_div(r15142, r15131, r15141, MPFR_RNDN); ; mpfr_set_si(r15144, mpfr_cmp(r15103, r15143) <= 0, MPFR_RNDN); mpfr_log(r15145, r15103, MPFR_RNDN); mpfr_mul(r15146, r15113, r15145, MPFR_RNDN); mpfr_mul(r15147, r15108, r15106, MPFR_RNDN); mpfr_add(r15148, r15146, r15147, MPFR_RNDN); mpfr_div(r15149, r15148, r15124, MPFR_RNDN); if (mpfr_get_si(r15144, MPFR_RNDN)) { mpfr_set(r15150, r15125, MPFR_RNDN); } else { mpfr_set(r15150, r15149, MPFR_RNDN); }; if (mpfr_get_si(r15127, MPFR_RNDN)) { mpfr_set(r15151, r15142, MPFR_RNDN); } else { mpfr_set(r15151, r15150, MPFR_RNDN); }; if (mpfr_get_si(r15105, MPFR_RNDN)) { mpfr_set(r15152, r15125, MPFR_RNDN); } else { mpfr_set(r15152, r15151, MPFR_RNDN); }; return mpfr_get_d(r15152, MPFR_RNDN); }