20190930双色球中奖号码概率的处理

20190930双色球中奖号码概率的处理 20190930双色球中奖号码概率的处理 2019/9/30 15:26 https://baike.baidu.com/item/中国福利彩票双色球/8676030?fromtitle=双色球&fromid=75279 中国福利彩票双色球 发行时间 2003年（癸未年）2月16日   很容易得知双色球的第一期为03001。 百度搜索：双色球 很容易发现这条个网站 http://kaijiang.500.com/shtml/ssq/19114.shtml?0_ala_baidu 开奖号码： 02 04 09 11 12 30 01 http://datachart.500.com/ssq/ 最近30期的走势图。也就是：19085期到19114期 如果需要对出球概率进行统计，30期/50期/100期都是不够的，我们需要获取历史数据来进行处理了！ https://datachart.500.com/ssq/history/history.shtml 双色球：开奖信息 默认为最近30期。也就是：19085期到19114期 选择03001至19114期，就可以知道双色球的全部历史开奖数据了！ 我使用WPS的表格处理的！ 鼠标右键→新建→WPS表格 工作簿： 改名： 将网页的数据拷贝到电子表格中： 使用鼠标选中开头的中奖数据： 拖动右侧的滚动条到最后，然后按住SHIFT按键不放，然后将鼠标放到最后一条中奖数据的最后点击，就可以看到全部的中奖数据都被选中了！现在就可以放开SHIFT按键了！ 点击右键，选择复制（C）： 由于数据量比较大，你可以看到WPS表格在左上角的转圈圈^_ 拷贝完成，WPS自动识别网页的电子表格（带格式的拷贝的！） 鼠标左键点选任何区域（表格处）取消选中！ 按CTRL+END按键跳转到表格的最后一行（2473行） 拷贝全部的数据到WPS表格中。保存之后，选择：文件→另存为→CSV（逗号分隔）（*.csv） 可以看到警告对话框： 您选定的文件类型不支持包含多份工作表的工作簿。   如果您只要保存活动工作表，请单击“确定”按钮。 如果您想要保存所有工作表，请使用不同的文件名将其分别保存，或选择一种支持多工作表的文件类型。   不用管，直接点击“确定”即可。 继续弹出：警告对话框： 您保存的文件格式可能包含有不兼容的功能。是否保持工作簿的这种格式？   如要保持这种格式，去掉所有不兼容的功能，请单击“是”。 如果要保留这些功能，请单击“否”。然后再用最新的 WPS表格 格式保存一份副本。     不用管，直接点击“是”即可。 拷贝生成的CSV文件：选择03001至19114期【双色球历史数据】.csv 将其改名为：选择03001至19114期【双色球历史数据】 - 副本.txt 修改扩展名的时候会提示： 如果改变文件扩展名，可能会导致文件不可用。   确实要更改吗？   不用管，直接点击“是”即可。   将选择03001至19114期【双色球历史数据】 - 副本.txt 复制为：选择03001至19114期【双色球历史数据】 - 副本 - 逆序.txt 用记事本打开刚刚生成的CSV文件，可以看到数据的格式为： 19114,2,4,9,11,12,30,1, ,"1,016,450,569",4,"10,000,000",180,"167,444","372,847,052",2019/9/29 第一项：期号 第二到第七项：红球 第八项：蓝球   其它数据暂时不需要，予以忽略。 一共2473条。   使用VC6写的小程序提取这八项数据：（小BUG，需要将CSV文件修改扩展名为TXT！） 001shuangseqiu8select双色球可以选择期号+6个红球+蓝球20190930_1240.7z （原始程序来源：《Windows程序设计(第5版 珍藏版)）  https://baike.baidu.com/item/Windows程序设计/8406385?fr=aladdin Windows程序设计 《Windows程序设计(第5版 珍藏版)》是2010年清华大学出版社出版的图书，作者是（美）佩措尔德，译者是方敏、张胜、梁路平。   第4章 文本输出   完成了： 可以见到逆序的中奖号码：期号+红球+蓝球： 19114,2,4,9,11,12,30,1 19113,1,5,19,21,25,33,15 19112,3,12,14,17,23,27,1 使用VC6写的小程序将文本文件将中奖数据反序列。 002TXTReverse将文本的每一行前后反置20190930_1542.7z 将历史中奖数据（逆序）反向之后（顺序），再次反向（逆序）和原始数据（逆序）比对即可确认反序程序是正确的！  （原始程序来源：《Windows程序设计(第5版 珍藏版)）  https://baike.baidu.com/item/Windows程序设计/8406385?fr=aladdin Windows程序设计 《Windows程序设计(第5版 珍藏版)》是2010年清华大学出版社出版的图书，作者是（美）佩措尔德，译者是方敏、张胜、梁路平。   第4章 文本输出 将中奖数据再次反向以便比对核实： 比对数据： 最后却是是有一个差异，是程序处理导致的，不影响使用。 003双色球算法-昵称-12-1建立文件+读取文件v1.03_20190930_1844统计红球1-33出现的期数+概率33出现的概率最低-总共2473期.7z 使用VB6.0血的小程序。 原始程序来源： https://baike.baidu.com/item/Visual%20Basic程序设计教程（第4版） Visual Basic程序设计教程（第4版） 龚沛曾 8.2 访问文件 统计算法：只统计6个红球，蓝球没有统计！ 从03001至09114期-总共2473期 红球1总共出现了487次-出现的概率为：.196926809543065 红球2总共出现了445次-出现的概率为：.179943388596846 红球3总共出现了454次-出现的概率为：.183582693085321 红球4总共出现了443次-出现的概率为：.179134654266074 红球5总共出现了452次-出现的概率为：.182773958754549 红球6总共出现了464次-出现的概率为：.187626364739183 红球7总共出现了467次-出现的概率为：.188839466235342 红球8总共出现了468次-出现的概率为：.189243833400728 红球9总共出现了435次-出现的概率为：.175899716942984 红球10总共出现了445次-出现的概率为：.179943388596846 红球11总共出现了438次-出现的概率为：.177112818439143 红球12总共出现了445次-出现的概率为：.179943388596846 红球13总共出现了454次-出现的概率为：.183582693085321 红球14总共出现了488次-出现的概率为：.197331176708451 红球15总共出现了422次-出现的概率为：.170642943792964 红球16总共出现了440次-出现的概率为：.177921552769915 红球17总共出现了462次-出现的概率为：.186817630408411 红球18总共出现了473次-出现的概率为：.191265669227659 红球19总共出现了455次-出现的概率为：.183987060250708 红球20总共出现了478次-出现的概率为：.19328750505459 红球21总共出现了440次-出现的概率为：.177921552769915 红球22总共出现了484次-出现的概率为：.195713708046907 红球23总共出现了436次-出现的概率为：.17630408410837 红球24总共出现了410次-出现的概率为：.16579053780833 红球25总共出现了444次-出现的概率为：.17953902143146 红球26总共出现了477次-出现的概率为：.192883137889203 红球27总共出现了455次-出现的概率为：.183987060250708 红球28总共出现了417次-出现的概率为：.168621107966033 红球29总共出现了430次-出现的概率为：.173877881116053 红球30总共出现了448次-出现的概率为：.181156490093004 红球31总共出现了427次-出现的概率为：.172664779619895 红球32总共出现了469次-出现的概率为：.189648200566114 红球33总共出现了386次-出现的概率为：.156085725839062   源码： Option Explicit   Private Sub Command2_Click()     'Dim h1%, h2%, h3%, h4%, h5%, h6%     Dim h0%, h1%, h2%, h3%, h4%, h5%, h6%, l1%     Dim h6sum%     Dim hong1sum%          Dim linesum%          Dim hongsum(1 To 33), i     For i = 1 To 33         hongsum(i) = 0     Next                        Text2 = ""     linesum = 0     'hong1sum = 0          Open "d:\shuangseqiu161.txt" For Input As #2     'Do While Not EOF(1)     Do While Not EOF(2)         Input #2, h0, h1, h2, h3, h4, h5, h6, l1         linesum = linesum + 1          '        '计算总共有多少期出现了1 '        If (h1 = 1) Then '            hong1sum = hong1sum + 1 ' '            Text2 = Text2 & h0 & vbCrLf '        End If          '累加红球数     hongsum(h1) = hongsum(h1) + 1     hongsum(h2) = hongsum(h2) + 1     hongsum(h3) = hongsum(h3) + 1     hongsum(h4) = hongsum(h4) + 1     hongsum(h5) = hongsum(h5) + 1     hongsum(h6) = hongsum(h6) + 1          Loop          Close #2          Text2 = Text2 & "从03001至09114期-总共" & linesum & "期" & vbCrLf     'Text2 = Text2 & "红球1总共出现了" & linesum & "次" & vbCrLf          'Text2 = Text2 & "红球1总共出现了" & hong1sum & "次" & "-出现的概率为：" & hong1sum / linesum & vbCrLf          For i = 1 To 33         'hongsum(i) = 0         'Text2 = Text2 & "红球1总共出现了" & hong1sum & "次" & "-出现的概率为：" & hong1sum / linesum & vbCrLf         Text2 = Text2 & "红球" & i & "总共出现了" & hongsum(i) & "次" & "-出现的概率为：" & hongsum(i) / linesum & vbCrLf     Next                    'Open "d:\ScoreW.txt" For Output As #1          Open "d:\forecast161.txt" For Output As #1     Write #1, Text2     Close #1 End Sub