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 (6725)	9/21/1998 8:06:00 PM
From: TechTrader42	Respond to of 11149

Well, the Shark isn't quite finished yet. There was a typo in the last "long" version I sent. Substitute "MovAvg" for "Mov". Also, I've created a version that gives only today's hits, which I'll add to this note. I suppose the next project -- a much easier one -- could be QP2 scans for Walter Downs' Bull/Bear Fear system. Today's "longs" with Shark system: //Shark-32, by Walter T. Downs, with Trend //translated for QP2 by Brooke, 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 MovAvg(0,5,cl)>MovAvg(0,20,cl) then if shark=1 then if sharkhigh>0 then j:= 0; //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; endif; else shark:=0; endif; else fin:=0; endif; next i;

To: Craig DeHaan who wrote (6725)	9/21/1998 8:39:00 PM
From: TechTrader42	Read Replies (1) \| Respond to of 11149

Craig: Here's a bull/bear fear scan, based on Walter T. Downs' article "From Terms To Technical Tools" in the August 1998 issue of "Technical Analysis of Stocks and Commodities." The Metastock formulas can be found at: equis.com I like the bull and bear indicators a lot. In many cases, they give signals similar to Parabolic SAR's. This scan searches for new bull/bear fear signals: //Bull/Bear Fear, by Walter T. Downs //translated for QP2 by Brooke //based on article in August 1998 issue of TASC //n := 12 {Time periods}; //BullFear := (HHV(HIGH,n) - LLV(HIGH,n))/2 + LLV(HIGH,n); //CLOSE > BullFear //BearFear := (HHV(LOW,n) - LLV(LOW,n))/2 + LLV(LOW,n); //CLOSE < BearFear output = "bull.lst"; input="volvol.lst"; integer periods; float bullfear, bearfear; periods:=11; bullfear:=(max(0,-periods,hi)-min(0,-periods,lo))/2 + min(0,-periods,hi); bearfear:=(max(0,-periods,lo)-min(0,-periods,lo))/2 + min(0,-periods,lo); if close(0)>bullfear then if close(-1)<bullfear then println symbol,",", "Buy: ", "Close: ", close(0):6:2,", ", "Change: ", Close(0)-Close(-1):5:2, ", ", "Bullfear: ", bullfear; endif; endif; if close(0)<bearfear then if close(-1)>bearfear then println symbol,",", "Sell: ", "Close: ", close(0):6:2,", ", "Change: ", Close(0)-Close(-1):5:2, ", ", "Bearfear: ", bearfear; endif; endif;