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了。。。
