0001 function elemmatrix = elemmatrix(varargin)
0002
0003
0004
0005
0006
0007 switch nargin
0008 case 0
0009
0010 elemmatrix.nrows=NaN;
0011 elemmatrix.row_indices=NaN;
0012 elemmatrix.terms=NaN;
0013
0014 elemmatrix=class(elemmatrix,'elemmatrix');
0015 case 1
0016
0017 argument = varargin{1};
0018 if isa(argument,'elemmatrix'),
0019 elemmatrix=argument;
0020 else
0021 if isnumeric(varargin{1}),
0022 numdof=argument;
0023 elemmatrix.nrows=numdof;
0024 elemmatrix.row_indices=zeros(numdof,1);
0025 elemmatrix.terms=zeros(numdof,numdof);
0026
0027 elemmatrix=class(elemmatrix,'elemmatrix');
0028 elseif isstruct(argument),
0029 elemmatrix=class(argument,'elemmatrix');
0030 else
0031 error('elemmmatrix constructor error message: invalid input argument');
0032 end
0033 end
0034 otherwise
0035 error('elemmatrix constructor error message: 0 of 1 argument only in input.');
0036 end