Non PREV versions of WRO and WSO.
{WRO}
R1:=If(Ref(H,-4)=HHV(H,9),Ref(H,-4),ValueWhen(1,Ref(H,-4)=HHV(H,9),Ref(H,-4)
));
R2:=If(R1=Ref(R1,-1),ValueWhen(1,R1<>Ref(R1,-1),Ref(R1,-1)),Ref(R1,-1));
R3:=If(R1=Ref(R1,-1),ValueWhen(1,R2<>Ref(R2,-1),Ref(R2,-1)),Ref(R2,-1));
R4:=If(R1=Ref(R1,-1),ValueWhen(1,R3<>Ref(R3,-1),Ref(R3,-1)),Ref(R3,-1));
R5:=If(R1=Ref(R1,-1),ValueWhen(1,R4<>Ref(R4,-1),Ref(R4,-1)),Ref(R4,-1));
R6:=If(R1=Ref(R1,-1),ValueWhen(1,R5<>Ref(R5,-1),Ref(R5,-1)),Ref(R5,-1));
100*(1-(Int(R1/C)+Int(R2/C)+Int(R3/C)+Int(R4/C)+Int(R5/C)+Int(R6/C))/6);
{WSO}
S1:=If(Ref(L,-4)=LLV(L,9),Ref(L,-4),ValueWhen(1,Ref(L,-4)=LLV(L,9),Ref(L,-4)
));
S2:=If(S1=Ref(S1,-1),ValueWhen(1,S1<>Ref(S1,-1),Ref(S1,-1)),Ref(S1,-1));
S3:=If(S1=Ref(S1,-1),ValueWhen(1,S2<>Ref(S2,-1),Ref(S2,-1)),Ref(S2,-1));
S4:=If(S1=Ref(S1,-1),ValueWhen(1,S3<>Ref(S3,-1),Ref(S3,-1)),Ref(S3,-1));
S5:=If(S1=Ref(S1,-1),ValueWhen(1,S4<>Ref(S4,-1),Ref(S4,-1)),Ref(S4,-1));
S6:=If(S1=Ref(S1,-1),ValueWhen(1,S5<>Ref(S5,-1),Ref(S5,-1)),Ref(S5,-1));
100*(1-(Int(S1/C)+Int(S2/C)+Int(S3/C)+Int(S4/C)+Int(S5/C)+Int(S6/C))/6);
Hope this helps.
Roy
_____
From: [email protected] [mailto:[email protected]]
Sent: Tuesday, 1 July 2014 7:59 a.m.
To: [email protected]
Subject: [EquisMetaStock Group] Re: Mel Widner WRO WSO Automated Support
Resistance System
Have to make two indicators name WRO and WSO as below.
Any improvements to the below formulas like removing the Prev functions etc.
would be appreciated.
{WRO}
R1:=If(Ref(HIGH,-4)=HHV(HIGH,9),Ref(HIGH,-4),PREVIOUS);
R2:=If(R1=Ref(R1,-1),PREVIOUS,Ref(R1,-1));
R3:=If(R1=Ref(R1,-1),PREVIOUS,Ref(R2,-1));
R4:=If(R1=Ref(R1,-1),PREVIOUS,Ref(R3,-1));
R5:=If(R1=Ref(R1,-1),PREVIOUS,Ref(R4,-1));
R6:=If(R1=Ref(R1,-1),PREVIOUS,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);
WRO;
{WSO}
S1:=If(Ref(LOW,-4)=LLV(LOW,9),Ref(LOW,-4),PREVIOUS);
S2:=If(S1=Ref(S1,-1),PREVIOUS,Ref(S1,-1));
S3:=If(S1=Ref(S1,-1),PREVIOUS,Ref(S2,-1));
S4:=If(S1=Ref(S1,-1),PREVIOUS,Ref(S3,-1));
S5:=If(S1=Ref(S1,-1),PREVIOUS,Ref(S4,-1));
S6:=If(S1=Ref(S1,-1),PREVIOUS,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);
WSO ;
Long Entry:
Fml("WSO") >Mov(Fml("WSO"),4,S) OR Mov( Fml("C_WRO"),30,S)>95;
Long Exit:
No Exit formula.
Breakeven stop:
Floor level at 2%
Trailing stop:
Profit risk of 10 Percent, ignoring 10 periods
Maximum loss stop: Maximum loss of 7%.
Mov(Fml("WRO"),4,E);Mov(Mov(Fml("WRO"),4,E),4,E);
Mov(Fml("WSO"),30,E);Mov(Mov(Fml("WSO"),30,E),30,E);
