人工智能課程設(shè)計(jì)---五子棋(參考版)
2025-05-11 19:22本頁面
【正文】 5wT21 （ 1） 人工智能研究方法及途徑 熊才權(quán) 2021 年第三期 （ 2） 人工智能技術(shù)導(dǎo)論 廉師友 西安電子科技大學(xué)出版社 （ 3） 五子棋中的博弈智能設(shè)計(jì) 張海峰 2021 現(xiàn)代電子技術(shù) （ 4） 智能五子棋的設(shè)計(jì)與實(shí)現(xiàn) 嚴(yán)小衛(wèi) 莫建文 1999 第 4 期 廣西師范大學(xué)學(xué)報(bào)：自然科學(xué)版 。雖然 遇到了不少的問題 ，但是我 都通過查閱資料把大部分 問題都解決了 ，并且在跟同學(xué)的交流中也學(xué)到了一些他們的設(shè)計(jì)思路，也知道今后要加強(qiáng)哪些方面的知識。盡管做的并不是那么的完善。之所以選擇這個(gè)題目是想逼著自己去查更多的資料，學(xué)到更多的東西。 ps Then yuandian(a * 30 + 10, b * 30 + 10) table(a, b) = 1 For i = 0 To 191 If pwin(a, b, i) = True Then pflag(i) = False End If Next Else yuandian(c * 30 + 10, d * 30 + 10) table(c, d) = 1 For i = 0 To 191 If pwin(c, d, i) = True Then pflag(i) = False End If Next End If checkwin() End Sub 六．心得體會 這個(gè)課設(shè)題對我來說有一定的挑戰(zhàn)性，因?yàn)槲易约阂膊恢雷约旱降讓W(xué)到了一個(gè)什么樣的境界。 ps Then ps = pscore(i, j) c = i d = j End If Next Next The genral stf(1mpoyidvc,uh)0jb。5wT19 Next Next End If End If Next Next End If Next 分值比較算法 Dim a, b, c, d As Integer Dim cs As Integer = 0 Dim ps As Integer = 0 For i = 0 To 9 For j = 0 To 9 If cscore(i, j) 。5wT17 Next Case 4 For m = 0 To 9 For n = 0 To 9 If table(m, n) = 0 Then If pwin(m, n, i) = True Then yuandian(m * 30 + 10, n * 30 + 10) table(m, n) = 1 For dc = 0 To 191 If pwin(m, n, dc) = True Then pflag(dc) = False checkwin() Exit Sub End If Next End If End If Next Next End Select End If Next 電腦算法（ 2） 賦值系統(tǒng) For i = 0 To 191 If cflag(i) = True Then For j = 0 To 9 For k = 0 To 9 The genral stf(1mpoyidvc,uh)0jb。5wT15 If table(j, k) = 1 Then If cwin(j, k, i) = True Then cab = cab + 1 End If Next Next Select Case cab Case 3 For m = 0 To 9 For n = 0 To 9 If table(m, n) = 0 Then If cwin(m, n, i) = True Then cscore(m, n) = cscore(m, n) + 5 End If End If Next Next Case 4 For m = 0 To 9 For n = 0 To 9 If table(m, n) = 0 Then If cwin(m, n, i) = True Then yuandian(m * 30 + 10, n * 30 + 10) table(m, n) = 1 For dc = 0 To 191 If pwin(m, n, dc) = True Then pflag(dc) = False checkwin() Exit Sub End If The genral stf(1mpoyidvc,uh)0jb。 （ 5） 執(zhí)行檢 查獲勝函數(shù)。 （ 3） 計(jì)算電腦和玩家的最佳攻擊位。5wT14 Next //檢查玩家是否獲勝 End Sub 電腦算法 (1) 模塊名稱 :diannao 2 描述 : 此程序主要執(zhí)行以下功能： （ 1） 初始化賦值系統(tǒng)。 Sub checkwin() Dim i, j, k, m, n As Integer Dim ca As Integer Dim pa As Integer Dim ormal As Integer = 0 For i = 0 To 191 If cflag(i) = False Then ormal = ormal + 1 End If Next If ormal = 190 Then = True = 和棋，請重新開始！ () theplayflag = False Exit Sub End If //設(shè)定和棋規(guī)則 For i = 0 To 191 The genral stf(1mpoyidvc,uh)0jb。 （ 2） 檢查電腦是否獲勝。 0 Then Exit Sub End If Next Next //檢查當(dāng)前鼠標(biāo)點(diǎn)擊的格子是否有效 Dim mycolor As Color Dim g As g =
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1