ssqmain.m

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

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