简谐运动与匀速圆周运动的等时性演示

GeoGebra 命令及参数

1. Point(Segment[O, (2 * O) - P]) → Q
2. Point(Segment[((-A), 0), (A, 0)]) → M
3. If(Length[reg] ≟ 1, {reg(1)}, Sequence[reg(k) - reg(k + 1), k, 1, Length[reg] - 1]) → regDif
4. mean(regDif) → T
5. Segment((x(Q), y(B) + 0.1), (x(O), y(B) + 0.1)) → j
6. Circle(M, r) → cir_{1}
7. Circle(O, A) → cir
8. Point(cir) → MM
9. Segment(MM, O) → f
10. Segment(M, MM) → g
11. Segment(MM + c, (x(MM), y(MM + c))) → l
12. Translate(a, Mc) → u
13. Angle(O + (-4, 20), O, Rotate[O + (-4, 20), ω]) → α
14. CurveCartesian(t, (1.2 * sin(((20 * pi) * (t - (x(M) + 0.5)) / (x(P0) - (x(M) + 0.5))))), t, x(P0), x(M)) → muelle