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

char *name = "Diagrams.Solve.Polynomial:quadForm from diagrams-solve-0.1, C";

double f_if(float x, float y) {
        float r52197 = x;
        float r52198 = y;
        float r52199 = 2.0f;
        float r52200 = r52198 * r52199;
        float r52201 = r52197 / r52200;
        return r52201;
}

double f_id(double x, double y) {
        double r52202 = x;
        double r52203 = y;
        double r52204 = 2.0;
        double r52205 = r52203 * r52204;
        double r52206 = r52202 / r52205;
        return r52206;
}


double f_of(float x, float y) {
        float r52207 = x;
        float r52208 = y;
        float r52209 = 2.0f;
        float r52210 = r52208 * r52209;
        float r52211 = r52207 / r52210;
        return r52211;
}

double f_od(double x, double y) {
        double r52212 = x;
        double r52213 = y;
        double r52214 = 2.0;
        double r52215 = r52213 * r52214;
        double r52216 = r52212 / r52215;
        return r52216;
}

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 r52217, r52218, r52219, r52220, r52221;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r52217);
        mpfr_init(r52218);
        mpfr_init_set_str(r52219, "2.0", 10, MPFR_RNDN);
        mpfr_init(r52220);
        mpfr_init(r52221);
}

double f_im(double x, double y) {
        mpfr_set_d(r52217, x, MPFR_RNDN);
        mpfr_set_d(r52218, y, MPFR_RNDN);
        ;
        mpfr_mul(r52220, r52218, r52219, MPFR_RNDN);
        mpfr_div(r52221, r52217, r52220, MPFR_RNDN);
        return mpfr_get_d(r52221, MPFR_RNDN);
}

static mpfr_t r52222, r52223, r52224, r52225, r52226;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r52222);
        mpfr_init(r52223);
        mpfr_init_set_str(r52224, "2.0", 10, MPFR_RNDN);
        mpfr_init(r52225);
        mpfr_init(r52226);
}

double f_fm(double x, double y) {
        mpfr_set_d(r52222, x, MPFR_RNDN);
        mpfr_set_d(r52223, y, MPFR_RNDN);
        ;
        mpfr_mul(r52225, r52223, r52224, MPFR_RNDN);
        mpfr_div(r52226, r52222, r52225, MPFR_RNDN);
        return mpfr_get_d(r52226, MPFR_RNDN);
}

static mpfr_t r52227, r52228, r52229, r52230, r52231;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r52227);
        mpfr_init(r52228);
        mpfr_init_set_str(r52229, "2.0", 10, MPFR_RNDN);
        mpfr_init(r52230);
        mpfr_init(r52231);
}

double f_dm(double x, double y) {
        mpfr_set_d(r52227, x, MPFR_RNDN);
        mpfr_set_d(r52228, y, MPFR_RNDN);
        ;
        mpfr_mul(r52230, r52228, r52229, MPFR_RNDN);
        mpfr_div(r52231, r52227, r52230, MPFR_RNDN);
        return mpfr_get_d(r52231, MPFR_RNDN);
}