//+------------------------------------------------------------------+
//| TEST_Probability.mq4 |
//| Strator |
//| k-v-p@yandex.ru |
//+------------------------------------------------------------------+
#property copyright "Strator"
#property link "k-v-p@yandex.ru"
#include <probability.mqh>
void prn(string S, double D) { Print(S+" "+DoubleToStr(D,8)); }
int start()
{
double da, db, dc;
int ia, ib, ic;
//Binomial distribution
ia=50; ib=100; da=0.5;
double y=bdtr(ia,ib,da); //bdtr(50,100,0.5)=ÁÈÍÎÌÐÀÑÏ(50;100;0.5;1)=0.539794619
prn("Binomial distribution: bdtr("+ia+","+ib+","+da+")=",y);
//Beta distribution
da=3; db=7; dc=0.5;
y=btdtr(da,db,dc); //btdtr(3,7,0.5)=ÁÅÒÀÐÀÑÏ(0.5;3;7)=0.91015625
prn("Beta distribution: btdtr("+da+","+db+","+dc+")=",y);
//Chi-square distribution
da=10; db=5;
y=1-chdtr(da, db); //1-chdtr(10,5)=ÕÈ2ÐÀÑÏ(5;10)=0.89117802
prn("Chi-square distribution: chdtr("+da+","+db+")=",y);
//F distribution
ia=5; ib=10; da=0.5;
y=1-fdtr(ia, ib, da); //1-fdtr(5,10,0.5)=FÐÀÑÏ(0.5;5;10)=0.770024881
prn("F distribution: fdtr("+ia+","+ib+","+da+")=",y);
//Gamma distribution
da=3; db=2; dc=1;
y=gdtr(da, db, dc); //gdtr(3,2,1)=ÃÀÌÌÀÐÀÑÏ(3;2;1;1)=0.800851727
prn("Gamma distribution: gdtr("+da+","+db+","+dc+")=",y);
//Normal distribution
da=0.5;
y=ndtr(da); //ndtr(0.5)=ÍÎÐÌÑÒÐÀÑÏ(0.5)=0.691462461
prn("Normal distribution: ndtr("+da+")=",y);
//Poisson distribution
ia=100; da=90;
y=pdtr(ia, da); //pdtr(100,90)=ÏÓÀÑÑÎÍ(100;90;1)=0.865099836
prn("Poisson distribution: pdtr("+ia+","+da+")=",y);
//Student's t distribution
ia=100; da=0.5;
y=1-stdtr(ia, da); //1-stdtr(100,0.5)=ÑÒÜÞÄÐÀÑÏ(0.5;100;1)=0.309086783
prn("Student T distribution: stdtr("+ia+","+da+")=",y);
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: