m文件实例.doc

例1 某班级对学生的成绩划分等级，标准如下(分数用mark来表示)： 90 mark 100 等级为A 80mark90 等级为B 70mark80 等级为C 60mark70 等级为D 0mark 0) s mean=s/cntend例7 求100，200之间第一个能被21整除的整数。解答1：for val=100:200 if rem(val,21)=0 break endendval解答2：for val=100:200 if rem(val,21)=0 continue end breakendval例8 若一个数等于它的各个真因子之和，则称该数为完数，如6=1+2+3，所以6是完数。求1,500之间的全部完数。解答1：for val=1:500 A=zeros(1,fix(val/2); %A为一行fix（val/2）列的全零数组，用于存储真因子 for i=1:fix(val/2) %真因子的可能取值 if rem(val,i)=0 %i为真因子的情况 A(1,i)=i; %将i赋值为A的第i列 end end if sum(A(:)=val disp(val); endend解答2：for m=1:500 s=0; for k=1:m/2 if rem(m,k)=0 s=s+k; end end if m=s disp(m); endend例9 编写函数文件求半径为r的圆的面积和周长。解答：function area,peri=ap(r)area=pi*r2;peri=2*pi*r;end 例10 利用函数的递归调用，求n！解答1：function f=factorical2(n)if n2)求Fibonacci数列的第20项。解答（函数的递归调用）：function s=fibonacci(n)if n=1 | n=2 %避绕式或 s=1;else s=fibonacci(n-2)+fibonacci(n-1);End例13 写一个matlab小程序，求出最小的n值，使得n！realmax。请问n的值是多少？（n-1）！的值是多少？解答：s=1;i=0;while s=realmax i=i+1; s=s*i;enddisp(n=);disp(i);disp(n-1)!=);disp(s/i); 例14 编程求1！+2！+3！+ +5！的值；求1！+2！+3！+ +n！的值（n为正整数）。解答：function s=factorical3(n) %求1！+2！+3！+n！s=0;for i=1:n s=s+factorical2(i); %调用函数factorical2（）endend function f=factorical2(n) %求n！if n=1 f=1;else f=factorical2(n-1)*n;endend 例15 求pi：pi/4=1-1/3+1/5-1/7+1/9-1/11+直到第100项。function s=cpi(n