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; |
