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

double f_if(float x, float y, float z, float t, float a, float b, float c) {
        float r16144 = x;
        float r16145 = y;
        float r16146 = 2.0f;
        float r16147 = z;
        float r16148 = t;
        float r16149 = a;
        float r16150 = r16148 + r16149;
        float r16151 = sqrt(r16150);
        float r16152 = r16147 * r16151;
        float r16153 = r16152 / r16148;
        float r16154 = b;
        float r16155 = c;
        float r16156 = r16154 - r16155;
        float r16157 = 5.0f;
        float r16158 = 6.0f;
        float r16159 = r16157 / r16158;
        float r16160 = r16149 + r16159;
        float r16161 = 3.0f;
        float r16162 = r16148 * r16161;
        float r16163 = r16146 / r16162;
        float r16164 = r16160 - r16163;
        float r16165 = r16156 * r16164;
        float r16166 = r16153 - r16165;
        float r16167 = r16146 * r16166;
        float r16168 = exp(r16167);
        float r16169 = r16145 * r16168;
        float r16170 = r16144 + r16169;
        float r16171 = r16144 / r16170;
        return r16171;
}

double f_id(double x, double y, double z, double t, double a, double b, double c) {
        double r16172 = x;
        double r16173 = y;
        double r16174 = 2.0;
        double r16175 = z;
        double r16176 = t;
        double r16177 = a;
        double r16178 = r16176 + r16177;
        double r16179 = sqrt(r16178);
        double r16180 = r16175 * r16179;
        double r16181 = r16180 / r16176;
        double r16182 = b;
        double r16183 = c;
        double r16184 = r16182 - r16183;
        double r16185 = 5.0;
        double r16186 = 6.0;
        double r16187 = r16185 / r16186;
        double r16188 = r16177 + r16187;
        double r16189 = 3.0;
        double r16190 = r16176 * r16189;
        double r16191 = r16174 / r16190;
        double r16192 = r16188 - r16191;
        double r16193 = r16184 * r16192;
        double r16194 = r16181 - r16193;
        double r16195 = r16174 * r16194;
        double r16196 = exp(r16195);
        double r16197 = r16173 * r16196;
        double r16198 = r16172 + r16197;
        double r16199 = r16172 / r16198;
        return r16199;
}


double f_of(float x, float y, float z, float t, float a, float b, float c) {
        float r16200 = x;
        float r16201 = 2.0f;
        float r16202 = exp(r16201);
        float r16203 = a;
        float r16204 = t;
        float r16205 = r16203 + r16204;
        float r16206 = sqrt(r16205);
        float r16207 = z;
        float r16208 = r16204 / r16207;
        float r16209 = r16206 / r16208;
        float r16210 = 5.0f;
        float r16211 = 6.0f;
        float r16212 = r16210 / r16211;
        float r16213 = r16212 + r16203;
        float r16214 = 3.0f;
        float r16215 = r16214 * r16204;
        float r16216 = r16201 / r16215;
        float r16217 = r16213 - r16216;
        float r16218 = b;
        float r16219 = c;
        float r16220 = r16218 - r16219;
        float r16221 = r16217 * r16220;
        float r16222 = r16209 - r16221;
        float r16223 = pow(r16202, r16222);
        float r16224 = y;
        float r16225 = fma(r16223, r16224, r16200);
        float r16226 = r16200 / r16225;
        return r16226;
}

double f_od(double x, double y, double z, double t, double a, double b, double c) {
        double r16227 = x;
        double r16228 = 2.0;
        double r16229 = exp(r16228);
        double r16230 = a;
        double r16231 = t;
        double r16232 = r16230 + r16231;
        double r16233 = sqrt(r16232);
        double r16234 = z;
        double r16235 = r16231 / r16234;
        double r16236 = r16233 / r16235;
        double r16237 = 5.0;
        double r16238 = 6.0;
        double r16239 = r16237 / r16238;
        double r16240 = r16239 + r16230;
        double r16241 = 3.0;
        double r16242 = r16241 * r16231;
        double r16243 = r16228 / r16242;
        double r16244 = r16240 - r16243;
        double r16245 = b;
        double r16246 = c;
        double r16247 = r16245 - r16246;
        double r16248 = r16244 * r16247;
        double r16249 = r16236 - r16248;
        double r16250 = pow(r16229, r16249);
        double r16251 = y;
        double r16252 = fma(r16250, r16251, r16227);
        double r16253 = r16227 / r16252;
        return r16253;
}

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 r16254, r16255, r16256, r16257, r16258, r16259, r16260, r16261, r16262, r16263, r16264, r16265, r16266, r16267, r16268, r16269, r16270, r16271, r16272, r16273, r16274, r16275, r16276, r16277, r16278, r16279, r16280, r16281;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r16254);
        mpfr_init(r16255);
        mpfr_init_set_str(r16256, "2.0", 10, MPFR_RNDN);
        mpfr_init(r16257);
        mpfr_init(r16258);
        mpfr_init(r16259);
        mpfr_init(r16260);
        mpfr_init(r16261);
        mpfr_init(r16262);
        mpfr_init(r16263);
        mpfr_init(r16264);
        mpfr_init(r16265);
        mpfr_init(r16266);
        mpfr_init_set_str(r16267, "5.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r16268, "6.0", 10, MPFR_RNDN);
        mpfr_init(r16269);
        mpfr_init(r16270);
        mpfr_init_set_str(r16271, "3.0", 10, MPFR_RNDN);
        mpfr_init(r16272);
        mpfr_init(r16273);
        mpfr_init(r16274);
        mpfr_init(r16275);
        mpfr_init(r16276);
        mpfr_init(r16277);
        mpfr_init(r16278);
        mpfr_init(r16279);
        mpfr_init(r16280);
        mpfr_init(r16281);
}

