Vestics Beleggers Netwerk

Deze code heb ik omgezet van C++ naar easy language,
hij geeft hetzelfde resultaat als de NORM VERD (x,mean,standard_dev, waar) functie in excel.

Input:Price(numericseries),Mean(Numericseries),Sd(Numericseries);
Vars: Pi(3.14159265358979323846),res(0),x2(0),oor2pi(0),xT(0);

if Sd<>0 then x2=(Price-Mean)/Sd;

if x2=0 then res=0.5 else
oor2pi=1/(SquareRoot(2 * Pi));

xT=1/(1.0+0.2316419*absvalue(x2));
xT=xT*oor2pi*expvalue(-0.5*x2*x2)
*(0.31938153+xT
*(-0.356563782+xT
*(1.781477937+xT
*(-1.821255978+xT*1.330274429))));


if x2>=0 then res=1.0-xT else res=xT;

NORMDIST=res;

Voor een ieder die hem bruikbaar vind.

Paul M