Four-Bar Fear Scan for QP2, with shorts and longs

[Brookemail@xxxxxxx]

Here's a Four-Bar Fear scan for shorts and longs. I like the Four-Bar system.
Look at one of last night's picks: ITIG. The system is from an article by
Walter Downs in the August issue of TASC. 

Here's the Four-Bar Fear Scan for Shorts and Longs:

//Four-Bar Fear, Shorts and Longs, by Walter T. Downs
//translated for QP2 by Brooke
//n := 12 {Time periods}; 
//BullFear := (HHV(HIGH,n) - LLV(HIGH,n))/2 + LLV(HIGH,n); 
//BearFear := (HHV(LOW,n) - LLV(LOW,n))/2 + LLV(LOW,n); 
//Longs:
//Alert(Cross(CLOSE,BullFear) AND Ref(Sum(CLOSE < 
//BullFear AND CLOSE > BearFear,4),-1) = 4,1)
//Shorts:
//Cross(BearFear,CLOSE) AND Ref(Sum(CLOSE < 
//BullFear AND CLOSE > BearFear,4),-1) = 4 
                 
output = "fourbar.lst";
input="volvol.lst";
     
integer periods, i;   
float bullfear, bearfear, bullfprev, 
bearfprev, flag;

periods:=11; 

bullfear:=(max(0,-periods,hi)-min(0,-periods,hi))/2 + 
min(0,-periods,hi);

bearfear:=(max(0,-(periods),lo)-min(0,-periods,lo))/2 +
min(0,-periods,lo);


flag:=0;
for i = 0 to -3 step -1 do 
bullfprev:=(max(i-1,-((periods+1)-i),hi)
-min(i-1,-((periods+1)-i),hi))/2 + 
min(i-1,-((periods+1)-i),hi);
bearfprev:=(max(i-1,-((periods+1)-i),lo)-
min(i-1,-((periods+1)-i),lo))/2 
+ min(i-1,-((periods+1)-i),lo);   

if close(i-1)<bullfprev and
close(i-1)>bearfprev then
flag:=flag+1;
endif;

next i; 

if close(0)>bullfear 
and flag=4 then
println symbol,",", "Buy:   ", "Close: ", close(0):6:2,", ",
"Change: ", Close(0)-Close(-1):5:2, ", ", 
"Bullfear: ", bullfear;
endif; 

if close(0)<bearfear 
and flag=4 then
println symbol,",", "Short: ", "Close: ", close(0):6:2,", ",
"Change: ", Close(0)-Close(-1):5:2, ", ", 
"Bearfear: ", bearfear;
endif; 


************************

Brooke