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

char *name = "sqrtexp (problem 3.4.4)";

double f_if(float x) {
        float r19531 = 2;
        float r19532 = x;
        float r19533 = r19531 * r19532;
        float r19534 = exp(r19533);
        float r19535 = 1;
        float r19536 = r19534 - r19535;
        float r19537 = exp(r19532);
        float r19538 = r19537 - r19535;
        float r19539 = r19536 / r19538;
        float r19540 = sqrt(r19539);
        return r19540;
}

double f_id(double x) {
        double r19541 = 2;
        double r19542 = x;
        double r19543 = r19541 * r19542;
        double r19544 = exp(r19543);
        double r19545 = 1;
        double r19546 = r19544 - r19545;
        double r19547 = exp(r19542);
        double r19548 = r19547 - r19545;
        double r19549 = r19546 / r19548;
        double r19550 = sqrt(r19549);
        return r19550;
}


double f_of(float x) {
        float r19551 = 1;
        float r19552 = x;
        float r19553 = exp(r19552);
        float r19554 = r19551 + r19553;
        float r19555 = r19554 / r19551;
        float r19556 = sqrt(r19555);
        return r19556;
}

double f_od(double x) {
        double r19557 = 1;
        double r19558 = x;
        double r19559 = exp(r19558);
        double r19560 = r19557 + r19559;
        double r19561 = r19560 / r19557;
        double r19562 = sqrt(r19561);
        return r19562;
}

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 r19563, r19564, r19565, r19566, r19567, r19568, r19569, r19570, r19571, r19572;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19563, "2", 10, MPFR_RNDN);
        mpfr_init(r19564);
        mpfr_init(r19565);
        mpfr_init(r19566);
        mpfr_init_set_str(r19567, "1", 10, MPFR_RNDN);
        mpfr_init(r19568);
        mpfr_init(r19569);
        mpfr_init(r19570);
        mpfr_init(r19571);
        mpfr_init(r19572);
}

double f_im(double x) {
        ;
        mpfr_set_d(r19564, x, MPFR_RNDN);
        mpfr_mul(r19565, r19563, r19564, MPFR_RNDN);
        mpfr_exp(r19566, r19565, MPFR_RNDN);
        ;
        mpfr_sub(r19568, r19566, r19567, MPFR_RNDN);
        mpfr_exp(r19569, r19564, MPFR_RNDN);
        mpfr_sub(r19570, r19569, r19567, MPFR_RNDN);
        mpfr_div(r19571, r19568, r19570, MPFR_RNDN);
        mpfr_sqrt(r19572, r19571, MPFR_RNDN);
        return mpfr_get_d(r19572, MPFR_RNDN);
}

static mpfr_t r19573, r19574, r19575, r19576, r19577, r19578;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19573, "1", 10, MPFR_RNDN);
        mpfr_init(r19574);
        mpfr_init(r19575);
        mpfr_init(r19576);
        mpfr_init(r19577);
        mpfr_init(r19578);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r19574, x, MPFR_RNDN);
        mpfr_exp(r19575, r19574, MPFR_RNDN);
        mpfr_add(r19576, r19573, r19575, MPFR_RNDN);
        mpfr_div(r19577, r19576, r19573, MPFR_RNDN);
        mpfr_sqrt(r19578, r19577, MPFR_RNDN);
        return mpfr_get_d(r19578, MPFR_RNDN);
}

static mpfr_t r19579, r19580, r19581, r19582, r19583, r19584;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19579, "1", 10, MPFR_RNDN);
        mpfr_init(r19580);
        mpfr_init(r19581);
        mpfr_init(r19582);
        mpfr_init(r19583);
        mpfr_init(r19584);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r19580, x, MPFR_RNDN);
        mpfr_exp(r19581, r19580, MPFR_RNDN);
        mpfr_add(r19582, r19579, r19581, MPFR_RNDN);
        mpfr_div(r19583, r19582, r19579, MPFR_RNDN);
        mpfr_sqrt(r19584, r19583, MPFR_RNDN);
        return mpfr_get_d(r19584, MPFR_RNDN);
}