PureBytes Links
Trading Reference Links
|
Here's the output from the Shark scan run on a list of stocks with average
volume over 250,000, among other things. There are some good candidates in the
list, such as WLA. The dates are when the stocks crossed up through the high
point in the shark pattern.
ADBE ,Close: 31.88, Change: 1.12, Date: 09/15/1998, Sharkhigh: 28.5625
APOL ,Close: 29.75, Change: 0.69, Date: 08/25/1998, Sharkhigh: 40.75
ASND ,Close: 46.56, Change: -1.00, Date: 09/17/1998, Sharkhigh: 46.5625
AZA ,Close: 38.88, Change: 0.69, Date: 09/08/1998, Sharkhigh: 37.9375
AZA ,Close: 38.88, Change: 0.69, Date: 09/01/1998, Sharkhigh: 37.9375
AZA ,Close: 38.88, Change: 0.69, Date: 08/19/1998, Sharkhigh: 37.9375
CENT ,Close: 19.88, Change: 1.25, Date: 09/11/1998, Sharkhigh: 16.5
CPWR ,Close: 58.31, Change: -0.44, Date: 09/08/1998, Sharkhigh: 53
CUBE ,Close: 15.75, Change: -0.06, Date: 09/16/1998, Sharkhigh: 15.75
DELL ,Close: 57.88, Change: -0.25, Date: 08/25/1998, Sharkhigh: 61.4690018
DIGI ,Close: 28.81, Change: 0.00, Date: 09/08/1998, Sharkhigh: 27
GTW ,Close: 51.75, Change: -0.56, Date: 09/11/1998, Sharkhigh: 48.8125
GTW ,Close: 51.75, Change: -0.56, Date: 09/08/1998, Sharkhigh: 48.8125
INTU ,Close: 39.00, Change: -1.62, Date: 09/08/1998, Sharkhigh: 44.125
JBHT ,Close: 16.06, Change: -0.44, Date: 09/08/1998, Sharkhigh: 19.5
JBL ,Close: 34.25, Change: -0.12, Date: 09/15/1998, Sharkhigh: 29.5625
JBL ,Close: 34.25, Change: -0.12, Date: 09/08/1998, Sharkhigh: 29.5625
KR ,Close: 46.88, Change: -0.38, Date: 09/14/1998, Sharkhigh: 51.25
MICCF ,Close: 27.88, Change: -1.12, Date: 08/19/1998, Sharkhigh: 41.5
MIL ,Close: 19.25, Change: -0.38, Date: 09/08/1998, Sharkhigh: 22.9375
MIR ,Close: 17.88, Change: 0.62, Date: 09/11/1998, Sharkhigh: 17.125
MUEI ,Close: 14.31, Change: 0.56, Date: 09/11/1998, Sharkhigh: 14.625
MUEI ,Close: 14.31, Change: 0.56, Date: 09/08/1998, Sharkhigh: 14.625
NTLI ,Close: 42.91, Change: 0.78, Date: 09/18/1998, Sharkhigh: 42.5
SEPR ,Close: 57.50, Change: 3.12, Date: 08/25/1998, Sharkhigh: 58.625
SEPR ,Close: 57.50, Change: 3.12, Date: 09/15/1998, Sharkhigh: 53.5
SEPR ,Close: 57.50, Change: 3.12, Date: 09/08/1998, Sharkhigh: 53.5
SKYT ,Close: 20.31, Change: 1.06, Date: 09/16/1998, Sharkhigh: 18.875
TECD ,Close: 46.50, Change: -0.38, Date: 09/11/1998, Sharkhigh: 45.4375
VRTS ,Close: 51.81, Change: -1.19, Date: 09/15/1998, Sharkhigh: 50.375
WLA ,Close: 73.00, Change: 0.56, Date: 09/18/1998, Sharkhigh: 72.5
WLA ,Close: 73.00, Change: 0.56, Date: 09/15/1998, Sharkhigh: 72.5
XIRC ,Close: 24.88, Change: 2.12, Date: 09/10/1998, Sharkhigh: 21.7343998
Also, it's possible to eliminate a lot of the repeat hits in the Shark-32 scan
by
making it look only for crossovers with "sharkhigh." In other words, it
no
longer looks for each day the stock closes above the high point in the
shark pattern, but only days when it crosses up though that point. I
added the second line below to the conditions (the < line):
if close(i+j)>sharkhigh and
close((i+j)-1)<sharkhigh
It's like adding a line in Metastock for crossovers:
close>datarray and
close<ref(data array,-1).
Now the conditions are:
if i+j <=0 then
if close(i+j)>sharkhigh and
close((i+j)-1)<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 of buy signal
So the whole scan is now:
//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, 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;
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
close((i+j)-1)<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 of buy signal
endif;
endif;
next j;
next i;
|