Shark Short-selling chart

[Brookemail@xxxxxxx]

Here's a Metastock chart of AAPL showing the Shark sell signal. The chart I
sent a minute ago was missing the sell arrow. 

The lower window shows when the shark pattern appeared. The middle window
shows when the sell signal was given. 

Here again is a way to find candidates with Quotes Plus 2 (a terrific program,
I might add):

//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="volvol.lst";
//ProcessMS = "d:\meta\macdup\",VMS;

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

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;
sharklow:=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);
sharklow:=low(-2+i);
endif;

for j = 24 to 0 step -1 do

if i+j <=0 then
if close(i+j)<sharklow and 
close((i+j)-1)>sharklow and
sharklow>0 and 
shark =1 then
println symbol,",", "Close: ", close(0):6:2,", ",
 "Change: ", Close(0)-Close(-1):5:2,
", ", "Date: ", date(i+j),", ", 
"Sharklow: ", sharklow; //date of short signal
endif;
endif;
next j;

next i;

Attachment Converted: "c:\eudora\attach\SHARKS~11.gif"