cal3d.m

一个自动计算彩票号码的程序,是用matlab编写的,有3D,双色球和七乐彩.需要请顶一下.

function [] = cal3D()
clc;clear;
U=dlmread('3dhistory.txt',' ');            %从3dhistory.txt文件读取U阵
[N,m]=size(U);
count=0;
number=0;
a=inf(1,10000);
for i=1:1000
    b(i)=0;
end
for i=1:N
    for j=1:m
        a(i)=U(i,1)*100+U(i,2)*10+U(i,3);
    end
end
fid=fopen('3D.txt','wt');%输出3D的号码
for i=1:10000
    if (a(i)==0)
        b(1)=b(1)+1;
        %continue;
    elseif (a(i)~=inf)
        b(a(i)+1)=b(a(i)+1)+1;    
    end
end    
fprintf(fid,'没有出现过的号码的是: \n');
if (b(1)==0)
    fprintf(fid,'%d',0);
    fprintf(fid,'\n');
    count=count+1;
end
for i=2:1000
    if b(i)==0
       fprintf(fid,'%d',i-1);
       fprintf(fid,'\n');
       count=count+1;
    end
end
fprintf(fid,'没有出现过的号码的个数是:%d ',count);
fclose(fid);
fiddetail=fopen('3Ddetail.txt','wt');%具体输出3D号每个号出现的具体情况
fprintf(fiddetail,'每个号码出现的频数是(从小号码到大号码):\n');
for i=0:999
    fprintf(fiddetail,'%d  %d\n',i,b(i+1));
end
fclose(fiddetail);
for i=1:1000
    c(i,1)=i-1;c(i,2)=b(i);
end
c=sortrows(c,2);
fiddetail2=fopen('3Ddetail2.txt','wt');%具体输出3D号每个号出现的具体情况
fprintf(fiddetail2,'每个号码出现的频数是(按频数递增顺序排列):\n');
for i=1:1000
     fprintf(fiddetail2,'%d  %d\n',c(i,1),c(i,2));
end
fclose(fiddetail2);