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')   % 使得輸出圖形坐標為正方形