内容简介作者简介 - 科学与工程计算系

7.5.1 输入输出宗量检测指令
7.5.2 “变长度”输入输出宗量
【例 7.5.2-1】变长度宗量使用示例。
(1)
[exm07052_1.m]
function varargout = exm07052_1(r,varargin)
%RINGZY Plot a ring and calculate the area of the ring.
%
%
vin=length(varargin);Nin=vin+1; %
error(nargchk(1,Nin,nargin)) %
if nargout>6 %
error('Too many output arguments')
end
t=0:pi/20:2*pi;x=r*exp(i*t);s=pi*r*r;
if nargout==0
switch Nin
case 1
plot(x,'b')
case 2
r2=varargin{1}; %
x2=r2*exp(i*t);
plot(x,'b');hold on ;plot(x2,'b');hold off
otherwise
r2=varargin{1}; %
x2=r2*exp(i*t);
plot(x,varargin{2:end});hold on %
plot(x2,varargin{2:end});hold off %
end;
axis('square')
else
varargout{1}=real(x);varargout{2}=imag(x); %
varargout{5}=pi*r*r;varargout{6}=[]; %
if Nin>1
r2=varargin{1}; %
x2=r2*exp(i*t);
varargout{3}=real(x2);varargout{4}=imag(x2); %
varargout{6}=pi*(r^2-r2^2); %
end;
end
(2)
r1=1;r2=3;
[x1,y1,x2,y2,s1,s2]=exm07052_1(r1);
[x1,y1,x2,y2]=exm07052_1(r1,r2);
[x1,y1,x2,y2,s1,s2]=exm07052_1(r1,r2);
(3)
r1=1;r2=0.6;
subplot(1,3,1),exm07052_1(r1,r2),
6