#include #include #include #include #include char *name = "Hyperbolic arcsine"; double f_if(float x) { float r27544 = x; float r27545 = r27544 * r27544; float r27546 = 1; float r27547 = r27545 + r27546; float r27548 = sqrt(r27547); float r27549 = r27544 + r27548; float r27550 = log(r27549); return r27550; } double f_id(double x) { double r27551 = x; double r27552 = r27551 * r27551; double r27553 = 1; double r27554 = r27552 + r27553; double r27555 = sqrt(r27554); double r27556 = r27551 + r27555; double r27557 = log(r27556); return r27557; } double f_of(float x) { float r27558 = 1/8; float r27559 = x; float r27560 = r27558 / r27559; float r27561 = r27559 * r27559; float r27562 = r27560 / r27561; float r27563 = 1/2; float r27564 = r27563 / r27559; float r27565 = r27562 - r27564; float r27566 = -5.494590308109969e-24; bool r27567 = r27565 <= r27566; float r27568 = 3/40; float r27569 = 5; float r27570 = pow(r27559, r27569); float r27571 = r27568 * r27570; float r27572 = r27571 + r27559; float r27573 = 1/6; float r27574 = 3; float r27575 = pow(r27559, r27574); float r27576 = r27573 * r27575; float r27577 = exp(r27576); float r27578 = log(r27577); float r27579 = r27572 - r27578; float r27580 = 7.084021811928732e-306; bool r27581 = r27565 <= r27580; float r27582 = r27559 + r27559; float r27583 = r27582 + r27564; float r27584 = r27583 - r27562; float r27585 = log(r27584); float r27586 = 0.13128748121120157; bool r27587 = r27565 <= r27586; float r27588 = log(r27565); float r27589 = r27587 ? r27588 : r27579; float r27590 = r27581 ? r27585 : r27589; float r27591 = r27567 ? r27579 : r27590; return r27591; } double f_od(double x) { double r27592 = 1/8; double r27593 = x; double r27594 = r27592 / r27593; double r27595 = r27593 * r27593; double r27596 = r27594 / r27595; double r27597 = 1/2; double r27598 = r27597 / r27593; double r27599 = r27596 - r27598; double r27600 = -5.494590308109969e-24; bool r27601 = r27599 <= r27600; double r27602 = 3/40; double r27603 = 5; double r27604 = pow(r27593, r27603); double r27605 = r27602 * r27604; double r27606 = r27605 + r27593; double r27607 = 1/6; double r27608 = 3; double r27609 = pow(r27593, r27608); double r27610 = r27607 * r27609; double r27611 = exp(r27610); double r27612 = log(r27611); double r27613 = r27606 - r27612; double r27614 = 7.084021811928732e-306; bool r27615 = r27599 <= r27614; double r27616 = r27593 + r27593; double r27617 = r27616 + r27598; double r27618 = r27617 - r27596; double r27619 = log(r27618); double r27620 = 0.13128748121120157; bool r27621 = r27599 <= r27620; double r27622 = log(r27599); double r27623 = r27621 ? r27622 : r27613; double r27624 = r27615 ? r27619 : r27623; double r27625 = r27601 ? r27613 : r27624; return r27625; } 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 r27626, r27627, r27628, r27629, r27630, r27631, r27632; void setup_mpfr_f_im() { mpfr_set_default_prec(2384); mpfr_init(r27626); mpfr_init(r27627); mpfr_init_set_str(r27628, "1", 10, MPFR_RNDN); mpfr_init(r27629); mpfr_init(r27630); mpfr_init(r27631); mpfr_init(r27632); } double f_im(double x) { mpfr_set_d(r27626, x, MPFR_RNDN); mpfr_mul(r27627, r27626, r27626, MPFR_RNDN); ; mpfr_add(r27629, r27627, r27628, MPFR_RNDN); mpfr_sqrt(r27630, r27629, MPFR_RNDN); mpfr_add(r27631, r27626, r27630, MPFR_RNDN); mpfr_log(r27632, r27631, MPFR_RNDN); return mpfr_get_d(r27632, MPFR_RNDN); } static mpfr_t r27633, r27634, r27635, r27636, r27637, r27638, r27639, r27640, r27641, r27642, r27643, r27644, r27645, r27646, r27647, r27648, r27649, r27650, r27651, r27652, r27653, r27654, r27655, r27656, r27657, r27658, r27659, r27660, r27661, r27662, r27663, r27664, r27665, r27666; void setup_mpfr_f_fm() { mpfr_set_default_prec(2384); mpfr_init_set_str(r27633, "1/8", 10, MPFR_RNDN); mpfr_init(r27634); mpfr_init(r27635); mpfr_init(r27636); mpfr_init(r27637); mpfr_init_set_str(r27638, "1/2", 10, MPFR_RNDN); mpfr_init(r27639); mpfr_init(r27640); mpfr_init_set_str(r27641, "-5.494590308109969e-24", 10, MPFR_RNDN); mpfr_init(r27642); mpfr_init_set_str(r27643, "3/40", 10, MPFR_RNDN); mpfr_init_set_str(r27644, "5", 10, MPFR_RNDN); mpfr_init(r27645); mpfr_init(r27646); mpfr_init(r27647); mpfr_init_set_str(r27648, "1/6", 10, MPFR_RNDN); mpfr_init_set_str(r27649, "3", 10, MPFR_RNDN); mpfr_init(r27650); mpfr_init(r27651); mpfr_init(r27652); mpfr_init(r27653); mpfr_init(r27654); mpfr_init_set_str(r27655, "7.084021811928732e-306", 10, MPFR_RNDN); mpfr_init(r27656); mpfr_init(r27657); mpfr_init(r27658); mpfr_init(r27659); mpfr_init(r27660); mpfr_init_set_str(r27661, "0.13128748121120157", 10, MPFR_RNDN); mpfr_init(r27662); mpfr_init(r27663); mpfr_init(r27664); mpfr_init(r27665); mpfr_init(r27666); } double f_fm(double x) { ; mpfr_set_d(r27634, x, MPFR_RNDN); mpfr_div(r27635, r27633, r27634, MPFR_RNDN); mpfr_mul(r27636, r27634, r27634, MPFR_RNDN); mpfr_div(r27637, r27635, r27636, MPFR_RNDN); ; mpfr_div(r27639, r27638, r27634, MPFR_RNDN); mpfr_sub(r27640, r27637, r27639, MPFR_RNDN); ; mpfr_set_si(r27642, mpfr_cmp(r27640, r27641) <= 0, MPFR_RNDN); ; ; mpfr_pow(r27645, r27634, r27644, MPFR_RNDN); mpfr_mul(r27646, r27643, r27645, MPFR_RNDN); mpfr_add(r27647, r27646, r27634, MPFR_RNDN); ; ; mpfr_pow(r27650, r27634, r27649, MPFR_RNDN); mpfr_mul(r27651, r27648, r27650, MPFR_RNDN); mpfr_exp(r27652, r27651, MPFR_RNDN); mpfr_log(r27653, r27652, MPFR_RNDN); mpfr_sub(r27654, r27647, r27653, MPFR_RNDN); ; mpfr_set_si(r27656, mpfr_cmp(r27640, r27655) <= 0, MPFR_RNDN); mpfr_add(r27657, r27634, r27634, MPFR_RNDN); mpfr_add(r27658, r27657, r27639, MPFR_RNDN); mpfr_sub(r27659, r27658, r27637, MPFR_RNDN); mpfr_log(r27660, r27659, MPFR_RNDN); ; mpfr_set_si(r27662, mpfr_cmp(r27640, r27661) <= 0, MPFR_RNDN); mpfr_log(r27663, r27640, MPFR_RNDN); if (mpfr_get_si(r27662, MPFR_RNDN)) { mpfr_set(r27664, r27663, MPFR_RNDN); } else { mpfr_set(r27664, r27654, MPFR_RNDN); }; if (mpfr_get_si(r27656, MPFR_RNDN)) { mpfr_set(r27665, r27660, MPFR_RNDN); } else { mpfr_set(r27665, r27664, MPFR_RNDN); }; if (mpfr_get_si(r27642, MPFR_RNDN)) { mpfr_set(r27666, r27654, MPFR_RNDN); } else { mpfr_set(r27666, r27665, MPFR_RNDN); }; return mpfr_get_d(r27666, MPFR_RNDN); } static mpfr_t r27667, r27668, r27669, r27670, r27671, r27672, r27673, r27674, r27675, r27676, r27677, r27678, r27679, r27680, r27681, r27682, r27683, r27684, r27685, r27686, r27687, r27688, r27689, r27690, r27691, r27692, r27693, r27694, r27695, r27696, r27697, r27698, r27699, r27700; void setup_mpfr_f_dm() { mpfr_set_default_prec(2384); mpfr_init_set_str(r27667, "1/8", 10, MPFR_RNDN); mpfr_init(r27668); mpfr_init(r27669); mpfr_init(r27670); mpfr_init(r27671); mpfr_init_set_str(r27672, "1/2", 10, MPFR_RNDN); mpfr_init(r27673); mpfr_init(r27674); mpfr_init_set_str(r27675, "-5.494590308109969e-24", 10, MPFR_RNDN); mpfr_init(r27676); mpfr_init_set_str(r27677, "3/40", 10, MPFR_RNDN); mpfr_init_set_str(r27678, "5", 10, MPFR_RNDN); mpfr_init(r27679); mpfr_init(r27680); mpfr_init(r27681); mpfr_init_set_str(r27682, "1/6", 10, MPFR_RNDN); mpfr_init_set_str(r27683, "3", 10, MPFR_RNDN); mpfr_init(r27684); mpfr_init(r27685); mpfr_init(r27686); mpfr_init(r27687); mpfr_init(r27688); mpfr_init_set_str(r27689, "7.084021811928732e-306", 10, MPFR_RNDN); mpfr_init(r27690); mpfr_init(r27691); mpfr_init(r27692); mpfr_init(r27693); mpfr_init(r27694); mpfr_init_set_str(r27695, "0.13128748121120157", 10, MPFR_RNDN); mpfr_init(r27696); mpfr_init(r27697); mpfr_init(r27698); mpfr_init(r27699); mpfr_init(r27700); } double f_dm(double x) { ; mpfr_set_d(r27668, x, MPFR_RNDN); mpfr_div(r27669, r27667, r27668, MPFR_RNDN); mpfr_mul(r27670, r27668, r27668, MPFR_RNDN); mpfr_div(r27671, r27669, r27670, MPFR_RNDN); ; mpfr_div(r27673, r27672, r27668, MPFR_RNDN); mpfr_sub(r27674, r27671, r27673, MPFR_RNDN); ; mpfr_set_si(r27676, mpfr_cmp(r27674, r27675) <= 0, MPFR_RNDN); ; ; mpfr_pow(r27679, r27668, r27678, MPFR_RNDN); mpfr_mul(r27680, r27677, r27679, MPFR_RNDN); mpfr_add(r27681, r27680, r27668, MPFR_RNDN); ; ; mpfr_pow(r27684, r27668, r27683, MPFR_RNDN); mpfr_mul(r27685, r27682, r27684, MPFR_RNDN); mpfr_exp(r27686, r27685, MPFR_RNDN); mpfr_log(r27687, r27686, MPFR_RNDN); mpfr_sub(r27688, r27681, r27687, MPFR_RNDN); ; mpfr_set_si(r27690, mpfr_cmp(r27674, r27689) <= 0, MPFR_RNDN); mpfr_add(r27691, r27668, r27668, MPFR_RNDN); mpfr_add(r27692, r27691, r27673, MPFR_RNDN); mpfr_sub(r27693, r27692, r27671, MPFR_RNDN); mpfr_log(r27694, r27693, MPFR_RNDN); ; mpfr_set_si(r27696, mpfr_cmp(r27674, r27695) <= 0, MPFR_RNDN); mpfr_log(r27697, r27674, MPFR_RNDN); if (mpfr_get_si(r27696, MPFR_RNDN)) { mpfr_set(r27698, r27697, MPFR_RNDN); } else { mpfr_set(r27698, r27688, MPFR_RNDN); }; if (mpfr_get_si(r27690, MPFR_RNDN)) { mpfr_set(r27699, r27694, MPFR_RNDN); } else { mpfr_set(r27699, r27698, MPFR_RNDN); }; if (mpfr_get_si(r27676, MPFR_RNDN)) { mpfr_set(r27700, r27688, MPFR_RNDN); } else { mpfr_set(r27700, r27699, MPFR_RNDN); }; return mpfr_get_d(r27700, MPFR_RNDN); }