Thema: Delphi Kreispunkte Berechnen

Einzelnen Beitrag anzeigen

Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#6
  Alt 27. Feb 2003, 18:05
P : Punkt1 = (a|b)
Q : Punkt2 = (c|d)
M : Mittlepunkt = (x|y)
phi : Winkel(MP,MQ)

(das fettgedruckte entspricht dem gegebenen)

Du suchst also M.

************************************************** *****************
Die Vektoren MP und MQ müssen gleich lang sein = radius.

l = |MP| = Wurzel((a-x)^2+(b-y)^2)
m = |MQ| = Wurzel((c-x)^2+(d-y)^2)

(1) : l = m


Der Winkel zwischen den Vektoren MP und MQ muss phi sein

Zwischenwinkelformel

(2) : cos(phi) = (MP * MQ)/(l*m)

************************************************** ******************
Hilft dir das?
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat