****************_Vaughn****************
prd1:=250; {HHV periods}
prd2:=120; {reset periods}
level:=50; {percent}

hh:=HHV(H,prd1);
hh1:=H=hh;
hh2:=hh1=0 AND Alert(hh1=1,2);
hh3:=hh1 AND Ref(BarsSince(hh1),-1)>prd2;

ll:=LowestSince(1,hh3,Min(L,Ref(L,-1)));

midp:=ll+((hh-ll)*(level/100));

{plot}
hh;ll;midp;
---------------------------------------------
****************_Vaughn2****************
prd1:=LastValue(FmlVar("_vaughn","prd1"));
prd2:=LastValue(FmlVar("_vaughn","prd2"));

hh:=HHV(H,prd1);
hh1:=H=hh;
hh2:=hh1=0 AND Alert(hh1=1,2);
hh3:=hh1 AND Ref(BarsSince(hh1),-1)>prd2;

ll:=LowestSince(1,hh3,Min(L,Ref(L,-1)));


{plot}
{3;2;1;0;}
hh1;
2*hh2;
3*hh3;
****************_Vaughn3****************
prd1:=LastValue(FmlVar("_vaughn","prd1"));
prd2:=LastValue(FmlVar("_vaughn","prd2"));
level:=LastValue(FmlVar("_vaughn","level"));

hh:=HHV(H,prd1);
hh1:=H=hh;
hh2:=hh1=0 AND Alert(hh1=1,2);
hh3:=hh1 AND Ref(BarsSince(hh1),-1)>prd2;

ll:=LowestSince(1,hh3,Min(L,Ref(L,-1)));

midp:=ll+((hh-ll)*(level/100));


z1:=L>ll AND Alert(L=ll,2);

{Latching codes}
n:=C>midp;

A:=z1;
B:=z1=0 AND n=1 AND Alert(n=0,2);
X:=Cum(B);
I:=Cum(A+B>-1)=1;
F:=BarsSince(I+B)<BarsSince(I+A);
tr:=X-ValueWhen(1,I OR F=0,X)=1;
trA:=tr AND Alert(tr=0,2);

A:=hh3;
B:=trA;
X:=Cum(B);
I:=Cum(A+B>-1)=1;
F:=BarsSince(I+B)<BarsSince(I+A);
tr:=X-ValueWhen(1,I OR F=0,X)=1;
trN:=tr AND Alert(tr=0,2);

{plot}
{2;1;0;}
{trA;}
trN*2;