In[]:=
Manipulate[​​c=0.1*k*m;​​F=1000;​​S=NDSolve[{m*x''[t]+k*x[t]==F*Sin[w*t],x'[0]==0,x[0]==0},x,{t,0,20}],Plot[{x[t],x'[t],x''[t]}/.S,{t,0,20},PlotLegends->{"x","y","Theta"}],{k,50,266*1000},{m,100,1000},{w,10,1000}]​​
Manipulate
:Manipulate argument Plot[{x[t],
′
x
[t],
′′
x
[t]}/.S,{t,0,20},PlotLegends{x,y,Theta}] does not have the correct form for a variable specification.
Out[]=
Manipulate[c=0.1km;F=1000;S=NDSolve[{m
′′
x
[t]+kx[t]FSin[wt],
′
x
[0]0,x[0]0},x,{t,0,20}],Plot[{x[t],
′
x
[t],
′′
x
[t]}/.S,{t,0,20},PlotLegends{x,y,Theta}],{k,50,266×1000},{m,100,1000},{w,10,1000}]
​