//+------------------------------------------------------------------+
//|                                                TrapReptShort.mq4 |
//|                      Copyright ｩ 2010, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright ｩ 2010, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

// パラメータ入力
   extern string PosiMaxL= "↓再起動時、必須入力　現ポジ内の最高値の建値";
   extern double PosiMax=110.64;
   extern string PosiMimL= "↓再起動時、必須入力　現ポジ内の最安値の建値";
   extern double PosiMim=108.44;

   extern string SouteiMaxL= "↓想定する最高値を指定";
   extern double SouteiMax =999;
   extern string SouteiMimL= "↓想定する最安値を指定";
   extern double SouteiMim =0;

   extern string TrapHabaL= "↓トラップ幅";
   extern double TrapHaba =0.2;
   extern string RikakuHabaL= "↓利確幅";
   extern double RikakuHaba =0.5;
   extern string LotsL= "↓ロット数(1=10万通貨）";
   extern double Lots =0.01;

   extern string SlippageL= "↓スリッページ";
   extern double Slippage =10;

   //↓マジックナンバーには、建値を設定する（スリップを含まない値）
   int MAGICNO;
   
   //↓Alarm用のフラグ
   int MaxMsgFlg = 0;
   int MimMsgFlg = 0;
   int PosMsgFlg = 0;
   
   //　決済のカウント
   int CntKessai = 0;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
//↓初期処理開始
int init()
  {
//----開始メッセージ出力
//   Alert("");
//   Alert("*** start ***");
//   Alert("PosiMax:",PosiMax);
//   Alert("PosiMim:",PosiMim);
//   Alert("SouteiMax:",SouteiMax);
//   Alert("SouteiMim:",SouteiMim);

// メッセージを複数回ださないためのフラグ
   MaxMsgFlg = 0;
   MimMsgFlg = 0;
   PosMsgFlg = 0;
   
   int CntKessai = 0;

   Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim," CntKessai:",CntKessai );
   
//----
   return(0);
  }

//↑初期処理終了

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
//↓通常処理開始
int start()
{

// 　更新のタイミング
//    PosiMax　：　１．1本目のポジ建て　２．決済時にdown　　３．上昇注文時にup　　　４．下降注文時更新なし
//    PosiMim　：　１．1本目のポジ建て　２．決済時更新なし　３．上昇注文時更新なし　４．下降注文時down

   //　１本目のポジ建て処理
   if(PosiMax == 0)
   {
      // 新規注文（現在のBid値で）。
      double FirstRate = Bid;
      MAGICNO = FirstRate * 100;
      if(OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,0,FirstRate - RikakuHaba,"",MAGICNO,0,Green) > 0)
      {
         // 1本目成行注文OKのとき、PosiMaxとPosiMinを設定
         PosiMax = FirstRate;
         PosiMim = FirstRate;
//         Alert("-----first nariyuki OK FirstRate:",FirstRate);
//         Alert("PosiMax:",PosiMax);
//         Alert("PosiMim:",PosiMim);
      }
      else
      {
         // 1本目成行注文NGのとき、メッセージのみ出力。（再度、1本目のポジ建て処理を行う）
//         Alert("-----first nariyuki NG FirstRate:",FirstRate);
      }
   }
     
   //  １本目のポジ建て完了後、2本目以降の処理
   else
   {
      //最高値ポジが、決済されたら、PosiMaxを下げる
      if(Ask <= PosiMax - RikakuHaba)
      {
         if(PosiMax >= PosiMim)
         {
            Alert("-----kessai Ask: ",Ask);
            Alert("PosiMax: ",PosiMax," --> ",PosiMax-TrapHaba);
            Alert("PosiMim: ",PosiMim);
            PosiMax = PosiMax - TrapHaba;
            PosMsgFlg = 0;
            CntKessai = CntKessai + 1; 
            Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim," CntKessai:",CntKessai);
         }
         // 全決済された場合、PosiMax < PosiMim　となる。
         else
         {
            if (PosMsgFlg == 0)
            {
               Alert("-----posi zero");
               Alert("PosiMax: ",PosiMax);
               Alert("PosiMim: ",PosiMim);
               PosMsgFlg = 1;
            }
         }
      }

      //Bidが保有ポジ最高値を更新したら注文する
      if(Bid >= PosiMax + TrapHaba)
      {
         
         //想定最高値以下なら注文する
         if(Bid <= SouteiMax)
         {
            //成行注文の実行　OKのとき、PosiMaxを上げる
            MAGICNO = (PosiMax + TrapHaba) * 100;
            if(OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,0,PosiMax + TrapHaba - RikakuHaba,"",MAGICNO,0,Green) > 0)
            {
               Alert("-----up sinki OK Bid: ",Bid);
               Alert("PosiMax:",PosiMax," -->> ",PosiMax + TrapHaba);
               Alert("PosiMim:",PosiMim);

               PosiMax = PosiMax + TrapHaba;
               MaxMsgFlg = 0;
               Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim," CntKessai:",CntKessai);

            }
            //成行注文の実行　NGのとき
            else
            {
               Alert("-----up sinki NG");
            }
         }
         //想定最高値を超えていたら、注文しない
         else
         {
            if ( MaxMsgFlg == 0 )
            {
               Alert("-----SouteiMax Bid: ",Bid);
               Alert("SouteiMax:",SouteiMax);
               MaxMsgFlg = 1;
            }
         }
      }

      //Bidが保有ポジ最安値を更新したら注文する
      if(Bid <= PosiMim - TrapHaba)
      {
         //想定最安値以上なら注文する
         if(Bid >= SouteiMim)
         {
            //成行注文の実行　OKのとき、PosiMimを下げる
            MAGICNO = (PosiMim - TrapHaba) * 100;
            if(OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,0,PosiMim - TrapHaba - RikakuHaba,"",MAGICNO,0,Green) > 0)
            {
               Alert("-----down sinki OK Bid: ",Bid);
               Alert("PosiMax: ",PosiMax);
               Alert("PosiMim: ",PosiMim," -->> ",PosiMim - TrapHaba);
               PosiMim = PosiMim - TrapHaba;
               MimMsgFlg = 0;
               Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim," CntKessai:",CntKessai);
            }
            //成行注文の実行　NGのとき
            else
            {
               Alert("-----down sinki NG");
            }
         }
         //想定最安値を下回っていたら、注文しない
         else
         {
            if ( MimMsgFlg == 0 )
            {
               Alert("-----SouteiMim Bid: ",Bid);
               Alert("SouteiMim:",SouteiMim);
               MimMsgFlg = 1;
            }
         }
      }
   }
   return(0);
}
//↑通常処理終了
  
//+------------------------------------------------------------------+



//+------------------------------------------------------------------+