Ｔ５ 可変シャンデリアストップ

シャンデリアストップの幅をすこしずつ減らしてみます。

通常のトレーディングストップは頂点まで登り落ちたところで決済しますが、
少しずつ幅を狭めることで頂点をつかむ作戦です。

予想通り　成績は伸びました　あああ！！飛行機が・・・

#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
double SLM=SL;
void OnInit(){S=Symbol();}
void OnTick()
{
if(Time[0]!=OldTime)
{
OldTime=Time[0];
if(OrdTtl()){CS();}
else
{
SLM=SL;
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()+SLM<Ask){d=OrderModify(OrderTicket(),OrderOpenPrice(),Ask-SLM,0,0,0);SLM-=0.001;}
if( OrderType()&&OrderStopLoss()-SLM>Bid){d=OrderModify(OrderTicket(),OrderOpenPrice(),Bid+SLM,0,0,0);SLM-=0.001;}
}