Context Navigation

pentaelem.m@ 45

Last change on this file since 45 was 45, checked in by Mathieu Morlighem, 16 years ago
removed accelerated element
File size: 1.2 KB

Rev	Line
[1]	1	function pentaelem = pentaelem(varargin)
	2	%PENTAELEM - contructor for pentaelem objects
	3	%
	4	% Usage:
	5	% pentaelem = pentaelem(varargin)
	6
	7	switch nargin
	8	case 0
	9	% if no input arguments, create a default object
	10	pentaelem.type='pentaelem';
	11	pentaelem.id=NaN;
	12	pentaelem.matid=NaN;
	13	pentaelem.g=zeros(6,1);
	14	pentaelem.h=zeros(6,1);
	15	pentaelem.s=zeros(6,1);
	16	pentaelem.b=zeros(6,1);
	17	pentaelem.friction_type=2;
	18	pentaelem.k=zeros(6,1);
	19	pentaelem.p=1;
	20	pentaelem.q=1;
	21	pentaelem.shelf=NaN;
	22	pentaelem.onbed=NaN;
	23	pentaelem.onsurface=NaN;
	24	pentaelem.meanvel=NaN;
	25	pentaelem.epsvel=NaN;
	26	pentaelem.collapse=0;
	27	pentaelem.melting=zeros(6,1);
	28	pentaelem.accumulation=zeros(6,1);
	29	pentaelem.geothermalflux=zeros(6,1);
	30	pentaelem.artificial_diffusivity='no';
	31	pentaelem.thermal_steadystate=1;
	32	pentaelem.reconditioning_number=NaN;
	33
	34	pentaelem=class(pentaelem,'pentaelem');
	35
	36	case 1
	37	%If single argument of class pentaelem, we have a copy constructor.
	38	if (isa(varargin{1},'pentaelem'))
	39	pentaelem = varargin{1};
	40	else
	41	error('pentaelem constructor error message: copy constructor called on a non ''pentaelem'' class object');
	42	end
	43	otherwise
	44	error('pentaelem constructor error message: 0 of 1 argument only in input.');
	45	end

Note: See TracBrowser for help on using the repository browser.