Die sqrt Function

[Neutral General]

Hi,

Ich wollte fragen ob mir jemand die original sqrt-function posten kann. Weil angeblich ist die in der Unit System aber entweder bin ich blöd oder die steht da nicht drin..... Wenn ich die System Unit öffne und nach sqrt suche dann wird nichts gefunden :|

Gruß
Neutral General

[Hawkeye219]

Hallo,

der Compiler bindet den notwendigen Code "inline" ein, somit findet kein Funktionsaufruf statt.

Gruß Hawkeye

[Neutral General]

Und niemand kennt diesen Code ? -.-

[himitsu]

Nicht alles was da drin sein soll ist auch da drin, vorallem beim ganzen CompilerMagicZeugs wird angezeigt, daß es angeblich da drin sein, aber gerade das wird ja vom Compiler erzeigt und bereit gestellt, so ist es auch mit dem sqrt :zwinker:

hier der Code für 2 Single's :zwinker:

Delphi-Quellcode:

b := sqrt(a);

asm
  fld dword ptr &a
  fsqrt
  fstp dword ptr &b
  wait
end;

[hathor]

Aus DELPHI2009:

Delphi-Quellcode:

function Sqrt(const X: Extended): Extended;
asm
        FLD X
        FSQRT
        FWAIT
end;

Memo.lines.add(FloatToStrF(sqrt(2.0), ffGeneral, 22, 20));

[hathor]

Betrifft Function hier:
http://www.delphipraxis.net/498960-post2.html

Die
function SqrtHeron(r: Double; anz: Integer): Double;
ist falsch!

Richtig:

Delphi-Quellcode:

function SqrtHeron(r: Extended; anz: Integer): Extended;
var
  i: Integer;
begin
  result := 1; // Startwert
  for i := 1 to anz do // Anzahl der Annäherungsdurchläufe
  begin
    result := 0.5 * (result + r/result); // Heron-Verfahren
  end;
end;

procedure TForm1.Button20Click(Sender: TObject);
var val : Extended; 
begin
val:= SQRTHERON(2.0,5);
Memo.lines.add(FloatToStrF(val, ffGeneral, 22, 20));
Memo.lines.add(FloatToStrF(SQRT(2.0), ffGeneral, 22, 20)); //eingebaute Function
end;

[gammatester]

Zitat:

Zitat von hathor (Beitrag 1244974)

Betrifft Function hier:
http://www.delphipraxis.net/498960-post2.html

Die
function SqrtHeron(r: Double; anz: Integer): Double;
ist falsch!

Vielleicht könntest Du ja auch noch verraten, was angeblich falsch sein soll. Deine Funktion unterscheidet sich doch nur durch die Ersetzung 'double' -> 'extended' von der alten. Also ist nach Deiner Logik auch Deine Funktion falsch. Rechnen tun beide im richtig im Rahmen ihrer Aufgabe.

[DeddyH]

Außerdem ist das fast 8 Jahre lang wohl niemandem aufgefallen.

[hathor]

Ergebnisse:


1,41421356237309515 - Double
1,41421356237309505 - Extented
1,41421356237309505 - SQRT - system.pas

[gammatester]

Zitat:

Zitat von hathor (Beitrag 1244991)

Ergebnisse:


1,41421356237309515 - Double
1,41421356237309505 - Extented
1,41421356237309505 - SQRT - system.pas

Und was soll uns das nun wieder sagen?

Der Double-Wert von sqrt(2) ist 1.41421356237309514547462185873882845...

Also ist die Ausgabe völlig korrekt! Oder willst Du behaupten, daß alle Double-Funktionen 'falsch' sind und in die Tonne gehören? Das wird allerdings den 64-Bit Leuten gar nicht gefallen, denn die haben standardmäßig nur double (extended nur mit Tricks/Software)!