如何绘制自己想要的多面体和展开图
mathematica吧
全部回复
仅看楼主
level 1
CZQ_King 楼主
如题,我想要画一个正方体沿着正中间的正六边形斜着切开的图形,但是在网上没找到,只找到了 ConvexHullMesh 用来画凸包,但是我不想要多面体面内多余的线,请问有什么方法解决?
ConvexHullMesh[{{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}, {0, 0.5, 1}, {1, 0.5, 0}, {0.5, 0, 1}, {0.5, 1, 0}, {0, 1, 0.5}, {1, 0, 0.5}}]
(鄙人小白,用的是 Mathematica 12)
2023年09月30日 03点09分 1
吧务
level 9
用13.x的话没有多余的线条。12可以用下面的两种方法
ConvexHullMesh[pts, "FlatFaces" -> False]
Region`Mesh`MergeCells[ConvexHullMesh[pts]]
2023年09月30日 04点09分 2
谢谢!那是否有方法可以得到它的展开图呢?
2023年10月01日 15点10分
吧务
level 15
展开图的话,这里有个相关帖:
mathematica.stackexchange.com/q/103598/1871
2023年10月07日 03点10分 3
1