#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 = -5.001969231040948e+151f; 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.526828139904173e-268f; 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 = r15576 / r15586; float r15588 = r15580 / r15587; float r15589 = 3.51720187277729e-183f; bool r15590 = r15570 <= r15589; float r15591 = log(r15582); float r15592 = r15591 / r15576; float r15593 = 3.0634872044683813e+39f; bool r15594 = r15570 <= r15593; float r15595 = log(r15570); float r15596 = r15595 / r15576; float r15597 = r15594 ? r15588 : r15596; float r15598 = r15590 ? r15592 : r15597; float r15599 = r15579 ? r15588 : r15598; float r15600 = r15572 ? r15577 : r15599; return r15600; } double f_od(double re, double im) { double r15601 = re; double r15602 = -5.001969231040948e+151; bool r15603 = r15601 <= r15602; double r15604 = -r15601; double r15605 = log(r15604); double r15606 = 10.0; double r15607 = log(r15606); double r15608 = r15605 / r15607; double r15609 = 6.526828139904173e-268; bool r15610 = r15601 <= r15609; double r15611 = 1.0; double r15612 = r15601 * r15601; double r15613 = im; double r15614 = r15613 * r15613; double r15615 = r15612 + r15614; double r15616 = sqrt(r15615); double r15617 = log(r15616); double r15618 = r15607 / r15617; double r15619 = r15611 / r15618; double r15620 = 3.51720187277729e-183; bool r15621 = r15601 <= r15620; double r15622 = log(r15613); double r15623 = r15622 / r15607; double r15624 = 3.0634872044683813e+39; bool r15625 = r15601 <= r15624; double r15626 = log(r15601); double r15627 = r15626 / r15607; double r15628 = r15625 ? r15619 : r15627; double r15629 = r15621 ? r15623 : r15628; double r15630 = r15610 ? r15619 : r15629; double r15631 = r15603 ? r15608 : r15630; return r15631; } 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 r15632, r15633, r15634, r15635, r15636, r15637, r15638, r15639, r15640, r15641; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r15632); mpfr_init(r15633); mpfr_init(r15634); mpfr_init(r15635); mpfr_init(r15636); mpfr_init(r15637); mpfr_init(r15638); mpfr_init_set_str(r15639, "10", 10, MPFR_RNDN); mpfr_init(r15640); mpfr_init(r15641); } double f_im(double re, double im) { mpfr_set_d(r15632, re, MPFR_RNDN); mpfr_mul(r15633, r15632, r15632, MPFR_RNDN); mpfr_set_d(r15634, im, MPFR_RNDN); mpfr_mul(r15635, r15634, r15634, MPFR_RNDN); mpfr_add(r15636, r15633, r15635, MPFR_RNDN); mpfr_sqrt(r15637, r15636, MPFR_RNDN); mpfr_log(r15638, r15637, MPFR_RNDN); ; mpfr_log(r15640, r15639, MPFR_RNDN); mpfr_div(r15641, r15638, r15640, MPFR_RNDN); return mpfr_get_d(r15641, MPFR_RNDN); } static mpfr_t r15642, r15643, 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; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r15642); mpfr_init_set_str(r15643, "-5.001969231040948e+151", 10, MPFR_RNDN); mpfr_init(r15644); mpfr_init(r15645); mpfr_init(r15646); mpfr_init_set_str(r15647, "10", 10, MPFR_RNDN); mpfr_init(r15648); mpfr_init(r15649); mpfr_init_set_str(r15650, "6.526828139904173e-268", 10, MPFR_RNDN); mpfr_init(r15651); mpfr_init_set_str(r15652, "1", 10, MPFR_RNDN); mpfr_init(r15653); mpfr_init(r15654); mpfr_init(r15655); mpfr_init(r15656); mpfr_init(r15657); mpfr_init(r15658); mpfr_init(r15659); mpfr_init(r15660); mpfr_init_set_str(r15661, "3.51720187277729e-183", 10, MPFR_RNDN); mpfr_init(r15662); mpfr_init(r15663); mpfr_init(r15664); mpfr_init_set_str(r15665, "3.0634872044683813e+39", 10, MPFR_RNDN); mpfr_init(r15666); mpfr_init(r15667); mpfr_init(r15668); mpfr_init(r15669); mpfr_init(r15670); mpfr_init(r15671); mpfr_init(r15672); } double f_fm(double re, double im) { mpfr_set_d(r15642, re, MPFR_RNDN); ; mpfr_set_si(r15644, mpfr_cmp(r15642, r15643) <= 0, MPFR_RNDN); mpfr_neg(r15645, r15642, MPFR_RNDN); mpfr_log(r15646, r15645, MPFR_RNDN); ; mpfr_log(r15648, r15647, MPFR_RNDN); mpfr_div(r15649, r15646, r15648, MPFR_RNDN); ; mpfr_set_si(r15651, mpfr_cmp(r15642, r15650) <= 0, MPFR_RNDN); ; mpfr_sqr(r15653, r15642, MPFR_RNDN); mpfr_set_d(r15654, im, MPFR_RNDN); mpfr_mul(r15655, r15654, r15654, MPFR_RNDN); mpfr_add(r15656, r15653, r15655, MPFR_RNDN); mpfr_sqrt(r15657, r15656, MPFR_RNDN); mpfr_log(r15658, r15657, MPFR_RNDN); mpfr_div(r15659, r15648, r15658, MPFR_RNDN); mpfr_div(r15660, r15652, r15659, MPFR_RNDN); ; mpfr_set_si(r15662, mpfr_cmp(r15642, r15661) <= 0, MPFR_RNDN); mpfr_log(r15663, r15654, MPFR_RNDN); mpfr_div(r15664, r15663, r15648, MPFR_RNDN); ; mpfr_set_si(r15666, mpfr_cmp(r15642, r15665) <= 0, MPFR_RNDN); mpfr_log(r15667, r15642, MPFR_RNDN); mpfr_div(r15668, r15667, r15648, MPFR_RNDN); if (mpfr_get_si(r15666, MPFR_RNDN)) { mpfr_set(r15669, r15660, MPFR_RNDN); } else { mpfr_set(r15669, r15668, MPFR_RNDN); }; if (mpfr_get_si(r15662, MPFR_RNDN)) { mpfr_set(r15670, r15664, MPFR_RNDN); } else { mpfr_set(r15670, r15669, MPFR_RNDN); }; if (mpfr_get_si(r15651, MPFR_RNDN)) { mpfr_set(r15671, r15660, MPFR_RNDN); } else { mpfr_set(r15671, r15670, MPFR_RNDN); }; if (mpfr_get_si(r15644, MPFR_RNDN)) { mpfr_set(r15672, r15649, MPFR_RNDN); } else { mpfr_set(r15672, r15671, MPFR_RNDN); }; return mpfr_get_d(r15672, MPFR_RNDN); } static mpfr_t r15673, 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(r15673); mpfr_init_set_str(r15674, "-5.001969231040948e+151", 10, MPFR_RNDN); mpfr_init(r15675); mpfr_init(r15676); mpfr_init(r15677); mpfr_init_set_str(r15678, "10", 10, MPFR_RNDN); mpfr_init(r15679); mpfr_init(r15680); mpfr_init_set_str(r15681, "6.526828139904173e-268", 10, MPFR_RNDN); mpfr_init(r15682); mpfr_init_set_str(r15683, "1", 10, MPFR_RNDN); mpfr_init(r15684); mpfr_init(r15685); mpfr_init(r15686); mpfr_init(r15687); mpfr_init(r15688); mpfr_init(r15689); mpfr_init(r15690); mpfr_init(r15691); mpfr_init_set_str(r15692, "3.51720187277729e-183", 10, MPFR_RNDN); mpfr_init(r15693); mpfr_init(r15694); mpfr_init(r15695); mpfr_init_set_str(r15696, "3.0634872044683813e+39", 10, MPFR_RNDN); 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(r15673, re, MPFR_RNDN); ; mpfr_set_si(r15675, mpfr_cmp(r15673, r15674) <= 0, MPFR_RNDN); mpfr_neg(r15676, r15673, MPFR_RNDN); mpfr_log(r15677, r15676, MPFR_RNDN); ; mpfr_log(r15679, r15678, MPFR_RNDN); mpfr_div(r15680, r15677, r15679, MPFR_RNDN); ; mpfr_set_si(r15682, mpfr_cmp(r15673, r15681) <= 0, MPFR_RNDN); ; mpfr_sqr(r15684, r15673, MPFR_RNDN); mpfr_set_d(r15685, im, MPFR_RNDN); mpfr_mul(r15686, r15685, r15685, MPFR_RNDN); mpfr_add(r15687, r15684, r15686, MPFR_RNDN); mpfr_sqrt(r15688, r15687, MPFR_RNDN); mpfr_log(r15689, r15688, MPFR_RNDN); mpfr_div(r15690, r15679, r15689, MPFR_RNDN); mpfr_div(r15691, r15683, r15690, MPFR_RNDN); ; mpfr_set_si(r15693, mpfr_cmp(r15673, r15692) <= 0, MPFR_RNDN); mpfr_log(r15694, r15685, MPFR_RNDN); mpfr_div(r15695, r15694, r15679, MPFR_RNDN); ; mpfr_set_si(r15697, mpfr_cmp(r15673, r15696) <= 0, MPFR_RNDN); mpfr_log(r15698, r15673, MPFR_RNDN); mpfr_div(r15699, r15698, r15679, MPFR_RNDN); if (mpfr_get_si(r15697, MPFR_RNDN)) { mpfr_set(r15700, r15691, MPFR_RNDN); } else { mpfr_set(r15700, r15699, MPFR_RNDN); }; if (mpfr_get_si(r15693, MPFR_RNDN)) { mpfr_set(r15701, r15695, MPFR_RNDN); } else { mpfr_set(r15701, r15700, MPFR_RNDN); }; if (mpfr_get_si(r15682, MPFR_RNDN)) { mpfr_set(r15702, r15691, MPFR_RNDN); } else { mpfr_set(r15702, r15701, MPFR_RNDN); }; if (mpfr_get_si(r15675, MPFR_RNDN)) { mpfr_set(r15703, r15680, MPFR_RNDN); } else { mpfr_set(r15703, r15702, MPFR_RNDN); }; return mpfr_get_d(r15703, MPFR_RNDN); }