#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 r20356 = x;
        float r20357 = exp(r20356);
        float r20358 = 1.0f;
        float r20359 = r20357 - r20358;
        float r20360 = r20357 / r20359;
        return r20360;
}

double f_id(double x) {
        double r20361 = x;
        double r20362 = exp(r20361);
        double r20363 = 1.0;
        double r20364 = r20362 - r20363;
        double r20365 = r20362 / r20364;
        return r20365;
}


double f_of(float x) {
        float r20366 = x;
        float r20367 = -2.3416378887887987e-05f;
        bool r20368 = r20366 <= r20367;
        float r20369 = 1.0f;
        float r20370 = -r20366;
        float r20371 = exp(r20370);
        float r20372 = r20369 - r20371;
        float r20373 = r20369 / r20372;
        float r20374 = 0.5f;
        float r20375 = r20369 / r20366;
        float r20376 = 0.08333333333333333f;
        float r20377 = r20376 * r20366;
        float r20378 = r20375 + r20377;
        float r20379 = r20374 + r20378;
        float r20380 = r20368 ? r20373 : r20379;
        return r20380;
}

double f_od(double x) {
        double r20381 = x;
        double r20382 = -2.3416378887887987e-05;
        bool r20383 = r20381 <= r20382;
        double r20384 = 1.0;
        double r20385 = -r20381;
        double r20386 = exp(r20385);
        double r20387 = r20384 - r20386;
        double r20388 = r20384 / r20387;
        double r20389 = 0.5;
        double r20390 = r20384 / r20381;
        double r20391 = 0.08333333333333333;
        double r20392 = r20391 * r20381;
        double r20393 = r20390 + r20392;
        double r20394 = r20389 + r20393;
        double r20395 = r20383 ? r20388 : r20394;
        return r20395;
}

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 r20396, r20397, r20398, r20399, r20400;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20396);
        mpfr_init(r20397);
        mpfr_init_set_str(r20398, "1", 10, MPFR_RNDN);
        mpfr_init(r20399);
        mpfr_init(r20400);
}

double f_im(double x) {
        mpfr_set_d(r20396, x, MPFR_RNDN);
        mpfr_exp(r20397, r20396, MPFR_RNDN);
        ;
        mpfr_sub(r20399, r20397, r20398, MPFR_RNDN);
        mpfr_div(r20400, r20397, r20399, MPFR_RNDN);
        return mpfr_get_d(r20400, MPFR_RNDN);
}

static mpfr_t r20401, r20402, r20403, r20404, r20405, r20406, r20407, r20408, r20409, r20410, r20411, r20412, r20413, r20414, r20415;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20401);
        mpfr_init_set_str(r20402, "-2.3416378887887987e-05", 10, MPFR_RNDN);
        mpfr_init(r20403);
        mpfr_init_set_str(r20404, "1", 10, MPFR_RNDN);
        mpfr_init(r20405);
        mpfr_init(r20406);
        mpfr_init(r20407);
        mpfr_init(r20408);
        mpfr_init_set_str(r20409, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20410);
        mpfr_init_set_str(r20411, "1/12", 10, MPFR_RNDN);
        mpfr_init(r20412);
        mpfr_init(r20413);
        mpfr_init(r20414);
        mpfr_init(r20415);
}

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

static mpfr_t r20416, r20417, r20418, r20419, r20420, r20421, r20422, r20423, r20424, r20425, r20426, r20427, r20428, r20429, r20430;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20416);
        mpfr_init_set_str(r20417, "-2.3416378887887987e-05", 10, MPFR_RNDN);
        mpfr_init(r20418);
        mpfr_init_set_str(r20419, "1", 10, MPFR_RNDN);
        mpfr_init(r20420);
        mpfr_init(r20421);
        mpfr_init(r20422);
        mpfr_init(r20423);
        mpfr_init_set_str(r20424, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20425);
        mpfr_init_set_str(r20426, "1/12", 10, MPFR_RNDN);
        mpfr_init(r20427);
        mpfr_init(r20428);
        mpfr_init(r20429);
        mpfr_init(r20430);
}

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