OpenCL：MQL5中的内部实现测试 - 页 18

新评论
 
MetaDriver:
我也在我的设备上安装了它。 驱动程序被更新了（安装很顺利），但是ControlCenter现在在系统托盘上完全消失了，甚至不能手动启动。 你一切都好吗？

我有同样的问题，当我从Win7下载Vista驱动软件时，ControlCenter开始出现在托盘中。

你能告诉我是否有OpenCL仿真器http://developer.amd.com/zones/opensource/pages/ocl-emu.aspx， 这样可以方便白天在笔记本上修改代码，然后在PC上进行优化。我认为MT5不能使用OpenCL仿真器？

Home - AMD
  • developer.amd.com
If you want faster apps, you’ll want to use heterogeneous computing technologies. We’re here to make that happen, with plenty of tools and resources. And if you’re thinking about architecture, HSA is going to rock your world—learn more.
 

IgorM:

MT5将不能与OpenCL模拟器一起工作？


雷纳特。
虽然终端硬性规定只在GPU上使用OpenCL，但在下一个版本中，如果没有GPU，我们将增加自动使用CPU。
 
IgorM:

我有同样的问题，当我从Win7下载Vista驱动软件时，ControlCenter开始出现在托盘中。

你能告诉我，有一个OpenCL模拟器http://developer.amd.com/zones/opensource/pages/ocl-emu.aspx， 方便白天在笔记本上修改代码，然后在PC上使用，以达到优化的目的，我假设MT5不会与OpenCL模拟器一起工作？

1.我想我有正确的版本。我从这里得到了它: http://developer.amd.com/Downloads/AMD-APP-SDK-v2.6-Windows-64.exe

2.当然，MT5不会在模拟器上工作。但它可以用于调试，准备好的（调试好的）程序可以插入mql5代码中。

我也下载了仿真器。我还没来得及使用它。

 
MetaDriver:

1.这似乎是正确的版本。我从这里得到了它: http://developer.amd.com/Downloads/AMD-APP-SDK-v2.6-Windows-64.exe

我从这里开始寻找ATI驱动：http://www.amd.com/ru/Pages/AMDHomePage.aspx
Глобальный поставщик инновационных графических карт, процессоров и решений для мультимедиа | AMD
  • www.amd.com
Advanced Micro Devices (NYSE: AMD) — это инновационная технологическая компания, ориентированная на сотрудничество с заказчиками и партнерами с целью разработки вычислительных и графических решений нового поколения для офиса, дома и игр.
 
MetaDriver:

有一个小故障，我同意。但在重新启动后，它就消失了......现在我有了这个图标，我总是用它来检查温度和冷却器的速度，所以没有它我哪儿也不能去。

我同意IgorM的观点，我总是从http://sites.amd.com/us/game/downloads/Pages/radeon_win7-64.aspx（ 链接到HD 6xxx WIN7 x64页面）下载驱动程序。

而同一版本的催化剂中心本身:http://www2.ati.com/drivers/12-1_vista_win7_64_dd_ccc.exe

 
WChas:

1.有一个小故障，我同意。但在重新启动后，它就消失了......现在我有了这个图标，我总是用它来检查温度和冷却器的速度，所以没有它我哪儿也不能去。

2.我同意IgorM的意见，我总是从http://sites.amd.com/us/game/downloads/Pages/radeon_win7-64.aspx（ HD 6xxx WIN7 x64的页面链接）下载驱动程序。

3. 和催化剂中心本身的相同版本:http://www2.ati.com/drivers/12-1_vista_win7_64_dd_ccc.exe

1.我一无所获，重启也无济于事。

它似乎缺少一些驱动力来使它快乐。 我会问你，如果我能找到它。:)// 如果yandex不能帮助。

// 关于冷却器，我一直在关注它们。AI套件II还活着并在运行，只有Catalist控制中心已经死亡。

2.我也在那里寻找一切。 一切都在工作，Catalist也在工作，直到我把新版本移到上面。

3.我有同样的文件。151765KB在我的硬盘上，如果你需要的话。:)

谢谢你的回答。

 

雷纳特！多线程呢？ 我在不同的图表上运行了几个测试脚本，它们开始混在一起读数，一直在互相偷取缓冲区。 不过，麻烦了。

// 我擦拭了显示器，踢掉了系统单元--没有任何帮助。

 
MetaDriver:

雷纳特，多线程呢？ 我在不同的图表上运行了几个测试脚本，它们开始混在一起读数，一直在互相偷取缓冲区。 不过，麻烦了。

// 我擦掉了显示器，踢掉了系统单元--没有任何作用。

