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

char *name = "3frac (problem 3.3.3)";

double f_if(float x) {
        float r27215 = 1;
        float r27216 = x;
        float r27217 = r27216 + r27215;
        float r27218 = r27215 / r27217;
        float r27219 = 2;
        float r27220 = r27219 / r27216;
        float r27221 = r27218 - r27220;
        float r27222 = r27216 - r27215;
        float r27223 = r27215 / r27222;
        float r27224 = r27221 + r27223;
        return r27224;
}

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


double f_of(float x) {
        float r27235 = 2;
        float r27236 = x;
        float r27237 = 1;
        float r27238 = r27236 + r27237;
        float r27239 = r27238 * r27236;
        float r27240 = r27235 / r27239;
        float r27241 = r27236 - r27237;
        float r27242 = r27240 / r27241;
        return r27242;
}

double f_od(double x) {
        double r27243 = 2;
        double r27244 = x;
        double r27245 = 1;
        double r27246 = r27244 + r27245;
        double r27247 = r27246 * r27244;
        double r27248 = r27243 / r27247;
        double r27249 = r27244 - r27245;
        double r27250 = r27248 / r27249;
        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, r27259, r27260;

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_set_str(r27255, "2", 10, MPFR_RNDN);
        mpfr_init(r27256);
        mpfr_init(r27257);
        mpfr_init(r27258);
        mpfr_init(r27259);
        mpfr_init(r27260);
}

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

static mpfr_t r27261, r27262, r27263, r27264, r27265, r27266, r27267, r27268;

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

double f_fm(double x) {
        ;
        mpfr_set_d(r27262, x, MPFR_RNDN);
        ;
        mpfr_add(r27264, r27262, r27263, MPFR_RNDN);
        mpfr_mul(r27265, r27264, r27262, MPFR_RNDN);
        mpfr_div(r27266, r27261, r27265, MPFR_RNDN);
        mpfr_sub(r27267, r27262, r27263, MPFR_RNDN);
        mpfr_div(r27268, r27266, r27267, MPFR_RNDN);
        return mpfr_get_d(r27268, MPFR_RNDN);
}

static mpfr_t r27269, r27270, r27271, r27272, r27273, r27274, r27275, r27276;

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

double f_dm(double x) {
        ;
        mpfr_set_d(r27270, x, MPFR_RNDN);
        ;
        mpfr_add(r27272, r27270, r27271, MPFR_RNDN);
        mpfr_mul(r27273, r27272, r27270, MPFR_RNDN);
        mpfr_div(r27274, r27269, r27273, MPFR_RNDN);
        mpfr_sub(r27275, r27270, r27271, MPFR_RNDN);
        mpfr_div(r27276, r27274, r27275, MPFR_RNDN);
        return mpfr_get_d(r27276, MPFR_RNDN);
}