gpt4 book ai didi

wolfram-mathematica - 使用多面体作为图形基元,点放置和缩放

转载 作者:行者123 更新时间:2023-12-04 10:28:45 24 4
gpt4 key购买 nike

我可以问一个简单的初学者问题,我无法在我拥有的任何文本中找到易于理解的答案(这些文本确实很旧,在某些情况下早于第 6 版)?您如何使用多面体,就好像它们是 Sphere 和 Cuboid 之类的图形基元一样?即,以一个点为中心并进行缩放。这里有一些愚蠢的例子来说明这一点:

(* spheres along a path *)
data = Table[{Cos[t], Sin[t], Sin[t] Cos[2 t]}, {t, 0, 2 Pi, Pi/24}];
Graphics3D[Sphere[#, 0.3] & /@ data]

loop of spheres
(* cubes along a path *)
Graphics3D[Cuboid[#, # + 0.1] & /@ data]

loop of cubes

那么如何将二十面体放置在特定的点和比例上,写下类似的东西
Graphics3D[icosahedron[#, 0.1] & /@ data]

编辑:我认为我的问题是如何制作 GraphicsComplexGraphics3D一起工作。例如,我目前有:
shapes[ct_, siz_] := {Sphere[ct - .2, siz ], Sphere[ct - 0.1, siz]};
Graphics3D[{{shapes[#, size] & /@ data}}]

我想更换那个 Sphere[]icosahedron[] .我目前正在努力使 Heike 的解决方案发挥作用...

编辑 2:现在工作正常,谢谢 Heike。不过我不确定我会不会用 3D 打印它——戴起来看起来有点不舒服……

the platonic bracelet

最佳答案

你可以这样做:

icosahedron = PolyhedronData["Icosahedron"][[1]];
Graphics3D[Translate[Scale[icosahedron, .1], #] & /@ data]

icosahedra

关于wolfram-mathematica - 使用多面体作为图形基元,点放置和缩放,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8386107/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com