悠闲数学娱乐论坛(第2版) » Mathematica » MMA画格子

青青子衿 发表于 2021-5-18 17:29

MMA画格子

n = 10;
Grid[Table[x, {n}, {n}], Dividers -> {
   Flatten[{False, ConstantArray[1, n - 1]}],
   Flatten[{False, ConstantArray[1, n - 1]}]}]

查看完整版本: MMA画格子