20 lines
869 B
Matlab
20 lines
869 B
Matlab
|
||
function [Ke]=Ke(D, ElementNodeCoordinate)
|
||
%初始化单元刚度阵
|
||
Ke=zeros(12,12);
|
||
% 计算形函数对总体坐标的导数（NDerivative）及雅可比矩阵行列式（JacobiDET）
|
||
[NDxyz, JacobiDET] = ShapeFunction( ElementNodeCoordinate);%[DN1Dx DN2Dx DN3Dx;DN1Dy DN2Dy DN3Dy;……]
|
||
Ve = JacobiDET/6;%
|
||
%计算B矩阵 利用形函数对总体坐标的导数（NDxyz）对B进行计算
|
||
B=zeros(6,12);
|
||
for i=1:4
|
||
sub=(i-1)*3+1:(i-1)*3+3;%子矩阵范围
|
||
B(:,sub)=[NDxyz(1,i) 0 0;%NDx
|
||
0 NDxyz(2,i) 0;%NDy
|
||
0 0 NDxyz(3,i);%NDz
|
||
NDxyz(2,i) NDxyz(1,i) 0;
|
||
0 NDxyz(3,i) NDxyz(2,i);
|
||
NDxyz(3,i) 0 NDxyz(1,i)];
|
||
end
|
||
Ke=Ke+Ve*B'*D*B; %数值积分，多个积分点叠加
|
||
end |