请问大佬怎么用mathematica画出跳棋棋盘？

贺祖国班上的前来围观

这一届的北邮的数学实验估计都有这道题

思路：

棋盘又不一定要有线，有坑就行啊：

楼主画出来没

大家的圆圈是按点处理的还是按圆处理的啊，按圆画了半天感觉有点麻烦。。有什么建议吗

都是hzg班的嘛

这会儿作业应该都交了，那我也贴一个。重点：点的列表压平前其实是暗含了点与点的位置关系的。个人认为这也是这个题目的意图所在——考察学生对Mathematica的列表操作的熟稔程度和对列表结构的理解程度。
pts = Table[
RotationTransform[k Pi/3][{1, 0} i + {1, Sqrt[3]}/2 j], {k, 6}, {i,
0, 4}, {j, 0, 4}];
Graphics@Point@Flatten[pts, 2]
{{Line /@ #,
Line /@ Transpose@#}, {Line@Transpose@{#[[1]], #[[All, 1]]},
Line@Transpose@{#[[-1]], #[[All, -1]]}}} & /@ pts // Graphics
顺便楼上好像有个想硬靠判断点距来连线的……对于这种小点集也没什么不可以啦唉：
ptsnew = Flatten[pts, 2] // DeleteDuplicates;
Table[Line@{ele, #} & /@ Nearest[DeleteCases[ptsnew, ele], ele], {ele,
ptsnew}] // Graphics