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

char *name = "Asymptote A";

double f_if(float x) {
        float r26707 = 1;
        float r26708 = x;
        float r26709 = r26708 + r26707;
        float r26710 = r26707 / r26709;
        float r26711 = r26708 - r26707;
        float r26712 = r26707 / r26711;
        float r26713 = r26710 - r26712;
        return r26713;
}

double f_id(double x) {
        double r26714 = 1;
        double r26715 = x;
        double r26716 = r26715 + r26714;
        double r26717 = r26714 / r26716;
        double r26718 = r26715 - r26714;
        double r26719 = r26714 / r26718;
        double r26720 = r26717 - r26719;
        return r26720;
}


double f_of(float x) {
        float r26721 = 1;
        float r26722 = r26721 + r26721;
        float r26723 = x;
        float r26724 = r26721 + r26723;
        float r26725 = r26722 / r26724;
        float r26726 = -r26725;
        float r26727 = r26723 - r26721;
        float r26728 = r26726 / r26727;
        return r26728;
}

double f_od(double x) {
        double r26729 = 1;
        double r26730 = r26729 + r26729;
        double r26731 = x;
        double r26732 = r26729 + r26731;
        double r26733 = r26730 / r26732;
        double r26734 = -r26733;
        double r26735 = r26731 - r26729;
        double r26736 = r26734 / r26735;
        return r26736;
}

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 r26737, r26738, r26739, r26740, r26741, r26742, r26743;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(848);
        mpfr_init_set_str(r26737, "1", 10, MPFR_RNDN);
        mpfr_init(r26738);
        mpfr_init(r26739);
        mpfr_init(r26740);
        mpfr_init(r26741);
        mpfr_init(r26742);
        mpfr_init(r26743);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26738, x, MPFR_RNDN);
        mpfr_add(r26739, r26738, r26737, MPFR_RNDN);
        mpfr_div(r26740, r26737, r26739, MPFR_RNDN);
        mpfr_sub(r26741, r26738, r26737, MPFR_RNDN);
        mpfr_div(r26742, r26737, r26741, MPFR_RNDN);
        mpfr_sub(r26743, r26740, r26742, MPFR_RNDN);
        return mpfr_get_d(r26743, MPFR_RNDN);
}

static mpfr_t r26744, r26745, r26746, r26747, r26748, r26749, r26750, r26751;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(848);
        mpfr_init_set_str(r26744, "1", 10, MPFR_RNDN);
        mpfr_init(r26745);
        mpfr_init(r26746);
        mpfr_init(r26747);
        mpfr_init(r26748);
        mpfr_init(r26749);
        mpfr_init(r26750);
        mpfr_init(r26751);
}

double f_fm(double x) {
        ;
        mpfr_add(r26745, r26744, r26744, MPFR_RNDN);
        mpfr_set_d(r26746, x, MPFR_RNDN);
        mpfr_add(r26747, r26744, r26746, MPFR_RNDN);
        mpfr_div(r26748, r26745, r26747, MPFR_RNDN);
        mpfr_neg(r26749, r26748, MPFR_RNDN);
        mpfr_sub(r26750, r26746, r26744, MPFR_RNDN);
        mpfr_div(r26751, r26749, r26750, MPFR_RNDN);
        return mpfr_get_d(r26751, MPFR_RNDN);
}

static mpfr_t r26752, r26753, r26754, r26755, r26756, r26757, r26758, r26759;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(848);
        mpfr_init_set_str(r26752, "1", 10, MPFR_RNDN);
        mpfr_init(r26753);
        mpfr_init(r26754);
        mpfr_init(r26755);
        mpfr_init(r26756);
        mpfr_init(r26757);
        mpfr_init(r26758);
        mpfr_init(r26759);
}

double f_dm(double x) {
        ;
        mpfr_add(r26753, r26752, r26752, MPFR_RNDN);
        mpfr_set_d(r26754, x, MPFR_RNDN);
        mpfr_add(r26755, r26752, r26754, MPFR_RNDN);
        mpfr_div(r26756, r26753, r26755, MPFR_RNDN);
        mpfr_neg(r26757, r26756, MPFR_RNDN);
        mpfr_sub(r26758, r26754, r26752, MPFR_RNDN);
        mpfr_div(r26759, r26757, r26758, MPFR_RNDN);
        return mpfr_get_d(r26759, MPFR_RNDN);
}