Revised version of QP2 Shark-32 scan

[Brookemail@xxxxxxx]

This may be a better version of the QP2 Shark-32 scan, because it gives all
the dates when the close is above "sharkhigh," or the highpoint in the shark 
     pattern. My last version just looked for the most recent close being 
     above that level. This scan gives more hits, too, because it gives 
     stocks that gave a sharkbuy signal even if the close has since fallen 
     below the highpoint in the pattern. Unfortunately, this new scan is 
     S-L-O-W. Maybe someone can suggest improvements:

     //Shark-32, by Walter T. Downs, translated for QP2 by Brooke

     //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);

     output = "shark.lst";
     input="commplus.lst";
     //ProcessMS = "d:\meta\macdup\",VMS;

     integer symmetry, i, j;
     float shark, apex, WB, fin, sharkhigh;

     for i = -24 to 0 step 1 do

     symmetry:=.28;
     apex:=(high(i)+low(i))/2;
     WB:=high(i-2)-low(i-2);

     if apex<=(high(i-2)-(WB*Symmetry)) and apex>=(low(i-2)+(WB*Symmetry))
then
     fin:=1;
     else fin:=0;
     endif;

     sharkhigh:=0;
     if high(i)<high(i-1) and
     low(i)>low(i-1) and
     high(i-1)<high(i-2) and
     low(i-1)>low(i-2) then
     shark:=fin;
     else shark:=0;
     endif;

     if shark=1 then 
     sharkhigh:=high(-2+i);
     endif;

     for j = 24 to 0 step -1 do

     if i+j <=0 then
     if close(i+j)>sharkhigh and 
     sharkhigh>0 and 
     shark =1 then
     println symbol,",", "Close: ", close(0):6:2,", ", "Change: ",
Close(0)-Close(-1):5:2,
     ", ", "Date: ", date(i+j),", ", 
     "Sharkhigh: ", sharkhigh; //date is date when shark equals 1, not date of
signal
     endif;
     endif;
     next j;

     next i;


Brooke