exm060201.m

来自「matlab电子书籍」· M 代码 · 共 30 行

function [S,L]=exm060201(N,R,str)
	
%  Zhang Zhiyong 编写于 2006-1-31

switch nargin
    case 0
        N=100;R=1;str='-b';
    case 1
        R=1;str='-b';
    case 2
        str='-b';
    case 3
     otherwise
        error('输入量太多。');
end;
t=0:2*pi/N:2*pi;
x=sin(t);y=cos(t); 
if nargout==0
   plot(x,y,str);
elseif nargout>2
   error('输出量太多。');
else
   S=N*R*R*sin(2*pi/N)/2;	
   L=2*N*R*sin(pi/N);		
   fill(x,y,str)
end
axis equal square
box on
shg