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

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

double f_if(float v) {
        float r26976 = 2;
        float r26977 = sqrt(r26976);
        float r26978 = 4;
        float r26979 = r26977 / r26978;
        float r26980 = 1;
        float r26981 = 3;
        float r26982 = v;
        float r26983 = r26982 * r26982;
        float r26984 = r26981 * r26983;
        float r26985 = r26980 - r26984;
        float r26986 = sqrt(r26985);
        float r26987 = r26979 * r26986;
        float r26988 = r26980 - r26983;
        float r26989 = r26987 * r26988;
        return r26989;
}

double f_id(double v) {
        double r26990 = 2;
        double r26991 = sqrt(r26990);
        double r26992 = 4;
        double r26993 = r26991 / r26992;
        double r26994 = 1;
        double r26995 = 3;
        double r26996 = v;
        double r26997 = r26996 * r26996;
        double r26998 = r26995 * r26997;
        double r26999 = r26994 - r26998;
        double r27000 = sqrt(r26999);
        double r27001 = r26993 * r27000;
        double r27002 = r26994 - r26997;
        double r27003 = r27001 * r27002;
        return r27003;
}


double f_of(float v) {
        float r27004 = 2;
        float r27005 = sqrt(r27004);
        float r27006 = 4;
        float r27007 = r27005 / r27006;
        float r27008 = 1;
        float r27009 = 3;
        float r27010 = v;
        float r27011 = r27010 * r27010;
        float r27012 = r27009 * r27011;
        float r27013 = r27008 - r27012;
        float r27014 = sqrt(r27013);
        float r27015 = r27007 * r27014;
        float r27016 = exp(r27015);
        float r27017 = log(r27016);
        float r27018 = r27008 - r27011;
        float r27019 = r27017 * r27018;
        return r27019;
}

double f_od(double v) {
        double r27020 = 2;
        double r27021 = sqrt(r27020);
        double r27022 = 4;
        double r27023 = r27021 / r27022;
        double r27024 = 1;
        double r27025 = 3;
        double r27026 = v;
        double r27027 = r27026 * r27026;
        double r27028 = r27025 * r27027;
        double r27029 = r27024 - r27028;
        double r27030 = sqrt(r27029);
        double r27031 = r27023 * r27030;
        double r27032 = exp(r27031);
        double r27033 = log(r27032);
        double r27034 = r27024 - r27027;
        double r27035 = r27033 * r27034;
        return r27035;
}

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 r27036, r27037, r27038, r27039, r27040, r27041, r27042, r27043, r27044, r27045, r27046, r27047, r27048, r27049;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27036, "2", 10, MPFR_RNDN);
        mpfr_init(r27037);
        mpfr_init_set_str(r27038, "4", 10, MPFR_RNDN);
        mpfr_init(r27039);
        mpfr_init_set_str(r27040, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27041, "3", 10, MPFR_RNDN);
        mpfr_init(r27042);
        mpfr_init(r27043);
        mpfr_init(r27044);
        mpfr_init(r27045);
        mpfr_init(r27046);
        mpfr_init(r27047);
        mpfr_init(r27048);
        mpfr_init(r27049);
}

double f_im(double v) {
        ;
        mpfr_sqrt(r27037, r27036, MPFR_RNDN);
        ;
        mpfr_div(r27039, r27037, r27038, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r27042, v, MPFR_RNDN);
        mpfr_mul(r27043, r27042, r27042, MPFR_RNDN);
        mpfr_mul(r27044, r27041, r27043, MPFR_RNDN);
        mpfr_sub(r27045, r27040, r27044, MPFR_RNDN);
        mpfr_sqrt(r27046, r27045, MPFR_RNDN);
        mpfr_mul(r27047, r27039, r27046, MPFR_RNDN);
        mpfr_sub(r27048, r27040, r27043, MPFR_RNDN);
        mpfr_mul(r27049, r27047, r27048, MPFR_RNDN);
        return mpfr_get_d(r27049, MPFR_RNDN);
}

static mpfr_t r27050, r27051, r27052, r27053, r27054, r27055, r27056, r27057, r27058, r27059, r27060, r27061, r27062, r27063, r27064, r27065;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27050, "2", 10, MPFR_RNDN);
        mpfr_init(r27051);
        mpfr_init_set_str(r27052, "4", 10, MPFR_RNDN);
        mpfr_init(r27053);
        mpfr_init_set_str(r27054, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27055, "3", 10, MPFR_RNDN);
        mpfr_init(r27056);
        mpfr_init(r27057);
        mpfr_init(r27058);
        mpfr_init(r27059);
        mpfr_init(r27060);
        mpfr_init(r27061);
        mpfr_init(r27062);
        mpfr_init(r27063);
        mpfr_init(r27064);
        mpfr_init(r27065);
}

double f_fm(double v) {
        ;
        mpfr_sqrt(r27051, r27050, MPFR_RNDN);
        ;
        mpfr_div(r27053, r27051, r27052, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r27056, v, MPFR_RNDN);
        mpfr_mul(r27057, r27056, r27056, MPFR_RNDN);
        mpfr_mul(r27058, r27055, r27057, MPFR_RNDN);
        mpfr_sub(r27059, r27054, r27058, MPFR_RNDN);
        mpfr_sqrt(r27060, r27059, MPFR_RNDN);
        mpfr_mul(r27061, r27053, r27060, MPFR_RNDN);
        mpfr_exp(r27062, r27061, MPFR_RNDN);
        mpfr_log(r27063, r27062, MPFR_RNDN);
        mpfr_sub(r27064, r27054, r27057, MPFR_RNDN);
        mpfr_mul(r27065, r27063, r27064, MPFR_RNDN);
        return mpfr_get_d(r27065, MPFR_RNDN);
}

static mpfr_t r27066, r27067, r27068, r27069, r27070, r27071, r27072, r27073, r27074, r27075, r27076, r27077, r27078, r27079, r27080, r27081;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27066, "2", 10, MPFR_RNDN);
        mpfr_init(r27067);
        mpfr_init_set_str(r27068, "4", 10, MPFR_RNDN);
        mpfr_init(r27069);
        mpfr_init_set_str(r27070, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27071, "3", 10, MPFR_RNDN);
        mpfr_init(r27072);
        mpfr_init(r27073);
        mpfr_init(r27074);
        mpfr_init(r27075);
        mpfr_init(r27076);
        mpfr_init(r27077);
        mpfr_init(r27078);
        mpfr_init(r27079);
        mpfr_init(r27080);
        mpfr_init(r27081);
}

double f_dm(double v) {
        ;
        mpfr_sqrt(r27067, r27066, MPFR_RNDN);
        ;
        mpfr_div(r27069, r27067, r27068, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r27072, v, MPFR_RNDN);
        mpfr_mul(r27073, r27072, r27072, MPFR_RNDN);
        mpfr_mul(r27074, r27071, r27073, MPFR_RNDN);
        mpfr_sub(r27075, r27070, r27074, MPFR_RNDN);
        mpfr_sqrt(r27076, r27075, MPFR_RNDN);
        mpfr_mul(r27077, r27069, r27076, MPFR_RNDN);
        mpfr_exp(r27078, r27077, MPFR_RNDN);
        mpfr_log(r27079, r27078, MPFR_RNDN);
        mpfr_sub(r27080, r27070, r27073, MPFR_RNDN);
        mpfr_mul(r27081, r27079, r27080, MPFR_RNDN);
        return mpfr_get_d(r27081, MPFR_RNDN);
}