circle.m

一些小的程序

function sa = circle(r,s)   % 首行是函数声明行，以function开头
%CIRCLE		以制定颜色画半径为r的圆面
%	r			指定半径的数值
%	s			指定线色的字符串
%	sa			圆面积
%
% circle(r)			利用蓝实线画半径为 r 的圆周线.
% circle(r,s)			利用串 s 指定的线色画半径为 r 的圆周线.
% sa=circle(r)		计算圆面积，并画半径为 r 的蓝色圆面.
% sa=circle(r,s)		计算圆面积，并画半径为 r 的 s 色圆面.

% 编写于1999年4月7日，修改于1999年8月27日。
if nargin>2   % nargin表示输入宗量的变量个数，是系统保留变量
   error('输入宗量太多。'); % error把引号的内容在命令窗口前加问号输出
end
if nargin==1
   s='b';
end
clf       %清图形窗口
t=0:pi/100:2*pi;
x=r*exp(i*t);
if nargout==0   % nargin表示输出宗量的变量个数，是系统保留变量
   plot(x,s);
else
   sa=pi*r*r;
   fill(real(x),imag(x),s) % fill指令是填充颜色指令，具体看帮助
end
axis('square')   % 使得输出图形坐标为正方形