一个自动计算彩票码的程序修订稿.docx

WEIHUA system office room 【WEIHUA 16H-WEIHUA WEIHUA8Q8-WEIHUA1688】
一个自动计算彩票码的程序
function [] = cal3D()
clc;clear;
U=dlmread('',' '); %从文件读取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('','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('','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('','wt');%具体输出3D号每个号出现的具体情况
fprintf(fiddetail2,'每个号码出现的频数是(按频数递增顺序排列):\n');
for i=1:1000
fprintf(fiddetail2,'%d %d\n',c(i,1),c(i,2));
end
fclose(fiddetail2);
function []=qlcmain()
clc;
clear;
qlcno=7;%定义七乐彩的号码个数
qlc=zeros(1,qlcno);%初始化七乐彩号码全部为0
flag=false;%定义一个标志变量
rand('state', sum(100*clock)