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.
