Example Notebook, Modeling

Simple Harmonic Motion

SetDirectory["~/Desktop"];
shmdata=Import["ModelingData.csv"];
Manipulate[
Show[
ListPlot[
shmdata,
PlotRange->{{0,5},{-0.2,0.2}},
AxesLabel->{ "t (s)","x (m)"},
PlotStyle->Orange,
ImageSize->600
],
Plot[
A*Cos[(Sqrt[(k/m)])*t-ϕ],{t,0,5},
PlotStyle->Blue
]
],
{{A,0.15,"Amplitude"},0,0.2, 0.001,Appearance->"Labeled"},
{{k,50,"Spring Constant"},0,100,0.01,Appearance->"Labeled"},
{{m,0.5,"Mass"},0.05,1,0.001,Appearance->"Labeled"},
 {{ϕ,0,"Initial Phase"},-π,π,.001,Appearance->"Labeled"}
]