#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 r24444 = NdChar;
        float r24445 = 1;
        float r24446 = Ec;
        float r24447 = Vef;
        float r24448 = r24446 - r24447;
        float r24449 = EDonor;
        float r24450 = r24448 - r24449;
        float r24451 = mu;
        float r24452 = r24450 - r24451;
        float r24453 = -r24452;
        float r24454 = KbT;
        float r24455 = r24453 / r24454;
        float r24456 = exp(r24455);
        float r24457 = r24445 + r24456;
        float r24458 = r24444 / r24457;
        float r24459 = NaChar;
        float r24460 = Ev;
        float r24461 = r24460 + r24447;
        float r24462 = EAccept;
        float r24463 = r24461 + r24462;
        float r24464 = -r24451;
        float r24465 = r24463 + r24464;
        float r24466 = r24465 / r24454;
        float r24467 = exp(r24466);
        float r24468 = r24445 + r24467;
        float r24469 = r24459 / r24468;
        float r24470 = r24458 + r24469;
        return r24470;
}

double f_id(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        double r24471 = NdChar;
        double r24472 = 1;
        double r24473 = Ec;
        double r24474 = Vef;
        double r24475 = r24473 - r24474;
        double r24476 = EDonor;
        double r24477 = r24475 - r24476;
        double r24478 = mu;
        double r24479 = r24477 - r24478;
        double r24480 = -r24479;
        double r24481 = KbT;
        double r24482 = r24480 / r24481;
        double r24483 = exp(r24482);
        double r24484 = r24472 + r24483;
        double r24485 = r24471 / r24484;
        double r24486 = NaChar;
        double r24487 = Ev;
        double r24488 = r24487 + r24474;
        double r24489 = EAccept;
        double r24490 = r24488 + r24489;
        double r24491 = -r24478;
        double r24492 = r24490 + r24491;
        double r24493 = r24492 / r24481;
        double r24494 = exp(r24493);
        double r24495 = r24472 + r24494;
        double r24496 = r24486 / r24495;
        double r24497 = r24485 + r24496;
        return r24497;
}


double f_of(float NdChar, float Ec, float Vef, float EDonor, float mu, float KbT, float NaChar, float Ev, float EAccept) {
        float r24498 = NdChar;
        float r24499 = 1;
        float r24500 = exp(1.0);
        float r24501 = Ec;
        float r24502 = Vef;
        float r24503 = r24501 - r24502;
        float r24504 = EDonor;
        float r24505 = r24503 - r24504;
        float r24506 = mu;
        float r24507 = r24505 - r24506;
        float r24508 = -r24507;
        float r24509 = KbT;
        float r24510 = r24508 / r24509;
        float r24511 = pow(r24500, r24510);
        float r24512 = sqrt(r24511);
        float r24513 = r24512 * r24512;
        float r24514 = r24499 + r24513;
        float r24515 = r24498 / r24514;
        float r24516 = NaChar;
        float r24517 = Ev;
        float r24518 = r24517 + r24502;
        float r24519 = EAccept;
        float r24520 = r24518 + r24519;
        float r24521 = -r24506;
        float r24522 = r24520 + r24521;
        float r24523 = r24522 / r24509;
        float r24524 = exp(r24523);
        float r24525 = r24499 + r24524;
        float r24526 = r24516 / r24525;
        float r24527 = r24515 + r24526;
        return r24527;
}

double f_od(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        double r24528 = NdChar;
        double r24529 = 1;
        double r24530 = exp(1.0);
        double r24531 = Ec;
        double r24532 = Vef;
        double r24533 = r24531 - r24532;
        double r24534 = EDonor;
        double r24535 = r24533 - r24534;
        double r24536 = mu;
        double r24537 = r24535 - r24536;
        double r24538 = -r24537;
        double r24539 = KbT;
        double r24540 = r24538 / r24539;
        double r24541 = pow(r24530, r24540);
        double r24542 = sqrt(r24541);
        double r24543 = r24542 * r24542;
        double r24544 = r24529 + r24543;
        double r24545 = r24528 / r24544;
        double r24546 = NaChar;
        double r24547 = Ev;
        double r24548 = r24547 + r24532;
        double r24549 = EAccept;
        double r24550 = r24548 + r24549;
        double r24551 = -r24536;
        double r24552 = r24550 + r24551;
        double r24553 = r24552 / r24539;
        double r24554 = exp(r24553);
        double r24555 = r24529 + r24554;
        double r24556 = r24546 / r24555;
        double r24557 = r24545 + r24556;
        return r24557;
}

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 r24558, r24559, r24560, r24561, r24562, r24563, r24564, r24565, r24566, r24567, r24568, r24569, r24570, r24571, r24572, r24573, r24574, r24575, r24576, r24577, r24578, r24579, r24580, r24581, r24582, r24583, r24584;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(656);
        mpfr_init(r24558);
        mpfr_init_set_str(r24559, "1", 10, MPFR_RNDN);
        mpfr_init(r24560);
        mpfr_init(r24561);
        mpfr_init(r24562);
        mpfr_init(r24563);
        mpfr_init(r24564);
        mpfr_init(r24565);
        mpfr_init(r24566);
        mpfr_init(r24567);
        mpfr_init(r24568);
        mpfr_init(r24569);
        mpfr_init(r24570);
        mpfr_init(r24571);
        mpfr_init(r24572);
        mpfr_init(r24573);
        mpfr_init(r24574);
        mpfr_init(r24575);
        mpfr_init(r24576);
        mpfr_init(r24577);
        mpfr_init(r24578);
        mpfr_init(r24579);
        mpfr_init(r24580);
        mpfr_init(r24581);
        mpfr_init(r24582);
        mpfr_init(r24583);
        mpfr_init(r24584);
}

