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

char *name = "2isqrt (example 3.6)";

double f_if(float x) {
        float r27219 = 1;
        float r27220 = x;
        float r27221 = sqrt(r27220);
        float r27222 = r27219 / r27221;
        float r27223 = r27220 + r27219;
        float r27224 = sqrt(r27223);
        float r27225 = r27219 / r27224;
        float r27226 = r27222 - r27225;
        return r27226;
}

double f_id(double x) {
        double r27227 = 1;
        double r27228 = x;
        double r27229 = sqrt(r27228);
        double r27230 = r27227 / r27229;
        double r27231 = r27228 + r27227;
        double r27232 = sqrt(r27231);
        double r27233 = r27227 / r27232;
        double r27234 = r27230 - r27233;
        return r27234;
}


double f_of(float x) {
        float r27235 = 1;
        float r27236 = x;
        float r27237 = sqrt(r27236);
        float r27238 = r27236 + r27235;
        float r27239 = sqrt(r27238);
        float r27240 = fma(r27237, r27239, r27236);
        float r27241 = r27235 / r27240;
        float r27242 = r27241 / r27239;
        return r27242;
}

double f_od(double x) {
        double r27243 = 1;
        double r27244 = x;
        double r27245 = sqrt(r27244);
        double r27246 = r27244 + r27243;
        double r27247 = sqrt(r27246);
        double r27248 = fma(r27245, r27247, r27244);
        double r27249 = r27243 / r27248;
        double r27250 = r27249 / r27247;
        return r27250;
}

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 r27251, r27252, r27253, r27254, r27255, r27256, r27257, r27258;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1104);
        mpfr_init_set_str(r27251, "1", 10, MPFR_RNDN);
        mpfr_init(r27252);
        mpfr_init(r27253);
        mpfr_init(r27254);
        mpfr_init(r27255);
        mpfr_init(r27256);
        mpfr_init(r27257);
        mpfr_init(r27258);
}

double f_im(double x) {
        ;
        mpfr_set_d(r27252, x, MPFR_RNDN);
        mpfr_sqrt(r27253, r27252, MPFR_RNDN);
        mpfr_div(r27254, r27251, r27253, MPFR_RNDN);
        mpfr_add(r27255, r27252, r27251, MPFR_RNDN);
        mpfr_sqrt(r27256, r27255, MPFR_RNDN);
        mpfr_div(r27257, r27251, r27256, MPFR_RNDN);
        mpfr_sub(r27258, r27254, r27257, MPFR_RNDN);
        return mpfr_get_d(r27258, MPFR_RNDN);
}

static mpfr_t r27259, r27260, r27261, r27262, r27263, r27264, r27265, r27266;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1104);
        mpfr_init_set_str(r27259, "1", 10, MPFR_RNDN);
        mpfr_init(r27260);
        mpfr_init(r27261);
        mpfr_init(r27262);
        mpfr_init(r27263);
        mpfr_init(r27264);
        mpfr_init(r27265);
        mpfr_init(r27266);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r27260, x, MPFR_RNDN);
        mpfr_sqrt(r27261, r27260, MPFR_RNDN);
        mpfr_add(r27262, r27260, r27259, MPFR_RNDN);
        mpfr_sqrt(r27263, r27262, MPFR_RNDN);
        mpfr_fma(r27264, r27261, r27263, r27260, MPFR_RNDN);
        mpfr_div(r27265, r27259, r27264, MPFR_RNDN);
        mpfr_div(r27266, r27265, r27263, MPFR_RNDN);
        return mpfr_get_d(r27266, MPFR_RNDN);
}

static mpfr_t r27267, r27268, r27269, r27270, r27271, r27272, r27273, r27274;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1104);
        mpfr_init_set_str(r27267, "1", 10, MPFR_RNDN);
        mpfr_init(r27268);
        mpfr_init(r27269);
        mpfr_init(r27270);
        mpfr_init(r27271);
        mpfr_init(r27272);
        mpfr_init(r27273);
        mpfr_init(r27274);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r27268, x, MPFR_RNDN);
        mpfr_sqrt(r27269, r27268, MPFR_RNDN);
        mpfr_add(r27270, r27268, r27267, MPFR_RNDN);
        mpfr_sqrt(r27271, r27270, MPFR_RNDN);
        mpfr_fma(r27272, r27269, r27271, r27268, MPFR_RNDN);
        mpfr_div(r27273, r27267, r27272, MPFR_RNDN);
        mpfr_div(r27274, r27273, r27271, MPFR_RNDN);
        return mpfr_get_d(r27274, MPFR_RNDN);
}