对福利彩票提点建议

[ddn_star]

现在福利彩票很流行,大伙能否对福利彩票提点建议:
比如思路\函数\概率\算法等?

[ddn_star]

有没有哪位大哥大姐的代码借我看看,我总是写不好
email:[e-mail]

[Jover]

up

[Jover]

up

[Jover]

up

[Nizvoo]

老兄：
你想抽奖赚米米吗？
不要相信程序算出来的东西。
要用第七感觉去感受。
这个东西别人用算法算出来是好多好多分之一我却不那么认为。
这可以用偶然性与必然偶来解释。
你中奖是偶然同同时也是个必然的。
你不中奖是必然的同时也是偶然的。
就像你明天要死不会等到后天。
你明末要活不会今天会死。

[luoxf]

有空我也想去

[tikkypeng]

呵呵～～

[9527]

咋们两个可以交流一下,我也不知道该如何体现概率,我写的函数,不过觉得很差,是等概率的,My Mail:[e-mail]

function GetLottery(SumSeeds,LotSeeds:integer):string;
var
FromBalls,ToBalls:array of integer;
i,j,k,l,m:integer;
s:string;
begin
SetLength(ToBalls,LotSeeds);
SetLength(FromBalls,SumSeeds);
k:=SumSeeds-1;
for i:=1 to LotSeeds do
begin
j:=1+random(k);
for l:=0 to SumSeeds-1 do
begin
if l>j-1 then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end
else
begin
if FromBalls[l]<>0 then
Inc(j);
end;
end;
Dec(k);
s:=s+Format('%2.2d',[Toballs[i-1]])+',';
end;
result:=s;
end;

[9527]

我新写的几个函数，很初步，并且效率不高，但是可以简单的实现等概率、排除选定组合、包含选定组合的取值，希望能够交流一下。使用函数前不要忘了Randomize呀，要不然呵呵。

//----------------------------------------------------------------------------
//函数：function CharFrequency(const subString,s:string):integer;
//作用：取得指定子句subString在字符串s中出现的频率
//参数：subString:子句；s查询字符串。
//----------------------------------------------------------------------------
function CharFrequency(const subString,s:string):integer;
var
internalString:string;
i,j,k:integer;
begin
internalString:=s;
k:=0;
j:=Length(subString);
i:=Pos(substring,internalString);
while i>0 do
begin
k:=k+1;
Delete(internalString,i,j);
i:=Pos(substring,internalString);
end;
result:=k;
end;


//----------------------------------------------------------------------------
//函数：function GetLottery(SumSeeds,LotSeeds:integer):string;
//作用：等概率取得在选定范围内[1..SumSeeds]中LotSeeds数量的一个随机数序列
//参数：SumSeeds:取数范围，从1开始；LotSeeds:随机数序列的长度。
//----------------------------------------------------------------------------
function GetLottery(SumSeeds,LotSeeds:integer):string;
var
FromBalls,ToBalls:array of integer;
i,j,k,l,m:integer;
s:string;
begin
SetLength(ToBalls,LotSeeds);
SetLength(FromBalls,SumSeeds);
k:=SumSeeds;
for i:=1 to LotSeeds do
begin
j:=1+random(k);
for l:=1 to SumSeeds do
begin
if l>j then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end
else
begin
if FromBalls[l-1]<>0 then
Inc(j)
else
begin
if l=j then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end;
end;
end;
end;
Dec(k);
s:=s+Format('%2.2d',[Toballs[i-1]])+',';
end;
result:=s;
end;

//----------------------------------------------------------------------------
//函数：function ExceptLot(SumSeeds,LotSeeds:integer;ExceptStr:array of integer):string;
//作用：排除制定的整数序列ExceptStr，
// 取得在选定范围内[1..SumSeeds]中LotSeeds数量的一个随机数序列
//参数：SumSeeds:取数范围，从1开始；LotSeeds:随机数序列的长度；ExceptStr:被排除的证书序列，
// 使用方式如[1，2，3，4]。
//----------------------------------------------------------------------------
function ExceptLot(SumSeeds,LotSeeds:integer;ExceptStr:array of integer):string;
var
FromBalls,ToBalls:array of integer;
i,j,k,l,m:integer;
s:string;
begin
if Length(ExceptStr)>=(SumSeeds-LotSeeds) then
begin
ShowMessage('排除范围过大');
Result:='';
Exit;
end;

LotSeeds:=LotSeeds+Length(ExceptStr);//注意和包含取法的不同
SetLength(ToBalls,LotSeeds);
SetLength(FromBalls,SumSeeds);
for i:=0 to Length(ExceptStr)-1 do
begin
ToBalls[i]:=ExceptStr[i];
FromBalls[ToBalls[i]-1]:=i+1;
end;

