蚁群算法实验报告.doc

蚁群算法 实验目的 各个蚂蚁在没有事先告诉他们食物在什么地方的前提下开始寻找食物。当一只找到食物以后，它会向环境释放一种信息素，吸引其他的蚂蚁过来，这样越来越多的蚂蚁会找到食物。有些蚂蚁并没有象其它蚂蚁一样总重复同样的路，他们会另辟蹊径，如果令开辟的道路比原来的其他道路更短，那么，渐渐，更多的蚂蚁被吸引到这条较短的路上来。最后，经过一段时间运行，可能会出现一条最短的路径被大多数蚂蚁重复着。 程序开始运行，蚂蚁们开始从窝里出动了，寻找食物；他们会顺着屏幕爬满整个画面，直到找到食物再返回窝。 using System; using System.Collections.Generic; using System.Drawing; using System.Drawing.Drawing2D; using System.Threading; using System.Windows.Forms; namespace ANTS { public partial class Form1 : Form { int temp1 = 0, temp2 = 0; public Form1() { InitializeComponent(); } private void Form1_Paint(object sender, PaintEventArgs e) { Bitmap bmp = new Bitmap(PlayGround.MaxX + 10, PlayGround.MaxY + 10); // 新?建?§画-布? Graphics g = Graphics.FromImage(bmp); // 获?取¨?这a块¨|内¨2存??画-布?的ì?Graphics引°y用?? Pen pb = new Pen(_borderColor, 2); // 画-边à?框¨° Pen ph = new Pen(_homeColor, 3); // 画-窝? Pen pf = new Pen(_foodColor, 3); // 画-食o3物? g.DrawEllipse(pf, PlayGround.FoodLocation.X, PlayGround.FoodLocation.Y, 10, 10); g.DrawEllipse(ph, PlayGround.HomeLocation.X, PlayGround.HomeLocation.Y, 10, 10); g.DrawRectangle(pb,1 , 1, PlayGround.MaxX + 2, PlayGround.MaxY + 2); if (StoneInitialFlag) { StoneInitialFlag = false; PlayGround.InitialStone(); } DrawStone(bmp); // 画-障?碍?-物? this.CreateGraphics().DrawImage(bmp, 0, 0); // 显?示o?新?建?§的ì?画-布? bmp.Dispose(); // 释o¨a放¤?内¨2存?? } private void tabPage2_Click(object sender, EventArgs e) { groundSet ground = new groundSet(); ground.Show(); } private void tabPage1_Click(object sender, EventArgs e) { antsSet ant = new antsSet(); ant.Show(); } private void