13 lines
428 B
Mathematica
13 lines
428 B
Mathematica
|
%<EFBFBD><EFBFBD><EFBFBD>㵥Ԫ<EFBFBD>նȾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
function [Me] = FrameElementMe(A,rho,R,BarLength)
|
|||
|
|
L=BarLength;
|
|||
|
|
me=rho*A*L/2*[1 0 0 0 0 0
|
|||
|
|
0 1 0 0 0 0
|
|||
|
|
0 0 0 0 0 0
|
|||
|
|
0 0 0 1 0 0
|
|||
|
|
0 0 0 0 1 0
|
|||
|
|
0 0 0 0 0 0];
|
|||
|
|
|
|||
|
|
Me=R'*me*R;
|
|||
|
|
end
|
|||
|
|
% diag([1 1 0 1 1 0])
|