ใบ้เลขเด็ด

เมื่อวานเป็นวันหวยออก ผู้คนใน Facebook ต่างกล่าวกันถึงหวยตั้งแต่เช้า ผมจึงร่วมสนุกด้วยโดยการให้เลขเด็ดซะเลย โดยผมเลือกสุ่มเลขมาสี่ตัวเป็น 0 3 8 7:

พอดีมีคนถามว่ามีหลักการอะไรไหมในการให้ตัวเลข ผมก็บอกไปว่าผมเดามั่วเลย แต่ถ้าถูกคนก็จะจำได้ พอผมกลับบ้านผมเลยสงสัยว่าในตัวเลข 0-9 เนี่ย มีตัวเลขไหนออกมากกว่าชาวบ้านไหม ผมเลยไปโหลดเลขหวยที่ออกย้อนหลังไปถึง 30 ธันวา 2548 แล้วมานับดูว่า 0 ออกกี่ครั้ง 1 ออกกี่ครั้ง ไปเรื่อยๆจนถึง 9 ออกกี่ครั้ง

ผมได้ตัวเลขมาทั้งหมด 159,580 ตัว ดังนั้นถ้าไม่มีเลขไหนออกมากกว่าเลขอื่นเป็นพิเศษแล้ว เลข 0-9 ก็ควรออกมาไม่ห่างจาก 15,958 ครั้งนัก  ผลจากการนับคือ

ตัวเลข	จำนวนครั้งที่ออก
0	15863
1	15929
2	16097
3	15959
4	15770
5	16009
6	15893
7	15881
8	16050
9	16129

แม้ว่าบางเลขจะออกมาก บางเลขจะออกน้อย แต่จำนวนครั้งที่ออกก็ใกล้เคียงกับ  15,958 ไม่มีเลขใดออกมากหรือออกน้อยเป็นพิเศษครับ

กราฟจำนวนครั้งดูเป็นอย่างนี้ครับ (เส้นประคือ 15,958 และโชว์ช่วงระหว่าง 15,000 ถึง 16,300 จะได้เห็นชัดๆ ถ้าโชว์ตั้งแต่ 0 ถึง 16,300 จะเห็นจุดต่างๆทาบเส้นประหมดเลย):

*** * **** * ****** *********
ปล. รายละเอียดเผื่อมีใครอยากทำคล้ายๆกันบ้าง

1. สำหรับผู้ที่สนใจเรื่องสถิติ Pearson's chi-square เป็นดังนี้ครับ (ผมป้อนเข้า R แทน Mathematica เพราะกำลังทดลองใช้ R ทำงานบริษัทอยู่ครับ):

> chisq.test(c(15863, 15929, 16097, 15959, 15770, 16009, 15893, 15881, 16050, 16129), p=c(0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1))

Chi-squared test for given probabilities

data:  c(15863, 15929, 16097, 15959, 15770, 16009, 15893, 15881, 16050,      16129)
X-squared = 7.2059, df = 9, p-value = 0.6157

2. ผมไปโหลดหน้าเว็บผลล็อดเตอรี่จาก http://lotto.mthai.com/ ครับ

3. ผมใช้ BeautifulSoup มาดึงข้อมูลออกจากหน้าผลล็อตเตอรี่ครับ

4. ใช้ Mathematica วาดกราฟดังนี้ครับ: 

ListPlot[data, PlotStyle -> PointSize[0.02], Filling -> Axis, 

 PlotRange -> {15000, 16300}, 

 AxesLabel -> {"ตัวเลข", "จำนวนครั้งที่ออก"}, 

 Epilog -> {Dashed, Line[{{0, 15958}, {9, 15958}}]}]