#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 r19627 = m;
        float r19628 = 1;
        float r19629 = r19628 - r19627;
        float r19630 = r19627 * r19629;
        float r19631 = v;
        float r19632 = r19630 / r19631;
        float r19633 = r19632 - r19628;
        float r19634 = r19633 * r19627;
        return r19634;
}

double f_id(double m, double v) {
        double r19635 = m;
        double r19636 = 1;
        double r19637 = r19636 - r19635;
        double r19638 = r19635 * r19637;
        double r19639 = v;
        double r19640 = r19638 / r19639;
        double r19641 = r19640 - r19636;
        double r19642 = r19641 * r19635;
        return r19642;
}


double f_of(float m, float v) {
        float r19643 = m;
        float r19644 = 1;
        float r19645 = r19644 - r19643;
        float r19646 = r19643 * r19645;
        float r19647 = v;
        float r19648 = r19646 / r19647;
        float r19649 = r19648 - r19644;
        float r19650 = r19649 * r19643;
        return r19650;
}

double f_od(double m, double v) {
        double r19651 = m;
        double r19652 = 1;
        double r19653 = r19652 - r19651;
        double r19654 = r19651 * r19653;
        double r19655 = v;
        double r19656 = r19654 / r19655;
        double r19657 = r19656 - r19652;
        double r19658 = r19657 * r19651;
        return r19658;
}

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 r19659, r19660, r19661, r19662, r19663, r19664, r19665, r19666;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r19659);
        mpfr_init_set_str(r19660, "1", 10, MPFR_RNDN);
        mpfr_init(r19661);
        mpfr_init(r19662);
        mpfr_init(r19663);
        mpfr_init(r19664);
        mpfr_init(r19665);
        mpfr_init(r19666);
}

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

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

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r19667);
        mpfr_init_set_str(r19668, "1", 10, MPFR_RNDN);
        mpfr_init(r19669);
        mpfr_init(r19670);
        mpfr_init(r19671);
        mpfr_init(r19672);
        mpfr_init(r19673);
        mpfr_init(r19674);
}

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

static mpfr_t r19675, r19676, r19677, r19678, r19679, r19680, r19681, r19682;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r19675);
        mpfr_init_set_str(r19676, "1", 10, MPFR_RNDN);
        mpfr_init(r19677);
        mpfr_init(r19678);
        mpfr_init(r19679);
        mpfr_init(r19680);
        mpfr_init(r19681);
        mpfr_init(r19682);
}

double f_dm(double m, double v) {
        mpfr_set_d(r19675, m, MPFR_RNDN);
        ;
        mpfr_sub(r19677, r19676, r19675, MPFR_RNDN);
        mpfr_mul(r19678, r19675, r19677, MPFR_RNDN);
        mpfr_set_d(r19679, v, MPFR_RNDN);
        mpfr_div(r19680, r19678, r19679, MPFR_RNDN);
        mpfr_sub(r19681, r19680, r19676, MPFR_RNDN);
        mpfr_mul(r19682, r19681, r19675, MPFR_RNDN);
        return mpfr_get_d(r19682, MPFR_RNDN);
}