#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 r25088 = NdChar;
        float r25089 = 1;
        float r25090 = Ec;
        float r25091 = Vef;
        float r25092 = r25090 - r25091;
        float r25093 = EDonor;
        float r25094 = r25092 - r25093;
        float r25095 = mu;
        float r25096 = r25094 - r25095;
        float r25097 = -r25096;
        float r25098 = KbT;
        float r25099 = r25097 / r25098;
        float r25100 = exp(r25099);
        float r25101 = r25089 + r25100;
        float r25102 = r25088 / r25101;
        float r25103 = NaChar;
        float r25104 = Ev;
        float r25105 = r25104 + r25091;
        float r25106 = EAccept;
        float r25107 = r25105 + r25106;
        float r25108 = -r25095;
        float r25109 = r25107 + r25108;
        float r25110 = r25109 / r25098;
        float r25111 = exp(r25110);
        float r25112 = r25089 + r25111;
        float r25113 = r25103 / r25112;
        float r25114 = r25102 + r25113;
        return r25114;
}

double f_id(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        double r25115 = NdChar;
        double r25116 = 1;
        double r25117 = Ec;
        double r25118 = Vef;
        double r25119 = r25117 - r25118;
        double r25120 = EDonor;
        double r25121 = r25119 - r25120;
        double r25122 = mu;
        double r25123 = r25121 - r25122;
        double r25124 = -r25123;
        double r25125 = KbT;
        double r25126 = r25124 / r25125;
        double r25127 = exp(r25126);
        double r25128 = r25116 + r25127;
        double r25129 = r25115 / r25128;
        double r25130 = NaChar;
        double r25131 = Ev;
        double r25132 = r25131 + r25118;
        double r25133 = EAccept;
        double r25134 = r25132 + r25133;
        double r25135 = -r25122;
        double r25136 = r25134 + r25135;
        double r25137 = r25136 / r25125;
        double r25138 = exp(r25137);
        double r25139 = r25116 + r25138;
        double r25140 = r25130 / r25139;
        double r25141 = r25129 + r25140;
        return r25141;
}


double f_of(float NdChar, float Ec, float Vef, float EDonor, float mu, float KbT, float NaChar, float Ev, float EAccept) {
        float r25142 = NdChar;
        float r25143 = 1;
        float r25144 = Ec;
        float r25145 = Vef;
        float r25146 = r25144 - r25145;
        float r25147 = EDonor;
        float r25148 = r25146 - r25147;
        float r25149 = mu;
        float r25150 = r25148 - r25149;
        float r25151 = -r25150;
        float r25152 = KbT;
        float r25153 = r25151 / r25152;
        float r25154 = exp(r25153);
        float r25155 = r25143 + r25154;
        float r25156 = r25142 / r25155;
        float r25157 = NaChar;
        float r25158 = Ev;
        float r25159 = r25158 + r25145;
        float r25160 = EAccept;
        float r25161 = r25159 + r25160;
        float r25162 = -r25149;
        float r25163 = r25161 + r25162;
        float r25164 = r25163 / r25152;
        float r25165 = exp(r25164);
        float r25166 = r25143 + r25165;
        float r25167 = r25157 / r25166;
        float r25168 = r25156 + r25167;
        return r25168;
}

double f_od(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        double r25169 = NdChar;
        double r25170 = 1;
        double r25171 = Ec;
        double r25172 = Vef;
        double r25173 = r25171 - r25172;
        double r25174 = EDonor;
        double r25175 = r25173 - r25174;
        double r25176 = mu;
        double r25177 = r25175 - r25176;
        double r25178 = -r25177;
        double r25179 = KbT;
        double r25180 = r25178 / r25179;
        double r25181 = exp(r25180);
        double r25182 = r25170 + r25181;
        double r25183 = r25169 / r25182;
        double r25184 = NaChar;
        double r25185 = Ev;
        double r25186 = r25185 + r25172;
        double r25187 = EAccept;
        double r25188 = r25186 + r25187;
        double r25189 = -r25176;
        double r25190 = r25188 + r25189;
        double r25191 = r25190 / r25179;
        double r25192 = exp(r25191);
        double r25193 = r25170 + r25192;
        double r25194 = r25184 / r25193;
        double r25195 = r25183 + r25194;
        return r25195;
}

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 r25196, r25197, r25198, r25199, r25200, r25201, r25202, r25203, r25204, r25205, r25206, r25207, r25208, r25209, r25210, r25211, r25212, r25213, r25214, r25215, r25216, r25217, r25218, r25219, r25220, r25221, r25222;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r25196);
        mpfr_init_set_str(r25197, "1", 10, MPFR_RNDN);
        mpfr_init(r25198);
        mpfr_init(r25199);
        mpfr_init(r25200);
        mpfr_init(r25201);
        mpfr_init(r25202);
        mpfr_init(r25203);
        mpfr_init(r25204);
        mpfr_init(r25205);
        mpfr_init(r25206);
        mpfr_init(r25207);
        mpfr_init(r25208);
        mpfr_init(r25209);
        mpfr_init(r25210);
        mpfr_init(r25211);
        mpfr_init(r25212);
        mpfr_init(r25213);
        mpfr_init(r25214);
        mpfr_init(r25215);
        mpfr_init(r25216);
        mpfr_init(r25217);
        mpfr_init(r25218);
        mpfr_init(r25219);
        mpfr_init(r25220);
        mpfr_init(r25221);
        mpfr_init(r25222);
}

