#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Hyperbolic arc-(co)secant";

double f_if(float x) {
        float r25454 = 1;
        float r25455 = x;
        float r25456 = r25454 / r25455;
        float r25457 = r25455 * r25455;
        float r25458 = r25454 - r25457;
        float r25459 = sqrt(r25458);
        float r25460 = r25459 / r25455;
        float r25461 = r25456 + r25460;
        float r25462 = log(r25461);
        return r25462;
}

double f_id(double x) {
        double r25463 = 1;
        double r25464 = x;
        double r25465 = r25463 / r25464;
        double r25466 = r25464 * r25464;
        double r25467 = r25463 - r25466;
        double r25468 = sqrt(r25467);
        double r25469 = r25468 / r25464;
        double r25470 = r25465 + r25469;
        double r25471 = log(r25470);
        return r25471;
}


double f_of(float x) {
        float r25472 = 1;
        float r25473 = x;
        float r25474 = r25472 / r25473;
        float r25475 = r25473 * r25473;
        float r25476 = r25472 - r25475;
        float r25477 = sqrt(r25476);
        float r25478 = r25477 / r25473;
        float r25479 = r25474 + r25478;
        float r25480 = log(r25479);
        return r25480;
}

double f_od(double x) {
        double r25481 = 1;
        double r25482 = x;
        double r25483 = r25481 / r25482;
        double r25484 = r25482 * r25482;
        double r25485 = r25481 - r25484;
        double r25486 = sqrt(r25485);
        double r25487 = r25486 / r25482;
        double r25488 = r25483 + r25487;
        double r25489 = log(r25488);
        return r25489;
}

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 r25490, r25491, r25492, r25493, r25494, r25495, r25496, r25497, r25498;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r25490, "1", 10, MPFR_RNDN);
        mpfr_init(r25491);
        mpfr_init(r25492);
        mpfr_init(r25493);
        mpfr_init(r25494);
        mpfr_init(r25495);
        mpfr_init(r25496);
        mpfr_init(r25497);
        mpfr_init(r25498);
}

double f_im(double x) {
        ;
        mpfr_set_d(r25491, x, MPFR_RNDN);
        mpfr_div(r25492, r25490, r25491, MPFR_RNDN);
        mpfr_mul(r25493, r25491, r25491, MPFR_RNDN);
        mpfr_sub(r25494, r25490, r25493, MPFR_RNDN);
        mpfr_sqrt(r25495, r25494, MPFR_RNDN);
        mpfr_div(r25496, r25495, r25491, MPFR_RNDN);
        mpfr_add(r25497, r25492, r25496, MPFR_RNDN);
        mpfr_log(r25498, r25497, MPFR_RNDN);
        return mpfr_get_d(r25498, MPFR_RNDN);
}

static mpfr_t r25499, r25500, r25501, r25502, r25503, r25504, r25505, r25506, r25507;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r25499, "1", 10, MPFR_RNDN);
        mpfr_init(r25500);
        mpfr_init(r25501);
        mpfr_init(r25502);
        mpfr_init(r25503);
        mpfr_init(r25504);
        mpfr_init(r25505);
        mpfr_init(r25506);
        mpfr_init(r25507);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r25500, x, MPFR_RNDN);
        mpfr_div(r25501, r25499, r25500, MPFR_RNDN);
        mpfr_mul(r25502, r25500, r25500, MPFR_RNDN);
        mpfr_sub(r25503, r25499, r25502, MPFR_RNDN);
        mpfr_sqrt(r25504, r25503, MPFR_RNDN);
        mpfr_div(r25505, r25504, r25500, MPFR_RNDN);
        mpfr_add(r25506, r25501, r25505, MPFR_RNDN);
        mpfr_log(r25507, r25506, MPFR_RNDN);
        return mpfr_get_d(r25507, MPFR_RNDN);
}

static mpfr_t r25508, r25509, r25510, r25511, r25512, r25513, r25514, r25515, r25516;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r25508, "1", 10, MPFR_RNDN);
        mpfr_init(r25509);
        mpfr_init(r25510);
        mpfr_init(r25511);
        mpfr_init(r25512);
        mpfr_init(r25513);
        mpfr_init(r25514);
        mpfr_init(r25515);
        mpfr_init(r25516);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r25509, x, MPFR_RNDN);
        mpfr_div(r25510, r25508, r25509, MPFR_RNDN);
        mpfr_mul(r25511, r25509, r25509, MPFR_RNDN);
        mpfr_sub(r25512, r25508, r25511, MPFR_RNDN);
        mpfr_sqrt(r25513, r25512, MPFR_RNDN);
        mpfr_div(r25514, r25513, r25509, MPFR_RNDN);
        mpfr_add(r25515, r25510, r25514, MPFR_RNDN);
        mpfr_log(r25516, r25515, MPFR_RNDN);
        return mpfr_get_d(r25516, MPFR_RNDN);
}