function sa = exm0844_1(r,s)
%exm844_1		plot a circle of radii r in the line specified by s.
%
%				本文件功能與 circle.m 完全相同。
%				本文件之所以起這名，是為光盤文件統一編碼和用戶方便需要
%
%	r			指定半徑的數值
%	s			指定線色的字符串
%	sa			圓面積
%
% exm844_1(r)				利用藍實線畫半徑為 r 的圓周線.
% exm844_1(r,s)			利用串 s 指定的線色畫半徑為 r 的圓周線.
% sa=exm844_1(r)			計算圓面積，并畫半徑為 r 的藍色圓面.
% sa=exm844_1(r,s)		計算圓面積，并畫半徑為 r 的 s 色圓面.

% 編寫于1999年4月7日，修改于1999年8月27日。
if nargin>2
   error('輸入宗量太多。');
end;
if nargin==1
   s='b';
end;
clf;shg
t=0:pi/100:2*pi;
x=r*exp(i*t);
if nargout==0
   plot(x,s);
else
   sa=pi*r*r;
   fill(real(x),imag(x),s)
end
axis('square')