РефератыИнформатика, программированиеРаРазработка алгоритма и реализация игры "Реверси"

Разработка алгоритма и реализация игры "Реверси"

Федеральное агентство по образованию Российской Федерации


Брянский Государственный Технический Университет


Кафедра «Информатика и программное обеспечение»


Курсовая работа


по предмету: «Интеллектуальные системы»


на тему: «Разработка алгоритма и реализация игры “реверси”»


Выполнил:


студент гр. 07-ПО3


Черкесов М.В.


Преподаватель:


Булатицкий Д.И.


Брянск


2010


Содержание


Введение


1. Алгоритм


1.1 Алгоритм альфа-бета отсечения


2. Описание программного средства


2.1 Руководство пользователя


2.2 Листинг программы


Заключение


Список литературы


Введение


В игре используется квадратная доска размером 8 × 8 клеток (все клетки могут быть одного цвета) и 64 специальные фишки, окрашенные с разных сторон в контрастные цвета, например, в белый и чёрный. Клетки доски нумеруются от верхнего левого угла: вертикали — латинскими буквами, горизонтали — цифрами. Один из игроков играет белыми, другой — чёрными. Делая ход, игрок ставит фишку на клетку доски «своим» цветом вверх.


В начале игры в центр доски выставляются 4 фишки: чёрные на d5 и e4, белые на d4 и e5.


Первый ход делают чёрные. Далее игроки ходят по очереди.


Делая ход, игрок должен поставить свою фишку на одну из клеток доски таким образом, чтобы между этой поставленной фишкой и одной из имеющихся уже на доске фишек его цвета находился непрерывный ряд фишек соперника, горизонтальный, вертикальный или диагональный (другими словами, чтобы непрерывный ряд фишек соперника оказался «закрыт» фишками игрока с двух сторон). Все фишки соперника, входящие в «закрытый» на этом ходу ряд, переворачиваются на другую сторону (меняют цвет) и переходят к ходившему игроку.


Если в результате одного хода «закрывается» одновременно более одного ряда фишек противника, то переворачиваются все фишки, оказавшиеся на всех «закрытых» рядах.


Игрок вправе выбирать любой из возможных для него ходов. Если игрок имеет возможные ходы, он не может отказаться от хода. Если игрок не имеет допустимых ходов, то ход передаётся сопернику.


Игра прекращается, когда на доску выставлены все фишки или когда ни один из игроков не может сделать хода. По окончании игры проводится подсчёт фишек каждого цвета, и игрок, чьих фишек на доске выставлено больше, объявляется победителем. В случае равенства количества фишек засчитывается ничья.


Игра была изобретена в Великобритании в 1880 году и пользовалась большой популярностью, но впоследствии была забыта. Возродили её в Японии, где она в 1971 году под названием отелло вновь стала популярна. С 1977 года регулярно проводятся чемпионаты мира по игре в реверси.


Реверси является стратегической игрой, схожей с шашками и шахматами. Так же как и в шахматах, принято разделять партию на три части: дебют (начало), миттельшпиль (середина игры) и эндшпиль (концовка). Однако, в отличие от шахмат, количество возможных дебютов здесь намного меньше, и все они легко запоминаются. Все сколько-либо серьёзные игроки знают дебюты на 5-6 ходов вперёд, чтобы избежать заведомо проигрышных ходов на данной стадии. Миттельшпиль, пожалуй, является наиболее «свободной» и одновременно сложной частью игры, когда положение можно либо упрочить, либо изменить в свою пользу. Несмотря на это, многие, казалось бы, проигранные в миттельшпиле партии обретают новые качества при вступлении в конечную стадию игры — эндшпиль. Золотое правило концовки — не спешить и считать. Считать принято фишки, которые результируют конечный исход игры для конкретной тактики. Естественно, количество исходов зависит от того, с какого хода начинать считать, и именно поэтому компьютеры играют намного лучше людей — они могут позволить себе просчитать все возможные варианты (их, по компьютерным меркам, немного) и всегда выбирают тот, при котором минимизируется результат человека и максимизируются очки компьютера.


