#include #include #include #include #include char *name = "math.log/2 on complex, real part"; double f_if(float re, float im, float base) { float r20494 = re; float r20495 = r20494 * r20494; float r20496 = im; float r20497 = r20496 * r20496; float r20498 = r20495 + r20497; float r20499 = sqrt(r20498); float r20500 = log(r20499); float r20501 = base; float r20502 = log(r20501); float r20503 = r20500 * r20502; float r20504 = atan2(r20496, r20494); float r20505 = 0; float r20506 = r20504 * r20505; float r20507 = r20503 + r20506; float r20508 = r20502 * r20502; float r20509 = r20505 * r20505; float r20510 = r20508 + r20509; float r20511 = r20507 / r20510; return r20511; } double f_id(double re, double im, double base) { double r20512 = re; double r20513 = r20512 * r20512; double r20514 = im; double r20515 = r20514 * r20514; double r20516 = r20513 + r20515; double r20517 = sqrt(r20516); double r20518 = log(r20517); double r20519 = base; double r20520 = log(r20519); double r20521 = r20518 * r20520; double r20522 = atan2(r20514, r20512); double r20523 = 0; double r20524 = r20522 * r20523; double r20525 = r20521 + r20524; double r20526 = r20520 * r20520; double r20527 = r20523 * r20523; double r20528 = r20526 + r20527; double r20529 = r20525 / r20528; return r20529; } double f_of(float re, float im, float base) { float r20530 = im; float r20531 = -6.68455870406922e+56; bool r20532 = r20530 <= r20531; float r20533 = -r20530; float r20534 = log(r20533); float r20535 = base; float r20536 = log(r20535); float r20537 = r20534 / r20536; float r20538 = -1.188949205511025e-227; bool r20539 = r20530 <= r20538; float r20540 = re; float r20541 = r20540 * r20540; float r20542 = r20530 * r20530; float r20543 = r20541 + r20542; float r20544 = cbrt(r20543); float r20545 = fabs(r20544); float r20546 = r20542 + r20541; float r20547 = cbrt(r20546); float r20548 = sqrt(r20547); float r20549 = r20545 * r20548; float r20550 = log(r20549); float r20551 = r20536 * r20550; float r20552 = r20536 * r20536; float r20553 = r20551 / r20552; float r20554 = 2.1249144790116034e-159; bool r20555 = r20530 <= r20554; float r20556 = -r20540; float r20557 = log(r20556); float r20558 = r20557 / r20536; float r20559 = 6.9968609624071e+119; bool r20560 = r20530 <= r20559; float r20561 = log(r20530); float r20562 = r20561 / r20536; float r20563 = r20560 ? r20553 : r20562; float r20564 = r20555 ? r20558 : r20563; float r20565 = r20539 ? r20553 : r20564; float r20566 = r20532 ? r20537 : r20565; return r20566; } double f_od(double re, double im, double base) { double r20567 = im; double r20568 = -6.68455870406922e+56; bool r20569 = r20567 <= r20568; double r20570 = -r20567; double r20571 = log(r20570); double r20572 = base; double r20573 = log(r20572); double r20574 = r20571 / r20573; double r20575 = -1.188949205511025e-227; bool r20576 = r20567 <= r20575; double r20577 = re; double r20578 = r20577 * r20577; double r20579 = r20567 * r20567; double r20580 = r20578 + r20579; double r20581 = cbrt(r20580); double r20582 = fabs(r20581); double r20583 = r20579 + r20578; double r20584 = cbrt(r20583); double r20585 = sqrt(r20584); double r20586 = r20582 * r20585; double r20587 = log(r20586); double r20588 = r20573 * r20587; double r20589 = r20573 * r20573; double r20590 = r20588 / r20589; double r20591 = 2.1249144790116034e-159; bool r20592 = r20567 <= r20591; double r20593 = -r20577; double r20594 = log(r20593); double r20595 = r20594 / r20573; double r20596 = 6.9968609624071e+119; bool r20597 = r20567 <= r20596; double r20598 = log(r20567); double r20599 = r20598 / r20573; double r20600 = r20597 ? r20590 : r20599; double r20601 = r20592 ? r20595 : r20600; double r20602 = r20576 ? r20590 : r20601; double r20603 = r20569 ? r20574 : r20602; return r20603; } 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 r20604, r20605, r20606, r20607, r20608, r20609, r20610, r20611, r20612, r20613, r20614, r20615, r20616, r20617, r20618, r20619, r20620, r20621; void setup_mpfr_f_im() { mpfr_set_default_prec(400); 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_set_str(r20615, "0", 10, MPFR_RNDN); mpfr_init(r20616); mpfr_init(r20617); mpfr_init(r20618); mpfr_init(r20619); mpfr_init(r20620); mpfr_init(r20621); } double f_im(double re, double im, double base) { mpfr_set_d(r20604, re, MPFR_RNDN); mpfr_mul(r20605, r20604, r20604, MPFR_RNDN); mpfr_set_d(r20606, im, MPFR_RNDN); mpfr_mul(r20607, r20606, r20606, MPFR_RNDN); mpfr_add(r20608, r20605, r20607, MPFR_RNDN); mpfr_sqrt(r20609, r20608, MPFR_RNDN); mpfr_log(r20610, r20609, MPFR_RNDN); mpfr_set_d(r20611, base, MPFR_RNDN); mpfr_log(r20612, r20611, MPFR_RNDN); mpfr_mul(r20613, r20610, r20612, MPFR_RNDN); mpfr_atan2(r20614, r20606, r20604, MPFR_RNDN); ; mpfr_mul(r20616, r20614, r20615, MPFR_RNDN); mpfr_add(r20617, r20613, r20616, MPFR_RNDN); mpfr_mul(r20618, r20612, r20612, MPFR_RNDN); mpfr_mul(r20619, r20615, r20615, MPFR_RNDN); mpfr_add(r20620, r20618, r20619, MPFR_RNDN); mpfr_div(r20621, r20617, r20620, MPFR_RNDN); return mpfr_get_d(r20621, MPFR_RNDN); } static mpfr_t 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, r20649, r20650, r20651, r20652, r20653, r20654, r20655, r20656, r20657, r20658; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r20622); mpfr_init_set_str(r20623, "-6.68455870406922e+56", 10, MPFR_RNDN); mpfr_init(r20624); mpfr_init(r20625); mpfr_init(r20626); mpfr_init(r20627); mpfr_init(r20628); mpfr_init(r20629); mpfr_init_set_str(r20630, "-1.188949205511025e-227", 10, MPFR_RNDN); 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(r20640); mpfr_init(r20641); mpfr_init(r20642); mpfr_init(r20643); mpfr_init(r20644); mpfr_init(r20645); mpfr_init_set_str(r20646, "2.1249144790116034e-159", 10, MPFR_RNDN); mpfr_init(r20647); mpfr_init(r20648); mpfr_init(r20649); mpfr_init(r20650); mpfr_init_set_str(r20651, "6.9968609624071e+119", 10, MPFR_RNDN); mpfr_init(r20652); mpfr_init(r20653); mpfr_init(r20654); mpfr_init(r20655); mpfr_init(r20656); mpfr_init(r20657); mpfr_init(r20658); } double f_fm(double re, double im, double base) { mpfr_set_d(r20622, im, MPFR_RNDN); ; mpfr_set_si(r20624, mpfr_cmp(r20622, r20623) <= 0, MPFR_RNDN); mpfr_neg(r20625, r20622, MPFR_RNDN); mpfr_log(r20626, r20625, MPFR_RNDN); mpfr_set_d(r20627, base, MPFR_RNDN); mpfr_log(r20628, r20627, MPFR_RNDN); mpfr_div(r20629, r20626, r20628, MPFR_RNDN); ; mpfr_set_si(r20631, mpfr_cmp(r20622, r20630) <= 0, MPFR_RNDN); mpfr_set_d(r20632, re, MPFR_RNDN); mpfr_mul(r20633, r20632, r20632, MPFR_RNDN); mpfr_mul(r20634, r20622, r20622, MPFR_RNDN); mpfr_add(r20635, r20633, r20634, MPFR_RNDN); mpfr_cbrt(r20636, r20635, MPFR_RNDN); mpfr_abs(r20637, r20636, MPFR_RNDN); mpfr_add(r20638, r20634, r20633, MPFR_RNDN); mpfr_cbrt(r20639, r20638, MPFR_RNDN); mpfr_sqrt(r20640, r20639, MPFR_RNDN); mpfr_mul(r20641, r20637, r20640, MPFR_RNDN); mpfr_log(r20642, r20641, MPFR_RNDN); mpfr_mul(r20643, r20628, r20642, MPFR_RNDN); mpfr_mul(r20644, r20628, r20628, MPFR_RNDN); mpfr_div(r20645, r20643, r20644, MPFR_RNDN); ; mpfr_set_si(r20647, mpfr_cmp(r20622, r20646) <= 0, MPFR_RNDN); mpfr_neg(r20648, r20632, MPFR_RNDN); mpfr_log(r20649, r20648, MPFR_RNDN); mpfr_div(r20650, r20649, r20628, MPFR_RNDN); ; mpfr_set_si(r20652, mpfr_cmp(r20622, r20651) <= 0, MPFR_RNDN); mpfr_log(r20653, r20622, MPFR_RNDN); mpfr_div(r20654, r20653, r20628, MPFR_RNDN); if (mpfr_get_si(r20652, MPFR_RNDN)) { mpfr_set(r20655, r20645, MPFR_RNDN); } else { mpfr_set(r20655, r20654, MPFR_RNDN); }; if (mpfr_get_si(r20647, MPFR_RNDN)) { mpfr_set(r20656, r20650, MPFR_RNDN); } else { mpfr_set(r20656, r20655, MPFR_RNDN); }; if (mpfr_get_si(r20631, MPFR_RNDN)) { mpfr_set(r20657, r20645, MPFR_RNDN); } else { mpfr_set(r20657, r20656, MPFR_RNDN); }; if (mpfr_get_si(r20624, MPFR_RNDN)) { mpfr_set(r20658, r20629, MPFR_RNDN); } else { mpfr_set(r20658, r20657, MPFR_RNDN); }; return mpfr_get_d(r20658, MPFR_RNDN); } static mpfr_t r20659, r20660, r20661, r20662, r20663, r20664, r20665, r20666, r20667, r20668, r20669, r20670, r20671, r20672, r20673, r20674, r20675, r20676, r20677, r20678, r20679, r20680, r20681, r20682, r20683, r20684, r20685, r20686, r20687, r20688, r20689, r20690, r20691, r20692, r20693, r20694, r20695; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r20659); mpfr_init_set_str(r20660, "-6.68455870406922e+56", 10, MPFR_RNDN); mpfr_init(r20661); mpfr_init(r20662); mpfr_init(r20663); mpfr_init(r20664); mpfr_init(r20665); mpfr_init(r20666); mpfr_init_set_str(r20667, "-1.188949205511025e-227", 10, MPFR_RNDN); mpfr_init(r20668); mpfr_init(r20669); mpfr_init(r20670); mpfr_init(r20671); mpfr_init(r20672); mpfr_init(r20673); mpfr_init(r20674); mpfr_init(r20675); mpfr_init(r20676); mpfr_init(r20677); mpfr_init(r20678); mpfr_init(r20679); mpfr_init(r20680); mpfr_init(r20681); mpfr_init(r20682); mpfr_init_set_str(r20683, "2.1249144790116034e-159", 10, MPFR_RNDN); mpfr_init(r20684); mpfr_init(r20685); mpfr_init(r20686); mpfr_init(r20687); mpfr_init_set_str(r20688, "6.9968609624071e+119", 10, MPFR_RNDN); mpfr_init(r20689); mpfr_init(r20690); mpfr_init(r20691); mpfr_init(r20692); mpfr_init(r20693); mpfr_init(r20694); mpfr_init(r20695); } double f_dm(double re, double im, double base) { mpfr_set_d(r20659, im, MPFR_RNDN); ; mpfr_set_si(r20661, mpfr_cmp(r20659, r20660) <= 0, MPFR_RNDN); mpfr_neg(r20662, r20659, MPFR_RNDN); mpfr_log(r20663, r20662, MPFR_RNDN); mpfr_set_d(r20664, base, MPFR_RNDN); mpfr_log(r20665, r20664, MPFR_RNDN); mpfr_div(r20666, r20663, r20665, MPFR_RNDN); ; mpfr_set_si(r20668, mpfr_cmp(r20659, r20667) <= 0, MPFR_RNDN); mpfr_set_d(r20669, re, MPFR_RNDN); mpfr_mul(r20670, r20669, r20669, MPFR_RNDN); mpfr_mul(r20671, r20659, r20659, MPFR_RNDN); mpfr_add(r20672, r20670, r20671, MPFR_RNDN); mpfr_cbrt(r20673, r20672, MPFR_RNDN); mpfr_abs(r20674, r20673, MPFR_RNDN); mpfr_add(r20675, r20671, r20670, MPFR_RNDN); mpfr_cbrt(r20676, r20675, MPFR_RNDN); mpfr_sqrt(r20677, r20676, MPFR_RNDN); mpfr_mul(r20678, r20674, r20677, MPFR_RNDN); mpfr_log(r20679, r20678, MPFR_RNDN); mpfr_mul(r20680, r20665, r20679, MPFR_RNDN); mpfr_mul(r20681, r20665, r20665, MPFR_RNDN); mpfr_div(r20682, r20680, r20681, MPFR_RNDN); ; mpfr_set_si(r20684, mpfr_cmp(r20659, r20683) <= 0, MPFR_RNDN); mpfr_neg(r20685, r20669, MPFR_RNDN); mpfr_log(r20686, r20685, MPFR_RNDN); mpfr_div(r20687, r20686, r20665, MPFR_RNDN); ; mpfr_set_si(r20689, mpfr_cmp(r20659, r20688) <= 0, MPFR_RNDN); mpfr_log(r20690, r20659, MPFR_RNDN); mpfr_div(r20691, r20690, r20665, MPFR_RNDN); if (mpfr_get_si(r20689, MPFR_RNDN)) { mpfr_set(r20692, r20682, MPFR_RNDN); } else { mpfr_set(r20692, r20691, MPFR_RNDN); }; if (mpfr_get_si(r20684, MPFR_RNDN)) { mpfr_set(r20693, r20687, MPFR_RNDN); } else { mpfr_set(r20693, r20692, MPFR_RNDN); }; if (mpfr_get_si(r20668, MPFR_RNDN)) { mpfr_set(r20694, r20682, MPFR_RNDN); } else { mpfr_set(r20694, r20693, MPFR_RNDN); }; if (mpfr_get_si(r20661, MPFR_RNDN)) { mpfr_set(r20695, r20666, MPFR_RNDN); } else { mpfr_set(r20695, r20694, MPFR_RNDN); }; return mpfr_get_d(r20695, MPFR_RNDN); }