Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Dipl Phys Ernst Winter,
3. Mai 2009
Vielen Dank für diesen Einwand.
m:= 1e99 würde zwar das Problem lösen, ist aber nicht eingebbar.
Gerade mit Punkt und Steigung war zwar das Einfachste, ist aber ein Fehlgriff. Ich habe das Programm abgeändert auf Gerade durch zwei Punkte.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Dipl Phys Ernst Winter,
29. Apr 2009
Da fand sich bei mir in AnwMath ein diesbezügliches Programm.
type
TPkt = record x, y: extended end;
// Kreis: M0 Mittelpunkt, r: Radius
// Gerade: P0 Punkt auf der Geraden, m: Steigung
// S1, S2: Schnittpunkte
// Der Funktioswert gibt mit 0..2 die Anzahl der Schnittpunkt zurück
function TForm1.Schnittpunkte(M0, P0: TPkt; r, m: extended;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Dipl Phys Ernst Winter,
28. Apr 2009
Es gibt zwei oder keinen Schnittpunkt.
Tangiert die Linie den Kreis, so zählt man den Schnittpunkt doppelt.