blob: 1a0545f915cf8d93768964ed7c2a537d91ce303a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
@code{(require 'subarray)}
@ftindex subarray
@defun subarray array select @dots{}
selects a subset of an array. For @var{array} of rank n, there must be at least
n @var{selects} arguments. For 0 <= @i{j} < n, @var{selects}@i{j} is either an integer, a
list of two integers within the range for the @i{j}th index, or #f.
When @var{selects}@i{j} is a list of two integers, then the @i{j}th index is
restricted to that subrange in the returned array.
When @var{selects}@i{j} is #f, then the full range of the @i{j}th index is
accessible in the returned array. An elided argument is equivalent to #f.
When @var{selects}@i{j} is an integer, then the rank of the returned array is
less than @var{array}, and only elements whose @i{j}th index equals @var{selects}@i{j} are
shared.
@example
> (define ra '#2A((a b c) (d e f)))
#<unspecified>
> (subarray ra 0 #f)
#1A(a b c)
> (subarray ra 1 #f)
#1A(d e f)
> (subarray ra #f 1)
#1A(b e)
> (subarray ra '(0 1) #f)
#2A((a b c) (d e f))
> (subarray ra #f '(0 1))
#2A((a b) (d e))
> (subarray ra #f '(1 2))
#2A((b c) (e f))
@end example
@end defun
@defvar subarray0
Legacy alias for @r{subarray}.
@end defvar
@defun array-trim array trim @dots{}
Returns a subarray sharing contents with @var{array} except for slices removed
from either side of each dimension. Each of the @var{trims} is an exact
integer indicating how much to trim. A positive @var{s} trims the
data from the lower end and reduces the upper bound of the result; a
negative @var{s} trims from the upper end and increases the lower
bound.
For example:
@example
(array-trim '#(0 1 2 3 4) 1) @result{} #1A(1 2 3 4)
(array-trim '#(0 1 2 3 4) -1) @result{} #1A(0 1 2 3)
(require 'array-for-each)
(define (centered-difference ra)
(array-map ra - (array-trim ra 1) (array-trim ra -1)))
(centered-difference '#(0 1 3 5 9 22))
@result{} #(1 2 2 4 13)
@end example
@end defun
|