Delphi可以寫一個比較準的樂透程式碼嗎？ |
|
答題得分者是：RaynorPao
|
|
flyup
資深會員   發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
||||
|
Skyer
高階會員  發表：43 回覆：111 積分：120 註冊：2002-04-04 發送簡訊給我 |
||||
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
||||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
||||
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
以前在學校唸書時,
一個從未來學校找我的親戚,
突然到宿舍來找我,
來時還帶一大群人,
說是要來看我,
結果:
最後,來出一疊資料,就是六合彩的計算公式,
叫我用這個公式寫一個程式,
算出下一期的明牌,
我看了半天,說:這些公式都是放馬後砲,
將各期的數據,硬是用數學運算式關連起來,
宣稱好幾期都很準,所以下一期一定準,
但親戚不信,硬是要我寫,
我只好照辦,寫一寫算出下一期號碼交給他們時,
說:不中不要怪我,
親戚很高興,還給我3000元才走人! 後來有沒有中,我跟本也懶得去看! ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|||
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 思考方向：（不知道是否可以完成？） 樂透有它自己的開獎方式和已開出的資料---列為已知的資料。 再找尋相關已知的資料做相關交叉比對，不知是否可行， 例如： 1.一般國曆日期：年月日星期 2.農民曆上相關數字（如：赤七），可查詢關於7 要間格多少次，可開出相關號碼。flyup你好: 你舉的兩個例子都很不錯 我之前在實作的時候也都沒有想到 除了這兩個例子以外 有時候也會聽到別的方法 例如~~以數字的位置所排列出來的圖形 來預測下一次會開獎的號碼...等 不過~~話又說回來了 不管是使用什麼方法來產生號碼 只要能夠先推導出該方法的「演算法」 變成程式碼應該就不難了
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
flyup你好:
你舉的兩個例子都很不錯
我之前在實作的時候也都沒有想到
除了這兩個例子以外
有時候也會聽到別的方法
例如~~以數字的位置所排列出來的圖形
來預測下一次會開獎的號碼...等
不過~~話又說回來了
不管是使用什麼方法來產生號碼
只要能夠先推導出該方法的「演算法」
變成程式碼應該就不難了
---------------------------------------
這個方法是可以，但會增加問題的複雜度。 不知道可否有：
1.各期數字出現的統計程式。
2.將出現最多次的數字，比對前五期，相同的表示，最有可能開，
一般可中2-3個碼。不知道比對的程式如何完成？
思考方向：（不知道是否可以完成？）
樂透有它自己的開獎方式和已開出的資料---列為已知的資料。
再找尋相關已知的資料做相關交叉比對，不知是否可行， 例如：
1.一般國曆日期：年月日星期
2.農民曆上相關數字（如：赤七），可查詢關於7 要間格多少次，可開出相關號碼。 發表人 - flyup 於 2002/11/22 00:35:16
|
|||
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 這個方法是可以，但會增加問題的複雜度。 不知道可否有： 1.各期數字出現的統計程式。 2.將出現最多次的數字，比對前五期，相同的表示，最有可能開， 一般可中2-3個碼。不知道比對的程式如何完成？ flyup你好: (1)要算出各期數字出現的統計程式，只需要一個 database 和一個 integer array 就可以實現了吧
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
||||
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 是不是要這樣： integer array :=1,2,........42 database以網路現有的資料表格 flyup你好: (1)以現行的樂透開獎號碼 1~42 來看 的確像你所說的~~只需要 42 個 element 的 integer array 就可以統計所有號碼開出的次數了 (2)至於 database 並不一定是某種格式 可以是 access, SQL, Oracle, txt, ini, xml...都可以 其實都無所謂~~但是~~如果只是要儲存每一期的歷史號碼的話 我是比較傾向使用較小型的 database (比較不麻煩) 除非~~你要連結的 database 是某一個網頁所提供的話 那就必須 follow 他的格式不可了
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
||||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
||||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
號碼大於平均數者，代表出現之機率越高，若選號碼出現機率高的組別中獎，相對得中獎的人數也會提高，獎金相對減少，此演算法為正統的機率統計法! 1 號出現 5 次 2 號出現 6 次 3 號出現 1 次 4 號出現 6 次 5 號出現 7 次 6 號出現 6 次
7 號出現 8 次 8 號出現 3 次 9 號出現 6 次 10 號出現 6 次 11 號出現 2 次 12 號出現 7 次
13 號出現 5 次 14 號出現 4 次 15 號出現 9 次 16 號出現 5 次 17 號出現 5 次 18 號出現 3 次
19 號出現 3 次 20 號出現 9 次 21 號出現 7 次 22 號出現 3 次 23 號出現 4 次 24 號出現 3 次
25 號出現 7 次 26 號出現 6 次 27 號出現 6 次 28 號出現 5 次 29 號出現 9 次 30 號出現 6 次
31 號出現 4 次 32 號出現 6 次 33 號出現 5 次 34 號出現 7 次 35 號出現 5 次 36 號出現 10 次
37 號出現 7 次 38 號出現 2 次 39 號出現 8 次 40 號出現 3 次 41 號出現 2 次 42 號出現 3 次 平均數 5.33333333333333 次
|
|||
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
千里虎樂透網展示的電腦選號程式http://www.luckstar.com.tw/lotto在亂數取號完成後,必須要按照號碼的順序排列.當時示範的排序程序大致如下:
'排序
For i1 = ciMax - ciSelect 1 To ciMax
For i2 = i1 1 To ciMax
If iaList(i1) < iaList(i2) Then
i = iaList(i2)
iaList(i2) = iaList(i1)
iaList(i1) = i
End If
Next
Next
這個排序方法雖然效率不好(固定為O(n2),但是只是排六個數,影響不大.可是如果您有比較多的數要排序,可不能還是這樣寫, 不然會等很久 發表人 - flyup 於 2002/11/24 16:59:47
|
|||
|
dllee
站務副站長  發表：321 回覆：2519 積分：1711 註冊：2002-04-15 發送簡訊給我 |
哈!哈!哈!
我在剛學會寫 Basic 時(十幾年前),就已經開始寫六合神算了,
因為家父正是用眼睛找明牌的高手,那時他幾乎大部分的時間都在「找明牌」...
而我想用眼睛找總是比較慢, 我就寫一個用電腦找的吧, 那時我的電腦才 286...
寫了約二週,總算是完成,演算法就是用所謂的「拖牌法」,即 1. 本期第x球為 n 時, 後 m 期會出 y
2. 本期第x1球為 n1 第x2球為 n2 時, 後 m 期會出 y
3. 本期出 n1 , 後 m 期會出 y
4. 本期出 n1,n2 , 後 m 期會出 y
5. 本期出 n1,n2,n3 , 後 m 期會出 y
6. 本期第x1球為 n1 下 k 期第x2球為 n2 , 後 m 期會出 y
7. 本期出 n1 下 k 期出 n2 , 後 m 期會出 y
... 而找出這類所謂的「牌路」,再由下一期反推, 將各 y 累計...
以當時的 286 而我還不是很會寫程式, 找一期的明牌約要跑半天... 我的結論是「不準」!!!
而且這個不準與用什麼電腦語言無關
可以寫來騙錢就是 C及指標教學,計算機概論,資訊管理導論...
http://coolsite.to/dllee | | 介紹Shells,LiteStep,GeoShell....
http://coolsite.to/ushells | |
發表時間：2002-11-20 23:56:18
IP:61.217.xxx.xxx 未訂閱