k:=SumSeeds-Length(ExceptStr);
for i:=1+Length(ExceptStr) to LotSeeds do
begin
j:=1+random(k);
for l:=1 to SumSeeds do
begin
if l>j then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end
else
begin
if FromBalls[l-1]<>0 then
Inc(j)
else
begin
if l=j then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end;
end;
end;
end;
Dec(k);
s:=s+Format('%2.2d',[Toballs[i-1]])+',';
end;
result:=s;
end;

//----------------------------------------------------------------------------
//函数：function IncludeLot(SumSeeds,LotSeeds:integer;ExceptStr:array of integer):string;
//作用：始终选定指定的整数序列ExceptStr，
// 取得在选定范围内[1..SumSeeds]中LotSeeds（包含Exceptstr)数量的一个随机数序列
//参数：SumSeeds:取数范围，从1开始；LotSeeds:随机数序列的长度；ExceptStr:始终包含的整数序列，
// 使用方式如[1，2，3，4]。
//----------------------------------------------------------------------------
function IncludeLot(SumSeeds,LotSeeds:integer;ExceptStr:array of integer):string;
var
FromBalls,ToBalls:array of integer;
i,j,k,l,m:integer;
s:string;
begin
if Length(ExceptStr)>=LotSeeds then
begin
ShowMessage('包含范围过大');
Result:='';
Exit;
end;

SetLength(ToBalls,LotSeeds);
SetLength(FromBalls,SumSeeds);

for i:=0 to Length(ExceptStr)-1 do
begin
ToBalls[i]:=ExceptStr[i];
FromBalls[ToBalls[i]-1]:=i+1;
s:=s+Format('%2.2d',[Toballs[i]])+',';//包含时的做法
end;

k:=SumSeeds-Length(ExceptStr);
for i:=1+Length(ExceptStr) to LotSeeds do
begin
j:=1+random(k);
for l:=1 to SumSeeds do
begin
if l>j then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end
else
begin
if FromBalls[l-1]<>0 then
Inc(j)
else
begin
if l=j then
begin
ToBalls[i-1]:=j;
FromBalls[j-1]:=i;
Break;
end;
end;
end;
end;
Dec(k);
s:=s+Format('%2.2d',[Toballs[i-1]])+',';
end;
result:=s;
end;

//----------------------------------------------------------------------------
//函数：function CallGetInclude(SumSeeds,LotSeeds:integer;ExceptStr:string):string;
//作用：将符合要求格式的ExceptStr:string转化为array of integer，并调用函数IncludeLot;
//参数：解释略
//----------------------------------------------------------------------------
function CallGetInclude(SumSeeds,LotSeeds:integer;ExceptStr:string):string;
var
i,j,iRound,iLength:integer;
iParam:array of integer;
sParam,s:string;
begin
sParam:=ExceptStr;
iRound:=CharFrequency(',',sParam);
iLength:=Length(sParam);
if Copy(sParam,iLength,1)<>',' then
begin
iRound:=iRound+1;
iLength:=iLength+1;
sParam:=sParam+',';
end;
SetLength(iParam,iRound);
s:='';
j:=0;
for i:=1 to iLength do
begin
if sParam[i]=',' then
begin
iParam[j]:=StrToIntDef(s,0);
s:='';
inc(j);
end
else
begin
s:=s+sParam[i];
end;
end;
result:=IncludeLot(SumSeeds,LotSeeds,iParam);
end;

//----------------------------------------------------------------------------
//函数：function CallGetExcept(SumSeeds,LotSeeds:integer;ExceptStr:string):string;
//作用：将符合要求格式的ExceptStr:string转化为array of integer，并调用函数ExceptLot;
//参数：解释略
//----------------------------------------------------------------------------
function CallGetExcept(SumSeeds,LotSeeds:integer;ExceptStr:string):string;
var
i,j,iRound,iLength:integer;
iParam:array of integer;
sParam,s:string;
begin
sParam:=ExceptStr;
iRound:=CharFrequency(',',sParam);
iLength:=Length(sParam);
if Copy(sParam,iLength,1)<>',' then
begin
iRound:=iRound+1;
iLength:=iLength+1;
sParam:=sParam+',';
end;
SetLength(iParam,iRound);
s:='';
j:=0;
for i:=1 to iLength do
begin
if sParam[i]=',' then
begin
iParam[j]:=StrToIntDef(s,0);
s:='';
inc(j);
end
else
begin
s:=s+sParam[i];
end;
end;
result:=ExceptLot(SumSeeds,LotSeeds,iParam);
end;