【MQL5】CLKernelCreate関数の使い方と自動売買実装コード

int  CLKernelCreate(
   int           program,      // CLProgramCreateで取得したプログラムのハンドル
   string        kernel_name   // OpenCLソースコード内で定義した関数名
   );

//--- OpenCLのソースコード (文字列で定義)
const string cl_src =
   "__kernel void VectorAdd(__global const float *a, __global const float *b, __global float *result) \r\n"
   "{                                                                     \r\n"
   "   uint i = get_global_id(0);                                         \r\n"
   "   result[i] = a[i] + b[i];                                           \r\n"
   "}                                                                     \r\n";

int handle_cl_ctx;     // コンテキストのハンドル
int handle_cl_prg;     // プログラムのハンドル
int handle_cl_krn;     // カーネルのハンドル (CLKernelCreateで使用)

//+------------------------------------------------------------------+
//| エキスパート初期化関数                                             |
//+------------------------------------------------------------------+
int OnInit()
{
   // 1. OpenCLコンテキストの作成
   handle_cl_ctx = CLContextCreate(CL_USE_ANY);
   if(handle_cl_ctx == INVALID_HANDLE) return(INIT_FAILED);

   // 2. プログラムの作成とコンパイル
   handle_cl_prg = CLProgramCreate(handle_cl_ctx, cl_src);
   if(handle_cl_prg == INVALID_HANDLE) return(INIT_FAILED);

   // 3. カーネルの作成 (ここが今回のメイン！)
   // ソースコード内の関数名 "VectorAdd" を指定します
   handle_cl_krn = CLKernelCreate(handle_cl_prg, "VectorAdd");

   if(handle_cl_krn == INVALID_HANDLE)
   {
      Print("カーネル作成失敗。エラーコード: ", GetLastError());
      return(INIT_FAILED);
   }

   Print("カーネルの作成に成功しました。ハンドル: ", handle_cl_krn);
   return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| エキスパート終了処理                                               |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
   // ハンドルの解放（作成した順と逆に解放するのがクオンツの作法です）
   CLKernelFree(handle_cl_krn);
   CLProgramFree(handle_cl_prg);
   CLContextFree(handle_cl_ctx);
}