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

char *name = "Asymptote B";

double f_if(float x) {
        float r10489 = 1;
        float r10490 = x;
        float r10491 = r10490 - r10489;
        float r10492 = r10489 / r10491;
        float r10493 = r10490 + r10489;
        float r10494 = r10490 / r10493;
        float r10495 = r10492 + r10494;
        return r10495;
}

double f_id(double x) {
        double r10496 = 1;
        double r10497 = x;
        double r10498 = r10497 - r10496;
        double r10499 = r10496 / r10498;
        double r10500 = r10497 + r10496;
        double r10501 = r10497 / r10500;
        double r10502 = r10499 + r10501;
        return r10502;
}


double f_of(float x) {
        float r10503 = 1;
        float r10504 = x;
        float r10505 = r10504 - r10503;
        float r10506 = r10503 / r10505;
        float r10507 = r10504 + r10503;
        float r10508 = r10504 / r10507;
        float r10509 = r10506 + r10508;
        float r10510 = cbrt(r10509);
        float r10511 = r10510 * r10510;
        float r10512 = r10511 * r10510;
        return r10512;
}

double f_od(double x) {
        double r10513 = 1;
        double r10514 = x;
        double r10515 = r10514 - r10513;
        double r10516 = r10513 / r10515;
        double r10517 = r10514 + r10513;
        double r10518 = r10514 / r10517;
        double r10519 = r10516 + r10518;
        double r10520 = cbrt(r10519);
        double r10521 = r10520 * r10520;
        double r10522 = r10521 * r10520;
        return r10522;
}

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

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

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

static mpfr_t r10530, r10531, r10532, r10533, r10534, r10535, r10536, r10537, r10538, r10539;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r10530, "1", 10, MPFR_RNDN);
        mpfr_init(r10531);
        mpfr_init(r10532);
        mpfr_init(r10533);
        mpfr_init(r10534);
        mpfr_init(r10535);
        mpfr_init(r10536);
        mpfr_init(r10537);
        mpfr_init(r10538);
        mpfr_init(r10539);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r10531, x, MPFR_RNDN);
        mpfr_sub(r10532, r10531, r10530, MPFR_RNDN);
        mpfr_div(r10533, r10530, r10532, MPFR_RNDN);
        mpfr_add(r10534, r10531, r10530, MPFR_RNDN);
        mpfr_div(r10535, r10531, r10534, MPFR_RNDN);
        mpfr_add(r10536, r10533, r10535, MPFR_RNDN);
        mpfr_cbrt(r10537, r10536, MPFR_RNDN);
        mpfr_mul(r10538, r10537, r10537, MPFR_RNDN);
        mpfr_mul(r10539, r10538, r10537, MPFR_RNDN);
        return mpfr_get_d(r10539, MPFR_RNDN);
}

static mpfr_t r10540, r10541, r10542, r10543, r10544, r10545, r10546, r10547, r10548, r10549;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r10540, "1", 10, MPFR_RNDN);
        mpfr_init(r10541);
        mpfr_init(r10542);
        mpfr_init(r10543);
        mpfr_init(r10544);
        mpfr_init(r10545);
        mpfr_init(r10546);
        mpfr_init(r10547);
        mpfr_init(r10548);
        mpfr_init(r10549);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r10541, x, MPFR_RNDN);
        mpfr_sub(r10542, r10541, r10540, MPFR_RNDN);
        mpfr_div(r10543, r10540, r10542, MPFR_RNDN);
        mpfr_add(r10544, r10541, r10540, MPFR_RNDN);
        mpfr_div(r10545, r10541, r10544, MPFR_RNDN);
        mpfr_add(r10546, r10543, r10545, MPFR_RNDN);
        mpfr_cbrt(r10547, r10546, MPFR_RNDN);
        mpfr_mul(r10548, r10547, r10547, MPFR_RNDN);
        mpfr_mul(r10549, r10548, r10547, MPFR_RNDN);
        return mpfr_get_d(r10549, MPFR_RNDN);
}