Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Pathfinding (https://www.delphipraxis.net/83126-pathfinding.html)

Antigo 27. Dez 2006 22:15


Pathfinding
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hi,
ich hab mal wieder ein wunderbares Problem, wo meinem bescheidenen Geist ein Lösungsansatz fehlt.

und zwar möchte ich feststellen ob es einen Weg von der einen Seite dieses Feldes zur anderen gibt, jewils von der blauen zur blauen oder zur roten zur roten und zwar in der jewiligen Farbe. Dazu hab ich ein Array [0..3,0..3] of Integer mit den Werten 0 für nicht besetzt, 1 für blau, und 2 für rot.

Jetzt ist aber das Problem dass man von einem Feld aus, zu 6 anderen Feldern gehen kann und nicht 4 wie bei quadratischen kästchen.


Wie gehe ich an so eine Problemstellung ran?

danke schonmal im vorraus.

Luckie 27. Dez 2006 22:16

Re: Pathfinding
 
Und ich hab mal wieder ein Problem, wo meinem bescheidenen Geist die Beschreibung des Problems fehlt. :wall:

[Hellseh Modus ein]
Eine Demo zum A* Algorithmus findest du bei mir: http://delphisonstiges.michael-puff.de -> AStar.zip

Antigo 27. Dez 2006 22:18

Re: Pathfinding
 
jo sry ich wollte eigentlich nur das bild hochladen, hab aber auf absendne gkelickt :oops:
hab den beitrag editiert.

Luckie 27. Dez 2006 22:20

Re: Pathfinding
 
Genau wie bei Quadraten nur, dass du eben nicht vier Felder prüfst, sondern eben sechs oder wie viele es eben sind.

Antigo 27. Dez 2006 22:39

Re: Pathfinding
 
danke für den lesestoff, mal gucken wie ich damit zurechtkomme. Ich bin mir aber nicht sicher ob es nicht einfacher ginge. Ich möchte ja nicht den kürzesten Weg, sondern nur irgendeinen. OK, wenn ich den kürzesten hab, weiss ich automatisch, dass es einen gibt, aber das ist hier vielleicht etwas überdimensioniert.

Daniel 28. Dez 2006 07:21

Re: Pathfinding
 
Nur überhaupt irgendeinen Weg und das recht schnell? -> "Tiefensuche" wäre mein Vorschlag.

http://www.delphipraxis.net/internal...ct.php?t=85844


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz