matlab自己写的小程序

《matlab自己写的小程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、李根10级A1041000181.用上三角计算行列式的值function[DJ=fdet(A)%该函数把矩阵化成上三角，计算它的值[m,n]=size(A);ifm〜二nD三该矩阵不是方阵'；return;endfori=l:mifA(i,i)=0%判断A(i,i)是否为0,为0就要交换forj=i+l:mifA(j,i)〜=0;temp=A(i,:);A(j,:)二temp;break;endendendfork二i+1:mi个元素下面ifA(k,i)〜二0A(k,:)=A(k,:)・A(k,i)/A(i,i)*A(i,:

2、);%把该列的第都化成0endendendD=l;fori=l:mD=D*A(i,i)；enddisp(D);2.该程序实现抽奖功能functionaword()%该函数实现福彩3D和双色球摇奖功能a=fix(10*rand());b二fix(10*rand());c=fix(10*rand());disp(['3D中奖号码为:int2str(a),int2str(b),int2str(c)]);tmpflag=0;x(l)=fix(32*rand()+1);x(2)=fix(32*rand()4-1);%防止出现相同的号

3、码，双色球中无相同的红球，以下ifx(2)==x(l)tmpflag=1;whiletmpflag==1;x(2)=fix(32*rand()+1);讦x(2)〜=x(l)tmpflag=O;endendendx(3)=fix(32*rand()+1);ifx(3)==x(2)

4、

5、x(3)==x(l)tmpflag=1;whiletmpflag==1;x(3)=fix(32*rand()+1);讦x(3)〜=x(l)&x(3)〜=x(2)tmpflag=O;endendendx(4)=fix(32*rand()+1);ifx

6、(4)==x(3)

7、x(4)==x(2)

8、x(4)==x(l)tmpflag=1;whiletmpflag==1;x(2)=fix(32*rand()+1);ifx(4)〜=x(3)&x(4)〜=x(2)&x(4)〜=x(1)tmpflag=O;endendendx(5)=fix(32*rand()+1);ifx(5)==x(4)

9、x(5)==x(3)

10、x(5)==x(2)

11、x(5)==x(l)tmpflag=1;whiletmpflag==1;x(2)=fix(32*rand()+1);ifx⑸〜=x(4)&x(5)〜=x

12、(3)&x(5)〜=x(2)&x(5)〜=x(l)tmpflag=O;endendendx(6)=fix(32*rand()+1);ifx(6)==x(5)

13、x(6)==x(4)

14、x(6)==x(3)

15、x(6)==x(2)

16、x(6)==x(l)tmpflag=l;whiletmpflag==1;x(2)=fix(32*rand()+1);ifx⑹〜=x(5)&x(6)〜=x(4)&x(6)〜二x(3)&x⑹〜=x(2)&x(6)〜二x(l)tmpflag=O;endendendd=fix(16*rand());disp([*

17、取色球中奖号码:,,int2str(x(l)),'+',int2str(x(2)),,+,,int2str(x(3)),,+',int2str(x(4)),,+',int2str(x(5)),,+',int2str(x(6)),'+'蓝球*,int2str(d)]);end1.该函数用来出+-*/题，考察小学生，并计算作对的题目functionhl()%随机出小学加减乘除的题考查小学生的计算能力disp('该函数用来出10道题!');％如想出多少道可以改while的上界值count=0;i=l;whilei<=10a=fi

18、x(rand()*100);b=fix(rand()*100);c=fix(rand()*34-1);switchccase1fprintf(,%d+%d=a,b);tl=input(*');讦(a+b)==tlfprintf(*Vf);count二count+1;elsefprintf(*x');endcase2ifa

19、');endcase3fprintf(,%d*%d=',a,b);tl=input(f*);if(a*b)==tlfprintf(*V');count=count+l;elsefprintf(*x');endcase4ifb==0b=fit(rand()*99+1);endfp