|
PureBytes Links
Trading Reference Links
|
When I tried to run this scan I got an error message that it couldn't find
volvol.lst.
How to I build this volvol.lst?
Lionel
-----Original Message-----
From: Brookemail@xxxxxxx <Brookemail@xxxxxxx>
To: metastock-list@xxxxxxxxxxxxx <metastock-list@xxxxxxxxxxxxx>
Date: Tuesday, September 22, 1998 2:36 PM
Subject: Four-Bar Fear Scan for QP2, with shorts and longs
>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
>
|