【PO-EA#1】AIでEA作成は可能？Claudeのコードをエンジニアが修正した驚きの結果

//+------------------------------------------------------------------+
//|                                           PerfectOrder_AI_EA.mq4 |
//|                               Copyright 2026, MQL Lab Tomoshibi. |
//|                                    https://mql-lab-tomoshibi.com |
//+------------------------------------------------------------------+
#property copyright "Perfect Order EA with AI Filter"
#property copyright "Copyright 2026, MQL Lab Tomoshibi."
#property link "https://mql-lab-tomoshibi.com"
#property version   "1.00"
#property strict

//--- 入力パラメーター
input int      MagicNumber = 123456;           // マジックナンバー
input double   LotSize = 0.1;                  // ロットサイズ
input int      Slippage = 3;                   // スリッページ（pips）
input int      MaxSpread = 30;                 // 最大スプレッド（ポイント）

//--- EMAパラメーター
input int      EMA_Short = 20;                 // 短期EMA期間
input int      EMA_Medium = 75;                // 中期EMA期間
input int      EMA_Long = 200;                 // 長期EMA期間

//--- AIフィルターパラメーター
input double   MinEMA200Angle = 0.0001;        // EMA200の最小角度（変化量）
input int      EMA200AngleBars = 5;            // EMA200角度計算本数
input int      ATR_Period = 14;                // ATR期間
input int      ATR_CheckBars = 50;             // ATR比較本数
input double   ATR_Multiplier = 1.0;           // ATR倍率（平均の何倍以上か）

//--- グローバル変数
int ticket = -1;
bool tradeAllowed = true;

//+------------------------------------------------------------------+
//| Expert initialization function                                     |
//+------------------------------------------------------------------+
int OnInit()
{
   Print("===== パーフェクトオーダー AI EA 起動 =====");
   Print("短期EMA: ", EMA_Short, " / 中期EMA: ", EMA_Medium, " / 長期EMA: ", EMA_Long);
   Print("マジックナンバー: ", MagicNumber);
   Print("ロットサイズ: ", LotSize);
   
   return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| Expert deinitialization function                                   |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
   Print("===== EA 停止 =====");
}

//+------------------------------------------------------------------+
//| Expert tick function                                               |
//+------------------------------------------------------------------+
void OnTick()
{
   // スプレッドチェック
   double spread = MarketInfo(Symbol(), MODE_SPREAD);
   if(spread > MaxSpread)
   {
      return; // スプレッドが広すぎる場合は取引しない
   }
   
   // EMA値を取得（現在の足）
   double ema_short_current = iMA(Symbol(), 0, EMA_Short, 0, MODE_EMA, PRICE_CLOSE, 0);
   double ema_medium_current = iMA(Symbol(), 0, EMA_Medium, 0, MODE_EMA, PRICE_CLOSE, 0);
   double ema_long_current = iMA(Symbol(), 0, EMA_Long, 0, MODE_EMA, PRICE_CLOSE, 0);
   
   // EMA値を取得（1本前の足）- デッドクロス判定用
   double ema_short_prev = iMA(Symbol(), 0, EMA_Short, 0, MODE_EMA, PRICE_CLOSE, 1);
   double ema_medium_prev = iMA(Symbol(), 0, EMA_Medium, 0, MODE_EMA, PRICE_CLOSE, 1);
   
   // AIフィルター条件をチェック
   bool aiFilterPassed = CheckAIFilter();
   
   // ポジション保有チェック
   bool hasPosition = false;
   int positionType = -1;
   
   for(int i = OrdersTotal() - 1; i >= 0; i--)
   {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
      {
         if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
         {
            hasPosition = true;
            positionType = OrderType();
            ticket = OrderTicket();
            break;
         }
      }
   }
   
   // ポジションがある場合は決済条件をチェック
   if(hasPosition)
   {
      CheckCloseCondition(positionType, ema_short_current, ema_medium_current, 
                         ema_short_prev, ema_medium_prev);
   }
   else
   {
      // ポジションがない場合はエントリー条件をチェック
      if(aiFilterPassed)
      {
         // 買いパーフェクトオーダー（上昇トレンド）
         if(ema_short_current > ema_medium_current && 
            ema_medium_current > ema_long_current)
         {
            OpenBuyOrder();
         }
         // 売りパーフェクトオーダー（下降トレンド）
         else if(ema_short_current < ema_medium_current && 
                 ema_medium_current < ema_long_current)
         {
            OpenSellOrder();
         }
      }
   }
}

