マンデルブロ集合をOpenCLでインタラクティブに描く（Mathematica） http://blog.unfindable.net/archives/5772

manipulate-opencl-mandelbrot.m

buffer = OpenCLMemoryAllocate["Integer32", {height, width}];

Manipulate[Module[{
   xMin = center[[1]] - 10^scale, xMax = center[[1]] + 10^scale,
   yMin = center[[2]] - 10^scale, yMax = center[[2]] + 10^scale},
  kernel[buffer, IntegerPart[10^maxSteps], width, height, xMin, xMax, yMin, yMax];
  ArrayPlot[OpenCLMemoryGet[buffer],
   DataRange -> {{xMin, xMax}, {yMin, yMax}},
   DataReversed -> True, ColorFunction -> "Rainbow"]],
 {{center, {-0.5, 0}}, Locator},
 {{scale, 0, "Scale"}, -13, 1},
 {{maxSteps, 2, "Log[maxSteps]"}, 1, 3}]