{RSI}
rsi_r := (CLOSE - ref(CLOSE,-1));
rsi_rs := Wilders(if(rsi_r>0,rsi_r,0),14) / Wilders(if(rsi_r<0,Abs(rsi_r),0),14);
RSIndex:= Mov((100-(100/(1+rsi_rs))),2,E);

{ATR RSI}
TH :=if(Ref(RSIndex,-1) > RSIndex,Ref(RSIndex,-1),RSIndex);
TL :=if(Ref(RSIndex,-1) < RSIndex,Ref(RSIndex,-1),RSIndex);
TR :=TH-TL;
ATRRSI:=Wilders(TR,14);

DeltaATRRSI:= Wilders(ATRRSI,14)*2.618;

TrLevelRSIFast:=If(
         RSIndex=PREV,
         PREV,
         If(
            ((Ref(RSIndex,-1)<PREV)AND (RSIndex<PREV)),
            Min(PREV,RSIndex + DeltaATRRSI),
            If(
               (Ref(RSIndex,-1)>PREV) AND (RSIndex>PREV),
               Max(PREV,RSIndex - DeltaATRRSI),
               If(
                  RSIndex>PREV,
                  RSIndex - DeltaATRRSI,
                  RSIndex + DeltaATRRSI
               )
            )
         )
      );

DeltaATRRSI_2:= Wilders(ATRRSI,14)*4.236;

TrLevelRSISlow:=If(
         RSIndex=PREV,
         PREV,
         If(
            ((Ref(RSIndex,-1)<PREV)AND (RSIndex<PREV)),
            Min(PREV,RSIndex + DeltaATRRSI_2),
            If(
               (Ref(RSIndex,-1)>PREV) AND (RSIndex>PREV),
               Max(PREV,RSIndex - DeltaATRRSI_2),
               If(
                  RSIndex>PREV,
                  RSIndex - DeltaATRRSI_2,
                  RSIndex + DeltaATRRSI_2
               )
            )
         )
      );


{Edit this section to your preferences.}

{Control Error}

Barnum:= BarCount();
Err:= (tp1=0) or (tp2=0);

{Add Indicators Here}

Indicator1:= mov(C,tp1,mTp);
Indicator2:= mov(C,tp2,mTp);

{Do NOT change the NAMES of the Variables below.
If you Changed The NAMES of Indicator1 or Indicator2,
you will have to change them below.}

{Define Final Trade Entry/Exit Criteria}

LongEntrySetup:= Cross(Indicator1,Indicator2) and RSIndex>TrLevelRSIFast and RSIndex>TrLevelRSISlow and TrLevelRSIFast>TrLevelRSISlow;
LongExitSetup:= Cross(Cross(TrLevelRSISlow,RsIndex),LongEntrySignal);

ShortEntrySetup:= Cross(Indicator2,Indicator1) and RSIndex<TrLevelRSIFast and RSIndex<TrLevelRSISlow and TrLevelRSIFast<TrLevelRSISlow;
ShortExitSetup:= Cross(Cross(RSIndex,TrLevelRSISlow),ShortEntrySignal);

{***********************************************}

{That's it! You're done! There is no need to
edit below this point.}

{***********************************************}

{Determine the Pip Value for the currency chart being used}

_InitialStoploss:= InitialStoploss * SymbolPoint();
_TrailingStoploss:= TrailingStoploss * SymbolPoint();
_ProfitTarget:= ProfitTarget * SymbolPoint();
_Spread:= Spread * SymbolPoint();

{Define Active Market Hours for Taking Trade Entries}
{For Example: StartHour=2 and StartMinute=0 will allow trade entries beginning at 2:00 AM EST}
{For Example: EndHour=14 and EndMinute=30 will allow trade entries until 2:30 PM EST}

TradingSessionStart:= (hour()=StartHour and minute()=StartMinute);
TradingSessionEnd:= (hour()=EndHour and minute()=EndMinute);
TradingSessionOn:= SignalFlag(TradingSessionStart,TradingSessionEnd);

{***********************************************}