如果我们谈论的是曼德布罗特测试的例子，请注意，图像被写入同一个文件。这就是为什么出现不同的线程会破坏对方的BMP文件。

试试这个脚本--它对每个线程都有效（rand），而且不再有冲突。

//+------------------------------------------------------------------+
//|                                                   OpenCLTest.mq5 |
//|                        Copyright 2011, MetaQuotes Software Corp. |
//|                                              http://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2011, MetaQuotes Software Corp."
#property link      "http://www.mql5.com"
#property version   "1.00"
//+------------------------------------------------------------------+
//| Код функции OpenCL                                               |
//+------------------------------------------------------------------+
const string cl_src=
                    "__kernel void MFractal(                                    \r\n"
                    "                       float x0,                           \r\n"
                    "                       float y0,                           \r\n"
                    "                       float x1,                           \r\n"
                    "                       float y1,                           \r\n"
                    "                       uint  max,                          \r\n"
                    "              __global uint *out)                          \r\n"
                    "  {                                                        \r\n"
                    "   size_t  w = get_global_size(0);                         \r\n"
                    "   size_t  h = get_global_size(1);                         \r\n"
                    "   size_t gx = get_global_id(0);                           \r\n"
                    "   size_t gy = get_global_id(1);                           \r\n"
                    "   float dx = x0 + gx * (x1-x0) / (float) w;               \r\n"
                    "   float dy = y0 + gy * (y1-y0) / (float)h;                \r\n"
                    "   float x  = 0;                                           \r\n"
                    "   float y  = 0;                                           \r\n"
                    "   float xx = 0;                                           \r\n"
                    "   float yy = 0;                                           \r\n"
                    "   float xy = 0;                                           \r\n"
                    "   uint i = 0;                                             \r\n"
                    "   while ((xx+yy)<4 && i<max)                              \r\n"
                    "     {                                                     \r\n"
                    "      xx = x*x;                                            \r\n"
                    "      yy = y*y;                                            \r\n"
                    "      xy = x*y;                                            \r\n"
                    "      y = xy+xy+dy;                                        \r\n"
                    "      x = xx-yy+dx;                                        \r\n"
                    "      i++;                                                 \r\n"
                    "     }                                                     \r\n"
                    "   if(i==max)                                              \r\n"
                    "      out[w*gy+gx] = 0;                                    \r\n"
                    "   else                                                    \r\n"
                    "      out[w*gy+gx] = (uint)((float)0xFFFFFF/(float)max)*i; \r\n"
                    "  }                                                        \r\n";
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
#define SIZE_X 512
#define SIZE_Y 512
//+------------------------------------------------------------------+
//| Заголовок BMP файла                                              |
//+------------------------------------------------------------------+
struct BitmapHeader
  {
   ushort            type;
   uint              size;
   uint              reserv;
   uint              offbits;
   uint              imgSSize;
   uint              imgWidth;
   uint              imgHeight;
   ushort            imgPlanes;
   ushort            imgBitCount;
   uint              imgCompression;
   uint              imgSizeImage;
   uint              imgXPelsPerMeter;
   uint              imgYPelsPerMeter;
   uint              imgClrUsed;
   uint              imgClrImportant;
  };
//+------------------------------------------------------------------+
//| Запись битмапа в файл                                            |
//+------------------------------------------------------------------+
bool SaveBitmapToFile(const string filename,uint &bitmap[],const BitmapHeader &info)
  {
//--- откроем файл
   int file=FileOpen(filename,FILE_WRITE|FILE_BIN);
   if(file==INVALID_HANDLE)
     {
      Print(__FUNCTION__," error opening '",filename,"'");
      return(false);
     }
//--- запишем заголовок и само тело
   if(FileWriteStruct(file,info)==sizeof(info))
     {
      if(FileWriteArray(file,bitmap)==ArraySize(bitmap))
        {
         FileClose(file);
         return(true);
        }
     }
//--- неудачно получилось, удалим файл от греха подальше
   FileClose(file);
   FileDelete(filename);
   Print(__FUNCTION__," error writting '",filename,"'");
//--- вернем ошибку
   return(false);
  }
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   int cl_ctx;
   int cl_prg;
   int cl_krn;
   int cl_mem;
   int fileidx=MathRand()&255;
