CUDA ใน Mathematica ทำให้การคำนวณเร็วขึ้น

ทดลองเปรียบเทียบว่าถ้าใช้ GPU คำนวณใน Mathematica จะเร็วขึ้นจากที่ใช้ CPU มากน้อยเท่าใด  เครื่องที่ใช้ทดสอบคือ Dell Precision T5500 , CPU Xeon 2.66 GHz X5650  RAM 12GB, Windows 7  64-Bit, NVIDIA Quadro 4000, Mathematica 8.0.4

คำสั่งที่ใช้ครับ
a=RandomReal[{0,1},{2048,2048}];
b=RandomReal[{0,1},{2048,2048}];
AbsoluteTiming[Do[CUDADot[a,b];,{100}];]
AbsoluteTiming[Do[Dot[a,b];,{100}];]

c=RandomReal[{0,1},{512,512}];
AbsoluteTiming[Do[CUDAFourier[c];,{100}]]
AbsoluteTiming[Do[Fourier[c];,{100}]]