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

char *name = "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2, H";

double f_if(float x) {
        float r43587 = x;
        float r43588 = r43587 * r43587;
        float r43589 = 3.0;
        float r43590 = r43588 - r43589;
        float r43591 = 6.0;
        float r43592 = r43590 / r43591;
        return r43592;
}

double f_id(double x) {
        double r43593 = x;
        double r43594 = r43593 * r43593;
        double r43595 = 3.0;
        double r43596 = r43594 - r43595;
        double r43597 = 6.0;
        double r43598 = r43596 / r43597;
        return r43598;
}


double f_of(float x) {
        float r43599 = 0.16666666666666666;
        float r43600 = x;
        float r43601 = 2;
        float r43602 = pow(r43600, r43601);
        float r43603 = r43599 * r43602;
        float r43604 = 0.5;
        float r43605 = r43603 - r43604;
        return r43605;
}

double f_od(double x) {
        double r43606 = 0.16666666666666666;
        double r43607 = x;
        double r43608 = 2;
        double r43609 = pow(r43607, r43608);
        double r43610 = r43606 * r43609;
        double r43611 = 0.5;
        double r43612 = r43610 - r43611;
        return r43612;
}

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 r43613, r43614, r43615, r43616, r43617, r43618;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r43613);
        mpfr_init(r43614);
        mpfr_init_set_str(r43615, "3.0", 10, MPFR_RNDN);
        mpfr_init(r43616);
        mpfr_init_set_str(r43617, "6.0", 10, MPFR_RNDN);
        mpfr_init(r43618);
}

double f_im(double x) {
        mpfr_set_d(r43613, x, MPFR_RNDN);
        mpfr_mul(r43614, r43613, r43613, MPFR_RNDN);
        ;
        mpfr_sub(r43616, r43614, r43615, MPFR_RNDN);
        ;
        mpfr_div(r43618, r43616, r43617, MPFR_RNDN);
        return mpfr_get_d(r43618, MPFR_RNDN);
}

static mpfr_t r43619, r43620, r43621, r43622, r43623, r43624, r43625;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r43619, "0.16666666666666666", 10, MPFR_RNDN);
        mpfr_init(r43620);
        mpfr_init_set_str(r43621, "2", 10, MPFR_RNDN);
        mpfr_init(r43622);
        mpfr_init(r43623);
        mpfr_init_set_str(r43624, "0.5", 10, MPFR_RNDN);
        mpfr_init(r43625);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r43620, x, MPFR_RNDN);
        ;
        mpfr_pow(r43622, r43620, r43621, MPFR_RNDN);
        mpfr_mul(r43623, r43619, r43622, MPFR_RNDN);
        ;
        mpfr_sub(r43625, r43623, r43624, MPFR_RNDN);
        return mpfr_get_d(r43625, MPFR_RNDN);
}

static mpfr_t r43626, r43627, r43628, r43629, r43630, r43631, r43632;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r43626, "0.16666666666666666", 10, MPFR_RNDN);
        mpfr_init(r43627);
        mpfr_init_set_str(r43628, "2", 10, MPFR_RNDN);
        mpfr_init(r43629);
        mpfr_init(r43630);
        mpfr_init_set_str(r43631, "0.5", 10, MPFR_RNDN);
        mpfr_init(r43632);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r43627, x, MPFR_RNDN);
        ;
        mpfr_pow(r43629, r43627, r43628, MPFR_RNDN);
        mpfr_mul(r43630, r43626, r43629, MPFR_RNDN);
        ;
        mpfr_sub(r43632, r43630, r43631, MPFR_RNDN);
        return mpfr_get_d(r43632, MPFR_RNDN);
}