#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 r27755 = 1;
        float r27756 = 5;
        float r27757 = v;
        float r27758 = r27757 * r27757;
        float r27759 = r27756 * r27758;
        float r27760 = r27755 - r27759;
        float r27761 = r27758 - r27755;
        float r27762 = r27760 / r27761;
        float r27763 = acos(r27762);
        return r27763;
}

double f_id(double v) {
        double r27764 = 1;
        double r27765 = 5;
        double r27766 = v;
        double r27767 = r27766 * r27766;
        double r27768 = r27765 * r27767;
        double r27769 = r27764 - r27768;
        double r27770 = r27767 - r27764;
        double r27771 = r27769 / r27770;
        double r27772 = acos(r27771);
        return r27772;
}


double f_of(float v) {
        float r27773 = atan2(1.0, 0.0);
        float r27774 = 2;
        float r27775 = r27773 / r27774;
        float r27776 = 1;
        float r27777 = 5;
        float r27778 = v;
        float r27779 = r27778 * r27778;
        float r27780 = r27777 * r27779;
        float r27781 = r27776 - r27780;
        float r27782 = r27779 - r27776;
        float r27783 = r27781 / r27782;
        float r27784 = asin(r27783);
        float r27785 = r27775 - r27784;
        float r27786 = log(r27785);
        float r27787 = exp(r27786);
        return r27787;
}

double f_od(double v) {
        double r27788 = atan2(1.0, 0.0);
        double r27789 = 2;
        double r27790 = r27788 / r27789;
        double r27791 = 1;
        double r27792 = 5;
        double r27793 = v;
        double r27794 = r27793 * r27793;
        double r27795 = r27792 * r27794;
        double r27796 = r27791 - r27795;
        double r27797 = r27794 - r27791;
        double r27798 = r27796 / r27797;
        double r27799 = asin(r27798);
        double r27800 = r27790 - r27799;
        double r27801 = log(r27800);
        double r27802 = exp(r27801);
        return r27802;
}

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 r27803, r27804, r27805, r27806, r27807, r27808, r27809, r27810, r27811;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27803, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27804, "5", 10, MPFR_RNDN);
        mpfr_init(r27805);
        mpfr_init(r27806);
        mpfr_init(r27807);
        mpfr_init(r27808);
        mpfr_init(r27809);
        mpfr_init(r27810);
        mpfr_init(r27811);
}

double f_im(double v) {
        ;
        ;
        mpfr_set_d(r27805, v, MPFR_RNDN);
        mpfr_mul(r27806, r27805, r27805, MPFR_RNDN);
        mpfr_mul(r27807, r27804, r27806, MPFR_RNDN);
        mpfr_sub(r27808, r27803, r27807, MPFR_RNDN);
        mpfr_sub(r27809, r27806, r27803, MPFR_RNDN);
        mpfr_div(r27810, r27808, r27809, MPFR_RNDN);
        mpfr_acos(r27811, r27810, MPFR_RNDN);
        return mpfr_get_d(r27811, MPFR_RNDN);
}

static mpfr_t r27812, r27813, r27814, r27815, r27816, r27817, r27818, r27819, r27820, r27821, r27822, r27823, r27824, r27825, r27826;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r27812);
        mpfr_init_set_str(r27813, "2", 10, MPFR_RNDN);
        mpfr_init(r27814);
        mpfr_init_set_str(r27815, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27816, "5", 10, MPFR_RNDN);
        mpfr_init(r27817);
        mpfr_init(r27818);
        mpfr_init(r27819);
        mpfr_init(r27820);
        mpfr_init(r27821);
        mpfr_init(r27822);
        mpfr_init(r27823);
        mpfr_init(r27824);
        mpfr_init(r27825);
        mpfr_init(r27826);
}

double f_fm(double v) {
        mpfr_const_pi(r27812, MPFR_RNDN);
        ;
        mpfr_div(r27814, r27812, r27813, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r27817, v, MPFR_RNDN);
        mpfr_mul(r27818, r27817, r27817, MPFR_RNDN);
        mpfr_mul(r27819, r27816, r27818, MPFR_RNDN);
        mpfr_sub(r27820, r27815, r27819, MPFR_RNDN);
        mpfr_sub(r27821, r27818, r27815, MPFR_RNDN);
        mpfr_div(r27822, r27820, r27821, MPFR_RNDN);
        mpfr_asin(r27823, r27822, MPFR_RNDN);
        mpfr_sub(r27824, r27814, r27823, MPFR_RNDN);
        mpfr_log(r27825, r27824, MPFR_RNDN);
        mpfr_exp(r27826, r27825, MPFR_RNDN);
        return mpfr_get_d(r27826, MPFR_RNDN);
}

static mpfr_t r27827, r27828, r27829, r27830, r27831, r27832, r27833, r27834, r27835, r27836, r27837, r27838, r27839, r27840, r27841;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r27827);
        mpfr_init_set_str(r27828, "2", 10, MPFR_RNDN);
        mpfr_init(r27829);
        mpfr_init_set_str(r27830, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27831, "5", 10, MPFR_RNDN);
        mpfr_init(r27832);
        mpfr_init(r27833);
        mpfr_init(r27834);
        mpfr_init(r27835);
        mpfr_init(r27836);
        mpfr_init(r27837);
        mpfr_init(r27838);
        mpfr_init(r27839);
        mpfr_init(r27840);
        mpfr_init(r27841);
}

double f_dm(double v) {
        mpfr_const_pi(r27827, MPFR_RNDN);
        ;
        mpfr_div(r27829, r27827, r27828, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r27832, v, MPFR_RNDN);
        mpfr_mul(r27833, r27832, r27832, MPFR_RNDN);
        mpfr_mul(r27834, r27831, r27833, MPFR_RNDN);
        mpfr_sub(r27835, r27830, r27834, MPFR_RNDN);
        mpfr_sub(r27836, r27833, r27830, MPFR_RNDN);
        mpfr_div(r27837, r27835, r27836, MPFR_RNDN);
        mpfr_asin(r27838, r27837, MPFR_RNDN);
        mpfr_sub(r27839, r27829, r27838, MPFR_RNDN);
        mpfr_log(r27840, r27839, MPFR_RNDN);
        mpfr_exp(r27841, r27840, MPFR_RNDN);
        return mpfr_get_d(r27841, MPFR_RNDN);
}