double f_im(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r24558, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r24560, Ec, MPFR_RNDN);
        mpfr_set_d(r24561, Vef, MPFR_RNDN);
        mpfr_sub(r24562, r24560, r24561, MPFR_RNDN);
        mpfr_set_d(r24563, EDonor, MPFR_RNDN);
        mpfr_sub(r24564, r24562, r24563, MPFR_RNDN);
        mpfr_set_d(r24565, mu, MPFR_RNDN);
        mpfr_sub(r24566, r24564, r24565, MPFR_RNDN);
        mpfr_neg(r24567, r24566, MPFR_RNDN);
        mpfr_set_d(r24568, KbT, MPFR_RNDN);
        mpfr_div(r24569, r24567, r24568, MPFR_RNDN);
        mpfr_exp(r24570, r24569, MPFR_RNDN);
        mpfr_add(r24571, r24559, r24570, MPFR_RNDN);
        mpfr_div(r24572, r24558, r24571, MPFR_RNDN);
        mpfr_set_d(r24573, NaChar, MPFR_RNDN);
        mpfr_set_d(r24574, Ev, MPFR_RNDN);
        mpfr_add(r24575, r24574, r24561, MPFR_RNDN);
        mpfr_set_d(r24576, EAccept, MPFR_RNDN);
        mpfr_add(r24577, r24575, r24576, MPFR_RNDN);
        mpfr_neg(r24578, r24565, MPFR_RNDN);
        mpfr_add(r24579, r24577, r24578, MPFR_RNDN);
        mpfr_div(r24580, r24579, r24568, MPFR_RNDN);
        mpfr_exp(r24581, r24580, MPFR_RNDN);
        mpfr_add(r24582, r24559, r24581, MPFR_RNDN);
        mpfr_div(r24583, r24573, r24582, MPFR_RNDN);
        mpfr_add(r24584, r24572, r24583, MPFR_RNDN);
        return mpfr_get_d(r24584, MPFR_RNDN);
}

static mpfr_t r24585, r24586, r24587, r24588, r24589, r24590, r24591, r24592, r24593, r24594, r24595, r24596, r24597, r24598, r24599, r24600, r24601, r24602, r24603, r24604, r24605, r24606, r24607, r24608, r24609, r24610, r24611, r24612, r24613, r24614;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(656);
        mpfr_init(r24585);
        mpfr_init_set_str(r24586, "1", 10, MPFR_RNDN);
        mpfr_init(r24587);
        mpfr_init(r24588);
        mpfr_init(r24589);
        mpfr_init(r24590);
        mpfr_init(r24591);
        mpfr_init(r24592);
        mpfr_init(r24593);
        mpfr_init(r24594);
        mpfr_init(r24595);
        mpfr_init(r24596);
        mpfr_init(r24597);
        mpfr_init(r24598);
        mpfr_init(r24599);
        mpfr_init(r24600);
        mpfr_init(r24601);
        mpfr_init(r24602);
        mpfr_init(r24603);
        mpfr_init(r24604);
        mpfr_init(r24605);
        mpfr_init(r24606);
        mpfr_init(r24607);
        mpfr_init(r24608);
        mpfr_init(r24609);
        mpfr_init(r24610);
        mpfr_init(r24611);
        mpfr_init(r24612);
        mpfr_init(r24613);
        mpfr_init(r24614);
}

