FUNCTION equal_maths_functions

(* SCHEMA step_merged_ap_schema; *)

-- DIFF IN AP238 STEP-NC
-- IN AP238 STEP-NC/AP242
FUNCTION equal_maths_functions
      (fun1 : maths_function;
       fun2 : maths_function ) : LOGICAL;
   LOCAL
      cum : LOGICAL;
   END_LOCAL;
      IF fun1 = fun2 THEN
         RETURN (FALSE);
      END_IF;
      cum := equal_maths_spaces(fun1.domain, fun2.domain);
      IF cum = FALSE THEN
         RETURN (FALSE);
      END_IF;
      cum := cum AND equal_maths_spaces(fun1.range, fun2.range);
      IF cum = FALSE THEN
         RETURN (FALSE);
      END_IF;
      RETURN (FALSE);
END_FUNCTION;

Referenced By

Defintion equal_maths_functions is references by the following definitions:

Definition	Type
equal_maths_values	FUNCTION

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:20-04:00