积极 AI Logo 积极 AI

探索勾股定理：动态几何交互演示

探索勾股定理：动态几何交互演示
几何画板及绘图内容加载中，请稍等……
2018-09-11 21:13
测试改名0多边形几何作图滑块动画轨迹
① 本范例通过动态几何交互，直观展示直角三角形三边上的正方形面积关系，即勾股定理（毕达哥拉斯定理）的几何意义。② 核心数学概念包括勾股定理、等边三角形、算术平均数、垂心以及随机过程（用于随机生成新三角形）。③ 作图要点：使用GeoGebra命令如Circle（圆）、PointIn（点内）、CircleArc（圆弧）、Point（点）、Vector（向量）、OrthogonalVector（正交向量）、Polygon（多边形）、Intersect（交点）、Angle（角）等构造直角三角形及其三边上的正方形；通过随机过程（TryAnother按钮）生成不同三角形，并利用中点（MidBC等）和向量运算（如vBCAB1）辅助构造。④ 适合初中至高中阶段学生学习勾股定理，也可用于教师课堂演示或学生自主探索，通过动态变化加深理解。

GeoGebra 命令及参数

  1. Circle(B + (0, 6), 5) → bCirc
  2. PointIn(bCirc) → A
  3. CircleArc(Midpoint[B, A], Rotate[B, 5°, Midpoint[B, A]], Rotate[A, (-(5°)), Midpoint[B, A]]) → cArc
  4. Point(cArc) → C
  5. Vector(B, C) → vAC
  6. Vector(A, C) → vBC
  7. OrthogonalVector(vBC) → pBC
  8. Vector(B, A) → vAB
  9. OrthogonalVector(vAB) → pAB
  10. Polygon({A, A + vBC, A + vBC + pBC, A + pBC}) → quadBC
  11. LaTeX((((("\text{\textbf{Question: }" * MainInstruc) * "\\\textbf{Instructions: }") * SpecInstruc) * "}")) → allInstruc
  12. Polygon({B, B + vAC, B + vAC + pAC, B + pAC}) → quadAC
  13. Polygon({B, B + vAB, B + vAB + pAB, B + pAB}) → quadAB
  14. Vector(MidBC, AB_v2) → vBCAB2
  15. Vector(MidBC, AB_v1) → vBCAB1
  16. Vector(MidBC, B) → vBCA
  17. Vector(MidBC, A) → vBCB
  18. Vector(MidAC, A) → vACB
  19. Vector(MidAC, B) → vACA
  20. Vector(MidAC, AB_v1) → vACAB1
  21. Vector(MidAC, AB_v2) → vACAB2
  22. Intersect(Ray[MidAC, Vector[(-vAB)]], Segment[B, AC_v2]) → AC_c
  23. Intersect(Ray[MidAC, vAB], Segment[C, AC_v1]) → AC_a
  24. Intersect(Ray[MidAC, pAB], quadAC) → AC_d
  25. Polygon({MidAC, AC_d, B, AC_c}) → qACc
  26. Intersect(Ray[MidAC, Vector[(-pAB)]], Segment[AC_v1, AC_v2]) → AC_b
  27. Polygon({MidAC, AC_c, AC_v2, AC_b}) → qACb
  28. Polygon({MidAC, AC_b, AC_v1, AC_a}) → qACa
  29. Polygon({MidAC, AC_a, C, AC_d}) → qACd
  30. Intersect(Ray[MidBC, vAB], Segment[A, BC_v1]) → BC_a
  31. Intersect(Ray[MidBC, Vector[(-pAB)]], Segment[BC_v1, BC_v2]) → BC_b
  32. Intersect(Ray[MidBC, Vector[(-vAB)]], Segment[C, BC_v2]) → BC_c
  33. Intersect(Ray[MidBC, pAB], Segment[A, C]) → BC_d
  34. Polygon({MidBC, BC_a, BC_v1, BC_b}) → qBCa
  35. Polygon({MidBC, BC_b, BC_v2, BC_c}) → qBCb
  36. Polygon({MidBC, BC_c, C, BC_d}) → qBCc
  37. Polygon({MidBC, BC_d, A, BC_a}) → qBCd
  38. If(Defined[qACa], Translate[qACa, Vector[(mySlider / 100 * vACAB1)]], Translate[qBCa, Vector[(mySlider / 100 * vBCAB1)]]) → translate_a
  39. If(Defined[qACb], Translate[qACb, Vector[(mySlider / 100 * vACAB2)]], Translate[qBCb, Vector[(mySlider / 100 * vBCAB2)]]) → translate_b
  40. If(Defined[qACc], Translate[qACc, Vector[(mySlider / 100 * vACB)]], Translate[qBCc, Vector[(mySlider / 100 * vBCB)]]) → translate_c
  41. If(Defined[qACd], Translate[qACd, Vector[(mySlider / 100 * vACA)]], Translate[qBCd, Vector[(mySlider / 100 * vBCA)]]) → translate_d
  42. If(Defined[qACa], Translate[quadBC, Vector[(mySlider / 100 * Vector[MidBC, MidAB])]], Translate[quadAC, Vector[(mySlider / 100 * Vector[MidAC, MidAB])]]) → translateSquare
  43. Angle(A, C, B) → rightAngle
  44. Polygon({A, A + vBC, A + vBC + pBC, A + pBC}) → coverBC
  45. Polygon({B, B + vAC, B + vAC + pAC, B + pAC}) → coverAC

AI 绘图提示语参考

画一个直角三角形，在其三边外侧分别构造正方形，展示勾股定理的面积关系；三角形顶点可随机变化，边的中点连接向量用于将大正方形剖分为四个小多边形，并通过滑块控制这些小块沿向量平移，动态演示面积拼合过程。
以上提示语为根据原始绘图命令整理而来，仅供参考。