Существует достаточно много различных стратегий игры в реверси[1], и выбор определяется уровнем подготовки и наклонностями игрока. Простейшей для новичков может быть игра за захват угловых клеток доски, которые впоследствии уже невозможно «перекрасить» в другой цвет, и последовательное занятие доски от углов. Более продвинутой тактикой считается ограничение возможных ходов противника: создаётся позиция, в которой противнику остаются только устраивающие игрока ходы, и игра проходит в удобном для игрока русле. Как правило, большинство японских мастеров отличается именно этой, отточенной до совершенства, тактикой. Ещё более продвинутой тактикой является тактика «темпов» (англ. temp), которую можно охарактеризовать правилом «отними у противника его самые выгодные ходы и сделай их своими». Данная стратегия требует, однако, чрезвычайно сильного «чувства позиции».


Варианты реверси:


· Реверси n × n


Игра на поле n × n клеток. От игры 8 × 8 отличается тем, что фишки одного цвета в начале игры ставятся не в шахматном порядке, а рядом. Существуют варианты реверси с размером поля 10 × 10 и больше. Они не отличаются от обычных ничем, кроме размера поля. В целом, варианты размером меньше 8 × 8 не представляют интереса, поскольку являются детерминированными и при идеальной стратегии всегда выигрывает второй игрок (тот, кто ходит вторым).


· Антиреверси


Отличается только тем, что при подведении результатов игры выигрывает тот, у кого фишек меньше.


· Реверси с чёрной дырой


Отличается только тем, что одна из клеток доски (случайно выбирается в начале игры) помечается как «черная дыра». При этом на неё нельзя сделать ход, и фишки с одной стороны такой клетки не могут захватить фишки с другой.


Компьютерные программы реверси уже с середины 1990-х годов играют намного сильнее людей. Программа Logistello в 1997 году обыграла чемпиона мира Такэси Мураками 6:0.[4]


Как и многие игры, реверси довольно распространены в Интернете. Однако, отсутствие «культового» статуса, позволяет наткнуться в онлайне на игроков мирового уровня (так, например, на сайте рамблер.ру, одно время играл основатель Ассоциации реверси в СССР Олег Степанов, а трёхкратный чемпион мира Хидеси Таменори до сих пор играет на www.kurnik.pl под ником becky2002jan). Практически все уважающие себя гейм-порталы имеют раздел реверси, однако вследствие того, что компьютеры играют намного лучше людей, в Интернете считается хорошим тоном играть только блицы (обычно до двух минут на каждого игрока).


разработка алгоритм программа листинг


1. Алгоритм


Для компьютера эта игра является достаточно простой и хорошие программы без особого труда обыгрывают даже чемпионов среди людей. Данное качество достигается на данном этапе развития техники алгоритмом альфа-бета отсечения, с использованием большой базы данных уже прошедших партий. В игре существует порядка 10^28 позиций, и около 10^58 возможных партий.


1.1 Алгоритм альфа-бета отсечения


Альфа-бета отсечение (англ. Alpha-beta pruning) — это алгоритм поиска, стремящийся сократить количество узлов, оцениваемых в дереве поиска алгоритмом минимакс. Этот алгоритм предназначен для антагонистических игр и используется для машинной игры (в шахматах, го и других). В основе алгоритма лежит идея, что оценивание ветви дерева поиска может быть досрочно прекращено (без вычисления всех значений оценивающей функции), если было найдено, что для этой ветви значение оценивающей функции в любом случае хуже, чем вычисленное для предыдущей ветви. (Рис.1) Альфа-бета отсечение является оптимизацией, так как результаты работы оптимизируемого алгоритма не изменяются.



Рис.1 Алгоритм альфа-бета отсечения


Преимущество альфа-бета отсечения фактически заключается в том, что некоторые из ветвей подуровней дерева поиска могут быть исключены после того, как хотя бы одна из ветвей уровня рассмотрена полностью. Так как отсечения происходят на каждом уровне вложенности (кроме последнего), эффект может быть весьма значительным. На эффективность метода существенно влияет предварительная сортировка вариантов (без перебора или с перебором на меньшую глубину) — при сортировке чем больше в начале рассмотрено «хороших» вариантов, тем больше «плохих» ветвей может быть отсечено без исчерпывающего анализа. минимаксный поиск осуществляется в глубину, поэтому в любой момент времени достаточно рассматривать узлы вдоль единственного пути в дереве. Алгоритм альфа-бета-отсечения получил свое название по следующим двум параметрам, которые представляют пределы в зарезервированных значениях, присутствующих во всех узлах вдоль этого пути: а = значение наилучшего варианта (т.е. варианта с самым высоким значением), который был до сих пор найден в любой точке выбора вдоль пути для игрока МАХ; Р = значение наилучшего варианта (т.е. варианта с самым низким значением), который был до сих пор найден в любой точке выбора вдоль пути для игрока MIN. Алгоритм альфа-бета-поиска в процессе своей работы обновляет значения а и Р, а также отсекает оставшиеся ветви в узле (т.е. прекращает рекурсивные вызовы), как только становится известно, что значение текущего узла хуже по сравнению с текущим значением а или Р для игрока МАХ или MIN соответственно.


