无阻尼自由振动

GeoGebra 命令及参数

1. If(c < sqrt(((4 * m) * k)), ((((-c) * sqrt((-c^(2)) + ((4 * k) * m))) * a) + (((-2 * m) * sqrt((-c^(2)) + ((4 * k) * m))) * b)) / (c^(2) - ((4 * k) * m)), If[c > sqrt(((4 * m) * k)), (((c^(2) - ((4 * k) * m) + (c * sqrt(c^(2) - ((4 * k) * m)))) * a) + (((2 * m) * sqrt(c^(2) - ((4 * k) * m))) * b)) / ((2 * c^(2)) - ((8 * k) * m)), ((a * c) + ((2 * b) * m)) / ((2 * m))]) → c_2
2. If(c < sqrt(((4 * m) * k)), a, If[c > sqrt(((4 * m) * k)), (((c^(2) - ((4 * k) * m) - (c * sqrt(c^(2) - ((4 * k) * m)))) * a) + (((-2 * m) * sqrt(c^(2) - ((4 * k) * m))) * b)) / ((2 * c^(2)) - ((8 * k) * m)), a]) → c_1
3. If(c < sqrt(((4 * m) * k)), 1, If[c > sqrt(((4 * m) * k)), 2, 3]) → index
4. Element(List, index) → Solution
5. Segment(PS, PS + (0, 0.5)) → end
6. Segment(C1, C2) → Plataform
7. Segment(A, A') → Level
8. Segment((t, 0), A') → LevelTime
9. Textfield(a) → InputBox1
10. Textfield(b) → InputBox2
11. LaTeX(ω_0, true, true) → text1
12. Textfield(m) → InputBox3
13. Textfield(k) → InputBox4
14. Element(Cases, index) → Motion
15. Textfield(c) → InputBox7
16. CurveCartesian((2 * sin((((9 * 2) * π) * (j - y_1) / y_l))) + x(B), j, j, y_1, y_0) → S