HND T5

ＨＮＤ　Ｔ５というと修行僧の皆様には羽田空港ターミナル５と見えてしまうかもしれませんが、羽田空港で作成している　ＥＡ　Ｔ５

T2をすこしチューンナップしました。
この設定だといい感じですね。

最適化は２０１６０１－２０１６１２
最適な値を２０１５０１－２０１７０５（本日）でバックテストをしました。

#property copyright  "CopyRight 2017/5/3,TACA"
#property version    "1.00"
#property strict
int d,i;
datetime OldTime;
string S;
extern int RSI1=67;
extern int RSI2=59;
extern double SL=0.4;
extern double lot=0.01;//ロット
extern int M=2;//MAGIC NUMBER
void OnInit(){S=Symbol();}
void OnTick()
{
if(Time[0]!=OldTime)
{
OldTime=Time[0];
if(OrdTtl()){CS();}
else
{
if(RSI(1) >     RSI1 && RSI(5) < RSI2){EntrySell();}
if(RSI(1) < 100-RSI1 && RSI(5) > 100-RSI2){EntryLong();}
}
}
}
void EntryLong(){d=OrderSend(S,0,lot,Ask,0,Ask-SL,0,"T2",M);d=OrderSelect(0,0);}
void EntrySell(){d=OrderSend(S,1,lot,Bid,0,Bid+SL,0,"T2",M);d=OrderSelect(0,0);}
double RSI(int P){return(iRSI(S,P,14,0,0));}
int OrdTtl(){int OT=0;for(i=OrdersTotal()-1;i>=0;i--){d=OrderSelect(i,0);if(OrderMagicNumber()==M){OT++;}}return(OT);}
void CS(){
if(!OrderType()&&OrderStopLoss()+SL<Ask){d=OrderModify(OrderTicket(),OrderOpenPrice(),Ask-SL,0,0,0);}
if( OrderType()&&OrderStopLoss()-SL>Bid){d=OrderModify(OrderTicket(),OrderOpenPrice(),Bid+SL,0,0,0);}
}