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

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

double f_if(float x) {
        float r9381 = 1;
        float r9382 = 2;
        float r9383 = r9381 / r9382;
        float r9384 = x;
        float r9385 = r9381 + r9384;
        float r9386 = r9381 - r9384;
        float r9387 = r9385 / r9386;
        float r9388 = log(r9387);
        float r9389 = r9383 * r9388;
        return r9389;
}

double f_id(double x) {
        double r9390 = 1;
        double r9391 = 2;
        double r9392 = r9390 / r9391;
        double r9393 = x;
        double r9394 = r9390 + r9393;
        double r9395 = r9390 - r9393;
        double r9396 = r9394 / r9395;
        double r9397 = log(r9396);
        double r9398 = r9392 * r9397;
        return r9398;
}


double f_of(float x) {
        float r9399 = 1;
        float r9400 = 2;
        float r9401 = r9399 / r9400;
        float r9402 = x;
        float r9403 = r9399 + r9402;
        float r9404 = r9399 - r9402;
        float r9405 = r9403 / r9404;
        float r9406 = log(r9405);
        float r9407 = r9401 * r9406;
        return r9407;
}

double f_od(double x) {
        double r9408 = 1;
        double r9409 = 2;
        double r9410 = r9408 / r9409;
        double r9411 = x;
        double r9412 = r9408 + r9411;
        double r9413 = r9408 - r9411;
        double r9414 = r9412 / r9413;
        double r9415 = log(r9414);
        double r9416 = r9410 * r9415;
        return r9416;
}

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 r9417, r9418, r9419, r9420, r9421, r9422, r9423, r9424, r9425;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r9417, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9418, "2", 10, MPFR_RNDN);
        mpfr_init(r9419);
        mpfr_init(r9420);
        mpfr_init(r9421);
        mpfr_init(r9422);
        mpfr_init(r9423);
        mpfr_init(r9424);
        mpfr_init(r9425);
}

double f_im(double x) {
        ;
        ;
        mpfr_div(r9419, r9417, r9418, MPFR_RNDN);
        mpfr_set_d(r9420, x, MPFR_RNDN);
        mpfr_add(r9421, r9417, r9420, MPFR_RNDN);
        mpfr_sub(r9422, r9417, r9420, MPFR_RNDN);
        mpfr_div(r9423, r9421, r9422, MPFR_RNDN);
        mpfr_log(r9424, r9423, MPFR_RNDN);
        mpfr_mul(r9425, r9419, r9424, MPFR_RNDN);
        return mpfr_get_d(r9425, MPFR_RNDN);
}

static mpfr_t r9426, r9427, r9428, r9429, r9430, r9431, r9432, r9433, r9434;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r9426, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9427, "2", 10, MPFR_RNDN);
        mpfr_init(r9428);
        mpfr_init(r9429);
        mpfr_init(r9430);
        mpfr_init(r9431);
        mpfr_init(r9432);
        mpfr_init(r9433);
        mpfr_init(r9434);
}

double f_fm(double x) {
        ;
        ;
        mpfr_div(r9428, r9426, r9427, MPFR_RNDN);
        mpfr_set_d(r9429, x, MPFR_RNDN);
        mpfr_add(r9430, r9426, r9429, MPFR_RNDN);
        mpfr_sub(r9431, r9426, r9429, MPFR_RNDN);
        mpfr_div(r9432, r9430, r9431, MPFR_RNDN);
        mpfr_log(r9433, r9432, MPFR_RNDN);
        mpfr_mul(r9434, r9428, r9433, MPFR_RNDN);
        return mpfr_get_d(r9434, MPFR_RNDN);
}

static mpfr_t r9435, r9436, r9437, r9438, r9439, r9440, r9441, r9442, r9443;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r9435, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9436, "2", 10, MPFR_RNDN);
        mpfr_init(r9437);
        mpfr_init(r9438);
        mpfr_init(r9439);
        mpfr_init(r9440);
        mpfr_init(r9441);
        mpfr_init(r9442);
        mpfr_init(r9443);
}

double f_dm(double x) {
        ;
        ;
        mpfr_div(r9437, r9435, r9436, MPFR_RNDN);
        mpfr_set_d(r9438, x, MPFR_RNDN);
        mpfr_add(r9439, r9435, r9438, MPFR_RNDN);
        mpfr_sub(r9440, r9435, r9438, MPFR_RNDN);
        mpfr_div(r9441, r9439, r9440, MPFR_RNDN);
        mpfr_log(r9442, r9441, MPFR_RNDN);
        mpfr_mul(r9443, r9437, r9442, MPFR_RNDN);
        return mpfr_get_d(r9443, MPFR_RNDN);
}