LongEntrySignal:= if(TradingSession=0,((NOT Err AND LongTradeAlert=0 AND ShortTradeAlert=0 and TradingSessionOn AND LongEntrySetup) OR
                  (NOT Err AND LongTradeAlert=0 AND Cross(0.5,ShortTradeAlert) AND TradingSessionOn AND LongEntrySetup)),
                  ((NOT Err AND LongTradeAlert=0 AND ShortTradeAlert=0 and LongEntrySetup) OR
                  (NOT Err AND LongTradeAlert=0 AND Cross(0.5,ShortTradeAlert) AND LongEntrySetup)));

LongEntryPrice:= valuewhen(1,LongEntrySignal,C);
BarsSinceLongEntry:= BarsSince(LongEntrySignal);

LongEntryInitialStop:= if(LongTradeAlert=1 OR LongEntrySignal OR LongExitSignal, LongEntryPrice - _InitialStoploss, null);
DisplayLongEntryInitialStop:= if(InitialStoplossMode=0 or InitialStoplossMode=1, LongEntryInitialStop, null);

LongEntryPipTrailingStop:= if(LongTradeAlert=1 OR LongEntrySignal OR LongExitSignal , max((C - _TrailingStoploss), PREV(LongEntryPrice - _TrailingStoploss)), null);
LongEntryATRTrailingStop:= if(LongTradeAlert=1 OR LongEntrySignal OR LongExitSignal, max(HHV(H,BarsSinceLongEntry) - (ATR(ATRper) * atrmultiplier), PREV(valuewhen(1,LongEntrySignal,H) - (ATR(ATRper) * atrmultiplier))), null);
DisplayLongEntryTrailingStop:= if((TrailingStoplossMode=0 or TrailingStoplossMode=1) AND TrailingStoplossType=1, LongEntryPipTrailingStop,
                               if((TrailingStoplossMode=0 or TrailingStoplossMode=1) AND TrailingStoplossType=0, LongEntryATRTrailingStop,
                               null));

LongEntryProfitTarget:= if(LongTradeAlert=1 OR LongEntrySignal OR LongExitSignal, LongEntryPrice + _ProfitTarget, null);
DisplayLongEntryProfitTarget:= if(ProfitTargetMode=0 or ProfitTargetMode=1, LongEntryProfitTarget, null);

LongExitSignal:= (LongTradeAlert=1 AND InitialStoplossMode=0 AND Cross(LongEntryInitialStop,C))
              OR (LongTradeAlert=1 AND TrailingStoplossMode=0 AND TrailingStoplossType=1 AND Cross(LongEntryPipTrailingStop,C))
              OR (LongTradeAlert=1 AND TrailingStoplossMode=0 AND TrailingStoplossType=0 AND Cross(LongEntryATRTrailingStop,C))
              OR (LongTradeAlert=1 AND ProfitTargetMode=0 AND Cross(C,LongEntryProfitTarget))
              OR (LongTradeAlert=1 AND LongExitSetup);

LongExitPrice:= valuewhen(1,LongExitSignal,C);

ShortEntrySignal:= if(TradingSession=0,((NOT Err AND ShortTradeAlert=0 AND LongTradeAlert=0 AND TradingSessionOn AND ShortEntrySetup) OR
                   (NOT Err AND ShortTradeAlert=0 AND Cross(0.5,LongTradeAlert) AND TradingSessionOn AND ShortEntrySetup)),
                   ((NOT Err AND ShortTradeAlert=0 AND LongTradeAlert=0 AND ShortEntrySetup) OR
                   (NOT Err AND ShortTradeAlert=0 AND Cross(0.5,LongTradeAlert) AND ShortEntrySetup)));

ShortEntryPrice:= valuewhen(1,ShortEntrySignal,C);
BarsSinceShortEntry:= BarsSince(ShortEntrySignal);

ShortEntryInitialStop:= if(ShortTradeAlert=1 OR ShortEntrySignal OR ShortExitSignal, ShortEntryPrice + _InitialStoploss, null);
DisplayShortEntryInitialStop:= if(InitialStoplossMode=0 or InitialStoplossMode=1, ShortEntryInitialStop, null);

