蚁群算法小程序.doc

1、蚁群算法小程序(C/C+语言实现) 算法解释：程序开始运行，蚂蚁们开始从窝里出动了，寻找食物；他们会顺着屏幕爬满整个画面，直到找到食物再返回窝。其中， F点表示食物， H表示窝，白色块表示障碍物， +就是蚂蚁了。预期的结果：各个蚂蚁在没有事先告诉他们食物在什么地方的前提下开始寻找食物。当一只找到食物以后，它会向环境释放一种信息素，吸引其他的蚂蚁过来，这样越来越多的蚂蚁会找到食物！有些蚂蚁并没有象其它蚂蚁一样总重复同样的路，他们会另辟蹊径，如果令开辟的道路比原来的其他道路更短，那么，渐渐，更多的蚂蚁被吸引到这条较短的路上来。最后，经过一段时间运行，可能会出现一条最短的路径被大多数蚂蚁重复着。原理

2、：为什么小小的蚂蚁能够找到食物？他们具有智能么？设想，如果我们要为蚂蚁设计一个人工智能的程序，那么这个程序要多么复杂呢？首先，你要让蚂蚁能够避开障碍物，就必须根据适当的地形给它编进指令让他们能够巧妙的避开障碍物，其次，要让蚂蚁找到食物，就需要让他们遍历空间上的所有点；再次，如果要让蚂蚁找到最短的路径，那么需要计算所有可能的路径并且比较它们的大小，而且更重要的是，你要小心翼翼的编程，因为程序的错误也许会让你前功尽弃。这是多么不可思议的程序！太复杂了，恐怕没人能够完成这样繁琐冗余的程序。然而，事实并没有你想得那么复杂，上面这个程序每个蚂蚁的核心程序编码不过 100 多行！为什么这么简单的程序会让蚂

3、蚁干这样复杂的事情？答案是：简单规则的涌现。事实上，每只蚂蚁并不是像我们想象的需要知道整个世界的信息，他们其实只关心很小范围内的眼前信息，而且根据这些局部信息利用几条简单的规则进行决策，这样，在蚁群这个集体里，复杂性的行为就会凸现出来。这就是人工生命、复杂性科学解释的规律！那么，这些简单规则是什么呢？下面详细说明：1、范围：蚂蚁观察到的范围是一个方格世界，蚂蚁有一个参数为速度半径（一般是 3） ，那么它能观察到的范围就是 3*3 个方格世界，并且能移动的距离也在这个范围之内。2、环境：蚂蚁所在的环境是一个虚拟的世界，其中有障碍物，有别的蚂蚁，还有信息素，信息素有两种，一种是找到食物的蚂蚁洒下的

4、食物信息素，一种是找到窝的蚂蚁洒下的窝的信息素。每个蚂蚁都仅仅能感知它范围内的环境信息。环境以一定的速率让信息素消失。3、觅食规则：在每只蚂蚁能感知的范围内寻找是否有食物，如果有就直接过去。否则看是否有信息素，并且比较在能感知的范围内哪一点的信息素最多，这样，它就朝信息素多的地方走，并且每只蚂蚁多会以小概率犯错误，从而并不是往信息素最多的点移动。蚂蚁找窝的规则和上面一样，只不过它对窝的信息素做出反应，而对食物信息素没反应。4、移动规则： 每只蚂蚁都朝向信息素最多的方向移，并且，当周围没有信息素指引的时候，蚂蚁会按照自己原来运动的方向惯性的运动下去，并且，在运动的方向有一个随机的小的扰动。为了防

5、止蚂蚁原地转圈，它会记住最近刚走过了哪些点，如果发现要走的下一点已经在最近走过了，它就会尽量避开。5、避障规则：如果蚂蚁要移动的方向有障碍物挡住，它会随机的选择另一个方向，并且有信息素指引的话，它会按照觅食的规则行为。 7、播撒信息素规则：每只蚂蚁在刚找到食物或者窝的时候撒发的信息素最多，并随着它走远的距离，播撒的信息素越来越少。根据这几条规则，蚂蚁之间并没有直接的关系，但是每只蚂蚁都和环境发生交互，而通过信息素这个纽带，实际上把各个蚂蚁之间关联起来了。比如，当一只蚂蚁找到了食物，它并没有直接告诉其它蚂蚁这儿有食物，而是向环境播撒信息素，当其它的蚂蚁经过它附近的时候，就会感觉到信息素的存在，进

