上一篇
下一篇
拉手网原价4880元原装苹果iPad平板电脑-1元，连续送100台
作者:admin 日期:2010-06-15
这两天闲着无事看到好些团购网站都在做活动抽奖等等，看到拉手网的奖品颇具诱惑，下单之后就等着抽奖即可，不像别的网站说中奖后还要给他引多少个注册用户才行。
抽奖规则是这样的：
基本中奖规则：采用中国体育彩票全国联网“22选5”每日开奖结果（http://www.lottery.gov.cn/22xuan5/），以开出的5个号码及总共参加抽奖的人数为基础进行抽奖。
将开出的五个数字（由小到大排列）合并，整除以截止每个抽奖日23：59：59之前的所有参与人数，取得的余数加1，即为中奖用户顺序号。
在拉手网注册下单之后获得一个序列号，这个就叫做幸运号吧，但是我后来发现不光这个是幸运号，重要的也不是体彩的开奖结果而是当天参与的总人数。
按数学来说不限定被除数的话余数的范围就是0到除数-1之间的数，这么说来人人均有机会而且是公平的，要觉得不公那就找体彩去吧 哈哈，但是仔细一想就不对了，体彩的开奖数据可不是能充当所有的被除数，数据最小是01 02 03 04 05，之后就是01 02 03 04 06 ……01 02 03 04 22 ，01 02 03 05 06 最后是18 19 20 21 22
102030405到1819202122之间的数字好多事不存在的，22选5的结果一共有26334个，截止昨晚共有92102人参与，可是中奖机会最多也就26334种，那么这些人中谁有机会中奖呢？在此先不考虑加200、300的顺序号。
这个只是排序后显示了一部分，可以看到当人数固定为92102的时候有的人就注定已经被排除了，有的人可能会有两个对应的彩票号码，也就是说无论有多少人参加可能有一部分人根本没有中奖的机会。运气更不好的话连续10天的抽奖可能都会被总人数的数字给驱逐出局。
更多的数字请下载excel表格，我分别以总人数92102和93832为例导出了序号和对应的彩票号码里边有两个工作表。
点击下载此文件根据前一天截止的总人数判断你的序号是否有中奖机会的程序我有，不过是基于asp的呵呵，本人最熟悉这个了 永别的语言来实现思路应该是一样的啦
程序代码<%
Server.ScriptTimeOut=999999
response.buffer=false
%>
<form id="form1" name="form1" method="post" action="">
您的序列号
<label>
<input name="shunxu" type="text" id="shunxu" value="<%=request("shunxu")%>" />
</label>
<br />
参与总人数
<label>
<input name="renshu" type="text" id="renshu" value="<%=request("renshu")%>" />
</label>
<br />
<label>
<input type="submit" name="button" id="button" value="开始吧" />
</label>
</form>
<%
if isnumeric(request("shunxu")) and isnumeric(request("renshu")) and request("shunxu")<>"" and request("renshu")<>"" then
dim shunxu,renshu,flag,n,i,ticai,res
shunxu=request("shunxu")
renshu=request("renshu")
flag=false
n=int(102030405/renshu) '体彩最小就是01 02 03 04 05
do while not flag
ticai=cstr(renshu * n + shunxu -1) '反向推理，幸运数-1就是余数了
if len(ticai)=9 then '体彩合并后分9位数和10位数，9位数第一组就是1位数了
if cint(mid(ticai,1,1)) < cint(mid(ticai,2,2)) and cint(mid(ticai,2,2)) < cint(mid(ticai,4,2)) and cint(mid(ticai,4,2)) < cint(mid(ticai,6,2)) and cint(mid(ticai,6,2)) < cint(mid(ticai,8,2)) and cint(mid(ticai,8,2)) <= 22 then
res= res & "有效数据：总人数：" & renshu & ",体彩：" & mid(ticai,1,1) & " " & mid(ticai,2,2) & " " & mid(ticai,4,2) & " " & mid(ticai,6,2) & " " & mid(ticai,8,2) & ",顺序：" & shunxu & "<br />"
else
'response.Write "无效数据：" & ticai & "<br />"
end if
elseif len(ticai)=10 then
if cint(mid(ticai,1,2)) < cint(mid(ticai,3,2)) and cint(mid(ticai,3,2)) < cint(mid(ticai,5,2)) and cint(mid(ticai,5,2)) < cint(mid(ticai,7,2)) and cint(mid(ticai,7,2)) < cint(mid(ticai,9,2)) and cint(mid(ticai,9,2)) <= 22 then
res= res & "有效数据：总人数：" & renshu & ",体彩：" & mid(ticai,1,2) & " " & mid(ticai,3,2) & " " & mid(ticai,5,2) & " " & mid(ticai,7,2) & " " & mid(ticai,9,2) & ",顺序：" & shunxu & "<br />"
else
'response.Write "无效数据：" & ticai & "<br />"
end if
elseif len(ticai)>10 then '超出体彩范围，当然无效了
flag = true
'response.Write "超出范围：" & ticai & "<br />"
else
'response.Write "无效数据：" & ticai & "<br />"
end if
n=n+1
loop
if res="" then res="总人数:" & renshu & "无数据<br />"
response.write res
end if
%>
Server.ScriptTimeOut=999999
response.buffer=false
%>
<form id="form1" name="form1" method="post" action="">
您的序列号
<label>
<input name="shunxu" type="text" id="shunxu" value="<%=request("shunxu")%>" />
</label>
<br />
参与总人数
<label>
<input name="renshu" type="text" id="renshu" value="<%=request("renshu")%>" />
</label>
<br />
<label>
<input type="submit" name="button" id="button" value="开始吧" />
</label>
</form>
<%
if isnumeric(request("shunxu")) and isnumeric(request("renshu")) and request("shunxu")<>"" and request("renshu")<>"" then
dim shunxu,renshu,flag,n,i,ticai,res
shunxu=request("shunxu")
renshu=request("renshu")
flag=false
n=int(102030405/renshu) '体彩最小就是01 02 03 04 05
do while not flag
ticai=cstr(renshu * n + shunxu -1) '反向推理，幸运数-1就是余数了
if len(ticai)=9 then '体彩合并后分9位数和10位数，9位数第一组就是1位数了
if cint(mid(ticai,1,1)) < cint(mid(ticai,2,2)) and cint(mid(ticai,2,2)) < cint(mid(ticai,4,2)) and cint(mid(ticai,4,2)) < cint(mid(ticai,6,2)) and cint(mid(ticai,6,2)) < cint(mid(ticai,8,2)) and cint(mid(ticai,8,2)) <= 22 then
res= res & "有效数据：总人数：" & renshu & ",体彩：" & mid(ticai,1,1) & " " & mid(ticai,2,2) & " " & mid(ticai,4,2) & " " & mid(ticai,6,2) & " " & mid(ticai,8,2) & ",顺序：" & shunxu & "<br />"
else
'response.Write "无效数据：" & ticai & "<br />"
end if
elseif len(ticai)=10 then
if cint(mid(ticai,1,2)) < cint(mid(ticai,3,2)) and cint(mid(ticai,3,2)) < cint(mid(ticai,5,2)) and cint(mid(ticai,5,2)) < cint(mid(ticai,7,2)) and cint(mid(ticai,7,2)) < cint(mid(ticai,9,2)) and cint(mid(ticai,9,2)) <= 22 then
res= res & "有效数据：总人数：" & renshu & ",体彩：" & mid(ticai,1,2) & " " & mid(ticai,3,2) & " " & mid(ticai,5,2) & " " & mid(ticai,7,2) & " " & mid(ticai,9,2) & ",顺序：" & shunxu & "<br />"
else
'response.Write "无效数据：" & ticai & "<br />"
end if
elseif len(ticai)>10 then '超出体彩范围，当然无效了
flag = true
'response.Write "超出范围：" & ticai & "<br />"
else
'response.Write "无效数据：" & ticai & "<br />"
end if
n=n+1
loop
if res="" then res="总人数:" & renshu & "无数据<br />"
response.write res
end if
%>
文章来自: 
引用通告: 
Tags: 评论: 2 | 引用: 0 | 查看次数: 464
回复
路过[2010-06-20 11:16 AM | 
]能不能想办法证明某顺序号内的中奖概率呢？
高手 ··············
发表评论
