#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 r23483 = 1;
        float r23484 = x;
        float r23485 = r23484 + r23483;
        float r23486 = r23483 / r23485;
        float r23487 = r23483 / r23484;
        float r23488 = r23486 - r23487;
        return r23488;
}

double f_id(double x) {
        double r23489 = 1;
        double r23490 = x;
        double r23491 = r23490 + r23489;
        double r23492 = r23489 / r23491;
        double r23493 = r23489 / r23490;
        double r23494 = r23492 - r23493;
        return r23494;
}


double f_of(float x) {
        float r23495 = 1;
        float r23496 = -r23495;
        float r23497 = x;
        float r23498 = r23497 + r23495;
        float r23499 = r23496 / r23498;
        float r23500 = r23499 / r23497;
        return r23500;
}

double f_od(double x) {
        double r23501 = 1;
        double r23502 = -r23501;
        double r23503 = x;
        double r23504 = r23503 + r23501;
        double r23505 = r23502 / r23504;
        double r23506 = r23505 / r23503;
        return r23506;
}

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 r23507, r23508, r23509, r23510, r23511, r23512;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(848);
        mpfr_init_set_str(r23507, "1", 10, MPFR_RNDN);
        mpfr_init(r23508);
        mpfr_init(r23509);
        mpfr_init(r23510);
        mpfr_init(r23511);
        mpfr_init(r23512);
}

double f_im(double x) {
        ;
        mpfr_set_d(r23508, x, MPFR_RNDN);
        mpfr_add(r23509, r23508, r23507, MPFR_RNDN);
        mpfr_div(r23510, r23507, r23509, MPFR_RNDN);
        mpfr_div(r23511, r23507, r23508, MPFR_RNDN);
        mpfr_sub(r23512, r23510, r23511, MPFR_RNDN);
        return mpfr_get_d(r23512, MPFR_RNDN);
}

static mpfr_t r23513, r23514, r23515, r23516, r23517, r23518;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(848);
        mpfr_init_set_str(r23513, "1", 10, MPFR_RNDN);
        mpfr_init(r23514);
        mpfr_init(r23515);
        mpfr_init(r23516);
        mpfr_init(r23517);
        mpfr_init(r23518);
}

double f_fm(double x) {
        ;
        mpfr_neg(r23514, r23513, MPFR_RNDN);
        mpfr_set_d(r23515, x, MPFR_RNDN);
        mpfr_add(r23516, r23515, r23513, MPFR_RNDN);
        mpfr_div(r23517, r23514, r23516, MPFR_RNDN);
        mpfr_div(r23518, r23517, r23515, MPFR_RNDN);
        return mpfr_get_d(r23518, MPFR_RNDN);
}

static mpfr_t r23519, r23520, r23521, r23522, r23523, r23524;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(848);
        mpfr_init_set_str(r23519, "1", 10, MPFR_RNDN);
        mpfr_init(r23520);
        mpfr_init(r23521);
        mpfr_init(r23522);
        mpfr_init(r23523);
        mpfr_init(r23524);
}

double f_dm(double x) {
        ;
        mpfr_neg(r23520, r23519, MPFR_RNDN);
        mpfr_set_d(r23521, x, MPFR_RNDN);
        mpfr_add(r23522, r23521, r23519, MPFR_RNDN);
        mpfr_div(r23523, r23520, r23522, MPFR_RNDN);
        mpfr_div(r23524, r23523, r23521, MPFR_RNDN);
        return mpfr_get_d(r23524, MPFR_RNDN);
}