#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 r20307 = 1;
        float r20308 = x;
        float r20309 = r20308 + r20307;
        float r20310 = r20307 / r20309;
        float r20311 = r20307 / r20308;
        float r20312 = r20310 - r20311;
        return r20312;
}

double f_id(double x) {
        double r20313 = 1;
        double r20314 = x;
        double r20315 = r20314 + r20313;
        double r20316 = r20313 / r20315;
        double r20317 = r20313 / r20314;
        double r20318 = r20316 - r20317;
        return r20318;
}


double f_of(float x) {
        float r20319 = 1;
        float r20320 = -r20319;
        float r20321 = x;
        float r20322 = r20319 + r20321;
        float r20323 = r20320 / r20322;
        float r20324 = r20323 / r20321;
        return r20324;
}

double f_od(double x) {
        double r20325 = 1;
        double r20326 = -r20325;
        double r20327 = x;
        double r20328 = r20325 + r20327;
        double r20329 = r20326 / r20328;
        double r20330 = r20329 / r20327;
        return r20330;
}

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 r20331, r20332, r20333, r20334, r20335, r20336;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r20331, "1", 10, MPFR_RNDN);
        mpfr_init(r20332);
        mpfr_init(r20333);
        mpfr_init(r20334);
        mpfr_init(r20335);
        mpfr_init(r20336);
}

double f_im(double x) {
        ;
        mpfr_set_d(r20332, x, MPFR_RNDN);
        mpfr_add(r20333, r20332, r20331, MPFR_RNDN);
        mpfr_div(r20334, r20331, r20333, MPFR_RNDN);
        mpfr_div(r20335, r20331, r20332, MPFR_RNDN);
        mpfr_sub(r20336, r20334, r20335, MPFR_RNDN);
        return mpfr_get_d(r20336, MPFR_RNDN);
}

static mpfr_t r20337, r20338, r20339, r20340, r20341, r20342;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r20337, "1", 10, MPFR_RNDN);
        mpfr_init(r20338);
        mpfr_init(r20339);
        mpfr_init(r20340);
        mpfr_init(r20341);
        mpfr_init(r20342);
}

double f_fm(double x) {
        ;
        mpfr_neg(r20338, r20337, MPFR_RNDN);
        mpfr_set_d(r20339, x, MPFR_RNDN);
        mpfr_add(r20340, r20337, r20339, MPFR_RNDN);
        mpfr_div(r20341, r20338, r20340, MPFR_RNDN);
        mpfr_div(r20342, r20341, r20339, MPFR_RNDN);
        return mpfr_get_d(r20342, MPFR_RNDN);
}

static mpfr_t r20343, r20344, r20345, r20346, r20347, r20348;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r20343, "1", 10, MPFR_RNDN);
        mpfr_init(r20344);
        mpfr_init(r20345);
        mpfr_init(r20346);
        mpfr_init(r20347);
        mpfr_init(r20348);
}

double f_dm(double x) {
        ;
        mpfr_neg(r20344, r20343, MPFR_RNDN);
        mpfr_set_d(r20345, x, MPFR_RNDN);
        mpfr_add(r20346, r20343, r20345, MPFR_RNDN);
        mpfr_div(r20347, r20344, r20346, MPFR_RNDN);
        mpfr_div(r20348, r20347, r20345, MPFR_RNDN);
        return mpfr_get_d(r20348, MPFR_RNDN);
}