ShortEntryPipTrailingStop:= if(ShortTradeAlert=1 OR ShortEntrySignal OR ShortExitSignal, min((C + _TrailingStoploss), PREV(ShortEntryPrice + _TrailingStoploss)), null);
ShortEntryATRTrailingStop:= if(ShortTradeAlert=1 OR ShortEntrySignal OR ShortExitSignal, min(LLV(L,BarsSinceShortEntry) + (ATR(ATRper) * atrmultiplier), PREV(valuewhen(1,ShortEntrySignal,L) + (ATR(ATRper) * atrmultiplier))), null);
DisplayShortEntryTrailingStop:= if((TrailingStoplossMode=0 or TrailingStoplossMode=1) AND TrailingStoplossType=1, ShortEntryPipTrailingStop,
                                if((TrailingStoplossMode=0 or TrailingStoplossMode=1) AND TrailingStoplossType=0, ShortEntryATRTrailingStop,
                                null));

ShortEntryProfitTarget:= if(ShortTradeAlert=1 OR ShortEntrySignal OR ShortExitSignal, ShortEntryPrice - _ProfitTarget, null);
DisplayShortEntryProfitTarget:= if(ProfitTargetMode=0, ShortEntryProfitTarget, null);

ShortExitSignal:= (ShortTradeAlert=1 AND InitialStoplossMode=0 AND Cross(C,ShortEntryInitialStop))
               OR (ShortTradeAlert=1 AND TrailingStoplossMode=0 AND TrailingStoplossType=1 AND Cross(C,ShortEntryPipTrailingStop))
               OR (ShortTradeAlert=1 AND TrailingStoplossMode=0 AND TrailingStoplossType=0 AND Cross(C,ShortEntryATRTrailingStop))
               OR (ShortTradeAlert=1 AND ProfitTargetMode=0 AND Cross(ShortEntryProfitTarget,C))
               OR (ShortTradeAlert=1 AND ShortExitSetup);

ShortExitPrice:= valuewhen(1,ShortExitSignal,C);

{Simulated Open Trade Determination and Trade Direction}

LongTradeAlert:= SignalFlag(LongEntrySignal,LongExitSignal);
ShortTradeAlert:= SignalFlag(ShortEntrySignal,ShortExitSignal);

{Create Auto-Trading Functionality}

OpenBuy:= LongEntrySignal and (eventCount('OpenBuy')=eventCount('CloseBuy'));
CloseBuy:= LongExitSignal and (eventCount('OpenBuy')>eventCount('CloseBuy'));

OpenSell:= ShortEntrySignal and (eventCount('OpenSell')=eventCount('CloseSell'));
CloseSell:= ShortExitSignal and (eventCount('OpenSell')>eventCount('CloseSell'));

{***********************************************}

{Calculate Simulated Individual Trade Profit In Pips}

_TradeProfitInPips:= If(LongExitSignal=1,LongExitPrice - (LongEntryPrice + _Spread),
                     If(ShortExitSignal=1,ShortEntryPrice - (ShortExitPrice + _Spread),
                     0));

TradeProfitInPips:= if(SymbolDigits()=4, _TradeProfitInPips * 10000, _TradeProfitInPips * 100);

{Calculate Simulated Total Profit In Pips}

TotalProfitInPips:= cum(TradeProfitInPips);

{Calculate Number of Trades and W/L Percentage}

LosingTrades:= cum(If(TradeProfitInPips < 0,1,0));
WinningTrades:= cum(If(TradeProfitInPips > 0,1,0));
BreakEvenTrades:= if((LongExitSignal=1 or ShortExitSignal=1) and TradeProfitInPips=0, PREV+1, PREV);
TotalTrades:= cum(LongExitSignal) + cum(ShortExitSignal);

{Calculate Current Open Trade P/L In Pips}

_OpenTradeInPips:= If(LongTradeAlert=1, (C - _Spread - LongEntryPrice),
                   If(ShortTradeAlert=1, (ShortEntryPrice - C - _Spread), null));
                  
OpenTradeInPips:=  if(SymbolDigits()=4, _OpenTradeInPips * 10000, _OpenTradeInPips * 100);

MaxOpenProfit:= Highest(OpenTradeInPips);

MaxOpenLoss:= Lowest(OpenTradeInPips);

{***********************************************}