EA入門 -FX・自動売買初心者はまずはここから-

//+------------------------------------------------------------------+
//| シンプルで堅牢なトレンドフォローEA
//| 機能: 
//|  - 移動平均(MA)を使ったシンプルなトレンド検出 (fastMA / slowMA)
//|  - ATRを利用した動的なストップロス・テイクプロフィット設定
//|  - 口座残高の％に基づくリスク管理（ロット自動計算
//|  - トレーリングストップ機能
//|  - フィルタ機能（最大スプレッド、取引時間、金曜取引制限など）
//+------------------------------------------------------------------+
#property copyright "Created by codelabsjp"
#property version   "1.00"
#property strict

//==============================
// 入力パラメータ（ユーザー設定可能）
//==============================
input int    FastMAPeriod      = 20;      // 短期移動平均の期間
input int    SlowMAPeriod      = 50;      // 長期移動平均の期間
input ENUM_MA_METHOD MA_Method = MODE_SMA; // MAの種類（SMA, EMAなど）
input ENUM_APPLIED_PRICE MA_Price = PRICE_CLOSE; // MA計算に使用する価格

input double RiskPercent      = 1.0;     // 1回の取引でリスクに晒す資金割合（％）
input double ATR_Multiplier   = 2.0;     // ATRに対するSL倍率（例：2なら2×ATRをSLに設定）
input int    ATR_Period       = 14;      // ATRの計算期間
input int    Slippage         = 3;       // スリッページ許容値（ポイント単位）

input bool   UseTrailingStop  = true;    // トレーリングストップを有効にするか
input int    TrailingStartPips= 30;      // 利益がこのpipsを超えたらトレール開始
input int    TrailingStepPips = 10;      // トレーリング幅（pips）

input double MinLot           = 0.01;    // 最小ロット
input double LotStep          = 0.01;    // ロット刻み幅
input double MaxLot           = 1.0;     // 最大ロット

input int    MagicNumber      = 20251107; // このEA専用の識別番号
input double MaxSpreadPoints  = 50;      // 許容スプレッドの最大値（ポイント単位）
input bool   TradeOnFriday    = false;   // 金曜日の取引を許可するかどうか

//--- 変数宣言
datetime lastTradeTime=0; // 最後に取引を行った時間（連続発注防止用）

//==============================
// 初期化処理
//==============================
int OnInit()
    {
     return(INIT_SUCCEEDED);
    }

//==============================
// 終了処理
//==============================
void OnDeinit(const int reason)
    {
    }

//==============================
// 毎ティック呼ばれるメインループ
//==============================
void OnTick()
    {
     // --- 取引できる状態かチェック（曜日・データ数・連続取引制限など）
     if(!CanTradeNow()) return;

     // --- テクニカル指標の計算
     double fastMA = iMA(NULL,0,FastMAPeriod,0,MA_Method,MA_Price,0);
     double slowMA = iMA(NULL,0,SlowMAPeriod,0,MA_Method,MA_Price,0);
     double atr     = iATR(NULL,0,ATR_Period,0);

     // --- スプレッドチェック（広すぎる場合はスキップ）
     double spread = (MarketInfo(Symbol(),MODE_ASK)-MarketInfo(Symbol(),MODE_BID))/Point;
        if(spread>MaxSpreadPoints) return;

     // --- 現在ポジション数を確認（マジックナンバーと通貨ペアで絞る）
     int totalPos = CountOpenOrdersForMagic();

     //=========================================================
     // ① エントリー判定（ポジションがない場合のみ発注）
     //=========================================================
        if(totalPos==0)
         {
            // --- 買いシグナル：短期MA > 長期MA
            if(fastMA>slowMA)
                {
                 double stopLossPrice = NormalizeDouble(Bid - ATR_Multiplier*atr,Digits);
                 double takeProfitPrice = NormalizeDouble(Ask + ATR_Multiplier*atr*2,Digits);
                 double lot = CalculateLotSize(ATR_Multiplier*atr);
                if(lot>=MinLot) SendOrder(OP_BUY,lot,Ask,stopLossPrice,takeProfitPrice);
                }

            // --- 売りシグナル：短期MA < 長期MA
            else if(fastMA<slowMA)
                {
                 double stopLossPrice = NormalizeDouble(Ask + ATR_Multiplier*atr,Digits);
                 double takeProfitPrice = NormalizeDouble(Bid - ATR_Multiplier*atr*2,Digits);
                 double lot = CalculateLotSize(ATR_Multiplier*atr);
                if(lot>=MinLot) SendOrder(OP_SELL,lot,Bid,stopLossPrice,takeProfitPrice);
                }
         }

     //=========================================================
     // ② トレーリングストップの管理
     //=========================================================
     else
         {
            if(UseTrailingStop) ManageTrailingStop();
         }
    }

