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: TechTrader42 who wrote (6709)	9/20/1998 11:42:00 PM
From: TechTrader42	Respond to of 11149

And here is yet another fast version, which eliminates the convoluted close(i+j), and puts the j loop within the i loop. This was suggested by someone in e-mail, and it's a much better way of doing it, I think: //Shark-32, by Walter T. Downs, //translated for QP2 output = "sharka.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:=range(i-2); if apex<=(high(i-2)-(WBSymmetry)) and apex>=(low(i-2)+(WBSymmetry)) then fin:=1; 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; if shark=1 then sharkhigh:=high(-2+i); endif; if shark=1 then if sharkhigh>0 then for j = i to 0 step 1 do if close(j)>sharkhigh then if close(j-1)<sharkhigh then println symbol,",", "Close: ", close(0):6:2,", ", "Change: ", Close(0)-Close(-1):5:2, ", ", "Date: ", date(j), ", ", "Sharkhigh: ", sharkhigh; //date of buy signal j:=0; endif; endif; next j; endif; endif; else shark:=0; endif; else fin:=0; endif; next i;

To: TechTrader42 who wrote (6709)	9/20/1998 11:54:00 PM
From: TechTrader42	Respond to of 11149

And here's the new short-sell version with the new loop. The scans have picked up speed. //Shark-32, Short-Sell Version, by Walter T. Downs, //translated for QP2 output = "sharkshort.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:=range(i-2); if apex<=(high(i-2)-(WBSymmetry)) and apex>=(low(i-2)+(WBSymmetry)) then fin:=1; 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; if shark=1 then sharkhigh:=high(-2+i); sharklow:=low(-2+i); endif; if shark=1 then if sharklow>0 then for j = i to 0 step 1 do if close(j)<sharklow then if close(j-1)>sharklow then println symbol,",", "Close: ", close(0):6:2,", ", "Change: ", Close(0)-Close(-1):5:2, ", ", "Date: ", date(j),", ", "Sharklow: ", sharklow; //date of buy signal j:=0; endif; endif; next j; endif; endif; else shark:=0; endif; else fin:=0; endif; next i;