EA Swapper Joe Limited

昨夜からＩｐｈｏｎｅのGMAILアプリがうまく動きません。

なんかＧＭＡＩＬアプリがアップデートして微妙になってしまいました。

片手で使いにくい・・・

それと同時にＢｌｏｇｇｅｒもイメチェン！！

こちらは最高の出来です＾＾　ＧＯＯＧＬＥ様ありがとう♪

さて以前ＳｗａｐｐｅｒＪｏｅというＥＡを作成しました。
そこにありがたいコメントを頂きました＾＾

そこでわたしもアップデートしてみます

設定を日本語にしました（蛇足？こうゆう変更がわからなくなることが多いのですが・・・）

追加したのは
エントリー時間（月-木）は月曜から木曜の２３時のエントリー分です。初期５５分（２３：５５GMT+3）
エントリ時間（金）は金曜日の２３時のエントリー分初期５０分（２３：５０GMT+3）
最大ポジション数　初期１００本
ポジション間隔　最低ポジションより価格が下回る時のみエントリーします。

ん？感覚？・・・・


//+------------------------------------------------------------------+
//|                                                SwapperJoeLimited |
//|                                      Copyright 2016, Taca        |
//|                                       http://taca.asia           |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016/11/26,TACA"
#property link      "http://mt4kyoto.blogspot.jp/"
#property strict
sinput int MAGIC=2355;//MAGIC ナンバー
extern int Profit=60;//利益確定額  
extern double Lots=0.01;//ロット
extern int Spread=14;//スプレッド
extern int EntryMin=55;//エントリー時間（月-木）２３：ｘｘ
extern int EntryMinFri=50;//エントリ時間（金）２３：ｘｘ
extern int MaxPosition=100;//最大ポジション数
extern double MinPosition=0.01;//ポジション感覚
double PosAve,MinPos=Close[0]+2;
datetime TimeOld;
int d,i;
//+------------------------------------------------------------------+
//|Main Routine                                                      |
//+------------------------------------------------------------------+
void OnTick()
  {
     {
      if(Time[0] != TimeOld)
        {
         TimeOld=Time[0];
         if(OrdersTotal()==0){MinPos=Close[0]+2;}
         if(DayOfWeek()!=5&&Hour()==23&&Minute()==EntryMin   ){Entry();}
         if(DayOfWeek()==5&&Hour()==23&&Minute()==EntryMinFri){Entry();}
        }
     }
  }
//+------------------------------------------------------------------+
//|Entry                                                             |
//+------------------------------------------------------------------+
void Entry()
  {
   if(OrdersTotal()<MaxPosition && MinPos-MinPosition>Close[0])
     {
      d=OrderSend(Symbol(),OP_BUY,Lots,Ask,5,0,0,"Swapper Joe!!",MAGIC,0,Red);
      Averaging();
     }
  }
//+------------------------------------------------------------------+
//|Average Sys                                                       |
//+------------------------------------------------------------------+
void Averaging()
  {
   PosAve=0;double PosAll=0,PosNum=0;
   for(i=0;i<OrdersTotal();i++)
     {
      d=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      PosAll+=OrderOpenPrice()*OrderLots();
      PosNum+=OrderLots();
      if(MinPos>Close[0]){MinPos=Close[0];}
     }
   if(PosNum==0){PosAve=0;}
   else{ PosAve=PosAll/PosNum;}
   for(i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==True)
        { d=OrderModify(OrderTicket(),OrderOpenPrice(),0,PosAve+Profit*Point,0,CLR_NONE);}
     }
  }
//+------------------------------------------------------------------+