#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 r19198 = 1.0f;
        float r19199 = x;
        float r19200 = r19199 + r19198;
        float r19201 = r19198 / r19200;
        float r19202 = r19198 / r19199;
        float r19203 = r19201 - r19202;
        return r19203;
}

double f_id(double x) {
        double r19204 = 1.0;
        double r19205 = x;
        double r19206 = r19205 + r19204;
        double r19207 = r19204 / r19206;
        double r19208 = r19204 / r19205;
        double r19209 = r19207 - r19208;
        return r19209;
}


double f_of(float x) {
        float r19210 = 1.0f;
        float r19211 = -r19210;
        float r19212 = x;
        float r19213 = r19210 + r19212;
        float r19214 = r19211 / r19213;
        float r19215 = r19214 / r19212;
        return r19215;
}

double f_od(double x) {
        double r19216 = 1.0;
        double r19217 = -r19216;
        double r19218 = x;
        double r19219 = r19216 + r19218;
        double r19220 = r19217 / r19219;
        double r19221 = r19220 / r19218;
        return r19221;
}

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 r19222, r19223, r19224, r19225, r19226, r19227;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r19222, "1", 10, MPFR_RNDN);
        mpfr_init(r19223);
        mpfr_init(r19224);
        mpfr_init(r19225);
        mpfr_init(r19226);
        mpfr_init(r19227);
}

double f_im(double x) {
        ;
        mpfr_set_d(r19223, x, MPFR_RNDN);
        mpfr_add(r19224, r19223, r19222, MPFR_RNDN);
        mpfr_div(r19225, r19222, r19224, MPFR_RNDN);
        mpfr_div(r19226, r19222, r19223, MPFR_RNDN);
        mpfr_sub(r19227, r19225, r19226, MPFR_RNDN);
        return mpfr_get_d(r19227, MPFR_RNDN);
}

static mpfr_t r19228, r19229, r19230, r19231, r19232, r19233;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r19228, "1", 10, MPFR_RNDN);
        mpfr_init(r19229);
        mpfr_init(r19230);
        mpfr_init(r19231);
        mpfr_init(r19232);
        mpfr_init(r19233);
}

double f_fm(double x) {
        ;
        mpfr_neg(r19229, r19228, MPFR_RNDN);
        mpfr_set_d(r19230, x, MPFR_RNDN);
        mpfr_add(r19231, r19228, r19230, MPFR_RNDN);
        mpfr_div(r19232, r19229, r19231, MPFR_RNDN);
        mpfr_div(r19233, r19232, r19230, MPFR_RNDN);
        return mpfr_get_d(r19233, MPFR_RNDN);
}

static mpfr_t r19234, r19235, r19236, r19237, r19238, r19239;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(912);
        mpfr_init_set_str(r19234, "1", 10, MPFR_RNDN);
        mpfr_init(r19235);
        mpfr_init(r19236);
        mpfr_init(r19237);
        mpfr_init(r19238);
        mpfr_init(r19239);
}

double f_dm(double x) {
        ;
        mpfr_neg(r19235, r19234, MPFR_RNDN);
        mpfr_set_d(r19236, x, MPFR_RNDN);
        mpfr_add(r19237, r19234, r19236, MPFR_RNDN);
        mpfr_div(r19238, r19235, r19237, MPFR_RNDN);
        mpfr_div(r19239, r19238, r19236, MPFR_RNDN);
        return mpfr_get_d(r19239, MPFR_RNDN);
}