[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

List of shark candidates, including WLA



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;