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

char *name = "qlog (example 3.10)";

double f_if(float x) {
        float r10498 = 1;
        float r10499 = x;
        float r10500 = r10498 - r10499;
        float r10501 = log(r10500);
        float r10502 = r10498 + r10499;
        float r10503 = log(r10502);
        float r10504 = r10501 / r10503;
        return r10504;
}

double f_id(double x) {
        double r10505 = 1;
        double r10506 = x;
        double r10507 = r10505 - r10506;
        double r10508 = log(r10507);
        double r10509 = r10505 + r10506;
        double r10510 = log(r10509);
        double r10511 = r10508 / r10510;
        return r10511;
}


double f_of(float x) {
        float r10512 = x;
        float r10513 = -r10512;
        float r10514 = log1p(r10513);
        float r10515 = log1p(r10512);
        float r10516 = r10514 / r10515;
        return r10516;
}

double f_od(double x) {
        double r10517 = x;
        double r10518 = -r10517;
        double r10519 = log1p(r10518);
        double r10520 = log1p(r10517);
        double r10521 = r10519 / r10520;
        return r10521;
}

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 r10522, r10523, r10524, r10525, r10526, r10527, r10528;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r10522, "1", 10, MPFR_RNDN);
        mpfr_init(r10523);
        mpfr_init(r10524);
        mpfr_init(r10525);
        mpfr_init(r10526);
        mpfr_init(r10527);
        mpfr_init(r10528);
}

double f_im(double x) {
        ;
        mpfr_set_d(r10523, x, MPFR_RNDN);
        mpfr_sub(r10524, r10522, r10523, MPFR_RNDN);
        mpfr_log(r10525, r10524, MPFR_RNDN);
        mpfr_add(r10526, r10522, r10523, MPFR_RNDN);
        mpfr_log(r10527, r10526, MPFR_RNDN);
        mpfr_div(r10528, r10525, r10527, MPFR_RNDN);
        return mpfr_get_d(r10528, MPFR_RNDN);
}

static mpfr_t r10529, r10530, r10531, r10532, r10533;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r10529);
        mpfr_init(r10530);
        mpfr_init(r10531);
        mpfr_init(r10532);
        mpfr_init(r10533);
}

double f_fm(double x) {
        mpfr_set_d(r10529, x, MPFR_RNDN);
        mpfr_neg(r10530, r10529, MPFR_RNDN);
        mpfr_log1p(r10531, r10530, MPFR_RNDN);
        mpfr_log1p(r10532, r10529, MPFR_RNDN);
        mpfr_div(r10533, r10531, r10532, MPFR_RNDN);
        return mpfr_get_d(r10533, MPFR_RNDN);
}

static mpfr_t r10534, r10535, r10536, r10537, r10538;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r10534);
        mpfr_init(r10535);
        mpfr_init(r10536);
        mpfr_init(r10537);
        mpfr_init(r10538);
}

double f_dm(double x) {
        mpfr_set_d(r10534, x, MPFR_RNDN);
        mpfr_neg(r10535, r10534, MPFR_RNDN);
        mpfr_log1p(r10536, r10535, MPFR_RNDN);
        mpfr_log1p(r10537, r10534, MPFR_RNDN);
        mpfr_div(r10538, r10536, r10537, MPFR_RNDN);
        return mpfr_get_d(r10538, MPFR_RNDN);
}