#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 r20319 = x;
        float r20320 = exp(r20319);
        float r20321 = 1.0f;
        float r20322 = r20320 - r20321;
        float r20323 = r20320 / r20322;
        return r20323;
}

double f_id(double x) {
        double r20324 = x;
        double r20325 = exp(r20324);
        double r20326 = 1.0;
        double r20327 = r20325 - r20326;
        double r20328 = r20325 / r20327;
        return r20328;
}


double f_of(float x) {
        float r20329 = x;
        float r20330 = -2.657023345002393e-12f;
        bool r20331 = r20329 <= r20330;
        float r20332 = exp(r20329);
        float r20333 = 1.0f;
        float r20334 = r20332 - r20333;
        float r20335 = r20332 / r20334;
        float r20336 = cbrt(r20335);
        float r20337 = r20336 * r20336;
        float r20338 = r20337 * r20336;
        float r20339 = 0.5f;
        float r20340 = r20333 / r20329;
        float r20341 = 0.08333333333333333f;
        float r20342 = r20341 * r20329;
        float r20343 = r20340 + r20342;
        float r20344 = r20339 + r20343;
        float r20345 = r20331 ? r20338 : r20344;
        return r20345;
}

double f_od(double x) {
        double r20346 = x;
        double r20347 = -2.657023345002393e-12;
        bool r20348 = r20346 <= r20347;
        double r20349 = exp(r20346);
        double r20350 = 1.0;
        double r20351 = r20349 - r20350;
        double r20352 = r20349 / r20351;
        double r20353 = cbrt(r20352);
        double r20354 = r20353 * r20353;
        double r20355 = r20354 * r20353;
        double r20356 = 0.5;
        double r20357 = r20350 / r20346;
        double r20358 = 0.08333333333333333;
        double r20359 = r20358 * r20346;
        double r20360 = r20357 + r20359;
        double r20361 = r20356 + r20360;
        double r20362 = r20348 ? r20355 : r20361;
        return r20362;
}

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 r20363, r20364, r20365, r20366, r20367;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20363);
        mpfr_init(r20364);
        mpfr_init_set_str(r20365, "1", 10, MPFR_RNDN);
        mpfr_init(r20366);
        mpfr_init(r20367);
}

double f_im(double x) {
        mpfr_set_d(r20363, x, MPFR_RNDN);
        mpfr_exp(r20364, r20363, MPFR_RNDN);
        ;
        mpfr_sub(r20366, r20364, r20365, MPFR_RNDN);
        mpfr_div(r20367, r20364, r20366, MPFR_RNDN);
        return mpfr_get_d(r20367, MPFR_RNDN);
}

static mpfr_t r20368, r20369, r20370, r20371, r20372, r20373, r20374, r20375, r20376, r20377, r20378, r20379, r20380, r20381, r20382, r20383, r20384;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20368);
        mpfr_init_set_str(r20369, "-2.657023345002393e-12", 10, MPFR_RNDN);
        mpfr_init(r20370);
        mpfr_init(r20371);
        mpfr_init_set_str(r20372, "1", 10, MPFR_RNDN);
        mpfr_init(r20373);
        mpfr_init(r20374);
        mpfr_init(r20375);
        mpfr_init(r20376);
        mpfr_init(r20377);
        mpfr_init_set_str(r20378, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20379);
        mpfr_init_set_str(r20380, "1/12", 10, MPFR_RNDN);
        mpfr_init(r20381);
        mpfr_init(r20382);
        mpfr_init(r20383);
        mpfr_init(r20384);
}

double f_fm(double x) {
        mpfr_set_d(r20368, x, MPFR_RNDN);
        ;
        mpfr_set_si(r20370, mpfr_cmp(r20368, r20369) <= 0, MPFR_RNDN);
        mpfr_exp(r20371, r20368, MPFR_RNDN);
        ;
        mpfr_sub(r20373, r20371, r20372, MPFR_RNDN);
        mpfr_div(r20374, r20371, r20373, MPFR_RNDN);
        mpfr_cbrt(r20375, r20374, MPFR_RNDN);
        mpfr_mul(r20376, r20375, r20375, MPFR_RNDN);
        mpfr_mul(r20377, r20376, r20375, MPFR_RNDN);
        ;
        mpfr_div(r20379, r20372, r20368, MPFR_RNDN);
        ;
        mpfr_mul(r20381, r20380, r20368, MPFR_RNDN);
        mpfr_add(r20382, r20379, r20381, MPFR_RNDN);
        mpfr_add(r20383, r20378, r20382, MPFR_RNDN);
        if (mpfr_get_si(r20370, MPFR_RNDN)) { mpfr_set(r20384, r20377, MPFR_RNDN); } else { mpfr_set(r20384, r20383, MPFR_RNDN); };
        return mpfr_get_d(r20384, MPFR_RNDN);
}

static mpfr_t r20385, r20386, r20387, r20388, r20389, r20390, r20391, r20392, r20393, r20394, r20395, r20396, r20397, r20398, r20399, r20400, r20401;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20385);
        mpfr_init_set_str(r20386, "-2.657023345002393e-12", 10, MPFR_RNDN);
        mpfr_init(r20387);
        mpfr_init(r20388);
        mpfr_init_set_str(r20389, "1", 10, MPFR_RNDN);
        mpfr_init(r20390);
        mpfr_init(r20391);
        mpfr_init(r20392);
        mpfr_init(r20393);
        mpfr_init(r20394);
        mpfr_init_set_str(r20395, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20396);
        mpfr_init_set_str(r20397, "1/12", 10, MPFR_RNDN);
        mpfr_init(r20398);
        mpfr_init(r20399);
        mpfr_init(r20400);
        mpfr_init(r20401);
}

double f_dm(double x) {
        mpfr_set_d(r20385, x, MPFR_RNDN);
        ;
        mpfr_set_si(r20387, mpfr_cmp(r20385, r20386) <= 0, MPFR_RNDN);
        mpfr_exp(r20388, r20385, MPFR_RNDN);
        ;
        mpfr_sub(r20390, r20388, r20389, MPFR_RNDN);
        mpfr_div(r20391, r20388, r20390, MPFR_RNDN);
        mpfr_cbrt(r20392, r20391, MPFR_RNDN);
        mpfr_mul(r20393, r20392, r20392, MPFR_RNDN);
        mpfr_mul(r20394, r20393, r20392, MPFR_RNDN);
        ;
        mpfr_div(r20396, r20389, r20385, MPFR_RNDN);
        ;
        mpfr_mul(r20398, r20397, r20385, MPFR_RNDN);
        mpfr_add(r20399, r20396, r20398, MPFR_RNDN);
        mpfr_add(r20400, r20395, r20399, MPFR_RNDN);
        if (mpfr_get_si(r20387, MPFR_RNDN)) { mpfr_set(r20401, r20394, MPFR_RNDN); } else { mpfr_set(r20401, r20400, MPFR_RNDN); };
        return mpfr_get_d(r20401, MPFR_RNDN);
}