- 积分
- 0
- 注册时间
- 2010-10-23
- 仿真币
-
- 最后登录
- 1970-1-1
|
>> clear
>> %%main program for elastic time-history analysis method%%
%wilson方法的增量法%
h=[4000,3300,3300];
m=[2.762 2.760 2.300]*1e+3;
k0=[2.485 1.921 1.522]*1e+5;
cn=length(m);
ct=1.4;
dt=0.02;
load dzhbo.dat
xs=200/max(abs(dzhbo));
ag=dzhbo*0.01*xs;
ndzh=400;
ag1=ag(1:ndzh);
ag2=ag(2:ndzh+1);
agtao=ct*(ag2-ag1);
chsh=zeros(cn,1);
wyi1=chsh;
sdu1=chsh;
jsdu1=chsh;
wyimt=chsh;
sdumt=chsh;
jsdumt=chsh;
unit=ones(cn,1);
m=diag(m);
[ik]=matrixju(k0,cn);
??? Undefined function or method 'matrixju' for input arguments of type 'double'.
|
|