2. Описание программного средства


2.1 Руководство пользователя


Для работы с программой необходимо активизировать её. Для этого нужно на рабочем столе двойным кликом мыши щелкнуть по ярлыку «Reversi»: Спустя мгновение перед вами откроется рабочее окно приложения (Pиc.2).


Оно состоит из элементов:


· Игровое поле, где находятся фишки игрока и противника.


· Поле подсчёта очков (количества фишек).


· Кнопка начала новой игры.



Рис. 2 Окно программы.


Затем нажимая левой клавишей мыши на игровом поле делаем ходы, ставя свои фишки, руководствуясь стандартными правилами игры. Игра продолжается до тех пор, пока всё поле не будет заставлено фишками игрока и противника. Затем программа предлагает начать новую игру.


2.2 Листинг программы


unit Reversi;


interface


type sPosData= record // Информация о текущей позиции


corner: boolean; // Захвачен ли угол


square2x2: boolean; // площадь 2х2 в углах захвачена


edge: boolean;


stable: integer; // Число стоящих фишек


internal: integer; // Число внутренних фишек


disks: integer; // Количество всех фишек


mx, my: integer; // движение координаты x и y


end;


tBoard= array[0..7,0..7] of byte;


pBoard= ^tBoard;


function CalculateData(cc: byte; cx, cy: integer): sPosData;


function CheckMove(color:byte; cx, cy: integer): integer;


function DoStep(data: pBoard): word;


implementation


var brd, brd2, brd3: tBoard;


function CalculateData(cc: byte; cx, cy: integer): sPosData;


// Calculate data about

current position


// Parameter: cc - Who do move, black or white?


// if (cc == 1) White makes a move


// if (cc == 2) Black makes a move


var data: sPosData;


i, j: integer;


intern: boolean;


begin


data.corner:= FALSE;


data.disks:= 0;


data.internal:= 0;


data.stable:= 0;


data.square2x2:= FALSE;


data.edge:= FALSE;


data.mx:= cx;


data.my:= cy;


// делаем копию доски и вычислите сумму фишек


for i:=0 to 7 do


for j:=0 to 7 do


begin


brd3[i,j]:= brd2[i,j];


if brd2[i,j]= cc then inc(data.disks);


end;


// Заполняем "угловые" данные


if ((cy=0) and (cx=0)) or ((cy=0) and (cx=7)) or


((cy=7) and (cx=0)) or ((cy=7) and (cx=7)) then


data.corner:= TRUE;


// Fill the "square2x2" data


if ((cy<=1) and (cx<=1)) or ((cy<=1) and (cx>=6)) or


((cy>=6) and (cx<=1)) or ((cy>=6) and (cx>=6)) then


data.square2x2:= TRUE;


// Fill the "edge" data


if (cy=0) or (cx=0) or (cy=7) or (cx=7) then


data.edge:= TRUE;


// Вычисляем число стоящих фишек


for i:=0 to 7 do // Left-Upper corner


begin


if brd3[i,0] <> cc then break;


for j:=0 to 7 do


begin


if brd3[i,j] <> cc then break;


inc(data.stable);


brd3[i,j]:= 0;


end;


end;


for i:=7 downto 0 do // Left-Lower corner


begin


if brd3[i,0] <> cc then break;


for j:=0 to 7 do


begin


if brd3[i,j] <> cc then break;


inc(data.stable);


brd3[i,j]:= 0;


end;


end;


for i:=7 downto 0 do // Right-Bottom corner


begin


if brd3[i,7] <> cc then break;


for j:=7 downto 0 do


begin


if brd3[i,j] <> cc then break;


inc(data.stable);


brd3[i,j]:= 0;


end;


end;


