一个自动计算彩票号码的程序

精心整理function[]=cal3D()clc;clear;U=dlmread('3dhistory.txt','');%从3dhistory.txt文读取U阵[N,m]=size(U);count=0;number=0;a=inf(1,10000);fori=1:1000b(i)=0;endfori=1:Nforj=1:ma(i)=U(i,1)*100+U(i,2)*10+U(i,3);endendfid=fopen('3D.txt','wt');%输出的码fori=1:10000if(a(i)==0)b(1)=b(1)+1;%continue;elseif(a(i)~=inf)b(a(i)+1)=b(a(i)+1)+1;endendfprintf(fid,'没有出现过的号码的是\n');if(b(1)==0)fprintf(fid,'%d',0);fprintf(fid,'\n');count=count+1;endfori=2:1000ifb(i)==0fprintf(fid,'%d',i-1);fprintf(fid,'\n');count=count+1;endendfprintf(fid,'没有出现过的号码的个数是%d',count);fclose(fid);fiddetail=fopen('3Ddetail.txt','wt');%具输出3D号每个号出现的具体情况fprintf(fiddetail,'每个号码出现的频数是从小号码到号码):\n');fori=0:999fprintf(fiddetail,'%d%d\n',i,b(i+1));endfclose(fiddetail);

精心整理fori=1:1000c(i,1)=i-1;c(i,2)=b(i);endc=sortrows(c,2);fiddetail2=fopen('3Ddetail2.txt','wt');%具输出3D号每个号出现的具体情况fprintf(fiddetail2,'每个号码出现的数是频数递增顺序排列):\n');fori=1:1000fprintf(fiddetail2,'%d%d\n',c(i,1),c(i,2));endfclose(fiddetail2);function[]=qlcmain()clc;clear;qlcno=7;%定义七乐彩的号码个数qlc=zeros(1,qlcno);%初始化七乐彩号全部为0flag=false;%定一个标志变量rand('state',sum(100*clock));%-------------------以下代码是生成乐彩的七个号码-------------------fori=1:qlcnowhile(flag==false)qlc(i)=unidrnd(30);forj=1:qlcnoif(qlc(i)==qlc(j))ifi==jcontinue;elseflag=false;break;endendflag=true;endendflag=false;endqlc=sort(qlc);%将产生的六个红色号码进行排序按从大小输出%------------------这段代码生成七乐彩的号码------------------------%------------------以下代码输出七乐彩的号码------------------------fid=fopen('qlc.txt','at');%出七乐彩的号码fprintf(fid,'今天是%s',datestr(date,26));fprintf(fid,'号机生成的号码:');fori=1:qlcno%输出七乐彩号码fprintf(fid,'%d',qlc(i));endfprintf(fid,'\n');fclose(fid);function[]=sDmain()

精心整理clc;clear;sDno=3;%定3D号个数sD=zeros(1,3);rand('state',sum(100*clock));fori=1:sDnosD(i)=round(9*rand(1,1));endfid=fopen('3D.txt','at');%输出的码fprintf(fid,'今天是%s',datestr(date,26));fprintf(fid,'号机生成的号码:');fori=1:sDno%输出红色球fprintf(fid,'%d',sD(i));ifi<sDnofprintf(fid,'|');endendfprintf(fid,'\n');fclose(fid);function[]=ssqmain()clc;clear;%机产生彩票号码ssqredno=6;%定双色球的红球号码个数%ssqblueno=1;%定义双色球的蓝球号码数ssqred=zeros(1,ssqredno);%初始化双色球红球号码全部为%ssqblue=zeros(1,ssqblueno);%初始化双色球蓝球号码为flag=false;%定一个标志变量rand('state',sum(100*clock));%-------------------以下代码是生成色球的六个红色号码-------------------fori=1:ssqrednowhile(flag==false)ssqred(i)=unidrnd(33);forj=1:ssqrednoif(ssqred(i)==ssqred(j))ifi==jcontinue;elseflag=false;break;endendflag=true;endendflag=false;end

精心整理ssqred=sort(ssqred);%将产生的六个红色号码进行排序按大到小输出%生双色球蓝色号码ssqblue=unidrnd(16);%------------------这段代码生成双色球的号码------------------------%------------------以下代码输出双色球的号码------------------------fid=fopen('ssq.txt','at');%出双色球的号码fprintf(fid,'今天是%s',datestr(date,26));fprintf(fid,'号机生