1、构造一个圆形掩膜：a = Table[x^2 + y^2, {x, -3.65, 3.65, 1}, {y, -5, 5, 1}]结果不尽人意，因为像素值大于1的地方，Mathematica默认为白色。
3、但是上面的图，像素太少，导致放大之后，全是马赛克，因此需要提高采样率：a = 哌囿亡噱Table[x^2 + y^2, {x, -3.65, 3.65, 0.1}, {y, -5荑樊综鲶, 5, 0.1}];b = (a/Max[a]) // Image
5、方形掩膜：n=3.65;a = Table[(Abs职邗珩垃[x] + Abs[y])^n, {x, -3.65, 3.65, 0.1}, {y, -5, 5, 0.1}];b = (a/M锾攒揉敫ax[a]) // Image
7、n=0.6的情形：
9、对这个掩膜进行模糊处理：c = b // Blur[#, 10] &
