EAでアリゲーターを使う（サンプルソース）

//+------------------------------------------------------------------+
//|                                               Alligator_TEST.mq4 |
//|                                    Copyright 2020, mef Software. |
//|                                             https://fx-prog.com/ |
//+------------------------------------------------------------------+
#property copyright "Copyright 2020, mef Software."
#property link      "https://fx-prog.com/"
#property version   "1.00"
   
input int J_KIKAN = 13;
input int J_Shift = 8;
input int T_KIKAN = 8;
input int T_Shift = 5;
input int L_KIKAN = 5;
input int L_Shift = 3;
 
input int A_SPREAD = 20;
input double Lots = 0.01;
 
input int SL = 300;
   
 
datetime prevtime;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//---
          
//---
   return(INIT_SUCCEEDED);
  }
       
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
int start()
{
int orderPtn=0; //0:何もしない 1:買い 2:売り
int total=0;
       
double ea_order_stop_price=0,ea_order_good_price=0; //ストップロスレート,利確レート,エントリーレート
bool OrderKekka;
      
//---
   //新しい足ができた時だけやる
   if(Time[0] != prevtime){
      prevtime = Time[0];
   }else{
      return(0);
   }
       
//***売買判断箇所***//
   
   //ジョーズライン
   double JAW_ATAI_1 = iAlligator(NULL, 0, J_KIKAN, J_Shift, T_KIKAN, T_Shift, L_KIKAN ,L_Shift, MODE_SMMA, PRICE_MEDIAN, MODE_GATORJAW, 1);
   double JAW_ATAI_2 = iAlligator(NULL, 0, J_KIKAN, J_Shift, T_KIKAN, T_Shift, L_KIKAN ,L_Shift, MODE_SMMA, PRICE_MEDIAN, MODE_GATORJAW, 2);
   
   //ティースライン
   double TEETH_ATAI_1 = iAlligator(NULL, 0, J_KIKAN, J_Shift, T_KIKAN, T_Shift, L_KIKAN ,L_Shift, MODE_SMMA, PRICE_MEDIAN, MODE_GATORTEETH, 1);
   double TEETH_ATAI_2 = iAlligator(NULL, 0, J_KIKAN, J_Shift, T_KIKAN, T_Shift, L_KIKAN ,L_Shift, MODE_SMMA, PRICE_MEDIAN, MODE_GATORTEETH, 2);
   
   //リップスライン
   double LIPS_ATAI_1 = iAlligator(NULL, 0, J_KIKAN, J_Shift, T_KIKAN, T_Shift, L_KIKAN ,L_Shift, MODE_SMMA, PRICE_MEDIAN, MODE_GATORLIPS, 1);
   double LIPS_ATAI_2 = iAlligator(NULL, 0, J_KIKAN, J_Shift, T_KIKAN, T_Shift, L_KIKAN ,L_Shift, MODE_SMMA, PRICE_MEDIAN, MODE_GATORLIPS, 2);
   
   //ローソク足の1つ前のクローズ値情報を取得しておく
   double rosokuValueCloseP = iClose(NULL, 0, 1);
   
   
   //リップスラインのゴールデンクロスでロング（ジョーズラインが上を向いている事）  
   if(LIPS_ATAI_1 > TEETH_ATAI_1 && LIPS_ATAI_1 > JAW_ATAI_1 && JAW_ATAI_2 < JAW_ATAI_1 && rosokuValueCloseP > LIPS_ATAI_1)
   {
         //ロングエントリー
         orderPtn=1;
   }
   //リップスラインのデッドクロスでショート（ジョーズラインが下を向いている事）     
   else if(LIPS_ATAI_1 < TEETH_ATAI_1 && LIPS_ATAI_1 < JAW_ATAI_1 && JAW_ATAI_2 > JAW_ATAI_1 && rosokuValueCloseP < LIPS_ATAI_1)
   {
         //ショートエントリー   
         orderPtn=2;
   }
   else
   {
      //エントリーしない   
      orderPtn=0;
   }
   
//***売買判断箇所***//
   
   total=OrdersTotal();
   if(total == 1){
      OrderKekka = OrderSelect(0,SELECT_BY_POS,MODE_TRADES);
      //買いエントリー中に、ショートエントリーのサインが出たら決済する
      if(OrderKekka == true && OrderType() == OP_BUY && LIPS_ATAI_1 > rosokuValueCloseP){
         if(orderPtn==2 || LIPS_ATAI_1 < JAW_ATAI_1){
            OrderKekka = OrderClose(OrderTicket(),OrderLots(),Bid,10,Violet);
         }
      }
      //売りエントリー中に、ロングエントリーのサインが出たら決済する      
      else if(OrderKekka == true && OrderType() == OP_SELL && LIPS_ATAI_1 < rosokuValueCloseP){
         if(orderPtn==1 || LIPS_ATAI_1 > JAW_ATAI_1){
            OrderKekka = OrderClose(OrderTicket(),OrderLots(),Ask,10,Violet);
         }
      }
   }
   
       
//***決済判断箇所***//
   total=OrdersTotal();
   if(total ==0 && orderPtn > 0)   
   {
      if(orderPtn == 1)
      {
         ea_order_stop_price = JAW_ATAI_1 - SL * Point;
         ea_order_good_price = 0;     
      }
      else if(orderPtn == 2)
      {
         ea_order_stop_price = JAW_ATAI_1 + SL * Point;  
         ea_order_good_price = 0;  
      }   
      
      //新規注文
      OrderKekka = funcOrder_Send(orderPtn - 1,ea_order_stop_price,ea_order_good_price,0,0);
      
   }
         
   return(0);
}
      
