#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 r26147 = 1;
        float r26148 = x;
        float r26149 = r26147 - r26148;
        float r26150 = log(r26149);
        float r26151 = r26147 + r26148;
        float r26152 = log(r26151);
        float r26153 = r26150 / r26152;
        return r26153;
}

double f_id(double x) {
        double r26154 = 1;
        double r26155 = x;
        double r26156 = r26154 - r26155;
        double r26157 = log(r26156);
        double r26158 = r26154 + r26155;
        double r26159 = log(r26158);
        double r26160 = r26157 / r26159;
        return r26160;
}


double f_of(float x) {
        float r26161 = x;
        float r26162 = -r26161;
        float r26163 = log1p(r26162);
        float r26164 = log1p(r26161);
        float r26165 = r26163 / r26164;
        return r26165;
}

double f_od(double x) {
        double r26166 = x;
        double r26167 = -r26166;
        double r26168 = log1p(r26167);
        double r26169 = log1p(r26166);
        double r26170 = r26168 / r26169;
        return r26170;
}

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 r26171, r26172, r26173, r26174, r26175, r26176, r26177;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r26171, "1", 10, MPFR_RNDN);
        mpfr_init(r26172);
        mpfr_init(r26173);
        mpfr_init(r26174);
        mpfr_init(r26175);
        mpfr_init(r26176);
        mpfr_init(r26177);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26172, x, MPFR_RNDN);
        mpfr_sub(r26173, r26171, r26172, MPFR_RNDN);
        mpfr_log(r26174, r26173, MPFR_RNDN);
        mpfr_add(r26175, r26171, r26172, MPFR_RNDN);
        mpfr_log(r26176, r26175, MPFR_RNDN);
        mpfr_div(r26177, r26174, r26176, MPFR_RNDN);
        return mpfr_get_d(r26177, MPFR_RNDN);
}

static mpfr_t r26178, r26179, r26180, r26181, r26182;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26178);
        mpfr_init(r26179);
        mpfr_init(r26180);
        mpfr_init(r26181);
        mpfr_init(r26182);
}

double f_fm(double x) {
        mpfr_set_d(r26178, x, MPFR_RNDN);
        mpfr_neg(r26179, r26178, MPFR_RNDN);
        mpfr_log1p(r26180, r26179, MPFR_RNDN);
        mpfr_log1p(r26181, r26178, MPFR_RNDN);
        mpfr_div(r26182, r26180, r26181, MPFR_RNDN);
        return mpfr_get_d(r26182, MPFR_RNDN);
}

static mpfr_t r26183, r26184, r26185, r26186, r26187;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26183);
        mpfr_init(r26184);
        mpfr_init(r26185);
        mpfr_init(r26186);
        mpfr_init(r26187);
}

double f_dm(double x) {
        mpfr_set_d(r26183, x, MPFR_RNDN);
        mpfr_neg(r26184, r26183, MPFR_RNDN);
        mpfr_log1p(r26185, r26184, MPFR_RNDN);
        mpfr_log1p(r26186, r26183, MPFR_RNDN);
        mpfr_div(r26187, r26185, r26186, MPFR_RNDN);
        return mpfr_get_d(r26187, MPFR_RNDN);
}