截角二十面体内接五角星与大卫之星的几何构造

截角二十面体内接五角星与大卫之星的几何构造
几何画板及绘图内容加载中,请稍等……
2021-01-17 19:16
该范例演示如何在“重整化/截角二十面体”这种立体表面上,构造并展示五角星与大卫之星等平面星形图案的内接效果。核心数学概念包括:多面体的立体几何、球面/空间几何上的点与线、向量与空间变换(如缩放/膨胀)、以及由交点与分段连接形成的对称结构。作图要点方面,构造摘要中使用了多个 GeoGebra 命令与对象:通过 Sphere 与点对象(如 Points00、n 等)确定球面/空间基准;用 Sequence 与 Sum 生成参数化或分段的重复点/量;用 UnicodeToLetter 与 Text 进行标注;通过 TableText 整理表格型参数显示;并借助对象集合(Segments、Δ、lVector1/2/3、Cm、按钮等)完成线段连接、差分/关系量表示以及必要的向量运算与几何标记。适合中学进阶到大学的几何建模与立体图形可视化教学,也可用于社团或竞赛训练中的几何构造与对称性分析。

GeoGebra 命令及参数

  1. UnicodeToLetter(34) → u34
  2. Text("" + Um1) → txt_p
  3. Sum(Flatten[Sequence[Append[Sequence[Element[txt_p, i], i, m01(k), m02(k)], " "], k, 1, 5]]) → txtUm1
  4. Zip(Vector[a, a + UnitVector[a]], a, Points00) → lVector1
  5. Zip(Vector[a, a + (1.5 * UnitVector[b])], a, Points00, b, Wi_Pc) → lVector2
  6. Zip(Vector[a, a + (1.5 * UnitVector[b])], a, Points00, b, Wi_P) → lVector3
  7. Sphere((0, 0, 0), 5) → sph
  8. TableText(Append["i", 1…n], Append[" \fgcolor{orange}{GM :Δφ_i}, rad", l1w], Append["\fgcolor{magenta}{GC :Δφ_i} , rad", l1cw], "v") → text23r
  9. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(2)) → ll2
  10. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(1)) → ll1
  11. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(3)) → ll3
  12. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(4)) → ll4
  13. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(5)) → ll5
  14. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(6)) → ll6
  15. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(7)) → ll7
  16. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(8)) → ll8
  17. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(9)) → ll9
  18. Zip(Segment[Element[Points00, y(a)], Element[Points00, z(a)]], a, ll1bb(10)) → ll10
  19. Sequence(Polygon[Sequence[Points3D(m5(f, k)), k, 1, Length[m5(1)]]], f, 1, Length[m5]) → poly002
  20. Sequence(Polygon[Sequence[Points3D(m6(f, k)), k, 1, Length[m6(1)]]], f, 1, Length[m6]) → poly003
  21. Sequence(Polygon[Element[Points3D, Element[Element[mm1, f], 1]], Element[Points3D, Element[Element[mm1, f], 2]], Element[Points3D, Element[Element[mm1, f], 3]]], f, 1, Length[mm1]) → poly001

AI 绘图提示语参考

在一个正二十面体的截锥表面绘制一个五角星和大卫之星,使用球体作为基础几何形状,通过向量构造和参数化生成点集,然后连接这些点形成星星的边缘,并展示对称的图案结构。
以上提示语为根据原始绘图命令整理而来,仅供参考。