用mathmatic命令绘制简易的中国象棋棋盘
中国象棋棋盘的基本格局如图所示
有10行9列,以左下方“車”所在的地方设为坐标原点
先绘制10条横线.
HX = Table[Line[{{0, i}, {8, i}}], {i, 0, 9}]
(竖线)
SX1 = Table[Line[{{i, 0}, {i, 4}}], {i, 0, 8}];
SX2 = Table[Line[{{i, 5}, {i, 9}}], {i, 0, 8}];
SX3 = Line[{{0, 0}, {0, 9}}];
SX4 = Line[{{8, 0}, {8, 9}}];
(叉)
Cha1 = Line[{{5, 0}, {3, 2}}];
Cha2 = Line[{{3, 0}, {5, 2}}];
Cha3 = Line[{{5, 7}, {3, 9}}];
Cha4 = Line[{{5, 9}, {3, 7}}];
(棋)
circle1 = Table[Circle[{i, 0}, 0.3], {i, 0, 8}];
circle2 = Table[Circle[{i, 9}, 0.3], {i, 0, 8}];
circle3 = Table[Circle[{i, 3}, 0.3], {i, 0, 8, 2}];
circle4 = Table[Circle[{i, 6}, 0.3], {i, 0, 8, 2}];
Graphics[{{HX, Cha1, Cha2, Cha3, Cha4, SX1, SX2, SX3, SX4}, Hue[0.1],
Text[楚河, {2, 4.5}],
Text[汉界, {6, 4.5}],
Hue[0.31, 0.5, 0.5],
Text[車, {0, 0}],
Text[車, {8, 0}],
Text[馬, {1, 0}], Text[馬, {7, 0}],
Text[象, {2, 0}], Text[象, {6, 0}],
Text[士, {3, 0}], Text[士, {5, 0}],
Text[帥, {4, 0}],
Text[兵, {0, 3}], Text[兵, {2, 3}], Text[兵, {4, 3}], Text[兵, {6, 3}],
Text[兵, {8, 3}],
Text[炮, {1, 2}], Text[炮, {7, 2}],
Hue[0],
Text[車, {0, 9}], Text[車, {8, 9}],
Text[馬, {1, 9}], Text[馬, {7, 9}],
Text[相, {2, 9}], Text[相, {6, 9}],
Text[士, {3, 9}], Text[士, {5, 9}],
Text[將, {4, 9}],
Text[卒, {0, 6}], Text[卒, {2, 6}], Text[卒, {4, 6}], Text[卒, {6, 6}],
Text[卒, {8, 6}],
Text[炮, {1, 7}], Text[炮, {7, 7}],
Hue[0.1],
circle1, circle2, circle3, circle4, Circle[{1, 2}, 0.3],
Circle[{1, 7}, 0.3],
Circle[{7, 7}, 0.3], Circle[{7, 2}, 0.3]
}]
效果图