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

char *name = "Bouland and Aaronson, Equation (24)";

double f_if(float a, float b) {
        float r27705 = a;
        float r27706 = r27705 * r27705;
        float r27707 = b;
        float r27708 = r27707 * r27707;
        float r27709 = r27706 + r27708;
        float r27710 = 2;
        float r27711 = pow(r27709, r27710);
        float r27712 = 4;
        float r27713 = 1;
        float r27714 = r27713 - r27705;
        float r27715 = r27706 * r27714;
        float r27716 = 3;
        float r27717 = r27716 + r27705;
        float r27718 = r27708 * r27717;
        float r27719 = r27715 + r27718;
        float r27720 = r27712 * r27719;
        float r27721 = r27711 + r27720;
        float r27722 = r27721 - r27713;
        return r27722;
}

double f_id(double a, double b) {
        double r27723 = a;
        double r27724 = r27723 * r27723;
        double r27725 = b;
        double r27726 = r27725 * r27725;
        double r27727 = r27724 + r27726;
        double r27728 = 2;
        double r27729 = pow(r27727, r27728);
        double r27730 = 4;
        double r27731 = 1;
        double r27732 = r27731 - r27723;
        double r27733 = r27724 * r27732;
        double r27734 = 3;
        double r27735 = r27734 + r27723;
        double r27736 = r27726 * r27735;
        double r27737 = r27733 + r27736;
        double r27738 = r27730 * r27737;
        double r27739 = r27729 + r27738;
        double r27740 = r27739 - r27731;
        return r27740;
}


double f_of(float a, float b) {
        float r27741 = a;
        float r27742 = r27741 * r27741;
        float r27743 = b;
        float r27744 = r27743 * r27743;
        float r27745 = r27742 + r27744;
        float r27746 = 2;
        float r27747 = pow(r27745, r27746);
        float r27748 = 4;
        float r27749 = 1;
        float r27750 = r27749 - r27741;
        float r27751 = r27742 * r27750;
        float r27752 = 3;
        float r27753 = r27752 + r27741;
        float r27754 = r27744 * r27753;
        float r27755 = r27751 + r27754;
        float r27756 = r27748 * r27755;
        float r27757 = r27747 + r27756;
        float r27758 = r27757 - r27749;
        return r27758;
}

double f_od(double a, double b) {
        double r27759 = a;
        double r27760 = r27759 * r27759;
        double r27761 = b;
        double r27762 = r27761 * r27761;
        double r27763 = r27760 + r27762;
        double r27764 = 2;
        double r27765 = pow(r27763, r27764);
        double r27766 = 4;
        double r27767 = 1;
        double r27768 = r27767 - r27759;
        double r27769 = r27760 * r27768;
        double r27770 = 3;
        double r27771 = r27770 + r27759;
        double r27772 = r27762 * r27771;
        double r27773 = r27769 + r27772;
        double r27774 = r27766 * r27773;
        double r27775 = r27765 + r27774;
        double r27776 = r27775 - r27767;
        return r27776;
}

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 r27777, r27778, r27779, r27780, r27781, r27782, r27783, r27784, r27785, r27786, r27787, r27788, r27789, r27790, r27791, r27792, r27793, r27794;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r27777);
        mpfr_init(r27778);
        mpfr_init(r27779);
        mpfr_init(r27780);
        mpfr_init(r27781);
        mpfr_init_set_str(r27782, "2", 10, MPFR_RNDN);
        mpfr_init(r27783);
        mpfr_init_set_str(r27784, "4", 10, MPFR_RNDN);
        mpfr_init_set_str(r27785, "1", 10, MPFR_RNDN);
        mpfr_init(r27786);
        mpfr_init(r27787);
        mpfr_init_set_str(r27788, "3", 10, MPFR_RNDN);
        mpfr_init(r27789);
        mpfr_init(r27790);
        mpfr_init(r27791);
        mpfr_init(r27792);
        mpfr_init(r27793);
        mpfr_init(r27794);
}

double f_im(double a, double b) {
        mpfr_set_d(r27777, a, MPFR_RNDN);
        mpfr_mul(r27778, r27777, r27777, MPFR_RNDN);
        mpfr_set_d(r27779, b, MPFR_RNDN);
        mpfr_mul(r27780, r27779, r27779, MPFR_RNDN);
        mpfr_add(r27781, r27778, r27780, MPFR_RNDN);
        ;
        mpfr_pow(r27783, r27781, r27782, MPFR_RNDN);
        ;
        ;
        mpfr_sub(r27786, r27785, r27777, MPFR_RNDN);
        mpfr_mul(r27787, r27778, r27786, MPFR_RNDN);
        ;
        mpfr_add(r27789, r27788, r27777, MPFR_RNDN);
        mpfr_mul(r27790, r27780, r27789, MPFR_RNDN);
        mpfr_add(r27791, r27787, r27790, MPFR_RNDN);
        mpfr_mul(r27792, r27784, r27791, MPFR_RNDN);
        mpfr_add(r27793, r27783, r27792, MPFR_RNDN);
        mpfr_sub(r27794, r27793, r27785, MPFR_RNDN);
        return mpfr_get_d(r27794, MPFR_RNDN);
}

