五子棋算法毕业论文

任何一种棋类游戏其关键是对当前棋局是否有正确的评分,评分越准确则电脑的AI越高。五子棋游戏也是如此，但在打分之前，我们先扫描整个棋盘，把每个空位从八个方向上的棋型填入数组gStyle(2, 15, 15, 8, 2)，其中第一个下标为1时表示黑棋，为2时表示白棋，第二和第三个下标表示(x,y)，第四个下标表示8个方向，最后一个下标为1时表示棋子数，为2时表示空格数，如：gStyle(1,2,2,1,1)=3表示与坐标(2,2)在第1个方向上相邻的黑棋棋子数为3gstyle(1,2,2,1,2)=4表示与坐标(2,2)在第1个方向上的最近的空格数为4在定义方向时，也应该注意一定的技巧，表示两个相反的方向的数应该差4，在程序中我是这样定义的：Const DIR_UP = 1Const DIR_UPRIGHT = 2Const DIR_RIGHT = 3Const DIR_RIGHTDOWN = 4Const DIR_DOWN = 5Const DIR_DOWNLEFT = 6Const DIR_LEFT = 7Const DIR_LEFTUP = 8这样我们前四个方向可以通过加四得到另一个方向的值。如果你还是不太明白，请看下面的图：---------------------oo-----ox*xx---------------------图中的*点从标为(4,4),（打*的位置是空位）,则:gStyle(2,4,4,1,1)=1在(4,4)点相邻的上方白棋数为1gStyle(2,4,4,1,2)=2在(4,4)点的上方距上方白棋最近的空格数为2gStyle(1,4,4,3,1)=2在(4,4)点相邻的右方黑棋数为2gStyle(1,4,4,3,2)=1在(4,4)点的右方距右方黑棋最近的空格数为3...一旦把所有空点的棋型值填完，我们很容易地得出黑棋水平方向上点(4,4)的价值，由一个冲1（我把有界的棋称为冲）和活2（两边无界的棋称为活）组成的。对于而白棋在垂直方向上点(4,4)的价值是一个活1，而在/方向也是活1所以，只要我们把该点的对于黑棋和白棋的价值算出来，然后我们就取棋盘上各个空点的这两个值的和的最大一点作为下棋的点。然而，对各种棋型应该取什么值呢？我们可以先作如下假设： Fn 表示先手n个棋子的活棋型，如：F4表示先手活四 Fn'表示先手n个棋子的冲棋型，如：F4'表示先手冲四 Ln 表示后手n个棋子的活棋型，如：L3表示后手活三 Ln'表示后手n个棋子的冲棋型，如：L3'表示后手冲三 . . . 根据在一行中的棋型分析，得到如下关系：L1'<=F1'

可以的！之所以叫BP网络，是因为使用了反向传递算法，这是一种结果导向的自学习方法，用在五子棋上是可以的。因为五子棋的游戏方法正是很明显的结果导向的过程。简单说这么个过程：1.设置输入和输出类型，比如都是坐标[x1，y1]、[x2，y2]...2.训练：你告诉网络A情况下应该输出A1B情况下应该输出B1C情况下应该输出C1...A+B情况下应该输出AB13.测试：你问网络A+B+C情况下，应该输出多少？在哪里下子（就是[x,y]是多少？）网络就根据前面BP训练的结果自动算出你要的坐标。用Matlab神经网络工具箱做吧，不是很难。另外，五子棋的棋盘别太大了，训练难度和时间是随棋盘大小成级数增长的。

我只给你判断输赢的算法，其他的你自己解决//全局变量int curX,curY;//当前下棋的坐标 0 <= curX <= 15 0 <= curY <= 15int onTable[16][16];void WhoWin(int collor){ // 竖直方向 水平方向 右上到左下 左上到右下 if( SameLineNum(0,1) >= 5 ||SameLineNum(1,0) >= 5 ||SameLineNum(1,1) >= 5 ||SameLineNum(-1,1) >= 5) { printf("%s 方获胜\n",collor); }}//判断当前棋子的某个方向上同色棋子有多少int SameLineNum(int x,int y){ int tX,tY; int num;//同一线上相同颜色棋子数 tX = curX;tY = curY; do//计算落子一边同颜色的棋子数 (比如左边） { if( onTable(tX,tY) <> onTable(curX,curY) { num = Max(Abs(curX - tX),Abs(curY - tY);//Max求最大值，Abs求求绝对值 break; } tX = tX + x;tY = tY + y; } while (x < 0 || j < 0 || i > 15 || j > 15); do//计算落子一边同颜色的棋子数 (比如右边） { if( onTable(tX,tY) <> onTable(curX,curY) { num = num -1 + Max(Abs(curX - tX),Abs(curY - tY);//Max求最大值，Abs求求绝对值 break; } tX = tX - x;tY = tY - y; } while (x < 0 || j < 0 || i > 15 || j > 15); return num;}