double f_im(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r25196, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r25198, Ec, MPFR_RNDN);
        mpfr_set_d(r25199, Vef, MPFR_RNDN);
        mpfr_sub(r25200, r25198, r25199, MPFR_RNDN);
        mpfr_set_d(r25201, EDonor, MPFR_RNDN);
        mpfr_sub(r25202, r25200, r25201, MPFR_RNDN);
        mpfr_set_d(r25203, mu, MPFR_RNDN);
        mpfr_sub(r25204, r25202, r25203, MPFR_RNDN);
        mpfr_neg(r25205, r25204, MPFR_RNDN);
        mpfr_set_d(r25206, KbT, MPFR_RNDN);
        mpfr_div(r25207, r25205, r25206, MPFR_RNDN);
        mpfr_exp(r25208, r25207, MPFR_RNDN);
        mpfr_add(r25209, r25197, r25208, MPFR_RNDN);
        mpfr_div(r25210, r25196, r25209, MPFR_RNDN);
        mpfr_set_d(r25211, NaChar, MPFR_RNDN);
        mpfr_set_d(r25212, Ev, MPFR_RNDN);
        mpfr_add(r25213, r25212, r25199, MPFR_RNDN);
        mpfr_set_d(r25214, EAccept, MPFR_RNDN);
        mpfr_add(r25215, r25213, r25214, MPFR_RNDN);
        mpfr_neg(r25216, r25203, MPFR_RNDN);
        mpfr_add(r25217, r25215, r25216, MPFR_RNDN);
        mpfr_div(r25218, r25217, r25206, MPFR_RNDN);
        mpfr_exp(r25219, r25218, MPFR_RNDN);
        mpfr_add(r25220, r25197, r25219, MPFR_RNDN);
        mpfr_div(r25221, r25211, r25220, MPFR_RNDN);
        mpfr_add(r25222, r25210, r25221, MPFR_RNDN);
        return mpfr_get_d(r25222, MPFR_RNDN);
}

static mpfr_t r25223, r25224, r25225, r25226, r25227, r25228, r25229, r25230, r25231, r25232, r25233, r25234, r25235, r25236, r25237, r25238, r25239, r25240, r25241, r25242, r25243, r25244, r25245, r25246, r25247, r25248, r25249;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r25223);
        mpfr_init_set_str(r25224, "1", 10, MPFR_RNDN);
        mpfr_init(r25225);
        mpfr_init(r25226);
        mpfr_init(r25227);
        mpfr_init(r25228);
        mpfr_init(r25229);
        mpfr_init(r25230);
        mpfr_init(r25231);
        mpfr_init(r25232);
        mpfr_init(r25233);
        mpfr_init(r25234);
        mpfr_init(r25235);
        mpfr_init(r25236);
        mpfr_init(r25237);
        mpfr_init(r25238);
        mpfr_init(r25239);
        mpfr_init(r25240);
        mpfr_init(r25241);
        mpfr_init(r25242);
        mpfr_init(r25243);
        mpfr_init(r25244);
        mpfr_init(r25245);
        mpfr_init(r25246);
        mpfr_init(r25247);
        mpfr_init(r25248);
        mpfr_init(r25249);
}

