#include #include #include #include #include char *name = "math.log10 on complex, real part"; double f_if(float re, float im) { float r15554 = re; float r15555 = r15554 * r15554; float r15556 = im; float r15557 = r15556 * r15556; float r15558 = r15555 + r15557; float r15559 = sqrt(r15558); float r15560 = log(r15559); float r15561 = 10.0f; float r15562 = log(r15561); float r15563 = r15560 / r15562; return r15563; } double f_id(double re, double im) { double r15564 = re; double r15565 = r15564 * r15564; double r15566 = im; double r15567 = r15566 * r15566; double r15568 = r15565 + r15567; double r15569 = sqrt(r15568); double r15570 = log(r15569); double r15571 = 10.0; double r15572 = log(r15571); double r15573 = r15570 / r15572; return r15573; } double f_of(float re, float im) { float r15574 = re; float r15575 = -1.4799672839841313e+124f; bool r15576 = r15574 <= r15575; float r15577 = -r15574; float r15578 = cbrt(r15577); float r15579 = log(r15578); float r15580 = r15579 * (r15579 * r15579); float r15581 = 10.0f; float r15582 = log(r15581); float r15583 = 3.0f; float r15584 = r15582 / r15583; float r15585 = r15584 * (r15584 * r15584); float r15586 = r15580 / r15585; float r15587 = cbrt(r15586); float r15588 = 3.751610550051807e+91f; bool r15589 = r15574 <= r15588; float r15590 = r15574 * r15574; float r15591 = im; float r15592 = r15591 * r15591; float r15593 = r15590 + r15592; float r15594 = sqrt(r15593); float r15595 = cbrt(r15594); float r15596 = log(r15595); float r15597 = r15582 / r15596; float r15598 = r15583 / r15597; float r15599 = cbrt(r15574); float r15600 = log(r15599); float r15601 = r15600 / r15584; float r15602 = r15589 ? r15598 : r15601; float r15603 = r15576 ? r15587 : r15602; return r15603; } double f_od(double re, double im) { double r15604 = re; double r15605 = -1.4799672839841313e+124; bool r15606 = r15604 <= r15605; double r15607 = -r15604; double r15608 = cbrt(r15607); double r15609 = log(r15608); double r15610 = r15609 * (r15609 * r15609); double r15611 = 10.0; double r15612 = log(r15611); double r15613 = 3.0; double r15614 = r15612 / r15613; double r15615 = r15614 * (r15614 * r15614); double r15616 = r15610 / r15615; double r15617 = cbrt(r15616); double r15618 = 3.751610550051807e+91; bool r15619 = r15604 <= r15618; double r15620 = r15604 * r15604; double r15621 = im; double r15622 = r15621 * r15621; double r15623 = r15620 + r15622; double r15624 = sqrt(r15623); double r15625 = cbrt(r15624); double r15626 = log(r15625); double r15627 = r15612 / r15626; double r15628 = r15613 / r15627; double r15629 = cbrt(r15604); double r15630 = log(r15629); double r15631 = r15630 / r15614; double r15632 = r15619 ? r15628 : r15631; double r15633 = r15606 ? r15617 : r15632; return r15633; } 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 r15634, r15635, r15636, r15637, r15638, r15639, r15640, r15641, r15642, r15643; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15634); mpfr_init(r15635); mpfr_init(r15636); mpfr_init(r15637); mpfr_init(r15638); mpfr_init(r15639); mpfr_init(r15640); mpfr_init_set_str(r15641, "10", 10, MPFR_RNDN); mpfr_init(r15642); mpfr_init(r15643); } double f_im(double re, double im) { mpfr_set_d(r15634, re, MPFR_RNDN); mpfr_mul(r15635, r15634, r15634, MPFR_RNDN); mpfr_set_d(r15636, im, MPFR_RNDN); mpfr_mul(r15637, r15636, r15636, MPFR_RNDN); mpfr_add(r15638, r15635, r15637, MPFR_RNDN); mpfr_sqrt(r15639, r15638, MPFR_RNDN); mpfr_log(r15640, r15639, MPFR_RNDN); ; mpfr_log(r15642, r15641, MPFR_RNDN); mpfr_div(r15643, r15640, r15642, MPFR_RNDN); return mpfr_get_d(r15643, MPFR_RNDN); } static mpfr_t r15644, r15645, r15646, r15647, r15648, r15649, r15650, r15651, r15652, r15653, r15654, r15655, r15656, r15657, r15658, r15659, r15660, r15661, r15662, r15663, r15664, r15665, r15666, r15667, r15668, r15669, r15670, r15671, r15672, r15673; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15644); mpfr_init_set_str(r15645, "-1.4799672839841313e+124", 10, MPFR_RNDN); mpfr_init(r15646); mpfr_init(r15647); mpfr_init(r15648); mpfr_init(r15649); mpfr_init(r15650); mpfr_init_set_str(r15651, "10", 10, MPFR_RNDN); mpfr_init(r15652); mpfr_init_set_str(r15653, "3", 10, MPFR_RNDN); mpfr_init(r15654); mpfr_init(r15655); mpfr_init(r15656); mpfr_init(r15657); mpfr_init_set_str(r15658, "3.751610550051807e+91", 10, MPFR_RNDN); mpfr_init(r15659); mpfr_init(r15660); mpfr_init(r15661); mpfr_init(r15662); mpfr_init(r15663); mpfr_init(r15664); mpfr_init(r15665); mpfr_init(r15666); mpfr_init(r15667); mpfr_init(r15668); mpfr_init(r15669); mpfr_init(r15670); mpfr_init(r15671); mpfr_init(r15672); mpfr_init(r15673); } double f_fm(double re, double im) { mpfr_set_d(r15644, re, MPFR_RNDN); ; mpfr_set_si(r15646, mpfr_cmp(r15644, r15645) <= 0, MPFR_RNDN); mpfr_neg(r15647, r15644, MPFR_RNDN); mpfr_cbrt(r15648, r15647, MPFR_RNDN); mpfr_log(r15649, r15648, MPFR_RNDN); mpfr_mul(r15650, r15649, r15649, MPFR_RNDN); mpfr_mul(r15650, r15650, r15649, MPFR_RNDN); ; mpfr_log(r15652, r15651, MPFR_RNDN); ; mpfr_div(r15654, r15652, r15653, MPFR_RNDN); mpfr_mul(r15655, r15654, r15654, MPFR_RNDN); mpfr_mul(r15655, r15655, r15654, MPFR_RNDN); mpfr_div(r15656, r15650, r15655, MPFR_RNDN); mpfr_cbrt(r15657, r15656, MPFR_RNDN); ; mpfr_set_si(r15659, mpfr_cmp(r15644, r15658) <= 0, MPFR_RNDN); mpfr_sqr(r15660, r15644, MPFR_RNDN); mpfr_set_d(r15661, im, MPFR_RNDN); mpfr_mul(r15662, r15661, r15661, MPFR_RNDN); mpfr_add(r15663, r15660, r15662, MPFR_RNDN); mpfr_sqrt(r15664, r15663, MPFR_RNDN); mpfr_cbrt(r15665, r15664, MPFR_RNDN); mpfr_log(r15666, r15665, MPFR_RNDN); mpfr_div(r15667, r15652, r15666, MPFR_RNDN); mpfr_div(r15668, r15653, r15667, MPFR_RNDN); mpfr_cbrt(r15669, r15644, MPFR_RNDN); mpfr_log(r15670, r15669, MPFR_RNDN); mpfr_div(r15671, r15670, r15654, MPFR_RNDN); if (mpfr_get_si(r15659, MPFR_RNDN)) { mpfr_set(r15672, r15668, MPFR_RNDN); } else { mpfr_set(r15672, r15671, MPFR_RNDN); }; if (mpfr_get_si(r15646, MPFR_RNDN)) { mpfr_set(r15673, r15657, MPFR_RNDN); } else { mpfr_set(r15673, r15672, MPFR_RNDN); }; return mpfr_get_d(r15673, MPFR_RNDN); } static mpfr_t r15674, r15675, r15676, r15677, r15678, r15679, r15680, r15681, r15682, r15683, r15684, r15685, r15686, r15687, r15688, r15689, r15690, r15691, r15692, r15693, r15694, r15695, r15696, r15697, r15698, r15699, r15700, r15701, r15702, r15703; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r15674); mpfr_init_set_str(r15675, "-1.4799672839841313e+124", 10, MPFR_RNDN); mpfr_init(r15676); mpfr_init(r15677); mpfr_init(r15678); mpfr_init(r15679); mpfr_init(r15680); mpfr_init_set_str(r15681, "10", 10, MPFR_RNDN); mpfr_init(r15682); mpfr_init_set_str(r15683, "3", 10, MPFR_RNDN); mpfr_init(r15684); mpfr_init(r15685); mpfr_init(r15686); mpfr_init(r15687); mpfr_init_set_str(r15688, "3.751610550051807e+91", 10, MPFR_RNDN); mpfr_init(r15689); mpfr_init(r15690); mpfr_init(r15691); mpfr_init(r15692); mpfr_init(r15693); mpfr_init(r15694); mpfr_init(r15695); mpfr_init(r15696); mpfr_init(r15697); mpfr_init(r15698); mpfr_init(r15699); mpfr_init(r15700); mpfr_init(r15701); mpfr_init(r15702); mpfr_init(r15703); } double f_dm(double re, double im) { mpfr_set_d(r15674, re, MPFR_RNDN); ; mpfr_set_si(r15676, mpfr_cmp(r15674, r15675) <= 0, MPFR_RNDN); mpfr_neg(r15677, r15674, MPFR_RNDN); mpfr_cbrt(r15678, r15677, MPFR_RNDN); mpfr_log(r15679, r15678, MPFR_RNDN); mpfr_mul(r15680, r15679, r15679, MPFR_RNDN); mpfr_mul(r15680, r15680, r15679, MPFR_RNDN); ; mpfr_log(r15682, r15681, MPFR_RNDN); ; mpfr_div(r15684, r15682, r15683, MPFR_RNDN); mpfr_mul(r15685, r15684, r15684, MPFR_RNDN); mpfr_mul(r15685, r15685, r15684, MPFR_RNDN); mpfr_div(r15686, r15680, r15685, MPFR_RNDN); mpfr_cbrt(r15687, r15686, MPFR_RNDN); ; mpfr_set_si(r15689, mpfr_cmp(r15674, r15688) <= 0, MPFR_RNDN); mpfr_sqr(r15690, r15674, MPFR_RNDN); mpfr_set_d(r15691, im, MPFR_RNDN); mpfr_mul(r15692, r15691, r15691, MPFR_RNDN); mpfr_add(r15693, r15690, r15692, MPFR_RNDN); mpfr_sqrt(r15694, r15693, MPFR_RNDN); mpfr_cbrt(r15695, r15694, MPFR_RNDN); mpfr_log(r15696, r15695, MPFR_RNDN); mpfr_div(r15697, r15682, r15696, MPFR_RNDN); mpfr_div(r15698, r15683, r15697, MPFR_RNDN); mpfr_cbrt(r15699, r15674, MPFR_RNDN); mpfr_log(r15700, r15699, MPFR_RNDN); mpfr_div(r15701, r15700, r15684, MPFR_RNDN); if (mpfr_get_si(r15689, MPFR_RNDN)) { mpfr_set(r15702, r15698, MPFR_RNDN); } else { mpfr_set(r15702, r15701, MPFR_RNDN); }; if (mpfr_get_si(r15676, MPFR_RNDN)) { mpfr_set(r15703, r15687, MPFR_RNDN); } else { mpfr_set(r15703, r15702, MPFR_RNDN); }; return mpfr_get_d(r15703, MPFR_RNDN); }