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

char *name = "Hyperbolic tangent";

double f_if(float x) {
        float r18455 = x;
        float r18456 = exp(r18455);
        float r18457 = -r18455;
        float r18458 = exp(r18457);
        float r18459 = r18456 - r18458;
        float r18460 = r18456 + r18458;
        float r18461 = r18459 / r18460;
        return r18461;
}

double f_id(double x) {
        double r18462 = x;
        double r18463 = exp(r18462);
        double r18464 = -r18462;
        double r18465 = exp(r18464);
        double r18466 = r18463 - r18465;
        double r18467 = r18463 + r18465;
        double r18468 = r18466 / r18467;
        return r18468;
}


double f_of(float x) {
        float r18469 = x;
        float r18470 = tanh(r18469);
        return r18470;
}

double f_od(double x) {
        double r18471 = x;
        double r18472 = tanh(r18471);
        return r18472;
}

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 r18473, r18474, r18475, r18476, r18477, r18478, r18479;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r18473);
        mpfr_init(r18474);
        mpfr_init(r18475);
        mpfr_init(r18476);
        mpfr_init(r18477);
        mpfr_init(r18478);
        mpfr_init(r18479);
}

double f_im(double x) {
        mpfr_set_d(r18473, x, MPFR_RNDN);
        mpfr_exp(r18474, r18473, MPFR_RNDN);
        mpfr_neg(r18475, r18473, MPFR_RNDN);
        mpfr_exp(r18476, r18475, MPFR_RNDN);
        mpfr_sub(r18477, r18474, r18476, MPFR_RNDN);
        mpfr_add(r18478, r18474, r18476, MPFR_RNDN);
        mpfr_div(r18479, r18477, r18478, MPFR_RNDN);
        return mpfr_get_d(r18479, MPFR_RNDN);
}

static mpfr_t r18480, r18481;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r18480);
        mpfr_init(r18481);
}

double f_fm(double x) {
        mpfr_set_d(r18480, x, MPFR_RNDN);
        mpfr_tanh(r18481, r18480, MPFR_RNDN);
        return mpfr_get_d(r18481, MPFR_RNDN);
}

static mpfr_t r18482, r18483;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r18482);
        mpfr_init(r18483);
}

double f_dm(double x) {
        mpfr_set_d(r18482, x, MPFR_RNDN);
        mpfr_tanh(r18483, r18482, MPFR_RNDN);
        return mpfr_get_d(r18483, MPFR_RNDN);
}