23 lines
555 B
Mathematica
23 lines
555 B
Mathematica
|
function AssembleStiffnessMatrix( ie, k )
|
|||
|
|
% <EFBFBD>ѵ<EFBFBD>Ԫ<EFBFBD>նȾ<EFBFBD><EFBFBD>ɵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>նȾ<EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
|||
|
|
% ie --- <EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD>
|
|||
|
|
% k --- <EFBFBD><EFBFBD>Ԫ<EFBFBD>նȾ<EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ:
|
|||
|
|
% <EFBFBD><EFBFBD>
|
|||
|
|
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
|