if nargin<l, error( Not enough input arguments. ),end for i=2 nargin check input arguments for N and C argi=eval( sprintf(arg%Of, 1)); if-isstr(argi)&length(argi)==1 must be n, grab it -ar nargs=i; args to pass to contour 2 elseif isstr(argi) must be C if exist(argi)==2 is colormap, so grab it nargs=i-1 else is single color/linestyle nargs-I, if cflag a colormap has been chosen clf clear figure view(2) make it 2-D hold on hold it mapstr=sprintf(c(%.0f)'I,n) set(gca, Color Order, eval( mapstr)) evalstr='CS, H=contour( fc or -l nar evalstr=levalstr sprintf(arg%.0f, 1)7I; Istr=length(evalstr) evalstr(lstr: Istr+1)=) eval(evalstr) if nargout=I sCS elseif nargout==2, cS=CS; h=H d 这里要讨论的最后一个精通 MATLA B工具箱函数是 motile。就象在二维函数那一章里所 描述的一样,该函数在计算机屏幕上将4个已存在的图形按平铺模式排列起来。函数 motile.m 的内容如下所示:if nargin<1,error( ‘Not enough input arguments.’ ), end for i=2:nargin % check input arguments for N and C argi=eval(sprintf( ‘arg%.0f ‘ ,i)); if ~isstr(argi)&length(argi)==1 % must be N, grab it n=argi; nargs=i; % # args to pass to contour2 elseif isstr(argi) % must be C if exist(argi)==2 % is colormap,so grab it c=argi; nargs=i-1; else % is single color/linestyle cflag=0; nargs=i; end end end if cflag % a colormap has been chosen clf % clear figure view(2) % make it 2-D hold on % hold it mapstr=sprintf([c ‘(%.0f)’ ],n); set(gca,’ColorOrder’,eval(mapstr)); end evalstr=‘[CS,H]=contour(’; for i=1:nargs evalstr=[evalstr sprintf( ‘arg%.0f ‘ ,i) ‘,’ ]; end lstr=length (evalstr); evalstr(lstr:lstr+1)= ‘);’ ; eval(evalstr) hold off if nargout==1, cs=CS; elseif nargout==2, cs=CS;h=H; end 这里要讨论的最后一个精通 MATLAB 工具箱函数是 mmtile。就象在二维函数那一章里所 描述的一样，该函数在计算机屏幕上将 4 个已存在的图形按平铺模式排列起来。函数 mmtile.m 的内容如下所示： function h=mmtile(n)