(* 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
2024-07-11T21:39:05-04:00