double f_im(double x, double y, double z, double t, double a, double b, double c) {
        mpfr_set_d(r16254, x, MPFR_RNDN);
        mpfr_set_d(r16255, y, MPFR_RNDN);
        ;
        mpfr_set_d(r16257, z, MPFR_RNDN);
        mpfr_set_d(r16258, t, MPFR_RNDN);
        mpfr_set_d(r16259, a, MPFR_RNDN);
        mpfr_add(r16260, r16258, r16259, MPFR_RNDN);
        mpfr_sqrt(r16261, r16260, MPFR_RNDN);
        mpfr_mul(r16262, r16257, r16261, MPFR_RNDN);
        mpfr_div(r16263, r16262, r16258, MPFR_RNDN);
        mpfr_set_d(r16264, b, MPFR_RNDN);
        mpfr_set_d(r16265, c, MPFR_RNDN);
        mpfr_sub(r16266, r16264, r16265, MPFR_RNDN);
        ;
        ;
        mpfr_div(r16269, r16267, r16268, MPFR_RNDN);
        mpfr_add(r16270, r16259, r16269, MPFR_RNDN);
        ;
        mpfr_mul(r16272, r16258, r16271, MPFR_RNDN);
        mpfr_div(r16273, r16256, r16272, MPFR_RNDN);
        mpfr_sub(r16274, r16270, r16273, MPFR_RNDN);
        mpfr_mul(r16275, r16266, r16274, MPFR_RNDN);
        mpfr_sub(r16276, r16263, r16275, MPFR_RNDN);
        mpfr_mul(r16277, r16256, r16276, MPFR_RNDN);
        mpfr_exp(r16278, r16277, MPFR_RNDN);
        mpfr_mul(r16279, r16255, r16278, MPFR_RNDN);
        mpfr_add(r16280, r16254, r16279, MPFR_RNDN);
        mpfr_div(r16281, r16254, r16280, MPFR_RNDN);
        return mpfr_get_d(r16281, MPFR_RNDN);
}

static mpfr_t r16282, r16283, r16284, r16285, r16286, r16287, r16288, r16289, r16290, r16291, r16292, r16293, r16294, r16295, r16296, r16297, r16298, r16299, r16300, r16301, r16302, r16303, r16304, r16305, r16306, r16307, r16308;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r16282);
        mpfr_init_set_str(r16283, "2.0", 10, MPFR_RNDN);
        mpfr_init(r16284);
        mpfr_init(r16285);
        mpfr_init(r16286);
        mpfr_init(r16287);
        mpfr_init(r16288);
        mpfr_init(r16289);
        mpfr_init(r16290);
        mpfr_init(r16291);
        mpfr_init_set_str(r16292, "5.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r16293, "6.0", 10, MPFR_RNDN);
        mpfr_init(r16294);
        mpfr_init(r16295);
        mpfr_init_set_str(r16296, "3.0", 10, MPFR_RNDN);
        mpfr_init(r16297);
        mpfr_init(r16298);
        mpfr_init(r16299);
        mpfr_init(r16300);
        mpfr_init(r16301);
        mpfr_init(r16302);
        mpfr_init(r16303);
        mpfr_init(r16304);
        mpfr_init(r16305);
        mpfr_init(r16306);
        mpfr_init(r16307);
        mpfr_init(r16308);
}

