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

char *name = "tanhf (example 3.4)";

double f_if(float x) {
        float r9421 = 1.0f;
        float r9422 = x;
        float r9423 = cos(r9422);
        float r9424 = r9421 - r9423;
        float r9425 = sin(r9422);
        float r9426 = r9424 / r9425;
        return r9426;
}

double f_id(double x) {
        double r9427 = 1.0;
        double r9428 = x;
        double r9429 = cos(r9428);
        double r9430 = r9427 - r9429;
        double r9431 = sin(r9428);
        double r9432 = r9430 / r9431;
        return r9432;
}


double f_of(float x) {
        float r9433 = x;
        float r9434 = 2.0f;
        float r9435 = r9433 / r9434;
        float r9436 = tan(r9435);
        return r9436;
}

double f_od(double x) {
        double r9437 = x;
        double r9438 = 2.0;
        double r9439 = r9437 / r9438;
        double r9440 = tan(r9439);
        return r9440;
}

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 r9441, r9442, r9443, r9444, r9445, r9446;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2640);
        mpfr_init_set_str(r9441, "1", 10, MPFR_RNDN);
        mpfr_init(r9442);
        mpfr_init(r9443);
        mpfr_init(r9444);
        mpfr_init(r9445);
        mpfr_init(r9446);
}

double f_im(double x) {
        ;
        mpfr_set_d(r9442, x, MPFR_RNDN);
        mpfr_cos(r9443, r9442, MPFR_RNDN);
        mpfr_sub(r9444, r9441, r9443, MPFR_RNDN);
        mpfr_sin(r9445, r9442, MPFR_RNDN);
        mpfr_div(r9446, r9444, r9445, MPFR_RNDN);
        return mpfr_get_d(r9446, MPFR_RNDN);
}

static mpfr_t r9447, r9448, r9449, r9450;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r9447);
        mpfr_init_set_str(r9448, "2", 10, MPFR_RNDN);
        mpfr_init(r9449);
        mpfr_init(r9450);
}

double f_fm(double x) {
        mpfr_set_d(r9447, x, MPFR_RNDN);
        ;
        mpfr_div(r9449, r9447, r9448, MPFR_RNDN);
        mpfr_tan(r9450, r9449, MPFR_RNDN);
        return mpfr_get_d(r9450, MPFR_RNDN);
}

static mpfr_t r9451, r9452, r9453, r9454;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r9451);
        mpfr_init_set_str(r9452, "2", 10, MPFR_RNDN);
        mpfr_init(r9453);
        mpfr_init(r9454);
}

double f_dm(double x) {
        mpfr_set_d(r9451, x, MPFR_RNDN);
        ;
        mpfr_div(r9453, r9451, r9452, MPFR_RNDN);
        mpfr_tan(r9454, r9453, MPFR_RNDN);
        return mpfr_get_d(r9454, MPFR_RNDN);
}