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

char *name = "exp2 (problem 3.3.7)";

double f_if(float x) {
        float r19772 = x;
        float r19773 = exp(r19772);
        float r19774 = 2.0f;
        float r19775 = r19773 - r19774;
        float r19776 = -r19772;
        float r19777 = exp(r19776);
        float r19778 = r19775 + r19777;
        return r19778;
}

double f_id(double x) {
        double r19779 = x;
        double r19780 = exp(r19779);
        double r19781 = 2.0;
        double r19782 = r19780 - r19781;
        double r19783 = -r19779;
        double r19784 = exp(r19783);
        double r19785 = r19782 + r19784;
        return r19785;
}


double f_of(float x) {
        float r19786 = 0.08333333333333333f;
        float r19787 = x;
        float r19788 = 4.0f;
        float r19789 = pow(r19787, r19788);
        float r19790 = r19786 * r19789;
        float r19791 = 0.002777777777777778f;
        float r19792 = 6.0f;
        float r19793 = pow(r19787, r19792);
        float r19794 = r19791 * r19793;
        float r19795 = r19787 * r19787;
        float r19796 = r19794 + r19795;
        float r19797 = r19790 + r19796;
        return r19797;
}

double f_od(double x) {
        double r19798 = 0.08333333333333333;
        double r19799 = x;
        double r19800 = 4.0;
        double r19801 = pow(r19799, r19800);
        double r19802 = r19798 * r19801;
        double r19803 = 0.002777777777777778;
        double r19804 = 6.0;
        double r19805 = pow(r19799, r19804);
        double r19806 = r19803 * r19805;
        double r19807 = r19799 * r19799;
        double r19808 = r19806 + r19807;
        double r19809 = r19802 + r19808;
        return r19809;
}

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 r19810, r19811, r19812, r19813, r19814, r19815, r19816;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r19810);
        mpfr_init(r19811);
        mpfr_init_set_str(r19812, "2", 10, MPFR_RNDN);
        mpfr_init(r19813);
        mpfr_init(r19814);
        mpfr_init(r19815);
        mpfr_init(r19816);
}

double f_im(double x) {
        mpfr_set_d(r19810, x, MPFR_RNDN);
        mpfr_exp(r19811, r19810, MPFR_RNDN);
        ;
        mpfr_sub(r19813, r19811, r19812, MPFR_RNDN);
        mpfr_neg(r19814, r19810, MPFR_RNDN);
        mpfr_exp(r19815, r19814, MPFR_RNDN);
        mpfr_add(r19816, r19813, r19815, MPFR_RNDN);
        return mpfr_get_d(r19816, MPFR_RNDN);
}

static mpfr_t r19817, r19818, r19819, r19820, r19821, r19822, r19823, r19824, r19825, r19826, r19827, r19828;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19817, "1/12", 10, MPFR_RNDN);
        mpfr_init(r19818);
        mpfr_init_set_str(r19819, "4", 10, MPFR_RNDN);
        mpfr_init(r19820);
        mpfr_init(r19821);
        mpfr_init_set_str(r19822, "1/360", 10, MPFR_RNDN);
        mpfr_init_set_str(r19823, "6", 10, MPFR_RNDN);
        mpfr_init(r19824);
        mpfr_init(r19825);
        mpfr_init(r19826);
        mpfr_init(r19827);
        mpfr_init(r19828);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r19818, x, MPFR_RNDN);
        ;
        mpfr_pow(r19820, r19818, r19819, MPFR_RNDN);
        mpfr_mul(r19821, r19817, r19820, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r19824, r19818, r19823, MPFR_RNDN);
        mpfr_mul(r19825, r19822, r19824, MPFR_RNDN);
        mpfr_sqr(r19826, r19818, MPFR_RNDN);
        mpfr_add(r19827, r19825, r19826, MPFR_RNDN);
        mpfr_add(r19828, r19821, r19827, MPFR_RNDN);
        return mpfr_get_d(r19828, MPFR_RNDN);
}

static mpfr_t r19829, r19830, r19831, r19832, r19833, r19834, r19835, r19836, r19837, r19838, r19839, r19840;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19829, "1/12", 10, MPFR_RNDN);
        mpfr_init(r19830);
        mpfr_init_set_str(r19831, "4", 10, MPFR_RNDN);
        mpfr_init(r19832);
        mpfr_init(r19833);
        mpfr_init_set_str(r19834, "1/360", 10, MPFR_RNDN);
        mpfr_init_set_str(r19835, "6", 10, MPFR_RNDN);
        mpfr_init(r19836);
        mpfr_init(r19837);
        mpfr_init(r19838);
        mpfr_init(r19839);
        mpfr_init(r19840);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r19830, x, MPFR_RNDN);
        ;
        mpfr_pow(r19832, r19830, r19831, MPFR_RNDN);
        mpfr_mul(r19833, r19829, r19832, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r19836, r19830, r19835, MPFR_RNDN);
        mpfr_mul(r19837, r19834, r19836, MPFR_RNDN);
        mpfr_sqr(r19838, r19830, MPFR_RNDN);
        mpfr_add(r19839, r19837, r19838, MPFR_RNDN);
        mpfr_add(r19840, r19833, r19839, MPFR_RNDN);
        return mpfr_get_d(r19840, MPFR_RNDN);
}