%function [k] = swffrmstiff(L,E,I,A)
function [k] = swffrmstiff(L,E,I,A)
%
k =[A*E/L 0 0 -A*E/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;
   -A*E/L 0 0 A*E/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];