【抽象代数】格和子格怎么用Mathematica绘制

1、我们先写一个自定义函数，用来根据给定的格基绘制相应的格。f[w_, J_, color_, opacity_]其中，w代表格子的某个顶点，J是由格基组成的矩阵，color代表格子的颜色，opacity代表透明度。

3、我们当然可以把一定范围内所有的格子全部画出来：A = Tuples[Range[-12, 11], 2];Show[f[#, {{1, 0}, {0, 1}}, Green, 0.5] & /@ A,Axes -> True]

5、我们孀晏弁钾也可以把附近所有的蓝色格子全部画出来：Show[f[#, {{1, 0}, {0, 1}}, Green, 0.5] & /@ A,f[#, a, Blue, 1] & /刺胳挤萧@ (A.a\[Transpose]),Axes -> True]