paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Implemented SameValue

Browse Source
This commit is contained in:
michael 2004-02-09 09:11:46 +00:00
parent 2a928b5180
commit acd272b7b3
1 changed files with 68 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
rtl/objpas/math.pp
View File

@ -178,6 +178,14 @@ function IsZero(const A: Double): Boolean;
function IsZero(const A: Extended; Epsilon: Extended): Boolean;
function IsZero(const A: Extended): Boolean;
{$endif FPC_HAS_TYPE_EXTENDED}
function SameValue(const A, B: Extended): Boolean;
function SameValue(const A, B: Double): Boolean;
function SameValue(const A, B: Single): Boolean;
function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;
function SameValue(const A, B: Double; Epsilon: Double): Boolean;
function SameValue(const A, B: Single; Epsilon: Single): Boolean;
{ angle conversion }
@ -1190,11 +1198,70 @@ begin
end;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;
begin
if (Epsilon=0) then
Epsilon:=Max(Min(Abs(A),Abs(B))*EZeroResolution,EZeroResolution);
if (A>B) then
Result:=((A-B)<=Epsilon)
else
Result:=((B-A)<=Epsilon);
end;
function SameValue(const A, B: Extended): Boolean;
begin
Result:=SameValue(A,B,0);
end;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_DOUBLE}
function SameValue(const A, B: Double): Boolean;
begin
Result:=SameValue(A,B,0);
end;
function SameValue(const A, B: Double; Epsilon: Double): Boolean;
begin
if (Epsilon=0) then
Epsilon:=Max(Min(Abs(A),Abs(B))*DZeroResolution,DZeroResolution);
if (A>B) then
Result:=((A-B)<=Epsilon)
else
Result:=((B-A)<=Epsilon);
end;
{$endif FPC_HAS_TYPE_DOUBLE}
function SameValue(const A, B: Single): Boolean;
begin
Result:=SameValue(A,B,0);
end;
function SameValue(const A, B: Single; Epsilon: Single): Boolean;
begin
if (Epsilon=0) then
Epsilon:=Max(Min(Abs(A),Abs(B))*SZeroResolution,SZeroResolution);
if (A>B) then
Result:=((A-B)<=Epsilon)
else
Result:=((B-A)<=Epsilon);
end;
end.
{
$Log$
Revision 1.16 2004-02-09 08:55:45 michael
Revision 1.17 2004-02-09 09:11:46 michael
+ Implemented SameValue
Revision 1.16 2004/02/09 08:55:45 michael
+ Missing functions IsZero,InRange,EnsureRange implemented
Revision 1.15 2003/11/09 21:52:54 michael