|
FUNCTION make_numeric_set (start : maths_number, delta : maths_number, incs : positive_integer) : SET [2:?] OF maths_number; LOCAL i : INTEGER ; numeric_set : SET [ 2 : ? ] OF maths_number := [ start , ( start + delta ) ] ; END_LOCAL ; IF incs > 1 THEN REPEAT i := 2 TO incs ; numeric_set := numeric_set + ( start + ( i * delta ) ) ; END_REPEAT ; END_IF ; RETURN ( numeric_set ) ; END_FUNCTION; -- make_numeric_set |
|
public class FMake_numeric_set public static Value run(SdaiContext _context, Value start, Value delta, Value incs) |