#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 r26131 = 1;
        float r26132 = x;
        float r26133 = cos(r26132);
        float r26134 = r26131 - r26133;
        float r26135 = sin(r26132);
        float r26136 = r26134 / r26135;
        return r26136;
}

double f_id(double x) {
        double r26137 = 1;
        double r26138 = x;
        double r26139 = cos(r26138);
        double r26140 = r26137 - r26139;
        double r26141 = sin(r26138);
        double r26142 = r26140 / r26141;
        return r26142;
}


double f_of(float x) {
        float r26143 = x;
        float r26144 = 2;
        float r26145 = r26143 / r26144;
        float r26146 = tan(r26145);
        return r26146;
}

double f_od(double x) {
        double r26147 = x;
        double r26148 = 2;
        double r26149 = r26147 / r26148;
        double r26150 = tan(r26149);
        return r26150;
}

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 r26151, r26152, r26153, r26154, r26155, r26156;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2640);
        mpfr_init_set_str(r26151, "1", 10, MPFR_RNDN);
        mpfr_init(r26152);
        mpfr_init(r26153);
        mpfr_init(r26154);
        mpfr_init(r26155);
        mpfr_init(r26156);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26152, x, MPFR_RNDN);
        mpfr_cos(r26153, r26152, MPFR_RNDN);
        mpfr_sub(r26154, r26151, r26153, MPFR_RNDN);
        mpfr_sin(r26155, r26152, MPFR_RNDN);
        mpfr_div(r26156, r26154, r26155, MPFR_RNDN);
        return mpfr_get_d(r26156, MPFR_RNDN);
}

static mpfr_t r26157, r26158, r26159, r26160;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r26157);
        mpfr_init_set_str(r26158, "2", 10, MPFR_RNDN);
        mpfr_init(r26159);
        mpfr_init(r26160);
}

double f_fm(double x) {
        mpfr_set_d(r26157, x, MPFR_RNDN);
        ;
        mpfr_div(r26159, r26157, r26158, MPFR_RNDN);
        mpfr_tan(r26160, r26159, MPFR_RNDN);
        return mpfr_get_d(r26160, MPFR_RNDN);
}

static mpfr_t r26161, r26162, r26163, r26164;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r26161);
        mpfr_init_set_str(r26162, "2", 10, MPFR_RNDN);
        mpfr_init(r26163);
        mpfr_init(r26164);
}

double f_dm(double x) {
        mpfr_set_d(r26161, x, MPFR_RNDN);
        ;
        mpfr_div(r26163, r26161, r26162, MPFR_RNDN);
        mpfr_tan(r26164, r26163, MPFR_RNDN);
        return mpfr_get_d(r26164, MPFR_RNDN);
}