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

char *name = "quad2p (problem 3.2.1, positive)";

double f_if(float a, float b_2F2, float c) {
        float r19703 = b_2F2;
        float r19704 = -r19703;
        float r19705 = r19703 * r19703;
        float r19706 = a;
        float r19707 = c;
        float r19708 = r19706 * r19707;
        float r19709 = r19705 - r19708;
        float r19710 = sqrt(r19709);
        float r19711 = r19704 + r19710;
        float r19712 = r19711 / r19706;
        return r19712;
}

double f_id(double a, double b_2F2, double c) {
        double r19713 = b_2F2;
        double r19714 = -r19713;
        double r19715 = r19713 * r19713;
        double r19716 = a;
        double r19717 = c;
        double r19718 = r19716 * r19717;
        double r19719 = r19715 - r19718;
        double r19720 = sqrt(r19719);
        double r19721 = r19714 + r19720;
        double r19722 = r19721 / r19716;
        return r19722;
}


double f_of(float a, float b_2F2, float c) {
        float r19723 = b_2F2;
        float r19724 = -2.788370916558726e+153;
        bool r19725 = r19723 <= r19724;
        float r19726 = 1/2;
        float r19727 = c;
        float r19728 = r19727 / r19723;
        float r19729 = r19726 * r19728;
        float r19730 = 2;
        float r19731 = a;
        float r19732 = r19723 / r19731;
        float r19733 = r19730 * r19732;
        float r19734 = r19729 - r19733;
        float r19735 = 7.580412743766101e-138;
        bool r19736 = r19723 <= r19735;
        float r19737 = -r19723;
        float r19738 = r19723 * r19723;
        float r19739 = r19731 * r19727;
        float r19740 = r19738 - r19739;
        float r19741 = sqrt(r19740);
        float r19742 = r19737 + r19741;
        float r19743 = 1;
        float r19744 = r19743 / r19731;
        float r19745 = r19742 * r19744;
        float r19746 = -1/2;
        float r19747 = r19728 * r19746;
        float r19748 = r19736 ? r19745 : r19747;
        float r19749 = r19725 ? r19734 : r19748;
        return r19749;
}

double f_od(double a, double b_2F2, double c) {
        double r19750 = b_2F2;
        double r19751 = -2.788370916558726e+153;
        bool r19752 = r19750 <= r19751;
        double r19753 = 1/2;
        double r19754 = c;
        double r19755 = r19754 / r19750;
        double r19756 = r19753 * r19755;
        double r19757 = 2;
        double r19758 = a;
        double r19759 = r19750 / r19758;
        double r19760 = r19757 * r19759;
        double r19761 = r19756 - r19760;
        double r19762 = 7.580412743766101e-138;
        bool r19763 = r19750 <= r19762;
        double r19764 = -r19750;
        double r19765 = r19750 * r19750;
        double r19766 = r19758 * r19754;
        double r19767 = r19765 - r19766;
        double r19768 = sqrt(r19767);
        double r19769 = r19764 + r19768;
        double r19770 = 1;
        double r19771 = r19770 / r19758;
        double r19772 = r19769 * r19771;
        double r19773 = -1/2;
        double r19774 = r19755 * r19773;
        double r19775 = r19763 ? r19772 : r19774;
        double r19776 = r19752 ? r19761 : r19775;
        return r19776;
}

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 r19777, r19778, r19779, r19780, r19781, r19782, r19783, r19784, r19785, r19786;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(3472);
        mpfr_init(r19777);
        mpfr_init(r19778);
        mpfr_init(r19779);
        mpfr_init(r19780);
        mpfr_init(r19781);
        mpfr_init(r19782);
        mpfr_init(r19783);
        mpfr_init(r19784);
        mpfr_init(r19785);
        mpfr_init(r19786);
}

