|
楼主 |
发表于 2010-11-11 14:45
|
显示全部楼层
MCK.rar
(19.74 KB, 下载次数: 13)
现将源代码及M,C,K阵形式传上,各位高手帮我分析分析,
load MCK.mat %M,C,K阵及结点信息
k = 5;
x = Node;
dim = 4*length(Node);
JE = J(1:dim/2,dim/2+1:dim);
ME = M(1:dim/2,1:dim/2);
KE = K(1:dim/2,1:dim/2);
C = ME - JE;
H = chol(KE);
C = H*inv(C)*H.';
[V,d] = eigs(C,k,'sm');%求解特征值,单元类型为Timoshenko梁
d = diag(d);
ind = find(d>0);
V = V(:,ind);
d = d(ind);
d = sqrt(d)*30/pi % 求得的特征值转化为rpm的单位
y = V(1:2:dim/2-1,1).';
y = y/max(abs(y));
s = V(2:2:dim/2,1).';
pp = pwch(x,y,s);
xx = linspace(0,Node(dim/4),Node(dim/4)*1000);
plot(y,-x,'o',ppval(pp,xx),-xx,'-',zeros(size(x)),-x);
axis([-1 1 -22 0]);
|
|