棋盘代码_Mathematica绘制棋盘

主要用mathematica做了一个象棋棋盘，代码如下

Graphics[{Thick, White, Rectangle[{0, 0}, {9, 10}],
  Red, Line[Table[{{1, i}, {9, i}}, {i, 1, 5}]],
  Red, Line[Table[{{i, 1}, {i, 5}}, {i, 1, 9}]],
  Table[Circle[{i, j}, 0.2], {i, 1, 9}, {j, 1, 10}],
  Red, Line[{{4, 1}, {6, 3}}],
  Red, Line[{{4, 3}, {6, 1}}],
  Red, Line[Table[{{1, i}, {9, i}}, {i, 6, 10}]],
  Red, Line[Table[{{i, 6}, {i, 10}}, {i, 1, 9}]],
  Red, Line[{{4, 8}, {6, 10}}],
  Red, Line[{{4, 10}, {6, 8}}],
  Red, Line[{{1, 5}, {1, 6}}],
  Red, Line[{{9, 5}, {9, 6}}],
  Red, Rotate[Text[Style["楚", Larger, Bold], {3, 5.5}], 90 Degree],
  Red, Rotate[Text[Style["河", Larger, Bold], {4, 5.5}], 90 Degree],
  Red, Rotate[Text[Style["汉", Larger, Bold], {7, 5.5}], -90 Degree],
  Red, Rotate[Text[Style["界", Larger, Bold], {6, 5.5}], -90 Degree]
  }]