[人工智能]追逐与躲闪

2009年2月2日

    一碰上算法就头疼,所以还是先从最简单的写起,这是正在学习的《游戏开发中的人工智能》笔记。
1    1.最基本的追逐和闪躲:就是根据目标的坐标来更新追逐者的坐标,躲闪的则向相反的方向更新即可。 
     if(A.x>B.x)  
        A.x–;
    else if(A.x<B.x)
        A.x++;
    if(A.y>B.y)
        A.y–;
    else if(A.y<B.y)
        A.y++; 
    这个方法虽然简明易懂但是在实际使用的时候会出现如上图所显现的并不太自然的运动轨迹。   

    2.视觉追逐:追逐的过程不再简单的基于坐标,而是基于追逐者与目2标的方向,使用这种方法的时候,当目标不动时,运动轨迹将成直线,但是当目标处于运动状态时,轨迹则可能是弯弯曲曲的。另外使用这种方法如果是在类似于方格地图中运动的游戏时,还需要用到例如Bresenham算法来实现坐标到方格的投射转换。  
    Vec u = B.position – A.position;//计算AB向量 
    Normalize(&u);//向量u单位化
    A += u * A.speedvalue;

    3.拦截:比较高级的追逐模式,如果能做成想人一样的拦截判断,是需要考虑很多种情况的,比如根据目标移动方向选择距离该方向最近点到达后迎面拦截;或者再结合目标速度进行进一步判断选择更合适的拦截点;甚至通过判断目标以往运动规律来预测下一步运动的情况,细想想人脑还真挺吓人,这么多的事情毫不费力就能给出模糊结论和大致判断。
    书中给出了一种基于靠拢时间的算法,算法思路大致如下:首先根据追逐者和目标的速度向量相减得出速度差向量,然后计算两者位置上的向量差,再通过 t = |S| / |V|计算出靠拢时间,再根据靠拢时间来最终预测目标在靠拢时间后将到达的位置S = S + V·t,而后只要利用前面视觉追逐的算法使追逐着追逐计算出来的位置即可实现拦截。 
     伪代码如下:
3    Object A,B;//A为追逐者,B为目标
    Vec v = A.speed – B.speed;
    Vec s = A.position – B.position;
    Time t = Magnitude(s)/Magnitude(v);//模相除
    Object C;
    C.position = B.position + B.speed*t;
    Vec u = C.position – A.position;//计算AB向量
    Normalize(&u);//向量u单位化
    u = u*Magnitude(A.speed);
    A.speed = u;//追逐者速度向量上的更新
    A.position += A.speed;
    这个算法在程序中需要每帧执行,也就是说即使目标进行随机运动,追逐者也会审时度势的调整方向,继续追踪,为了加深理解,写了程序来测试这段算法,点击下载,不过经过测试发现这个算法还是有一定局限性,由于算法是一个趋向性的过程,通常情况下,会在起步一段后便能固定下追逐的方向,但是当追逐者原本的方向与目标的方向相似到一定程度时,也就是说速度向量的模小到一定程度的时候,追逐点会呈现出越来越远的趋势,而这是并不合理的。
    PS:测试程序要想编译通过的话需要DirectX SDK,呵呵,我实在不擅长用MFC写GUI程序。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type Tcatchform = class(TForm) lbl1: TLabel; lbl2: TLabel; lbl3: TLabel; lbl4: TLabel; lbl5: TLabel; lbl6: TLabel; lbl7: TLabel; lbl8: TLabel; lbl9: TLabel; lbl10: TLabel; lbl11: TLabel; lbl12: TLabel; btn1: TButton; edt1: TEdit; edt2: TEdit; edt3: TEdit; edt4: TEdit; edt5: TEdit; edt6: TEdit; edt7: TEdit; edt8: TEdit; edt9: TEdit; edt10: TEdit; edt11: TEdit; cht1: TChart; lnsrsSeries1: TLineSeries; lbl13: TLabel; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var catchform: Tcatchform; implementation {$R *.dfm} procedure Tcatchform.btn1Click(Sender: TObject); var LX,LY,HX,HY,LV,HVY,HV,C,X,Y:real; T1,T2,T:real; //T1是越野时间,T2是路上时间 LX1,LY1,a,b,BC,min:real; k:integer; begin HX:=strtofloat(edt1.Text); LX:=strtofloat(edt2.Text); HY:=strtofloat(edt3.Text); LY:=strtofloat(edt4.Text); C:=strtofloat(edt5.Text); HVY:=strtofloat(edt6.Text); HV:=strtofloat(edt7.Text); LV:=strtofloat(edt8.Text); BC:=0; a:=LX; b:=LY; min:=5000; repeat BC:=BC+0.001;//取步长 for k:=1 to 500 do begin a:=LX+k*BC; b:=LY+k*tan(C*pi/180)*BC; //上路点假想 T1:=sqrt(sqr(b-HY)+sqr(a-HX))/HVY; LX1:=LX+LV*cos(C*pi/180)*T1; LY1:=LY+LV*sin(C*pi/180)*T1; if LX1<a then T2:=((a-LX1)/cos(C*pi/180))/(LV+HV) else T2:=((LX1-a)/cos(C*pi/180))/(HV-LV); T:=T1+T2; if min>T then begin min:=T; X:=a; Y:=b; cht1.Series[0].AddXY(X,min,'',clred); end; end; until BC>4; edt9.Text:=floattostr(X); edt10.Text:=floattostr(Y); edt11.Text:=floattostr(min); end; end.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值