(* SCHEMA IFC4; *)
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;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2016-06-01T11:21:50-04:00