AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Kreispunkte Berechnen
Thema durchsuchen
Ansicht
Themen-Optionen

Kreispunkte Berechnen

Ein Thema von braingrenade · begonnen am 26. Feb 2003 · letzter Beitrag vom 10. Mär 2003
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von braingrenade
braingrenade

Registriert seit: 30. Okt 2002
Ort: Neufra
274 Beiträge
 
Delphi 6 Personal
 
#1

Kreispunkte Berechnen

  Alt 26. Feb 2003, 18:48
Moin Leute !

Vor ner geraumen Zeit hab ich ja schon gepostet wie man die Koordinaten einer Linie berechen kann. Nun braächte ich aber noch ne Formel wie man das ganze mit nem Kreis anstellen kann !

hoffe dass das jemand drauf hat!
Let the sun beat down upon my face
Stars fill my dream
I am a traveller of both time and space
To be where I have been ________________ Such A Surge
  Mit Zitat antworten Zitat
Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#2
  Alt 26. Feb 2003, 18:56
Das wird dir wohl nicht helfen :

M = Mittelpunkt.
P = Punkt auf Kreis.
r = Radius

r = Wurzel((M.x-P.x)^2+(M.y-P.y)^2)
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat
Benutzerbild von braingrenade
braingrenade

Registriert seit: 30. Okt 2002
Ort: Neufra
274 Beiträge
 
Delphi 6 Personal
 
#3
  Alt 27. Feb 2003, 14:11
Die Formel ist schon mal nicht schlecht !

Nu muss ich noch überlegen wie damit dann die x und y werte rauskrig.

Ich glaub ich frag mal meinen Mathelehrer !
Let the sun beat down upon my face
Stars fill my dream
I am a traveller of both time and space
To be where I have been ________________ Such A Surge
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#4
  Alt 27. Feb 2003, 16:16
Sehe ich das richtig das Du einfach einen Kreis zeichnen möchtest bei dem Du die x/y Koordinaten des Mittelpunktes und den Radius angibst?
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Benutzerbild von braingrenade
braingrenade

Registriert seit: 30. Okt 2002
Ort: Neufra
274 Beiträge
 
Delphi 6 Personal
 
#5
  Alt 27. Feb 2003, 16:23
Jo , fast , nur dass ich das ganze aus nem anderen input berechnen
muss : nämlich nur zwei punkte (von einem zum anderen wird der kreisbogen gezeichnet) und den Winkel des kreisausschnitts.
Let the sun beat down upon my face
Stars fill my dream
I am a traveller of both time and space
To be where I have been ________________ Such A Surge
  Mit Zitat antworten Zitat
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
Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#7
  Alt 27. Feb 2003, 20:07
Zur illustration eine kleine Graphik (handgezeichnet)

hoffe sie stimmt (die Graphik und die Berrechnung).

ps: die Schrift ist wegen dem jpg-format so krackelig!


pps. konstruktiv köntest Du den Ortsbogen verwenden.
Miniaturansicht angehängter Grafiken
kreis.jpg  
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat
Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#8
  Alt 27. Feb 2003, 20:31
Hehe über den Dreck hab ich grad Mathe Abitur geschrieben.
12. Klasse Lineare Algebra.
Hmmm.. aber ich weiss jetzt nicht genau wie er über diese Formel Code-Mässig an den Mittelpunkt kommen soll, da es da ganz fiese Quadratische Dinge zu lösen gilt!
Zeich das auch mal, die Formeln da sind ja einfach :]
Gruß
Jan
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat
Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#9
  Alt 27. Feb 2003, 21:00
Ohne Gewähr, was mir mein Taschenrechner ausspuckte :
Code:
x=-(Wurzel(4*Wurzel(a^2-4*a+b^2-36*b+328)*Wurzel(c^2-4*c+d^2-36*d+328)*cos(phi)+a^2-2*a*c-4*b*(d-18)+c^2+72*(d-18))-a-c)/


x=(Wurzel(4*Wurzel(a^2-4*a+b^2-36*b+328)*Wurzel(c^2-4*c+d^2-36*d+328)*cos(phi)+a^2-2*a*c-4*b*(d-18)+c^2+72*(d-18))+a+c)/2
ziemlich unübersichtlich.

Schau mal ob ich ihm noch was schöneres entlocken kann.
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat
Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#10
  Alt 27. Feb 2003, 21:53
ahh!! so einer biste, mit nem Programmierbaren T-rechner :]
naja, sowas steh mir net zur Verfügung.
aber naja! mit mathematika sollte man da auch was rausbekommen.
BB
Jan
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz