#include #include #include #include #include char *name = "powComplex, real part"; double f_if(float x_re, float x_im, float y_re, float y_im) { float r21248 = x_re; float r21249 = r21248 * r21248; float r21250 = x_im; float r21251 = r21250 * r21250; float r21252 = r21249 + r21251; float r21253 = sqrt(r21252); float r21254 = log(r21253); float r21255 = y_re; float r21256 = r21254 * r21255; float r21257 = atan2(r21250, r21248); float r21258 = y_im; float r21259 = r21257 * r21258; float r21260 = r21256 - r21259; float r21261 = exp(r21260); float r21262 = r21254 * r21258; float r21263 = r21257 * r21255; float r21264 = r21262 + r21263; float r21265 = cos(r21264); float r21266 = r21261 * r21265; return r21266; } double f_id(double x_re, double x_im, double y_re, double y_im) { double r21267 = x_re; double r21268 = r21267 * r21267; double r21269 = x_im; double r21270 = r21269 * r21269; double r21271 = r21268 + r21270; double r21272 = sqrt(r21271); double r21273 = log(r21272); double r21274 = y_re; double r21275 = r21273 * r21274; double r21276 = atan2(r21269, r21267); double r21277 = y_im; double r21278 = r21276 * r21277; double r21279 = r21275 - r21278; double r21280 = exp(r21279); double r21281 = r21273 * r21277; double r21282 = r21276 * r21274; double r21283 = r21281 + r21282; double r21284 = cos(r21283); double r21285 = r21280 * r21284; return r21285; } double f_of(float x_re, float x_im, float y_re, float y_im) { float r21286 = x_im; float r21287 = -6.8592051560094e-310; bool r21288 = r21286 <= r21287; float r21289 = x_re; float r21290 = atan2(r21286, r21289); float r21291 = exp(r21290); float r21292 = y_im; float r21293 = -r21292; float r21294 = pow(r21291, r21293); float r21295 = cbrt(r21294); float r21296 = r21295 * r21295; float r21297 = r21296 * r21295; float r21298 = -r21286; float r21299 = y_re; float r21300 = pow(r21298, r21299); float r21301 = r21297 * r21300; float r21302 = 27600853.888346687; bool r21303 = r21286 <= r21302; float r21304 = r21289 * r21289; float r21305 = r21286 * r21286; float r21306 = r21304 + r21305; float r21307 = sqrt(r21306); float r21308 = log(r21307); float r21309 = r21308 * r21299; float r21310 = r21290 * r21292; float r21311 = r21309 - r21310; float r21312 = exp(r21311); float r21313 = log(r21286); float r21314 = r21313 * r21292; float r21315 = r21290 * r21299; float r21316 = r21314 + r21315; float r21317 = cos(r21316); float r21318 = r21312 * r21317; float r21319 = pow(r21286, r21299); float r21320 = exp(r21292); float r21321 = pow(r21320, r21290); float r21322 = r21319 / r21321; float r21323 = r21303 ? r21318 : r21322; float r21324 = r21288 ? r21301 : r21323; return r21324; } double f_od(double x_re, double x_im, double y_re, double y_im) { double r21325 = x_im; double r21326 = -6.8592051560094e-310; bool r21327 = r21325 <= r21326; double r21328 = x_re; double r21329 = atan2(r21325, r21328); double r21330 = exp(r21329); double r21331 = y_im; double r21332 = -r21331; double r21333 = pow(r21330, r21332); double r21334 = cbrt(r21333); double r21335 = r21334 * r21334; double r21336 = r21335 * r21334; double r21337 = -r21325; double r21338 = y_re; double r21339 = pow(r21337, r21338); double r21340 = r21336 * r21339; double r21341 = 27600853.888346687; bool r21342 = r21325 <= r21341; double r21343 = r21328 * r21328; double r21344 = r21325 * r21325; double r21345 = r21343 + r21344; double r21346 = sqrt(r21345); double r21347 = log(r21346); double r21348 = r21347 * r21338; double r21349 = r21329 * r21331; double r21350 = r21348 - r21349; double r21351 = exp(r21350); double r21352 = log(r21325); double r21353 = r21352 * r21331; double r21354 = r21329 * r21338; double r21355 = r21353 + r21354; double r21356 = cos(r21355); double r21357 = r21351 * r21356; double r21358 = pow(r21325, r21338); double r21359 = exp(r21331); double r21360 = pow(r21359, r21329); double r21361 = r21358 / r21360; double r21362 = r21342 ? r21357 : r21361; double r21363 = r21327 ? r21340 : r21362; return r21363; } 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 r21364, r21365, r21366, r21367, r21368, r21369, r21370, r21371, r21372, r21373, r21374, r21375, r21376, r21377, r21378, r21379, r21380, r21381, r21382; void setup_mpfr_f_im() { mpfr_set_default_prec(1360); mpfr_init(r21364); mpfr_init(r21365); mpfr_init(r21366); mpfr_init(r21367); mpfr_init(r21368); mpfr_init(r21369); mpfr_init(r21370); mpfr_init(r21371); mpfr_init(r21372); mpfr_init(r21373); mpfr_init(r21374); mpfr_init(r21375); mpfr_init(r21376); mpfr_init(r21377); mpfr_init(r21378); mpfr_init(r21379); mpfr_init(r21380); mpfr_init(r21381); mpfr_init(r21382); } double f_im(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r21364, x_re, MPFR_RNDN); mpfr_mul(r21365, r21364, r21364, MPFR_RNDN); mpfr_set_d(r21366, x_im, MPFR_RNDN); mpfr_mul(r21367, r21366, r21366, MPFR_RNDN); mpfr_add(r21368, r21365, r21367, MPFR_RNDN); mpfr_sqrt(r21369, r21368, MPFR_RNDN); mpfr_log(r21370, r21369, MPFR_RNDN); mpfr_set_d(r21371, y_re, MPFR_RNDN); mpfr_mul(r21372, r21370, r21371, MPFR_RNDN); mpfr_atan2(r21373, r21366, r21364, MPFR_RNDN); mpfr_set_d(r21374, y_im, MPFR_RNDN); mpfr_mul(r21375, r21373, r21374, MPFR_RNDN); mpfr_sub(r21376, r21372, r21375, MPFR_RNDN); mpfr_exp(r21377, r21376, MPFR_RNDN); mpfr_mul(r21378, r21370, r21374, MPFR_RNDN); mpfr_mul(r21379, r21373, r21371, MPFR_RNDN); mpfr_add(r21380, r21378, r21379, MPFR_RNDN); mpfr_cos(r21381, r21380, MPFR_RNDN); mpfr_mul(r21382, r21377, r21381, MPFR_RNDN); return mpfr_get_d(r21382, MPFR_RNDN); } static mpfr_t r21383, r21384, r21385, r21386, r21387, r21388, r21389, r21390, r21391, r21392, r21393, r21394, r21395, r21396, r21397, r21398, r21399, r21400, r21401, r21402, r21403, r21404, r21405, r21406, r21407, r21408, r21409, r21410, r21411, r21412, r21413, r21414, r21415, r21416, r21417, r21418, r21419, r21420, r21421; void setup_mpfr_f_fm() { mpfr_set_default_prec(1360); mpfr_init(r21383); mpfr_init_set_str(r21384, "-6.8592051560094e-310", 10, MPFR_RNDN); mpfr_init(r21385); mpfr_init(r21386); mpfr_init(r21387); mpfr_init(r21388); mpfr_init(r21389); mpfr_init(r21390); mpfr_init(r21391); mpfr_init(r21392); mpfr_init(r21393); mpfr_init(r21394); mpfr_init(r21395); mpfr_init(r21396); mpfr_init(r21397); mpfr_init(r21398); mpfr_init_set_str(r21399, "27600853.888346687", 10, MPFR_RNDN); mpfr_init(r21400); mpfr_init(r21401); mpfr_init(r21402); mpfr_init(r21403); mpfr_init(r21404); mpfr_init(r21405); mpfr_init(r21406); mpfr_init(r21407); mpfr_init(r21408); mpfr_init(r21409); mpfr_init(r21410); mpfr_init(r21411); mpfr_init(r21412); mpfr_init(r21413); mpfr_init(r21414); mpfr_init(r21415); mpfr_init(r21416); mpfr_init(r21417); mpfr_init(r21418); mpfr_init(r21419); mpfr_init(r21420); mpfr_init(r21421); } double f_fm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r21383, x_im, MPFR_RNDN); ; mpfr_set_si(r21385, mpfr_cmp(r21383, r21384) <= 0, MPFR_RNDN); mpfr_set_d(r21386, x_re, MPFR_RNDN); mpfr_atan2(r21387, r21383, r21386, MPFR_RNDN); mpfr_exp(r21388, r21387, MPFR_RNDN); mpfr_set_d(r21389, y_im, MPFR_RNDN); mpfr_neg(r21390, r21389, MPFR_RNDN); mpfr_pow(r21391, r21388, r21390, MPFR_RNDN); mpfr_cbrt(r21392, r21391, MPFR_RNDN); mpfr_mul(r21393, r21392, r21392, MPFR_RNDN); mpfr_mul(r21394, r21393, r21392, MPFR_RNDN); mpfr_neg(r21395, r21383, MPFR_RNDN); mpfr_set_d(r21396, y_re, MPFR_RNDN); mpfr_pow(r21397, r21395, r21396, MPFR_RNDN); mpfr_mul(r21398, r21394, r21397, MPFR_RNDN); ; mpfr_set_si(r21400, mpfr_cmp(r21383, r21399) <= 0, MPFR_RNDN); mpfr_mul(r21401, r21386, r21386, MPFR_RNDN); mpfr_mul(r21402, r21383, r21383, MPFR_RNDN); mpfr_add(r21403, r21401, r21402, MPFR_RNDN); mpfr_sqrt(r21404, r21403, MPFR_RNDN); mpfr_log(r21405, r21404, MPFR_RNDN); mpfr_mul(r21406, r21405, r21396, MPFR_RNDN); mpfr_mul(r21407, r21387, r21389, MPFR_RNDN); mpfr_sub(r21408, r21406, r21407, MPFR_RNDN); mpfr_exp(r21409, r21408, MPFR_RNDN); mpfr_log(r21410, r21383, MPFR_RNDN); mpfr_mul(r21411, r21410, r21389, MPFR_RNDN); mpfr_mul(r21412, r21387, r21396, MPFR_RNDN); mpfr_add(r21413, r21411, r21412, MPFR_RNDN); mpfr_cos(r21414, r21413, MPFR_RNDN); mpfr_mul(r21415, r21409, r21414, MPFR_RNDN); mpfr_pow(r21416, r21383, r21396, MPFR_RNDN); mpfr_exp(r21417, r21389, MPFR_RNDN); mpfr_pow(r21418, r21417, r21387, MPFR_RNDN); mpfr_div(r21419, r21416, r21418, MPFR_RNDN); if (mpfr_get_si(r21400, MPFR_RNDN)) { mpfr_set(r21420, r21415, MPFR_RNDN); } else { mpfr_set(r21420, r21419, MPFR_RNDN); }; if (mpfr_get_si(r21385, MPFR_RNDN)) { mpfr_set(r21421, r21398, MPFR_RNDN); } else { mpfr_set(r21421, r21420, MPFR_RNDN); }; return mpfr_get_d(r21421, MPFR_RNDN); } static mpfr_t r21422, r21423, r21424, r21425, r21426, r21427, r21428, r21429, r21430, r21431, r21432, r21433, r21434, r21435, r21436, r21437, r21438, r21439, r21440, r21441, r21442, r21443, r21444, r21445, r21446, r21447, r21448, r21449, r21450, r21451, r21452, r21453, r21454, r21455, r21456, r21457, r21458, r21459, r21460; void setup_mpfr_f_dm() { mpfr_set_default_prec(1360); mpfr_init(r21422); mpfr_init_set_str(r21423, "-6.8592051560094e-310", 10, MPFR_RNDN); mpfr_init(r21424); mpfr_init(r21425); mpfr_init(r21426); mpfr_init(r21427); mpfr_init(r21428); mpfr_init(r21429); mpfr_init(r21430); mpfr_init(r21431); mpfr_init(r21432); mpfr_init(r21433); mpfr_init(r21434); mpfr_init(r21435); mpfr_init(r21436); mpfr_init(r21437); mpfr_init_set_str(r21438, "27600853.888346687", 10, MPFR_RNDN); mpfr_init(r21439); mpfr_init(r21440); mpfr_init(r21441); mpfr_init(r21442); mpfr_init(r21443); mpfr_init(r21444); mpfr_init(r21445); mpfr_init(r21446); mpfr_init(r21447); mpfr_init(r21448); mpfr_init(r21449); mpfr_init(r21450); mpfr_init(r21451); mpfr_init(r21452); mpfr_init(r21453); mpfr_init(r21454); mpfr_init(r21455); mpfr_init(r21456); mpfr_init(r21457); mpfr_init(r21458); mpfr_init(r21459); mpfr_init(r21460); } double f_dm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r21422, x_im, MPFR_RNDN); ; mpfr_set_si(r21424, mpfr_cmp(r21422, r21423) <= 0, MPFR_RNDN); mpfr_set_d(r21425, x_re, MPFR_RNDN); mpfr_atan2(r21426, r21422, r21425, MPFR_RNDN); mpfr_exp(r21427, r21426, MPFR_RNDN); mpfr_set_d(r21428, y_im, MPFR_RNDN); mpfr_neg(r21429, r21428, MPFR_RNDN); mpfr_pow(r21430, r21427, r21429, MPFR_RNDN); mpfr_cbrt(r21431, r21430, MPFR_RNDN); mpfr_mul(r21432, r21431, r21431, MPFR_RNDN); mpfr_mul(r21433, r21432, r21431, MPFR_RNDN); mpfr_neg(r21434, r21422, MPFR_RNDN); mpfr_set_d(r21435, y_re, MPFR_RNDN); mpfr_pow(r21436, r21434, r21435, MPFR_RNDN); mpfr_mul(r21437, r21433, r21436, MPFR_RNDN); ; mpfr_set_si(r21439, mpfr_cmp(r21422, r21438) <= 0, MPFR_RNDN); mpfr_mul(r21440, r21425, r21425, MPFR_RNDN); mpfr_mul(r21441, r21422, r21422, MPFR_RNDN); mpfr_add(r21442, r21440, r21441, MPFR_RNDN); mpfr_sqrt(r21443, r21442, MPFR_RNDN); mpfr_log(r21444, r21443, MPFR_RNDN); mpfr_mul(r21445, r21444, r21435, MPFR_RNDN); mpfr_mul(r21446, r21426, r21428, MPFR_RNDN); mpfr_sub(r21447, r21445, r21446, MPFR_RNDN); mpfr_exp(r21448, r21447, MPFR_RNDN); mpfr_log(r21449, r21422, MPFR_RNDN); mpfr_mul(r21450, r21449, r21428, MPFR_RNDN); mpfr_mul(r21451, r21426, r21435, MPFR_RNDN); mpfr_add(r21452, r21450, r21451, MPFR_RNDN); mpfr_cos(r21453, r21452, MPFR_RNDN); mpfr_mul(r21454, r21448, r21453, MPFR_RNDN); mpfr_pow(r21455, r21422, r21435, MPFR_RNDN); mpfr_exp(r21456, r21428, MPFR_RNDN); mpfr_pow(r21457, r21456, r21426, MPFR_RNDN); mpfr_div(r21458, r21455, r21457, MPFR_RNDN); if (mpfr_get_si(r21439, MPFR_RNDN)) { mpfr_set(r21459, r21454, MPFR_RNDN); } else { mpfr_set(r21459, r21458, MPFR_RNDN); }; if (mpfr_get_si(r21424, MPFR_RNDN)) { mpfr_set(r21460, r21437, MPFR_RNDN); } else { mpfr_set(r21460, r21459, MPFR_RNDN); }; return mpfr_get_d(r21460, MPFR_RNDN); }