我在Mql5中创建了OpenCL的内核 .
这是代码：
const string cl_src =
//" int weightsum; \r\n"
" #pragma OPENCL EXTENSION cl_khr_fp64 : enable \r\n"
"__kernel void CalculateSimpleMA( \r\n"
"int rates_total, \r\n"
"int prev_calculated, \r\n"
"int begin, \r\n"
"int InpMAPeriod, \r\n"
"__global double *price, \r\n"
"__global double *ExtLineBuffer \r\n"
") \r\n"
"{ \r\n"
"int i,limit; \r\n"
"int len_price = get_global_id(4); \r\n"
//"int len_Ext = get_global_id(5); \r\n"
" if(prev_calculated==0)// first calculation \r\n"
" { \r\n"
"limit=InpMAPeriod+begin; \r\n"
"for(i=0;i<limit-1;i++) ExtLineBuffer[i]=0.0; \r\n"
"double firstValue=0; \r\n"
"for(i=begin;i<limit;i++) \r\n"
"firstValue+=price[i]; \r\n"
"firstValue/=InpMAPeriod; \r\n"
"ExtLineBuffer[limit-1]=firstValue; \r\n"
"} \r\n"
"else limit=prev_calculated-1; \r\n"
"for(i=limit;i<rates_total;i++) \r\n"
"ExtLineBuffer[i]=ExtLineBuffer[i-1]+(price[i]-price[i-InpMAPeriod])/InpMAPeriod;\r\n"
"} \r\n"
" \r\n"
"__kernel void CalculateEMA( \r\n"
"int rates_total, \r\n"
"int prev_calculated, \r\n"
"int begin, \r\n"
"int InpMAPeriod, \r\n"
"__global double *price, \r\n"
"__global double *ExtLineBuffer \r\n"
") \r\n"
"{ \r\n"
"int i,limit; \r\n"
"double SmoothFactor=2.0/(1.0+InpMAPeriod); \r\n"
"if(prev_calculated==0) \r\n"
"{ \r\n"
"limit=InpMAPeriod+begin; \r\n"
"ExtLineBuffer[begin]=price[begin]; \r\n"
"for(i=begin+1;i<limit;i++) \r\n"
"ExtLineBuffer[i]=price[i]*SmoothFactor+ExtLineBuffer[i-1]*(1.0-SmoothFactor); \r\n"
"} \r\n"
"else limit=prev_calculated-1; \r\n"
"for(i=limit;i<rates_total;i++) \r\n"
"ExtLineBuffer[i]=price[i]*SmoothFactor+ExtLineBuffer[i-1]*(1.0-SmoothFactor); \r\n"
"} \r\n"
" \r\n"
"__kernel void CalculateLWMA( \r\n"
"int rates_total, \r\n"
"int prev_calculated, \r\n"
"int begin, \r\n"
"int InpMAPeriod, \r\n"
"__global double *price, \r\n"
"__global double *ExtLineBuffer \r\n"
") \r\n"
"{ \r\n"
"int i,limit; \r\n"
"int weightsum; \r\n"
"double sum; \r\n"
"if(prev_calculated==0) \r\n"
"{ \r\n"
"weightsum=0; \r\n"
"limit=InpMAPeriod+begin; \r\n"
"for(i=0;i<limit;i++) ExtLineBuffer[i]=0.0; \r\n"
"double firstValue=0; \r\n"
"for(i=begin;i<limit;i++) \r\n"
"{ \r\n"
"int k=i-begin+1; \r\n"
"weightsum+=k; \r\n"
"firstValue+=k*price[i]; \r\n"
"} \r\n"
"firstValue/=(double)weightsum; \r\n"
"ExtLineBuffer[limit-1]=firstValue; \r\n"
"} \r\n"
"else limit=prev_calculated-1; \r\n"
"for(i=limit;i<rates_total;i++) \r\n"
"{ \r\n"
"sum=0; \r\n"
"for(int j=0;j<InpMAPeriod;j++) sum+=(InpMAPeriod-j)*price[i-j];\r\n"
"ExtLineBuffer[i]=sum/weightsum; \r\n"
"} \r\n"
"} \r\n"
" \r\n"
"__kernel void CalculateSmoothedMA( \r\n"
"int rates_total, \r\n"
"int prev_calculated, \r\n"
"int begin, \r\n"
"int InpMAPeriod, \r\n"
"__global double *price, \r\n"
"__global double *ExtLineBuffer \r\n"
") \r\n"
"{ \r\n"
"int i,limit; \r\n"
"if(prev_calculated==0) \r\n"
"{ \r\n"
"limit=InpMAPeriod+begin; \r\n"
"for(i=0;i<limit-1;i++) ExtLineBuffer[i]=0.0; \r\n"
"double firstValue=0; \r\n"
"for(i=begin;i<limit;i++) \r\n"
"firstValue+=price[i]; \r\n"
"firstValue/=InpMAPeriod; \r\n"
"ExtLineBuffer[limit-1]=firstValue; \r\n"
"} \r\n"
"else limit=prev_calculated-1; \r\n"
"for(i=limit;i<rates_total;i++) \r\n"
"ExtLineBuffer[i]=(ExtLineBuffer[i-1]*(InpMAPeriod-1)+price[i])/InpMAPeriod;\r\n"
"} \r\n";
虽然我能够运行此代码，但我得到的结果却没有像GPU预期的那么快，因为我无法使用核心或工作者 . 我尝试了以下方式来执行：
int offset[2]={0,0};
int work [2]={1024,1024};
if(!CLExecute(cl_krn,2,offset,work))
Print("Kernel not executed",GetLastError());
但该程序因 OpenCl device not found 而出错 .
然后我尝试了这个：
int offset[2]={0,0};
int work [2]={1024,1024};
if(!CLExecute(cl_krn))
Print("Kernel not executed",GetLastError());
我的代码运行顺利，但没有多核 .
我能做些什么来让程序与多个工作人员一起工作 .
EDITED
什么平台？你安装了正确的OpenCL驱动程序吗？ clinfo的产量是多少？
答：我使用的是Windows 10 Pro . 我已从英特尔网站安装了最新的OpenCL驱动程序 . 我猜他们提供的SDK是我安装的 .
这是clinfo的输出：Gist of clinfo output