function el = SetElementList(el,I1,I2,type,par1,par2,par3) % el = SetElementList(el,I1,I2,type,par1,par2,par3) % % SetElementList % % el = element list % I1 = left node number; % I2 = right node number; % type = {'Beam'| 'LinearSpring'| 'TorsionalSpring'}; % par1 = parameter 1 {'E' for Beam | 'k' for LinearSpring | 'kappa' for TorsionalSpring}; % par2 = parameter 2 {'I' for Beam | NA for LinearSpring | NA for TorsionalSpring}; % par3 = parameter 3 {'L' for Beam | 'L' for LinearSpring | NA for TorsionalSpring}. % % Walter Ponge-Ferreira % Cotia, 15.06.2018 [n,m] = size(el); if nargin<7, par3 = []; end if nargin<6, par2 = []; end if nargin<5, error('Invalid no. of arguments') end element = {I1, I2, type, par1, par2, par3}; el(:,m+1) = element; endfunction