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

char *name = "Hyperbolic sine";

double f_if(float x) {
        float r25119 = x;
        float r25120 = exp(r25119);
        float r25121 = -r25119;
        float r25122 = exp(r25121);
        float r25123 = r25120 - r25122;
        float r25124 = 2;
        float r25125 = r25123 / r25124;
        return r25125;
}

double f_id(double x) {
        double r25126 = x;
        double r25127 = exp(r25126);
        double r25128 = -r25126;
        double r25129 = exp(r25128);
        double r25130 = r25127 - r25129;
        double r25131 = 2;
        double r25132 = r25130 / r25131;
        return r25132;
}


double f_of(float x) {
        float r25133 = x;
        float r25134 = 1/3;
        float r25135 = r25133 * r25133;
        float r25136 = 2;
        float r25137 = fma(r25134, r25135, r25136);
        float r25138 = 1/60;
        float r25139 = 5;
        float r25140 = pow(r25133, r25139);
        float r25141 = r25138 * r25140;
        float r25142 = fma(r25133, r25137, r25141);
        float r25143 = r25142 / r25136;
        return r25143;
}

double f_od(double x) {
        double r25144 = x;
        double r25145 = 1/3;
        double r25146 = r25144 * r25144;
        double r25147 = 2;
        double r25148 = fma(r25145, r25146, r25147);
        double r25149 = 1/60;
        double r25150 = 5;
        double r25151 = pow(r25144, r25150);
        double r25152 = r25149 * r25151;
        double r25153 = fma(r25144, r25148, r25152);
        double r25154 = r25153 / r25147;
        return r25154;
}

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 r25155, r25156, r25157, r25158, r25159, r25160, r25161;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r25155);
        mpfr_init(r25156);
        mpfr_init(r25157);
        mpfr_init(r25158);
        mpfr_init(r25159);
        mpfr_init_set_str(r25160, "2", 10, MPFR_RNDN);
        mpfr_init(r25161);
}

double f_im(double x) {
        mpfr_set_d(r25155, x, MPFR_RNDN);
        mpfr_exp(r25156, r25155, MPFR_RNDN);
        mpfr_neg(r25157, r25155, MPFR_RNDN);
        mpfr_exp(r25158, r25157, MPFR_RNDN);
        mpfr_sub(r25159, r25156, r25158, MPFR_RNDN);
        ;
        mpfr_div(r25161, r25159, r25160, MPFR_RNDN);
        return mpfr_get_d(r25161, MPFR_RNDN);
}

static mpfr_t r25162, r25163, r25164, r25165, r25166, r25167, r25168, r25169, r25170, r25171, r25172;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r25162);
        mpfr_init_set_str(r25163, "1/3", 10, MPFR_RNDN);
        mpfr_init(r25164);
        mpfr_init_set_str(r25165, "2", 10, MPFR_RNDN);
        mpfr_init(r25166);
        mpfr_init_set_str(r25167, "1/60", 10, MPFR_RNDN);
        mpfr_init_set_str(r25168, "5", 10, MPFR_RNDN);
        mpfr_init(r25169);
        mpfr_init(r25170);
        mpfr_init(r25171);
        mpfr_init(r25172);
}

double f_fm(double x) {
        mpfr_set_d(r25162, x, MPFR_RNDN);
        ;
        mpfr_mul(r25164, r25162, r25162, MPFR_RNDN);
        ;
        mpfr_fma(r25166, r25163, r25164, r25165, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r25169, r25162, r25168, MPFR_RNDN);
        mpfr_mul(r25170, r25167, r25169, MPFR_RNDN);
        mpfr_fma(r25171, r25162, r25166, r25170, MPFR_RNDN);
        mpfr_div(r25172, r25171, r25165, MPFR_RNDN);
        return mpfr_get_d(r25172, MPFR_RNDN);
}

static mpfr_t r25173, r25174, r25175, r25176, r25177, r25178, r25179, r25180, r25181, r25182, r25183;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r25173);
        mpfr_init_set_str(r25174, "1/3", 10, MPFR_RNDN);
        mpfr_init(r25175);
        mpfr_init_set_str(r25176, "2", 10, MPFR_RNDN);
        mpfr_init(r25177);
        mpfr_init_set_str(r25178, "1/60", 10, MPFR_RNDN);
        mpfr_init_set_str(r25179, "5", 10, MPFR_RNDN);
        mpfr_init(r25180);
        mpfr_init(r25181);
        mpfr_init(r25182);
        mpfr_init(r25183);
}

double f_dm(double x) {
        mpfr_set_d(r25173, x, MPFR_RNDN);
        ;
        mpfr_mul(r25175, r25173, r25173, MPFR_RNDN);
        ;
        mpfr_fma(r25177, r25174, r25175, r25176, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r25180, r25173, r25179, MPFR_RNDN);
        mpfr_mul(r25181, r25178, r25180, MPFR_RNDN);
        mpfr_fma(r25182, r25173, r25177, r25181, MPFR_RNDN);
        mpfr_div(r25183, r25182, r25176, MPFR_RNDN);
        return mpfr_get_d(r25183, MPFR_RNDN);
}