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

char *name = "2log (problem 3.3.6)";

double f_if(float N) {
        float r20331 = N;
        float r20332 = 1;
        float r20333 = r20331 + r20332;
        float r20334 = log(r20333);
        float r20335 = log(r20331);
        float r20336 = r20334 - r20335;
        return r20336;
}

double f_id(double N) {
        double r20337 = N;
        double r20338 = 1;
        double r20339 = r20337 + r20338;
        double r20340 = log(r20339);
        double r20341 = log(r20337);
        double r20342 = r20340 - r20341;
        return r20342;
}


double f_of(float N) {
        float r20343 = N;
        float r20344 = 41773.77440307341;
        bool r20345 = r20343 <= r20344;
        float r20346 = 1;
        float r20347 = r20343 + r20346;
        float r20348 = r20347 / r20343;
        float r20349 = log(r20348);
        float r20350 = r20346 / r20343;
        float r20351 = 1/3;
        float r20352 = r20351 / r20343;
        float r20353 = 1/2;
        float r20354 = r20352 - r20353;
        float r20355 = r20343 * r20343;
        float r20356 = r20354 / r20355;
        float r20357 = r20350 + r20356;
        float r20358 = r20345 ? r20349 : r20357;
        return r20358;
}

double f_od(double N) {
        double r20359 = N;
        double r20360 = 41773.77440307341;
        bool r20361 = r20359 <= r20360;
        double r20362 = 1;
        double r20363 = r20359 + r20362;
        double r20364 = r20363 / r20359;
        double r20365 = log(r20364);
        double r20366 = r20362 / r20359;
        double r20367 = 1/3;
        double r20368 = r20367 / r20359;
        double r20369 = 1/2;
        double r20370 = r20368 - r20369;
        double r20371 = r20359 * r20359;
        double r20372 = r20370 / r20371;
        double r20373 = r20366 + r20372;
        double r20374 = r20361 ? r20365 : r20373;
        return r20374;
}

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 r20375, r20376, r20377, r20378, r20379, r20380;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20375);
        mpfr_init_set_str(r20376, "1", 10, MPFR_RNDN);
        mpfr_init(r20377);
        mpfr_init(r20378);
        mpfr_init(r20379);
        mpfr_init(r20380);
}

double f_im(double N) {
        mpfr_set_d(r20375, N, MPFR_RNDN);
        ;
        mpfr_add(r20377, r20375, r20376, MPFR_RNDN);
        mpfr_log(r20378, r20377, MPFR_RNDN);
        mpfr_log(r20379, r20375, MPFR_RNDN);
        mpfr_sub(r20380, r20378, r20379, MPFR_RNDN);
        return mpfr_get_d(r20380, MPFR_RNDN);
}

static mpfr_t r20381, r20382, r20383, r20384, r20385, r20386, r20387, r20388, r20389, r20390, r20391, r20392, r20393, r20394, r20395, r20396;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20381);
        mpfr_init_set_str(r20382, "41773.77440307341", 10, MPFR_RNDN);
        mpfr_init(r20383);
        mpfr_init_set_str(r20384, "1", 10, MPFR_RNDN);
        mpfr_init(r20385);
        mpfr_init(r20386);
        mpfr_init(r20387);
        mpfr_init(r20388);
        mpfr_init_set_str(r20389, "1/3", 10, MPFR_RNDN);
        mpfr_init(r20390);
        mpfr_init_set_str(r20391, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20392);
        mpfr_init(r20393);
        mpfr_init(r20394);
        mpfr_init(r20395);
        mpfr_init(r20396);
}

double f_fm(double N) {
        mpfr_set_d(r20381, N, MPFR_RNDN);
        ;
        mpfr_set_si(r20383, mpfr_cmp(r20381, r20382) <= 0, MPFR_RNDN);
        ;
        mpfr_add(r20385, r20381, r20384, MPFR_RNDN);
        mpfr_div(r20386, r20385, r20381, MPFR_RNDN);
        mpfr_log(r20387, r20386, MPFR_RNDN);
        mpfr_div(r20388, r20384, r20381, MPFR_RNDN);
        ;
        mpfr_div(r20390, r20389, r20381, MPFR_RNDN);
        ;
        mpfr_sub(r20392, r20390, r20391, MPFR_RNDN);
        mpfr_mul(r20393, r20381, r20381, MPFR_RNDN);
        mpfr_div(r20394, r20392, r20393, MPFR_RNDN);
        mpfr_add(r20395, r20388, r20394, MPFR_RNDN);
        if (mpfr_get_si(r20383, MPFR_RNDN)) { mpfr_set(r20396, r20387, MPFR_RNDN); } else { mpfr_set(r20396, r20395, MPFR_RNDN); };
        return mpfr_get_d(r20396, MPFR_RNDN);
}

static mpfr_t r20397, r20398, r20399, r20400, r20401, r20402, r20403, r20404, r20405, r20406, r20407, r20408, r20409, r20410, r20411, r20412;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r20397);
        mpfr_init_set_str(r20398, "41773.77440307341", 10, MPFR_RNDN);
        mpfr_init(r20399);
        mpfr_init_set_str(r20400, "1", 10, MPFR_RNDN);
        mpfr_init(r20401);
        mpfr_init(r20402);
        mpfr_init(r20403);
        mpfr_init(r20404);
        mpfr_init_set_str(r20405, "1/3", 10, MPFR_RNDN);
        mpfr_init(r20406);
        mpfr_init_set_str(r20407, "1/2", 10, MPFR_RNDN);
        mpfr_init(r20408);
        mpfr_init(r20409);
        mpfr_init(r20410);
        mpfr_init(r20411);
        mpfr_init(r20412);
}

double f_dm(double N) {
        mpfr_set_d(r20397, N, MPFR_RNDN);
        ;
        mpfr_set_si(r20399, mpfr_cmp(r20397, r20398) <= 0, MPFR_RNDN);
        ;
        mpfr_add(r20401, r20397, r20400, MPFR_RNDN);
        mpfr_div(r20402, r20401, r20397, MPFR_RNDN);
        mpfr_log(r20403, r20402, MPFR_RNDN);
        mpfr_div(r20404, r20400, r20397, MPFR_RNDN);
        ;
        mpfr_div(r20406, r20405, r20397, MPFR_RNDN);
        ;
        mpfr_sub(r20408, r20406, r20407, MPFR_RNDN);
        mpfr_mul(r20409, r20397, r20397, MPFR_RNDN);
        mpfr_div(r20410, r20408, r20409, MPFR_RNDN);
        mpfr_add(r20411, r20404, r20410, MPFR_RNDN);
        if (mpfr_get_si(r20399, MPFR_RNDN)) { mpfr_set(r20412, r20403, MPFR_RNDN); } else { mpfr_set(r20412, r20411, MPFR_RNDN); };
        return mpfr_get_d(r20412, MPFR_RNDN);
}