彩票里，大数据到底是什么？一起来揭开它神秘的面纱

彩票里，大数据到底是什么？四个数把它理解为概率。

彩票里，只要稍微有些常识的彩民都听说过大数据，那么大数据到底是什么呢。

广义的理解，是指物理世界到数字世界的映射和提炼。通过发现其中的数据特征，从而做出提升效率的决策行为。

狭义的定义，是指通过获取、存储、分析，从大容量数据中挖掘价值的一种全新的技术架构。

大数据到底有多大？

大数据的级别定位

1 KB = 1024 B (KB - kilobyte)

1 MB = 1024 KB (MB - megabyte)

1 GB = 1024 MB (GB - gigabyte)

1 TB = 1024 GB (TB - terabyte)

1 ZB = 1024 EB (ZB - zettabyte)

上面的数字不是很直观，举个例子，1TB，只需要一块硬盘可以存储。容量大约是20万张照片或20万首MP3音乐，或者是631903部《红楼梦》小说。

可以想象，大数据到底有多大，就像地球相对于整个宇宙来说，就像一粒沙子，一个细胞那么渺小。

其实说这么多，真正想表达的只有一个中心意思，那就是我们要对大数据，对一切未知事物抱有敬畏之心，因为这一切已经超出了我们的理解和想象。

全国有几亿彩民，单式，胆拖，复式。其中的数据量之大可想而知，我们不是超级电脑，做不到全部分析，只能以点带面，截取其中一部分最具代表性的数据进行分析。所谓的研究个几十期，几百期开奖号码，就想和超级计算机比高低，得出终极答案，无异于痴人说梦，异想天开。当然，天开的时候，就必定有一个被馅饼砸中的幸运儿。

那么前面提到的点和面是什么？期待你的关注，评论，点赞，转发和分享，我们下期继续。3码15 16 17

把下面的代码复制到记事本中，改名为form1.frm，再用vb6打开编译即可使用。希望你能喜欢，不足之处可以提出来。

VERSION 5.00

Begin VB.Form Form1

BorderStyle = 5 'Sizable ToolWindow

Caption = "彩票选号程序"

ClientHeight= 3855

ClientLeft = 60

ClientTop = 330

ClientWidth = 6600

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 3855

ScaleWidth = 6600

ShowInTaskbar = 0 'False

StartUpPosition = 3 '窗口缺省

Begin VB.Frame Frame4

Caption = "号码框"

Height = 2415

Left= 3600

TabIndex= 11

Top = 1320

Width = 2895

Begin VB.CommandButton Command6

Caption = "输入号码"

Height = 255

Left= 1560

TabIndex= 19

Top = 720

Width = 1095

End

Begin VB.CommandButton Command5

Caption = "试试运气"

Height = 495

Left= 120

TabIndex= 16

Top = 1440

Width = 2535

End

Begin VB.TextBox xx

Height = 270

Left= 1560

TabIndex= 14

Top = 1080

Width = 1095

End

Begin VB.TextBox sx

Height = 270

Left= 120

TabIndex= 13

Top = 1080

Width = 1095

End

Begin VB.Label Label5

Caption = "范围："

Height = 255

Left= 120

TabIndex= 18

Top = 720

Width = 615

End

Begin VB.Label Label4

Caption = "机选号码："

Height = 255

Left= 120

TabIndex= 17

Top = 2040

Width = 2535

End

Begin VB.Label Label3

Caption = "~"

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 135

Left= 1320

TabIndex= 15

Top = 1200

Width = 255

End

Begin VB.Label Label2

Caption = "我的号码："

Height = 255

Left= 120

TabIndex= 12

Top = 360

Width = 2655

End

End

Begin VB.Frame Frame3

Caption = "统计框"

Height = 975

Left= 3600

TabIndex= 8

Top = 240

Width = 2895

Begin VB.CommandButton Command3

Caption = "点我统计！"

Height = 615

Left= 120

TabIndex= 9

Top = 240

Width = 2655

End

End

Begin VB.Frame Frame2

Caption = "查找框"

Height = 2415

Left= 120

TabIndex= 3

Top = 1320

Width = 3375

Begin VB.CommandButton Command4

Caption = "清除"

Height = 255

Left= 2400

TabIndex= 10

Top = 2040

Width = 855

End

Begin VB.CommandButton Command2

Caption = "查找"

Height = 255

Left= 2520

TabIndex= 7

Top = 240

Width = 735

End

Begin VB.ListBox List1

Height = 1320

ItemData= "Form1.frx":0000

Left= 120

List= "Form1.frx":0002

TabIndex= 5

Top = 600

Width = 3135

End

Begin VB.TextBox Text1

Height = 270

Left= 120

TabIndex= 4

Top = 240

Width = 2295

End

Begin VB.Label Label1

Caption = "总共：0项"

Height = 255

Left= 120

TabIndex= 6