for i:=0 to 7 do // Right-Upper corner


begin


if brd3[i,7] <> cc then break;


for j:=7 downto 0 do


begin


if brd3[i,j] <> cc then break;


inc(data.stable);


brd3[i,j]:= 0;


end;


end;


// Calculate number of internal discs


for i:=0 to 7 do


for j:=0 to 7 do


if brd2[i,j] = cc then


begin


intern:= TRUE;


if (i>0) and (j>0) and (brd[i-1, j-1]=0) then intern:= FALSE;


if (i>0) and (brd[i-1, j]=0) then intern:= FALSE;


if (i>0) and (j<7) and (brd[i-1, j+1]=0) then intern:= FALSE;


if (i<7) and (j>0) and (brd[i+1, j-1]=0) then intern:= FALSE;


if (i<7) and (brd[i+1, j]=0) then intern:= FALSE;


if (i<7) and (j<7) and (brd[i+1, j+1]=0) then intern:= FALSE;


if (j>0) and (brd[i, j-1]=0) then intern:= FALSE;


if (j<7) and (brd[i, j+1]=0) then intern:= FALSE;


if intern then inc(data.internal);


end;


result:=data;


end;


function CheckMove(color:byte; cx, cy: integer): integer;


// Function check: is move to (cx, cy) possible?


// Parameter: color - Who makes the move, black or white?


// if (colour == 0) White do a move


// if (colour == 1) Black do a move


// return: 0 - if impossible


// 1 - if possible, and number


// value is amount of the seized disks


var test, passed: boolean;


i, j, total: integer;


wc1, wc2: byte; // What to check


begin


total:=0;


// do a copy of board


for i:=0 to 7 do


for j:=0 to 7 do


brd2[i, j]:= brd[i, j];


if color=0 then //white


begin


wc1:= 2;


wc2:= 1;


end


else


begin


wc1:= 1;


wc2:= 2;


end;


if brd[cy, cx]<> 0 then begin result:= 0; exit; end;


passed:= FALSE;


test:= FALSE;


for i:=cx-1 downto 0 do // Check left


begin


if brd[cy, i] = wc1 then test:= TRUE


else


if ((brd[cy, i] = wc2) and (test)) then


begin


passed:= TRUE;


for j:=cx-1 downto i+1 do inc(total);


for j:=cx-1 downto i+1 do brd2[cy, j]:= wc1; ////???????


break;


end


else break;


end;


test:= FALSE;


for i:=cx+1 to 7 do // Check Right


begin


if (brd[cy, i] = wc1) then test:= TRUE


else


if ((brd[cy, i] = wc2) and test) then


begin


passed:= TRUE;


for j:=cx+1 to i-1 do inc(total);


for j:=cx+1 to i-1 do brd2[cy, j]:= wc1;


break;


end


else break;


end;


test:= FALSE;


for i:=cy-1 downto 0 do // Check Up


begin


if (brd[i, cx] = wc1) then test:= TRUE


else


if ((brd[i, cx] = wc2) and test) then


begin


passed:= TRUE;


for j:=cy-1 downto i+1 do inc(total);


for j:=cy-1 downto i+1 do brd2[j, cx]:= wc1;


break;


end


else break;


end;


test:= FALSE;


for i:=cy+1 to 7 do // Check Down


begin


if (brd[i, cx] = wc1) then test:= TRUE


else


if ((brd[i, cx] = wc2) and (test)) then


begin


passed:= TRUE;


for j:=cy+1 to i-1 do inc(total);


for j:=cy+1 to i-1 do brd2[j, cx]:= wc1;


break;


end


else break;


end;


test:= FALSE;


for i:=1 to 7 do // Check Left-Up


begin


if (((cy-i) >= 0) and ((cx-i) >= 0)) then


if (brd[cy-i, cx-i] = wc1) then test:= TRUE


else


if ((brd[cy-i, cx-i] = wc2) and (test)) then


begin


passed:= TRUE;


for j:=1 to i-1 do inc(total);


for j:=1 to i-1 do brd2[cy-j, cx-j]:= wc1;


break;


end


else break


else break;


end;


test:= FALSE;


for i:=1 to 7 do // Check Left-Down


begin


if (((cy+i) < 8) and ((cx-i) >= 0)) then


if (brd[cy+i, cx-i] = wc1) then test:= TRUE


else