6、而根据信息素的指引找到了食物。问题：说了这么多，蚂蚁究竟是怎么找到食物的呢？在没有蚂蚁找到食物的时候，环境没有有用的信息素，那么蚂蚁为什么会相对有效的找到食物呢？这要归功于蚂蚁的移动规则，尤其是在没有信息素时候的移动规则。首先，它要能尽量保持某种惯性，这样使得蚂蚁尽量向前方移动（开始，这个前方是随机固定的一个方向） ，而不是原地无谓的打转或者震动；其次，蚂蚁要有一定的随机性，虽然有了固定的方向，但它也不能像粒子一样直线运动下去，而是有一个随机的干扰。这样就使得蚂蚁运动起来具有了一定的目的性，尽量保持原来的方向，但又有新的试探，尤其当碰到障碍物的时候它会立即改变方向，这可以看成一种选择的过程，也

7、就是环境的障碍物让蚂蚁的某个方向正确，而其他方向则不对。这就解释了为什么单个蚂蚁在复杂的诸如迷宫的地图中仍然能找到隐蔽得很好的食物。当然，在有一只蚂蚁找到了食物的时候，其他蚂蚁会沿着信息素很快找到食物的。蚂蚁如何找到最短路径的？这一是要归功于信息素，另外要归功于环境，具体说是计算机时钟。信息素多的地方显然经过这里的蚂蚁会多，因而会有更多的蚂蚁聚集过来。假设有两条路从窝通向食物，开始的时候，走这两条路的蚂蚁数量同样多（或者较长的路上蚂蚁多，这也无关紧要） 。当蚂蚁沿着一条路到达终点以后会马上返回来，这样，短的路蚂蚁来回一次的时间就短，这也意味着重复的频率就快，因而在单位时间里走过的蚂蚁数目就多，

8、洒下的信息素自然也会多，自然会有更多的蚂蚁被吸引过来，从而洒下更多的信息素；而长的路正相反，因此，越来越多地蚂蚁聚集到较短的路径上来，最短的路径就近似找到了。也许有人会问局部最短路径和全局最短路的问题，实际上蚂蚁逐渐接近全局最短路的，为什么呢？这源于蚂蚁会犯错误，也就是它会按照一定的概率不往信息素高的地方走而另辟蹊径，这可以理解为一种创新，这种创新如果能缩短路途，那么根据刚才叙述的原理，更多的蚂蚁会被吸引过来。引申跟着蚂蚁的踪迹，你找到了什么？通过上面的原理叙述和实际操作，我们不难发现蚂蚁之所以具有智能行为，完全归功于它的简单行为规则，而这些规则综合起来具有下面两个方面的特点：1、多样性2、正

9、反馈多样性保证了蚂蚁在觅食的时候不置走进死胡同而无限循环，正反馈机制则保证了相对优良的信息能够被保存下来。我们可以把多样性看成是一种创造能力，而正反馈是一种学习强化能力。正反馈的力量也可以比喻成权威的意见，而多样性是打破权威体现的创造性，正是这两点小心翼翼的巧妙结合才使得智能行为涌现出来了。引申来讲，大自然的进化，社会的进步、人类的创新实际上都离不开这两样东西，多样性保证了系统的创新能力，正反馈保证了优良特性能够得到强化，两者要恰到好处的结合。如果多样性过剩，也就是系统过于活跃，这相当于蚂蚁会过多的随机运动，它就会陷入混沌状态；而相反，多样性不够，正反馈机制过强，那么系统就好比一潭死水。这在蚁

10、群中来讲就表现为，蚂蚁的行为过于僵硬，当环境变化了，蚂蚁群仍然不能适当的调整。既然复杂性、智能行为是根据底层规则涌现的，既然底层规则具有多样性和正反馈特点，那么也许你会问这些规则是哪里来的？多样性和正反馈又是哪里来的？我本人的意见：规则来源于大自然的进化。而大自然的进化根据刚才讲的也体现为多样性和正反馈的巧妙结合。而这样的巧妙结合又是为什么呢？为什么在你眼前呈现的世界是如此栩栩如生呢？答案在于环境造就了这一切，之所以你看到栩栩如生的世界，是因为那些不能够适应环境的多样性与正反馈的结合都已经死掉了，被环境淘汰了！参数说明：最大信息素：蚂蚁在一开始拥有的信息素总量，越大表示程序在较长一段时间能够存

