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

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

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

double f_id(double a, double b) {
        double r27727 = a;
        double r27728 = r27727 * r27727;
        double r27729 = b;
        double r27730 = r27729 * r27729;
        double r27731 = r27728 + r27730;
        double r27732 = 2;
        double r27733 = pow(r27731, r27732);
        double r27734 = 4;
        double r27735 = 1;
        double r27736 = r27735 + r27727;
        double r27737 = r27728 * r27736;
        double r27738 = 3;
        double r27739 = r27738 * r27727;
        double r27740 = r27735 - r27739;
        double r27741 = r27730 * r27740;
        double r27742 = r27737 + r27741;
        double r27743 = r27734 * r27742;
        double r27744 = r27733 + r27743;
        double r27745 = r27744 - r27735;
        return r27745;
}


double f_of(float a, float b) {
        float r27746 = a;
        float r27747 = r27746 * r27746;
        float r27748 = b;
        float r27749 = r27748 * r27748;
        float r27750 = r27747 + r27749;
        float r27751 = 2;
        float r27752 = pow(r27750, r27751);
        float r27753 = 4;
        float r27754 = 1;
        float r27755 = r27754 + r27746;
        float r27756 = r27747 * r27755;
        float r27757 = 3;
        float r27758 = r27757 * r27746;
        float r27759 = r27754 - r27758;
        float r27760 = r27749 * r27759;
        float r27761 = r27756 + r27760;
        float r27762 = r27753 * r27761;
        float r27763 = r27752 + r27762;
        float r27764 = r27763 - r27754;
        return r27764;
}

double f_od(double a, double b) {
        double r27765 = a;
        double r27766 = r27765 * r27765;
        double r27767 = b;
        double r27768 = r27767 * r27767;
        double r27769 = r27766 + r27768;
        double r27770 = 2;
        double r27771 = pow(r27769, r27770);
        double r27772 = 4;
        double r27773 = 1;
        double r27774 = r27773 + r27765;
        double r27775 = r27766 * r27774;
        double r27776 = 3;
        double r27777 = r27776 * r27765;
        double r27778 = r27773 - r27777;
        double r27779 = r27768 * r27778;
        double r27780 = r27775 + r27779;
        double r27781 = r27772 * r27780;
        double r27782 = r27771 + r27781;
        double r27783 = r27782 - r27773;
        return r27783;
}

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 r27784, r27785, r27786, r27787, r27788, r27789, r27790, r27791, r27792, r27793, r27794, r27795, r27796, r27797, r27798, r27799, r27800, r27801, r27802;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r27784);
        mpfr_init(r27785);
        mpfr_init(r27786);
        mpfr_init(r27787);
        mpfr_init(r27788);
        mpfr_init_set_str(r27789, "2", 10, MPFR_RNDN);
        mpfr_init(r27790);
        mpfr_init_set_str(r27791, "4", 10, MPFR_RNDN);
        mpfr_init_set_str(r27792, "1", 10, MPFR_RNDN);
        mpfr_init(r27793);
        mpfr_init(r27794);
        mpfr_init_set_str(r27795, "3", 10, MPFR_RNDN);
        mpfr_init(r27796);
        mpfr_init(r27797);
        mpfr_init(r27798);
        mpfr_init(r27799);
        mpfr_init(r27800);
        mpfr_init(r27801);
        mpfr_init(r27802);
}

double f_im(double a, double b) {
        mpfr_set_d(r27784, a, MPFR_RNDN);
        mpfr_mul(r27785, r27784, r27784, MPFR_RNDN);
        mpfr_set_d(r27786, b, MPFR_RNDN);
        mpfr_mul(r27787, r27786, r27786, MPFR_RNDN);
        mpfr_add(r27788, r27785, r27787, MPFR_RNDN);
        ;
        mpfr_pow(r27790, r27788, r27789, MPFR_RNDN);
        ;
        ;
        mpfr_add(r27793, r27792, r27784, MPFR_RNDN);
        mpfr_mul(r27794, r27785, r27793, MPFR_RNDN);
        ;
        mpfr_mul(r27796, r27795, r27784, MPFR_RNDN);
        mpfr_sub(r27797, r27792, r27796, MPFR_RNDN);
        mpfr_mul(r27798, r27787, r27797, MPFR_RNDN);
        mpfr_add(r27799, r27794, r27798, MPFR_RNDN);
        mpfr_mul(r27800, r27791, r27799, MPFR_RNDN);
        mpfr_add(r27801, r27790, r27800, MPFR_RNDN);
        mpfr_sub(r27802, r27801, r27792, MPFR_RNDN);
        return mpfr_get_d(r27802, MPFR_RNDN);
}

