%function [k] = swftrusstiff(L,E,A)
function [k] = swftrusstiff(L,E,A)
%
k =(A*E/L)*[1 0 -1 0; 0 0 0 0; -1 0 1 0; 0 0 0 0];