#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 r58665 = x;
        float r58666 = y;
        float r58667 = r58666 + r58665;
        float r58668 = r58665 / r58667;
        return r58668;
}

double f_id(double x, double y) {
        double r58669 = x;
        double r58670 = y;
        double r58671 = r58670 + r58669;
        double r58672 = r58669 / r58671;
        return r58672;
}


double f_of(float x, float y) {
        float r58673 = x;
        float r58674 = y;
        float r58675 = r58674 + r58673;
        float r58676 = r58673 / r58675;
        return r58676;
}

double f_od(double x, double y) {
        double r58677 = x;
        double r58678 = y;
        double r58679 = r58678 + r58677;
        double r58680 = r58677 / r58679;
        return r58680;
}

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 r58681, r58682, r58683, r58684;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r58681);
        mpfr_init(r58682);
        mpfr_init(r58683);
        mpfr_init(r58684);
}

double f_im(double x, double y) {
        mpfr_set_d(r58681, x, MPFR_RNDN);
        mpfr_set_d(r58682, y, MPFR_RNDN);
        mpfr_add(r58683, r58682, r58681, MPFR_RNDN);
        mpfr_div(r58684, r58681, r58683, MPFR_RNDN);
        return mpfr_get_d(r58684, MPFR_RNDN);
}

static mpfr_t r58685, r58686, r58687, r58688;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r58685);
        mpfr_init(r58686);
        mpfr_init(r58687);
        mpfr_init(r58688);
}

double f_fm(double x, double y) {
        mpfr_set_d(r58685, x, MPFR_RNDN);
        mpfr_set_d(r58686, y, MPFR_RNDN);
        mpfr_add(r58687, r58686, r58685, MPFR_RNDN);
        mpfr_div(r58688, r58685, r58687, MPFR_RNDN);
        return mpfr_get_d(r58688, MPFR_RNDN);
}

static mpfr_t r58689, r58690, r58691, r58692;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r58689);
        mpfr_init(r58690);
        mpfr_init(r58691);
        mpfr_init(r58692);
}

double f_dm(double x, double y) {
        mpfr_set_d(r58689, x, MPFR_RNDN);
        mpfr_set_d(r58690, y, MPFR_RNDN);
        mpfr_add(r58691, r58690, r58689, MPFR_RNDN);
        mpfr_div(r58692, r58689, r58691, MPFR_RNDN);
        return mpfr_get_d(r58692, MPFR_RNDN);
}