//--- инициализируем OpenCL объекты
   if((cl_ctx=CLContextCreate())==0)
     {
      Print("OpenCL not found");
      return;
     }
   if((cl_prg=CLProgramCreate(cl_ctx,cl_src))==0)
     {
      CLContextFree(cl_ctx);
      Print("OpenCL program create failed");
      return;
     }
   if((cl_krn=CLKernelCreate(cl_prg,"MFractal"))==0)
     {
      CLProgramFree(cl_prg);
      CLContextFree(cl_ctx);
      Print("OpenCL kernel create failed");
      return;
     }
   if((cl_mem=CLBufferCreate(cl_ctx,SIZE_X*SIZE_Y*sizeof(float),CL_MEM_READ_WRITE))==0)
     {
      CLKernelFree(cl_krn);
      CLProgramFree(cl_prg);
      CLContextFree(cl_ctx);
      Print("OpenCL buffer create failed");
      return;
     }
//--- подготовимся к выполнению
   float x0       =-2;
   float y0       =-0.5;
   float x1       =-1;
   float y1       = 0.5;
   uint  max      = 20000;
   uint  offset[2]={0,0};
   uint  work  [2]={SIZE_X,SIZE_Y};
//--- выставляем неизменяемые параметры функции OpenCL
   CLSetKernelArg(cl_krn,4,max);
   CLSetKernelArgMem(cl_krn,5,cl_mem);
//--- подготовим буфер для вывода пикселей
   uint buf[];
   ArrayResize(buf,SIZE_X*SIZE_Y);
//--- подготовим заголовок
   BitmapHeader info;
   ZeroMemory(info);
   info.type          =0x4d42;
   info.size          =sizeof(info)+SIZE_X*SIZE_Y*4;
   info.offbits       =sizeof(info);
   info.imgSSize      =40;
   info.imgWidth      =SIZE_X;
   info.imgHeight     =SIZE_Y;
   info.imgPlanes     =1;
   info.imgBitCount   =32;
   info.imgCompression=0;                // BI_RGB
   info.imgSizeImage  =SIZE_X*SIZE_Y*4;
//--- создаём объект для вывода графики
   ObjectCreate(0,"x",OBJ_BITMAP_LABEL,0,0,0);
   ObjectSetInteger(0,"x",OBJPROP_XDISTANCE,4);
   ObjectSetInteger(0,"x",OBJPROP_YDISTANCE,26);
//--- рендерим пока не остоновят снаружи
   while(!IsStopped())
     {
      uint x=GetTickCount();
      //--- выставляем плавающие параметры
      CLSetKernelArg(cl_krn,0,x0);
      CLSetKernelArg(cl_krn,1,y0);
      CLSetKernelArg(cl_krn,2,x1);
      CLSetKernelArg(cl_krn,3,y1);
      //--- рендерим кадр
      CLExecute(cl_krn,2,offset,work);
      //--- забираем данные кадра
      CLBufferRead(cl_mem,buf);
      //--- выведем время рендера
      Comment(IntegerToString(GetTickCount()-x)+" msec per frame");
      //--- сохраняем кадр в памяти и рисуем его
      SaveBitmapToFile("Mandelbrot"+IntegerToString(fileidx)+".bmp",buf,info);
      ObjectSetString(0,"x",OBJPROP_BMPFILE,NULL);
      ObjectSetString(0,"x",OBJPROP_BMPFILE,"\\Files\\Mandelbrot"+IntegerToString(fileidx)+".bmp");
      ChartRedraw();
      //--- небольшая задержка и обновление параметров для следующего кадра
      Sleep(10);
      x0+=0.001 f;
      x1-=0.001 f;
      y0+=0.001 f;
      y1-=0.001 f;
     }
//--- удаляем объекты OpenCL
   CLBufferFree(cl_mem);
   CLKernelFree(cl_krn);
   CLProgramFree(cl_prg);
   CLContextFree(cl_ctx);
  }
//+------------------------------------------------------------------+

请注意，多个脚本同时使用OpenCL可能导致GPU性能的非线性损失。

 
Renat:

1. 如果我们谈论的是曼德布罗特测试的例子，请注意，图片被写入同一个文件。这就是为什么不同的线程会破坏对方的BMP文件。

试试这个脚本--它对每个线程（rand）都有自己的图像，不再有冲突。

2. 但请记住，多个脚本同时使用OpenCL会导致GPU性能的非线性损失。

1.妈的！我自己也能猜到，对不起，噪音太大。

看了看那个怀疑者。这是正确的，是的。只有更好。

int fileidx=ChartID();

对于它的价值...

2.这正是我想看到的，只是为了考虑... :)

 

MetaDriver:

...

3.嗯，这和我的文件是一样的。151765KB在磁盘上，如果有的话。:)

...

上面的文件是从我这里下载的，下面的文件是从你的链接下载的。完全不同的尺寸....)

1...111213141516171819202122232425...70
新评论