Same Value |
The function compares two numerical values and ensures that they are the same (with an epsilon precision factor). In the function the following questionable ad-hoc value is used: 0.000001 for the default precision (1E-6)
HISTORY New function in IFC2x2
FUNCTION IfcSameValue
(Value1, Value2 : REAL; Epsilon : REAL)
: LOGICAL;
LOCAL
ValidEps : REAL;
DefaultEps : REAL := 0.000001;
END_LOCAL;
ValidEps := NVL(Epsilon, DefaultEps);
RETURN ((Value1 + ValidEps > Value2) AND (Value1 < Value2 + ValidEps));
END_FUNCTION;