Ich habe einen Punkt 1 gegeben, der von Punkt 2 n einheiten entfernt ist.
Nun brauche ich eine Funktion, die mir alle Punkte in einem array of TPoint zurückgibt, die höchstens n-1 einheiten von Punkt 1 enfernt sind. Ich habe bichts geeignetes finden können. Vielleicht kann mir ja einer von euch da weiterhelfen.

Ich hab mal was überlegt, bin dabei aber auch selbst auf eine Frage gestoßen: Wie regelt man das am besten, wenn eine Funktion ein dynamisches Array zurückgeben soll?

Soweit bin ich auf jeden Fall gekommen:


Keine Ahnung, ob das das ist, was du willst, oder ob man das optimierter machen könnte. Sag doch mal wofür du es brauchst?

_________________
Flummi: Projektseite und Projektthread

(Falsche Taste gedrückt, unfertiger Beitrag wurde gepostet)

_________________
Denn wer nur schweigt, weil er Konflikte scheut, der macht Sachen, die er hinterher bereut.
Und das ist verkehrt, denn es ist nicht so schwer, jeden Tag zu tun als ob's der letzte wär’.
Und du schaust mich an und fragst ob ich das kann.
Und ich denk, ich werd' mich ändern irgendwann.
_________________Farin Urlaub - Bewegungslos

Sprich, du willst alle Punkte auf der Kriesfläche...
Dafür gibts die "Kreisgleichung", die Average Idiot in seinem Code benutzt, aber nicht erklärt hat.

r²=(x-Mx)²+(y-My)²

Mx und My sind dabei die Koordinaten des Mittelpunkts. Hier bitte nciht multiplizieren! ^^
Außerdem sei M der Punkt1 und x und y seien die Koordinaten des Punktes 2, der den Radius errechnen lässt und somit den kreis.

Nun gibt es aber ein Probleme. rein mathematisch gibt es undendlich Punkte, die du suchst. Rein technisch gesehen mit Pixeln rechnend kann man natürlich x Lösungen finden, wobei x Element der natürlichen Zahlen.
Hier wäre mal ein beispielcode, der ungefährt funzen müsste. Nur die Tpointsache müsstes anpassen, da kenn ich mich nich aus:
(Ich kopiere mal das grundgerüst von Average Idiot)

Ich weiß nicht, ob es funzt, aber wenn man die kreisgleichung erstmal kapiert hat, dürfte es leicht selbst machbar sein!

mfg Cyberpuer

_________________
Denn wer nur schweigt, weil er Konflikte scheut, der macht Sachen, die er hinterher bereut.
Und das ist verkehrt, denn es ist nicht so schwer, jeden Tag zu tun als ob's der letzte wär’.
Und du schaust mich an und fragst ob ich das kann.
Und ich denk, ich werd' mich ändern irgendwann.
_________________Farin Urlaub - Bewegungslos

Es sind mir 2 Sachen aufgefallen.
1. IMO wenn es um eine KomplexeDatenstruktur handelt, sollte man es immer über eine VAR(Pointer) Paprameter zurückgeben. So:

2. Field "anzahl" ist überflüssig, denn "anzahl := Length( punkte );"

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Hmm... Davon ausgehend, dass du recht hast, hier der optmierte Code:

_________________
Denn wer nur schweigt, weil er Konflikte scheut, der macht Sachen, die er hinterher bereut.
Und das ist verkehrt, denn es ist nicht so schwer, jeden Tag zu tun als ob's der letzte wär’.
Und du schaust mich an und fragst ob ich das kann.
Und ich denk, ich werd' mich ändern irgendwann.
_________________Farin Urlaub - Bewegungslos

Arrays werden bei Delphi sowieso per Referenz übergeben. Nur wenn man einen Array verändert werden evt. kopien erstellt.

Den Array als Rückgabewert zu übergeben hat also keine Nachteile. Bei grösseren Records hast du natürlich recht.

MfG
Flo

_________________
Danke an alle, die mir (und anderen) geholfen haben.
So weit... ...so gut

@Cyberpuer: TPoint ist doch integer, oder nicht? Hab das jetzt nicht nachgeguggt, war mir aber ziemlich sicher!

@Heru-ur: Ich frag nochmal, wofür man das überhaupt braucht? Vielleicht brauch ich das dann ja auch und weiss es nur noch nicht

_________________
Flummi: Projektseite und Projektthread

Also das ist ein Problem, das man prima achteln kann. wenn ein Punkt im ersten Oktant in der Lösungsmenge enthalten ist, dann sind auch alle Spiegelungen dieses Punktes enthalten.
Metacode:

hoffe, das hilft

_________________
Manchmal sehen Dinge, die wie Dinge aussehen wollen, mehr wie Dinge aus, als Dinge.
<Esmerelda Wetterwax>
Es kann vorkommen, dass die Nachkommen trotz Abkommen mit ihrem Einkommen nicht auskommen und umkommen.

Wenn du statt "Delphi" C(oder C++) geschrieben hattest, würde cih dir jetzt stimmen, sonst muss ich dir wiedersprechen.Wären Arrays immer per Referenz übergeben, so wäre egal ob man VAR schreibt oder nicht.

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Also zwei Dinge hier mal am Rande:

1. Records und Arrays (genauso wie String) werden von Delphi als Pointer auf die eigentlichen Daten behandelt. Benutzt man kein var wird bei Records und Arrays ein zusätzlicher Platz im Stackframe für die eigentlichen Daten reserviert, der die Daten enthält. Bei Strings wird wie gewohnt ein Pointer auf den String zurückgegeben (der vorher jedoch explizit kopiert wurde).

2. Bei Funktionen ist der Rückgabewert ein impliziter Var-Parameter der Funktion, der an die Argument-Liste angehängt wird. Funktionen sollten daher maximal zwei explizite Parameter haben, wenn man nicht zu viel über den Stack arbeiten will, was durchaus langsam sein kann.

2ct

P.S.: Die Lösung von Sidorion ist soweit vom Ansatz her korrekt, enthält aber folgende Fehler:

1. r muss die Wurzel des Ausdrucks rechts sein.
2. Die Zählvariablen in den Schleifen müssen von 0 bis R-1 laufen

_________________
Administrator of Project Omorphia

Das mit dem n-1 hatte ich überlesen.. dann muss es aber auch '<r' heissen und nicht '<=r'
Dass r nicht die Wurzel des rechten Ausdrucks ist, ist korrekt, da ich mir dadurch das Wurzelziehen komplett spare. r ist quasi das Quadrat des Radiuses. Wenn Du hier die Wurzel ziehst, musst Du auch in der Schleife bei der Prüfung jedesmal die Qurzel ziehen und das frisst Zeit, bringt aber keine weiteren Erkenntnisse.
a^2 < b^2 <=> a<b (a,b e N).

_________________
Manchmal sehen Dinge, die wie Dinge aussehen wollen, mehr wie Dinge aus, als Dinge.
<Esmerelda Wetterwax>
Es kann vorkommen, dass die Nachkommen trotz Abkommen mit ihrem Einkommen nicht auskommen und umkommen.