5 lines
119 B
Mathematica
5 lines
119 B
Mathematica
|
%<EFBFBD><EFBFBD><EFBFBD>㵥Ԫ<EFBFBD>նȾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
function [Ke] = BarElementKe(A,E,R,BarLength)
|
|||
|
|
ke=A*E/BarLength*[1 -1;-1 1];
|
|||
|
|
Ke=R'*ke*R;
|
|||
|
|
end
|