写交易方案,实现程序化交易,以下凑字数。。。bool COpenCL::KernelCreate(const int kernel_index,const string kernel_name)
{
if(m_context==INVALID_HANDLE || m_program==INVALID_HANDLE)
return(false);
//--- check parameters
if(kernel_index<0 || kernel_index>=m_kernels_total)
return(false);
//---
int kernel_handle=m_kernels[kernel_index];
if(kernel_handle==INVALID_HANDLE || m_kernel_names[kernel_index]!=kernel_name)
{
//--- create kernel
if((kernel_handle=CLKernelCreate(m_program,kernel_name))==INVALID_HANDLE)
{
CLProgramFree(m_program);
CLContextFree(m_context);
Print("OpenCL kernel create failed. Error code=",GetLastError());
return(false);
}
else
{
m_kernels[kernel_index]=kernel_handle;
m_kernel_names[kernel_index]=kernel_name;
}
}
return(true);
}