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

char *name = "Bulmash initializePoisson";

double f_if(float NdChar, float Ec, float Vef, float EDonor, float mu, float KbT, float NaChar, float Ev, float EAccept) {
        float r27281 = NdChar;
        float r27282 = 1;
        float r27283 = Ec;
        float r27284 = Vef;
        float r27285 = r27283 - r27284;
        float r27286 = EDonor;
        float r27287 = r27285 - r27286;
        float r27288 = mu;
        float r27289 = r27287 - r27288;
        float r27290 = -r27289;
        float r27291 = KbT;
        float r27292 = r27290 / r27291;
        float r27293 = exp(r27292);
        float r27294 = r27282 + r27293;
        float r27295 = r27281 / r27294;
        float r27296 = NaChar;
        float r27297 = Ev;
        float r27298 = r27297 + r27284;
        float r27299 = EAccept;
        float r27300 = r27298 + r27299;
        float r27301 = -r27288;
        float r27302 = r27300 + r27301;
        float r27303 = r27302 / r27291;
        float r27304 = exp(r27303);
        float r27305 = r27282 + r27304;
        float r27306 = r27296 / r27305;
        float r27307 = r27295 + r27306;
        return r27307;
}

double f_id(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        double r27308 = NdChar;
        double r27309 = 1;
        double r27310 = Ec;
        double r27311 = Vef;
        double r27312 = r27310 - r27311;
        double r27313 = EDonor;
        double r27314 = r27312 - r27313;
        double r27315 = mu;
        double r27316 = r27314 - r27315;
        double r27317 = -r27316;
        double r27318 = KbT;
        double r27319 = r27317 / r27318;
        double r27320 = exp(r27319);
        double r27321 = r27309 + r27320;
        double r27322 = r27308 / r27321;
        double r27323 = NaChar;
        double r27324 = Ev;
        double r27325 = r27324 + r27311;
        double r27326 = EAccept;
        double r27327 = r27325 + r27326;
        double r27328 = -r27315;
        double r27329 = r27327 + r27328;
        double r27330 = r27329 / r27318;
        double r27331 = exp(r27330);
        double r27332 = r27309 + r27331;
        double r27333 = r27323 / r27332;
        double r27334 = r27322 + r27333;
        return r27334;
}


double f_of(float NdChar, float Ec, float Vef, float EDonor, float mu, float KbT, float NaChar, float Ev, float EAccept) {
        float r27335 = NdChar;
        float r27336 = 1;
        float r27337 = Ec;
        float r27338 = Vef;
        float r27339 = r27337 - r27338;
        float r27340 = EDonor;
        float r27341 = r27339 - r27340;
        float r27342 = mu;
        float r27343 = r27341 - r27342;
        float r27344 = -r27343;
        float r27345 = KbT;
        float r27346 = r27344 / r27345;
        float r27347 = exp(r27346);
        float r27348 = r27336 + r27347;
        float r27349 = r27335 / r27348;
        float r27350 = NaChar;
        float r27351 = exp(1.0);
        float r27352 = r27338 - r27342;
        float r27353 = Ev;
        float r27354 = EAccept;
        float r27355 = r27353 + r27354;
        float r27356 = r27352 + r27355;
        float r27357 = r27356 / r27345;
        float r27358 = pow(r27351, r27357);
        float r27359 = cbrt(r27358);
        float r27360 = r27359 * r27359;
        float r27361 = r27360 * r27359;
        float r27362 = r27336 + r27361;
        float r27363 = r27350 / r27362;
        float r27364 = r27349 + r27363;
        return r27364;
}

double f_od(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        double r27365 = NdChar;
        double r27366 = 1;
        double r27367 = Ec;
        double r27368 = Vef;
        double r27369 = r27367 - r27368;
        double r27370 = EDonor;
        double r27371 = r27369 - r27370;
        double r27372 = mu;
        double r27373 = r27371 - r27372;
        double r27374 = -r27373;
        double r27375 = KbT;
        double r27376 = r27374 / r27375;
        double r27377 = exp(r27376);
        double r27378 = r27366 + r27377;
        double r27379 = r27365 / r27378;
        double r27380 = NaChar;
        double r27381 = exp(1.0);
        double r27382 = r27368 - r27372;
        double r27383 = Ev;
        double r27384 = EAccept;
        double r27385 = r27383 + r27384;
        double r27386 = r27382 + r27385;
        double r27387 = r27386 / r27375;
        double r27388 = pow(r27381, r27387);
        double r27389 = cbrt(r27388);
        double r27390 = r27389 * r27389;
        double r27391 = r27390 * r27389;
        double r27392 = r27366 + r27391;
        double r27393 = r27380 / r27392;
        double r27394 = r27379 + r27393;
        return r27394;
}

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 r27395, r27396, r27397, r27398, r27399, r27400, r27401, r27402, r27403, r27404, r27405, r27406, r27407, r27408, r27409, r27410, r27411, r27412, r27413, r27414, r27415, r27416, r27417, r27418, r27419, r27420, r27421;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r27395);
        mpfr_init_set_str(r27396, "1", 10, MPFR_RNDN);
        mpfr_init(r27397);
        mpfr_init(r27398);
        mpfr_init(r27399);
        mpfr_init(r27400);
        mpfr_init(r27401);
        mpfr_init(r27402);
        mpfr_init(r27403);
        mpfr_init(r27404);
        mpfr_init(r27405);
        mpfr_init(r27406);
        mpfr_init(r27407);
        mpfr_init(r27408);
        mpfr_init(r27409);
        mpfr_init(r27410);
        mpfr_init(r27411);
        mpfr_init(r27412);
        mpfr_init(r27413);
        mpfr_init(r27414);
        mpfr_init(r27415);
        mpfr_init(r27416);
        mpfr_init(r27417);
        mpfr_init(r27418);
        mpfr_init(r27419);
        mpfr_init(r27420);
        mpfr_init(r27421);
}