11、在信息素。信息素消减的速度：随着时间的流逝，已经存在于世界上的信息素会消减，这个数值越大，那么消减的越快。错误概率表示这个蚂蚁不往信息素最大的区域走的概率，越大则表示这个蚂蚁越有创新性。速度半径表示蚂蚁一次能走的最大长度，也表示这个蚂蚁的感知范围。记忆能力表示蚂蚁能记住多少个刚刚走过点的坐标，这个值避免了蚂蚁在本地打转，停滞不前。而这个值越大那么整个系统运行速度就慢，越小则蚂蚁越容易原地转圈。源代码如下：/*ant.c*/#define SPACE 0x20#define ESC 0x1b#define ANT_CHAR_EMPTY +#define ANT_CHAR_FOOD 153#def

12、ine HOME_CHAR H#define FOOD_CHAR F#define FOOD_CHAR2 f#define FOOD_HOME_COLOR 12#define BLOCK_CHAR 177#define MAX_ANT 50#define INI_SPEED 3#define MAXX 80#define MAXY 23#define MAX_FOOD 10000#define TARGET_FOOD 200#define MAX_SMELL 5000#define SMELL_DROP_RATE 0.05#define ANT_ERROR_RATE 0.02#define A

13、NT_EYESHOT 3#define SMELL_GONE_SPEED 50#define SMELL_GONE_RATE 0.05#define TRACE_REMEMBER 50#define MAX_BLOCK 100#define NULL 0#define UP 1#define DOWN 2#define LEFT 3#define RIGHT 4#define SMELL_TYPE_FOOD 0#define SMELL_TYPE_HOME 1#include “stdio.h“#include “conio.h“#include “dos.h“#include “stdlib

14、.h“#include “dos.h“#include “process.h“#include “ctype.h“#include “math.h“void WorldInitial(void);void BlockInitial(void);void CreatBlock(void);void SaveBlock(void);void LoadBlock(void);void HomeFoodInitial(void);void AntInitial(void);void WorldChange(void);void AntMove(void);void AntOneStep(void);v

15、oid DealKey(char key);void ClearSmellDisp(void);void DispSmell(int type);int AntNextDir(int xxx,int yyy,int ddir);int GetMaxSmell(int type,int xxx,int yyy,int ddir);int IsTrace(int xxx,int yyy);int MaxLocation(int num1,int num2,int num3);int CanGo(int xxx,int yyy,int ddir);int JudgeCanGo(int xxx,int

16、 yyy);int TurnLeft(int ddir);int TurnRight(int ddir);int TurnBack(int ddir);int MainTimer(void);char WaitForKey(int secnum);void DispPlayTime(void);int TimeUse(void);void HideCur(void);void ResetCur(void);/* - */struct HomeStructint xxx,yyy;int amount;int TargetFood;home;struct FoodStructint xxx,yyy

17、;int amount; food;struct AntStructint xxx,yyy;int dir;int speed;int SpeedTimer;int food;int SmellAmount2;int tracexTRACE_REMEMBER;int traceyTRACE_REMEMBER;int TracePtr;int IQ;antMAX_ANT;int AntNow;int timer10ms;struct time starttime,endtime;int Smell2MAXX+1MAXY+1;int blockMAXX+1MAXY+1;int SmellGoneT

