彩票数字分析

[edwardwdh]

共有7位数字,范围是0-9,随意排列,例如 8 8 9 1 9 3 2

现在要作的是挑出其中的 重叠数比如88,其中的间隔数比如919,其中的连数32,重复号比如8,9就出现了两次.重叠数,连数不能限个数,比如888,1234等,间隔数只能是间隔一位.

我现在已经大致做完,但是算法太差,里面错误很多,那位大哥有更好的算法能帮帮小弟啊.

[edwardwdh]

........楼上的真是........

自己继续顶~~~~~~~~

[happynet]

好像比较费脑。呵呵！不过建议先自己用流程图实现一下你的需要。

然后再到这里问。看不懂！

[plought]

<%
Dim letar(10)
Dim fctar(7)
tstar,ii,tempvar1,tempvar2,tempvar3
tstar = "8-8-9-1-9-3-2"
For ii=0 to 9
letar(ii)=ii
Next
fctar(ii)=split(tstar,"-",7,1)

tempvar1=jccfs() '///取出重复的数字
tempvar2=jclxs() '///取出连续的数字
tempvar3=jcjgs() '///取出间隔的数字

Function jccfs()
dim cfs,ifn,jfn,tmpvar
tmpvar=false
for ifn=0 to 6
for jfn=0 to 6
if (fctar(ifn)=fctar(jfn)) and (ifn<>jfn) then
cfs=fctar(ifn)
Exit for
end if
next
if tmpvar then Exit for
Next
jccfs = cfs
end Function

Function jclxs()
'......
'同上方法取出连续数
end Function

Function jcjgs()
'........
'同上方法取出间隔数
end Function

[edwardwdh]

解释一下,一期彩票为一串7位数字,如8 8 9 1 9 3 2 每一位都是单独一列存到数据库里.


现在想在网页里实现显示每一期的叠号,连号,间隔号,重复号.


1,叠号:如上举例,88为叠号,没有位数限制即888,8888,只要相同并相连就算叠号.

2,连号:如上,32为连号,没有位数和升降序限制即321,123456都算连号.

3间隔号:如上,919为间隔号,两个相同数字间间隔一位其他数字就为间隔号,如191.

4重复号:如上,8,9都出现了多次,就算重复号,没有位置限制.



大家踊跃发言啊.

[明珠佩佩]

穷疯了吧，研究这个。。。

研究混沌数学先，对你的分析肯定会有帮助的

[edwardwdh]

先谢谢plought()大哥了.


在补充一下,同一期里可能有多个叠号,连号,间隔号,重复号,都要显示出来.尤其是后面的连号,间隔号做起来很麻烦.

[edwardwdh]

俺是给人打工作的T_T,经理非让做出来我也没办法啊.

之前有个山东体彩做过这方面的,不过那个网站已经好几个月上不去了.

子啊!!赐段代码吧!!!!

[plought]

TO: edwardwdh()

已经告诉你一个可行的思路了，实现全部功能的代码还是由你自己来完成比较好
这种程序东西在Web上运行的效率是令人汗颜的。

周密计算的代码量很大，别说是100分，就是100元也不一定有人给你现做，除非那个热心人有现成的代码给你参考。

对勿住哟！！！

[edwardwdh]

http://www.sdcp.com.cn/news/tjindex.php

山东的那个,网页右下脚的中奖号码分布图,就是照它作的.

[edwardwdh]

http://tjlottery.cn/6j1proba.asp


里面的网页都是我做的,只是我的算法太差,错误很多,尤其是连号,叠号和间隔号方面.大家有什么好思路就帮帮我吧.

[plought]

算法之前注意的要点：
1、用自定义函数实现单独的功能（例如：取出所有重复的号码）
2、利用函数的传值功能，在函数里设置数组保存所有符合条件的号码，返回数组
3、在无法预先知道号码排列规律性的前提下，用For有限循环历遍检查是唯一可靠的选择

[edwardwdh]

谢了,plought()

我在琢磨琢磨,脑子有点乱..........

[edwardwdh]

自己先顶~~~~~~~~~~~~

[xuStanly]

中奖发财了别忘把程序共享出来。

[edwardwdh]

我再顶~~~~~~~