Distribuţia Binomială: Modelare Statistică, Optimizare Numerică, cu ...

Distribuţia Binomială: Modelare Statistică, Optimizare Numerică, cu Aplicaţii în Bioinformatică şi Biochimie
}elseif(c0==2){
if(X){
Xi = pow(this->a2,1/(n));
Xs = 1;
return;
}
if(n-X){
Xi = 0;
Xs = 1-pow(this->a2,1/(n));
return;
}
}elseif(c0==3){
if(X){
Xi = pow(this->a2,1/(n+1));
Xs = 1;
return;
}
if(n-X){
Xi = 0;
Xs = 1-pow(this->a2,1/(n+1));
return;
}
}
}
if(X==0) Xi = 0; else
Xi = BDist_InvCDF(this->a2,X+c1,n-X+c2);
if(X==n) Xs = 0; else
Xs = BDist_InvCDF(this->a21,X+c2,n-X+c1);
}
function BetaC00(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,0,0);
}
function BetaC10(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,1,0);
}
function BetaC01(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,0,1);
}
function BetaC11(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,1,1);
}
function BetaCJ0(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,0.5,0.5);
}
function BetaCJ1(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,
1-Beta_0,1-Beta_0);
}
function BetaCJ2(){
BetaC(this->Xi,this->Xs,this->X,this->n,0,
0.5+Beta_0,0.5+Beta_0);
}
function BetaCJA(){
ttX = sqrt((1-Beta_0)*(0.5+Beta_0));
BetaC(this->Xi,this->Xs,this->X,this->n,0,ttX,ttX);
}
41(157)