#include #include #include #include #include char *name = "math.log10 on complex, real part"; double f_if(float re, float im) { float r15458 = re; float r15459 = r15458 * r15458; float r15460 = im; float r15461 = r15460 * r15460; float r15462 = r15459 + r15461; float r15463 = sqrt(r15462); float r15464 = log(r15463); float r15465 = 10.0f; float r15466 = log(r15465); float r15467 = r15464 / r15466; return r15467; } double f_id(double re, double im) { double r15468 = re; double r15469 = r15468 * r15468; double r15470 = im; double r15471 = r15470 * r15470; double r15472 = r15469 + r15471; double r15473 = sqrt(r15472); double r15474 = log(r15473); double r15475 = 10.0; double r15476 = log(r15475); double r15477 = r15474 / r15476; return r15477; } double f_of(float re, float im) { float r15478 = re; float r15479 = -7494067243974656.0f; bool r15480 = r15478 <= r15479; float r15481 = -r15478; float r15482 = log(r15481); float r15483 = 10.0f; float r15484 = log(r15483); float r15485 = 0.3333333432674408f; float r15486 = r15484 / r15485; float r15487 = 3.0f; float r15488 = r15486 / r15487; float r15489 = r15482 / r15488; float r15490 = 3277798768640.0f; bool r15491 = r15478 <= r15490; float r15492 = 1.0f; float r15493 = r15487 / r15492; float r15494 = r15485 / r15492; float r15495 = r15478 * r15478; float r15496 = im; float r15497 = r15496 * r15496; float r15498 = r15495 + r15497; float r15499 = sqrt(r15498); float r15500 = log(r15499); float r15501 = r15500 / r15484; float r15502 = r15494 * r15501; float r15503 = r15493 * r15502; float r15504 = log(r15478); float r15505 = r15504 / r15484; float r15506 = r15491 ? r15503 : r15505; float r15507 = r15480 ? r15489 : r15506; return r15507; } double f_od(double re, double im) { double r15508 = re; double r15509 = -7494067243974656.0; bool r15510 = r15508 <= r15509; double r15511 = -r15508; double r15512 = log(r15511); double r15513 = 10.0; double r15514 = log(r15513); double r15515 = 0.3333333432674408; double r15516 = r15514 / r15515; double r15517 = 3.0; double r15518 = r15516 / r15517; double r15519 = r15512 / r15518; double r15520 = 3277798768640.0; bool r15521 = r15508 <= r15520; double r15522 = 1.0; double r15523 = r15517 / r15522; double r15524 = r15515 / r15522; double r15525 = r15508 * r15508; double r15526 = im; double r15527 = r15526 * r15526; double r15528 = r15525 + r15527; double r15529 = sqrt(r15528); double r15530 = log(r15529); double r15531 = r15530 / r15514; double r15532 = r15524 * r15531; double r15533 = r15523 * r15532; double r15534 = log(r15508); double r15535 = r15534 / r15514; double r15536 = r15521 ? r15533 : r15535; double r15537 = r15510 ? r15519 : r15536; return r15537; } 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 r15538, r15539, r15540, r15541, r15542, r15543, r15544, r15545, r15546, r15547; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15538); mpfr_init(r15539); mpfr_init(r15540); mpfr_init(r15541); mpfr_init(r15542); mpfr_init(r15543); mpfr_init(r15544); mpfr_init_set_str(r15545, "10", 10, MPFR_RNDN); mpfr_init(r15546); mpfr_init(r15547); } double f_im(double re, double im) { mpfr_set_d(r15538, re, MPFR_RNDN); mpfr_mul(r15539, r15538, r15538, MPFR_RNDN); mpfr_set_d(r15540, im, MPFR_RNDN); mpfr_mul(r15541, r15540, r15540, MPFR_RNDN); mpfr_add(r15542, r15539, r15541, MPFR_RNDN); mpfr_sqrt(r15543, r15542, MPFR_RNDN); mpfr_log(r15544, r15543, MPFR_RNDN); ; mpfr_log(r15546, r15545, MPFR_RNDN); mpfr_div(r15547, r15544, r15546, MPFR_RNDN); return mpfr_get_d(r15547, MPFR_RNDN); } static mpfr_t r15548, r15549, r15550, r15551, r15552, r15553, r15554, r15555, r15556, r15557, r15558, r15559, r15560, r15561, r15562, r15563, r15564, r15565, r15566, r15567, r15568, r15569, r15570, r15571, r15572, r15573, r15574, r15575, r15576, r15577; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15548); mpfr_init_set_str(r15549, "-7.494067f+15", 10, MPFR_RNDN); mpfr_init(r15550); mpfr_init(r15551); mpfr_init(r15552); mpfr_init_set_str(r15553, "10", 10, MPFR_RNDN); mpfr_init(r15554); mpfr_init_set_str(r15555, "1/3", 10, MPFR_RNDN); mpfr_init(r15556); mpfr_init_set_str(r15557, "3", 10, MPFR_RNDN); mpfr_init(r15558); mpfr_init(r15559); mpfr_init_set_str(r15560, "3.2777988f+12", 10, MPFR_RNDN); mpfr_init(r15561); mpfr_init_set_str(r15562, "1", 10, MPFR_RNDN); mpfr_init(r15563); mpfr_init(r15564); mpfr_init(r15565); mpfr_init(r15566); mpfr_init(r15567); mpfr_init(r15568); mpfr_init(r15569); mpfr_init(r15570); mpfr_init(r15571); mpfr_init(r15572); mpfr_init(r15573); mpfr_init(r15574); mpfr_init(r15575); mpfr_init(r15576); mpfr_init(r15577); } double f_fm(double re, double im) { mpfr_set_d(r15548, re, MPFR_RNDN); ; mpfr_set_si(r15550, mpfr_cmp(r15548, r15549) <= 0, MPFR_RNDN); mpfr_neg(r15551, r15548, MPFR_RNDN); mpfr_log(r15552, r15551, MPFR_RNDN); ; mpfr_log(r15554, r15553, MPFR_RNDN); ; mpfr_div(r15556, r15554, r15555, MPFR_RNDN); ; mpfr_div(r15558, r15556, r15557, MPFR_RNDN); mpfr_div(r15559, r15552, r15558, MPFR_RNDN); ; mpfr_set_si(r15561, mpfr_cmp(r15548, r15560) <= 0, MPFR_RNDN); ; mpfr_div(r15563, r15557, r15562, MPFR_RNDN); mpfr_div(r15564, r15555, r15562, MPFR_RNDN); mpfr_sqr(r15565, r15548, MPFR_RNDN); mpfr_set_d(r15566, im, MPFR_RNDN); mpfr_mul(r15567, r15566, r15566, MPFR_RNDN); mpfr_add(r15568, r15565, r15567, MPFR_RNDN); mpfr_sqrt(r15569, r15568, MPFR_RNDN); mpfr_log(r15570, r15569, MPFR_RNDN); mpfr_div(r15571, r15570, r15554, MPFR_RNDN); mpfr_mul(r15572, r15564, r15571, MPFR_RNDN); mpfr_mul(r15573, r15563, r15572, MPFR_RNDN); mpfr_log(r15574, r15548, MPFR_RNDN); mpfr_div(r15575, r15574, r15554, MPFR_RNDN); if (mpfr_get_si(r15561, MPFR_RNDN)) { mpfr_set(r15576, r15573, MPFR_RNDN); } else { mpfr_set(r15576, r15575, MPFR_RNDN); }; if (mpfr_get_si(r15550, MPFR_RNDN)) { mpfr_set(r15577, r15559, MPFR_RNDN); } else { mpfr_set(r15577, r15576, MPFR_RNDN); }; return mpfr_get_d(r15577, MPFR_RNDN); } static mpfr_t 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, r15603, r15604, r15605, r15606, r15607; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15578); mpfr_init_set_str(r15579, "-7.494067f+15", 10, MPFR_RNDN); mpfr_init(r15580); mpfr_init(r15581); mpfr_init(r15582); mpfr_init_set_str(r15583, "10", 10, MPFR_RNDN); mpfr_init(r15584); mpfr_init_set_str(r15585, "1/3", 10, MPFR_RNDN); mpfr_init(r15586); mpfr_init_set_str(r15587, "3", 10, MPFR_RNDN); mpfr_init(r15588); mpfr_init(r15589); mpfr_init_set_str(r15590, "3.2777988f+12", 10, MPFR_RNDN); mpfr_init(r15591); mpfr_init_set_str(r15592, "1", 10, MPFR_RNDN); mpfr_init(r15593); 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); mpfr_init(r15603); mpfr_init(r15604); mpfr_init(r15605); mpfr_init(r15606); mpfr_init(r15607); } double f_dm(double re, double im) { mpfr_set_d(r15578, re, MPFR_RNDN); ; mpfr_set_si(r15580, mpfr_cmp(r15578, r15579) <= 0, MPFR_RNDN); mpfr_neg(r15581, r15578, MPFR_RNDN); mpfr_log(r15582, r15581, MPFR_RNDN); ; mpfr_log(r15584, r15583, MPFR_RNDN); ; mpfr_div(r15586, r15584, r15585, MPFR_RNDN); ; mpfr_div(r15588, r15586, r15587, MPFR_RNDN); mpfr_div(r15589, r15582, r15588, MPFR_RNDN); ; mpfr_set_si(r15591, mpfr_cmp(r15578, r15590) <= 0, MPFR_RNDN); ; mpfr_div(r15593, r15587, r15592, MPFR_RNDN); mpfr_div(r15594, r15585, r15592, MPFR_RNDN); mpfr_sqr(r15595, r15578, MPFR_RNDN); mpfr_set_d(r15596, im, MPFR_RNDN); mpfr_mul(r15597, r15596, r15596, MPFR_RNDN); mpfr_add(r15598, r15595, r15597, MPFR_RNDN); mpfr_sqrt(r15599, r15598, MPFR_RNDN); mpfr_log(r15600, r15599, MPFR_RNDN); mpfr_div(r15601, r15600, r15584, MPFR_RNDN); mpfr_mul(r15602, r15594, r15601, MPFR_RNDN); mpfr_mul(r15603, r15593, r15602, MPFR_RNDN); mpfr_log(r15604, r15578, MPFR_RNDN); mpfr_div(r15605, r15604, r15584, MPFR_RNDN); if (mpfr_get_si(r15591, MPFR_RNDN)) { mpfr_set(r15606, r15603, MPFR_RNDN); } else { mpfr_set(r15606, r15605, MPFR_RNDN); }; if (mpfr_get_si(r15580, MPFR_RNDN)) { mpfr_set(r15607, r15589, MPFR_RNDN); } else { mpfr_set(r15607, r15606, MPFR_RNDN); }; return mpfr_get_d(r15607, MPFR_RNDN); }