//+------------------------------------------------------------------+
//|【関数】新規注文関数                                                 |
//|                                                                  |
//|【引数】 ea_order_entry_Type:売買(0:買 1:売)                         |
//|【引数】 ea_order_stop_price:損切値  ea_order_good_price:利確値      |
//|【引数】 orderComment:オーダーコメント    ea_order_MagicNo:マジックNo       |
//|                                                                  |
//|【戻値】True:成功                                                   |
//|                                                                  |
//| 
bool funcOrder_Send(int ea_order_entry_Type, double ea_order_stop_price, double ea_order_good_price,int orderComment,int ea_order_MagicNo)
{
      
   int order_resend_num;        // エントリー試行回数
   int ea_ticket_res;           // チケットNo
   int errorcode;               // エラーコード
   double ea_order_entry_price; // エントリーレート
   color order_Color;
   bool kekka;
         
   for( order_resend_num = 0; order_resend_num < 10; order_resend_num++ ) {    // エントリー試行回数上限:10回
      
      if(MarketInfo(NULL,MODE_SPREAD) < A_SPREAD){
      
         if(ea_order_entry_Type == OP_BUY){   
            ea_order_entry_price = Ask;               // 現在の買値でエントリー
            order_Color = clrBlue;
         }else if(ea_order_entry_Type == OP_SELL){        
            ea_order_entry_price = Bid;               // 現在の売値でエントリー
            order_Color = clrRed;            
         }
      
         // FXCMでは新規エントリー時にストップ/リミットを設定出来ない。
         ea_ticket_res = OrderSend(   // 新規エントリー注文
            NULL,                     // 通貨ペア
            ea_order_entry_Type,      // オーダータイプ[OP_BUY / OP_SELL]
            Lots,                     // ロット[0.01単位](FXTFは1=10Lot)
            ea_order_entry_price,     // オーダープライスレート
            20,                       // スリップ上限    (int)[分解能 0.1pips]
            ea_order_stop_price,      // ストップレート
            ea_order_good_price,      // リミットレート
            orderComment,             // オーダーコメント
            ea_order_MagicNo,         // マジックナンバー(識別用)
            0,                        // オーダーリミット時間
            order_Color               // オーダーアイコンカラー
            );
      }
                  
      if ( ea_ticket_res == -1) {            // オーダーエラー
         errorcode = GetLastError();      // エラーコード取得
      
         if( errorcode != ERR_NO_ERROR) { // エラー発生
            printf("エラー");
         }
      
         Sleep(2000);                                           // 1000msec待ち
         RefreshRates();                                        // レート更新
      
         printf("再エントリー要求回数:%d, 更新エントリーレート:%g",order_resend_num+1 ,ea_order_entry_price);
      
      } else {    // 注文約定
         Print("新規注文約定。 チケットNo=",ea_ticket_res," レート:",ea_order_entry_price);
         Sleep(300);                                           // 300msec待ち(オーダー要求頻度が多過ぎるとエラーになる為)
                  
         break;
      }
   }
   return kekka;   
}