Nachbarn in 3 Dimensionen

[inherited]

Hi,
ich versuche mit folgender FUnktion herauszufinden, ob das Feld mit den Koordinaten x2;y2;z2 ein Nachbar des Feldes x1;y1;z1 ist

Delphi-Quellcode:

function IsNeighbor(x1,y1,z1,x2,y2,z2: Integer): Boolean;
begin
  result:=false;
  if (x1=x2) and (y1=y2) and (z1=z2) then
    exit;
  result:= ((x2 in [x1-1..x1+1]) and (y2 in [y1-1..y1+1]) and (z2 in [z1-1..z1+1]));
end;

Aber irgendwie scheint da immer false bei rauszukommen.
beispielwerte:
x2:1 x1:2
y2:0 y1:0
z2:1 z1:1

Eigentlich müsste da doch true bei rauskommen :gruebel:

[Dax]

Mach es doch noch einfacher.

Delphi-Quellcode:

Result := Sqrt(Sqr(x2-x1) + Sqr(y2-y1) + Sqr(z2-z1)) = 1;

[inherited]

Das funktioniert zwar wunderbar für horizontale und vertikale nachbarn, nicht jedoch für schräg liegende. die müssen auch mit rein.
Trotzdem danke.

[Dax]

Delphi-Quellcode:

temp := Sqr(x2-x1) + Sqr(y2-y1) + Sqr(z2-z1);
Result := temp > 0 and temp <= 2;

Edit: ne, anders..

Delphi-Quellcode:

temp := Sqr(x2-x1) + Sqr(y2-y1) + Sqr(z2-z1);
Result := temp > 0 and temp <= 3;

[inherited]

Danke Dir!
Aber warum hat meine Methode nicht funktioniert?
Da Grübel ich morgen nochmal drüber nach :gruebel:

[Dax]

Ich kann auch keinen Fehler bei dir entdecken.

[Kedariodakon]

Sobald du im negativen Bereich bist, bricht der die Funktion ab...
Sprich bei deinem Beispiel bei y1 = y2 = 0, da endet die Funktion beim 0 in [ -1, 0, 1 ]

Warum das so ist ka, meine Vermutung ist, dass Mengentypen immer bei 0 anfangen und -1 damit die untere Grenze verletzt...
Aber da müste er eigentlich dein ganzes Konstrukt schon von vornerein anmekern...

Bye Christian

[inherited]

Offensichtlich hast du hinsichtlich der unteren Grenze recht.
Aber warum steht davon nichts in der Delphi-Hilfe und warum meckert der COmpiler das dann nicht an? :gruebel:
Edit: Ok, bei einem Ausruck wie "in [-1..42]" meckert er es sofort an. Ich finde der Compiler könnte bei typisierten Variablen dann wenigstens eine Warnung ausgeben...

[Hawkeye219]

Hallo Nikolai,

Zitat:

Zitat von Hilfe von Delphi 2006

Die möglichen Werte eines Mengentyps sind Teilmengen des Basistyps, einschließlich der leeren Menge. Der Basistyp darf aus maximal 256 Werten bestehen. Die Ordinalpositionen der Werte müssen zwischen 0 und 255 liegen.

Woher sollte der Compiler den Wert des Funktionsparameters kennen, um eine entsprechende Warnung auszugeben?

Gruß Hawkeye

[inherited]

Moin,

den Teil muss ich in der Hilfe übersehen haben, hab doch extra nachgeschaut :?
Und wissen soll er es ja garnicht, er soll mich nur warnen wenn ich Typen angebe die <0 werden können