#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 r26391 = 1;
        float r26392 = x;
        float r26393 = cos(r26392);
        float r26394 = r26391 - r26393;
        float r26395 = sin(r26392);
        float r26396 = r26394 / r26395;
        return r26396;
}

double f_id(double x) {
        double r26397 = 1;
        double r26398 = x;
        double r26399 = cos(r26398);
        double r26400 = r26397 - r26399;
        double r26401 = sin(r26398);
        double r26402 = r26400 / r26401;
        return r26402;
}


double f_of(float x) {
        float r26403 = x;
        float r26404 = 2;
        float r26405 = r26403 / r26404;
        float r26406 = tan(r26405);
        return r26406;
}

double f_od(double x) {
        double r26407 = x;
        double r26408 = 2;
        double r26409 = r26407 / r26408;
        double r26410 = tan(r26409);
        return r26410;
}

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 r26411, r26412, r26413, r26414, r26415, r26416;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2640);
        mpfr_init_set_str(r26411, "1", 10, MPFR_RNDN);
        mpfr_init(r26412);
        mpfr_init(r26413);
        mpfr_init(r26414);
        mpfr_init(r26415);
        mpfr_init(r26416);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26412, x, MPFR_RNDN);
        mpfr_cos(r26413, r26412, MPFR_RNDN);
        mpfr_sub(r26414, r26411, r26413, MPFR_RNDN);
        mpfr_sin(r26415, r26412, MPFR_RNDN);
        mpfr_div(r26416, r26414, r26415, MPFR_RNDN);
        return mpfr_get_d(r26416, MPFR_RNDN);
}

static mpfr_t r26417, r26418, r26419, r26420;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r26417);
        mpfr_init_set_str(r26418, "2", 10, MPFR_RNDN);
        mpfr_init(r26419);
        mpfr_init(r26420);
}

double f_fm(double x) {
        mpfr_set_d(r26417, x, MPFR_RNDN);
        ;
        mpfr_div(r26419, r26417, r26418, MPFR_RNDN);
        mpfr_tan(r26420, r26419, MPFR_RNDN);
        return mpfr_get_d(r26420, MPFR_RNDN);
}

static mpfr_t r26421, r26422, r26423, r26424;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2640);
        mpfr_init(r26421);
        mpfr_init_set_str(r26422, "2", 10, MPFR_RNDN);
        mpfr_init(r26423);
        mpfr_init(r26424);
}

double f_dm(double x) {
        mpfr_set_d(r26421, x, MPFR_RNDN);
        ;
        mpfr_div(r26423, r26421, r26422, MPFR_RNDN);
        mpfr_tan(r26424, r26423, MPFR_RNDN);
        return mpfr_get_d(r26424, MPFR_RNDN);
}