clear allw=0.3*pi;A=0.2;h=0.4;t=linspace(0,50,25000);xc=dsolve('D2x=-2*b*Dx-w^2*x+h*cos(w1*t)','Dx(0)=0','x(0)=0','t');b=input('b=');k=0.1:0.01:2.5;r=zeros(1,length(k));w1=zeros(1,length(k));for i=1:length(k)
r(i)=k(i);
w1(i)=k(i)*w;
xc1=eval(xc);
A(i)=max(real(xc1));endplot(r,A), hold
|