double f_im(double a, double b_2F2, double c) {
        mpfr_set_d(r19777, b_2F2, MPFR_RNDN);
        mpfr_neg(r19778, r19777, MPFR_RNDN);
        mpfr_mul(r19779, r19777, r19777, MPFR_RNDN);
        mpfr_set_d(r19780, a, MPFR_RNDN);
        mpfr_set_d(r19781, c, MPFR_RNDN);
        mpfr_mul(r19782, r19780, r19781, MPFR_RNDN);
        mpfr_sub(r19783, r19779, r19782, MPFR_RNDN);
        mpfr_sqrt(r19784, r19783, MPFR_RNDN);
        mpfr_add(r19785, r19778, r19784, MPFR_RNDN);
        mpfr_div(r19786, r19785, r19780, MPFR_RNDN);
        return mpfr_get_d(r19786, MPFR_RNDN);
}

static mpfr_t r19787, r19788, r19789, r19790, r19791, r19792, r19793, r19794, r19795, r19796, r19797, r19798, r19799, r19800, r19801, r19802, r19803, r19804, r19805, r19806, r19807, r19808, r19809, r19810, r19811, r19812, r19813;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(3472);
        mpfr_init(r19787);
        mpfr_init_set_str(r19788, "-2.788370916558726e+153", 10, MPFR_RNDN);
        mpfr_init(r19789);
        mpfr_init_set_str(r19790, "1/2", 10, MPFR_RNDN);
        mpfr_init(r19791);
        mpfr_init(r19792);
        mpfr_init(r19793);
        mpfr_init_set_str(r19794, "2", 10, MPFR_RNDN);
        mpfr_init(r19795);
        mpfr_init(r19796);
        mpfr_init(r19797);
        mpfr_init(r19798);
        mpfr_init_set_str(r19799, "7.580412743766101e-138", 10, MPFR_RNDN);
        mpfr_init(r19800);
        mpfr_init(r19801);
        mpfr_init(r19802);
        mpfr_init(r19803);
        mpfr_init(r19804);
        mpfr_init(r19805);
        mpfr_init(r19806);
        mpfr_init_set_str(r19807, "1", 10, MPFR_RNDN);
        mpfr_init(r19808);
        mpfr_init(r19809);
        mpfr_init_set_str(r19810, "-1/2", 10, MPFR_RNDN);
        mpfr_init(r19811);
        mpfr_init(r19812);
        mpfr_init(r19813);
}

double f_fm(double a, double b_2F2, double c) {
        mpfr_set_d(r19787, b_2F2, MPFR_RNDN);
        ;
        mpfr_set_si(r19789, mpfr_cmp(r19787, r19788) <= 0, MPFR_RNDN);
        ;
        mpfr_set_d(r19791, c, MPFR_RNDN);
        mpfr_div(r19792, r19791, r19787, MPFR_RNDN);
        mpfr_mul(r19793, r19790, r19792, MPFR_RNDN);
        ;
        mpfr_set_d(r19795, a, MPFR_RNDN);
        mpfr_div(r19796, r19787, r19795, MPFR_RNDN);
        mpfr_mul(r19797, r19794, r19796, MPFR_RNDN);
        mpfr_sub(r19798, r19793, r19797, MPFR_RNDN);
        ;
        mpfr_set_si(r19800, mpfr_cmp(r19787, r19799) <= 0, MPFR_RNDN);
        mpfr_neg(r19801, r19787, MPFR_RNDN);
        mpfr_mul(r19802, r19787, r19787, MPFR_RNDN);
        mpfr_mul(r19803, r19795, r19791, MPFR_RNDN);
        mpfr_sub(r19804, r19802, r19803, MPFR_RNDN);
        mpfr_sqrt(r19805, r19804, MPFR_RNDN);
        mpfr_add(r19806, r19801, r19805, MPFR_RNDN);
        ;
        mpfr_div(r19808, r19807, r19795, MPFR_RNDN);
        mpfr_mul(r19809, r19806, r19808, MPFR_RNDN);
        ;
        mpfr_mul(r19811, r19792, r19810, MPFR_RNDN);
        if (mpfr_get_si(r19800, MPFR_RNDN)) { mpfr_set(r19812, r19809, MPFR_RNDN); } else { mpfr_set(r19812, r19811, MPFR_RNDN); };
        if (mpfr_get_si(r19789, MPFR_RNDN)) { mpfr_set(r19813, r19798, MPFR_RNDN); } else { mpfr_set(r19813, r19812, MPFR_RNDN); };
        return mpfr_get_d(r19813, MPFR_RNDN);
}

