ok , i understand you because the divulgation of this code is very recent.

I know that the ProRealtime code i give you has been validate by Eric Lefort (one of the the authors)

Maby the problem is her (traduction):

"C'est bien la régression linéaire du cours pondéré qui est prise en compte dans la cassure des bandes, et non pas le cours pondéré lui-même. "

"It is good the linear regression of the balanced course(price) which is taken into account in the break of bands(strips), and not the balanced course(price) itself. "

if t-you speak french you have a lot of informations in the web site www/.pro-at.com

you

HERE i find the code by the autor (Reference version for free distribution):

- Code: Select all

express MOGALEFBands

// Version de référence pour diffusion gratuite

vars

input $N(2,10,3),$ET(5,15,7);

series MogH,MogB,MogM,etyp;

series xx,yy,zz,e,mm;

numeric i,SumXY,SumX2,SumY,SumX,a,b;

series X,Y,Z,MogRegLin,CoursP;

calculation

// Calcul du cours pondéré Mogalef

CoursP = ((h+l+o+c+c)/5); // Fin du calcul

// on calcule la régression linéaire----------------------------------------

for i = 0 to $N-1

begin

X = i;

Y = CoursP;

SumX = SumX + X;

SumX2 = SumX2 + Power(X,2);

SumXY = SumXY + X*Y;

SumY = SumY + Y;

end

b = (SumXY - SumX*SumY/$N)/(SumX2 - (1/$N)*Power(SumX,2));

a = (SumY - b*SumX)/$N;

Z = a + b*X[0];

SumX = 0;

SumX2 = 0;

SumXY = 0;

SumY = 0;

if Z = void then // Si rég lin pas définie

MogRegLin = Close;

else

MogRegLin = Z; // Fin régression linéaire---------------------------------

// Calcul des bandes Mogalef------------------------------------------------

// Reprise des niveaux Mogalef précédents.

StdDev(MogRegLin,etyp,$ET); //calcul écart type de longueur ET

xx=MogH[1];

yy=MogB[1];

e=etyp[1];

zz=Z[1];

mm=MogM[1];

// Pas de décalage si la RegLine est à l'intérieur des anciennes bandes

If ((MogRegLin < xx) and (MogRegLin >yy)) then

begin

etyp=e;

MogH=xx;

MogB=yy;

MogM=mm;

end

else //Si décalage tracé des nouvelles bandes

begin

MogH= (MogRegLin + (etyp*2));

MogB= (MogRegLin - (etyp*2));

MogM= MogRegLin;

end // Fin calcul bandes Mogalef---------------------------------------

interpretation

begin

end

// Affichage

plot (MogH,Yellow,2);

plot (MogB, cyan,2);

plot (MogM,blue,1);

plotband (MogH,"Yellow",2,MogM,"blue",1,"lightgreen");

plotband (MogM,"Blue",1,MogB,"cyan",2,"lightred");