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

char *name = "a parameter of renormalized beta distribution";

double f_if(float m, float v) {
        float r19622 = m;
        float r19623 = 1;
        float r19624 = r19623 - r19622;
        float r19625 = r19622 * r19624;
        float r19626 = v;
        float r19627 = r19625 / r19626;
        float r19628 = r19627 - r19623;
        float r19629 = r19628 * r19622;
        return r19629;
}

double f_id(double m, double v) {
        double r19630 = m;
        double r19631 = 1;
        double r19632 = r19631 - r19630;
        double r19633 = r19630 * r19632;
        double r19634 = v;
        double r19635 = r19633 / r19634;
        double r19636 = r19635 - r19631;
        double r19637 = r19636 * r19630;
        return r19637;
}


double f_of(float m, float v) {
        float r19638 = m;
        float r19639 = r19638 * r19638;
        float r19640 = r19638 - r19639;
        float r19641 = v;
        float r19642 = r19638 / r19641;
        float r19643 = r19640 * r19642;
        float r19644 = r19643 - r19638;
        return r19644;
}

double f_od(double m, double v) {
        double r19645 = m;
        double r19646 = r19645 * r19645;
        double r19647 = r19645 - r19646;
        double r19648 = v;
        double r19649 = r19645 / r19648;
        double r19650 = r19647 * r19649;
        double r19651 = r19650 - r19645;
        return r19651;
}

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 r19652, r19653, r19654, r19655, r19656, r19657, r19658, r19659;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r19652);
        mpfr_init_set_str(r19653, "1", 10, MPFR_RNDN);
        mpfr_init(r19654);
        mpfr_init(r19655);
        mpfr_init(r19656);
        mpfr_init(r19657);
        mpfr_init(r19658);
        mpfr_init(r19659);
}

double f_im(double m, double v) {
        mpfr_set_d(r19652, m, MPFR_RNDN);
        ;
        mpfr_sub(r19654, r19653, r19652, MPFR_RNDN);
        mpfr_mul(r19655, r19652, r19654, MPFR_RNDN);
        mpfr_set_d(r19656, v, MPFR_RNDN);
        mpfr_div(r19657, r19655, r19656, MPFR_RNDN);
        mpfr_sub(r19658, r19657, r19653, MPFR_RNDN);
        mpfr_mul(r19659, r19658, r19652, MPFR_RNDN);
        return mpfr_get_d(r19659, MPFR_RNDN);
}

static mpfr_t r19660, r19661, r19662, r19663, r19664, r19665, r19666;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r19660);
        mpfr_init(r19661);
        mpfr_init(r19662);
        mpfr_init(r19663);
        mpfr_init(r19664);
        mpfr_init(r19665);
        mpfr_init(r19666);
}

double f_fm(double m, double v) {
        mpfr_set_d(r19660, m, MPFR_RNDN);
        mpfr_mul(r19661, r19660, r19660, MPFR_RNDN);
        mpfr_sub(r19662, r19660, r19661, MPFR_RNDN);
        mpfr_set_d(r19663, v, MPFR_RNDN);
        mpfr_div(r19664, r19660, r19663, MPFR_RNDN);
        mpfr_mul(r19665, r19662, r19664, MPFR_RNDN);
        mpfr_sub(r19666, r19665, r19660, MPFR_RNDN);
        return mpfr_get_d(r19666, MPFR_RNDN);
}

static mpfr_t r19667, r19668, r19669, r19670, r19671, r19672, r19673;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r19667);
        mpfr_init(r19668);
        mpfr_init(r19669);
        mpfr_init(r19670);
        mpfr_init(r19671);
        mpfr_init(r19672);
        mpfr_init(r19673);
}

double f_dm(double m, double v) {
        mpfr_set_d(r19667, m, MPFR_RNDN);
        mpfr_mul(r19668, r19667, r19667, MPFR_RNDN);
        mpfr_sub(r19669, r19667, r19668, MPFR_RNDN);
        mpfr_set_d(r19670, v, MPFR_RNDN);
        mpfr_div(r19671, r19667, r19670, MPFR_RNDN);
        mpfr_mul(r19672, r19669, r19671, MPFR_RNDN);
        mpfr_sub(r19673, r19672, r19667, MPFR_RNDN);
        return mpfr_get_d(r19673, MPFR_RNDN);
}