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

char *name = "AI.Clustering.Hierarchical.Internal:average from clustering-0.2.1, A";

double f_if(float x, float y) {
        float r58161 = x;
        float r58162 = y;
        float r58163 = r58161 + r58162;
        float r58164 = r58161 / r58163;
        return r58164;
}

double f_id(double x, double y) {
        double r58165 = x;
        double r58166 = y;
        double r58167 = r58165 + r58166;
        double r58168 = r58165 / r58167;
        return r58168;
}


double f_of(float x, float y) {
        float r58169 = x;
        float r58170 = y;
        float r58171 = r58169 + r58170;
        float r58172 = r58169 / r58171;
        return r58172;
}

double f_od(double x, double y) {
        double r58173 = x;
        double r58174 = y;
        double r58175 = r58173 + r58174;
        double r58176 = r58173 / r58175;
        return r58176;
}

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 r58177, r58178, r58179, r58180;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r58177);
        mpfr_init(r58178);
        mpfr_init(r58179);
        mpfr_init(r58180);
}

double f_im(double x, double y) {
        mpfr_set_d(r58177, x, MPFR_RNDN);
        mpfr_set_d(r58178, y, MPFR_RNDN);
        mpfr_add(r58179, r58177, r58178, MPFR_RNDN);
        mpfr_div(r58180, r58177, r58179, MPFR_RNDN);
        return mpfr_get_d(r58180, MPFR_RNDN);
}

static mpfr_t r58181, r58182, r58183, r58184;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r58181);
        mpfr_init(r58182);
        mpfr_init(r58183);
        mpfr_init(r58184);
}

double f_fm(double x, double y) {
        mpfr_set_d(r58181, x, MPFR_RNDN);
        mpfr_set_d(r58182, y, MPFR_RNDN);
        mpfr_add(r58183, r58181, r58182, MPFR_RNDN);
        mpfr_div(r58184, r58181, r58183, MPFR_RNDN);
        return mpfr_get_d(r58184, MPFR_RNDN);
}

static mpfr_t r58185, r58186, r58187, r58188;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r58185);
        mpfr_init(r58186);
        mpfr_init(r58187);
        mpfr_init(r58188);
}

double f_dm(double x, double y) {
        mpfr_set_d(r58185, x, MPFR_RNDN);
        mpfr_set_d(r58186, y, MPFR_RNDN);
        mpfr_add(r58187, r58185, r58186, MPFR_RNDN);
        mpfr_div(r58188, r58185, r58187, MPFR_RNDN);
        return mpfr_get_d(r58188, MPFR_RNDN);
}