qlcmain.m

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

function []=qlcmain()
clc;
clear;
qlcno=7;%定义七乐彩的号码个数
qlc=zeros(1,qlcno);%初始化七乐彩号码全部为0
flag=false;%定义一个标志变量
rand('state', sum(100*clock));
%-------------------以下代码是生成七乐彩的七个号码--------------------
for i=1:qlcno
    while (flag==false)
        qlc(i)=unidrnd(30);
        for j=1:qlcno
           if (qlc(i)==qlc(j))
               if i==j
                   continue;
               else
                    flag=false;
                    break;
               end
           end
           flag=true;
        end
    end
    flag=false;
end
qlc=sort(qlc);%将产生的六个红色号码进行排序,按从大到小输出
%------------------这段代码生成七乐彩的号码-------------------------
%------------------以下代码输出七乐彩的号码-------------------------
fid=fopen('qlc.txt','at');%输出七乐彩的号码
fprintf(fid,'今天是:%s',datestr(date,26));
fprintf(fid,'号,随机生成的号码是: ');
for i=1:qlcno     %输出七乐彩号码
    fprintf(fid,'%d ',qlc(i));
end
fprintf(fid,'\n');
fclose(fid);