New Bull/Bear Fear scans for Quotes Plus 2

[Brookemail@xxxxxxx]

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;