#include #include #include #include #include char *name = "math.log10 on complex, real part"; double f_if(float re, float im) { float r15474 = re; float r15475 = r15474 * r15474; float r15476 = im; float r15477 = r15476 * r15476; float r15478 = r15475 + r15477; float r15479 = sqrt(r15478); float r15480 = log(r15479); float r15481 = 10.0f; float r15482 = log(r15481); float r15483 = r15480 / r15482; return r15483; } double f_id(double re, double im) { double r15484 = re; double r15485 = r15484 * r15484; double r15486 = im; double r15487 = r15486 * r15486; double r15488 = r15485 + r15487; double r15489 = sqrt(r15488); double r15490 = log(r15489); double r15491 = 10.0; double r15492 = log(r15491); double r15493 = r15490 / r15492; return r15493; } double f_of(float re, float im) { float r15494 = re; float r15495 = -5.954199484621813e+115f; bool r15496 = r15494 <= r15495; float r15497 = -r15494; float r15498 = log(r15497); float r15499 = 10.0f; float r15500 = log(r15499); float r15501 = r15498 / r15500; float r15502 = -8.68041930647669e-252f; bool r15503 = r15494 <= r15502; float r15504 = r15494 * r15494; float r15505 = im; float r15506 = r15505 * r15505; float r15507 = r15504 + r15506; float r15508 = sqrt(r15507); float r15509 = log(r15508); float r15510 = r15509 / r15500; float r15511 = exp(r15510); float r15512 = log(r15511); float r15513 = 1.9727183986347288e-223f; bool r15514 = r15494 <= r15513; float r15515 = log(r15505); float r15516 = r15515 / r15500; float r15517 = 1.6728927718931055e+97f; bool r15518 = r15494 <= r15517; float r15519 = r15510 * (r15510 * r15510); float r15520 = cbrt(r15519); float r15521 = log(r15494); float r15522 = r15521 / r15500; float r15523 = r15518 ? r15520 : r15522; float r15524 = r15514 ? r15516 : r15523; float r15525 = r15503 ? r15512 : r15524; float r15526 = r15496 ? r15501 : r15525; return r15526; } double f_od(double re, double im) { double r15527 = re; double r15528 = -5.954199484621813e+115; bool r15529 = r15527 <= r15528; double r15530 = -r15527; double r15531 = log(r15530); double r15532 = 10.0; double r15533 = log(r15532); double r15534 = r15531 / r15533; double r15535 = -8.68041930647669e-252; bool r15536 = r15527 <= r15535; double r15537 = r15527 * r15527; double r15538 = im; double r15539 = r15538 * r15538; double r15540 = r15537 + r15539; double r15541 = sqrt(r15540); double r15542 = log(r15541); double r15543 = r15542 / r15533; double r15544 = exp(r15543); double r15545 = log(r15544); double r15546 = 1.9727183986347288e-223; bool r15547 = r15527 <= r15546; double r15548 = log(r15538); double r15549 = r15548 / r15533; double r15550 = 1.6728927718931055e+97; bool r15551 = r15527 <= r15550; double r15552 = r15543 * (r15543 * r15543); double r15553 = cbrt(r15552); double r15554 = log(r15527); double r15555 = r15554 / r15533; double r15556 = r15551 ? r15553 : r15555; double r15557 = r15547 ? r15549 : r15556; double r15558 = r15536 ? r15545 : r15557; double r15559 = r15529 ? r15534 : r15558; return r15559; } 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 r15560, r15561, r15562, r15563, r15564, r15565, r15566, r15567, r15568, r15569; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15560); mpfr_init(r15561); mpfr_init(r15562); mpfr_init(r15563); mpfr_init(r15564); mpfr_init(r15565); mpfr_init(r15566); mpfr_init_set_str(r15567, "10", 10, MPFR_RNDN); mpfr_init(r15568); mpfr_init(r15569); } double f_im(double re, double im) { mpfr_set_d(r15560, re, MPFR_RNDN); mpfr_mul(r15561, r15560, r15560, MPFR_RNDN); mpfr_set_d(r15562, im, MPFR_RNDN); mpfr_mul(r15563, r15562, r15562, MPFR_RNDN); mpfr_add(r15564, r15561, r15563, MPFR_RNDN); mpfr_sqrt(r15565, r15564, MPFR_RNDN); mpfr_log(r15566, r15565, MPFR_RNDN); ; mpfr_log(r15568, r15567, MPFR_RNDN); mpfr_div(r15569, r15566, r15568, MPFR_RNDN); return mpfr_get_d(r15569, MPFR_RNDN); } static mpfr_t r15570, r15571, r15572, r15573, r15574, r15575, r15576, r15577, r15578, r15579, r15580, r15581, r15582, r15583, r15584, r15585, r15586, r15587, r15588, r15589, r15590, r15591, r15592, r15593, r15594, r15595, r15596, r15597, r15598, r15599, r15600, r15601, r15602; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15570); mpfr_init_set_str(r15571, "-5.954199484621813e+115", 10, MPFR_RNDN); mpfr_init(r15572); mpfr_init(r15573); mpfr_init(r15574); mpfr_init_set_str(r15575, "10", 10, MPFR_RNDN); mpfr_init(r15576); mpfr_init(r15577); mpfr_init_set_str(r15578, "-8.68041930647669e-252", 10, MPFR_RNDN); mpfr_init(r15579); mpfr_init(r15580); mpfr_init(r15581); mpfr_init(r15582); mpfr_init(r15583); mpfr_init(r15584); mpfr_init(r15585); mpfr_init(r15586); mpfr_init(r15587); mpfr_init(r15588); mpfr_init_set_str(r15589, "1.9727183986347288e-223", 10, MPFR_RNDN); mpfr_init(r15590); mpfr_init(r15591); mpfr_init(r15592); mpfr_init_set_str(r15593, "1.6728927718931055e+97", 10, MPFR_RNDN); mpfr_init(r15594); mpfr_init(r15595); mpfr_init(r15596); mpfr_init(r15597); mpfr_init(r15598); mpfr_init(r15599); mpfr_init(r15600); mpfr_init(r15601); mpfr_init(r15602); } double f_fm(double re, double im) { mpfr_set_d(r15570, re, MPFR_RNDN); ; mpfr_set_si(r15572, mpfr_cmp(r15570, r15571) <= 0, MPFR_RNDN); mpfr_neg(r15573, r15570, MPFR_RNDN); mpfr_log(r15574, r15573, MPFR_RNDN); ; mpfr_log(r15576, r15575, MPFR_RNDN); mpfr_div(r15577, r15574, r15576, MPFR_RNDN); ; mpfr_set_si(r15579, mpfr_cmp(r15570, r15578) <= 0, MPFR_RNDN); mpfr_sqr(r15580, r15570, MPFR_RNDN); mpfr_set_d(r15581, im, MPFR_RNDN); mpfr_mul(r15582, r15581, r15581, MPFR_RNDN); mpfr_add(r15583, r15580, r15582, MPFR_RNDN); mpfr_sqrt(r15584, r15583, MPFR_RNDN); mpfr_log(r15585, r15584, MPFR_RNDN); mpfr_div(r15586, r15585, r15576, MPFR_RNDN); mpfr_exp(r15587, r15586, MPFR_RNDN); mpfr_log(r15588, r15587, MPFR_RNDN); ; mpfr_set_si(r15590, mpfr_cmp(r15570, r15589) <= 0, MPFR_RNDN); mpfr_log(r15591, r15581, MPFR_RNDN); mpfr_div(r15592, r15591, r15576, MPFR_RNDN); ; mpfr_set_si(r15594, mpfr_cmp(r15570, r15593) <= 0, MPFR_RNDN); mpfr_mul(r15595, r15586, r15586, MPFR_RNDN); mpfr_mul(r15595, r15595, r15586, MPFR_RNDN); mpfr_cbrt(r15596, r15595, MPFR_RNDN); mpfr_log(r15597, r15570, MPFR_RNDN); mpfr_div(r15598, r15597, r15576, MPFR_RNDN); if (mpfr_get_si(r15594, MPFR_RNDN)) { mpfr_set(r15599, r15596, MPFR_RNDN); } else { mpfr_set(r15599, r15598, MPFR_RNDN); }; if (mpfr_get_si(r15590, MPFR_RNDN)) { mpfr_set(r15600, r15592, MPFR_RNDN); } else { mpfr_set(r15600, r15599, MPFR_RNDN); }; if (mpfr_get_si(r15579, MPFR_RNDN)) { mpfr_set(r15601, r15588, MPFR_RNDN); } else { mpfr_set(r15601, r15600, MPFR_RNDN); }; if (mpfr_get_si(r15572, MPFR_RNDN)) { mpfr_set(r15602, r15577, MPFR_RNDN); } else { mpfr_set(r15602, r15601, MPFR_RNDN); }; return mpfr_get_d(r15602, MPFR_RNDN); } static mpfr_t r15603, r15604, r15605, r15606, r15607, r15608, r15609, r15610, r15611, r15612, r15613, r15614, r15615, r15616, r15617, r15618, r15619, r15620, r15621, r15622, r15623, r15624, r15625, r15626, r15627, r15628, r15629, r15630, r15631, r15632, r15633, r15634, r15635; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15603); mpfr_init_set_str(r15604, "-5.954199484621813e+115", 10, MPFR_RNDN); mpfr_init(r15605); mpfr_init(r15606); mpfr_init(r15607); mpfr_init_set_str(r15608, "10", 10, MPFR_RNDN); mpfr_init(r15609); mpfr_init(r15610); mpfr_init_set_str(r15611, "-8.68041930647669e-252", 10, MPFR_RNDN); mpfr_init(r15612); mpfr_init(r15613); mpfr_init(r15614); mpfr_init(r15615); mpfr_init(r15616); mpfr_init(r15617); mpfr_init(r15618); mpfr_init(r15619); mpfr_init(r15620); mpfr_init(r15621); mpfr_init_set_str(r15622, "1.9727183986347288e-223", 10, MPFR_RNDN); mpfr_init(r15623); mpfr_init(r15624); mpfr_init(r15625); mpfr_init_set_str(r15626, "1.6728927718931055e+97", 10, MPFR_RNDN); mpfr_init(r15627); mpfr_init(r15628); mpfr_init(r15629); mpfr_init(r15630); mpfr_init(r15631); mpfr_init(r15632); mpfr_init(r15633); mpfr_init(r15634); mpfr_init(r15635); } double f_dm(double re, double im) { mpfr_set_d(r15603, re, MPFR_RNDN); ; mpfr_set_si(r15605, mpfr_cmp(r15603, r15604) <= 0, MPFR_RNDN); mpfr_neg(r15606, r15603, MPFR_RNDN); mpfr_log(r15607, r15606, MPFR_RNDN); ; mpfr_log(r15609, r15608, MPFR_RNDN); mpfr_div(r15610, r15607, r15609, MPFR_RNDN); ; mpfr_set_si(r15612, mpfr_cmp(r15603, r15611) <= 0, MPFR_RNDN); mpfr_sqr(r15613, r15603, MPFR_RNDN); mpfr_set_d(r15614, im, MPFR_RNDN); mpfr_mul(r15615, r15614, r15614, MPFR_RNDN); mpfr_add(r15616, r15613, r15615, MPFR_RNDN); mpfr_sqrt(r15617, r15616, MPFR_RNDN); mpfr_log(r15618, r15617, MPFR_RNDN); mpfr_div(r15619, r15618, r15609, MPFR_RNDN); mpfr_exp(r15620, r15619, MPFR_RNDN); mpfr_log(r15621, r15620, MPFR_RNDN); ; mpfr_set_si(r15623, mpfr_cmp(r15603, r15622) <= 0, MPFR_RNDN); mpfr_log(r15624, r15614, MPFR_RNDN); mpfr_div(r15625, r15624, r15609, MPFR_RNDN); ; mpfr_set_si(r15627, mpfr_cmp(r15603, r15626) <= 0, MPFR_RNDN); mpfr_mul(r15628, r15619, r15619, MPFR_RNDN); mpfr_mul(r15628, r15628, r15619, MPFR_RNDN); mpfr_cbrt(r15629, r15628, MPFR_RNDN); mpfr_log(r15630, r15603, MPFR_RNDN); mpfr_div(r15631, r15630, r15609, MPFR_RNDN); if (mpfr_get_si(r15627, MPFR_RNDN)) { mpfr_set(r15632, r15629, MPFR_RNDN); } else { mpfr_set(r15632, r15631, MPFR_RNDN); }; if (mpfr_get_si(r15623, MPFR_RNDN)) { mpfr_set(r15633, r15625, MPFR_RNDN); } else { mpfr_set(r15633, r15632, MPFR_RNDN); }; if (mpfr_get_si(r15612, MPFR_RNDN)) { mpfr_set(r15634, r15621, MPFR_RNDN); } else { mpfr_set(r15634, r15633, MPFR_RNDN); }; if (mpfr_get_si(r15605, MPFR_RNDN)) { mpfr_set(r15635, r15610, MPFR_RNDN); } else { mpfr_set(r15635, r15634, MPFR_RNDN); }; return mpfr_get_d(r15635, MPFR_RNDN); }