double f_fm(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r25223, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r25225, Ec, MPFR_RNDN);
        mpfr_set_d(r25226, Vef, MPFR_RNDN);
        mpfr_sub(r25227, r25225, r25226, MPFR_RNDN);
        mpfr_set_d(r25228, EDonor, MPFR_RNDN);
        mpfr_sub(r25229, r25227, r25228, MPFR_RNDN);
        mpfr_set_d(r25230, mu, MPFR_RNDN);
        mpfr_sub(r25231, r25229, r25230, MPFR_RNDN);
        mpfr_neg(r25232, r25231, MPFR_RNDN);
        mpfr_set_d(r25233, KbT, MPFR_RNDN);
        mpfr_div(r25234, r25232, r25233, MPFR_RNDN);
        mpfr_exp(r25235, r25234, MPFR_RNDN);
        mpfr_add(r25236, r25224, r25235, MPFR_RNDN);
        mpfr_div(r25237, r25223, r25236, MPFR_RNDN);
        mpfr_set_d(r25238, NaChar, MPFR_RNDN);
        mpfr_set_d(r25239, Ev, MPFR_RNDN);
        mpfr_add(r25240, r25239, r25226, MPFR_RNDN);
        mpfr_set_d(r25241, EAccept, MPFR_RNDN);
        mpfr_add(r25242, r25240, r25241, MPFR_RNDN);
        mpfr_neg(r25243, r25230, MPFR_RNDN);
        mpfr_add(r25244, r25242, r25243, MPFR_RNDN);
        mpfr_div(r25245, r25244, r25233, MPFR_RNDN);
        mpfr_exp(r25246, r25245, MPFR_RNDN);
        mpfr_add(r25247, r25224, r25246, MPFR_RNDN);
        mpfr_div(r25248, r25238, r25247, MPFR_RNDN);
        mpfr_add(r25249, r25237, r25248, MPFR_RNDN);
        return mpfr_get_d(r25249, MPFR_RNDN);
}

static mpfr_t r25250, r25251, r25252, r25253, r25254, r25255, r25256, r25257, r25258, r25259, r25260, r25261, r25262, r25263, r25264, r25265, r25266, r25267, r25268, r25269, r25270, r25271, r25272, r25273, r25274, r25275, r25276;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r25250);
        mpfr_init_set_str(r25251, "1", 10, MPFR_RNDN);
        mpfr_init(r25252);
        mpfr_init(r25253);
        mpfr_init(r25254);
        mpfr_init(r25255);
        mpfr_init(r25256);
        mpfr_init(r25257);
        mpfr_init(r25258);
        mpfr_init(r25259);
        mpfr_init(r25260);
        mpfr_init(r25261);
        mpfr_init(r25262);
        mpfr_init(r25263);
        mpfr_init(r25264);
        mpfr_init(r25265);
        mpfr_init(r25266);
        mpfr_init(r25267);
        mpfr_init(r25268);
        mpfr_init(r25269);
        mpfr_init(r25270);
        mpfr_init(r25271);
        mpfr_init(r25272);
        mpfr_init(r25273);
        mpfr_init(r25274);
        mpfr_init(r25275);
        mpfr_init(r25276);
}

double f_dm(double NdChar, double Ec, double Vef, double EDonor, double mu, double KbT, double NaChar, double Ev, double EAccept) {
        mpfr_set_d(r25250, NdChar, MPFR_RNDN);
        ;
        mpfr_set_d(r25252, Ec, MPFR_RNDN);
        mpfr_set_d(r25253, Vef, MPFR_RNDN);
        mpfr_sub(r25254, r25252, r25253, MPFR_RNDN);
        mpfr_set_d(r25255, EDonor, MPFR_RNDN);
        mpfr_sub(r25256, r25254, r25255, MPFR_RNDN);
        mpfr_set_d(r25257, mu, MPFR_RNDN);
        mpfr_sub(r25258, r25256, r25257, MPFR_RNDN);
        mpfr_neg(r25259, r25258, MPFR_RNDN);
        mpfr_set_d(r25260, KbT, MPFR_RNDN);
        mpfr_div(r25261, r25259, r25260, MPFR_RNDN);
        mpfr_exp(r25262, r25261, MPFR_RNDN);
        mpfr_add(r25263, r25251, r25262, MPFR_RNDN);
        mpfr_div(r25264, r25250, r25263, MPFR_RNDN);
        mpfr_set_d(r25265, NaChar, MPFR_RNDN);
        mpfr_set_d(r25266, Ev, MPFR_RNDN);
        mpfr_add(r25267, r25266, r25253, MPFR_RNDN);
        mpfr_set_d(r25268, EAccept, MPFR_RNDN);
        mpfr_add(r25269, r25267, r25268, MPFR_RNDN);
        mpfr_neg(r25270, r25257, MPFR_RNDN);
        mpfr_add(r25271, r25269, r25270, MPFR_RNDN);
        mpfr_div(r25272, r25271, r25260, MPFR_RNDN);
        mpfr_exp(r25273, r25272, MPFR_RNDN);
        mpfr_add(r25274, r25251, r25273, MPFR_RNDN);
        mpfr_div(r25275, r25265, r25274, MPFR_RNDN);
        mpfr_add(r25276, r25264, r25275, MPFR_RNDN);
        return mpfr_get_d(r25276, MPFR_RNDN);
}