关键是Table的用法另外，审核员新年快乐啊~~~~
工具/原料
mathematica11
方法/步骤
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了。。。