|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
function vtb5(tf,delt)
close all;clc
tf=input('tf=');
delt=input('delt=');
fid1=fopen('disp','wt');
M=5*[5 5 0 0;5 25 0 0;0 0 6 0;0 0 0 6];
C=800*[4 0 (-4) 0;0 4 0 (-4);-4 0 5 0;0 (-4) 0 5];
K=10^5*[4 0 (-4) 0;0 4 0 (-4);-4 0 5 0;0 (-4) 0 5];
x0=[1 1 1 1]';
v0=[1 1 1 1]';
bita=1/6;
md=inv(M+delt/2*C+bita*delt^2*K);
m0=inv(M);
[E,F]=eig(m0*K);
diag(sqrt(F));
for t=0:delt:tf;
f=[0 0 (-'Dirac(t)') (-'Dirac(t-0.05)')]';
if t==0;xdd0=m0*(f-K*x0-C*v0);
else
xdd=md*(f-C*(v0+delt/2*xdd0)-K*(x0+delt*v0+(1/2-bita)*delt^2*xdd0));
x=md*(M*(x0+delt*v0+delt^2/3*xdd0)+C*(delt/2*x0+delt^2/3*v0+delt^3/12*xdd0)+delt^2/6*f);
xd=v0+delt/2*(xdd0+xdd);
xdd0=xdd;v0=xd;x0=x;
fprintf(fid1,'%10.4f',x0);
t
end
fid2=fopen('disp','rt');
n=tf/delt;
x=fscanf(fid2,'%f',[4,n]);
t=1:n;
figure('numbertitle','off','name','weiyi of 1','pos',[450 180 400 420]);
plot(t,x(1,t)),grid,xlabel('shijian*0.1'),title('x11')
figure('numbertitle','off','name','weiyi of 2','pos',[350 160 400 420]);
plot(t,x(2,t)),grid,xlabel('shijian*0.1'),title('x22')
figure('numbertitle','off','name','weiyi of 3','pos',[250 140 400 420]);
plot(t,x(3,t)),grid,xlabel('shijian*0.1'),title('x33')
figure('numbertitle','off','name','weiyi of 4','pos',[150 120 400 420]);
plot(t,x(4,t)),grid,xlabel('shijian*0.1'),title('x44')
end
说 xdd0=m0*(f-K*x0-C*v0); 这儿维数不对
[ 本帖最后由 eight 于 2007-12-20 00:10 编辑 ] |
|