EMAクロスEAをMQL4で作る——コード解説とバックテスト最適化の実践ガイド

double iMA(
    string symbol,    // 通貨ペア（Null=現在のチャート）
    int timeframe,    // 時間足（0=現在の時間足）
    int ma_period,    // 期間
    int ma_shift,     // シフト（通常0）
    int ma_method,    // 計算方式（1=EMA）
    int applied_price,// 適用価格（0=終値）
    int shift         // バー番号（0=現在足、1=1本前）
)

//+------------------------------------------------------------------+
//| EMA Cross EA — シンプル実装                                       |
//| 短期EMAが長期EMAをクロスしたときに売買                             |
//+------------------------------------------------------------------+
#property strict

// 入力パラメータ
input int    FastPeriod  = 12;       // 短期EMA期間
input int    SlowPeriod  = 26;       // 長期EMA期間
input double LotSize     = 0.1;      // ロット数
input int    StopLoss    = 50;       // 損切り（pips）
input int    TakeProfit  = 100;      // 利確（pips）
input int    MagicNumber = 20260001; // EA識別番号

//+------------------------------------------------------------------+
//| OnTick() — ティック毎に実行                                        |
//+------------------------------------------------------------------+
void OnTick()
{
    // 足が確定しているかチェック（新しい足が開いた瞬間のみ処理）
    static datetime lastBarTime = 0;
    if(Time[0] == lastBarTime) return;
    lastBarTime = Time[0];

    // EMA値の取得
    double fastEMA_current  = iMA(NULL, 0, FastPeriod, 0, MODE_EMA, PRICE_CLOSE, 0);
    double fastEMA_prev     = iMA(NULL, 0, FastPeriod, 0, MODE_EMA, PRICE_CLOSE, 1);
    double slowEMA_current  = iMA(NULL, 0, SlowPeriod, 0, MODE_EMA, PRICE_CLOSE, 0);
    double slowEMA_prev     = iMA(NULL, 0, SlowPeriod, 0, MODE_EMA, PRICE_CLOSE, 1);

    // 既存ポジションの確認
    bool hasPosition = false;
    for(int i = 0; i < OrdersTotal(); i++)
    {
        if(OrderSelect(i, SELECT_BY_POS) && OrderMagicNumber() == MagicNumber)
        {
            hasPosition = true;
            break;
        }
    }

    // ゴールデンクロス判定（前足では短期＜長期、現在足では短期＞長期）
    bool goldenCross = (fastEMA_prev < slowEMA_prev) && (fastEMA_current > slowEMA_current);

    // デッドクロス判定
    bool deadCross   = (fastEMA_prev > slowEMA_prev) && (fastEMA_current < slowEMA_current);

    double point  = MarketInfo(Symbol(), MODE_POINT);
    int    digits = (int)MarketInfo(Symbol(), MODE_DIGITS);
    double multiplier = (digits == 3 || digits == 5) ? 10 : 1; // 5桁通貨ペア対応

    // BUYエントリー
    if(goldenCross && !hasPosition)
    {
        double sl = Ask - StopLoss  * point * multiplier;
        double tp = Ask + TakeProfit * point * multiplier;
        int ticket = OrderSend(Symbol(), OP_BUY, LotSize, Ask, 3, sl, tp,
                               "EMA Cross EA", MagicNumber, 0, clrBlue);
        if(ticket < 0)
            Print("OrderSend Error: ", GetLastError());
    }

    // SELLエントリー
    if(deadCross && !hasPosition)
    {
        double sl = Bid + StopLoss  * point * multiplier;
        double tp = Bid - TakeProfit * point * multiplier;
        int ticket = OrderSend(Symbol(), OP_SELL, LotSize, Bid, 3, sl, tp,
                               "EMA Cross EA", MagicNumber, 0, clrRed);
        if(ticket < 0)
            Print("OrderSend Error: ", GetLastError());
    }
}

// 悪い例（確定前の足で判定してしまう）
double fast_now = iMA(NULL, 0, FastPeriod, 0, MODE_EMA, PRICE_CLOSE, 0);
double slow_now = iMA(NULL, 0, SlowPeriod, 0, MODE_EMA, PRICE_CLOSE, 0);
if(fast_now > slow_now) // ← 足確定前に何度も条件を満たす可能性

// リスクベースのロット計算例（口座残高の2%リスク）
double riskPercent = 2.0;
double accountBalance = AccountBalance();
double riskAmount = accountBalance * riskPercent / 100;
double lotSize = riskAmount / (StopLoss * MarketInfo(Symbol(), MODE_TICKVALUE) * multiplier);
lotSize = NormalizeDouble(lotSize, 2); // ロット数を小数点2桁に丸める

// ストップレベル確認
double minStop = MarketInfo(Symbol(), MODE_STOPLEVEL) * point;
if(StopLoss * point * multiplier < minStop)
{
    Print("Warning: StopLoss is below minimum stop level");
    return;
}