DALEÿ!! COMBINING RSI WITH RSI ! Author: Peter Konner ! Coded by: Richard Denning 11/10/10 ! www.tradersEdgeSystems.com !!!!!************ CHANGE PROPERTIES TO WEEKLY*******************!!!! !! RSI WILDER !To convert Wilder Averaging to Exponential Averaging use this formula: !ExponentialPeriods = 2 * WilderPeriod - 1. C is [close]. C1 is valresult(C,1). OSD is offSetToDate(month(),day(),year()). U is C - C1. D is C1 - C. W1 is 5. rsiLen1 is 2 * W1 - 1. AvgU is ExpAvg(iff(U>0,U,0),rsiLen1). AvgD is ExpAvg(iff(D>=0,D,0),rsiLen1). rsiQwk is 100-(100/(1+(AvgU/AvgD))). W2 is 17. rsiLen2 is 2 * W2 - 1. AvgU2 is ExpAvg(iff(U>0,U,0),rsiLen2). AvgD2 is ExpAvg(iff(D>=0,D,0),rsiLen2). rsiSlow is 100-(100/(1+(AvgU2/AvgD2))). smaST is simpleavg(C,10). smaLT is simpleavg(C,40). BarsSinceUp is scanany(rsiSlow > 60,200) then OSD. BarsSinceDn is scanany(rsiSlow < 40,200) then OSD. UpTrendLT if ^BarsSinceUp < ^BarsSinceDn. BarsSinceUpQ is scanany(rsiQwk > 60,200) then OSD. BarsSinceDnQ is scanany(rsiQwk < 40,200) then OSD. UpTrendQ if ^BarsSinceUpQ < ^BarsSinceDnQ. Buy if (UpTrendLT and C > smaLT) or (not UpTrendLT and UpTrendQ and C > smaST). ExitBuy if not UpTrendLT and C < smaLT and not UpTrendQ and C < smaST.  Rule Libraryÿÿ CCodeViewBuyÿÿ CReportViewÐSymbolÀ<srus1000þÿÿÿÿÿ CBackTestPropertyBuyExitBuyPPdt0 RSIwRSI BuySPXPrus1000 UUUU•Åã@«ªªªlÅã@þÿÿÿÖá@€Åã@€SellBuyPPct RSIwRSI SellSPXPETF-10YR UUUU•Åã@«ªªªlÅã@þÿÿÿ Õá@€Åã@00:00