#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 r26808 = 1;
        float r26809 = x;
        float r26810 = r26809 - r26808;
        float r26811 = r26808 / r26810;
        float r26812 = r26809 + r26808;
        float r26813 = r26809 / r26812;
        float r26814 = r26811 + r26813;
        return r26814;
}

double f_id(double x) {
        double r26815 = 1;
        double r26816 = x;
        double r26817 = r26816 - r26815;
        double r26818 = r26815 / r26817;
        double r26819 = r26816 + r26815;
        double r26820 = r26816 / r26819;
        double r26821 = r26818 + r26820;
        return r26821;
}


double f_of(float x) {
        float r26822 = 1;
        float r26823 = x;
        float r26824 = r26823 - r26822;
        float r26825 = r26822 / r26824;
        float r26826 = r26823 + r26822;
        float r26827 = r26823 / r26826;
        float r26828 = exp(r26827);
        float r26829 = log(r26828);
        float r26830 = r26825 + r26829;
        return r26830;
}

double f_od(double x) {
        double r26831 = 1;
        double r26832 = x;
        double r26833 = r26832 - r26831;
        double r26834 = r26831 / r26833;
        double r26835 = r26832 + r26831;
        double r26836 = r26832 / r26835;
        double r26837 = exp(r26836);
        double r26838 = log(r26837);
        double r26839 = r26834 + r26838;
        return r26839;
}

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 r26840, r26841, r26842, r26843, r26844, r26845, r26846;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26840, "1", 10, MPFR_RNDN);
        mpfr_init(r26841);
        mpfr_init(r26842);
        mpfr_init(r26843);
        mpfr_init(r26844);
        mpfr_init(r26845);
        mpfr_init(r26846);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26841, x, MPFR_RNDN);
        mpfr_sub(r26842, r26841, r26840, MPFR_RNDN);
        mpfr_div(r26843, r26840, r26842, MPFR_RNDN);
        mpfr_add(r26844, r26841, r26840, MPFR_RNDN);
        mpfr_div(r26845, r26841, r26844, MPFR_RNDN);
        mpfr_add(r26846, r26843, r26845, MPFR_RNDN);
        return mpfr_get_d(r26846, MPFR_RNDN);
}

static mpfr_t r26847, r26848, r26849, r26850, r26851, r26852, r26853, r26854, r26855;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26847, "1", 10, MPFR_RNDN);
        mpfr_init(r26848);
        mpfr_init(r26849);
        mpfr_init(r26850);
        mpfr_init(r26851);
        mpfr_init(r26852);
        mpfr_init(r26853);
        mpfr_init(r26854);
        mpfr_init(r26855);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r26848, x, MPFR_RNDN);
        mpfr_sub(r26849, r26848, r26847, MPFR_RNDN);
        mpfr_div(r26850, r26847, r26849, MPFR_RNDN);
        mpfr_add(r26851, r26848, r26847, MPFR_RNDN);
        mpfr_div(r26852, r26848, r26851, MPFR_RNDN);
        mpfr_exp(r26853, r26852, MPFR_RNDN);
        mpfr_log(r26854, r26853, MPFR_RNDN);
        mpfr_add(r26855, r26850, r26854, MPFR_RNDN);
        return mpfr_get_d(r26855, MPFR_RNDN);
}

static mpfr_t r26856, r26857, r26858, r26859, r26860, r26861, r26862, r26863, r26864;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26856, "1", 10, MPFR_RNDN);
        mpfr_init(r26857);
        mpfr_init(r26858);
        mpfr_init(r26859);
        mpfr_init(r26860);
        mpfr_init(r26861);
        mpfr_init(r26862);
        mpfr_init(r26863);
        mpfr_init(r26864);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r26857, x, MPFR_RNDN);
        mpfr_sub(r26858, r26857, r26856, MPFR_RNDN);
        mpfr_div(r26859, r26856, r26858, MPFR_RNDN);
        mpfr_add(r26860, r26857, r26856, MPFR_RNDN);
        mpfr_div(r26861, r26857, r26860, MPFR_RNDN);
        mpfr_exp(r26862, r26861, MPFR_RNDN);
        mpfr_log(r26863, r26862, MPFR_RNDN);
        mpfr_add(r26864, r26859, r26863, MPFR_RNDN);
        return mpfr_get_d(r26864, MPFR_RNDN);
}