弹簧质量系统演示：微分方程与几何作图

GeoGebra 命令及参数

1. Line(A, A + (1, initialY')) → e
2. ComplexRoot(charPoly) → z, w
3. If(y(z) ≟ 0, "" + (x(z)), "" + z) → zText
4. SolveODE((2 * p), w2, f, initialX, initialY, initialY', endX, step) → DE
5. If(y(w) ≟ 0, "" + (x(w)), "" + w) → wText
6. If(dampTest < 0, "(underdamped)", If[dampTest > 0, "(overdamped)", "(critically damped)"]) → text5
7. Textfield(m) → inputBox1
8. Textfield(k) → inputBox3
9. Textfield(c) → inputBox2
10. First(DE, Length[DE]) → list1
11. Textfield(f) → inputBox4
12. Textfield(initialY) → inputBox5
13. Textfield(initialY') → inputBox6