static mpfr_t r27803, r27804, r27805, r27806, r27807, r27808, r27809, r27810, r27811, r27812, r27813, r27814, r27815, r27816, r27817, r27818, r27819, r27820, r27821;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r27803);
        mpfr_init(r27804);
        mpfr_init(r27805);
        mpfr_init(r27806);
        mpfr_init(r27807);
        mpfr_init_set_str(r27808, "2", 10, MPFR_RNDN);
        mpfr_init(r27809);
        mpfr_init_set_str(r27810, "4", 10, MPFR_RNDN);
        mpfr_init_set_str(r27811, "1", 10, MPFR_RNDN);
        mpfr_init(r27812);
        mpfr_init(r27813);
        mpfr_init_set_str(r27814, "3", 10, MPFR_RNDN);
        mpfr_init(r27815);
        mpfr_init(r27816);
        mpfr_init(r27817);
        mpfr_init(r27818);
        mpfr_init(r27819);
        mpfr_init(r27820);
        mpfr_init(r27821);
}

double f_fm(double a, double b) {
        mpfr_set_d(r27803, a, MPFR_RNDN);
        mpfr_mul(r27804, r27803, r27803, MPFR_RNDN);
        mpfr_set_d(r27805, b, MPFR_RNDN);
        mpfr_mul(r27806, r27805, r27805, MPFR_RNDN);
        mpfr_add(r27807, r27804, r27806, MPFR_RNDN);
        ;
        mpfr_pow(r27809, r27807, r27808, MPFR_RNDN);
        ;
        ;
        mpfr_add(r27812, r27811, r27803, MPFR_RNDN);
        mpfr_mul(r27813, r27804, r27812, MPFR_RNDN);
        ;
        mpfr_mul(r27815, r27814, r27803, MPFR_RNDN);
        mpfr_sub(r27816, r27811, r27815, MPFR_RNDN);
        mpfr_mul(r27817, r27806, r27816, MPFR_RNDN);
        mpfr_add(r27818, r27813, r27817, MPFR_RNDN);
        mpfr_mul(r27819, r27810, r27818, MPFR_RNDN);
        mpfr_add(r27820, r27809, r27819, MPFR_RNDN);
        mpfr_sub(r27821, r27820, r27811, MPFR_RNDN);
        return mpfr_get_d(r27821, MPFR_RNDN);
}

static mpfr_t r27822, r27823, r27824, r27825, r27826, r27827, r27828, r27829, r27830, r27831, r27832, r27833, r27834, r27835, r27836, r27837, r27838, r27839, r27840;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r27822);
        mpfr_init(r27823);
        mpfr_init(r27824);
        mpfr_init(r27825);
        mpfr_init(r27826);
        mpfr_init_set_str(r27827, "2", 10, MPFR_RNDN);
        mpfr_init(r27828);
        mpfr_init_set_str(r27829, "4", 10, MPFR_RNDN);
        mpfr_init_set_str(r27830, "1", 10, MPFR_RNDN);
        mpfr_init(r27831);
        mpfr_init(r27832);
        mpfr_init_set_str(r27833, "3", 10, MPFR_RNDN);
        mpfr_init(r27834);
        mpfr_init(r27835);
        mpfr_init(r27836);
        mpfr_init(r27837);
        mpfr_init(r27838);
        mpfr_init(r27839);
        mpfr_init(r27840);
}

double f_dm(double a, double b) {
        mpfr_set_d(r27822, a, MPFR_RNDN);
        mpfr_mul(r27823, r27822, r27822, MPFR_RNDN);
        mpfr_set_d(r27824, b, MPFR_RNDN);
        mpfr_mul(r27825, r27824, r27824, MPFR_RNDN);
        mpfr_add(r27826, r27823, r27825, MPFR_RNDN);
        ;
        mpfr_pow(r27828, r27826, r27827, MPFR_RNDN);
        ;
        ;
        mpfr_add(r27831, r27830, r27822, MPFR_RNDN);
        mpfr_mul(r27832, r27823, r27831, MPFR_RNDN);
        ;
        mpfr_mul(r27834, r27833, r27822, MPFR_RNDN);
        mpfr_sub(r27835, r27830, r27834, MPFR_RNDN);
        mpfr_mul(r27836, r27825, r27835, MPFR_RNDN);
        mpfr_add(r27837, r27832, r27836, MPFR_RNDN);
        mpfr_mul(r27838, r27829, r27837, MPFR_RNDN);
        mpfr_add(r27839, r27828, r27838, MPFR_RNDN);
        mpfr_sub(r27840, r27839, r27830, MPFR_RNDN);
        return mpfr_get_d(r27840, MPFR_RNDN);
}