|
20,190,930 color ball winning numbers probability of treatment
20,190,930 color ball winning numbers probability of treatment
2019/9/30 15:26
https://baike.baidu.com/item/
China Welfare Lottery color ball / 8676030? fromtitle = ShuangSeQiu & fromid = 75279
China Welfare Lottery color ball
Released in 2003 (Guiwei years) February 16
It is easy to learn color ball first period 03001.
Baidu search: ShuangSeQiu
It is easy to find this site
Winning numbers:
02 04 09 11 12 30 01
Recently charts of 30. That is: 19085-19114
If you need a ball probability statistics, 30/50/100 is not enough, we need to get the historical data to be processed!
Color ball: lottery information
The default is 30 recently. That is: 19085-19114
Select 03001-19114, we can know the whole history of the lottery data color ball! 
I use WPS form of treatment! Right → New → WPS spreadsheet workbook: 
Name Change: 
copy data to a spreadsheet pages: Use the mouse to select the beginning of a winning data: 
drag the scroll bar on the right to the end, then hold down the SHIFT key and hold, then Finally, click the mouse on the last winning data, you can see all the winning data is selected! Now you can release the SHIFT key up! 
Right-click and select Copy (C): 
Due to a large amount of data, you can see the WPS table going round in circles in the upper left corner ^ _ 
copy is complete, WPS automatically recognizes the page spreadsheet (formatted copy!) 
The left mouse button click on any area (at the table) uncheck! Press CTRL + END key to jump to the last row of the table (line 2473) 
WPS to copy all of the data table. After saving, select: File → Save as → CSV (comma delimited) (* csv.)
You can see the warning dialog box:
Your selected file type does not support workbooks that contain multiple worksheets.
If you only want to save the active worksheet, click the "OK" button.
If you want to save all the work table, use a different file name for each save, or select a table that supports multiple file types.
Do not bother, just click "OK".
Continue to pop up: warning dialog box:
You save the file format may contain incompatible features. Whether to keep the workbook in this format?
To keep this format, remove any incompatible features, click "Yes."
If you want to retain these features, click "no." Then use the Save a copy of the latest WPS tabular format.
Do not control, click on the "Yes" button.
Copy the generated CSV file: Select color ball [03001-19114] .csv historical data 
will be renamed: Select 03001-19114] [color ball on historical data - a copy of the .txt 
Change the extension of time will prompt:
If you change the file extension may cause the file unusable.
Do you want to change it?
Do not control, click on the "Yes" button.
The choice 03001-19114] [color ball on historical data - a copy of the .txt copy to: Select 03001-19114] [color ball on historical data - copy - reverse .txt 
With Notepad just generated CSV file format of the data can be seen as:
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
The first: Issue
The second to the seventh item: red ball
Eighth: Basketball
No need other data, to be ignored.
A total of 2473.
VC6 use it to write a small program to extract data :( eight small BUG, we need to modify the CSV file extension TXT!)
001shuangseqiu8select color ball can choose number of red balls +6 + basketball 20190930_1240.7z
(original program Source: "Windows Programming (5th Edition Collector's Edition))
https://baike.baidu.com/item/Windows
programming / 8406385? fr = aladdin
Windows Programming
"Windows programming (5th Edition Collector's Edition)" 2010 Tsinghua University Press published the book, the author is (US) Pedro de measures, the translator is Fang Min, Zhang Sheng, Liang Lu Ping.
Chapter 4 text output
Complete: 
you can see the reverse of the winning numbers: Issue + + red ball basketball:
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 use small programs written in the text file will be winning anti-sequence data.
002TXTReverse before and after each line of text reversed 20190930_1542.7z
The winning historical data (reverse) after the reverse (the order), again the reverse (reverse) and raw data (reverse) than to confirm the reverse order program is correct!
(Original program Source: "Windows Programming (5th Edition Collector's Edition))
https://baike.baidu.com/item/Windows
programming / 8406385? fr = aladdin
Windows Programming
"Windows programming (5th Edition Collector's Edition)" 2010 Tsinghua University Press published the book, the author is (US) Pedro de measures, the translator is Fang Min, Zhang Sheng, Liang Lu Ping.
Chapter 4 text output
The winning data again to reverse than to verify: 
comparison Data: 
finally it is there is a difference, is caused by the processing program, does not affect use. 
003 color ball algorithm - nickname -12-1 build file to read the file v1.03_20190930_1844 statistical probability + red ball appeared 1-33 installments + probability of occurrence of a minimum 33 - a total of 2473 .7z applets using VB6.0 blood. The original program Source:
https://baike.baidu.com/item/Visual%20Basic
programming tutorial (4th Edition)
Visual Basic Programming Guide (4th edition)
Gong Zeng Pei
8.2 Access Files
Statistical Algorithms: only count six red ball, basketball no statistics!
From 03,001 to 09,114 - a total of 2473
1 red ball appeared in a total of 487 times - probability is: .196926809543065
Red Ball 2 in total there have been 445 times - probability is: .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
A total of 19 red balls appeared 455 times - probability is: .183987060250708
A total of 20 red balls appeared 478 times - probability is: .19328750505459
A total of 21 red balls appeared 440 times - probability is: .177921552769915
A total of 22 red balls appeared 484 times - probability is: .195713708046907
A total of 23 red balls appeared 436 times - probability is: .17630408410837
A total of 24 red balls appeared 410 times - probability is: .16579053780833
A total of 25 red balls appeared 444 times - probability is: .17953902143146
A total of 26 red balls appeared 477 times - probability is: .192883137889203
A total of 27 red balls appeared 455 times - probability is: .183987060250708
A total of 28 red balls appeared 417 times - probability is: .168621107966033
A total of 29 red balls appeared 430 times - probability is: .173877881116053
A total of 30 red balls appeared 448 times - probability is: .181156490093004
A total of 31 red balls appeared 427 times - probability is: .172664779619895
A total of 32 red balls appeared 469 times - probability is: .189648200566114
A total of 33 red balls appeared 386 times - probability is: .156085725839062
Source:
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
|
20,190,930 color ball winning numbers probability of treatment
Guess you like
Origin www.cnblogs.com/wb4916/p/11618481.html
Recommended
Ranking