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