FUNCTION constraints_param_b_spline

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)

FUNCTION constraints_param_b_spline
	(degree, up_knots, up_cp : INTEGER; knot_mult : 
		LIST OF INTEGER; knots : LIST OF parameter_value) : BOOLEAN;
   LOCAL
	 result : BOOLEAN := TRUE;
	 k,l,sum : INTEGER;
   END_LOCAL;
 
   sum := knot_mult[1];
 
   REPEAT i := 2 TO up_knots;
	 sum := sum + knot_mult[i];
   END_REPEAT;
 
 
   IF (degree < 1) OR (up_knots < 2) OR (up_cp < degree) OR
	 (sum <> (degree + up_cp + 2)) THEN
	 result := FALSE;
	 RETURN(result);
   END_IF;
 
   k := knot_mult[1];
 
   IF (k < 1) OR (k > degree + 1) THEN
	 result := FALSE;
	 RETURN(result);
   END_IF;
	 
   REPEAT i := 2 TO up_knots;
	 IF (knot_mult[i] < 1) OR (knots[i] <= knots[i-1]) THEN
	 result := FALSE;
	 RETURN(result);
	 END_IF;
	
	 k := knot_mult[i];
	 
	 IF (i < up_knots) AND (k > degree) THEN
	 result := FALSE;
	 RETURN(result);
	 END_IF;
	
	 IF (i = up_knots) AND (k > degree + 1) THEN
	 result := FALSE;
	 RETURN(result);
	 END_IF;
   END_REPEAT; 
 RETURN(result);
END_FUNCTION;  (*  STEP Part 42 (unchanged in 2nd edition)  *)

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00