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

char *name = "quad2m (problem 3.2.1, negative)";

double f_if(float a, float b_2F2, float c) {
        float r19781 = b_2F2;
        float r19782 = -r19781;
        float r19783 = r19781 * r19781;
        float r19784 = a;
        float r19785 = c;
        float r19786 = r19784 * r19785;
        float r19787 = r19783 - r19786;
        float r19788 = sqrt(r19787);
        float r19789 = r19782 - r19788;
        float r19790 = r19789 / r19784;
        return r19790;
}

double f_id(double a, double b_2F2, double c) {
        double r19791 = b_2F2;
        double r19792 = -r19791;
        double r19793 = r19791 * r19791;
        double r19794 = a;
        double r19795 = c;
        double r19796 = r19794 * r19795;
        double r19797 = r19793 - r19796;
        double r19798 = sqrt(r19797);
        double r19799 = r19792 - r19798;
        double r19800 = r19799 / r19794;
        return r19800;
}


double f_of(float a, float b_2F2, float c) {
        float r19801 = b_2F2;
        float r19802 = -1.1872979988150526e+32;
        bool r19803 = r19801 <= r19802;
        float r19804 = c;
        float r19805 = r19804 / r19801;
        float r19806 = -1/2;
        float r19807 = r19805 * r19806;
        float r19808 = -4.377552981619987e-103;
        bool r19809 = r19801 <= r19808;
        float r19810 = a;
        float r19811 = r19804 * r19810;
        float r19812 = -r19801;
        float r19813 = r19801 * r19801;
        float r19814 = r19810 * r19804;
        float r19815 = r19813 - r19814;
        float r19816 = sqrt(r19815);
        float r19817 = r19812 + r19816;
        float r19818 = r19811 / r19817;
        float r19819 = r19818 / r19810;
        float r19820 = 1.2486973271270074e+81;
        bool r19821 = r19801 <= r19820;
        float r19822 = r19812 - r19816;
        float r19823 = r19822 / r19810;
        float r19824 = -2;
        float r19825 = r19801 / r19810;
        float r19826 = r19824 * r19825;
        float r19827 = r19821 ? r19823 : r19826;
        float r19828 = r19809 ? r19819 : r19827;
        float r19829 = r19803 ? r19807 : r19828;
        return r19829;
}

double f_od(double a, double b_2F2, double c) {
        double r19830 = b_2F2;
        double r19831 = -1.1872979988150526e+32;
        bool r19832 = r19830 <= r19831;
        double r19833 = c;
        double r19834 = r19833 / r19830;
        double r19835 = -1/2;
        double r19836 = r19834 * r19835;
        double r19837 = -4.377552981619987e-103;
        bool r19838 = r19830 <= r19837;
        double r19839 = a;
        double r19840 = r19833 * r19839;
        double r19841 = -r19830;
        double r19842 = r19830 * r19830;
        double r19843 = r19839 * r19833;
        double r19844 = r19842 - r19843;
        double r19845 = sqrt(r19844);
        double r19846 = r19841 + r19845;
        double r19847 = r19840 / r19846;
        double r19848 = r19847 / r19839;
        double r19849 = 1.2486973271270074e+81;
        bool r19850 = r19830 <= r19849;
        double r19851 = r19841 - r19845;
        double r19852 = r19851 / r19839;
        double r19853 = -2;
        double r19854 = r19830 / r19839;
        double r19855 = r19853 * r19854;
        double r19856 = r19850 ? r19852 : r19855;
        double r19857 = r19838 ? r19848 : r19856;
        double r19858 = r19832 ? r19836 : r19857;
        return r19858;
}

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 r19859, r19860, r19861, r19862, r19863, r19864, r19865, r19866, r19867, r19868;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(3216);
        mpfr_init(r19859);
        mpfr_init(r19860);
        mpfr_init(r19861);
        mpfr_init(r19862);
        mpfr_init(r19863);
        mpfr_init(r19864);
        mpfr_init(r19865);
        mpfr_init(r19866);
        mpfr_init(r19867);
        mpfr_init(r19868);
}

