EA ADX 47 四連続ベットの回数を変更すると

４Ｒシステムはエントリー後の損益を利益に変えるためのシステムです。
４回連続でナンピン平均化売買プッシュでエントリー方向を間違えても３回まではフォローできるようにしていました。
なぜはじめと合わせて４回かというところですが、４回目で１＋１＋２＋４で８本エントリーします。
利益から検討すると１０本以内が理想的と考えたからです。

しかし、考えただけで検証はしていませんでした。
もしかすると５回がいいかも６回はもっといいかも、７回はもっといいかもしれません。
しかし回数を増やすと完敗した時のドローダウンは大きくなります。
そのさじ加減はどんなものでしょうか。

連続回数を４－７まで設定で選択できるようにしました。
結構大変でしたｗ
４７というと元東京大学の某氏を思い出すのはわたしだけでしょうか

こまかい条件設定を説明します。

バックテストの設定のテスト設定です。
初期証拠金は最低４連続の時は８０，０００ＪＰｙ５連続は１５万円、６連続は３０万円、７連続は６０万円は必要になります。

数字の後ろはプルダウンですが「ＪＰＹ」と手入力してください。

Roundは４－７の数字を入れて下さい。連続フォロー回数です。
上のメモに書いておきました。

Lotsもうえのメモに書いておきました、
上限１０万単位の場合　４連は０．１２以下　５連は０．０６以下　６連は０．０３以下　７連は０．０１
でお願いします。

Profitはエントリーの幅
VolはADXのエントリーボリュームです。

今回は最終行でADXの３０分足で見ていますが、どの足がいいか最適化してみてください。

７連続で２０１５は負け知らずの結果が出ましたが６０万円で六万弱の利益では悲しいですね。
６連続で初期証拠金３０万円利益６万円まで確認できました・・・

エントリーシステムとその時間足を最適化すれば無敗のEAができそうです。
難解だったModify（）もかなりシンプルに再構築できました。

#property copyright "Copyright 2016/3/28,TACA"
#property link      "http://mt4kyoto.blogspot.jp/"
extern int MAGIC=777;
extern string RoundMemo="Round 4-7";
extern int Round=4;int SubRound;
extern string LotsMemo="Round/MaxLots 4:0.12 5:0.06 6:0.03 7:0.01";
extern double Lots=0.01;
extern double Profit=460;
extern int Vol=20;
double TProfit;double StopLoss;double Entry;double Mode;double ModeOld;
int d;int i;int LB;double LS;double L;datetime TimeOld;double Limit;
void init(){Profit*=Point;Limit=Close[0]*400*MathPow(2,Round-1);
if (Round<6){SubRound=Round;}else{SubRound=Round+1;}}
//---Main Routine---
void OnTick(){if(Time[0]!=TimeOld){TimeOld=Time[0];if(AccountEquity()<Limit){return;}
if(OrdersTotal()==0){
 if(TACAADX(0,1)>Vol){
  if(TACAADX(1,2)<TACAADX(2,2)){if(TACAADX(1,1)>TACAADX(2,1)){EL();}}
  if(TACAADX(1,2)>TACAADX(2,2)){if(TACAADX(1,1)<TACAADX(2,1)){ES();}}
  }}}
  Del();Modify();}
//---Long Entry Routine---
void EL(){Entry=Ask;StopLoss=Ask-Profit*Round;d=OrderSend(NULL,OP_BUY,Lots,Ask,3,StopLoss,Ask+Profit,"Long1",MAGIC,0,clrNONE);
 for(i=0;i<Round-1;i++) {d=OrderSend(NULL,OP_BUYLIMIT,Lots*MathPow(2,i),Ask-Profit*(i+1),3,StopLoss,Ask+Profit,NULL,MAGIC,0,clrNONE);}}
//---Short Entry Routine--- 
void ES(){Entry=Bid;StopLoss=Bid+Profit*Round;d=OrderSend(NULL,OP_SELL,Lots,Bid,3,StopLoss,Bid-Profit,"Short1",MAGIC,0,clrNONE);
 for(i=0;i<Round-1;i++){ d=OrderSend(NULL,OP_SELLLIMIT,Lots*MathPow(2,i),Bid+Profit*(i+1),3,StopLoss,Bid-Profit,NULL,MAGIC,0,clrNONE);}}
//---Modify Routine--- 
void Modify(){Mode=0;for(i=0;i<Round;i++){d=OrderSelect(i,SELECT_BY_POS);Mode+=OrderType();}
if(ModeOld!=Mode){ModeOld=Mode;
d=OrderSelect(0,SELECT_BY_POS);
if(OrderType()==0){TProfit=Entry+(Mode/2-Round+2)*Profit;}else{TProfit=Entry+(SubRound-+MathFloor(Mode/2))*Profit;}
for(i=0;i<Round;i++){d=OrderSelect(i,SELECT_BY_POS);d=OrderModify(OrderTicket(),OrderOpenPrice(),StopLoss,TProfit,0,clrNONE);}}}
//---Del Routine---
void Del(){if (OrdersTotal()!=Round){for(i=OrdersTotal()-1;i>=0;i--){d=OrderSelect(i,SELECT_BY_POS);d=OrderDelete(OrderTicket(),clrNONE);}}}
//---TACA ADX Routine---
double TACAADX(int Modes,int Shift){return(iADX(NULL,30,14,0,Modes,Shift));}