Re: New Bull/Bear Fear scans for Quotes Plus 2

["Steve Karnish" <kernish@xxxxxxxxxxxx>]

----------
> From: Brookemail@xxxxxxx
> To: metastock-list@xxxxxxxxxxxxx
> Subject: New Bull/Bear Fear scans for Quotes Plus 2
> Date: Monday, September 21, 1998 5:46 PM
> 
> 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:
> 
> http://www.equis.com/customer/support/formulas/cf00094.html
> 
> 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;