double f_im(double a, double b_2F2, double c) {
        mpfr_set_d(r19859, b_2F2, MPFR_RNDN);
        mpfr_neg(r19860, r19859, MPFR_RNDN);
        mpfr_mul(r19861, r19859, r19859, MPFR_RNDN);
        mpfr_set_d(r19862, a, MPFR_RNDN);
        mpfr_set_d(r19863, c, MPFR_RNDN);
        mpfr_mul(r19864, r19862, r19863, MPFR_RNDN);
        mpfr_sub(r19865, r19861, r19864, MPFR_RNDN);
        mpfr_sqrt(r19866, r19865, MPFR_RNDN);
        mpfr_sub(r19867, r19860, r19866, MPFR_RNDN);
        mpfr_div(r19868, r19867, r19862, MPFR_RNDN);
        return mpfr_get_d(r19868, MPFR_RNDN);
}

static mpfr_t r19869, r19870, r19871, r19872, r19873, r19874, r19875, r19876, r19877, r19878, r19879, r19880, r19881, r19882, r19883, r19884, r19885, r19886, r19887, r19888, r19889, r19890, r19891, r19892, r19893, r19894, r19895, r19896, r19897;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(3216);
        mpfr_init(r19869);
        mpfr_init_set_str(r19870, "-1.1872979988150526e+32", 10, MPFR_RNDN);
        mpfr_init(r19871);
        mpfr_init(r19872);
        mpfr_init(r19873);
        mpfr_init_set_str(r19874, "-1/2", 10, MPFR_RNDN);
        mpfr_init(r19875);
        mpfr_init_set_str(r19876, "-4.377552981619987e-103", 10, MPFR_RNDN);
        mpfr_init(r19877);
        mpfr_init(r19878);
        mpfr_init(r19879);
        mpfr_init(r19880);
        mpfr_init(r19881);
        mpfr_init(r19882);
        mpfr_init(r19883);
        mpfr_init(r19884);
        mpfr_init(r19885);
        mpfr_init(r19886);
        mpfr_init(r19887);
        mpfr_init_set_str(r19888, "1.2486973271270074e+81", 10, MPFR_RNDN);
        mpfr_init(r19889);
        mpfr_init(r19890);
        mpfr_init(r19891);
        mpfr_init_set_str(r19892, "-2", 10, MPFR_RNDN);
        mpfr_init(r19893);
        mpfr_init(r19894);
        mpfr_init(r19895);
        mpfr_init(r19896);
        mpfr_init(r19897);
}

double f_fm(double a, double b_2F2, double c) {
        mpfr_set_d(r19869, b_2F2, MPFR_RNDN);
        ;
        mpfr_set_si(r19871, mpfr_cmp(r19869, r19870) <= 0, MPFR_RNDN);
        mpfr_set_d(r19872, c, MPFR_RNDN);
        mpfr_div(r19873, r19872, r19869, MPFR_RNDN);
        ;
        mpfr_mul(r19875, r19873, r19874, MPFR_RNDN);
        ;
        mpfr_set_si(r19877, mpfr_cmp(r19869, r19876) <= 0, MPFR_RNDN);
        mpfr_set_d(r19878, a, MPFR_RNDN);
        mpfr_mul(r19879, r19872, r19878, MPFR_RNDN);
        mpfr_neg(r19880, r19869, MPFR_RNDN);
        mpfr_mul(r19881, r19869, r19869, MPFR_RNDN);
        mpfr_mul(r19882, r19878, r19872, MPFR_RNDN);
        mpfr_sub(r19883, r19881, r19882, MPFR_RNDN);
        mpfr_sqrt(r19884, r19883, MPFR_RNDN);
        mpfr_add(r19885, r19880, r19884, MPFR_RNDN);
        mpfr_div(r19886, r19879, r19885, MPFR_RNDN);
        mpfr_div(r19887, r19886, r19878, MPFR_RNDN);
        ;
        mpfr_set_si(r19889, mpfr_cmp(r19869, r19888) <= 0, MPFR_RNDN);
        mpfr_sub(r19890, r19880, r19884, MPFR_RNDN);
        mpfr_div(r19891, r19890, r19878, MPFR_RNDN);
        ;
        mpfr_div(r19893, r19869, r19878, MPFR_RNDN);
        mpfr_mul(r19894, r19892, r19893, MPFR_RNDN);
        if (mpfr_get_si(r19889, MPFR_RNDN)) { mpfr_set(r19895, r19891, MPFR_RNDN); } else { mpfr_set(r19895, r19894, MPFR_RNDN); };
        if (mpfr_get_si(r19877, MPFR_RNDN)) { mpfr_set(r19896, r19887, MPFR_RNDN); } else { mpfr_set(r19896, r19895, MPFR_RNDN); };
        if (mpfr_get_si(r19871, MPFR_RNDN)) { mpfr_set(r19897, r19875, MPFR_RNDN); } else { mpfr_set(r19897, r19896, MPFR_RNDN); };
        return mpfr_get_d(r19897, MPFR_RNDN);
}

