mathematica图像赋值