#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 r27073 = 1;
        float r27074 = x;
        float r27075 = r27074 + r27073;
        float r27076 = r27073 / r27075;
        float r27077 = 2;
        float r27078 = r27077 / r27074;
        float r27079 = r27076 - r27078;
        float r27080 = r27074 - r27073;
        float r27081 = r27073 / r27080;
        float r27082 = r27079 + r27081;
        return r27082;
}

double f_id(double x) {
        double r27083 = 1;
        double r27084 = x;
        double r27085 = r27084 + r27083;
        double r27086 = r27083 / r27085;
        double r27087 = 2;
        double r27088 = r27087 / r27084;
        double r27089 = r27086 - r27088;
        double r27090 = r27084 - r27083;
        double r27091 = r27083 / r27090;
        double r27092 = r27089 + r27091;
        return r27092;
}


double f_of(float x) {
        float r27093 = 2;
        float r27094 = x;
        float r27095 = 1;
        float r27096 = r27094 + r27095;
        float r27097 = r27096 * r27094;
        float r27098 = r27093 / r27097;
        float r27099 = r27094 - r27095;
        float r27100 = r27098 / r27099;
        return r27100;
}

double f_od(double x) {
        double r27101 = 2;
        double r27102 = x;
        double r27103 = 1;
        double r27104 = r27102 + r27103;
        double r27105 = r27104 * r27102;
        double r27106 = r27101 / r27105;
        double r27107 = r27102 - r27103;
        double r27108 = r27106 / r27107;
        return r27108;
}

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 r27109, r27110, r27111, r27112, r27113, r27114, r27115, r27116, r27117, r27118;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1104);
        mpfr_init_set_str(r27109, "1", 10, MPFR_RNDN);
        mpfr_init(r27110);
        mpfr_init(r27111);
        mpfr_init(r27112);
        mpfr_init_set_str(r27113, "2", 10, MPFR_RNDN);
        mpfr_init(r27114);
        mpfr_init(r27115);
        mpfr_init(r27116);
        mpfr_init(r27117);
        mpfr_init(r27118);
}

double f_im(double x) {
        ;
        mpfr_set_d(r27110, x, MPFR_RNDN);
        mpfr_add(r27111, r27110, r27109, MPFR_RNDN);
        mpfr_div(r27112, r27109, r27111, MPFR_RNDN);
        ;
        mpfr_div(r27114, r27113, r27110, MPFR_RNDN);
        mpfr_sub(r27115, r27112, r27114, MPFR_RNDN);
        mpfr_sub(r27116, r27110, r27109, MPFR_RNDN);
        mpfr_div(r27117, r27109, r27116, MPFR_RNDN);
        mpfr_add(r27118, r27115, r27117, MPFR_RNDN);
        return mpfr_get_d(r27118, MPFR_RNDN);
}

static mpfr_t r27119, r27120, r27121, r27122, r27123, r27124, r27125, r27126;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1104);
        mpfr_init_set_str(r27119, "2", 10, MPFR_RNDN);
        mpfr_init(r27120);
        mpfr_init_set_str(r27121, "1", 10, MPFR_RNDN);
        mpfr_init(r27122);
        mpfr_init(r27123);
        mpfr_init(r27124);
        mpfr_init(r27125);
        mpfr_init(r27126);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r27120, x, MPFR_RNDN);
        ;
        mpfr_add(r27122, r27120, r27121, MPFR_RNDN);
        mpfr_mul(r27123, r27122, r27120, MPFR_RNDN);
        mpfr_div(r27124, r27119, r27123, MPFR_RNDN);
        mpfr_sub(r27125, r27120, r27121, MPFR_RNDN);
        mpfr_div(r27126, r27124, r27125, MPFR_RNDN);
        return mpfr_get_d(r27126, MPFR_RNDN);
}

static mpfr_t r27127, r27128, r27129, r27130, r27131, r27132, r27133, r27134;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1104);
        mpfr_init_set_str(r27127, "2", 10, MPFR_RNDN);
        mpfr_init(r27128);
        mpfr_init_set_str(r27129, "1", 10, MPFR_RNDN);
        mpfr_init(r27130);
        mpfr_init(r27131);
        mpfr_init(r27132);
        mpfr_init(r27133);
        mpfr_init(r27134);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r27128, x, MPFR_RNDN);
        ;
        mpfr_add(r27130, r27128, r27129, MPFR_RNDN);
        mpfr_mul(r27131, r27130, r27128, MPFR_RNDN);
        mpfr_div(r27132, r27127, r27131, MPFR_RNDN);
        mpfr_sub(r27133, r27128, r27129, MPFR_RNDN);
        mpfr_div(r27134, r27132, r27133, MPFR_RNDN);
        return mpfr_get_d(r27134, MPFR_RNDN);
}