#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 r20348 = x;
        float r20349 = exp(r20348);
        float r20350 = 2.0f;
        float r20351 = r20349 - r20350;
        float r20352 = -r20348;
        float r20353 = exp(r20352);
        float r20354 = r20351 + r20353;
        return r20354;
}

double f_id(double x) {
        double r20355 = x;
        double r20356 = exp(r20355);
        double r20357 = 2.0;
        double r20358 = r20356 - r20357;
        double r20359 = -r20355;
        double r20360 = exp(r20359);
        double r20361 = r20358 + r20360;
        return r20361;
}


double f_of(float x) {
        float r20362 = x;
        float r20363 = r20362 * r20362;
        float r20364 = 0.08333333333333333f;
        float r20365 = 4.0f;
        float r20366 = pow(r20362, r20365);
        float r20367 = r20364 * r20366;
        float r20368 = 0.002777777777777778f;
        float r20369 = 6.0f;
        float r20370 = pow(r20362, r20369);
        float r20371 = r20368 * r20370;
        float r20372 = r20367 + r20371;
        float r20373 = r20363 + r20372;
        return r20373;
}

double f_od(double x) {
        double r20374 = x;
        double r20375 = r20374 * r20374;
        double r20376 = 0.08333333333333333;
        double r20377 = 4.0;
        double r20378 = pow(r20374, r20377);
        double r20379 = r20376 * r20378;
        double r20380 = 0.002777777777777778;
        double r20381 = 6.0;
        double r20382 = pow(r20374, r20381);
        double r20383 = r20380 * r20382;
        double r20384 = r20379 + r20383;
        double r20385 = r20375 + r20384;
        return r20385;
}

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 r20386, r20387, r20388, r20389, r20390, r20391, r20392;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20386);
        mpfr_init(r20387);
        mpfr_init_set_str(r20388, "2", 10, MPFR_RNDN);
        mpfr_init(r20389);
        mpfr_init(r20390);
        mpfr_init(r20391);
        mpfr_init(r20392);
}

double f_im(double x) {
        mpfr_set_d(r20386, x, MPFR_RNDN);
        mpfr_exp(r20387, r20386, MPFR_RNDN);
        ;
        mpfr_sub(r20389, r20387, r20388, MPFR_RNDN);
        mpfr_neg(r20390, r20386, MPFR_RNDN);
        mpfr_exp(r20391, r20390, MPFR_RNDN);
        mpfr_add(r20392, r20389, r20391, MPFR_RNDN);
        return mpfr_get_d(r20392, MPFR_RNDN);
}

static mpfr_t r20393, r20394, r20395, r20396, r20397, r20398, r20399, r20400, r20401, r20402, r20403, r20404;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20393);
        mpfr_init(r20394);
        mpfr_init_set_str(r20395, "1/12", 10, MPFR_RNDN);
        mpfr_init_set_str(r20396, "4", 10, MPFR_RNDN);
        mpfr_init(r20397);
        mpfr_init(r20398);
        mpfr_init_set_str(r20399, "1/360", 10, MPFR_RNDN);
        mpfr_init_set_str(r20400, "6", 10, MPFR_RNDN);
        mpfr_init(r20401);
        mpfr_init(r20402);
        mpfr_init(r20403);
        mpfr_init(r20404);
}

double f_fm(double x) {
        mpfr_set_d(r20393, x, MPFR_RNDN);
        mpfr_sqr(r20394, r20393, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r20397, r20393, r20396, MPFR_RNDN);
        mpfr_mul(r20398, r20395, r20397, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r20401, r20393, r20400, MPFR_RNDN);
        mpfr_mul(r20402, r20399, r20401, MPFR_RNDN);
        mpfr_add(r20403, r20398, r20402, MPFR_RNDN);
        mpfr_add(r20404, r20394, r20403, MPFR_RNDN);
        return mpfr_get_d(r20404, MPFR_RNDN);
}

static mpfr_t r20405, r20406, r20407, r20408, r20409, r20410, r20411, r20412, r20413, r20414, r20415, r20416;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20405);
        mpfr_init(r20406);
        mpfr_init_set_str(r20407, "1/12", 10, MPFR_RNDN);
        mpfr_init_set_str(r20408, "4", 10, MPFR_RNDN);
        mpfr_init(r20409);
        mpfr_init(r20410);
        mpfr_init_set_str(r20411, "1/360", 10, MPFR_RNDN);
        mpfr_init_set_str(r20412, "6", 10, MPFR_RNDN);
        mpfr_init(r20413);
        mpfr_init(r20414);
        mpfr_init(r20415);
        mpfr_init(r20416);
}

double f_dm(double x) {
        mpfr_set_d(r20405, x, MPFR_RNDN);
        mpfr_sqr(r20406, r20405, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r20409, r20405, r20408, MPFR_RNDN);
        mpfr_mul(r20410, r20407, r20409, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r20413, r20405, r20412, MPFR_RNDN);
        mpfr_mul(r20414, r20411, r20413, MPFR_RNDN);
        mpfr_add(r20415, r20410, r20414, MPFR_RNDN);
        mpfr_add(r20416, r20406, r20415, MPFR_RNDN);
        return mpfr_get_d(r20416, MPFR_RNDN);
}