double f_fm(double x, double y, double z, double t, double a, double b, double c) {
        mpfr_set_d(r16282, x, MPFR_RNDN);
        ;
        mpfr_exp(r16284, r16283, MPFR_RNDN);
        mpfr_set_d(r16285, a, MPFR_RNDN);
        mpfr_set_d(r16286, t, MPFR_RNDN);
        mpfr_add(r16287, r16285, r16286, MPFR_RNDN);
        mpfr_sqrt(r16288, r16287, MPFR_RNDN);
        mpfr_set_d(r16289, z, MPFR_RNDN);
        mpfr_div(r16290, r16286, r16289, MPFR_RNDN);
        mpfr_div(r16291, r16288, r16290, MPFR_RNDN);
        ;
        ;
        mpfr_div(r16294, r16292, r16293, MPFR_RNDN);
        mpfr_add(r16295, r16294, r16285, MPFR_RNDN);
        ;
        mpfr_mul(r16297, r16296, r16286, MPFR_RNDN);
        mpfr_div(r16298, r16283, r16297, MPFR_RNDN);
        mpfr_sub(r16299, r16295, r16298, MPFR_RNDN);
        mpfr_set_d(r16300, b, MPFR_RNDN);
        mpfr_set_d(r16301, c, MPFR_RNDN);
        mpfr_sub(r16302, r16300, r16301, MPFR_RNDN);
        mpfr_mul(r16303, r16299, r16302, MPFR_RNDN);
        mpfr_sub(r16304, r16291, r16303, MPFR_RNDN);
        mpfr_pow(r16305, r16284, r16304, MPFR_RNDN);
        mpfr_set_d(r16306, y, MPFR_RNDN);
        mpfr_fma(r16307, r16305, r16306, r16282, MPFR_RNDN);
        mpfr_div(r16308, r16282, r16307, MPFR_RNDN);
        return mpfr_get_d(r16308, MPFR_RNDN);
}

static mpfr_t r16309, r16310, r16311, r16312, r16313, r16314, r16315, r16316, r16317, r16318, r16319, r16320, r16321, r16322, r16323, r16324, r16325, r16326, r16327, r16328, r16329, r16330, r16331, r16332, r16333, r16334, r16335;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r16309);
        mpfr_init_set_str(r16310, "2.0", 10, MPFR_RNDN);
        mpfr_init(r16311);
        mpfr_init(r16312);
        mpfr_init(r16313);
        mpfr_init(r16314);
        mpfr_init(r16315);
        mpfr_init(r16316);
        mpfr_init(r16317);
        mpfr_init(r16318);
        mpfr_init_set_str(r16319, "5.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r16320, "6.0", 10, MPFR_RNDN);
        mpfr_init(r16321);
        mpfr_init(r16322);
        mpfr_init_set_str(r16323, "3.0", 10, MPFR_RNDN);
        mpfr_init(r16324);
        mpfr_init(r16325);
        mpfr_init(r16326);
        mpfr_init(r16327);
        mpfr_init(r16328);
        mpfr_init(r16329);
        mpfr_init(r16330);
        mpfr_init(r16331);
        mpfr_init(r16332);
        mpfr_init(r16333);
        mpfr_init(r16334);
        mpfr_init(r16335);
}

double f_dm(double x, double y, double z, double t, double a, double b, double c) {
        mpfr_set_d(r16309, x, MPFR_RNDN);
        ;
        mpfr_exp(r16311, r16310, MPFR_RNDN);
        mpfr_set_d(r16312, a, MPFR_RNDN);
        mpfr_set_d(r16313, t, MPFR_RNDN);
        mpfr_add(r16314, r16312, r16313, MPFR_RNDN);
        mpfr_sqrt(r16315, r16314, MPFR_RNDN);
        mpfr_set_d(r16316, z, MPFR_RNDN);
        mpfr_div(r16317, r16313, r16316, MPFR_RNDN);
        mpfr_div(r16318, r16315, r16317, MPFR_RNDN);
        ;
        ;
        mpfr_div(r16321, r16319, r16320, MPFR_RNDN);
        mpfr_add(r16322, r16321, r16312, MPFR_RNDN);
        ;
        mpfr_mul(r16324, r16323, r16313, MPFR_RNDN);
        mpfr_div(r16325, r16310, r16324, MPFR_RNDN);
        mpfr_sub(r16326, r16322, r16325, MPFR_RNDN);
        mpfr_set_d(r16327, b, MPFR_RNDN);
        mpfr_set_d(r16328, c, MPFR_RNDN);
        mpfr_sub(r16329, r16327, r16328, MPFR_RNDN);
        mpfr_mul(r16330, r16326, r16329, MPFR_RNDN);
        mpfr_sub(r16331, r16318, r16330, MPFR_RNDN);
        mpfr_pow(r16332, r16311, r16331, MPFR_RNDN);
        mpfr_set_d(r16333, y, MPFR_RNDN);
        mpfr_fma(r16334, r16332, r16333, r16309, MPFR_RNDN);
        mpfr_div(r16335, r16309, r16334, MPFR_RNDN);
        return mpfr_get_d(r16335, MPFR_RNDN);
}