简谐运动推导

GeoGebra 命令及参数

1. Point(xAxis) → O
2. Point(Circle[O, 2]) → E
3. Polygon(O, E, E', E'', E''', E'''', E''''') → poly1, h'', h''', h'''', h''''', h'''''', h, h'
4. Point(Circle[O, abs(l_0)]) → x_{eq}
5. Line(x_{eq}, yAxis) → b
6. Point(h'') → Z
7. Line(Z, xAxis) → a''
8. Intersect(f, b, 1) → P
9. Mirror(P, Line[x_{eq}, y = x]) → P'
10. Line(P', yAxis) → a
11. Intersect(a, a'') → Z'
12. Segment(O, P') → Spring
13. Circle(P', 1) → c
14. Intersect(c, a, 2) → N'
15. Intersect(c, a, 1) → W'
16. Vector(P', N') → N
17. Vector(P', W') → W
18. Ray(P', x_{eq}) → l
19. Intersect(c, l) → H',
20. Vector(P', H') → H
21. Midpoint(O, P') → S
22. Vector(S, S') → s
23. Vector(I, I') → i
24. Point(b) → U
25. Point(a) → V
26. Line(U, xAxis) → b'
27. Line(V, xAxis) → a'
28. Intersect(b', h'') → U'
29. Intersect(a', h'') → V'
30. Midpoint(U, U') → l'
31. Vector(l', U) → u
32. Vector(l', U') → u'
33. Midpoint(V, V') → l''
34. Vector(l'', V') → v'
35. Vector(l'', V) → v
36. Intersect(b, a') → V''
37. Midpoint(Z, Z') → X'
38. Vector(X', Z) → z'
39. Vector(X', Z') → z
40. CurveCartesian(Spring * t / (2 * π * Loops) + Coiling * cos(t) - Coiling + x(O), Width * sin(t), t, 0, 2 * π * Loops) → Coil