【MQL4】ナンピン＆マーチンEAを無料配布 GOLD対応・ソースコード一部公開

//+------------------------------------------------------------------+
//|                                                    NANPIN-EA.mq4 |
//|                                    Copyright c 2020-2025 ぷろぐらむFX |
//|                                             　https://fx-prog.com/|
//+------------------------------------------------------------------+
#property copyright "Copyright c 2020-2025 ぷろぐらむFX"
#property link      "https://fx-prog.com/"
#property version   "1.00"
#property strict

extern string p01="--- MAIN Settings ---";
input double LOTS = 0.01;   //初期ロット
input double NANPIN_BAIRITU = 1.50;   //ナンピン倍率
input double NANPIN_HABA = 30;   //ナンピン値(pips)
input int MAX_POSISION = 14;   //最大ポジション数

input double RIKAKU = 10;   //利確値(pips)

extern string p02="--- INDI Settings ---";
input int SELECT_INDI = 1;
input int I_PRAM1 = 14;
input int I_PRAM2 = 3;
input int I_PRAM3 = 3;

input int E_KAI = 30;
input int E_URI = 70;

int MAGIC_NO = 0;   //マジックナンバー

datetime prevtime;
int Main_ea_ticket[100]; //ポジションのチケット番号保有用

double lot_buf_L;  //ロングロット数保持
double lot_buf_S;  //ショートロット数保持
int total_buf_L;  //ロングポジション数保持
int total_buf_S;  //ショートポジション数保持

string objectName = "SHOW_PROFIT";
string objectName2 = "SHOW_PROFIT2";
double LOT_MAX = 50.0;

