0001 function triaelem = triaelem(varargin)
0002
0003
0004
0005
0006
0007 switch nargin
0008 case 0
0009
0010 triaelem.type='triaelem';
0011 triaelem.id=NaN;
0012 triaelem.matid=NaN;
0013 triaelem.g=zeros(3,1);
0014 triaelem.h=zeros(3,1);
0015 triaelem.s=zeros(3,1);
0016 triaelem.b=zeros(3,1);
0017 triaelem.friction_type=2;
0018 triaelem.k=zeros(3,1);
0019 triaelem.p=1;
0020 triaelem.q=1;
0021 triaelem.shelf=NaN;
0022 triaelem.meanvel=NaN;
0023 triaelem.epsvel=NaN;
0024 triaelem.artificial_diffusivity=0;
0025 triaelem.acceleration=0;
0026
0027 triaelem=class(triaelem,'triaelem');
0028
0029 case 1
0030
0031 if (isa(varargin{1},'triaelem'))
0032 triaelem = varargin{1};
0033 else
0034 error('triaelem constructor error message: copy constructor called on a non ''triaelem'' class object');
0035 end
0036 otherwise
0037 error('triaelem constructor error message: 0 of 1 argument only in input.');
0038 end