Du hast 2 Koordinaten in deinem Bildschirmkoordinatensystem - also benötigst du um in diesem System die Koordinaten des Kreisrandes zu bestimmen die >>Parameterform<<.
ok auf der seite war ich auch schon 
also mal angenommen xm = 3 und r = 3 und alpha = 45° dann ist xkreislinie = 5,121??
Nein dann ist der X-Wert des Kreispunktes der bei 45° liegt 5,121.
Du musst um alle Punkte des Kreises zu bekommen (so hast du es ja geschrieben was du wolltest) alle Winkel von 0°-360° durchgehen.
Das ist zwar eine unendliche Menge aber es ist die Lösung für diese Aufgabenstellung.
Ich denke aber eher du suchst etwas anderes - du willst nicht die Punkte haben die auf dem Kreis liegen - du willst eher eine Funktion welche dir sagt ob eine Koordinate in einem Kreis liegt oder nicht.
Das wär dann lediglich der Satz des Pythagoras angewendet:
;Parameter: $Xm/$YM - Mittelpunktskoordinaten
; $R - Radius
; $Xp/$Yp - Punktkoordinaten
Func IsPointInCircle(Const $Xm, Const $Ym, Const $R, Const $Xp, Const $Yp)
Return ($Xp - $Xm) ^ 2 + ($Yp - $Ym) ^ 2 <= $R ^ 2
EndFunc
Nein dann ist der X-Wert des Kreispunktes der bei 45° liegt 5,121.
das meinte ich auch
Jo und die Funktionsweise zur überprüfung war mir schon bekannt, das Problem ist aber ich habe einen Kreis in einem Kreis und ich möchte brechnen ob der innere Kreis an den Außeren Stößt. Dazu benötige ic h doch alle Punkte des inneren Kreisen, auf jeden fall ist mir kein andere weg bekannt wie ich das sonst herrausfinden könnte
Dann drück dich doch gleich von Anfang an klar aus - warum erzählst du das jetzt erst das du die Schnittpunkte von 2 Kreisen haben möchtest? - ist doch ne völlig andere Aufgabenstellung.
Nimm google - tipp "Bogenschnitt" ein.
Dann drück dich doch gleich von Anfang an klar aus - warum erzählst du das jetzt erst das du die Schnittpunkte von 2 Kreisen haben möchtest? - ist doch ne völlig andere Aufgabenstellung.
Nimm google - tipp "Bogenschnitt" ein.
naja weil ich dachte, dass wenn ich alle punkte des inneren kreises habe, überprüfen kann ob dieser noch in dem außeren kreis liegt oder nicht aber ich kucke
ok damit geht es dann wohl einfacher
[Blockierte Grafik: http://upload.wikimedia.org/math/d/e/8/de898100ceeeb0f31f5537823f1125d6.png]
ich versteh nicht was die mit den strichen da meinen 
EDIT: ok ich glaub ich verstehs. Also ist der Radius der Kreises 1 + Radiusdes zweiten Kreises Größer als der Abstand von mitelpunkt von kreis 1 zu mittelpunkt des zweiten kreises gibt es keinen schnittpunkt der beider kreise??
und an den Abstand komm ich ja einfach mit dem satz den pytagoras
Das ganze gilt dann nicht mehr sobald einer der Kreismittelpunkte im jeweils anderen Kreis liegt.
Diese Fälle müssen also mit abgefangen werden.
Beispiel:
#include "Misc.au3"
[/autoit] [autoit][/autoit] [autoit]Global Const $Xm1 = 400, $Ym1 = 400, $R1 = 100
Global Const $Xm2 = 349, $Ym2 = 450, $R2 = 49
If KreiseBeziehung($Xm1, $Ym1, $Xm2, $Ym2, $R1, $R2) Then
MsgBox(0,"", "Kreise berühren oder schneiden sich")
Else
MsgBox(0,"", "Kreise berühren sich nicht")
EndIf
Func KreiseBeziehung(Const $Xm1, Const $Ym1, Const $Xm2, Const $Ym2, Const $R1, Const $R2)
Local Const $s = Sqrt(($Xm1 - $Xm2) ^ 2 + ($Ym1 - $Ym2) ^ 2)
If IsPointInCircle($Xm1, $Ym1, $R1, $Xm2, $Ym2) And IsPointInCircle($Xm2, $Ym2, $R2, $Xm1, $Ym1) Then
Return _Iif($s >= Abs($R1 -$R2), 1, 0)
ElseIf IsPointInCircle($Xm1, $Ym1, $R1, $Xm2, $Ym2) Then
Return _Iif($R1 > $s + $R2, 0, 1)
ElseIf IsPointInCircle($Xm2, $Ym2, $R2, $Xm1, $Ym1) Then
Return _Iif($R2 > $s + $R1, 0, 1)
Else
Return _Iif( $s > $R1 + $R2, 0, 1)
EndIf
EndFunc ;==>KreiseBeziehung
Func IsPointInCircle(Const $Xm, Const $Ym, Const $R, Const $Xp, Const $Yp)
Return ($Xp - $Xm) ^ 2 + ($Yp - $Ym) ^ 2 <= $R ^ 2
EndFunc ;==>IsPointInCircle
Mal davon abgesehen davon das ich das Skript nicht testen kann da die Hover.au3 fehlt.
Wenn du schon weißt das die Kreismittelpunkte im jeweils anderen liegen und du weißt was der äußere und was der innere Kreis ist ist das kein Problem - dann ist es nur eine Bedingung.
Aber es ist nicht mehr allgemeingültig und für alle (unbekannten) Kreise lösbar damit.
Deswegen fange ich diese Fälle extra ab.
Mal davon abgesehen davon das ich das Skript nicht testen kann da die Hover.au3 fehlt.
Wenn du schon weißt das die Kreismittelpunkte im jeweils anderen liegen und du weißt was der äußere und was der innere Kreis ist ist das kein Problem - dann ist es nur eine Bedingung.
Aber es ist nicht mehr allgemeingültig und für alle (unbekannten) Kreise lösbar damit.
Deswegen fange ich diese Fälle extra ab.
oh sorry ja die hiver.au3 brauchste ja nicht kannst einfach auskommentieren , da wos angewendet wird.