//+------------------------------------------------------------------+
//| AIフィルター条件チェック                                              |
//+------------------------------------------------------------------+
bool CheckAIFilter()
{
   // 1. EMA200の角度チェック
   double ema200_current = iMA(Symbol(), 0, EMA_Long, 0, MODE_EMA, PRICE_CLOSE, 0);
   double ema200_past = iMA(Symbol(), 0, EMA_Long, 0, MODE_EMA, PRICE_CLOSE, EMA200AngleBars);
   double ema200_change = MathAbs(ema200_current - ema200_past);
   
   if(ema200_change < MinEMA200Angle)
   {
      return false; // 角度が不十分
   }
   
   // 2. ATRボラティリティチェック
   double atr_current = iATR(Symbol(), 0, ATR_Period, 0);
   
   // 過去50本のATR平均を計算
   double atr_sum = 0;
   for(int i = 1; i <= ATR_CheckBars; i++)
   {
      atr_sum += iATR(Symbol(), 0, ATR_Period, i);
   }
   double atr_average = atr_sum / ATR_CheckBars;
   
   if(atr_current < atr_average * ATR_Multiplier)
   {
      return false; // ボラティリティが不十分
   }
   
   return true; // すべてのAIフィルター条件をクリア
}

//+------------------------------------------------------------------+
//| 買いポジションオープン                                                |
//+------------------------------------------------------------------+
void OpenBuyOrder()
{
   double ask = MarketInfo(Symbol(), MODE_ASK);
   int slippage_points = Slippage * 10; // pipsをポイントに変換
   
   ticket = OrderSend(Symbol(), OP_BUY, LotSize, ask, slippage_points, 
                     0, 0, "PerfectOrder Buy", MagicNumber, 0, clrBlue);
   
   if(ticket > 0)
   {
      Print("買いポジションオープン成功: チケット#", ticket, " 価格:", ask);
   }
   else
   {
      Print("買いポジションオープン失敗: エラー", GetLastError());
   }
}

//+------------------------------------------------------------------+
//| 売りポジションオープン                                                |
//+------------------------------------------------------------------+
void OpenSellOrder()
{
   double bid = MarketInfo(Symbol(), MODE_BID);
   int slippage_points = Slippage * 10; // pipsをポイントに変換
   
   ticket = OrderSend(Symbol(), OP_SELL, LotSize, bid, slippage_points, 
                     0, 0, "PerfectOrder Sell", MagicNumber, 0, clrRed);
   
   if(ticket > 0)
   {
      Print("売りポジションオープン成功: チケット#", ticket, " 価格:", bid);
   }
   else
   {
      Print("売りポジションオープン失敗: エラー", GetLastError());
   }
}

//+------------------------------------------------------------------+
//| 決済条件チェック                                                     |
//+------------------------------------------------------------------+
void CheckCloseCondition(int posType, double ema_s_curr, double ema_m_curr,
                        double ema_s_prev, double ema_m_prev)
{
   bool shouldClose = false;
   
   if(posType == OP_BUY)
   {
      // 買いポジション：短期EMAが中期EMAを下抜け（デッドクロス）
      if(ema_s_prev >= ema_m_prev && ema_s_curr < ema_m_curr)
      {
         shouldClose = true;
         Print("買いポジション決済シグナル: デッドクロス検出");
      }
   }
   else if(posType == OP_SELL)
   {
      // 売りポジション：短期EMAが中期EMAを上抜け（ゴールデンクロス）
      if(ema_s_prev <= ema_m_prev && ema_s_curr > ema_m_curr)
      {
         shouldClose = true;
         Print("売りポジション決済シグナル: ゴールデンクロス検出");
      }
   }
   
   if(shouldClose)
   {
      ClosePosition(posType);
   }
}

//+------------------------------------------------------------------+
//| ポジションクローズ                                                   |
//+------------------------------------------------------------------+
void ClosePosition(int posType)
{
   if(OrderSelect(ticket, SELECT_BY_TICKET))
   {
      double closePrice;
      color closeColor;
      
      if(posType == OP_BUY)
      {
         closePrice = MarketInfo(Symbol(), MODE_BID);
         closeColor = clrBlue;
      }
      else
      {
         closePrice = MarketInfo(Symbol(), MODE_ASK);
         closeColor = clrRed;
      }
      
      int slippage_points = Slippage * 10;
      bool result = OrderClose(ticket, OrderLots(), closePrice, slippage_points, closeColor);
      
      if(result)
      {
         Print("ポジションクローズ成功: チケット#", ticket, " 価格:", closePrice);
         ticket = -1;
      }
      else
      {
         Print("ポジションクローズ失敗: エラー", GetLastError());
      }
   }
}
//+------------------------------------------------------------------+