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

char *name = "expq2 (section 3.11)";

double f_if(float x) {
        float r20353 = x;
        float r20354 = exp(r20353);
        float r20355 = 1.0f;
        float r20356 = r20354 - r20355;
        float r20357 = r20354 / r20356;
        return r20357;
}

double f_id(double x) {
        double r20358 = x;
        double r20359 = exp(r20358);
        double r20360 = 1.0;
        double r20361 = r20359 - r20360;
        double r20362 = r20359 / r20361;
        return r20362;
}


double f_of(float x) {
        float r20363 = x;
        float r20364 = -0.0007664512124618743f;
        bool r20365 = r20363 <= r20364;
        float r20366 = 1.0f;
        float r20367 = -r20363;
        float r20368 = exp(r20367);
        float r20369 = r20366 - r20368;
        float r20370 = r20366 / r20369;
        float r20371 = 0.5f;
        float r20372 = r20366 / r20363;
        float r20373 = 0.08333333333333333f;
        float r20374 = r20373 * r20363;
        float r20375 = r20372 + r20374;
        float r20376 = r20371 + r20375;
        float r20377 = r20365 ? r20370 : r20376;
        return r20377;
}

double f_od(double x) {
        double r20378 = x;
        double r20379 = -0.0007664512124618743;
        bool r20380 = r20378 <= r20379;
        double r20381 = 1.0;
        double r20382 = -r20378;
        double r20383 = exp(r20382);
        double r20384 = r20381 - r20383;
        double r20385 = r20381 / r20384;
        double r20386 = 0.5;
        double r20387 = r20381 / r20378;
        double r20388 = 0.08333333333333333;
        double r20389 = r20388 * r20378;
        double r20390 = r20387 + r20389;
        double r20391 = r20386 + r20390;
        double r20392 = r20380 ? r20385 : r20391;
        return r20392;
}

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 r20393, r20394, r20395, r20396, r20397;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20393);
        mpfr_init(r20394);
        mpfr_init_set_str(r20395, "1", 10, MPFR_RNDN);
        mpfr_init(r20396);
        mpfr_init(r20397);
}

double f_im(double x) {
        mpfr_set_d(r20393, x, MPFR_RNDN);
        mpfr_exp(r20394, r20393, MPFR_RNDN);
        ;
        mpfr_sub(r20396, r20394, r20395, MPFR_RNDN);
        mpfr_div(r20397, r20394, r20396, MPFR_RNDN);
        return mpfr_get_d(r20397, MPFR_RNDN);
}

static mpfr_t r20398, r20399, r20400, r20401, r20402, r20403, r20404, r20405, r20406, r20407, r20408, r20409, r20410, r20411, r20412;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20398);
        mpfr_init_set_str(r20399, "-0.0007664512124618743", 10, MPFR_RNDN);
        mpfr_init(r20400);
        mpfr_init_set_str(r20401, "1", 10, MPFR_RNDN);
        mpfr_init(r20402);
        mpfr_init(r20403);
        mpfr_init(r20404);
        mpfr_init(r20405);
        mpfr_init_set_str(r20406, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20407);
        mpfr_init_set_str(r20408, "1/12", 10, MPFR_RNDN);
        mpfr_init(r20409);
        mpfr_init(r20410);
        mpfr_init(r20411);
        mpfr_init(r20412);
}

double f_fm(double x) {
        mpfr_set_d(r20398, x, MPFR_RNDN);
        ;
        mpfr_set_si(r20400, mpfr_cmp(r20398, r20399) <= 0, MPFR_RNDN);
        ;
        mpfr_neg(r20402, r20398, MPFR_RNDN);
        mpfr_exp(r20403, r20402, MPFR_RNDN);
        mpfr_sub(r20404, r20401, r20403, MPFR_RNDN);
        mpfr_div(r20405, r20401, r20404, MPFR_RNDN);
        ;
        mpfr_div(r20407, r20401, r20398, MPFR_RNDN);
        ;
        mpfr_mul(r20409, r20408, r20398, MPFR_RNDN);
        mpfr_add(r20410, r20407, r20409, MPFR_RNDN);
        mpfr_add(r20411, r20406, r20410, MPFR_RNDN);
        if (mpfr_get_si(r20400, MPFR_RNDN)) { mpfr_set(r20412, r20405, MPFR_RNDN); } else { mpfr_set(r20412, r20411, MPFR_RNDN); };
        return mpfr_get_d(r20412, MPFR_RNDN);
}

static mpfr_t r20413, r20414, r20415, r20416, r20417, r20418, r20419, r20420, r20421, r20422, r20423, r20424, r20425, r20426, r20427;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20413);
        mpfr_init_set_str(r20414, "-0.0007664512124618743", 10, MPFR_RNDN);
        mpfr_init(r20415);
        mpfr_init_set_str(r20416, "1", 10, MPFR_RNDN);
        mpfr_init(r20417);
        mpfr_init(r20418);
        mpfr_init(r20419);
        mpfr_init(r20420);
        mpfr_init_set_str(r20421, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20422);
        mpfr_init_set_str(r20423, "1/12", 10, MPFR_RNDN);
        mpfr_init(r20424);
        mpfr_init(r20425);
        mpfr_init(r20426);
        mpfr_init(r20427);
}

double f_dm(double x) {
        mpfr_set_d(r20413, x, MPFR_RNDN);
        ;
        mpfr_set_si(r20415, mpfr_cmp(r20413, r20414) <= 0, MPFR_RNDN);
        ;
        mpfr_neg(r20417, r20413, MPFR_RNDN);
        mpfr_exp(r20418, r20417, MPFR_RNDN);
        mpfr_sub(r20419, r20416, r20418, MPFR_RNDN);
        mpfr_div(r20420, r20416, r20419, MPFR_RNDN);
        ;
        mpfr_div(r20422, r20416, r20413, MPFR_RNDN);
        ;
        mpfr_mul(r20424, r20423, r20413, MPFR_RNDN);
        mpfr_add(r20425, r20422, r20424, MPFR_RNDN);
        mpfr_add(r20426, r20421, r20425, MPFR_RNDN);
        if (mpfr_get_si(r20415, MPFR_RNDN)) { mpfr_set(r20427, r20420, MPFR_RNDN); } else { mpfr_set(r20427, r20426, MPFR_RNDN); };
        return mpfr_get_d(r20427, MPFR_RNDN);
}