0001 function interp=domaintomesh(md,domainname,interptype)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017 if ((nargin~=3) | (nargout~=1)),
0018 domaintomeshusage();
0019 error('domaintomesh error message');
0020 end
0021 if ((~ischar(domainname)) | (~ischar(interptype)) )
0022 domaintomeshusage();
0023 error('domaintomesh error message');
0024 end
0025
0026 if ( (~strcmp(interptype,'node')) & (~strcmp(interptype,'element')) )
0027 domaintomeshusage();
0028 error('domaintomesh error message');
0029 end
0030
0031 [rinterp]=ArgusContourToMesh(md.elements,md.x,md.y,expread(domainname,1),interptype,1);
0032 interp=IMdb('select matrix from rinterp');
0033 IMdb('drop rinterp');
0034
0035 function domaintomeshusage(),
0036 disp('usage: md=domaintomesh(md,domainname,interptype')