/*[[
      Name := ttf_Crossings
      Separate Window := No
      First Color := Red
      First Draw Type := Symbol
      First Symbol := 234
      Use Second Data := Yes
      Second Color := LawnGreen
      Second Draw Type := Symbol
      Second Symbol := 233
]]*/



var: cnt(0),IsBuying(False),IsSelling(False),IsClosing(False),RealTP(0),RealSL(0),i(0);
var: stoc5d_1(0),stoc5d_0(0),stoc5k_1(0),stoc5k_0(0),mom3_1(0),mom3_0(0),macd4signal_1(0),macd4histogram_0(0),macd4signal_0(0),macd4histogram_1(0),sar1_1(0),sar1_0(0);


SetLoopCount(0);

//For i=Bars-TTFbars Downto 0 Begin
For i=500 Downto 0 Begin
stoc5d_1 = iSTO(15,3,3,MODE_SMA,MODE_SIGNAL,i+1);
stoc5d_0 = iSTO(15,3,3,MODE_SMA,MODE_SIGNAL,i);
stoc5k_1 = iSTO(15,3,3,MODE_SMA,MODE_MAIN,i+1);
stoc5k_0 = iSTO(15,3,3,MODE_SMA,MODE_MAIN,i);
mom3_1 = iMomEx(14,PRICE_OPEN,i+1);
mom3_0 = iMomEx(14,PRICE_OPEN,i);
macd4signal_1 = iMACDEx(12,26,9,PRICE_OPEN,MODE_SIGNAL,i+1);
macd4histogram_0 = iMACDEx(12,26,9,PRICE_OPEN,MODE_MAIN,i);
macd4signal_0 = iMACDEx(12,26,9,PRICE_OPEN,MODE_SIGNAL,i);
macd4histogram_1 = iMACDEx(12,26,9,PRICE_OPEN,MODE_MAIN,i+1);
sar1_1 = iSAR(0.02,0.2,i+1);
sar1_0 = iSAR(0.02,0.2,i);
    
 if((sar1_0 >= Bid) and (sar1_1 < sar1_0))
 and ((mom3_0 > 100) and (macd4histogram_0 > macd4signal_0) and (stoc5k_0 > 60)) then
      {
      SetIndexValue(i,High[i]+15*Point);
    };
    
if ((sar1_0 <= Ask) and (sar1_1 > sar1_0))
 and ((mom3_0 < 100) and (macd4histogram_0 < macd4signal_0) and (stoc5k_0 < 35)) then
      {
      SetIndexValue2(i,Low[i]-15*Point);
    };

End;