正方格子生成
正方格子版もついでに作成した。
g2[n_, m_] := Graphics[{Thick, Line[{{0, #}, {n, #}} & /@ Range[0, m]],
Line[{{#, 0}, {#, m}} & /@ Range[0, n]]}]
Manipulate[g2[m, n], {{m, 4}, 2, 10, 1}, {{n, 3}, 2, 10, 1}]
正方格子版もついでに作成した。
g2[n_, m_] := Graphics[{Thick, Line[{{0, #}, {n, #}} & /@ Range[0, m]],
Line[{{#, 0}, {#, m}} & /@ Range[0, n]]}]
Manipulate[g2[m, n], {{m, 4}, 2, 10, 1}, {{n, 3}, 2, 10, 1}]