%计算单元刚度矩阵函数
function [Ke] = BarElementKe(A,E,R,BarLength)
   ke=A*E/BarLength*[1 -1;-1 1];
   Ke=R'*ke*R;
end