Peter Konner’s article, “Combining RSI with RSI” describes a long term system intended to be used with weekly data. The following steps will create an expert advisor for Metastock based on this system:

1. Tools > New to open the Expert Editor.
2. Symbols tab.
3. New to create a new symbol.

4. bc1:= Cross( RSI(17) > 60 AND C > Mov( C, 40, S), 0.5);

   bc2:= Cross( RSI(5) > 60 AND C > Mov( C, 10, S), 0.5);

   sc1:=sc2:= Cross( RSI(5) < 40 AND C < Mov( C, 10, S), 0.5);

   trade1:= If(bc1, 1, If(sc1, 0, PREV));

   trade2:= If(bc2, 1, If(sc2, 0, PREV));

   Cross(trade1=1, 0.5) OR (trade1=0 AND Cross(trade2=1, 0.5))

   8. Graphics tab
   9. Up Arrow
   10. Green
   11. Below Price Plot”
   12. Below Symbol”
   13. OK
   14. New to create a new symbol.

   15. bc1:= Cross( RSI(17) > 60 AND C > Mov( C, 40, S), 0.5);

       bc2:= Cross( RSI(5) > 60 AND C > Mov( C, 10, S), 0.5);

       sc1:=sc2:= Cross( RSI(5) < 40 AND C < Mov( C, 10, S), 0.5);

       trade1:= If(bc1, 1, If(sc1, 0, PREV));

       trade2:= If(bc2, 1, If(sc2, 0, PREV));

       Cross(trade1=0, 0.5) OR (trade1=0 AND Cross(trade2=0, 0.5))

       18. Graphics tab
       19. Down Arrow
       20. Red
       21. Above Price Plot”
       22. Above Symbol”
       23. OK
       24. OK to close the Expert Editor.

       William Golson

       MetaStock Support

The original post by William appears to be garbled, as in... sc1:=sc2= etc. Hopefully the following version represents the original code but with PREVs removed. My code takes an extra cycle to get down to business but it replicates the PREV version in all subsequent cycles. Roy {new, coded without PREV} bc1:=Cross(RSI(17)>60 AND C>Mov(C,40,S),0.5); bc2:=Cross(RSI(5) >60 AND C>Mov(C,10,S),0.5); sc1:=Cross(RSI(17)<40 AND C<Mov(C,40,S),0.5); sc2:=Cross(RSI(5) <40 AND C<Mov(C,10,S),0.5); trade1:=If(bc1,1,If(sc1,0,ValueWhen(1,bc1+sc1,bc1 OR sc1=0))); trade2:=If(bc2,1,If(sc2,0,ValueWhen(1,bc2+sc2,bc2 OR sc2=0))); Cross(trade1=0,0.5) OR (trade1=0 AND Cross(trade2=0,0.5)); {old, coded with PREV} bc1:=Cross(RSI(17)>60 AND C>Mov(C,40,S),0.5); bc2:=Cross(RSI(5) >60 AND C>Mov(C,10,S),0.5); sc1:=Cross(RSI(17)<40 AND C<Mov(C,40,S),0.5); sc2:=Cross(RSI(5) <40 AND C<Mov(C,10,S),0.5); t1:=If(bc1,1,If(sc1,0,PREV)); t2:=If(bc2,1,If(sc2,0,PREV)); Cross(t1=0, 0.5) OR (t1=0 AND Cross(t2=0,0.5))

This is two different systems Double Stoch Mo w 2 ma's and Double Rsi w 2 MA's The Stoch Mo will show 2 or -2 in the indicator line

 

SM1:=100*(Mov(Mov(C-(.5*(HHV(H,5)+LLV(L,5))),3,E),3,E)/
(.5*Mov(Mov(HHV(H,5)-LLV(L,5),3,E),3,E)));
SM2:=100*(Mov(Mov(C-(.5*(HHV(H,20)+LLV(L,20))),3,E),3,E)/
(.5*Mov(Mov(HHV(H,20)-LLV(L,20),3,E),3,E)));
bc1:=Cross(SM2>65 AND C>Mov(C,40,S),0.5);
bc2:=Cross(SM1 >65 AND C>Mov(C,10,S),0.5);
sc1:=Cross(SM2<-65 AND C<Mov(C,40,S),0.5);
sc2:=Cross(SM1 <-65 AND C<Mov(C,10,S),0.5);
trade1:=If(bc1,1,If(sc1,0,ValueWhen(1,bc1+sc1,bc1 OR sc1=0)));
trade2:=If(bc2,1,If(sc2,0,ValueWhen(1,bc2+sc2,bc2 OR sc2=0)));
trade3:=If(sc1,1,If(bc1,0,ValueWhen(1,bc1+sc1,sc1 OR bc1=0)));
trade4:=If(sc2,1,If(bc2,0,ValueWhen(1,bc2+sc2,sc2 OR bc2=0)));

A:=Cross(trade1=0,0.5) OR (trade1=0 AND Cross(trade2=0,0.5));
B:=Cross(trade3=0,0.5) OR (trade3=0 AND Cross(trade4=0,0.5));
Signal2:=2*If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(B)<BarsSince(A),1,0));

bc1:=Cross(RSI(17)>60 AND C>Mov(C,40,S),0.5);
bc2:=Cross(RSI(5) >60 AND C>Mov(C,10,S),0.5);
sc1:=Cross(RSI(17)<40 AND C<Mov(C,40,S),0.5);
sc2:=Cross(RSI(5) <40 AND C<Mov(C,10,S),0.5);
trade1:=If(bc1,1,If(sc1,0,ValueWhen(1,bc1+sc1,bc1 OR sc1=0)));
trade2:=If(bc2,1,If(sc2,0,ValueWhen(1,bc2+sc2,bc2 OR sc2=0)));
trade3:=If(sc1,1,If(bc1,0,ValueWhen(1,bc1+sc1,sc1 OR bc1=0)));
trade4:=If(sc2,1,If(bc2,0,ValueWhen(1,bc2+sc2,sc2 OR bc2=0)));
A:=Cross(trade1=0,0.5) OR (trade1=0 AND Cross(trade2=0,0.5));
B:=Cross(trade3=0,0.5) OR (trade3=0 AND Cross(trade4=0,0.5));
Signal:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(B)<BarsSince(A),1,0));
0;Signal2;Signal;