无阻尼强迫振动

GeoGebra 命令及参数

1. If(ω ≠ ω_0, 1, 2) → index
2. If(index ≟ 1, (F_0 * cos((ω * x))), (F_0 * cos((ω_0 * x)))) → Force
3. Element(List, index) → Solution
4. CurveCartesian((2 * sin((((10 * 2) * π) * (j - y_1) / y_l))) + x(B), j, j, y_1, y_0) → S
5. Segment(PS, PS + (0, 0.5)) → end
6. CurveCartesian((2 * sin((((10 * 2) * π) * (j - y_1) / y_l))) + x(B), j, j, y_0, y_1) → Saux
7. Segment(C1, C2) → Plataform
8. Vector((0, 0), (0, (3 * Force(t)))) → u
9. Translate(u, (x(B) - 9, y(B))) → u'
10. Segment(A, A') → Level
11. Segment((t, 0), A') → LevelTime
12. Textfield(a) → InputBox1
13. Textfield(b) → InputBox2
14. LaTeX(ω_0, true, true) → text1
15. Textfield(m) → InputBox3
16. Textfield(k) → InputBox4
17. Textfield(F_0) → InputBox5
18. Textfield(ω) → InputBox6