Top = 2040

Width = 2175

End

End

Begin VB.Frame Frame1

Caption = "输入框"

Height = 1095

Left= 120

TabIndex= 0

Top = 120

Width = 3375

Begin VB.TextBox Text2

Height = 270

Left= 120

TabIndex= 2

Top = 240

Width = 3135

End

Begin VB.CommandButton Command1

Caption = "输入并确定"

Height = 375

Left= 120

TabIndex= 1

Top = 600

Width = 3135

End

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim N As Long

Dim NR As String

Dim ZS As Long

Dim CS As Long

Dim mynum As Long

Private Sub Command1_Click()

Open "C:\1.TXT" For Append As #1

Print #1, Val(Text2.Text)

Close #1

Label2.Caption = "我的号码：" &Val(Text2.Text)

mynum = Val(Text2.Text)

Text2.Text = ""

End Sub

Private Sub Command2_Click()

CS = CS + 1

Open "C:\1.TXT" For Input As #1

Do While Not EOF(1)

Line Input #1, NR

NR = Trim(NR)

If NR = Text1.Text Then List1.AddItem NR: N = N + 1

Loop

Close #1

List1.AddItem "------------第" &CS &"次------------"

Label1.Caption = "总共：" &N &"项"

N = 0

NR = ""

End Sub

Private Sub Command3_Click()

Open "C:\1.TXT" For Input As #1

Do While Not EOF(1)

Line Input #1, NR

NR = Trim(NR)

If NR = NR Then ZS = ZS + 1

Loop

Close #1

MsgBox "共有" &ZS &"项"

ZS = 0

End Sub

Private Sub Command4_Click()

List1.Clear

End Sub

Private Sub Command5_Click()

Label4.Caption = "机选号码：" &Int(Rnd * Val(sx.Text)) + Val(xx.Text)

End Sub

Private Sub Command6_Click()

mynum = InputBox("输入号码：")

Label2.Caption = "我的号码：" &mynum

End Sub

Private Sub Form_Load()

N = 0

End Sub

网上那些预测彩票号码走势，做技术分析的到底有没有用？

其实这个问题很简单，都不用我们做过多的了解甚至不懂任何技术都可以大概做个判断，任何一个彩种都有一个理论中奖率存在，怎么理解这个理论中奖率，就拿数据少的3D和排列三来说，总有1000注数据，比如说彩民选择500注号码，虽然有时可以连续中多期有时也可能会多期不中。

我们验证一个数据要看长期，从长期来看，比如说一千期基本上彩民每期选择500注号码也就能中500次左右。在3D和排列三上每次选择500注号码1000期能中500期左右，选择100汪号码1000期中一百次左右这就是它的理论值，彩民选择500注号码1000期想中八九百次不可能，反过来彩民选择500注号码想不中奖或者只中一两百期也不可能，因为彩票号码是双向的。

就根据这个理论值我们就可以大概做判断，如果说专家的技术有效果，网上这么多专家哪怕有百分之一的有效果，那在实际中奖中应该是超出理论值的。但是实际情况来看无论是中奖数量还是中奖后的奖金平均下来都没有走出理论值，不仅没有超出理论值甚至比理论数据还低，这说明就算有专家哪怕这些专家不做推荐，号码只是自己用，都不够那么多专家自己用的。所以有也只是极少极少的一部分少到比中大奖还渺茫，并且方法还不能无私奉献还得要自己用，总不会牺牲自己让其它人受益吧！再说牺牲自己也不能让多数彩票中奖，牺牲自己让另外一个彩民中奖有多大可能。

所以说就算有专家，如果技术有用，每期大奖的数量可以说屈指可数。发挥的结果都不够自己用的，哪里还有这份乐善好施的精神。所以如果有这样的专家和这样的技术，只能是极少数人自己用这样的方式。现时它还反映出另外一个问题，如果真的有专家或者说技术好用的话，就不是我们应该不应该相信专家的问题了，而是我们都没有必要参与彩票了，因为所有彩票中能中奖的包括能中五块的都不多，我们参与就是为专家买单，屈指可数的几个大奖名额都不够专家自己分的，你去了不是为他们买单，难道行业还给你一个参与勇气的大奖。所以有时候我们遇到问题并不是只看问题的表面，还有问题的本质。

最后，提醒所有的朋友，彩票本身就是一个娱乐，没有参与的不参与最好……参与就一定要理性不盲目。彩票也确实存在着一些技巧和经验，技巧和经验也确实可以相对地提高中奖率，但是在庞大的数据上这一点提高几乎可以忽略不计，甚至到目前在双色球和大乐透上都没有明显的数据可以证明自选号码比机选号码中奖率高。那么自己也可以想想技术分析到底有没有用了，我个人认为彩票本身就是一个娱乐，技术和方法虽然也有一些效果，但多的还是增加彩票的一个娱乐性。

---