|
FUNCTION default_b_spline_knots (degree : INTEGER, up_knots : INTEGER, uniform : knot_type) : LIST [2:?] OF parameter_value; LOCAL knots : LIST [ 1 : up_knots ] OF parameter_value := [ 0 : up_knots ] ; ishift : INTEGER := 1 ; END_LOCAL ; IF ( uniform = uniform_knots ) THEN ishift := degree + 1 ; END_IF ; IF ( uniform = uniform_knots ) OR ( uniform = quasi_uniform_knots ) OR ( uniform = piecewise_bezier_knots ) THEN REPEAT i := 1 TO up_knots ; knots [ i ] := i - ishift ; END_REPEAT ; END_IF ; RETURN ( knots ) ; END_FUNCTION; -- default_b_spline_knots |
|
public class FDefault_b_spline_knots public static Value run(SdaiContext _context, Value degree, Value up_knots, Value uniform) |