电脑
mathematica
菱形矩阵的构造:Table[If[Abs[x]+Abs[y]<2,1,0],{x,-2,2,0.2},{y,-2,2,0.2}]
Table[If[Abs[x]+Abs[y]<2,1,0],{x,-2,2,0.2},{y,-2,2,0.2}]
Table[If[Abs[x]+Abs[y]<2,1,0],{x,-2,2,0.02},{y,-2,2,0.02}]
Table[If[Abs[2*x]+Abs[y]<2,1,0],{x,-2,2,0.2},{y,-2,2,0.2}]
圆形矩阵的构造:Table[If[x^2+y^2<2,1,0],{x,-2,2,0.5},{y,-2,2,0.5}]
Table[If[x^2+y^2<4,1,0],{x,-2,2,0.2},{y,-2,2,0.2}]
椭圆形矩阵:Table[If[x^2+y^2<3,1,0],{x,-2,2,0.2},{y,-2,2,0.1}]
Table[If[2*x^2+y^2<4,1,0],{x,-2,2,0.2},{y,-2,2,0.2}]
Table[If[x^2/2+y^2/3<1,1,0],{x,-2,2,0.02},{y,-2,2,0.02}]
不认识Table[If[Sin[x]*Cos[y]<1/2,1,0],{x,-3,6,0.2},{y,-5,10,0.2}]
Table[If[Sin[x]+Cos[y]<1/2,1,0],{x,-3,6,0.2},{y,-5,10,0.2}]
Table[If[Sin[x+y]<1/2,1,0],{x,-3,6,0.2},{y,-5,10,0.2}]Table[If[Sin[x^2+y^2]<1/2,1,0],{x,-3,6,0.2},{y,-5,10,0.2}]
这些特殊的矩阵,可以作为卷积模版来使用。
用类似的方法,可以构造掩膜。