积极 AI Logo 积极 AI

正八边形中的动态几何问题（GoGeometry 168）

正八边形中的动态几何问题（GoGeometry 168）
几何画板及绘图内容加载中，请稍等……
2019-01-08 21:12
多边形角变换几何作图滑块动画
① 本范例动态演示了 Antonio Gutierrez 提出的一个关于正八边形的几何问题，通过可拖拽的交互图形展示其内在的几何关系。② 核心数学概念涉及正多边形性质、旋转、缩放（位似）、垂直与平行、角度关系以及几何构造的等价性。③ 作图要点：利用 GeoGebra 的 Polygon、Segment、Rotate、Dilate、Angle、Intersect、OrthogonalLine、Point、Ray、Line、Vector、Translate 等命令，构造了正八边形及其内部辅助线、交点、垂线和平移向量，并生成多个关联对象（如 poly1'、A'、B' 等）以支持动态修改。④ 适合中学几何教学、竞赛数学辅导或教师制作交互式课件，帮助学生直观探索正八边形的对称性与角度性质。

GeoGebra 命令及参数

  1. Polygon(A, B, 8) → poly1, f, D, E, F, G, H, g, h, i, j, k, l, m, C
  2. Segment(H, A) → n
  3. Segment(A, B) → p
  4. Segment(B, C) → q
  5. Segment(C, D) → r
  6. Segment(D, E) → s
  7. Segment(E, F) → t
  8. Segment(F, G) → a
  9. Segment(G, H) → b
  10. Rotate(poly1, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → poly1'
  11. Rotate(A, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → A'
  12. Rotate(B, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → B'
  13. Segment(A', B') → p'
  14. Rotate(B, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → B'_1
  15. Rotate(C, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → C'
  16. Segment(B'_1, C') → q'
  17. Rotate(C, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → C'_1
  18. Rotate(D, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → D'
  19. Segment(C'_1, D') → r'
  20. Rotate(D, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → D'_1
  21. Rotate(E, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → E'
  22. Segment(D'_1, E') → s'
  23. Rotate(E, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → E'_1
  24. Rotate(F, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → F'
  25. Segment(E'_1, F') → t'
  26. Rotate(F, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → F'_1
  27. Rotate(G, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → G'
  28. Segment(F'_1, G') → a'
  29. Rotate(G, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → G'_1
  30. Rotate(H, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → H'
  31. Segment(G'_1, H') → b'
  32. Rotate(H, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → H'_1
  33. Rotate(A, If[0 < c ≤ 1, (c * π / 4), π / 4], Center[Circle[A, B, C]]) → A'_1
  34. Segment(H'_1, A'_1) → n'
  35. Dilate(E, If[1 < c ≤ 2, 2 - c, 0], B) → E'_2
  36. Segment(E, E'_2) → d
  37. Angle(E, B, A) → α
  38. Segment(G, C) → e
  39. Intersect(d, e) → I
  40. Dilate(G, If[2 < c ≤ 3, 3 - c, 0], I) → G'_2
  41. Segment(G, G'_2) → f_1
  42. Dilate(I, If[3 < c ≤ 4, 4 - c, 0], C) → I'
  43. Segment(I, I') → g_1
  44. OrthogonalLine(D, q') → h_1
  45. Point(h_1) → J
  46. Angle(C, D, J) → β
  47. Rotate(B'_1, If[6 < c ≤ 7, ((-(c - 6)) * π / 3), ((-π)) / 3], C) → K
  48. Rotate(C', If[6 < c ≤ 7, ((-(c - 6)) * π / 3), ((-π)) / 3], C) → C''
  49. Segment(K, C'') → q''
  50. Rotate(K, If[7 < c ≤ 8, ((-(c - 7)) * π), (-π)], C'') → K'
  51. Rotate(C'', If[7 < c ≤ 8, ((-(c - 7)) * π), (-π)], C'') → C'''
  52. Segment(K', C''') → q'''
  53. Rotate(D, ((-π)) / 3, C) → D'_2
  54. Ray(C, D'_2) → i_1
  55. Dilate(K', If[8 < c ≤ 9, 9 - c, 0], D) → K''
  56. Segment(K', K'') → j_1
  57. Dilate(H, If[9 < c ≤ 10, 10 - c, 0], I) → H'_2
  58. Segment(H, H'_2) → k_1
  59. Line(I, j_1) → l_1
  60. Point(l_1) → L
  61. Angle(L, I, H) → γ
  62. Dilate(D, If[11 < c ≤ 12, 12 - c, 0], I) → D'_3
  63. Vector(D, D'_3) → u
  64. Translate(K', u) → K''_1
  65. Translate(K'', u) → K'''
  66. Segment(K''_1, K''') → m_1
  67. Rotate(K''_1, If[12 < c ≤ 13, ((c - 12) * (π + γ)), π + γ], I) → M
  68. Rotate(K''', If[12 < c ≤ 13, ((c - 12) * (π + γ)), π + γ], I) → N
  69. Segment(M, N) → n_1

AI 绘图提示语参考

绘制一个正八边形，并围绕中心点旋转该正八边形。首先绘制正八边形，然后连接相邻顶点。接着围绕中心点旋转正八边形，生成旋转后的正八边形。进一步构造旋转后的顶点连线，以及与原八边形顶点的连接线，生成一系列辅助线段和点，最后构造垂直线和角度，完成动态几何问题的图形展示。
以上提示语为根据原始绘图命令整理而来，仅供参考。