static mpfr_t r19814, r19815, r19816, r19817, r19818, r19819, r19820, r19821, r19822, r19823, r19824, r19825, r19826, r19827, r19828, r19829, r19830, r19831, r19832, r19833, r19834, r19835, r19836, r19837, r19838, r19839, r19840;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(3472);
        mpfr_init(r19814);
        mpfr_init_set_str(r19815, "-2.788370916558726e+153", 10, MPFR_RNDN);
        mpfr_init(r19816);
        mpfr_init_set_str(r19817, "1/2", 10, MPFR_RNDN);
        mpfr_init(r19818);
        mpfr_init(r19819);
        mpfr_init(r19820);
        mpfr_init_set_str(r19821, "2", 10, MPFR_RNDN);
        mpfr_init(r19822);
        mpfr_init(r19823);
        mpfr_init(r19824);
        mpfr_init(r19825);
        mpfr_init_set_str(r19826, "7.580412743766101e-138", 10, MPFR_RNDN);
        mpfr_init(r19827);
        mpfr_init(r19828);
        mpfr_init(r19829);
        mpfr_init(r19830);
        mpfr_init(r19831);
        mpfr_init(r19832);
        mpfr_init(r19833);
        mpfr_init_set_str(r19834, "1", 10, MPFR_RNDN);
        mpfr_init(r19835);
        mpfr_init(r19836);
        mpfr_init_set_str(r19837, "-1/2", 10, MPFR_RNDN);
        mpfr_init(r19838);
        mpfr_init(r19839);
        mpfr_init(r19840);
}

double f_dm(double a, double b_2F2, double c) {
        mpfr_set_d(r19814, b_2F2, MPFR_RNDN);
        ;
        mpfr_set_si(r19816, mpfr_cmp(r19814, r19815) <= 0, MPFR_RNDN);
        ;
        mpfr_set_d(r19818, c, MPFR_RNDN);
        mpfr_div(r19819, r19818, r19814, MPFR_RNDN);
        mpfr_mul(r19820, r19817, r19819, MPFR_RNDN);
        ;
        mpfr_set_d(r19822, a, MPFR_RNDN);
        mpfr_div(r19823, r19814, r19822, MPFR_RNDN);
        mpfr_mul(r19824, r19821, r19823, MPFR_RNDN);
        mpfr_sub(r19825, r19820, r19824, MPFR_RNDN);
        ;
        mpfr_set_si(r19827, mpfr_cmp(r19814, r19826) <= 0, MPFR_RNDN);
        mpfr_neg(r19828, r19814, MPFR_RNDN);
        mpfr_mul(r19829, r19814, r19814, MPFR_RNDN);
        mpfr_mul(r19830, r19822, r19818, MPFR_RNDN);
        mpfr_sub(r19831, r19829, r19830, MPFR_RNDN);
        mpfr_sqrt(r19832, r19831, MPFR_RNDN);
        mpfr_add(r19833, r19828, r19832, MPFR_RNDN);
        ;
        mpfr_div(r19835, r19834, r19822, MPFR_RNDN);
        mpfr_mul(r19836, r19833, r19835, MPFR_RNDN);
        ;
        mpfr_mul(r19838, r19819, r19837, MPFR_RNDN);
        if (mpfr_get_si(r19827, MPFR_RNDN)) { mpfr_set(r19839, r19836, MPFR_RNDN); } else { mpfr_set(r19839, r19838, MPFR_RNDN); };
        if (mpfr_get_si(r19816, MPFR_RNDN)) { mpfr_set(r19840, r19825, MPFR_RNDN); } else { mpfr_set(r19840, r19839, MPFR_RNDN); };
        return mpfr_get_d(r19840, MPFR_RNDN);
}