游戏人工智能实验报告四

《游戏人工智能实验报告四》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验四有限状态机实验实验报告一、实验目的通过蚂蚁世界实验掌握游戏中追有限状态机算法二、实验仪器Windows7系统MicrosoftVisualStudio2015三、实验原理及过程1）制作菜单iSS琢程序功能赛却圍设置参数：点击会弹出对话框，设置一些参数，红、黑蚂蚁的家会在地图上标记出来运行：设置好参数后点击运行，毒药、食物、水会在地图上随机显示下一步：2只红蚂蚁和2只黑蚂蚁会随机出现在地图上，窗口右方还会出现红、黑蚂蚁当前数量的统计不断按下一步，有限状态机就会不断运行，使蚁群产生变化2）添加加速键资源视图屮0-0AcceleratorL%IDR.MAINFRAME下方选择

2、ID和键值IDNEXT无VKF10VIRTKEYID.RUN无VKF5VIRTKEY3)新建头文件def.h在AntVicw.cpp屮加入#includeHdef.h"与本实骑有关的数据大都是在这里定义的intflag=();#definekForage1#definekGoHome2#definekThirsty3#definekDead4#definekMaxEntities200classai_Entityjpublic:inttype;intstate;introw;intcol;ai_Entity();~ai_Entity(){)voidNew(intlheType

3、,in(theSlalejnltheRowJnttheCol);voidForagc();voidGoHome();voidThirstyO;voidDead();I;ai_EntityentityListfkMaxEntities];#definekRedAnt1#definekBlackAnt2intRedHomeRow;intRedHomeCol;intBlackHomeRow;intBlackHomeCol;intRedNum=2;intBlackNum=2;〃地图大小，可改变#dcfinckMaxRows30#definekMaxCols40#defineLENGT

4、H20intterrain[kMaxRows][kMaxCols];#dcfinckGround1#definekWater2#definekBIackHome3#definekRedHome4#definekPoison5#dcfinckFood6//ai.Entity类中函数的定义ai_Entity::ai_Entity(){type二0;state=O;row=0;col=0;)intRnd(intmin,intmax)//不能产生负数{intresult;do(result二「and()%max;}while(result<=min);returnresult;voi

5、dai_Entity::New(inttheTypejnttheStateJnttheRow,inttheCol){lype=theType;rovv=theRow;col二theCol;state=theState;voidai_Entity::Forage(){introwMove;intcolMove;intnewRow;intnewCol;intfoodRow;intfoodCol;intpoisonRow;intpoisonCol;rowMovc=Rnd(-1,3)-1;colMovc=Rnd(-l,3)-1;newRow=row+rowMove:newCoI=co

6、l+colMove;if(newRow<0)return;if(newCol<0)return;if(newRow>=kMaxRows)return;if(newCol>=kMaxCols)return;if((terrain[newRow][newCol]==kGround)

7、

8、(terrain[newRow][newCol]==kWater)){row=newRow;col=newCol;}if(tcrrain[ncwRow][ncwCol]==kFood){row=newRow;col=newCol;teiiain[row][col]=kGround;state二kGo

9、Homc;do{foodRow=Rnd(-l,kMaxRows);foodCoI=Rnd(-1,kMaxCols);)while(terrain[foodRow][foodCol]!=kGround);terrain[foodRow][foodCol]=kFood;if(terrain[newRow][newCol]==kPoison){row=ncwRow;col=newCol;terrainlrowJlcolJ=kGround;state=kDead;do{poisonRow=Rnd(-1,kMax