static mpfr_t r27795, r27796, r27797, r27798, r27799, r27800, r27801, r27802, r27803, r27804, r27805, r27806, r27807, r27808, r27809, r27810, r27811, r27812;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r27795);
        mpfr_init(r27796);
        mpfr_init(r27797);
        mpfr_init(r27798);
        mpfr_init(r27799);
        mpfr_init_set_str(r27800, "2", 10, MPFR_RNDN);
        mpfr_init(r27801);
        mpfr_init_set_str(r27802, "4", 10, MPFR_RNDN);
        mpfr_init_set_str(r27803, "1", 10, MPFR_RNDN);
        mpfr_init(r27804);
        mpfr_init(r27805);
        mpfr_init_set_str(r27806, "3", 10, MPFR_RNDN);
        mpfr_init(r27807);
        mpfr_init(r27808);
        mpfr_init(r27809);
        mpfr_init(r27810);
        mpfr_init(r27811);
        mpfr_init(r27812);
}

double f_fm(double a, double b) {
        mpfr_set_d(r27795, a, MPFR_RNDN);
        mpfr_mul(r27796, r27795, r27795, MPFR_RNDN);
        mpfr_set_d(r27797, b, MPFR_RNDN);
        mpfr_mul(r27798, r27797, r27797, MPFR_RNDN);
        mpfr_add(r27799, r27796, r27798, MPFR_RNDN);
        ;
        mpfr_pow(r27801, r27799, r27800, MPFR_RNDN);
        ;
        ;
        mpfr_sub(r27804, r27803, r27795, MPFR_RNDN);
        mpfr_mul(r27805, r27796, r27804, MPFR_RNDN);
        ;
        mpfr_add(r27807, r27806, r27795, MPFR_RNDN);
        mpfr_mul(r27808, r27798, r27807, MPFR_RNDN);
        mpfr_add(r27809, r27805, r27808, MPFR_RNDN);
        mpfr_mul(r27810, r27802, r27809, MPFR_RNDN);
        mpfr_add(r27811, r27801, r27810, MPFR_RNDN);
        mpfr_sub(r27812, r27811, r27803, MPFR_RNDN);
        return mpfr_get_d(r27812, MPFR_RNDN);
}

static mpfr_t r27813, r27814, r27815, r27816, r27817, r27818, r27819, r27820, r27821, r27822, r27823, r27824, r27825, r27826, r27827, r27828, r27829, r27830;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r27813);
        mpfr_init(r27814);
        mpfr_init(r27815);
        mpfr_init(r27816);
        mpfr_init(r27817);
        mpfr_init_set_str(r27818, "2", 10, MPFR_RNDN);
        mpfr_init(r27819);
        mpfr_init_set_str(r27820, "4", 10, MPFR_RNDN);
        mpfr_init_set_str(r27821, "1", 10, MPFR_RNDN);
        mpfr_init(r27822);
        mpfr_init(r27823);
        mpfr_init_set_str(r27824, "3", 10, MPFR_RNDN);
        mpfr_init(r27825);
        mpfr_init(r27826);
        mpfr_init(r27827);
        mpfr_init(r27828);
        mpfr_init(r27829);
        mpfr_init(r27830);
}

double f_dm(double a, double b) {
        mpfr_set_d(r27813, a, MPFR_RNDN);
        mpfr_mul(r27814, r27813, r27813, MPFR_RNDN);
        mpfr_set_d(r27815, b, MPFR_RNDN);
        mpfr_mul(r27816, r27815, r27815, MPFR_RNDN);
        mpfr_add(r27817, r27814, r27816, MPFR_RNDN);
        ;
        mpfr_pow(r27819, r27817, r27818, MPFR_RNDN);
        ;
        ;
        mpfr_sub(r27822, r27821, r27813, MPFR_RNDN);
        mpfr_mul(r27823, r27814, r27822, MPFR_RNDN);
        ;
        mpfr_add(r27825, r27824, r27813, MPFR_RNDN);
        mpfr_mul(r27826, r27816, r27825, MPFR_RNDN);
        mpfr_add(r27827, r27823, r27826, MPFR_RNDN);
        mpfr_mul(r27828, r27820, r27827, MPFR_RNDN);
        mpfr_add(r27829, r27819, r27828, MPFR_RNDN);
        mpfr_sub(r27830, r27829, r27821, MPFR_RNDN);
        return mpfr_get_d(r27830, MPFR_RNDN);
}