string nanpin_message_L ="";
string nanpin_message_S ="";

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit(){
//---
   //ラベルオブジェクトの作成
   if(!ObjectCreate(0, objectName, OBJ_LABEL, 0, 0, 0))
   {
      //return(INIT_FAILED);
   }

   ObjectSetInteger(0, objectName ,OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER);
   ObjectSetInteger(0, objectName, OBJPROP_XDISTANCE, 35);
   ObjectSetInteger(0, objectName, OBJPROP_YDISTANCE, 25);
   ObjectSetInteger(0, objectName, OBJPROP_COLOR, clrWhite);
   ObjectSetInteger(0, objectName, OBJPROP_READONLY, true);
   ObjectSetInteger(0, objectName, OBJPROP_SELECTABLE, false);
   ObjectSetString(0, objectName, OBJPROP_FONT, "ＭＳ ゴシック");
   ObjectSetInteger(0, objectName, OBJPROP_FONTSIZE, 8);

   //ラベルオブジェクトの作成
   if(!ObjectCreate(0, objectName2, OBJ_LABEL, 0, 0, 0))
   {
      //return(INIT_FAILED);
   }

   ObjectSetInteger(0, objectName2 ,OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER);
   ObjectSetInteger(0, objectName2, OBJPROP_XDISTANCE, 35);
   ObjectSetInteger(0, objectName2, OBJPROP_YDISTANCE, 35);
   ObjectSetInteger(0, objectName2, OBJPROP_COLOR, clrWhite);
   ObjectSetInteger(0, objectName2, OBJPROP_READONLY, true);
   ObjectSetInteger(0, objectName2, OBJPROP_SELECTABLE, false);
   ObjectSetString(0, objectName2, OBJPROP_FONT, "ＭＳ ゴシック");
   ObjectSetInteger(0, objectName2, OBJPROP_FONTSIZE, 8);

   return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| Expert deinitialization function                                   |
//+------------------------------------------------------------------+
void OnDeinit(const int reason){
//---
   ObjectDelete(0,objectName); 
   ObjectDelete(0,objectName2);   
}

//+------------------------------------------------------------------+
//| Expert tick function                                              |
//+------------------------------------------------------------------+
void OnTick(){
   int total=0,orderPtn=0;
   bool OrderKekka=false;
   string message;

//***決済判断箇所***//   
   Posi_CntDel(OP_BUY);
   Posi_CntDel(OP_SELL);
//***決済判断箇所***//

//***売買箇所***//
   orderPtn = Entry_Chk(OP_BUY);
   OrderKekka = Main_Syori(OP_BUY,orderPtn);  //ロング処理   
   
   orderPtn = Entry_Chk(OP_SELL);
   OrderKekka = Main_Syori(OP_SELL,orderPtn);  //ショート処理
//***売買箇所***//

   total=funcOrder_Select(OP_BUY,0,MAGIC_NO,Main_ea_ticket);
   total_buf_L = total;
   
   total=funcOrder_Select(OP_SELL,0,MAGIC_NO,Main_ea_ticket);
   total_buf_S = total;

   message="Lポジション数:" + IntegerToString(total_buf_L) + " Sポジション数:" + IntegerToString(total_buf_S);
   ObjectSetString(0, objectName, OBJPROP_TEXT, message);
   
   message= nanpin_message_L + " " + nanpin_message_S;
   ObjectSetString(0, objectName2, OBJPROP_TEXT, message);    
}

//+------------------------------------------------------------------+
int Entry_Chk(int e_type){
int orderPtn=0,total=0;

   total=funcOrder_Select(e_type,0,MAGIC_NO,Main_ea_ticket);

   //基本エントリー
   if(total == 0){
   
      if(SELECT_INDI == 0){
         double STOC_atai1 = iStochastic(NULL,0,I_PRAM1,I_PRAM2,I_PRAM3,MODE_SMA,0,0,1);
         double STOC_atai2 = iStochastic(NULL,0,I_PRAM1,I_PRAM2,I_PRAM3,MODE_SMA,0,0,2);   
      
         if(e_type == OP_BUY){
            if(STOC_atai1 < E_KAI && STOC_atai2 > STOC_atai1)
            {
               orderPtn=1;
            }
         }

         if(e_type == OP_SELL){      
            if(STOC_atai1 > E_URI && STOC_atai2 < STOC_atai1)
            {
               orderPtn=2;
            }
         }
      }

      if(SELECT_INDI == 1){
         double RSI_atai1   = iRSI(NULL, 0, I_PRAM1, PRICE_CLOSE, 1);
         double RSI_atai2   = iRSI(NULL, 0, I_PRAM1, PRICE_CLOSE, 2);
      
         if(e_type == OP_BUY){
            if(RSI_atai1 < E_KAI && RSI_atai2 > E_KAI)
            {
               orderPtn=1;
            }
         }

         if(e_type == OP_SELL){      
            if(RSI_atai1 > E_URI && RSI_atai2 < E_URI)
            {
               orderPtn=2;
            }
         }
      }
      
      //新しい足ができた時だけ新規エントリーする(ナンピンは常時監視)
      if(Time[0] != prevtime){
         if(e_type == OP_SELL){
            prevtime = Time[0];
         }
      }else{
         orderPtn=0;   
      }
   
   //ナンピンエントリー
   }else{
      double GP = getProfit(e_type,0,MAGIC_NO);
         
      double nanpin_H;
      nanpin_H = NANPIN_HABA * -1;
   
      if(GP<= nanpin_H - MarketInfo(NULL,MODE_SPREAD) / 10 ){
         if(e_type==OP_BUY){
            orderPtn=1;
         }
         if(e_type==OP_SELL){
            orderPtn=2;
         }
      }
      
      double Pips_keisan = ((nanpin_H * -1)  + MarketInfo(NULL,MODE_SPREAD) / 10) + GP;
      
      if(e_type==OP_BUY){
         nanpin_message_L ="Lナンピン目安:あと"+ DoubleToString(Pips_keisan,1) + "pips";
      }
      if(e_type==OP_SELL){
         nanpin_message_S ="Sナンピン目安:あと"+ DoubleToString(Pips_keisan,1) + "pips" ;
      }
   }

   if(total==0 && orderPtn!=0){
      if(orderPtn==1){
         Print("【買いエントリー】");   
      }
      if(orderPtn==2){
         Print("【売りエントリー】");   
      }
   }

   if(total>0 && orderPtn!=0 && total < MAX_POSISION){
      if(orderPtn==1){
         Print("【買いナンピン】 "+IntegerToString(total) + "回目");   
      }
      if(orderPtn==2){
         Print("【売りナンピン】 "+IntegerToString(total) + "回目");   
      }
   }

   return(orderPtn);
}

//+------------------------------------------------------------------+
//|【関数】全決済関数
//+------------------------------------------------------------------+
bool all_Del(int type){
   int total = OrdersTotal();

   for(int i = total-1; i >= 0; i--) {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
         int ot = OrderType();
         int magic = OrderMagicNumber();

         if(OrderSymbol() == Symbol() && magic == MAGIC_NO ) {

            if(type == 2 || ot == type) {
               double lots   = OrderLots();
               double price  = (ot == OP_BUY ? Bid : Ask);

               bool result = OrderClose(OrderTicket(), lots, price, 10, clrCyan);
               if(!result) {
                  Print("全決済失敗: Ticket=", OrderTicket(), " Error=", GetLastError());
               }
            }
         }
      }
   }
   return(true);
}

～～～省略～～～