"Kim Schulz" <kim@schulz.dk> wrote in message
news:slrnc9hcip.2fl.kim@homer.cs.auc.dk...
> Jeg regner med at det ville være lettest at lave punkt-linje
> afstands beregning for hvert koordinat par i vejens liste, men
> kan forudse nogle problemer med at linjer i denne formel ikke er
> endelige og derfor kan et skilt blive bundet til et punkt som
> i virkeligheden ikke ligger på vejstykket.
Som datalogi-studerende burde du vel ikke have svært ved den slags?
Nå, men hvis linie-stykket hedder (Ax,Ay)-(Bx,By) og dit vejskilt er i
(Px,Py), så kan du for hvert koordinatpar beregne afstanden (dist) og
punktets koordinater (Qx,Qy) således:
AB2:= sqr(Ax-Bx)+sqr(Ay-By);
AP2:= sqr(Ax-Px)+sqr(Ay-Py);
BP2:= sqr(Bx-Px)+sqr(By-Py);
if (AB2=0) or (AP2=0) then
begin
Qx:= Ax;
Qy:= Ay;
dist:= sqrt(AP2);
end else
if BP2=0 then
begin
Qx:= Bx;
Qy:= By;
dist:= 0;
end else
if AB2+AP2<BP2 then
begin
Qx:= Ax;
Qy:= Ay;
dist:= sqrt(AP2);
end else
if AB2+BP2<AP2 then
begin
Qx:= Bx;
Qy:= By;
dist:= sqrt(BP2);
end else
begin
t:= ((Px-Ax)*(Bx-Ax)+(Py-Ay)*(By-Ay))/AB2;
Qx:= Ax+(Bx-Ax)*t;
Qy:= Ay+(By-Ay)*t;
dist:= abs((Ay-By)*Px+(Bx-Ax)*Py+(Ax*By-Bx*Ay))/sqrt(AB2);
end;
Jeg har sat FUT til dk.edb.programmering, da det vist mere hører hjemme
der.
hilsen
Uffe