#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 r19777 = b_2F2;
        float r19778 = -r19777;
        float r19779 = r19777 * r19777;
        float r19780 = a;
        float r19781 = c;
        float r19782 = r19780 * r19781;
        float r19783 = r19779 - r19782;
        float r19784 = sqrt(r19783);
        float r19785 = r19778 - r19784;
        float r19786 = r19785 / r19780;
        return r19786;
}

double f_id(double a, double b_2F2, double c) {
        double r19787 = b_2F2;
        double r19788 = -r19787;
        double r19789 = r19787 * r19787;
        double r19790 = a;
        double r19791 = c;
        double r19792 = r19790 * r19791;
        double r19793 = r19789 - r19792;
        double r19794 = sqrt(r19793);
        double r19795 = r19788 - r19794;
        double r19796 = r19795 / r19790;
        return r19796;
}


double f_of(float a, float b_2F2, float c) {
        float r19797 = b_2F2;
        float r19798 = -5.018034098196628e+28;
        bool r19799 = r19797 <= r19798;
        float r19800 = c;
        float r19801 = r19800 / r19797;
        float r19802 = -1/2;
        float r19803 = r19801 * r19802;
        float r19804 = -3.546490195958238e-104;
        bool r19805 = r19797 <= r19804;
        float r19806 = a;
        float r19807 = r19800 * r19806;
        float r19808 = -r19797;
        float r19809 = r19797 * r19797;
        float r19810 = r19806 * r19800;
        float r19811 = r19809 - r19810;
        float r19812 = sqrt(r19811);
        float r19813 = r19808 + r19812;
        float r19814 = r19807 / r19813;
        float r19815 = r19814 / r19806;
        float r19816 = 1.7007616628281973e+81;
        bool r19817 = r19797 <= r19816;
        float r19818 = r19808 - r19812;
        float r19819 = r19818 / r19806;
        float r19820 = -2;
        float r19821 = r19797 / r19806;
        float r19822 = r19820 * r19821;
        float r19823 = r19817 ? r19819 : r19822;
        float r19824 = r19805 ? r19815 : r19823;
        float r19825 = r19799 ? r19803 : r19824;
        return r19825;
}

double f_od(double a, double b_2F2, double c) {
        double r19826 = b_2F2;
        double r19827 = -5.018034098196628e+28;
        bool r19828 = r19826 <= r19827;
        double r19829 = c;
        double r19830 = r19829 / r19826;
        double r19831 = -1/2;
        double r19832 = r19830 * r19831;
        double r19833 = -3.546490195958238e-104;
        bool r19834 = r19826 <= r19833;
        double r19835 = a;
        double r19836 = r19829 * r19835;
        double r19837 = -r19826;
        double r19838 = r19826 * r19826;
        double r19839 = r19835 * r19829;
        double r19840 = r19838 - r19839;
        double r19841 = sqrt(r19840);
        double r19842 = r19837 + r19841;
        double r19843 = r19836 / r19842;
        double r19844 = r19843 / r19835;
        double r19845 = 1.7007616628281973e+81;
        bool r19846 = r19826 <= r19845;
        double r19847 = r19837 - r19841;
        double r19848 = r19847 / r19835;
        double r19849 = -2;
        double r19850 = r19826 / r19835;
        double r19851 = r19849 * r19850;
        double r19852 = r19846 ? r19848 : r19851;
        double r19853 = r19834 ? r19844 : r19852;
        double r19854 = r19828 ? r19832 : r19853;
        return r19854;
}

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 r19855, r19856, r19857, r19858, r19859, r19860, r19861, r19862, r19863, r19864;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2704);
        mpfr_init(r19855);
        mpfr_init(r19856);
        mpfr_init(r19857);
        mpfr_init(r19858);
        mpfr_init(r19859);
        mpfr_init(r19860);
        mpfr_init(r19861);
        mpfr_init(r19862);
        mpfr_init(r19863);
        mpfr_init(r19864);
}

double f_im(double a, double b_2F2, double c) {
        mpfr_set_d(r19855, b_2F2, MPFR_RNDN);
        mpfr_neg(r19856, r19855, MPFR_RNDN);
        mpfr_mul(r19857, r19855, r19855, MPFR_RNDN);
        mpfr_set_d(r19858, a, MPFR_RNDN);
        mpfr_set_d(r19859, c, MPFR_RNDN);
        mpfr_mul(r19860, r19858, r19859, MPFR_RNDN);
        mpfr_sub(r19861, r19857, r19860, MPFR_RNDN);
        mpfr_sqrt(r19862, r19861, MPFR_RNDN);
        mpfr_sub(r19863, r19856, r19862, MPFR_RNDN);
        mpfr_div(r19864, r19863, r19858, MPFR_RNDN);
        return mpfr_get_d(r19864, MPFR_RNDN);
}

static mpfr_t r19865, r19866, r19867, r19868, 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;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2704);
        mpfr_init(r19865);
        mpfr_init_set_str(r19866, "-5.018034098196628e+28", 10, MPFR_RNDN);
        mpfr_init(r19867);
        mpfr_init(r19868);
        mpfr_init(r19869);
        mpfr_init_set_str(r19870, "-1/2", 10, MPFR_RNDN);
        mpfr_init(r19871);
        mpfr_init_set_str(r19872, "-3.546490195958238e-104", 10, MPFR_RNDN);
        mpfr_init(r19873);
        mpfr_init(r19874);
        mpfr_init(r19875);
        mpfr_init(r19876);
        mpfr_init(r19877);
        mpfr_init(r19878);
        mpfr_init(r19879);
        mpfr_init(r19880);
        mpfr_init(r19881);
        mpfr_init(r19882);
        mpfr_init(r19883);
        mpfr_init_set_str(r19884, "1.7007616628281973e+81", 10, MPFR_RNDN);
        mpfr_init(r19885);
        mpfr_init(r19886);
        mpfr_init(r19887);
        mpfr_init_set_str(r19888, "-2", 10, MPFR_RNDN);
        mpfr_init(r19889);
        mpfr_init(r19890);
        mpfr_init(r19891);
        mpfr_init(r19892);
        mpfr_init(r19893);
}

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

static mpfr_t r19894, r19895, r19896, r19897, 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;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2704);
        mpfr_init(r19894);
        mpfr_init_set_str(r19895, "-5.018034098196628e+28", 10, MPFR_RNDN);
        mpfr_init(r19896);
        mpfr_init(r19897);
        mpfr_init(r19898);
        mpfr_init_set_str(r19899, "-1/2", 10, MPFR_RNDN);
        mpfr_init(r19900);
        mpfr_init_set_str(r19901, "-3.546490195958238e-104", 10, MPFR_RNDN);
        mpfr_init(r19902);
        mpfr_init(r19903);
        mpfr_init(r19904);
        mpfr_init(r19905);
        mpfr_init(r19906);
        mpfr_init(r19907);
        mpfr_init(r19908);
        mpfr_init(r19909);
        mpfr_init(r19910);
        mpfr_init(r19911);
        mpfr_init(r19912);
        mpfr_init_set_str(r19913, "1.7007616628281973e+81", 10, MPFR_RNDN);
        mpfr_init(r19914);
        mpfr_init(r19915);
        mpfr_init(r19916);
        mpfr_init_set_str(r19917, "-2", 10, MPFR_RNDN);
        mpfr_init(r19918);
        mpfr_init(r19919);
        mpfr_init(r19920);
        mpfr_init(r19921);
        mpfr_init(r19922);
}

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