#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, B";

double f_if(float x, float y) {
        float r58783 = x;
        float r58784 = y;
        float r58785 = r58784 + r58783;
        float r58786 = r58783 / r58785;
        return r58786;
}

double f_id(double x, double y) {
        double r58787 = x;
        double r58788 = y;
        double r58789 = r58788 + r58787;
        double r58790 = r58787 / r58789;
        return r58790;
}


double f_of(float x, float y) {
        float r58791 = x;
        float r58792 = y;
        float r58793 = r58792 + r58791;
        float r58794 = r58791 / r58793;
        return r58794;
}

double f_od(double x, double y) {
        double r58795 = x;
        double r58796 = y;
        double r58797 = r58796 + r58795;
        double r58798 = r58795 / r58797;
        return r58798;
}

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 r58799, r58800, r58801, r58802;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r58799);
        mpfr_init(r58800);
        mpfr_init(r58801);
        mpfr_init(r58802);
}

double f_im(double x, double y) {
        mpfr_set_d(r58799, x, MPFR_RNDN);
        mpfr_set_d(r58800, y, MPFR_RNDN);
        mpfr_add(r58801, r58800, r58799, MPFR_RNDN);
        mpfr_div(r58802, r58799, r58801, MPFR_RNDN);
        return mpfr_get_d(r58802, MPFR_RNDN);
}

static mpfr_t r58803, r58804, r58805, r58806;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r58803);
        mpfr_init(r58804);
        mpfr_init(r58805);
        mpfr_init(r58806);
}

double f_fm(double x, double y) {
        mpfr_set_d(r58803, x, MPFR_RNDN);
        mpfr_set_d(r58804, y, MPFR_RNDN);
        mpfr_add(r58805, r58804, r58803, MPFR_RNDN);
        mpfr_div(r58806, r58803, r58805, MPFR_RNDN);
        return mpfr_get_d(r58806, MPFR_RNDN);
}

static mpfr_t r58807, r58808, r58809, r58810;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r58807);
        mpfr_init(r58808);
        mpfr_init(r58809);
        mpfr_init(r58810);
}

double f_dm(double x, double y) {
        mpfr_set_d(r58807, x, MPFR_RNDN);
        mpfr_set_d(r58808, y, MPFR_RNDN);
        mpfr_add(r58809, r58808, r58807, MPFR_RNDN);
        mpfr_div(r58810, r58807, r58809, MPFR_RNDN);
        return mpfr_get_d(r58810, MPFR_RNDN);
}