#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 r9424 = 1.0f;
        float r9425 = x;
        float r9426 = cos(r9425);
        float r9427 = r9424 - r9426;
        float r9428 = sin(r9425);
        float r9429 = r9427 / r9428;
        return r9429;
}

double f_id(double x) {
        double r9430 = 1.0;
        double r9431 = x;
        double r9432 = cos(r9431);
        double r9433 = r9430 - r9432;
        double r9434 = sin(r9431);
        double r9435 = r9433 / r9434;
        return r9435;
}


double f_of(float x) {
        float r9436 = x;
        float r9437 = 2.0f;
        float r9438 = r9436 / r9437;
        float r9439 = tan(r9438);
        return r9439;
}

double f_od(double x) {
        double r9440 = x;
        double r9441 = 2.0;
        double r9442 = r9440 / r9441;
        double r9443 = tan(r9442);
        return r9443;
}

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 r9444, r9445, r9446, r9447, r9448, r9449;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2640);
        mpfr_init_set_str(r9444, "1", 10, MPFR_RNDN);
        mpfr_init(r9445);
        mpfr_init(r9446);
        mpfr_init(r9447);
        mpfr_init(r9448);
        mpfr_init(r9449);
}

double f_im(double x) {
        ;
        mpfr_set_d(r9445, x, MPFR_RNDN);
        mpfr_cos(r9446, r9445, MPFR_RNDN);
        mpfr_sub(r9447, r9444, r9446, MPFR_RNDN);
        mpfr_sin(r9448, r9445, MPFR_RNDN);
        mpfr_div(r9449, r9447, r9448, MPFR_RNDN);
        return mpfr_get_d(r9449, MPFR_RNDN);
}

static mpfr_t r9450, r9451, r9452, r9453;

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

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

static mpfr_t r9454, r9455, r9456, r9457;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r9454);
        mpfr_init_set_str(r9455, "2", 10, MPFR_RNDN);
        mpfr_init(r9456);
        mpfr_init(r9457);
}

double f_dm(double x) {
        mpfr_set_d(r9454, x, MPFR_RNDN);
        ;
        mpfr_div(r9456, r9454, r9455, MPFR_RNDN);
        mpfr_tan(r9457, r9456, MPFR_RNDN);
        return mpfr_get_d(r9457, MPFR_RNDN);
}