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