(* 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