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

char *name = "2frac (problem 3.3.1)";

double f_if(float x) {
        float r20339 = 1;
        float r20340 = x;
        float r20341 = r20340 + r20339;
        float r20342 = r20339 / r20341;
        float r20343 = r20339 / r20340;
        float r20344 = r20342 - r20343;
        return r20344;
}

double f_id(double x) {
        double r20345 = 1;
        double r20346 = x;
        double r20347 = r20346 + r20345;
        double r20348 = r20345 / r20347;
        double r20349 = r20345 / r20346;
        double r20350 = r20348 - r20349;
        return r20350;
}


double f_of(float x) {
        float r20351 = 1;
        float r20352 = -r20351;
        float r20353 = x;
        float r20354 = r20351 + r20353;
        float r20355 = r20352 / r20354;
        float r20356 = r20355 / r20353;
        return r20356;
}

double f_od(double x) {
        double r20357 = 1;
        double r20358 = -r20357;
        double r20359 = x;
        double r20360 = r20357 + r20359;
        double r20361 = r20358 / r20360;
        double r20362 = r20361 / r20359;
        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, r20368;

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

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

static mpfr_t r20369, r20370, r20371, r20372, r20373, r20374;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r20369, "1", 10, MPFR_RNDN);
        mpfr_init(r20370);
        mpfr_init(r20371);
        mpfr_init(r20372);
        mpfr_init(r20373);
        mpfr_init(r20374);
}

double f_fm(double x) {
        ;
        mpfr_neg(r20370, r20369, MPFR_RNDN);
        mpfr_set_d(r20371, x, MPFR_RNDN);
        mpfr_add(r20372, r20369, r20371, MPFR_RNDN);
        mpfr_div(r20373, r20370, r20372, MPFR_RNDN);
        mpfr_div(r20374, r20373, r20371, MPFR_RNDN);
        return mpfr_get_d(r20374, MPFR_RNDN);
}

static mpfr_t r20375, r20376, r20377, r20378, r20379, r20380;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r20375, "1", 10, MPFR_RNDN);
        mpfr_init(r20376);
        mpfr_init(r20377);
        mpfr_init(r20378);
        mpfr_init(r20379);
        mpfr_init(r20380);
}

double f_dm(double x) {
        ;
        mpfr_neg(r20376, r20375, MPFR_RNDN);
        mpfr_set_d(r20377, x, MPFR_RNDN);
        mpfr_add(r20378, r20375, r20377, MPFR_RNDN);
        mpfr_div(r20379, r20376, r20378, MPFR_RNDN);
        mpfr_div(r20380, r20379, r20377, MPFR_RNDN);
        return mpfr_get_d(r20380, MPFR_RNDN);
}