23 lines
555 B
Matlab
23 lines
555 B
Matlab
function AssembleStiffnessMatrix( ie, k )
|
|
% 參等啋試僅撻淝摩傖善淕极試僅撻淝
|
|
% 怀⻌統杅:
|
|
% ie --- 等啋瘍
|
|
% k --- 等啋試僅撻淝
|
|
% 殿隙硉:
|
|
% 拸
|
|
global gElement gK
|
|
for i=1:1:3
|
|
for j=1:1:3
|
|
for p=1:1:2
|
|
for q=1:1:2
|
|
m = (i-1)*2+p ;
|
|
n = (j-1)*2+q ;
|
|
M = (gElement(ie,i)-1)*2+p ;
|
|
N = (gElement(ie,j)-1)*2+q ;
|
|
gK(M,N) = gK(M,N) + k(m,n) ;
|
|
end
|
|
end
|
|
end
|
|
end
|
|
return
|