主题:希望有懂的朋友指点一下
xasm
[专家分:0] 发布于 2008-01-09 13:50:00
个人致力于彩票的研究,方法已经成熟,只是无法程序实现,手工又太麻烦,
'==========================================================
' 质 数 分 析
'==========================================================
Function Main
'===============申明或定义变量=============
CpRowCount = CpData.RowCount
CpColCount = CpData.ColCount
CpMaxCode = CpData.MaxCode
CpMinCode = CpData.MinCode
'=================建表=================
CpAna.AddField "期号",8
CpAna.AddField "开奖号码",CpColCount*3
CpAna.AddField "质数个数",8
CpAna.AddField "质数列表",20
For i=1 to CpColCount
CpAna.AddField "基" & i,4
Next
CpAna.AddField "质合形态",CpColCount+2
CpAna.RowCount = CpRowCount
CpAna.CreateTable()
'==============算法主体============================
For row = 0 to CpRowCount - 1
ZSGS = 0 '质数个数
ZSLB = "" '质数列表
ZHXT = ""
For col = 0 to CpColCount - 1
OpenNum = CpData.Code(row, col)
If IsZS(OpenNum) then
ZSGS = ZSGS + 1
ZSLB = ZSLB & OpenNum & " "
ZHXT = ZHXT & 1
CpAna.Cell(row, "基" & col+1) = 1
Else
ZHXT = ZHXT & 0
CpAna.Cell(row, "基" & col+1) = 0
End If
Next
CpAna.Cell(row, "期号") = CpData.Seq(row)
CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)
CpAna.Cell(row, "质合形态") = ZHXT
CpAna.Cell(row, "质数个数") = ZSGS
CpAna.Cell(row, "质数列表") = ZSLB
Next
End Function
'==============辅助函数============================
'一些质数
ZS = Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71)
'是否为质数
Function IsZS(Num)
b = False
For i = 0 to 19
If ZS(i) = Num Then
b = True
Exit For
End If
Next
IsZS = b
End Function
以上这段程序是一个彩票软件里面的,因为我不是搞程序的,虽然能看懂,但不明白
他首先建了表,然后算法主体里面是对表格进行操作,不明白的是他操作的表格不是数据库语言,想知道这是怎么回事?为什么可以每行都可以操作?后缀名是CODE,SEQ,CELL等等,不知道这是什么东西的属性?很想得到懂的朋友指点一二,急!
另外不知道有没有程序方面的人愿意合作,一起发彩票的财
联系邮箱zgcp11@163.com
QQ 88193151
回复列表 (共10个回复)
沙发
华山论剑 [专家分:5310] 发布于 2008-01-09 14:51:00
表格控件一类,像是Data控件。
板凳
xasm [专家分:0] 发布于 2008-01-09 14:58:00
最好能指点一下编写这个程序的语言是什么语言
3 楼
老大徒伤悲 [专家分:29120] 发布于 2008-01-09 15:37:00
这种语言似乎就是vb。
4 楼
brokenworld [专家分:2640] 发布于 2008-01-09 15:46:00
我的 超级大乐透 过滤机器人 下周就可以做好了,只有历史数据用了表,其他的全部是实时计算,,,
比现在市面上的一般软件快2-10倍。。。
而且我发现,好多软件的算法(特别是AC值等)有错误,计算根本不准确,还有旋转矩阵,似乎跟最优化相差好远。。。
写完了,就发个地址,让大家测试。。。
5 楼
xasm [专家分:0] 发布于 2008-01-09 21:25:00
AC值只是个算术复杂度,很简单的参数,软件错误可能跟号码的前区后区有关,比如说双色球如果带蓝号和不带蓝号,可能软件就有不同的值,到未必是他计算错误
至于旋转矩阵,运用的是数学上的覆盖原理,尽最大的可能去保N个号码,但未必是全部的号码
只是追求一个最大化,用这个东西很可能把中奖号码搞没,甚至原始号码排列的顺序不一样,结果也不一样,这个纯碎是蒙
不知道你编写超级大乐透的目的是什么,现在彩票软件不好做了
我编写个程序只是自己用,生成几十个文本,然后导出,手工的话很麻烦,所以需要程序,
目前是自学,不是搞程序的,感到有点吃力,
不知道有没有人愿意合作
联系方式在顶楼
6 楼
brokenworld [专家分:2640] 发布于 2008-01-10 14:13:00
呵呵,我写软件当然是卖了,,,
不知道你为什么要生成几十个文本,我的程序都是实时处理,当然可以保存结果为文本文件。
我跟你提到的软件计算错误,是我确认了事,这里就不好点出具体的名字了,有的用随机组号来冠以“旋转矩阵”之名,也是我确认了事。。。
所以我就纳闷。。。这样的软件都卖个几十、几百,,,我干吗不自己写个呢,,,主要功能模块已经完成。现在正在写软件的注册模块了。。。
7 楼
brokenworld [专家分:2640] 发布于 2008-01-10 14:21:00
呵呵,另外补充一点,,,其实AC值是代表了号码的随机性,AC值越高,随机性越好,。是一种不可替代的彩票分析指标(对组合型彩票来说,尤其重要),建议你分析的时候重点关注。
8 楼
xasm [专家分:0] 发布于 2008-01-11 09:18:00
[quote]呵呵,我写软件当然是卖了,,,
不知道你为什么要生成几十个文本,我的程序都是实时处理,当然可以保存结果为文本文件。
我跟你提到的软件计算错误,是我确认了事,这里就不好点出具体的名字了,有的用随机组号来冠以“旋转矩阵”之名,也是我确认了事。。。
所以我就纳闷。。。这样的软件都卖个几十、几百,,,我干吗不自己写个呢,,,主要功能模块已经完成。现在正在写软件的注册模块了。。。[/quote]
卖软件是不错,但要有卖点,目前的软件有很多免费的,收费软件让人给搞臭了,比如说百博,软件这条路不是太广,套用大家的话就是---如果软件能中,那就自己用了
想卖软件的话,卖点很重要,一些软件搞分析很不错,比如说红宝石,大赢家什么的
有的是进行数据处理,文本处理比如说优选,
生成几十个文本是我要进行批量处理,多级容错处理,
彩票说到底是个数据的数据库,是个概率游戏,我想通过多文本来改变概率
9 楼
xasm [专家分:0] 发布于 2008-01-11 09:21:00
[quote]呵呵,另外补充一点,,,其实AC值是代表了号码的随机性,AC值越高,随机性越好,。是一种不可替代的彩票分析指标(对组合型彩票来说,尤其重要),建议你分析的时候重点关注。[/quote]
多谢了,呵呵,我认为指标很重要,方法、技术和策略更重要
10 楼
brokenworld [专家分:2640] 发布于 2008-01-11 14:25:00
对于彩票这样的博彩游戏来说,想要中奖只有凭运气,而运气是无法预测的,所以谈不上什么技术。
要说技术,可能就是用一些有效的分析方法来选号,然后用最少的钱买到最符合自己要求的彩票。。。。
个人认为,概率越大的彩票,如:排列3和3D,技术要求最高。这里的技术高倒不是说真要有多高的文化,关键是它的赔率高,很多人有足够的钱可以跟进,就象股票一样,因此也产生了很多投资策略。
但是,总而言之,亏的还是占大多数,每期国家提那么多钱走,亏的还是广大彩民。
我来回复