12 lines
575 B
Matlab
12 lines
575 B
Matlab
%¼ÆËãµ¥Ôª¸Õ¶È¾ØÕóº¯Êý
|
|
function [Ke] = FrameElementKe(A,E,I,R,BarLength)
|
|
L=BarLength;
|
|
ke=[E*A/L 0 0 -E*A/L 0 0
|
|
0 12*E*I/L^3 6*E*I/L^2 0 -12*E*I/L^3 6*E*I/L^2;
|
|
0 6*E*I/L^2 4*E*I/L 0 -6*E*I/L^2 2*E*I/L ;
|
|
-E*A/L 0 0 E*A/L 0 0
|
|
0 -12*E*I/L^3 -6*E*I/L^2 0 12*E*I/L^3 -6*E*I/L^2;
|
|
0 6*E*I/L^2 2*E*I/L 0 -6*E*I/L^2 4*E*I/L ;];
|
|
|
|
Ke=R'*ke*R;
|
|
end |