Brooke,
Yesterday I reset the formula to only show the R1 and S1 outputs so we could compare just the most recent S & R levels with the original Widner formula output. But it should/will show all 12 levels once changed back, tho one color displays get things mighty confusing. Maybe you need to void all your other S2..S6 formulas set up from the "other version" just in case MS is getting mixed signals and doing nothing about them as a result. Here's the formula code again:
{Automatic Support and Resistance by Mel Widner in TAS&C May 1998,
modified by Tim Kruzel from the MSWIN list}
S1:=ValueWhen(1,Ref(LOW,-4)=LLV(LOW,9),Ref(LOW,-4));
S2:=ValueWhen(1,S1<>Ref(S1,-1),Ref(S1,-1));
S3:=ValueWhen(1,S1<>Ref(S1,-1),Ref(S2,-1));
S4:=ValueWhen(1,S1<>Ref(S1,-1),Ref(S3,-1));
S5:=ValueWhen(1,S1<>Ref(S1,-1),Ref(S4,-1));
S6:=ValueWhen(1,S1<>Ref(S1,-1),Ref(S5,-1));
WSO:=100*(1-(Int(S1/CLOSE)+Int(S2/CLOSE)+Int(S3/CLOSE)+Int(S4/CLOSE)+Int(S5/CLOSE)+Int(S6/CLOSE))/6);
R1:=ValueWhen(1,Ref(HIGH,-4)=HHV(HIGH,9),Ref(HIGH,-4));
R2:=ValueWhen(1,R1<>Ref(R1,-1),Ref(R1,-1));
R3:=ValueWhen(1,R1<>Ref(R1,-1),Ref(R2,-1));
R4:=ValueWhen(1,R1<>Ref(R1,-1),Ref(R3,-1));
R5:=ValueWhen(1,R1<>Ref(R1,-1),Ref(R4,-1));
R6:=ValueWhen(1,R1<>Ref(R1,-1),Ref(R5,-1));
WRO:=100*(1-(Int(R1/CLOSE)+Int(R2/CLOSE)+Int(R3/CLOSE)+Int(R4/CLOSE)+Int(R5/CLOSE)+Int(R6/CLOSE))/6);
EnterLong:=If(((WSO > Mov(WSO,4,S)) OR (Mov(WRO,30,S) > 95)),1,0);
{EnterLong;}
R1;
R2;
R3;
R4;
R5;
R6;
S1;
S2;
S3;
S4;
S5;
S6;
I've purposely left out the WSO and WRO output calls for charting purposes as they only set conditions for the "Enterlong" trigger and scale improperly when viewing in the same S & R window. The "Enterlong" signal is also bracketed out for this purpose but used as a seperate formula for system testing. Like I said, its a real econo-version that doesn't have all the bells and whistles, but the gas mileage is more to my liking! :)
Craig |
