#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 r20496 = x_re; float r20497 = r20496 * r20496; float r20498 = x_im; float r20499 = r20498 * r20498; float r20500 = r20497 + r20499; float r20501 = sqrt(r20500); float r20502 = log(r20501); float r20503 = y_re; float r20504 = r20502 * r20503; float r20505 = atan2(r20498, r20496); float r20506 = y_im; float r20507 = r20505 * r20506; float r20508 = r20504 - r20507; float r20509 = exp(r20508); float r20510 = r20502 * r20506; float r20511 = r20505 * r20503; float r20512 = r20510 + r20511; float r20513 = cos(r20512); float r20514 = r20509 * r20513; return r20514; } double f_id(double x_re, double x_im, double y_re, double y_im) { double r20515 = x_re; double r20516 = r20515 * r20515; double r20517 = x_im; double r20518 = r20517 * r20517; double r20519 = r20516 + r20518; double r20520 = sqrt(r20519); double r20521 = log(r20520); double r20522 = y_re; double r20523 = r20521 * r20522; double r20524 = atan2(r20517, r20515); double r20525 = y_im; double r20526 = r20524 * r20525; double r20527 = r20523 - r20526; double r20528 = exp(r20527); double r20529 = r20521 * r20525; double r20530 = r20524 * r20522; double r20531 = r20529 + r20530; double r20532 = cos(r20531); double r20533 = r20528 * r20532; return r20533; } double f_of(float x_re, float x_im, float y_re, float y_im) { float r20534 = x_im; float r20535 = -1.5983183330782787e-64; bool r20536 = r20534 <= r20535; float r20537 = -r20534; float r20538 = y_re; float r20539 = pow(r20537, r20538); float r20540 = y_im; float r20541 = exp(r20540); float r20542 = x_re; float r20543 = atan2(r20534, r20542); float r20544 = pow(r20541, r20543); float r20545 = r20539 / r20544; float r20546 = -3.4566471790657564e-283; bool r20547 = r20534 <= r20546; float r20548 = r20534 * r20534; float r20549 = r20542 * r20542; float r20550 = r20548 + r20549; float r20551 = sqrt(r20550); float r20552 = log(r20551); float r20553 = r20552 * r20538; float r20554 = r20540 * r20543; float r20555 = r20553 - r20554; float r20556 = exp(r20555); float r20557 = -8.60765907993334e-310; bool r20558 = r20534 <= r20557; float r20559 = log(r20534); float r20560 = r20559 * r20538; float r20561 = r20560 - r20554; float r20562 = exp(r20561); float r20563 = r20558 ? r20545 : r20562; float r20564 = r20547 ? r20556 : r20563; float r20565 = r20536 ? r20545 : r20564; return r20565; } double f_od(double x_re, double x_im, double y_re, double y_im) { double r20566 = x_im; double r20567 = -1.5983183330782787e-64; bool r20568 = r20566 <= r20567; double r20569 = -r20566; double r20570 = y_re; double r20571 = pow(r20569, r20570); double r20572 = y_im; double r20573 = exp(r20572); double r20574 = x_re; double r20575 = atan2(r20566, r20574); double r20576 = pow(r20573, r20575); double r20577 = r20571 / r20576; double r20578 = -3.4566471790657564e-283; bool r20579 = r20566 <= r20578; double r20580 = r20566 * r20566; double r20581 = r20574 * r20574; double r20582 = r20580 + r20581; double r20583 = sqrt(r20582); double r20584 = log(r20583); double r20585 = r20584 * r20570; double r20586 = r20572 * r20575; double r20587 = r20585 - r20586; double r20588 = exp(r20587); double r20589 = -8.60765907993334e-310; bool r20590 = r20566 <= r20589; double r20591 = log(r20566); double r20592 = r20591 * r20570; double r20593 = r20592 - r20586; double r20594 = exp(r20593); double r20595 = r20590 ? r20577 : r20594; double r20596 = r20579 ? r20588 : r20595; double r20597 = r20568 ? r20577 : r20596; return r20597; } 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 r20598, r20599, r20600, r20601, r20602, r20603, r20604, r20605, r20606, r20607, r20608, r20609, r20610, r20611, r20612, r20613, r20614, r20615, r20616; void setup_mpfr_f_im() { mpfr_set_default_prec(1424); mpfr_init(r20598); mpfr_init(r20599); mpfr_init(r20600); mpfr_init(r20601); mpfr_init(r20602); mpfr_init(r20603); mpfr_init(r20604); mpfr_init(r20605); mpfr_init(r20606); mpfr_init(r20607); mpfr_init(r20608); mpfr_init(r20609); mpfr_init(r20610); mpfr_init(r20611); mpfr_init(r20612); mpfr_init(r20613); mpfr_init(r20614); mpfr_init(r20615); mpfr_init(r20616); } double f_im(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r20598, x_re, MPFR_RNDN); mpfr_mul(r20599, r20598, r20598, MPFR_RNDN); mpfr_set_d(r20600, x_im, MPFR_RNDN); mpfr_mul(r20601, r20600, r20600, MPFR_RNDN); mpfr_add(r20602, r20599, r20601, MPFR_RNDN); mpfr_sqrt(r20603, r20602, MPFR_RNDN); mpfr_log(r20604, r20603, MPFR_RNDN); mpfr_set_d(r20605, y_re, MPFR_RNDN); mpfr_mul(r20606, r20604, r20605, MPFR_RNDN); mpfr_atan2(r20607, r20600, r20598, MPFR_RNDN); mpfr_set_d(r20608, y_im, MPFR_RNDN); mpfr_mul(r20609, r20607, r20608, MPFR_RNDN); mpfr_sub(r20610, r20606, r20609, MPFR_RNDN); mpfr_exp(r20611, r20610, MPFR_RNDN); mpfr_mul(r20612, r20604, r20608, MPFR_RNDN); mpfr_mul(r20613, r20607, r20605, MPFR_RNDN); mpfr_add(r20614, r20612, r20613, MPFR_RNDN); mpfr_cos(r20615, r20614, MPFR_RNDN); mpfr_mul(r20616, r20611, r20615, MPFR_RNDN); return mpfr_get_d(r20616, MPFR_RNDN); } static mpfr_t r20617, r20618, r20619, r20620, r20621, r20622, r20623, r20624, r20625, r20626, r20627, r20628, r20629, r20630, r20631, r20632, r20633, r20634, r20635, r20636, r20637, r20638, r20639, r20640, r20641, r20642, r20643, r20644, r20645, r20646, r20647, r20648; void setup_mpfr_f_fm() { mpfr_set_default_prec(1424); mpfr_init(r20617); mpfr_init_set_str(r20618, "-1.5983183330782787e-64", 10, MPFR_RNDN); mpfr_init(r20619); mpfr_init(r20620); mpfr_init(r20621); mpfr_init(r20622); mpfr_init(r20623); mpfr_init(r20624); mpfr_init(r20625); mpfr_init(r20626); mpfr_init(r20627); mpfr_init(r20628); mpfr_init_set_str(r20629, "-3.4566471790657564e-283", 10, MPFR_RNDN); mpfr_init(r20630); mpfr_init(r20631); mpfr_init(r20632); mpfr_init(r20633); mpfr_init(r20634); mpfr_init(r20635); mpfr_init(r20636); mpfr_init(r20637); mpfr_init(r20638); mpfr_init(r20639); mpfr_init_set_str(r20640, "-8.60765907993334e-310", 10, MPFR_RNDN); mpfr_init(r20641); mpfr_init(r20642); mpfr_init(r20643); mpfr_init(r20644); mpfr_init(r20645); mpfr_init(r20646); mpfr_init(r20647); mpfr_init(r20648); } double f_fm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r20617, x_im, MPFR_RNDN); ; mpfr_set_si(r20619, mpfr_cmp(r20617, r20618) <= 0, MPFR_RNDN); mpfr_neg(r20620, r20617, MPFR_RNDN); mpfr_set_d(r20621, y_re, MPFR_RNDN); mpfr_pow(r20622, r20620, r20621, MPFR_RNDN); mpfr_set_d(r20623, y_im, MPFR_RNDN); mpfr_exp(r20624, r20623, MPFR_RNDN); mpfr_set_d(r20625, x_re, MPFR_RNDN); mpfr_atan2(r20626, r20617, r20625, MPFR_RNDN); mpfr_pow(r20627, r20624, r20626, MPFR_RNDN); mpfr_div(r20628, r20622, r20627, MPFR_RNDN); ; mpfr_set_si(r20630, mpfr_cmp(r20617, r20629) <= 0, MPFR_RNDN); mpfr_mul(r20631, r20617, r20617, MPFR_RNDN); mpfr_mul(r20632, r20625, r20625, MPFR_RNDN); mpfr_add(r20633, r20631, r20632, MPFR_RNDN); mpfr_sqrt(r20634, r20633, MPFR_RNDN); mpfr_log(r20635, r20634, MPFR_RNDN); mpfr_mul(r20636, r20635, r20621, MPFR_RNDN); mpfr_mul(r20637, r20623, r20626, MPFR_RNDN); mpfr_sub(r20638, r20636, r20637, MPFR_RNDN); mpfr_exp(r20639, r20638, MPFR_RNDN); ; mpfr_set_si(r20641, mpfr_cmp(r20617, r20640) <= 0, MPFR_RNDN); mpfr_log(r20642, r20617, MPFR_RNDN); mpfr_mul(r20643, r20642, r20621, MPFR_RNDN); mpfr_sub(r20644, r20643, r20637, MPFR_RNDN); mpfr_exp(r20645, r20644, MPFR_RNDN); if (mpfr_get_si(r20641, MPFR_RNDN)) { mpfr_set(r20646, r20628, MPFR_RNDN); } else { mpfr_set(r20646, r20645, MPFR_RNDN); }; if (mpfr_get_si(r20630, MPFR_RNDN)) { mpfr_set(r20647, r20639, MPFR_RNDN); } else { mpfr_set(r20647, r20646, MPFR_RNDN); }; if (mpfr_get_si(r20619, MPFR_RNDN)) { mpfr_set(r20648, r20628, MPFR_RNDN); } else { mpfr_set(r20648, r20647, MPFR_RNDN); }; return mpfr_get_d(r20648, MPFR_RNDN); } static mpfr_t r20649, r20650, r20651, r20652, r20653, r20654, r20655, r20656, r20657, r20658, r20659, r20660, r20661, r20662, r20663, r20664, r20665, r20666, r20667, r20668, r20669, r20670, r20671, r20672, r20673, r20674, r20675, r20676, r20677, r20678, r20679, r20680; void setup_mpfr_f_dm() { mpfr_set_default_prec(1424); mpfr_init(r20649); mpfr_init_set_str(r20650, "-1.5983183330782787e-64", 10, MPFR_RNDN); mpfr_init(r20651); mpfr_init(r20652); mpfr_init(r20653); mpfr_init(r20654); mpfr_init(r20655); mpfr_init(r20656); mpfr_init(r20657); mpfr_init(r20658); mpfr_init(r20659); mpfr_init(r20660); mpfr_init_set_str(r20661, "-3.4566471790657564e-283", 10, MPFR_RNDN); mpfr_init(r20662); mpfr_init(r20663); mpfr_init(r20664); mpfr_init(r20665); mpfr_init(r20666); mpfr_init(r20667); mpfr_init(r20668); mpfr_init(r20669); mpfr_init(r20670); mpfr_init(r20671); mpfr_init_set_str(r20672, "-8.60765907993334e-310", 10, MPFR_RNDN); mpfr_init(r20673); mpfr_init(r20674); mpfr_init(r20675); mpfr_init(r20676); mpfr_init(r20677); mpfr_init(r20678); mpfr_init(r20679); mpfr_init(r20680); } double f_dm(double x_re, double x_im, double y_re, double y_im) { mpfr_set_d(r20649, x_im, MPFR_RNDN); ; mpfr_set_si(r20651, mpfr_cmp(r20649, r20650) <= 0, MPFR_RNDN); mpfr_neg(r20652, r20649, MPFR_RNDN); mpfr_set_d(r20653, y_re, MPFR_RNDN); mpfr_pow(r20654, r20652, r20653, MPFR_RNDN); mpfr_set_d(r20655, y_im, MPFR_RNDN); mpfr_exp(r20656, r20655, MPFR_RNDN); mpfr_set_d(r20657, x_re, MPFR_RNDN); mpfr_atan2(r20658, r20649, r20657, MPFR_RNDN); mpfr_pow(r20659, r20656, r20658, MPFR_RNDN); mpfr_div(r20660, r20654, r20659, MPFR_RNDN); ; mpfr_set_si(r20662, mpfr_cmp(r20649, r20661) <= 0, MPFR_RNDN); mpfr_mul(r20663, r20649, r20649, MPFR_RNDN); mpfr_mul(r20664, r20657, r20657, MPFR_RNDN); mpfr_add(r20665, r20663, r20664, MPFR_RNDN); mpfr_sqrt(r20666, r20665, MPFR_RNDN); mpfr_log(r20667, r20666, MPFR_RNDN); mpfr_mul(r20668, r20667, r20653, MPFR_RNDN); mpfr_mul(r20669, r20655, r20658, MPFR_RNDN); mpfr_sub(r20670, r20668, r20669, MPFR_RNDN); mpfr_exp(r20671, r20670, MPFR_RNDN); ; mpfr_set_si(r20673, mpfr_cmp(r20649, r20672) <= 0, MPFR_RNDN); mpfr_log(r20674, r20649, MPFR_RNDN); mpfr_mul(r20675, r20674, r20653, MPFR_RNDN); mpfr_sub(r20676, r20675, r20669, MPFR_RNDN); mpfr_exp(r20677, r20676, MPFR_RNDN); if (mpfr_get_si(r20673, MPFR_RNDN)) { mpfr_set(r20678, r20660, MPFR_RNDN); } else { mpfr_set(r20678, r20677, MPFR_RNDN); }; if (mpfr_get_si(r20662, MPFR_RNDN)) { mpfr_set(r20679, r20671, MPFR_RNDN); } else { mpfr_set(r20679, r20678, MPFR_RNDN); }; if (mpfr_get_si(r20651, MPFR_RNDN)) { mpfr_set(r20680, r20660, MPFR_RNDN); } else { mpfr_set(r20680, r20679, MPFR_RNDN); }; return mpfr_get_d(r20680, MPFR_RNDN); }