paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Antonio Puente Rodero to fix arctanh and arccosh in unit ucomplex, resolves #18844

Browse Source 
git-svn-id: trunk@17253 -
This commit is contained in:
florian 2011-04-05 19:37:50 +00:00
parent 8bff2a0de4
commit f2a3f4e5af
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/ucomplex.pp
View File

@ -572,7 +572,7 @@ Unit UComplex;
{ _________ } { _________ }
{ argch(z) = -/+ ln(z + i.V 1 - z.z) } { argch(z) = -/+ ln(z + i.V 1 - z.z) }
begin begin
carg_ch:=-cln(z+i*csqrt(z*z-1.0)); carg_ch:=-cln(z+i*csqrt(1.0-z*z));
end; end;
function carg_sh (z : complex) : complex; function carg_sh (z : complex) : complex;
@ -587,7 +587,7 @@ Unit UComplex;
{ hyperbolic arc tangent } { hyperbolic arc tangent }
{ argth(z) = 1/2 ln((z + 1) / (1 - z)) } { argth(z) = 1/2 ln((z + 1) / (1 - z)) }
begin begin
carg_th:=cln((z+1.0)/(z-1.0))/2.0; carg_th:=cln((z+1.0)/(1.0-z))/2.0;
end; end;
{ functions to write out a complex value } { functions to write out a complex value }