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

char *name = "VandenBroeck and Keller, Equation (20)";

double f_if(float f) {
        float r21608 = 1;
        float r21609 = atan2(1.0, 0.0);
        float r21610 = 4;
        float r21611 = r21609 / r21610;
        float r21612 = r21608 / r21611;
        float r21613 = f;
        float r21614 = r21611 * r21613;
        float r21615 = exp(r21614);
        float r21616 = -r21614;
        float r21617 = exp(r21616);
        float r21618 = r21615 + r21617;
        float r21619 = r21615 - r21617;
        float r21620 = r21618 / r21619;
        float r21621 = log(r21620);
        float r21622 = r21612 * r21621;
        float r21623 = -r21622;
        return r21623;
}

double f_id(double f) {
        double r21624 = 1;
        double r21625 = atan2(1.0, 0.0);
        double r21626 = 4;
        double r21627 = r21625 / r21626;
        double r21628 = r21624 / r21627;
        double r21629 = f;
        double r21630 = r21627 * r21629;
        double r21631 = exp(r21630);
        double r21632 = -r21630;
        double r21633 = exp(r21632);
        double r21634 = r21631 + r21633;
        double r21635 = r21631 - r21633;
        double r21636 = r21634 / r21635;
        double r21637 = log(r21636);
        double r21638 = r21628 * r21637;
        double r21639 = -r21638;
        return r21639;
}


double f_of(float f) {
        float r21640 = 4;
        float r21641 = atan2(1.0, 0.0);
        float r21642 = r21640 / r21641;
        float r21643 = log(r21642);
        float r21644 = r21643 / r21641;
        float r21645 = r21640 * r21644;
        float r21646 = 1/12;
        float r21647 = f;
        float r21648 = 2;
        float r21649 = pow(r21647, r21648);
        float r21650 = r21641 * r21649;
        float r21651 = r21646 * r21650;
        float r21652 = r21645 + r21651;
        float r21653 = 7/5760;
        float r21654 = 3;
        float r21655 = pow(r21641, r21654);
        float r21656 = pow(r21647, r21640);
        float r21657 = r21655 * r21656;
        float r21658 = r21653 * r21657;
        float r21659 = log(r21647);
        float r21660 = r21659 / r21641;
        float r21661 = r21640 * r21660;
        float r21662 = r21658 + r21661;
        float r21663 = r21652 - r21662;
        float r21664 = -r21663;
        return r21664;
}

double f_od(double f) {
        double r21665 = 4;
        double r21666 = atan2(1.0, 0.0);
        double r21667 = r21665 / r21666;
        double r21668 = log(r21667);
        double r21669 = r21668 / r21666;
        double r21670 = r21665 * r21669;
        double r21671 = 1/12;
        double r21672 = f;
        double r21673 = 2;
        double r21674 = pow(r21672, r21673);
        double r21675 = r21666 * r21674;
        double r21676 = r21671 * r21675;
        double r21677 = r21670 + r21676;
        double r21678 = 7/5760;
        double r21679 = 3;
        double r21680 = pow(r21666, r21679);
        double r21681 = pow(r21672, r21665);
        double r21682 = r21680 * r21681;
        double r21683 = r21678 * r21682;
        double r21684 = log(r21672);
        double r21685 = r21684 / r21666;
        double r21686 = r21665 * r21685;
        double r21687 = r21683 + r21686;
        double r21688 = r21677 - r21687;
        double r21689 = -r21688;
        return r21689;
}

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 r21690, r21691, r21692, r21693, r21694, r21695, r21696, r21697, r21698, r21699, r21700, r21701, r21702, r21703, r21704, r21705;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r21690, "1", 10, MPFR_RNDN);
        mpfr_init(r21691);
        mpfr_init_set_str(r21692, "4", 10, MPFR_RNDN);
        mpfr_init(r21693);
        mpfr_init(r21694);
        mpfr_init(r21695);
        mpfr_init(r21696);
        mpfr_init(r21697);
        mpfr_init(r21698);
        mpfr_init(r21699);
        mpfr_init(r21700);
        mpfr_init(r21701);
        mpfr_init(r21702);
        mpfr_init(r21703);
        mpfr_init(r21704);
        mpfr_init(r21705);
}

double f_im(double f) {
        ;
        mpfr_const_pi(r21691, MPFR_RNDN);
        ;
        mpfr_div(r21693, r21691, r21692, MPFR_RNDN);
        mpfr_div(r21694, r21690, r21693, MPFR_RNDN);
        mpfr_set_d(r21695, f, MPFR_RNDN);
        mpfr_mul(r21696, r21693, r21695, MPFR_RNDN);
        mpfr_exp(r21697, r21696, MPFR_RNDN);
        mpfr_neg(r21698, r21696, MPFR_RNDN);
        mpfr_exp(r21699, r21698, MPFR_RNDN);
        mpfr_add(r21700, r21697, r21699, MPFR_RNDN);
        mpfr_sub(r21701, r21697, r21699, MPFR_RNDN);
        mpfr_div(r21702, r21700, r21701, MPFR_RNDN);
        mpfr_log(r21703, r21702, MPFR_RNDN);
        mpfr_mul(r21704, r21694, r21703, MPFR_RNDN);
        mpfr_neg(r21705, r21704, MPFR_RNDN);
        return mpfr_get_d(r21705, MPFR_RNDN);
}