double f_fm(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r24585, NdChar, MPFR_RNDN);
        ;
        mpfr_set_si(r24587, 1, MPFR_RNDN), mpfr_const_exp(r24587, r24587, MPFR_RNDN);
        mpfr_set_d(r24588, Ec, MPFR_RNDN);
        mpfr_set_d(r24589, Vef, MPFR_RNDN);
        mpfr_sub(r24590, r24588, r24589, MPFR_RNDN);
        mpfr_set_d(r24591, EDonor, MPFR_RNDN);
        mpfr_sub(r24592, r24590, r24591, MPFR_RNDN);
        mpfr_set_d(r24593, mu, MPFR_RNDN);
        mpfr_sub(r24594, r24592, r24593, MPFR_RNDN);
        mpfr_neg(r24595, r24594, MPFR_RNDN);
        mpfr_set_d(r24596, KbT, MPFR_RNDN);
        mpfr_div(r24597, r24595, r24596, MPFR_RNDN);
        mpfr_pow(r24598, r24587, r24597, MPFR_RNDN);
        mpfr_sqrt(r24599, r24598, MPFR_RNDN);
        mpfr_mul(r24600, r24599, r24599, MPFR_RNDN);
        mpfr_add(r24601, r24586, r24600, MPFR_RNDN);
        mpfr_div(r24602, r24585, r24601, MPFR_RNDN);
        mpfr_set_d(r24603, NaChar, MPFR_RNDN);
        mpfr_set_d(r24604, Ev, MPFR_RNDN);
        mpfr_add(r24605, r24604, r24589, MPFR_RNDN);
        mpfr_set_d(r24606, EAccept, MPFR_RNDN);
        mpfr_add(r24607, r24605, r24606, MPFR_RNDN);
        mpfr_neg(r24608, r24593, MPFR_RNDN);
        mpfr_add(r24609, r24607, r24608, MPFR_RNDN);
        mpfr_div(r24610, r24609, r24596, MPFR_RNDN);
        mpfr_exp(r24611, r24610, MPFR_RNDN);
        mpfr_add(r24612, r24586, r24611, MPFR_RNDN);
        mpfr_div(r24613, r24603, r24612, MPFR_RNDN);
        mpfr_add(r24614, r24602, r24613, MPFR_RNDN);
        return mpfr_get_d(r24614, MPFR_RNDN);
}

static mpfr_t r24615, r24616, r24617, r24618, r24619, r24620, r24621, r24622, r24623, r24624, r24625, r24626, r24627, r24628, r24629, r24630, r24631, r24632, r24633, r24634, r24635, r24636, r24637, r24638, r24639, r24640, r24641, r24642, r24643, r24644;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(656);
        mpfr_init(r24615);
        mpfr_init_set_str(r24616, "1", 10, MPFR_RNDN);
        mpfr_init(r24617);
        mpfr_init(r24618);
        mpfr_init(r24619);
        mpfr_init(r24620);
        mpfr_init(r24621);
        mpfr_init(r24622);
        mpfr_init(r24623);
        mpfr_init(r24624);
        mpfr_init(r24625);
        mpfr_init(r24626);
        mpfr_init(r24627);
        mpfr_init(r24628);
        mpfr_init(r24629);
        mpfr_init(r24630);
        mpfr_init(r24631);
        mpfr_init(r24632);
        mpfr_init(r24633);
        mpfr_init(r24634);
        mpfr_init(r24635);
        mpfr_init(r24636);
        mpfr_init(r24637);
        mpfr_init(r24638);
        mpfr_init(r24639);
        mpfr_init(r24640);
        mpfr_init(r24641);
        mpfr_init(r24642);
        mpfr_init(r24643);
        mpfr_init(r24644);
}

double f_dm(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r24615, NdChar, MPFR_RNDN);
        ;
        mpfr_set_si(r24617, 1, MPFR_RNDN), mpfr_const_exp(r24617, r24617, MPFR_RNDN);
        mpfr_set_d(r24618, Ec, MPFR_RNDN);
        mpfr_set_d(r24619, Vef, MPFR_RNDN);
        mpfr_sub(r24620, r24618, r24619, MPFR_RNDN);
        mpfr_set_d(r24621, EDonor, MPFR_RNDN);
        mpfr_sub(r24622, r24620, r24621, MPFR_RNDN);
        mpfr_set_d(r24623, mu, MPFR_RNDN);
        mpfr_sub(r24624, r24622, r24623, MPFR_RNDN);
        mpfr_neg(r24625, r24624, MPFR_RNDN);
        mpfr_set_d(r24626, KbT, MPFR_RNDN);
        mpfr_div(r24627, r24625, r24626, MPFR_RNDN);
        mpfr_pow(r24628, r24617, r24627, MPFR_RNDN);
        mpfr_sqrt(r24629, r24628, MPFR_RNDN);
        mpfr_mul(r24630, r24629, r24629, MPFR_RNDN);
        mpfr_add(r24631, r24616, r24630, MPFR_RNDN);
        mpfr_div(r24632, r24615, r24631, MPFR_RNDN);
        mpfr_set_d(r24633, NaChar, MPFR_RNDN);
        mpfr_set_d(r24634, Ev, MPFR_RNDN);
        mpfr_add(r24635, r24634, r24619, MPFR_RNDN);
        mpfr_set_d(r24636, EAccept, MPFR_RNDN);
        mpfr_add(r24637, r24635, r24636, MPFR_RNDN);
        mpfr_neg(r24638, r24623, MPFR_RNDN);
        mpfr_add(r24639, r24637, r24638, MPFR_RNDN);
        mpfr_div(r24640, r24639, r24626, MPFR_RNDN);
        mpfr_exp(r24641, r24640, MPFR_RNDN);
        mpfr_add(r24642, r24616, r24641, MPFR_RNDN);
        mpfr_div(r24643, r24633, r24642, MPFR_RNDN);
        mpfr_add(r24644, r24632, r24643, MPFR_RNDN);
        return mpfr_get_d(r24644, MPFR_RNDN);
}