//==============================
// トレード可能か判定（曜日・データ数など）
//==============================
bool CanTradeNow()
    {
     // 金曜日の取引を禁止する設定
     if(!TradeOnFriday)
         {
            int day = TimeDayOfWeek(TimeCurrent()); // 0=日曜, 5=金曜
            if(day==5) return(false);
         }

     // チャートのデータが足りない場合はスキップ
        if(Bars<SlowMAPeriod+10) return(false);

     // 同一分内での重複エントリー防止
     if(TimeCurrent()==lastTradeTime) return(false);

     return(true);
    }

//==============================
// 現在のシンボル＋マジック番号のポジション数をカウント
//==============================
int CountOpenOrdersForMagic()
    {
     int count=0;
         for(int i=OrdersTotal()-1;i>=0;i--)
         {
            if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
                {
                 if(OrderMagicNumber()==MagicNumber && OrderSymbol()==Symbol())
                        count++;
                }
         }
     return(count);
    }

//==============================
// ロットサイズ自動計算（リスク％ベース）
//==============================
double CalculateLotSize(double stopDistance)
    {
     // stopDistance は価格単位なので、pips換算へ変換
     double pipValue = Point;
     if(Digits==3 || Digits==5) pipValue = Point*10; // 3桁/5桁ブローカー対応

     double stopPips = stopDistance / pipValue;
        if(stopPips<=0) stopPips=10; // フォールバック安全値

     // リスク許容額（例：口座残高の1%）
     double equity = AccountEquity();
     double riskAmount = equity * (RiskPercent/100.0);

     // 1ロットあたりの1pipsの価値を取得
     double valuePerPip = MarketInfo(Symbol(),MODE_TICKVALUE);
        if(valuePerPip<=0) valuePerPip = 1.0;

     // リスク金額 ÷ (ストップ距離×1pips価値) = ロット数
     double lots = riskAmount / (stopPips * valuePerPip);

     // ロットサイズを制限範囲内に調整
     lots = MathMax(lots,MinLot);
     lots = MathMin(lots,MaxLot);

     // ロット刻みに合わせて丸め
     double steps = MathRound(lots/LotStep);
     lots = steps * LotStep;
     lots = NormalizeDouble(lots,2);

     return(lots);
    }

//==============================
// 注文送信（発注処理）
//==============================
void SendOrder(int cmd,double lots,double price,double sl,double tp)
    {
     // 再度スプレッドとロット確認
     double spread = (MarketInfo(Symbol(),MODE_ASK)-MarketInfo(Symbol(),MODE_BID))/Point;
        if(spread>MaxSpreadPoints) return;
        if(lots<MinLot) return;

     int ticket;
     if(cmd==OP_BUY)
         ticket = OrderSend(Symbol(),OP_BUY,lots,price,Slippage,sl,tp,NULL,MagicNumber,0,clrBlue);
     else
         ticket = OrderSend(Symbol(),OP_SELL,lots,price,Slippage,sl,tp,NULL,MagicNumber,0,clrRed);

         if(ticket<0)
         Print("OrderSend failed: ",GetLastError());
     else
         {
            Print("Order opened: ",ticket," lot=",DoubleToStr(lots,2));
            lastTradeTime = TimeCurrent(); // 重複防止用に記録
         }
    }

//==============================
// トレーリングストップの管理
//==============================
void ManageTrailingStop()
    {
         for(int i=OrdersTotal()-1;i>=0;i--)
         {
            if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
                {
                 if(OrderMagicNumber()!=MagicNumber || OrderSymbol()!=Symbol()) continue;

                 // --- 買いポジションのトレール処理
                 if(OrderType()==OP_BUY)
                     {
                        double profitPips = (Bid - OrderOpenPrice())/Point;
                        if(Digits==3||Digits==5) profitPips/=10.0;

                            if(profitPips>=TrailingStartPips)
                            {
                             double newSL = Bid - TrailingStepPips*Point;
                             if(Digits==3||Digits==5) newSL = Bid - TrailingStepPips*Point*10.0;
                             newSL = NormalizeDouble(newSL,Digits);

                                if(newSL>OrderStopLoss())
                                 {
                                    bool res = OrderModify(OrderTicket(),OrderOpenPrice(),newSL,OrderTakeProfit(),0,clrBlue);
                                    if(!res) Print("Trailing modify failed: ",GetLastError());
                                 }
                            }
                     }

                 // --- 売りポジションのトレール処理
                 else if(OrderType()==OP_SELL)
                     {
                        double profitPips = (OrderOpenPrice() - Ask)/Point;
                        if(Digits==3||Digits==5) profitPips/=10.0;

                            if(profitPips>=TrailingStartPips)
                            {
                             double newSL = Ask + TrailingStepPips*Point;
                             if(Digits==3||Digits==5) newSL = Ask + TrailingStepPips*Point*10.0;
                             newSL = NormalizeDouble(newSL,Digits);

                                if(newSL<OrderStopLoss() || OrderStopLoss()==0)
                                 {
                                    bool res = OrderModify(OrderTicket(),OrderOpenPrice(),newSL,OrderTakeProfit(),0,clrRed);
                                    if(!res) Print("Trailing modify failed: ",GetLastError());
                                 }
                            }
                     }
                }
         }
    }