我来我网
https://5come5.cn
 
您尚未 登录  注册 | 菠菜 | 软件站 | 音乐站 | 邮箱1 | 邮箱2 | 风格选择 | 更多 » 
 

本页主题: 关于蚂蚁算法 显示签名 | 打印 | 加为IE收藏 | 收藏主题 | 上一主题 | 下一主题

心兰在线



性别: 帅哥 状态: 该用户目前不在线
头衔: ~~潜水冠军~~~
等级: 人见人爱
家族: 菠韬汹勇
发贴: 4124
威望: 0
浮云: 1610
在线等级:
注册时间: 2006-07-19
最后登陆: 2008-06-30

5come5帮你背单词 [ marvelous /'ma:viləs/ a. 奇异的,不可思议的,了不起的,绝妙的 ]


关于蚂蚁算法

在百度知道上搜到一个蚂蚁算法的源程序,用c编写的,但在vc下却运行不了,说是有一个叫struct  time的结构体没有定义,但是问了别人,别人却说也许不是在vc下实现的,也许是在某个编译环境下实现的。我就不知道了,请强人们看看程序,如果是在vc下编译的,那么帮忙修改程序,看看能否运行。



#define SPACE 0X20
#define ESC 0X1b
#define ANT_CHAR_EMPTY '+'
#define ANT_CHAR_FOOD 153
#define 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 ANT_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.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);
void 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 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 HomeStruct
{
int xxx,yyy;
int amount;
int TargetFood;
}home;

struct FoodStruct
{
int xxx,yyy;
int amount;
}food;

struct AntStruct
{
int xxx,yyy;
int dir;
int speed;
int SpeedTimer;
int food;
int SmellAmount[2];
int tracex[TRACE_REMEMBER];
int tracey[TRACE_REMEMBER];
int TracePtr;
int IQ;
}ant[MAX_ANT];
int AntNow;
int timer10ms;
struct time starttime,endtime;
int Smell[2][MAXX+1][MAXY+1];
int block[MAXX+1][MAXY+1];
int SmellGoneTimer;
int SmellDispFlag;
int CanFindFood;
int HardtoFindPath;

/***************************** Main******************/
void main(void)
{
char KeyPress;
int tu;

clrscr();
HideCur();
WorldInitial();
do
{
timer10ms = MainTimer();
if(timer10ms) AntMove();
if(timer10ms) WorldChange();
tu = TimeUse();
if(tu==60&&!CanFindFood)
{
gotoxy(1,MAXY+1);
printf("Can not find food, maybe a block world.");
WaitForKey(10);
WorldInitial();
}
if(tu==180&&home.amount==100&&!HardtoFindPath)
{
gotoxy(1,MAXY+1);
printf("God! it is so difficult to find a path.");
if(WaitForKey(10)==0X0d) WorldInitial();
else
{
HardtoFindPath = 1;
gotoxy(1,MAXY+1);
printf(" ");
}
}
if(home.amount==home.TargetFood)
{
gettime(&endtime);
KeyPress = WaitForKey(60);
DispPlayTime();
WaitForKey(10);
WorldInitial();
}
else if(kbhit())
{
KeyPress = getch();
DealKey(KeyPress);
}
else KeyPress = NULL;
}
while(KeyPress!=ESC);
gettime(&endtime);
DispPlayTime();
WaitForKey(10);
clrscr();
ResetCur();
}
顶端 Posted: 2008-05-19 20:30 | [楼 主]
knpingan



性别: 帅哥 状态: 该用户目前不在线
等级: 栋梁之材
发贴: 588
威望: 0
浮云: 1124
在线等级:
注册时间: 2006-07-30
最后登陆: 2010-10-14

5come5帮你背单词 [ virtually /'və:tjuəli/ ad. 实际上,几乎 ]


在VC下肯定可以运行啊。
struct time starttime,endtime;

明显要先定义时间结构体time。
还没定义就使用,肯定出错啊。
顶端 Posted: 2008-05-19 20:55 | [1 楼]
心兰在线



性别: 帅哥 状态: 该用户目前不在线
头衔: ~~潜水冠军~~~
等级: 人见人爱
家族: 菠韬汹勇
发贴: 4124
威望: 0
浮云: 1610
在线等级:
注册时间: 2006-07-19
最后登陆: 2008-06-30

5come5帮你背单词 [ seal /'si:l/ B n. 封条,印章;vt. 密封,盖章 ]


但是这个结构体是什么样子的?蝈蝈知道?
那蝈蝈麻烦帮我定义一个,我不知道他该怎么定义  
顶端 Posted: 2008-05-19 21:00 | [2 楼]
心兰在线



性别: 帅哥 状态: 该用户目前不在线
头衔: ~~潜水冠军~~~
等级: 人见人爱
家族: 菠韬汹勇
发贴: 4124
威望: 0
浮云: 1610
在线等级:
注册时间: 2006-07-19
最后登陆: 2008-06-30

5come5帮你背单词 [ chill /til/ n. 寒气,寒冷;v. (使)寒冷,(使)冷冻 ]


下面是他的参数说明



下面的程序开始运行之后,蚂蚁们开始从窝里出动了,寻找食物;他们会顺着屏幕爬满整个画面,直到找到食物再返回窝。

其中,‘F’点表示食物,‘H’表示窝,白色块表示障碍物,‘+’就是蚂蚁了。

参数说明:
最大信息素:蚂蚁在一开始拥有的信息素总量,越大表示程序在较长一段时间能够存在信息素。信息素消减的速度:随着时间的流逝,已经存在于世界上的信息素会消减,这个数值越大,那么消减的越快。
错误概率表示这个蚂蚁不往信息素最大的区域走的概率,越大则表示这个蚂蚁越有创新性。
速度半径表示蚂蚁一次能走的最大长度,也表示这个蚂蚁的感知范围。
记忆能力表示蚂蚁能记住多少个刚刚走过点的坐标,这个值避免了蚂蚁在本地打转,停滞不前。而这个值越大那么整个系统运行速度就慢,越小则蚂蚁越容易原地转圈。
顶端 Posted: 2008-05-19 21:01 | [3 楼]
心兰在线



性别: 帅哥 状态: 该用户目前不在线
头衔: ~~潜水冠军~~~
等级: 人见人爱
家族: 菠韬汹勇
发贴: 4124
威望: 0
浮云: 1610
在线等级:
注册时间: 2006-07-19
最后登陆: 2008-06-30

5come5帮你背单词 [ therapy /'θerəpi/ n. 诊疗,理疗 ]


难道没有人会?再次召唤强人  
顶端 Posted: 2008-05-20 20:35 | [4 楼]
沉睡的李二蛋



性别: 美女 状态: 该用户目前不在线
等级: 栋梁之材
发贴: 842
威望: 0
浮云: 1106
在线等级:
注册时间: 2008-05-05
最后登陆: 2009-08-10

5come5帮你背单词 [ brave /breiv/ a. 勇敢的,英勇的 ]


靠,我的是遗传算法
顶端 Posted: 2008-05-20 20:37 | [5 楼]
我来我网·5come5 Forum » 程序员之家

Total 0.009811(s) query 5, Time now is:11-22 09:55, Gzip enabled
Powered by PHPWind v5.3, Localized by 5come5 Tech Team, 黔ICP备16009856号