如何用mathematica画围棋棋盘

1、用到Graphics函数，绘制二维图像，里面要画的东西要加括号。

2、创建一个矩形，Rectangle[{},{}]两个括号里是左下角和右上角短点的坐标

大小设置为

颜色设置为Orange

3、画线line[{{},{}}]括号里面是线的两个端点

为了批量画线用Table，i是变量（Line也可以对列表起作用，返回的也是个列表）

Line[Table[{{1, i}, {19, i}}, {i, 1, 19}]]

4、同理画竖线

注：Graphics函数对括号并不挑剔（也可以对列表作用），所以Table也可以放在外面。事实上有的函数并不能对列表操作，disk就不能。。。

5、最后画点，用Disk[{x,y},r]画圆盘,圆心坐标与半径

6、最重要的是Table还可以这么用，简化输入，可以不用for了。。。