第六章　Ｍ文件和函数句柄.pptVIP

* 例7.2-2 M函数文件示例 % [circle.m] function sa=circle(r,s) % 函数申明行 % CIRCLE plot a cirlce of radia r in the line specified by s % r 　 指定半径数值 % s 指定线型颜色的字符串 % sa 圆面积 % % circle(r) 利用蓝实线画半径为r的圆 % circle(r,s) 利用s指定的颜色画半径为r的圆 % sa=circle(r) 计算圆面积,并画半径为r的兰色圆周 % sa=circle(r,s) 计算圆面积,并画半径为r的圆,s指定线的颜色 % 编写与x年x月x日,修改于x年x月x日 * if nargin2 error(输入宗量太多); end; if nargin==1 s=b; end; clf; 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