Line breaks may have been introduced in the cutting and pasting. Try this version. I've added more line breaks to try to avoid new, nasty ones cropping up when you cut and paste. Oh, and don't forget to rename the input file or slash it out.
Remember, this scan is slow, unfortunately. Maybe it can be streamlined later.
//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 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
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; |
