




已閱讀5頁,還剩21頁未讀, 繼續(xù)免費(fèi)閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
實(shí)驗(yàn)四 有限狀態(tài)機(jī)實(shí)驗(yàn)實(shí)驗(yàn)報(bào)告一、實(shí)驗(yàn)?zāi)康耐ㄟ^螞蟻世界實(shí)驗(yàn)掌握游戲中追有限狀態(tài)機(jī)算法二、實(shí)驗(yàn)儀器Windows7系統(tǒng) Microsoft Visual Studio2015三、實(shí)驗(yàn)原理及過程1) 制作菜單設(shè)置參數(shù):點(diǎn)擊會彈出對話框,設(shè)置一些參數(shù),紅、黑螞蟻的家會在地圖上標(biāo)記出來運(yùn)行:設(shè)置好參數(shù)后點(diǎn)擊運(yùn)行,毒藥、食物、水會在地圖上隨機(jī)顯示下一步:2只紅螞蟻和2只黑螞蟻會隨機(jī)出現(xiàn)在地圖上,窗口右方還會出現(xiàn)紅、黑螞蟻當(dāng)前數(shù)量的統(tǒng)計(jì)不斷按下一步,有限狀態(tài)機(jī)就會不斷運(yùn)行,使蟻群產(chǎn)生變化2)添加加速鍵資源視圖中下方選擇ID和鍵值3) 新建頭文件def.h 在AntView.cpp中加入#include def.h與本實(shí)驗(yàn)有關(guān)的數(shù)據(jù)大都是在這里定義的int flag=0;#define kForage 1#define kGoHome 2#define kThirsty 3#define kDead 4#define kMaxEntities 200class ai_Entitypublic:int type;int state;int row;int col;ai_Entity();ai_Entity() void New (int theType,int theState,int theRow,int theCol);void Forage();void GoHome();void Thirsty();void Dead();ai_Entity entityListkMaxEntities;#define kRedAnt 1#define kBlackAnt 2int RedHomeRow;int RedHomeCol;int BlackHomeRow;int BlackHomeCol;int RedNum=2;int BlackNum=2;/地圖大小,可改變#define kMaxRows 30#define kMaxCols 40#define LENGTH 20int terrainkMaxRowskMaxCols;#define kGround 1#define kWater 2#define kBlackHome 3#define kRedHome 4#define kPoison 5#define kFood 6/ai_Entity類中函數(shù)的定義ai_Entity:ai_Entity()type=0;state=0;row=0;col=0;int Rnd(int min, int max)/不能產(chǎn)生負(fù)數(shù)int result;doresult=rand()%max;while(result=min);return result;void ai_Entity:New (int theType,int theState,int theRow,int theCol)type=theType;row=theRow;col=theCol;state=theState;void ai_Entity:Forage()int rowMove;int colMove;int newRow;int newCol;int foodRow;int foodCol;int poisonRow;int poisonCol;rowMove=Rnd(-1,3)-1;colMove=Rnd(-1,3)-1;newRow=row+rowMove;newCol=col+colMove;if(newRow0)return;if(newCol=kMaxRows)return;if(newCol=kMaxCols)return;if(terrainnewRownewCol=kGround)|(terrainnewRownewCol=kWater)row=newRow;col=newCol;if(terrainnewRownewCol=kFood)row=newRow;col=newCol;terrainrowcol=kGround;state=kGoHome;dofoodRow=Rnd(-1,kMaxRows);foodCol=Rnd(-1,kMaxCols);while(terrainfoodRowfoodCol!=kGround);terrainfoodRowfoodCol=kFood;if(terrainnewRownewCol=kPoison)row=newRow;col=newCol;terrainrowcol=kGround;state=kDead;dopoisonRow=Rnd(-1,kMaxRows);poisonCol=Rnd(-1,kMaxCols);while(terrainpoisonRowpoisonCol!=kGround);terrainpoisonRowpoisonCol=kPoison;void ai_Entity:GoHome()int rowMove;int colMove;int newRow;int newCol;int homeRow;int homeCol;int poisonRow;int poisonCol;int i;if(type=kRedAnt)homeRow=RedHomeRow;homeCol=RedHomeCol;elsehomeRow=BlackHomeRow;homeCol=BlackHomeCol;if(rowhomeRow)rowMove=-1;elserowMove=0;if(colhomeCol)colMove=-1;elsecolMove=0;newRow=row+rowMove;newCol=col+colMove;if(newRow0)return;if(newCol=kMaxRows)return;if(newCol=kMaxCols)return;if(terrainnewRownewCol!=kPoison)row=newRow;col=newCol;elserow=newRow;col=newCol;terrainrowcol=kGround;state=kDead;dopoisonRow=Rnd(-1,kMaxRows);poisonCol=Rnd(-1,kMaxCols);while(terrainpoisonRowpoisonCol!=kGround);terrainpoisonRowpoisonCol=kPoison;if(newRow=homeRow)&(newCol=homeCol)row=newRow;col=newCol;state=kThirsty;for(i=0;ikMaxEntities;i+)if(entityListi.type=0)entityListi.New(type,kForage,homeRow,homeCol);if(type=kRedAnt)RedNum+;if(type=kBlackAnt)BlackNum+;break;void ai_Entity:Thirsty()int rowMove;int colMove;int newRow;int newCol;int foodRow;int foodCol;int poisonRow;int poisonCol;rowMove=Rnd(-1,3)-1;colMove=Rnd(-1,3)-1;newRow=row+rowMove;newCol=col+colMove;if(newRow0)return;if(newCol=kMaxRows)return;if(newCol=kMaxCols)return;if(terrainnewRownewCol=kGround)|(terrainnewRownewCol=kFood)row=newRow;col=newCol;if(terrainnewRownewCol=kWater)row=newRow;col=newCol;terrainrowcol=kGround;state=kForage;dofoodRow=Rnd(-1,kMaxRows);foodCol=Rnd(-1,kMaxCols);while(terrainfoodRowfoodCol!=kGround);terrainfoodRowfoodCol=kWater;if(terrainnewRownewCol=kPoison)row=newRow;col=newCol;terrainrowcol=kGround;state=kDead;dopoisonRow=Rnd(-1,kMaxRows);poisonCol=Rnd(-1,kMaxCols);while(terrainpoisonRowpoisonCol!=kGround);terrainpoisonRowpoisonCol=kPoison;void ai_Entity:Dead()if(type=kRedAnt)RedNum-;if(type=kBlackAnt)BlackNum-;type=0;4) 制作對話框添加資源,拖動(dòng)控件9個(gè)靜態(tài)文本框,7個(gè)編輯框右鍵對話框添加類InputDlg,添加成員變量int m_RedHomeRow;int m_RedHomeCol;int m_BlackHomeRow;int m_BlackHomeCol;int m_food;int m_water;int m_poison;在AntView.cpp中加入#include InputDlg.h5) 對菜單項(xiàng)添加事件給CAntView類添加一些成員變量沒做說明都是添加到CAntView類,沒做說明都是COMMAND事件。設(shè)置參數(shù):點(diǎn)擊出現(xiàn)對話框,輸入值,確定后賦給CAntView的成員變量,刷新窗口void CAntView:OnData()/ TODO: 在此添加命令處理程序代碼InputDlg dlg;if(dlg.DoModal()=IDOK)RedHomeRow=kRedHomeRow=dlg.m_RedHomeRow;RedHomeCol=kRedHomeCol=dlg.m_RedHomeCol;BlackHomeRow=kBlackHomeRow=dlg.m_BlackHomeRow;BlackHomeCol=kBlackHomeCol=dlg.m_BlackHomeCol;kMaxWater=dlg.m_water;kMaxFood=dlg.m_food;kMaxPoison=dlg.m_poison;if(kRedHomeRow=kMaxRows|kBlackHomeRow=kMaxRows|kRedHomeCol=kMaxCols|kBlackHomeCol=kMaxCols|kRedHomeRow0|kBlackHomeRow0|kRedHomeCol0|kBlackHomeCol0|kRedHomeRow=kBlackHomeRow&kRedHomeCol=kBlackHomeCol)AfxMessageBox(L輸入坐標(biāo)不合法,請重新輸入!);return;flag=1;Invalidate();運(yùn)行:初始化數(shù)組,隨機(jī)生成毒藥、事物、水,刷新窗口void CAntView:OnRun()/ TODO: 在此添加命令處理程序代碼if(flag=0)AfxMessageBox(L還未設(shè)置螞蟻家的位置!);return ;if(flag!=1)return ;int i,j;for(i=0;ikMaxRows;i+)for(j=0;jkMaxCols;j+)terrainij=kGround;terrainkRedHomeRowkRedHomeCol=kRedHome;terrainkBlackHomeRowkBlackHomeCol=kBlackHome;srand(time(NULL); /取系統(tǒng)時(shí)間為隨機(jī)種子int r,c;for(i=0;ikMaxWater;i+)r=Rnd(-1,kMaxRows);c=Rnd(-1,kMaxCols);if(terrainrc=kGround)terrainrc=kWater;elsei-;for(i=0;ikMaxPoison;i+)r=Rnd(-1,kMaxRows);c=Rnd(-1,kMaxCols);if(terrainrc=kGround)terrainrc=kPoison;elsei-;for(i=0;ikMaxFood;i+)r=Rnd(-1,kMaxRows);c=Rnd(-1,kMaxCols);if(terrainrc=kGround)terrainrc=kFood;elsei-;flag=2;Invalidate();下一步:有限狀態(tài)機(jī)的核心代碼,刷新窗口void CAntView:OnNext()/ TODO: 在此添加命令處理程序代碼if(flag=2)/kGround才能新建int x,y;for(int i=0;i2;i+)x=Rnd(-1,kMaxCols);y=Rnd(-1,kMaxRows);if(terrainyx=kGround)entityListi.New(kRedAnt,kForage,y,x);elsei-;for(int i=2;i4;i+)x=Rnd(-1,kMaxCols);y=Rnd(-1,kMaxRows);if(terrainyx=kGround)entityListi.New(kBlackAnt,kForage,y,x);elsei-;flag=3;elsefor(int i=0;ikMaxEntities;i+)switch(entityListi.state)case kForage:entityListi.Forage();break;case kGoHome:entityListi.GoHome();break;case kThirsty:entityListi.Thirsty();break;case kDead:entityListi.Dead();break;default:break;Invalidate();6) OnDraw函數(shù)flag是標(biāo)志變量,便于控制繪圖void CAntView:OnDraw(CDC* pDC)CAntDoc* pDoc = GetDocument();ASSERT_VALID(pDoc);if (!pDoc)return;/ TODO: 在此處為本機(jī)數(shù)據(jù)添加繪制代碼int i,j;/繪制網(wǎng)格for(i=0;iMoveTo(0,i);pDC-LineTo(LENGTH*kMaxCols,i);for(i=0;iMoveTo(i,0);pDC-LineTo(i,LENGTH*kMaxRows);/畫出紅黑房子if(flag=1)pDC-TextOutW(kBlackHomeCol*LENGTH+1,kBlackHomeRow*LENGTH+1,LH);pDC-SetTextColor(RGB(255,0,0);pDC-TextOutW(kRedHomeCol*LENGTH+1,kRedHomeRow*LENGTH+1,LH);pDC-SetTextColor(RGB(0,0,0);if(flag=2)/遍歷數(shù)組在相應(yīng)位置顯示圖片(水滴、骷髏、蘋果)CDC dcMemory;dcMemory.CreateCompatibleDC(pDC);CBitmap bmp1,bmp2,bmp3;BITMAP bmpInfo1,bmpInfo2,bmpInfo3;bmp1.LoadBitmapW(IDB_BITMAP1);bmp1.GetBitmap(&bmpInfo1);bmp2.LoadBitmapW(IDB_BITMAP2);bmp2.GetBitmap(&bmpInfo2);bmp3.LoadBitmapW(IDB_BITMAP3);bmp3.GetBitmap(&bmpInfo3);CBitmap *pOldBitmap=dcMemory.SelectObject(&bmp1);for(i=0;ikMaxRows;i+)for(j=0;jStretchBlt(j*LENGTH+1,i*LENGTH+1,19,19,&dcMemory,0,0,bmpInfo1.bmWidth,bmpInfo1.bmHeight,SRCCOPY);else if(terrainij=kPoison)dcMemory.SelectObject(&bmp2);pDC-StretchBlt(j*LENGTH+1,i*LENGTH+1,19,19,&dcMemory,0,0,bmpInfo2.bmWidth,bmpInfo2.bmHeight,SRCCOPY);else if(terrainij=kFood)dcMemory.SelectObject(&bmp3);pDC-StretchBlt(j*LENGTH+1,i*LENGTH+1,18,18,&dcMemory,0,0,bmpInfo3.bmWidth,bmpInfo3.bmHeight,SRCCOPY);dcMemory.SelectObject(pOldBitmap);if(flag=3) /繪制螞蟻CDC dcMemory;dcMemory.CreateCompatibleDC(pDC);CBitmap bmp1,bmp2;BITMAP bmpInfo1,bmpInfo2;bmp1.LoadBitmapW(IDB_BITMAP4);bmp1.GetBitmap(&bmpInfo1);bmp2.LoadBitmapW(IDB_BITMAP5);bmp2.GetBitmap(&bmpInfo2);CBitmap *pOldBitmap=dcMemory.SelectObject(&bmp1);for(i=0;iStretchBlt(entityListi.col*LENGTH+1,entityListi.row*LENGTH+1,19,19,&dcMemory,0,0,bmpInfo1.bmWidth,bmpInfo1.bmHeight,SRCCOPY);if(entityListi.type=kBlackAnt)dcMemory.SelectObject(&bmp2);pDC-StretchBlt(entityListi.col*LENGTH+1,entityListi.row*LENGTH+1,19,19,&dcMemory,0,0,bmpInfo2.bmWidth,bmpInfo2.bmHeight,SRCCOPY);dcMemory.SelectObject(pOldBitmap);CString s;s.Format(_T(紅螞蟻數(shù):%d 黑螞蟻數(shù):%d),RedNum,BlackNum);/輸出當(dāng)前螞蟻數(shù)pDC-TextOutW(43*LENGTH,0,s);四、實(shí)驗(yàn)結(jié)果運(yùn)行:點(diǎn)擊菜單項(xiàng),設(shè)置參數(shù),彈出對話框如果設(shè)置參數(shù)不對:(房子坐標(biāo)越界、紅黑房子坐標(biāo)相等、食物毒物水?dāng)?shù)為負(fù)數(shù))參數(shù)設(shè)置好后,房子出現(xiàn):點(diǎn)擊運(yùn)行或F5,食物毒物水出現(xiàn):點(diǎn)擊下一步或F10,螞蟻和文字出現(xiàn):多次點(diǎn)擊下一步,螞蟻數(shù)改變:可以多次點(diǎn)擊下一步設(shè)置的參數(shù)不同螞蟻的繁殖情況不同。比如,食物多,繁殖快,毒物多,螞蟻可能很快就滅絕了五、實(shí)驗(yàn)心得通過有限狀態(tài)機(jī)實(shí)現(xiàn)螞蟻的繁殖,很有趣的一個(gè)實(shí)驗(yàn),通過此次實(shí)驗(yàn)?zāi)茉黾覣I和MFC的知識,程序還有很多需要改進(jìn)的地方。比如,有時(shí)候不按指定的順序點(diǎn)擊菜單將會出現(xiàn)小錯(cuò)誤;def.h里的東西太雜,可以新建cpp文件,整理進(jìn)去。六、主要代碼實(shí)驗(yàn)過程中已經(jīng)列出主要代碼,這里再列出與有限狀態(tài)機(jī)算法有關(guān)的代碼ai_Entity:ai_Entity()type=0;state=0;row=0;col=0;int Rnd(int min, int max)/不能產(chǎn)生負(fù)數(shù)int result;doresult=rand()%max;while(result=min);return result;void ai_Entity:New (int theType,int theState,int theRow,int theCol)type=theType;row=theRow;col=theCol;state=theState;void ai_Entity:Forage()int rowMove;int colMove;int newRow;int newCol;int foodRow;int foodCol;int poisonRow;int poisonCol;rowMove=Rnd(-1,3)-1;colMove=Rnd(-1,3)-1;newRow=row+rowMove;newCol=col+colMove;if(newRow0)return;if(newCol=kMaxRows)return;if(newCol=kMaxCols)return;if(terrainnewRownewCol=kGround)|(terrainnewRownewCol=kWater)row=newRow;col=newCol;if(terrainnewRownewCol=kFood)row=newRow;col=newCol;terrainrowcol=kGround;state=kGoHome;dofoodRow=Rnd(-1,kMaxRows);foodCol=Rnd(-1,kMaxCols);while(terrainfoodRowfoodCol!=kGround);terrainfoodRowfoodCol=kFood;if(terrainnewRownewCol=kPoison)row=newRow;col=newCol;terrainrowcol=kGround;state=kDead;dopoisonRow=Rnd(-1,kMaxRows);poisonCol=Rnd(-1,kMaxCols);while(terrainpoisonRowpoisonCol!=kGround);terrainpoisonRowpoisonCol=kPoison;void ai_Entity:GoHome()int rowMove;int colMove;int newRow;int newCol;int homeRow;int homeCol;int poisonRow;int poisonCol;int i;if(type=kRedAnt)homeRow=RedHomeRow;homeCol=RedHomeCol;elsehomeRow=BlackHomeRow;homeCol=BlackHomeCol;if(rowhomeRow)rowMove=-1;elserowMove=0;if(colhomeCol)colMove=-1;elsecolMove=0;newRow=row+rowMove;newCol=col+colMove;if(newRow0)return;if(newCol=kMaxRows)return;if(newCol=kMaxCols)return;if(terrainnewRownewCol!=kPoison)row=newRow;col=newCol;elserow=newRow;col=newCol;terrainrowcol=kGround;state=kDead;dopoisonRow=Rnd(-1,kMaxRows);poisonCol=Rnd(-1,kMaxCols);while(terrainpoisonRowpoisonCol!=kGround);terrainpoisonRowpoisonCol=kPoison;if(newRow=homeRow)&(newCol=homeCol)row=newRow;col=newCol;state=kThirsty;for(i=0;ikMaxEntities;i+)if(entityListi.type=0)entityListi.New(type,kForage,homeRow,homeCol);if(type=kRedAnt)RedNum+;if(type=kBlackAnt)BlackNum+;break;void ai_Entity:Thirsty()int rowMove;int colMove;int newRow;int newCol;int foodRow;int foodCol;int poisonRow;int poisonCol;rowMove=Rnd(-1,3)-1;colMove=Rnd(-1,3)-1;newRow=row+rowMove;newCol=col+colMove;if(newRow0)return;if(newCol=kMaxRows)return;if(newCol=kMaxCols)return;
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025崗位勞動(dòng)合同(版)
- 公司員工用水管理制度
- 公司設(shè)備用油管理制度
- 幼教集團(tuán)園長管理制度
- 內(nèi)衣倉庫輔料管理制度
- 城管部門車輛管理制度
- 基層衛(wèi)生應(yīng)急管理制度
- 醫(yī)院陪護(hù)公司管理制度
- 公司微信溝通管理制度
- 公寓安全檢查管理制度
- 科學(xué)上海會考試卷及答案
- 信息技術(shù)與課堂教學(xué)深度融合開題報(bào)告
- 臨床提升手護(hù)溫度 共筑人文關(guān)懷-手術(shù)室患者人文關(guān)懷管理規(guī)范實(shí)踐
- 2025紫金礦業(yè)集團(tuán)股份有限公司校園招聘筆試參考題庫附帶答案詳解
- 2025義務(wù)教育道德與法治(2022版)課程標(biāo)準(zhǔn)考試測試卷及答案
- LED顯示屏更新改造的安全措施與施工文明要求
- 江蘇南京歷年中考作文題與審題指導(dǎo)(2002-2024)
- 3.1.1 橢圓的標(biāo)準(zhǔn)方程(同步課件含動(dòng)畫演示)
- 綠色施工評價(jià)標(biāo)準(zhǔn)【B.0.2 環(huán)境保護(hù)要素評價(jià)表】
- 離婚協(xié)議書正規(guī)打?。?025年版)
- 稀土元素??碱}及答案
評論
0/150
提交評論