pentaelem

PURPOSE ^

PENTAELEM - contructor for pentaelem objects

SYNOPSIS ^

function pentaelem = pentaelem(varargin)

DESCRIPTION ^

PENTAELEM - contructor for pentaelem objects

   Usage:
      pentaelem = pentaelem(varargin)

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function pentaelem = pentaelem(varargin)
0002 %PENTAELEM - contructor for pentaelem objects
0003 %
0004 %   Usage:
0005 %      pentaelem = pentaelem(varargin)
0006 
0007 switch nargin
0008 case 0
0009     % if no input arguments, create a default object
0010     pentaelem.type='pentaelem';
0011     pentaelem.id=NaN;
0012     pentaelem.matid=NaN;
0013     pentaelem.g=zeros(6,1);
0014     pentaelem.h=zeros(6,1);
0015     pentaelem.s=zeros(6,1);
0016     pentaelem.b=zeros(6,1);
0017     pentaelem.friction_type=2;
0018     pentaelem.k=zeros(6,1);
0019     pentaelem.p=1;
0020     pentaelem.q=1;
0021     pentaelem.shelf=NaN;
0022     pentaelem.onbed=NaN;
0023     pentaelem.onsurface=NaN;
0024     pentaelem.meanvel=NaN;
0025     pentaelem.epsvel=NaN;
0026     pentaelem.acceleration=0;
0027     pentaelem.collapse=0;
0028     pentaelem.melting=zeros(6,1);
0029     pentaelem.accumulation=zeros(6,1);
0030     pentaelem.geothermalflux=zeros(6,1);
0031     pentaelem.artificial_diffusivity='no';
0032     pentaelem.thermal_steadystate=1;
0033     pentaelem.reconditioning_number=NaN;
0034     
0035     pentaelem=class(pentaelem,'pentaelem');
0036                 
0037 case 1
0038     %If single argument of class pentaelem, we have a copy constructor.
0039     if (isa(varargin{1},'pentaelem'))
0040         pentaelem = varargin{1};
0041     else
0042         error('pentaelem constructor error message: copy constructor called on a non ''pentaelem'' class object');
0043     end 
0044 otherwise
0045     error('pentaelem constructor error message: 0 of 1 argument only in input.');
0046 end

Generated on Sun 29-Mar-2009 20:22:55 by m2html © 2003