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