Silicon Investor (SI) -- The First Internet Community

STOCKTALK

We've detected that you're using an ad content blocking browser plug-in or feature. Ads provide a critical source of revenue to the continued operation of Silicon Investor. We ask that you disable ad blocking while on Silicon Investor in the best interests of our community. If you are not using an ad blocker but are still receiving this message, make sure your browser's tracking protection is set to the 'standard' level.

Strategies & Market Trends : TA-Quotes Plus -- Ignore unavailable to you. Want to Upgrade?

To: Craig DeHaan who wrote (6667)	9/19/1998 6:27:00 PM
From: TechTrader42	Read Replies (1) \| Respond to of 11149

Craig: This may be a better version, 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)-(WBSymmetry)) AND // Apex >= (Ref(L,-2)+(WBSymmetry)) ,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)-(WBSymmetry)) and apex>=(low(i-2)+(WBSymmetry)) 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;