Ergebnis der Suchanfrage

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

  Re: Punkt innerhalb Kreis?

    Delphi
    by himitsu, 6. Mai 2009
  bezieht sich das auf alle Versionen oder nur auf die mit Fließkommaarithmetik?
  
  bei den Integerversionen sollte sich nicht groß was ändern, da egal wie die Werte sind die Berechnungen "etwa" gleich schnell sein sollten. :gruebel:
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Punkt innerhalb Kreis?

    Delphi
    by himitsu, 6. Mai 2009
  hier ließ sich nur viel mit ASM optimieren, da der Compiler die Variablen und Zwischenergebnise einzeln verwaltet und ich hier Vieles in sich selber belassen konnte,
  also die ganze Berechnung komplett in die Register verlagert hatte, wärend der Compiler oftmals Zwischenergebnisse auf dem Stack ablegt (mir haben praktisch 4 Register gereicht, wärend Delphi mit allen Variablen und temporären...
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Punkt innerhalb Kreis?

    Delphi
    by himitsu, 5. Mai 2009
  siehe mein im letzen Post :angel:
  
  jupp, das mit den besser ansprechbaren GPUs hab ich auch gehört,
  auch wenn ich das wohl selber nie wirklich nutzen werd', klingt es schon interessant
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Punkt innerhalb Kreis?

    Delphi
    by himitsu, 5. Mai 2009
  Extended ist eh ungünstig ... 10 Byte bei 32 Bit
  
  
  probier es doch einfach mal
  
  ich hatte vorhin mal den Fall, daß ich die Testschleife so definierte
  ... man beachte, daß Delphi Point nicht in eine Konstante umwandelt, sonder daß da die Funktion Point aufgerufen wird, was das Ergebnis schön verfällscht :wall:
  C := GetTickCount;
  for i := 0 to 100000000 do
  if PointInCircle(Point(10, 20),...
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Punkt innerhalb Kreis?

    Delphi
    by himitsu, 5. Mai 2009
  brauchte grad mal etwas Abwechslung
  Function PointInCircle(Const aPoint, aCircleCenter: TPoint; aCircleRadius: Integer): Integer;
  Var t: Integer;
  
  Begin
  Result := radius * radius;
  t := a.x - b.x; Dec(Result, t * t);
  t := a.y - b.y; Dec(Result, t * t);
  If Result < 0 Then Result := NegativeValue
  Else If Result > 0 ThenResult := PositiveValue;