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

char *name = "Falkner and Boettcher, Appendix B, 1";

double f_if(float v) {
        float r27578 = 1;
        float r27579 = 5;
        float r27580 = v;
        float r27581 = r27580 * r27580;
        float r27582 = r27579 * r27581;
        float r27583 = r27578 - r27582;
        float r27584 = r27581 - r27578;
        float r27585 = r27583 / r27584;
        float r27586 = acos(r27585);
        return r27586;
}

double f_id(double v) {
        double r27587 = 1;
        double r27588 = 5;
        double r27589 = v;
        double r27590 = r27589 * r27589;
        double r27591 = r27588 * r27590;
        double r27592 = r27587 - r27591;
        double r27593 = r27590 - r27587;
        double r27594 = r27592 / r27593;
        double r27595 = acos(r27594);
        return r27595;
}


double f_of(float v) {
        float r27596 = 1;
        float r27597 = 5;
        float r27598 = v;
        float r27599 = r27598 * r27598;
        float r27600 = r27597 * r27599;
        float r27601 = exp(r27600);
        float r27602 = log(r27601);
        float r27603 = r27596 - r27602;
        float r27604 = r27599 - r27596;
        float r27605 = r27603 / r27604;
        float r27606 = acos(r27605);
        return r27606;
}

double f_od(double v) {
        double r27607 = 1;
        double r27608 = 5;
        double r27609 = v;
        double r27610 = r27609 * r27609;
        double r27611 = r27608 * r27610;
        double r27612 = exp(r27611);
        double r27613 = log(r27612);
        double r27614 = r27607 - r27613;
        double r27615 = r27610 - r27607;
        double r27616 = r27614 / r27615;
        double r27617 = acos(r27616);
        return r27617;
}

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 r27618, r27619, r27620, r27621, r27622, r27623, r27624, r27625, r27626;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27618, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27619, "5", 10, MPFR_RNDN);
        mpfr_init(r27620);
        mpfr_init(r27621);
        mpfr_init(r27622);
        mpfr_init(r27623);
        mpfr_init(r27624);
        mpfr_init(r27625);
        mpfr_init(r27626);
}

double f_im(double v) {
        ;
        ;
        mpfr_set_d(r27620, v, MPFR_RNDN);
        mpfr_mul(r27621, r27620, r27620, MPFR_RNDN);
        mpfr_mul(r27622, r27619, r27621, MPFR_RNDN);
        mpfr_sub(r27623, r27618, r27622, MPFR_RNDN);
        mpfr_sub(r27624, r27621, r27618, MPFR_RNDN);
        mpfr_div(r27625, r27623, r27624, MPFR_RNDN);
        mpfr_acos(r27626, r27625, MPFR_RNDN);
        return mpfr_get_d(r27626, MPFR_RNDN);
}

static mpfr_t r27627, r27628, r27629, r27630, r27631, r27632, r27633, r27634, r27635, r27636, r27637;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27627, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27628, "5", 10, MPFR_RNDN);
        mpfr_init(r27629);
        mpfr_init(r27630);
        mpfr_init(r27631);
        mpfr_init(r27632);
        mpfr_init(r27633);
        mpfr_init(r27634);
        mpfr_init(r27635);
        mpfr_init(r27636);
        mpfr_init(r27637);
}

double f_fm(double v) {
        ;
        ;
        mpfr_set_d(r27629, v, MPFR_RNDN);
        mpfr_mul(r27630, r27629, r27629, MPFR_RNDN);
        mpfr_mul(r27631, r27628, r27630, MPFR_RNDN);
        mpfr_exp(r27632, r27631, MPFR_RNDN);
        mpfr_log(r27633, r27632, MPFR_RNDN);
        mpfr_sub(r27634, r27627, r27633, MPFR_RNDN);
        mpfr_sub(r27635, r27630, r27627, MPFR_RNDN);
        mpfr_div(r27636, r27634, r27635, MPFR_RNDN);
        mpfr_acos(r27637, r27636, MPFR_RNDN);
        return mpfr_get_d(r27637, MPFR_RNDN);
}

static mpfr_t r27638, r27639, r27640, r27641, r27642, r27643, r27644, r27645, r27646, r27647, r27648;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27638, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27639, "5", 10, MPFR_RNDN);
        mpfr_init(r27640);
        mpfr_init(r27641);
        mpfr_init(r27642);
        mpfr_init(r27643);
        mpfr_init(r27644);
        mpfr_init(r27645);
        mpfr_init(r27646);
        mpfr_init(r27647);
        mpfr_init(r27648);
}

double f_dm(double v) {
        ;
        ;
        mpfr_set_d(r27640, v, MPFR_RNDN);
        mpfr_mul(r27641, r27640, r27640, MPFR_RNDN);
        mpfr_mul(r27642, r27639, r27641, MPFR_RNDN);
        mpfr_exp(r27643, r27642, MPFR_RNDN);
        mpfr_log(r27644, r27643, MPFR_RNDN);
        mpfr_sub(r27645, r27638, r27644, MPFR_RNDN);
        mpfr_sub(r27646, r27641, r27638, MPFR_RNDN);
        mpfr_div(r27647, r27645, r27646, MPFR_RNDN);
        mpfr_acos(r27648, r27647, MPFR_RNDN);
        return mpfr_get_d(r27648, MPFR_RNDN);
}