double f_im(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r27395, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r27397, Ec, MPFR_RNDN);
        mpfr_set_d(r27398, Vef, MPFR_RNDN);
        mpfr_sub(r27399, r27397, r27398, MPFR_RNDN);
        mpfr_set_d(r27400, EDonor, MPFR_RNDN);
        mpfr_sub(r27401, r27399, r27400, MPFR_RNDN);
        mpfr_set_d(r27402, mu, MPFR_RNDN);
        mpfr_sub(r27403, r27401, r27402, MPFR_RNDN);
        mpfr_neg(r27404, r27403, MPFR_RNDN);
        mpfr_set_d(r27405, KbT, MPFR_RNDN);
        mpfr_div(r27406, r27404, r27405, MPFR_RNDN);
        mpfr_exp(r27407, r27406, MPFR_RNDN);
        mpfr_add(r27408, r27396, r27407, MPFR_RNDN);
        mpfr_div(r27409, r27395, r27408, MPFR_RNDN);
        mpfr_set_d(r27410, NaChar, MPFR_RNDN);
        mpfr_set_d(r27411, Ev, MPFR_RNDN);
        mpfr_add(r27412, r27411, r27398, MPFR_RNDN);
        mpfr_set_d(r27413, EAccept, MPFR_RNDN);
        mpfr_add(r27414, r27412, r27413, MPFR_RNDN);
        mpfr_neg(r27415, r27402, MPFR_RNDN);
        mpfr_add(r27416, r27414, r27415, MPFR_RNDN);
        mpfr_div(r27417, r27416, r27405, MPFR_RNDN);
        mpfr_exp(r27418, r27417, MPFR_RNDN);
        mpfr_add(r27419, r27396, r27418, MPFR_RNDN);
        mpfr_div(r27420, r27410, r27419, MPFR_RNDN);
        mpfr_add(r27421, r27409, r27420, MPFR_RNDN);
        return mpfr_get_d(r27421, MPFR_RNDN);
}

static mpfr_t r27422, r27423, r27424, r27425, r27426, r27427, r27428, r27429, r27430, r27431, r27432, r27433, r27434, r27435, r27436, r27437, r27438, r27439, r27440, r27441, r27442, r27443, r27444, r27445, r27446, r27447, r27448, r27449, r27450, r27451;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r27422);
        mpfr_init_set_str(r27423, "1", 10, MPFR_RNDN);
        mpfr_init(r27424);
        mpfr_init(r27425);
        mpfr_init(r27426);
        mpfr_init(r27427);
        mpfr_init(r27428);
        mpfr_init(r27429);
        mpfr_init(r27430);
        mpfr_init(r27431);
        mpfr_init(r27432);
        mpfr_init(r27433);
        mpfr_init(r27434);
        mpfr_init(r27435);
        mpfr_init(r27436);
        mpfr_init(r27437);
        mpfr_init(r27438);
        mpfr_init(r27439);
        mpfr_init(r27440);
        mpfr_init(r27441);
        mpfr_init(r27442);
        mpfr_init(r27443);
        mpfr_init(r27444);
        mpfr_init(r27445);
        mpfr_init(r27446);
        mpfr_init(r27447);
        mpfr_init(r27448);
        mpfr_init(r27449);
        mpfr_init(r27450);
        mpfr_init(r27451);
}

