控制流语句if-else-end

源代码在线查看: 编写一个m函数文件。.txt

软件大小: 4 K
上传用户: dragoncircle
关键词: if-else-end 控制流
下载地址: 免注册下载 普通下载 VIP

相关代码

				编写一个M函数文件。 它具有以下功能:(A)根据指定的半径,画出蓝色圆周线;(B)可以通过输入字符串,改变圆周线的颜色、线型;(C)假若需要输出圆面积,则绘出圆。
				(1)
				
				function [S,L]=exm060201(N,R,str)
				% exm060201.m    The area and perimeter of a regular polygon (正多边形的面积和周长)
				% 			N 				The number of sides 
				% 			R 				The circumradius
				% 			str 		 		A line specification to determine line type/color
				% 			S 				The area of the regular polygon
				% 			L 				The perimeter of the regular polygon
				% exm060201      			用蓝实线画半径为 1 的圆
				% exm060201(N)   			用蓝实线画外接半径为 1 的正 N 边形
				% exm060201(N,R)  			用蓝实线画外接半径为 R 的正 N 边形
				% exm060201(N,R,str) 		用 str 指定的线画外接半径为 R 的正 N 边形
				% S=exm060201(...)          		给出多边形面积 S ,并画相应正多边形填色图
				% [S,L]=exm060201(...)      	给出多边形面积 S 和周长L,并画相应正多边形填色图
				
				%  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=R*sin(t);y=R*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     
				
				(2)
				[S,L]=exm060201(6,2,'-g')		  
				S =
				   10.3923
				L =
				   12.0000
				 
							

相关资源