Arccsch-Bug in XE gefixt?

[gammatester]

Ich habe gerade gelesen (QC# 30231), daß der Arccsch-Bug vor ca 1 Jahr gefixt sein soll. Da das schon mal behauptet und deshalb QC# 4219 geschlossen wurde, bin ich an der Ausgabe dieses kleinen Schnipsels für D2010/XE/XE2 interessiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := format('%22.18f%s%g%s%g', [arccsch(2.0), #10, arccsch(1e10),#10, arccsch(1e20)]);
  showmessage(s);
end;

Sie sollte ungefähr so aussehen:

Code:

0,481211825059603448
1E-10
1E-20

Wenn die erste Zeile stimmt, wurde offensichtlich der Hauptbug beseitigt. Wenn bei der letzten 0 angezeigt wird, wurde offensichtlich das alte falsche
Ln(Sqrt(1 + (1 / (X * X)) + (1 / X))) durch die ungenaue 'Schulbuchdefinition' Ln(Sqrt(1 + (1 / (X * X))) + (1 / X)) ersetzt.

[v2afrank]

Bei Delphi 2010 habe ich folgendes:
0,279807893967711343
5,00000000158003E-011
0

[Lemmy]

Hi,


0,481211825059603448
1,00000000029101E-010
0


XE Prof mit Update 1

Grüße

[sHoXx]

Ich hab

0,279807893967711343
5,00000000158003E-011
0

Delphi 2006 Enterprise Update 2

[gammatester]

Danke für die Antworten.

Also ist wohl in Delphi XE der Hauptbug (falsche Formel) wirklich gefixt. Aber für große x wird leider immer noch viel zu ungenau gerechnet; hier gilt die asymptotische Näherung

Code:

arccsch(x) = 1/x - 1/6/x^3 + 3/40/x^5 + O(1/x^7)

also einfach arccsch(x) = 1/x für abs(x) > 2e9.

Leider liegt kein XE2-Ergebnis vor, aber ich vermute einfach mal, daß nichts (wesenliches) im Vergleich zu Lemmys XE Upd1 geändert wurde.

Gruß Gammatester

[Stevie]

Zitat von gammatester:

Leider liegt kein XE2-Ergebnis vor

Für 32bit, 64bit, Windows, iOS oder OSX?

[gammatester]

Zitat von Stevie:

Zitat von gammatester:

Leider liegt kein XE2-Ergebnis vor

Für 32bit, 64bit, Windows, iOS oder OSX?

Ja!