static mpfr_t r21706, r21707, r21708, r21709, r21710, r21711, r21712, r21713, r21714, r21715, r21716, r21717, r21718, r21719, r21720, r21721, r21722, r21723, r21724, r21725, r21726, r21727, r21728, r21729, r21730;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r21706, "4", 10, MPFR_RNDN);
        mpfr_init(r21707);
        mpfr_init(r21708);
        mpfr_init(r21709);
        mpfr_init(r21710);
        mpfr_init(r21711);
        mpfr_init_set_str(r21712, "1/12", 10, MPFR_RNDN);
        mpfr_init(r21713);
        mpfr_init_set_str(r21714, "2", 10, MPFR_RNDN);
        mpfr_init(r21715);
        mpfr_init(r21716);
        mpfr_init(r21717);
        mpfr_init(r21718);
        mpfr_init_set_str(r21719, "7/5760", 10, MPFR_RNDN);
        mpfr_init_set_str(r21720, "3", 10, MPFR_RNDN);
        mpfr_init(r21721);
        mpfr_init(r21722);
        mpfr_init(r21723);
        mpfr_init(r21724);
        mpfr_init(r21725);
        mpfr_init(r21726);
        mpfr_init(r21727);
        mpfr_init(r21728);
        mpfr_init(r21729);
        mpfr_init(r21730);
}

double f_fm(double f) {
        ;
        mpfr_const_pi(r21707, MPFR_RNDN);
        mpfr_div(r21708, r21706, r21707, MPFR_RNDN);
        mpfr_log(r21709, r21708, MPFR_RNDN);
        mpfr_div(r21710, r21709, r21707, MPFR_RNDN);
        mpfr_mul(r21711, r21706, r21710, MPFR_RNDN);
        ;
        mpfr_set_d(r21713, f, MPFR_RNDN);
        ;
        mpfr_pow(r21715, r21713, r21714, MPFR_RNDN);
        mpfr_mul(r21716, r21707, r21715, MPFR_RNDN);
        mpfr_mul(r21717, r21712, r21716, MPFR_RNDN);
        mpfr_add(r21718, r21711, r21717, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r21721, r21707, r21720, MPFR_RNDN);
        mpfr_pow(r21722, r21713, r21706, MPFR_RNDN);
        mpfr_mul(r21723, r21721, r21722, MPFR_RNDN);
        mpfr_mul(r21724, r21719, r21723, MPFR_RNDN);
        mpfr_log(r21725, r21713, MPFR_RNDN);
        mpfr_div(r21726, r21725, r21707, MPFR_RNDN);
        mpfr_mul(r21727, r21706, r21726, MPFR_RNDN);
        mpfr_add(r21728, r21724, r21727, MPFR_RNDN);
        mpfr_sub(r21729, r21718, r21728, MPFR_RNDN);
        mpfr_neg(r21730, r21729, MPFR_RNDN);
        return mpfr_get_d(r21730, MPFR_RNDN);
}

static mpfr_t r21731, r21732, r21733, r21734, r21735, r21736, r21737, r21738, r21739, r21740, r21741, r21742, r21743, r21744, r21745, r21746, r21747, r21748, r21749, r21750, r21751, r21752, r21753, r21754, r21755;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r21731, "4", 10, MPFR_RNDN);
        mpfr_init(r21732);
        mpfr_init(r21733);
        mpfr_init(r21734);
        mpfr_init(r21735);
        mpfr_init(r21736);
        mpfr_init_set_str(r21737, "1/12", 10, MPFR_RNDN);
        mpfr_init(r21738);
        mpfr_init_set_str(r21739, "2", 10, MPFR_RNDN);
        mpfr_init(r21740);
        mpfr_init(r21741);
        mpfr_init(r21742);
        mpfr_init(r21743);
        mpfr_init_set_str(r21744, "7/5760", 10, MPFR_RNDN);
        mpfr_init_set_str(r21745, "3", 10, MPFR_RNDN);
        mpfr_init(r21746);
        mpfr_init(r21747);
        mpfr_init(r21748);
        mpfr_init(r21749);
        mpfr_init(r21750);
        mpfr_init(r21751);
        mpfr_init(r21752);
        mpfr_init(r21753);
        mpfr_init(r21754);
        mpfr_init(r21755);
}

double f_dm(double f) {
        ;
        mpfr_const_pi(r21732, MPFR_RNDN);
        mpfr_div(r21733, r21731, r21732, MPFR_RNDN);
        mpfr_log(r21734, r21733, MPFR_RNDN);
        mpfr_div(r21735, r21734, r21732, MPFR_RNDN);
        mpfr_mul(r21736, r21731, r21735, MPFR_RNDN);
        ;
        mpfr_set_d(r21738, f, MPFR_RNDN);
        ;
        mpfr_pow(r21740, r21738, r21739, MPFR_RNDN);
        mpfr_mul(r21741, r21732, r21740, MPFR_RNDN);
        mpfr_mul(r21742, r21737, r21741, MPFR_RNDN);
        mpfr_add(r21743, r21736, r21742, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r21746, r21732, r21745, MPFR_RNDN);
        mpfr_pow(r21747, r21738, r21731, MPFR_RNDN);
        mpfr_mul(r21748, r21746, r21747, MPFR_RNDN);
        mpfr_mul(r21749, r21744, r21748, MPFR_RNDN);
        mpfr_log(r21750, r21738, MPFR_RNDN);
        mpfr_div(r21751, r21750, r21732, MPFR_RNDN);
        mpfr_mul(r21752, r21731, r21751, MPFR_RNDN);
        mpfr_add(r21753, r21749, r21752, MPFR_RNDN);
        mpfr_sub(r21754, r21743, r21753, MPFR_RNDN);
        mpfr_neg(r21755, r21754, MPFR_RNDN);
        return mpfr_get_d(r21755, MPFR_RNDN);
}