(* SCHEMA IFC2X2_FINAL; *)
FUNCTION IfcSameValue
(Value1, Value2 : REAL; Epsilon : REAL)
: LOGICAL;
LOCAL
ValidEps : REAL;
END_LOCAL;
ValidEps := NVL(Epsilon, 0.00000001);
RETURN ((Value1 + ValidEps > Value2) AND (Value1 < Value2 + ValidEps));
END_FUNCTION;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:20:56-04:00