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