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

char *name = "Hyperbolic secant";

double f_if(float x) {
        float r20073 = 2;
        float r20074 = x;
        float r20075 = exp(r20074);
        float r20076 = -r20074;
        float r20077 = exp(r20076);
        float r20078 = r20075 + r20077;
        float r20079 = r20073 / r20078;
        return r20079;
}

double f_id(double x) {
        double r20080 = 2;
        double r20081 = x;
        double r20082 = exp(r20081);
        double r20083 = -r20081;
        double r20084 = exp(r20083);
        double r20085 = r20082 + r20084;
        double r20086 = r20080 / r20085;
        return r20086;
}


double f_of(float x) {
        float r20087 = 2;
        float r20088 = x;
        float r20089 = exp(r20088);
        float r20090 = -r20088;
        float r20091 = exp(r20090);
        float r20092 = r20089 + r20091;
        float r20093 = r20087 / r20092;
        float r20094 = cbrt(r20093);
        float r20095 = r20094 * r20094;
        float r20096 = r20095 * r20094;
        return r20096;
}

double f_od(double x) {
        double r20097 = 2;
        double r20098 = x;
        double r20099 = exp(r20098);
        double r20100 = -r20098;
        double r20101 = exp(r20100);
        double r20102 = r20099 + r20101;
        double r20103 = r20097 / r20102;
        double r20104 = cbrt(r20103);
        double r20105 = r20104 * r20104;
        double r20106 = r20105 * r20104;
        return r20106;
}

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 r20107, r20108, r20109, r20110, r20111, r20112, r20113;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20107, "2", 10, MPFR_RNDN);
        mpfr_init(r20108);
        mpfr_init(r20109);
        mpfr_init(r20110);
        mpfr_init(r20111);
        mpfr_init(r20112);
        mpfr_init(r20113);
}

double f_im(double x) {
        ;
        mpfr_set_d(r20108, x, MPFR_RNDN);
        mpfr_exp(r20109, r20108, MPFR_RNDN);
        mpfr_neg(r20110, r20108, MPFR_RNDN);
        mpfr_exp(r20111, r20110, MPFR_RNDN);
        mpfr_add(r20112, r20109, r20111, MPFR_RNDN);
        mpfr_div(r20113, r20107, r20112, MPFR_RNDN);
        return mpfr_get_d(r20113, MPFR_RNDN);
}

static mpfr_t r20114, r20115, r20116, r20117, r20118, r20119, r20120, r20121, r20122, r20123;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20114, "2", 10, MPFR_RNDN);
        mpfr_init(r20115);
        mpfr_init(r20116);
        mpfr_init(r20117);
        mpfr_init(r20118);
        mpfr_init(r20119);
        mpfr_init(r20120);
        mpfr_init(r20121);
        mpfr_init(r20122);
        mpfr_init(r20123);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r20115, x, MPFR_RNDN);
        mpfr_exp(r20116, r20115, MPFR_RNDN);
        mpfr_neg(r20117, r20115, MPFR_RNDN);
        mpfr_exp(r20118, r20117, MPFR_RNDN);
        mpfr_add(r20119, r20116, r20118, MPFR_RNDN);
        mpfr_div(r20120, r20114, r20119, MPFR_RNDN);
        mpfr_cbrt(r20121, r20120, MPFR_RNDN);
        mpfr_mul(r20122, r20121, r20121, MPFR_RNDN);
        mpfr_mul(r20123, r20122, r20121, MPFR_RNDN);
        return mpfr_get_d(r20123, MPFR_RNDN);
}

static mpfr_t r20124, r20125, r20126, r20127, r20128, r20129, r20130, r20131, r20132, r20133;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20124, "2", 10, MPFR_RNDN);
        mpfr_init(r20125);
        mpfr_init(r20126);
        mpfr_init(r20127);
        mpfr_init(r20128);
        mpfr_init(r20129);
        mpfr_init(r20130);
        mpfr_init(r20131);
        mpfr_init(r20132);
        mpfr_init(r20133);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r20125, x, MPFR_RNDN);
        mpfr_exp(r20126, r20125, MPFR_RNDN);
        mpfr_neg(r20127, r20125, MPFR_RNDN);
        mpfr_exp(r20128, r20127, MPFR_RNDN);
        mpfr_add(r20129, r20126, r20128, MPFR_RNDN);
        mpfr_div(r20130, r20124, r20129, MPFR_RNDN);
        mpfr_cbrt(r20131, r20130, MPFR_RNDN);
        mpfr_mul(r20132, r20131, r20131, MPFR_RNDN);
        mpfr_mul(r20133, r20132, r20131, MPFR_RNDN);
        return mpfr_get_d(r20133, MPFR_RNDN);
}