if ((brd[cy+i, cx-i] = wc2) and (test)) then


begin


passed:= TRUE;


for j:=1 to i-1 do inc(total);


for j:=1 to i-1 do brd2[cy+j, cx-j]:= wc1;


break;


end


else break


else break;


end;


test:= FALSE;


for i:=1 to 7 do // Check Right-Up


begin


if (((cy-i) >= 0) and ((cx+i) < 8)) then


if (brd[cy-i, cx+i] = wc1) then test:= TRUE


else


if ((brd[cy-i, cx+i] = wc2) and (test)) then


begin


passed:= TRUE;


for j:=1 to i-1 do inc(total);


for j:=1 to i-1 do brd2[cy-j, cx+j]:= wc1;


break;


end


else break


else break;


end;


test:= FALSE;


for i:=1 to 7 do // Check Right-Down


begin


if (((cy+i) < 8) and ((cx+i) < 8)) then


if (brd[cy+i, cx+i] = wc1) then test:= TRUE


else


if ((brd[cy+i, cx+i] = wc2) and (test)) then


begin


passed:= TRUE;


for j:=1 to i-1 do inc(total);


for j:=1 to i-1 do brd2[cy+j, cx+j]:= wc1;


break;


end


else break


else break;


end;


if passed then result:= total


else result:=0;


end;


function DoStep(data: pBoard): word;


var i, j, k, l, value, value1, value2, value3: integer;


pd, pdb, savedData: sPosData;


fMove, fMoveb: boolean; // First move?


begin


for i:=0 to 7 do // Copy data from source data to brd


for j:=0 to 7 do


brd[j,i]:= data^[j,i];


fMove:= TRUE;


for i:=0 to 7 do


for j:=0 to 7 do


begin


if (CheckMove(0, j, i) > 0) then


begin


pd:= CalculateData(1, j, i);


fMoveb:= TRUE;


value:= 0;


for k:=0 to 7 do


for l:=0 to 7 do


if (CheckMove(1, l, k) > 0) then


begin


pdb:= CalculateData(2, l, k);


if pdb.corner then value3:=200 else value3:=0;


value3:=value3+pdb.stable*4;


value3:=value3+pdb.internal*3;


//value3:=value3+pdb.disks;


//if pdb.edge then value3:=value3+ 1;


if pdb.square2x2 then value3:=value3-50;


if fMoveb then


begin


value:= value3;


fMoveb:= FALSE;


end


else


if (value3 > value) then value:= value3;


end;


if fMove then


begin


savedData:= pd;


fMove:= FALSE;


end


else


begin


if pd.corner then value1:=200 else value1:=0;


value1:=value1+ pd.stable*5;


value1:=value1+ pd.internal*3;


value1:=value1+ pd.disks;


if pd.edge then value1:=value1+ 1;


if pd.square2x2 then value1:=value1- 50;


value1:=value1- value;


if savedData.corner then value2:=200 else value2:=0;


value2:=value2+ savedData.stable*5;


value2:=value2+ savedData.internal*3;


value2:=value2+ savedData.disks;


if savedData.edge then value2:=value2+ 1;


if savedData.square2x2 then value2:=value2-50;


if (value1 > value2) then


move(pd,savedData,sizeof(sposdata)); //savedData:= pd;


end;


end;


end;


if not fMove then result:=savedData.my * 256 + savedData.mx


else result:=65535;


end;


end.


Заключение


В результате выполнения работы была разработана программа реализующая алгоритм игры «Реверси». Были получены навыки реализации алгоритмов по предмету «Интеллектуальные системы».


Список литературы


1. Strategy guide // URL; http://radagast.se/othello/Help/strategy.html


2. Рукотворный разум // URL


3. А. Я. Архангельский Программирование в Delphi 7 Издательство: Бином-Пресс, 2003 г. ISBN 5-9518-0042-0


4. А. Я. Архангельский Приемы программирования в Delphi Издательство: Бином-Пресс, 2004 г. ISBN 5-9518-0067-6


5. А. Жуков Изучаем Delphi Издательство: Питер, 2001 г. ISBN 5-272-00202-4

Сохранить в соц. сетях:
Обсуждение:
comments powered by Disqus

Название реферата: Разработка алгоритма и реализация игры "Реверси"

Слов:2745
Символов:23651
Размер:46.19 Кб.