Re: Shark 32 exploration

[Brookemail@xxxxxxx]

In a message dated 10/13/98 5:15:52 AM Pacific Daylight Time,
basnat@xxxxxxxxxxxxx writes:

> Al,
>  do you do an exploration to uncover shark 32 patterns ?

Tony:

Try this for the Filter in an Exploration:

Symmetry:=.28;
     Apex:=(H+L)/2;
     WB:=Ref(H,-2)-Ref(L,-2);

     Shark:=If((H<Ref(H,-1) AND L>Ref(L,-1) AND Ref(H,-1)<Ref(H,-2) AND
Ref(L,-1)>Ref(L,-2))=1,
     If(apex <= (Ref(H,-2)-(WB*Symmetry)) AND Apex >=
(Ref(L,-2)+(WB*Symmetry)) ,1,0),0);

     Buyok:=Cross(C,ValueWhen(1,Shark=1,Ref(H,-2)));

     Chk:=Cum(Buyok)-ValueWhen(1,Shark=1,Cum(Buyok));

     ValidChk:=Alert(Shark=1,25); 

Buy:= Buyok=1 AND Ref(Chk,-1)=0 AND ValidChk=1;

Buy OR Ref(Buy,-1) OR Ref(Buy,-2) OR Ref(Buy,-3) OR Ref(Buy,-4)
OR Ref(Buy,-5);


Brooke