Registriert seit: 31. Mai 2009
1.198 Beiträge
Turbo Delphi für Win32
|
AW: Kreis schneidet Gerade
30. Jan 2011, 16:17
Code:
k: {r=10, @P[0,0]}
= (x-pX)^2+(y-pY)^2=r^2
= x^2 + y^2 = 100
= y = (100-x^2)^0.5
g: {winkel 90-w, g(0)=0}
= neuerWinkel n = 90-w;
= g(x) = kx + d
= d = 0, da durch [0,0] geht
= k = sin(n)
= g(x) = y = sin(n)*x
g schneidet k:
= k = g
= (100-x^2)^0.5 = sin(n)*x
Nach x auflösen
Du solltest zwei x Werte erhalten, da die gerade durch [0,0] durchgeht und der Kreis kozentrisch zu diesem Punkt ist
Anschließend setzt du die beiden Werte in eine der beiden Funktionen ein und ermittelst die dazugehörigen y-Werte
Sofern ich mich oben nicht vertan habe, dürftest du mit dem Bild im Anhang weiterkommen
Edit: Ups hab mich vertan, aber jetzt ausgebessert...
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
Geändert von Aphton (30. Jan 2011 um 16:33 Uhr)
|