In[]:=
m=10000;k=10000;w=16.67*6.28;F=10;S=NDSolve[{m*x''[t]+c*x'[t]+k*x[t]==F*Sin[w*t]},x''[0]==0,x'[0]==0,x[0]==0,x,{t,0,20}]
′
x
Out[]=
NDSolve[{10000x[t]+c[t]+10000[t]10Sin[104.688t]},[0]0,[0]0,x[0]0,x,{t,0,20}]
′
x
′′
x
′′
x
′
x