static mpfr_t r19898, r19899, r19900, r19901, r19902, r19903, r19904, r19905, r19906, r19907, r19908, r19909, r19910, r19911, r19912, r19913, r19914, r19915, r19916, r19917, r19918, r19919, r19920, r19921, r19922, r19923, r19924, r19925, r19926;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(3216);
        mpfr_init(r19898);
        mpfr_init_set_str(r19899, "-1.1872979988150526e+32", 10, MPFR_RNDN);
        mpfr_init(r19900);
        mpfr_init(r19901);
        mpfr_init(r19902);
        mpfr_init_set_str(r19903, "-1/2", 10, MPFR_RNDN);
        mpfr_init(r19904);
        mpfr_init_set_str(r19905, "-4.377552981619987e-103", 10, MPFR_RNDN);
        mpfr_init(r19906);
        mpfr_init(r19907);
        mpfr_init(r19908);
        mpfr_init(r19909);
        mpfr_init(r19910);
        mpfr_init(r19911);
        mpfr_init(r19912);
        mpfr_init(r19913);
        mpfr_init(r19914);
        mpfr_init(r19915);
        mpfr_init(r19916);
        mpfr_init_set_str(r19917, "1.2486973271270074e+81", 10, MPFR_RNDN);
        mpfr_init(r19918);
        mpfr_init(r19919);
        mpfr_init(r19920);
        mpfr_init_set_str(r19921, "-2", 10, MPFR_RNDN);
        mpfr_init(r19922);
        mpfr_init(r19923);
        mpfr_init(r19924);
        mpfr_init(r19925);
        mpfr_init(r19926);
}

double f_dm(double a, double b_2F2, double c) {
        mpfr_set_d(r19898, b_2F2, MPFR_RNDN);
        ;
        mpfr_set_si(r19900, mpfr_cmp(r19898, r19899) <= 0, MPFR_RNDN);
        mpfr_set_d(r19901, c, MPFR_RNDN);
        mpfr_div(r19902, r19901, r19898, MPFR_RNDN);
        ;
        mpfr_mul(r19904, r19902, r19903, MPFR_RNDN);
        ;
        mpfr_set_si(r19906, mpfr_cmp(r19898, r19905) <= 0, MPFR_RNDN);
        mpfr_set_d(r19907, a, MPFR_RNDN);
        mpfr_mul(r19908, r19901, r19907, MPFR_RNDN);
        mpfr_neg(r19909, r19898, MPFR_RNDN);
        mpfr_mul(r19910, r19898, r19898, MPFR_RNDN);
        mpfr_mul(r19911, r19907, r19901, MPFR_RNDN);
        mpfr_sub(r19912, r19910, r19911, MPFR_RNDN);
        mpfr_sqrt(r19913, r19912, MPFR_RNDN);
        mpfr_add(r19914, r19909, r19913, MPFR_RNDN);
        mpfr_div(r19915, r19908, r19914, MPFR_RNDN);
        mpfr_div(r19916, r19915, r19907, MPFR_RNDN);
        ;
        mpfr_set_si(r19918, mpfr_cmp(r19898, r19917) <= 0, MPFR_RNDN);
        mpfr_sub(r19919, r19909, r19913, MPFR_RNDN);
        mpfr_div(r19920, r19919, r19907, MPFR_RNDN);
        ;
        mpfr_div(r19922, r19898, r19907, MPFR_RNDN);
        mpfr_mul(r19923, r19921, r19922, MPFR_RNDN);
        if (mpfr_get_si(r19918, MPFR_RNDN)) { mpfr_set(r19924, r19920, MPFR_RNDN); } else { mpfr_set(r19924, r19923, MPFR_RNDN); };
        if (mpfr_get_si(r19906, MPFR_RNDN)) { mpfr_set(r19925, r19916, MPFR_RNDN); } else { mpfr_set(r19925, r19924, MPFR_RNDN); };
        if (mpfr_get_si(r19900, MPFR_RNDN)) { mpfr_set(r19926, r19904, MPFR_RNDN); } else { mpfr_set(r19926, r19925, MPFR_RNDN); };
        return mpfr_get_d(r19926, MPFR_RNDN);
}