|
@@ -1284,7 +1284,7 @@ function cosh(x : Double) : Double;
|
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
|
function cosh(x : Extended) : Extended;
|
|
function cosh(x : Extended) : Extended;
|
|
|
var
|
|
var
|
|
|
- temp : Extended;
|
|
|
|
|
|
|
+ temp : ValReal;
|
|
|
begin
|
|
begin
|
|
|
temp:=exp(x);
|
|
temp:=exp(x);
|
|
|
cosh:=0.5*(temp+1.0/temp);
|
|
cosh:=0.5*(temp+1.0/temp);
|
|
@@ -1317,7 +1317,7 @@ function sinh(x : Double) : Double;
|
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
|
function sinh(x : Extended) : Extended;
|
|
function sinh(x : Extended) : Extended;
|
|
|
var
|
|
var
|
|
|
- temp : Extended;
|
|
|
|
|
|
|
+ temp : ValReal;
|
|
|
begin
|
|
begin
|
|
|
temp:=exp(x);
|
|
temp:=exp(x);
|
|
|
if temp=1 then
|
|
if temp=1 then
|
|
@@ -1408,7 +1408,7 @@ end;
|
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
|
function SecH(const X: Extended): Extended;
|
|
function SecH(const X: Extended): Extended;
|
|
|
var
|
|
var
|
|
|
- Ex: Extended;
|
|
|
|
|
|
|
+ Ex: ValReal;
|
|
|
begin
|
|
begin
|
|
|
Ex:=Exp(X);
|
|
Ex:=Exp(X);
|
|
|
SecH:=2/(Ex+1/Ex);
|
|
SecH:=2/(Ex+1/Ex);
|
|
@@ -1437,7 +1437,7 @@ end;
|
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
|
function CscH(const X: Extended): Extended;
|
|
function CscH(const X: Extended): Extended;
|
|
|
var
|
|
var
|
|
|
- Ex: Extended;
|
|
|
|
|
|
|
+ Ex: ValReal;
|
|
|
begin
|
|
begin
|
|
|
Ex:=Exp(X);
|
|
Ex:=Exp(X);
|
|
|
CscH:=2/(Ex-1/Ex);
|
|
CscH:=2/(Ex-1/Ex);
|
|
@@ -1485,7 +1485,7 @@ end;
|
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
|
function CotH(const X: Extended): Extended;
|
|
function CotH(const X: Extended): Extended;
|
|
|
var
|
|
var
|
|
|
- e2: Extended;
|
|
|
|
|
|
|
+ e2: ValReal;
|
|
|
begin
|
|
begin
|
|
|
if x < 0 then begin
|
|
if x < 0 then begin
|
|
|
e2:=exp(2*x);
|
|
e2:=exp(2*x);
|
florian