(* SCHEMA step_merged_ap_schema; *)
-- IN AP238 STEP-NC/AP242
FUNCTION nondecreasing
(lr : LIST OF REAL ) : BOOLEAN;
IF NOT EXISTS(lr) THEN
RETURN (FALSE);
END_IF;
REPEAT j := 2 TO SIZEOF(lr);
IF lr[j] < lr[(j - 1)] THEN
RETURN (FALSE);
END_IF;
END_REPEAT;
RETURN (TRUE);
END_FUNCTION;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2025-09-04T17:14:54-04:00