蚁群算法实验的总结.docxVIP

蚁群算法实验总结 　　蚁群算法　　一．实验目的　　各个蚂蚁在没有事先告诉他们食物在什么地方的前提下开始寻找食物。当一只找到食物以后，它会向环境释放一种信息素，吸引其他的蚂蚁过来，这样越来越多的蚂蚁会找到食物。有些蚂蚁并没有象其它蚂蚁一样总重复同样的路，他们会另辟蹊径，如果令开辟的道路比原来的其他道路更短，那么，渐渐，更多的蚂蚁被吸引到这条较短的路上来。最后，经过一段时间运行，可能会出现一条最短的路径被大多数蚂蚁重复着。　　二．编程环境　　MicrosoftVisualStudioXX　　三．实验要求　　程序开始运行，蚂蚁们开始从窝里出动了，寻找食物；他们会顺着屏幕爬满整个画面，直到找到食物再返回窝。　　四．源代码　　Form1窗体代码：　　usingSystem;　　using;　　using;　　using;　　using;　　using;　　namespaceANTS　　{　　publicpartialclassForm1:Form　　{　　inttemp1=0,temp2=0;　　publicForm1()　　{　　InitializeComponent();　　}　　privatevoidForm1_Paint(objectsender,PaintEventArgse)　　{　　Bitmapbmp=newBitmap(+10,+10);//新?建?画-布?　　Graphicsg=(bmp);//获?取¨?这a块¨|内¨2存??画-布?的ì?Graphics引?y用??　　Penpb=newPen(_borderColor,2);//画-边à?框¨?　　Penph=newPen(_homeColor,3);//画-窝?　　Penpf=newPen(_foodColor,3);//画-食o3物?　　(pf,,,10,　　10);　　(ph,,,10,　　10);　　(pb,1,1,+2,+2);if(StoneInitialFlag)　　{　　StoneInitialFlag=false;　　();　　}　　DrawStone(bmp);//画-障?碍?-物?　　().DrawImage(bmp,0,0);//显?示o?新?建?的ì?画-布?();//释o¨a放¤?内¨2存??　　}　　privatevoidtabPage2_Click(objectsender,EventArgse)　　{　　groundSetground=newgroundSet();　　();　　}　　privatevoidtabPage1_Click(objectsender,EventArgse)　　{　　antsSetant=newantsSet();　　();　　}　　privatevoidjieshaoToolStripMenuItem_Click(objectsender,EventArgse){　　Introduceintroduce=newIntroduce();　　();　　}　　privatevoidaboutToolStripMenuItem_Click(objectsender,EventArgse)　　{　　Formabout=newForm();　　();　　}　　privatevoidForm1_Load(objectsender,EventArgse)　　{　　=true;　　=0;　　=true;　　player=new();　　=Rihanna-WhereHaveYou;　　();　　(5000);　　();　　}　　publicvoidtimer1_Tick(objectsender,EventArgse)　　{　　{　　try　　{　　Graphicsg=CreateGraphics();　　Penpc=newPen(,1);//清?除y蚂¨?蚁??　　Penpa=newPen(_antColor,1);//画-蚂¨?蚁??　　Penpaf=newPen(_antfColor,1);//画-带??着á?食o3物?的ì?蚂¨?蚁??=;　　ColorC=;　　PenP=newPen(,0);　　=;　　=;　　for(inti=0;i=100)　　{　　temp2=temp2+temp1/100;　　temp1=temp1%60;　　}　　=()+秒?+();　　}　　catch(Exceptionee)　　{　　//=;　　}　　}　　}　　ThreadTimer2Trd;　　publicvoidtimer2_