Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Punkt innerhalb Kreis?

    Delphi
    by sx2008, 20. Dez 2008
  Die Sqr()-Funktion kannte ich natürlich.
  Ich hätte erwartet, dass eine Unterfunktion mit einer Integer-Multiplikation schneller ist, als Sqr() mit anschliesender impliziter Umwandlung nach Integer. :gruebel:
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Punkt innerhalb Kreis?

    Delphi
    by sx2008, 20. Dez 2008
  Weil es mathematisch gesehen 3 Fälle sind: im Kreis, auf der Kreislinie und Ausserhalb.
  So kann der Anwender selbst entscheiden, ob er die Punkte, direkt auf der Kreislinie liegen noch mitrechnet oder nicht.
  Wenn man z.B. wissen möchte, ob sich zwei Kreise mit den Mittelpunkten M1 und M2 gerade berühren, dann kann man das so ermitteln:
  if PointInCircle(M1, M2, Radius1+Radius2) = 0 then ......
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Punkt innerhalb Kreis?

    Delphi
    by sx2008, 20. Dez 2008
  Folgende Funktion berechnet, ob ein Punkt innerhalb eines Kreise mit einem bestimmten Radius liegt.
  Dabei wird der bekannte Satz des Pythagoras verwendet.
  Aus Geschwindigkeitsgründen wird auf Wurzelziehen und Gleitkommaberechnungen verzichtet.
  Die Unit math muss mit uses eingebunden werden.
  
  // a: Kreismittelpunkt
  // b: Testpunkt
  // Result =>
  // 1 = Punkt innerhalb Kreis
  // 0 = Punkt...