level 4
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
level 1
level 1
level 7
(*Points of a diamond*)
rt3 = Sqrt[3] ;
tripts = {{0, 0}, {1, 0}, {2, 0}, {0.5, rt3/2}, {3/2, rt3/2}, {0,
rt3}, {1, rt3}, {1/2, 3/2*rt3}, {0, 2 rt3}};
tripts2 = tripts /. {a_, b_} :> {-a, b};
tripts3 = tripts /. {a_, b_} :> {-a, -b};
tripts4 = tripts /. {a_, b_} :> {a, -b};
diapts = Plus[{0, 2 rt3}, #] & /@
DeleteDuplicates[Join[tripts, tripts2, tripts3, tripts4]];
(*test: g1 = Graphics[{PointSize[0.05], Point[diapts]},Axes\[Rule] \
True]*)
2020年06月06日 02点06分
6
rt3 = Sqrt[3] ;
tripts = {{0, 0}, {1, 0}, {2, 0}, {0.5, rt3/2}, {3/2, rt3/2}, {0,
rt3}, {1, rt3}, {1/2, 3/2*rt3}, {0, 2 rt3}};
tripts2 = tripts /. {a_, b_} :> {-a, b};
tripts3 = tripts /. {a_, b_} :> {-a, -b};
tripts4 = tripts /. {a_, b_} :> {a, -b};
diapts = Plus[{0, 2 rt3}, #] & /@
DeleteDuplicates[Join[tripts, tripts2, tripts3, tripts4]];
(*test: g1 = Graphics[{PointSize[0.05], Point[diapts]},Axes\[Rule] \
True]*)
level 7
图像是这个样子的
2020年06月06日 02点06分
8
想问下，因为diapts这个表，他是乱序的，怎么按顺序遍历每个点，然后连线呢
2020年06月07日 07点06分
主要是遍历顺序的问题，怎么让diapts这个表从高到第排序？主要是联系需要考虑顺序，只有相邻的两个点才需要连线。
2020年06月07日 07点06分
level 1
楼主画出来没
2020年06月07日 02点06分
12
我贺我的祖国，一刻也不能分割
2020年06月07日 02点06分
@GundamOOQ135 能问下是怎么上色的吗
2020年06月07日 07点06分
@柏慕潇湘- 我用的regionplot 区域上色
2020年06月07日 11点06分
怎么连线啊，我一连线就把所有点连城函数了。。
2020年06月08日 12点06分
level 1
吐了，灰色的实在不想上色了，还有白色棋坑似乎要用白点Point覆盖再用白色Circle，还有简单的办法吗
可以用Disk[],再用Graphics中的EdgeForm指定边缘样式
2020年06月10日 00点06分
你这个771有点顶啊兄弟
2020年06月10日 12点06分
@贴吧用户_037JS5A 我还有个3941呢![[小乖]](/static/emoticons/u5c0fu4e56.png)
2020年06月11日 04点06分
level 1
吧务
level 9
![[真棒]](/static/emoticons/u771fu68d2.png)
吧务
level 15
这会儿作业应该都交了，那我也贴一个。重点：点的列表压平前其实是暗含了点与点的位置关系的。个人认为这也是这个题目的意图所在——考察学生对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
2020年07月04日 04点07分
19
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