18、imer;int SmellDispFlag;int CanFindFood;int HardtoFindPath;/* - Main - */void main(void)char KeyPress;int tu;clrscr();HideCur();WorldInitial();dotimer10ms = MainTimer();if(timer10ms) AntMove();if(timer10ms) WorldChange();tu = TimeUse();if(tu=60printf(“Can not find food, maybe a block world.“);WaitFor

19、Key(10);WorldInitial(); if(tu=180KeyPress = WaitForKey(60);DispPlayTime();WaitForKey(10);WorldInitial();else if(kbhit()KeyPress = getch();DealKey(KeyPress);else KeyPress = NULL;while(KeyPress!=ESC);gettime(DispPlayTime();WaitForKey(10);clrscr();ResetCur(); /* - general sub process - */int MainTimer(

20、void)/* output: how much 10ms have pass from last time call this process */static int oldhund,oldsec;struct time t;int timeuse;gettime(timeuse = 0;if(t.ti_hund!=oldhund)if(t.ti_sec!=oldsec)timeuse+=100;oldsec = t.ti_sec;timeuse+=t.ti_hund-oldhund;oldhund = t.ti_hund;else timeuse = 0;return (timeuse)

21、;char WaitForKey(int secnum)/* funtion: if have key in, exit immediately, else wait secnum senconds then exit input: secnum - wait this senconds, must minin) secuse = (minnow-1-minin) + (secnow+60-secin);else secuse = secnow - secin;/* counting error check */if(secuseMAXX) x2 = MAXX;if(y2MAXY) y2 =

22、MAXY;if(food.xxx=x1for(k=0;k=30000|smelldisp9) putch(#);else putch(smelldisp+0);Smellkij-= 1+(Smellkij*SMELL_GONE_RATE);if(Smellkij=antAntNow.speed)antAntNow.SpeedTimer = 0;gotoxy(antAntNow.xxx,antAntNow.yyy);putch(SPACE);AntOneStep();gotoxy(antAntNow.xxx,antAntNow.yyy);/* ant0 is a sepecail ant, us

23、e different color */if(AntNow=0) textcolor(0xd);if(antAntNow.food) putch(ANT_CHAR_FOOD);else putch(ANT_CHAR_EMPTY);if(AntNow=0) textcolor(0x7);/* remember trace */antAntNow.tracexantAntNow.TracePtr = antAntNow.xxx;antAntNow.traceyantAntNow.TracePtr = antAntNow.yyy;if(+(antAntNow.TracePtr)=TRACE_REME

24、MBER) antAntNow.TracePtr = 0;/* drop smell */antx = antAntNow.xxx;anty = antAntNow.yyy;if(antAntNow.food)/* have food, looking for home */if(antAntNow.SmellAmountSMELL_TYPE_FOOD)smellnow = SmellSMELL_TYPE_FOODantxanty;smelltodrop = antAntNow.SmellAmountSMELL_TYPE_FOOD*SMELL_DROP_RATE;if(smelltodrops

25、mellnow) SmellSMELL_TYPE_FOODantxanty = smelltodrop;/* else Smell. = smellnow */antAntNow.SmellAmountSMELL_TYPE_FOOD-= smelltodrop;if(antAntNow.SmellAmountSMELL_TYPE_FOODsmellnow) SmellSMELL_TYPE_HOMEantxanty = smelltodrop;/* else Smell. = smellnow */antAntNow.SmellAmountSMELL_TYPE_HOME-= smelltodro

26、p;if(antAntNow.SmellAmountSMELL_TYPE_HOME0) putch(FOOD_CHAR);else putch(FOOD_CHAR2);textcolor(7);gotoxy(1,MAXY+1);printf(“Food %d, Home %d “,food.amount,home.amount);void AntOneStep(void)int ddir,tttx,ttty;int i;ddir = antAntNow.dir;tttx = antAntNow.xxx;ttty = antAntNow.yyy;ddir = AntNextDir(tttx,tt

27、ty,ddir);switch(ddir)case UP: ttty-;break; case DOWN: ttty+;break; case LEFT: tttx-;break; case RIGHT: tttx+;break; default: break; /* of switch dir */antAntNow.dir = ddir;antAntNow.xxx = tttx;antAntNow.yyy = ttty;if(antAntNow.food)/* this ant carry with food, search for home */if(tttx=home.xxxAntIn

28、itial();if(tttx=food.xxx /* of search for home */else/* this ant is empty, search for food */if(tttx=food.xxxfood.amount-;antAntNow.SmellAmountSMELL_TYPE_FOOD = MAX_SMELL;antAntNow.SmellAmountSMELL_TYPE_HOME = 0;antAntNow.dir = TurnBack(antAntNow.dir);for(i=0;i=30000|smelldisp9) putch(#);else putch(

29、smelldisp+0); /* of one location */ int AntNextDir(int xxx,int yyy,int ddir)int randnum;int testdir;int CanGoState;int cangof,cangol,cangor;int msf,msl,msr,maxms;int type;CanGoState = CanGo(xxx,yyy,ddir);if(CanGoState=0|CanGoState=2|CanGoState=3|CanGoState=6) cangof = 1;else cangof = 0;if(CanGoState

30、=0|CanGoState=1|CanGoState=3|CanGoState=5) cangol = 1;else cangol = 0;if(CanGoState=0|CanGoState=1|CanGoState=2|CanGoState=4) cangor = 1;else cangor = 0;if(antAntNow.food) type = SMELL_TYPE_HOME;else type = SMELL_TYPE_FOOD;msf = GetMaxSmell(type,xxx,yyy,ddir);msl = GetMaxSmell(type,xxx,yyy,TurnLeft(

31、ddir);msr= GetMaxSmell(type,xxx,yyy,TurnRight(ddir);maxms = MaxLocation(msf,msl,msr);/* maxms - 1 - msf is MAX2 - msl is MAX3 - msr is MAX 0 - all 3 number is 0 */testdir = NULL;switch(maxms)case 0: /* all is 0, keep testdir = NULL, random select dir */break;case 1: if(cangof)testdir = ddir;elseif(m

32、slmsr) if(cangol) testdir = TurnLeft(ddir);else if(cangor) testdir = TurnRight(ddir);break;case 2: if(cangol)testdir = TurnLeft(ddir);elseif(msfmsr) if(cangof) testdir = ddir;else if(cangor) testdir = TurnRight(ddir);break;case 3: if(cangor)testdir = TurnRight(ddir);elseif(msfmsl) if(cangof) testdir

33、 =ddir;else if(cangol) testdir = TurnLeft(ddir);break;default:break; /* of maxms */randnum = random(1000);if(randnum=90break; case DOWN: for(i=xxx-ANT_EYESHOT;ims) ms = Smelltypeij;break; case LEFT: for(i=xxx-ANT_EYESHOT;ims) ms = Smelltypeij;break; case RIGHT: for(i=xxx+1;ims) ms = Smelltypeij;brea

34、k; default: break;return(ms);int IsTrace(int xxx,int yyy)int i;for(i=0;imaxnum) maxnum = num2;if(num3maxnum) maxnum = num3;if(maxnum=num1) return(1);if(maxnum=num2) return(2);if(maxnum=num3) return(3); int CanGo(int xxx,int yyy,int ddir)/* input: xxx,yyy - location of antddir - now diroutput: 0 - fo

35、rward and left and right can go1 - forward can not go2 - left can not go3 - right can not go4 - forward and left can not go5 - forward and right can not go6 - left and right can not go7 - forward and left and right all can not go*/int tx,ty,tdir;int okf,okl,okr;/* forward can go ? */tdir = ddir;tx =

36、 xxx;ty = yyy;switch(tdir)case UP: ty-;break; case DOWN: ty+;break; case LEFT: tx-;break; case RIGHT: tx+;break; default: break; /* of switch dir */if(JudgeCanGo(tx,ty) okf = 1;else okf = 0;/* turn left can go ? */tdir = TurnLeft(ddir);tx = xxx;ty = yyy;switch(tdir)case UP: ty-;break; case DOWN: ty+

37、;break; case LEFT: tx-;break; case RIGHT: tx+;break; default: break; /* of switch dir */if(JudgeCanGo(tx,ty) okl = 1;else okl = 0;/* turn right can go ? */tdir = TurnRight(ddir);tx = xxx;ty = yyy;switch(tdir)case UP: ty-;break; case DOWN: ty+;break; case LEFT: tx-;break; case RIGHT: tx+;break; defau

38、lt: break; /* of switch dir */if(JudgeCanGo(tx,ty) okr = 1;else okr = 0;if(okfif(!okfif(okfif(okfif(!okfif(!okfif(okfif(!okfreturn(7);int JudgeCanGo(int xxx,int yyy)/* input: location to judegoutput: 0 - can not go1 - can go*/int i,j;if(xxxMAXX) return(0);if(yyyMAXY) return(0);if(blockxxxyyy) return

39、(0);return(1);int TurnLeft(int ddir)switch(ddir)case UP: return(LEFT);case DOWN: return(RIGHT);case LEFT: return(DOWN);case RIGHT: return(UP);default: break; /* of switch dir */int TurnRight(int ddir)switch(ddir)case UP: return(RIGHT);case DOWN: return(LEFT);case LEFT: return(UP);case RIGHT: return(DOWN);default: break; /* of switch dir */int TurnBack(int ddir)switch(ddir)case UP: return(DOWN);case DOWN: return(UP);case LEFT: return(RIGHT);case RIGHT: return(LEFT);default: break; /* of switch dir */