Example Notebook, Modeling

Simple Harmonic Motion

SetDirectory["~/Desktop"];
shmdata=Import["SHMdata.txt","Table"];
Manipulate[
Show[
ListPlot[
shmdata,
PlotRange->{{0,5},{-0.4,0.4}},
PlotStyle->Red,
ImageSize->600
],
Plot[
A*Cos[(Sqrt[(k/m)])*t-ϕ],{t,0,5},
PlotRange->{{0,5},{-0.4,0.4}},
PlotStyle->Green
]
],
{{A,0.2},0,0.4, 0.001,Appearance->"Labeled"},
{{k,50},0,100,0.01,Appearance->"Labeled"},
{{m,0.5},0,1,0.001,Appearance->"Labeled"},
 {{ϕ,0},-π,π,.001,Appearance->"Labeled"}
]