double f_fm(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r27422, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r27424, Ec, MPFR_RNDN);
        mpfr_set_d(r27425, Vef, MPFR_RNDN);
        mpfr_sub(r27426, r27424, r27425, MPFR_RNDN);
        mpfr_set_d(r27427, EDonor, MPFR_RNDN);
        mpfr_sub(r27428, r27426, r27427, MPFR_RNDN);
        mpfr_set_d(r27429, mu, MPFR_RNDN);
        mpfr_sub(r27430, r27428, r27429, MPFR_RNDN);
        mpfr_neg(r27431, r27430, MPFR_RNDN);
        mpfr_set_d(r27432, KbT, MPFR_RNDN);
        mpfr_div(r27433, r27431, r27432, MPFR_RNDN);
        mpfr_exp(r27434, r27433, MPFR_RNDN);
        mpfr_add(r27435, r27423, r27434, MPFR_RNDN);
        mpfr_div(r27436, r27422, r27435, MPFR_RNDN);
        mpfr_set_d(r27437, NaChar, MPFR_RNDN);
        mpfr_set_si(r27438, 1, MPFR_RNDN), mpfr_const_exp(r27438, r27438, MPFR_RNDN);
        mpfr_sub(r27439, r27425, r27429, MPFR_RNDN);
        mpfr_set_d(r27440, Ev, MPFR_RNDN);
        mpfr_set_d(r27441, EAccept, MPFR_RNDN);
        mpfr_add(r27442, r27440, r27441, MPFR_RNDN);
        mpfr_add(r27443, r27439, r27442, MPFR_RNDN);
        mpfr_div(r27444, r27443, r27432, MPFR_RNDN);
        mpfr_pow(r27445, r27438, r27444, MPFR_RNDN);
        mpfr_cbrt(r27446, r27445, MPFR_RNDN);
        mpfr_mul(r27447, r27446, r27446, MPFR_RNDN);
        mpfr_mul(r27448, r27447, r27446, MPFR_RNDN);
        mpfr_add(r27449, r27423, r27448, MPFR_RNDN);
        mpfr_div(r27450, r27437, r27449, MPFR_RNDN);
        mpfr_add(r27451, r27436, r27450, MPFR_RNDN);
        return mpfr_get_d(r27451, MPFR_RNDN);
}

static mpfr_t r27452, r27453, r27454, r27455, r27456, r27457, r27458, r27459, r27460, r27461, r27462, r27463, r27464, r27465, r27466, r27467, r27468, r27469, r27470, r27471, r27472, r27473, r27474, r27475, r27476, r27477, r27478, r27479, r27480, r27481;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r27452);
        mpfr_init_set_str(r27453, "1", 10, MPFR_RNDN);
        mpfr_init(r27454);
        mpfr_init(r27455);
        mpfr_init(r27456);
        mpfr_init(r27457);
        mpfr_init(r27458);
        mpfr_init(r27459);
        mpfr_init(r27460);
        mpfr_init(r27461);
        mpfr_init(r27462);
        mpfr_init(r27463);
        mpfr_init(r27464);
        mpfr_init(r27465);
        mpfr_init(r27466);
        mpfr_init(r27467);
        mpfr_init(r27468);
        mpfr_init(r27469);
        mpfr_init(r27470);
        mpfr_init(r27471);
        mpfr_init(r27472);
        mpfr_init(r27473);
        mpfr_init(r27474);
        mpfr_init(r27475);
        mpfr_init(r27476);
        mpfr_init(r27477);
        mpfr_init(r27478);
        mpfr_init(r27479);
        mpfr_init(r27480);
        mpfr_init(r27481);
}

double f_dm(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r27452, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r27454, Ec, MPFR_RNDN);
        mpfr_set_d(r27455, Vef, MPFR_RNDN);
        mpfr_sub(r27456, r27454, r27455, MPFR_RNDN);
        mpfr_set_d(r27457, EDonor, MPFR_RNDN);
        mpfr_sub(r27458, r27456, r27457, MPFR_RNDN);
        mpfr_set_d(r27459, mu, MPFR_RNDN);
        mpfr_sub(r27460, r27458, r27459, MPFR_RNDN);
        mpfr_neg(r27461, r27460, MPFR_RNDN);
        mpfr_set_d(r27462, KbT, MPFR_RNDN);
        mpfr_div(r27463, r27461, r27462, MPFR_RNDN);
        mpfr_exp(r27464, r27463, MPFR_RNDN);
        mpfr_add(r27465, r27453, r27464, MPFR_RNDN);
        mpfr_div(r27466, r27452, r27465, MPFR_RNDN);
        mpfr_set_d(r27467, NaChar, MPFR_RNDN);
        mpfr_set_si(r27468, 1, MPFR_RNDN), mpfr_const_exp(r27468, r27468, MPFR_RNDN);
        mpfr_sub(r27469, r27455, r27459, MPFR_RNDN);
        mpfr_set_d(r27470, Ev, MPFR_RNDN);
        mpfr_set_d(r27471, EAccept, MPFR_RNDN);
        mpfr_add(r27472, r27470, r27471, MPFR_RNDN);
        mpfr_add(r27473, r27469, r27472, MPFR_RNDN);
        mpfr_div(r27474, r27473, r27462, MPFR_RNDN);
        mpfr_pow(r27475, r27468, r27474, MPFR_RNDN);
        mpfr_cbrt(r27476, r27475, MPFR_RNDN);
        mpfr_mul(r27477, r27476, r27476, MPFR_RNDN);
        mpfr_mul(r27478, r27477, r27476, MPFR_RNDN);
        mpfr_add(r27479, r27453, r27478, MPFR_RNDN);
        mpfr_div(r27480, r27467, r27479, MPFR_RNDN);
        mpfr_add(r27481, r27466, r27480, MPFR_RNDN);
        return mpfr_get_d(r27481, MPFR_RNDN);
}