ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayRefine::getRefined Interface Reference

Generate a refined version of the input array by the specified weight and skip.
More...

Detailed Description

Generate a refined version of the input array by the specified weight and skip.

Parameters
[in]array: The input contiguous array of shape (:) or (:,:) of either
  1. type character of kind any supported by the processor (e.g., SK, SKA, SKD , or SKU) or
  2. type integer of kind any supported by the processor (e.g., IK, IK8, IK16, IK32, or IK64) or
  3. type logical of kind any supported by the processor (e.g., LK) or
  4. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128) or
  5. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128)
or,
  1. scalar character of kind any supported by the processor (e.g., SK, SKA, SKD , or SKU),
containing the array that has to be refined.
[in]dim: The input scalar of type integer of default kind IK representing the axis of array(:,:) along which array must be refined.
(optional, it must be present if and only if array is of shape (:,:).)
[in]weight: The input vector of
  1. type integer of default kind IK,
of size size(array, dim) containing the weights of individual elements of the input array.
[in]skip: The input scalar of type integer of default kind IK representing the number of elements to skip in the input sequence.
Returns
arrayRefined : The output allocatable array of the same type, kind, and shape as the input array, containing the refined unweighted version of the input array.
The returned array is unweighted to preserve the purity of the procedure.
See setRefined for an alternative interface.


Possible calling interfaces ⛓

use pm_arrayRefine, only: getRefined
arrayRefined = getRefined(array, weight, skip) ! scalar character objects.
arrayRefined(:) = getRefined(array(:), weight, skip) ! all intrinsic array objects.
arrayRefined(:,:) = getRefined(array(:,:), dim, weight, skip) ! all intrinsic array objects.
!
pm_arrayRefine::getRefined
Generate a refined version of the input array by the specified weight and skip.
Definition: pm_arrayRefine.F90:154
pm_arrayRefine
This module contains procedures and generic interfaces for refining (thinning) (weighted) arrays of a...
Definition: pm_arrayRefine.F90:60
Warning
The condition 0 < skip must hold.
The condition dim == 1 .or. dim == 2 must hold.
The condition size(weight) == size(array) must hold when array is rank 1.
The condition size(weight) == size(array, dim) must hold when array is rank 2.
These conditions are verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
The pure procedure(s) documented herein become impure when the ParaMonte library is compiled with preprocessor macro CHECK_ENABLED=1.
By default, these procedures are pure in release build and impure in debug and testing builds.
Note
See pm_arrayCopy for refining unweighted strings and arrays.
See also
setRefined
getCompact
getVerbose
pm_arrayCopy


Example usage ⛓

1program example
2
3 use pm_arrayVerbose, only: getVerbose
4 use pm_arrayRefine, only: getRefined
5 use pm_arrayChoice, only: getChoice
6 use pm_distUnif, only: getUnifRand
7 use pm_distBern, only: isHead
8 use pm_kind, only: SK, IK, LK
9 use pm_io, only: display_type
10
11 implicit none
12
13 type(display_type) :: disp
14 integer(IK) :: nsam, itry, ntry = 10
15 disp = display_type(file = "main.out.F90")
16
17 call disp%skip()
18 call disp%show("!%%%%%%%%%%%%%%%%%")
19 call disp%show("! Refine 1D array.")
20 call disp%show("!%%%%%%%%%%%%%%%%%")
21 call disp%skip()
22
23 block
24
25 block
26 use pm_kind, only: TKG => SK ! all kinds are supported.
27 character(:,TKG), allocatable :: array
28 integer(IK), allocatable :: weight(:)
29 integer(IK) :: skip
30 do itry = 1, ntry
31 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
32 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
33 call disp%show("nsam")
34 call disp%show( nsam )
35 call disp%show("skip")
36 call disp%show( skip )
37 call disp%show("weight = getUnifRand(-1, 9, nsam)")
38 weight = getUnifRand(-1, 9, nsam)
39 call disp%show("weight")
40 call disp%show( weight )
41 call disp%show("array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))")
42 array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
43 call disp%show("array")
44 call disp%show( array , deliml = TKG_"""" )
45 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
46 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) , deliml = TKG_"""" )
47 call disp%show("array = getRefined(array, weight, skip)")
48 array = getRefined(array, weight, skip)
49 call disp%show("array")
50 call disp%show( array , deliml = TKG_"""" )
51 call disp%skip()
52 end do
53 end block
54
55 block
56 use pm_kind, only: TKG => SK ! all kinds are supported.
57 character(2,TKG), allocatable :: array(:)
58 integer(IK), allocatable :: weight(:)
59 integer(IK) :: skip
60 do itry = 1, ntry
61 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
62 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
63 call disp%show("nsam")
64 call disp%show( nsam )
65 call disp%show("skip")
66 call disp%show( skip )
67 call disp%show("weight = getUnifRand(-1, 9, nsam)")
68 weight = getUnifRand(-1, 9, nsam)
69 call disp%show("weight")
70 call disp%show( weight )
71 call disp%show("array = getUnifRand('AA', 'ZZ', nsam)")
72 array = getUnifRand('AA', 'ZZ', nsam)
73 call disp%show("array")
74 call disp%show( array , deliml = TKG_"""" )
75 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
76 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) , deliml = TKG_"""" )
77 call disp%show("array = getRefined(array, weight, skip)")
78 array = getRefined(array, weight, skip)
79 call disp%show("array")
80 call disp%show( array , deliml = TKG_"""" )
81 call disp%skip()
82 end do
83 end block
84
85 block
86 use pm_kind, only: TKG => IK ! all kinds are supported.
87 integer(TKG), allocatable :: array(:)
88 integer(IK), allocatable :: weight(:)
89 integer(IK) :: skip
90 do itry = 1, ntry
91 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
92 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
93 call disp%show("nsam")
94 call disp%show( nsam )
95 call disp%show("skip")
96 call disp%show( skip )
97 call disp%show("weight = getUnifRand(-1, 9, nsam)")
98 weight = getUnifRand(-1, 9, nsam)
99 call disp%show("weight")
100 call disp%show( weight )
101 call disp%show("array = getUnifRand(0, 9, nsam)")
102 array = getUnifRand(0, 9, nsam)
103 call disp%show("array")
104 call disp%show( array )
105 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
106 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
107 call disp%show("array = getRefined(array, weight, skip)")
108 array = getRefined(array, weight, skip)
109 call disp%show("array")
110 call disp%show( array )
111 call disp%skip()
112 end do
113 end block
114
115 block
116 use pm_kind, only: TKG => LK ! all kinds are supported.
117 logical(TKG), allocatable :: array(:)
118 integer(IK), allocatable :: weight(:)
119 integer(IK) :: skip
120 do itry = 1, ntry
121 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
122 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
123 call disp%show("nsam")
124 call disp%show( nsam )
125 call disp%show("skip")
126 call disp%show( skip )
127 call disp%show("weight = getUnifRand(-1, 9, nsam)")
128 weight = getUnifRand(-1, 9, nsam)
129 call disp%show("weight")
130 call disp%show( weight )
131 call disp%show("array = getUnifRand(.false., .true., nsam)")
132 array = getUnifRand(.false., .true., nsam)
133 call disp%show("array")
134 call disp%show( array )
135 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
136 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
137 call disp%show("array = getRefined(array, weight, skip)")
138 array = getRefined(array, weight, skip)
139 call disp%show("array")
140 call disp%show( array )
141 call disp%skip()
142 end do
143 end block
144
145 block
146 use pm_kind, only: TKG => CKS ! all kinds are supported.
147 complex(TKG), allocatable :: array(:)
148 integer(IK), allocatable :: weight(:)
149 integer(IK) :: skip
150 do itry = 1, ntry
151 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
152 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
153 call disp%show("nsam")
154 call disp%show( nsam )
155 call disp%show("skip")
156 call disp%show( skip )
157 call disp%show("weight = getUnifRand(-1, 9, nsam)")
158 weight = getUnifRand(-1, 9, nsam)
159 call disp%show("weight")
160 call disp%show( weight )
161 call disp%show("array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)")
162 array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
163 call disp%show("array")
164 call disp%show( array )
165 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
166 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
167 call disp%show("array = getRefined(array, weight, skip)")
168 array = getRefined(array, weight, skip)
169 call disp%show("array")
170 call disp%show( array )
171 call disp%skip()
172 end do
173 end block
174
175 block
176 use pm_kind, only: TKG => RKS ! all kinds are supported.
177 real(TKG), allocatable :: array(:)
178 integer(IK), allocatable :: weight(:)
179 integer(IK) :: skip
180 do itry = 1, ntry
181 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
182 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
183 call disp%show("nsam")
184 call disp%show( nsam )
185 call disp%show("skip")
186 call disp%show( skip )
187 call disp%show("weight = getUnifRand(-1, 9, nsam)")
188 weight = getUnifRand(-1, 9, nsam)
189 call disp%show("weight")
190 call disp%show( weight )
191 call disp%show("array = getUnifRand(0, 9, nsam)")
192 array = getUnifRand(0, 9, nsam)
193 call disp%show("array")
194 call disp%show( array )
195 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
196 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
197 call disp%show("array = getRefined(array, weight, skip)")
198 array = getRefined(array, weight, skip)
199 call disp%show("array")
200 call disp%show( array )
201 call disp%skip()
202 end do
203 end block
204
205 end block
206
207 call disp%skip()
208 call disp%show("!%%%%%%%%%%%%%%%%%")
209 call disp%show("! Refine 2D array.")
210 call disp%show("!%%%%%%%%%%%%%%%%%")
211 call disp%skip()
212
213 block
214
215 integer(IK) :: dim, ndim
216
217 block
218 use pm_kind, only: TKG => SK ! all kinds are supported.
219 character(2,TKG), allocatable :: array(:,:), arref(:,:)
220 integer(IK), allocatable :: weight(:)
221 integer(IK) :: skip
222 do itry = 1, ntry
223 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
224 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
225 call disp%show("[dim, ndim, nsam]")
226 call disp%show( [dim, ndim, nsam] )
227 call disp%show("skip")
228 call disp%show( skip )
229 call disp%show("weight = getUnifRand(-1, 9, nsam)")
230 weight = getUnifRand(-1, 9, nsam)
231 call disp%show("weight")
232 call disp%show( weight )
233 call disp%show("array = getUnifRand('AA', 'ZZ', ndim, nsam)")
234 array = getUnifRand('AA', 'ZZ', ndim, nsam)
235 call disp%show("array")
236 call disp%show( array , deliml = TKG_"""" )
237 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
238 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) , deliml = TKG_"""" )
239 call disp%show("arref = getRefined(array, dim, weight, skip)")
240 arref = getRefined(array, dim, weight, skip)
241 call disp%show("arref")
242 call disp%show( arref , deliml = TKG_"""" )
243 call disp%show("arref = getRefined(transpose(array), 3_IK - dim, weight, skip)")
244 arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
245 call disp%show("arref")
246 call disp%show( arref , deliml = TKG_"""" )
247 call disp%skip()
248 end do
249 end block
250
251 block
252 use pm_kind, only: TKG => IK ! all kinds are supported.
253 integer(TKG), allocatable :: array(:,:), arref(:,:)
254 integer(IK), allocatable :: weight(:)
255 integer(IK) :: skip
256 do itry = 1, ntry
257 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
258 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
259 call disp%show("[dim, ndim, nsam]")
260 call disp%show( [dim, ndim, nsam] )
261 call disp%show("skip")
262 call disp%show( skip )
263 call disp%show("weight = getUnifRand(-1, 9, nsam)")
264 weight = getUnifRand(-1, 9, nsam)
265 call disp%show("weight")
266 call disp%show( weight )
267 call disp%show("array = getUnifRand(0, 9, ndim, nsam)")
268 array = getUnifRand(0, 9, ndim, nsam)
269 call disp%show("array")
270 call disp%show( array )
271 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
272 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
273 call disp%show("arref = getRefined(array, dim, weight, skip)")
274 arref = getRefined(array, dim, weight, skip)
275 call disp%show("arref")
276 call disp%show( arref )
277 call disp%show("arref = getRefined(transpose(array), 3_IK - dim, weight, skip)")
278 arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
279 call disp%show("arref")
280 call disp%show( arref )
281 call disp%skip()
282 end do
283 end block
284
285 block
286 use pm_kind, only: TKG => LK ! all kinds are supported.
287 logical(TKG), allocatable :: array(:,:), arref(:,:)
288 integer(IK), allocatable :: weight(:)
289 integer(IK) :: skip
290 do itry = 1, ntry
291 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
292 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
293 call disp%show("[dim, ndim, nsam]")
294 call disp%show( [dim, ndim, nsam] )
295 call disp%show("skip")
296 call disp%show( skip )
297 call disp%show("weight = getUnifRand(-1, 9, nsam)")
298 weight = getUnifRand(-1, 9, nsam)
299 call disp%show("weight")
300 call disp%show( weight )
301 call disp%show("array = getUnifRand(.false., .true., ndim, nsam)")
302 array = getUnifRand(.false., .true., ndim, nsam)
303 call disp%show("array")
304 call disp%show( array )
305 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
306 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
307 call disp%show("arref = getRefined(array, dim, weight, skip)")
308 arref = getRefined(array, dim, weight, skip)
309 call disp%show("arref")
310 call disp%show( arref )
311 call disp%show("arref = getRefined(transpose(array), 3_IK - dim, weight, skip)")
312 arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
313 call disp%show("arref")
314 call disp%show( arref )
315 call disp%skip()
316 end do
317 end block
318
319 block
320 use pm_kind, only: TKG => CKS ! all kinds are supported.
321 complex(TKG), allocatable :: array(:,:), arref(:,:)
322 integer(IK), allocatable :: weight(:)
323 integer(IK) :: skip
324 do itry = 1, ntry
325 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
326 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
327 call disp%show("[dim, ndim, nsam]")
328 call disp%show( [dim, ndim, nsam] )
329 call disp%show("skip")
330 call disp%show( skip )
331 call disp%show("weight = getUnifRand(-1, 9, nsam)")
332 weight = getUnifRand(-1, 9, nsam)
333 call disp%show("weight")
334 call disp%show( weight )
335 call disp%show("array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)")
336 array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
337 call disp%show("array")
338 call disp%show( array )
339 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
340 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
341 call disp%show("arref = getRefined(array, dim, weight, skip)")
342 arref = getRefined(array, dim, weight, skip)
343 call disp%show("arref")
344 call disp%show( arref )
345 call disp%show("arref = getRefined(transpose(array), 3_IK - dim, weight, skip)")
346 arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
347 call disp%show("arref")
348 call disp%show( arref )
349 call disp%skip()
350 end do
351 end block
352
353 block
354 use pm_kind, only: TKG => RKS ! all kinds are supported.
355 real(TKG), allocatable :: array(:,:), arref(:,:)
356 integer(IK), allocatable :: weight(:)
357 integer(IK) :: skip
358 do itry = 1, ntry
359 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
360 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
361 call disp%show("[dim, ndim, nsam]")
362 call disp%show( [dim, ndim, nsam] )
363 call disp%show("skip")
364 call disp%show( skip )
365 call disp%show("weight = getUnifRand(-1, 9, nsam)")
366 weight = getUnifRand(-1, 9, nsam)
367 call disp%show("weight")
368 call disp%show( weight )
369 call disp%show("array = getUnifRand(0, 9, ndim, nsam)")
370 array = getUnifRand(0, 9, ndim, nsam)
371 call disp%show("array")
372 call disp%show( array )
373 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
374 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
375 call disp%show("arref = getRefined(array, dim, weight, skip)")
376 arref = getRefined(array, dim, weight, skip)
377 call disp%show("arref")
378 call disp%show( arref )
379 call disp%show("arref = getRefined(transpose(array), 3_IK - dim, weight, skip)")
380 arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
381 call disp%show("arref")
382 call disp%show( arref )
383 call disp%skip()
384 end do
385 end block
386
387 end block
388
389end program example
pm_arrayChoice::getChoice
Select a single (or multiple) element(s) from the input array of intrinsic type of arbitrary kind ran...
Definition: pm_arrayChoice.F90:137
pm_arrayVerbose::getVerbose
Generate an equally-weighted (verbose or flattened) array of the input weighted array of rank 1 or 2.
Definition: pm_arrayVerbose.F90:142
pm_distBern::isHead
Generate and return a scalar (or a vector of length size or an array of the same shape as the input p...
Definition: pm_distBern.F90:160
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150
pm_io::show
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
pm_arrayChoice
This module contains procedures and generic interfaces for selecting uniformly-distributed or arbitra...
Definition: pm_arrayChoice.F90:38
pm_arrayVerbose
This module contains procedures and generic interfaces for flattening (duplicating the elements of) a...
Definition: pm_arrayVerbose.F90:38
pm_distBern
This module contains classes and procedures for generating Bernoulli-distributed random numbers.
Definition: pm_distBern.F90:39
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output ⛓
1
2!%%%%%%%%%%%%%%%%%
3! Refine 1D array.
4!%%%%%%%%%%%%%%%%%
5
6nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
7nsam
8+4
9skip
10+3
11weight = getUnifRand(-1, 9, nsam)
12weight
13+6, +8, +2, +3
14array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
15array
16"IULM"
17getVerbose(array, weight, sum(weight, mask = weight > 0))
18"IIIIIIUUUUUUUULLMMM"
19array = getRefined(array, weight, skip)
20array
21"IIUULM"
22
23nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
24nsam
25+2
26skip
27+2
28weight = getUnifRand(-1, 9, nsam)
29weight
30+2, +2
31array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
32array
33"GZ"
34getVerbose(array, weight, sum(weight, mask = weight > 0))
35"GGZZ"
36array = getRefined(array, weight, skip)
37array
38"GZ"
39
40nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
41nsam
42+3
43skip
44+3
45weight = getUnifRand(-1, 9, nsam)
46weight
47-1, +7, +6
48array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
49array
50"SBP"
51getVerbose(array, weight, sum(weight, mask = weight > 0))
52"BBBBBBBPPPPPP"
53array = getRefined(array, weight, skip)
54array
55"BBPP"
56
57nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
58nsam
59+8
60skip
61+3
62weight = getUnifRand(-1, 9, nsam)
63weight
64+5, +5, +0, +2, +3, +9, +3, +8
65array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
66array
67"JKBCJQFX"
68getVerbose(array, weight, sum(weight, mask = weight > 0))
69"JJJJJKKKKKCCJJJQQQQQQQQQFFFXXXXXXXX"
70array = getRefined(array, weight, skip)
71array
72"JKKCJQQQFXX"
73
74nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
75nsam
76+2
77skip
78+4
79weight = getUnifRand(-1, 9, nsam)
80weight
81+5, +5
82array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
83array
84"RC"
85getVerbose(array, weight, sum(weight, mask = weight > 0))
86"RRRRRCCCCC"
87array = getRefined(array, weight, skip)
88array
89"RC"
90
91nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
92nsam
93+9
94skip
95+4
96weight = getUnifRand(-1, 9, nsam)
97weight
98+0, -1, +0, +2, +3, +7, +7, +3, +3
99array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
100array
101"QJEBWCFBT"
102getVerbose(array, weight, sum(weight, mask = weight > 0))
103"BBWWWCCCCCCCFFFFFFFBBBTTT"
104array = getRefined(array, weight, skip)
105array
106"WCCFBT"
107
108nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
109nsam
110+0
111skip
112+1
113weight = getUnifRand(-1, 9, nsam)
114weight
115
116array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
117array
118""
119getVerbose(array, weight, sum(weight, mask = weight > 0))
120""
121array = getRefined(array, weight, skip)
122array
123""
124
125nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
126nsam
127+7
128skip
129+4
130weight = getUnifRand(-1, 9, nsam)
131weight
132+0, +1, +2, +3, +6, +8, +6
133array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
134array
135"QBXQUCJ"
136getVerbose(array, weight, sum(weight, mask = weight > 0))
137"BXXQQQUUUUUUCCCCCCCCJJJJJJ"
138array = getRefined(array, weight, skip)
139array
140"QUUCCJ"
141
142nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
143nsam
144+2
145skip
146+2
147weight = getUnifRand(-1, 9, nsam)
148weight
149+1, +6
150array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
151array
152"AU"
153getVerbose(array, weight, sum(weight, mask = weight > 0))
154"AUUUUUU"
155array = getRefined(array, weight, skip)
156array
157"UUU"
158
159nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
160nsam
161+0
162skip
163+3
164weight = getUnifRand(-1, 9, nsam)
165weight
166
167array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
168array
169""
170getVerbose(array, weight, sum(weight, mask = weight > 0))
171""
172array = getRefined(array, weight, skip)
173array
174""
175
176nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
177nsam
178+7
179skip
180+4
181weight = getUnifRand(-1, 9, nsam)
182weight
183+5, +7, +8, +1, +5, +7, +8
184array = getUnifRand('AA', 'ZZ', nsam)
185array
186"LP", "SS", "GC", "BU", "XD", "FX", "YO"
187getVerbose(array, weight, sum(weight, mask = weight > 0))
188"LP", "LP", "LP", "LP", "LP", "SS", "SS", "SS", "SS", "SS", "SS", "SS", "GC", "GC", "GC", "GC", "GC", "GC", "GC", "GC", "BU", "XD", "XD", "XD", "XD", "XD", "FX", "FX", "FX", "FX", "FX", "FX", "FX", "YO", "YO", "YO", "YO", "YO", "YO", "YO", "YO"
189array = getRefined(array, weight, skip)
190array
191"LP", "SS", "SS", "GC", "GC", "XD", "FX", "FX", "YO", "YO"
192
193nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
194nsam
195+0
196skip
197+2
198weight = getUnifRand(-1, 9, nsam)
199weight
200
201array = getUnifRand('AA', 'ZZ', nsam)
202array
203
204getVerbose(array, weight, sum(weight, mask = weight > 0))
205
206array = getRefined(array, weight, skip)
207array
208
209
210nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
211nsam
212+7
213skip
214+2
215weight = getUnifRand(-1, 9, nsam)
216weight
217+7, +3, +8, +9, -1, +1, +8
218array = getUnifRand('AA', 'ZZ', nsam)
219array
220"IT", "SN", "WX", "SM", "VJ", "DD", "XA"
221getVerbose(array, weight, sum(weight, mask = weight > 0))
222"IT", "IT", "IT", "IT", "IT", "IT", "IT", "SN", "SN", "SN", "WX", "WX", "WX", "WX", "WX", "WX", "WX", "WX", "SM", "SM", "SM", "SM", "SM", "SM", "SM", "SM", "SM", "DD", "XA", "XA", "XA", "XA", "XA", "XA", "XA", "XA"
223array = getRefined(array, weight, skip)
224array
225"IT", "IT", "IT", "SN", "SN", "WX", "WX", "WX", "WX", "SM", "SM", "SM", "SM", "DD", "XA", "XA", "XA", "XA"
226
227nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
228nsam
229+0
230skip
231+1
232weight = getUnifRand(-1, 9, nsam)
233weight
234
235array = getUnifRand('AA', 'ZZ', nsam)
236array
237
238getVerbose(array, weight, sum(weight, mask = weight > 0))
239
240array = getRefined(array, weight, skip)
241array
242
243
244nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
245nsam
246+0
247skip
248+3
249weight = getUnifRand(-1, 9, nsam)
250weight
251
252array = getUnifRand('AA', 'ZZ', nsam)
253array
254
255getVerbose(array, weight, sum(weight, mask = weight > 0))
256
257array = getRefined(array, weight, skip)
258array
259
260
261nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
262nsam
263+1
264skip
265+3
266weight = getUnifRand(-1, 9, nsam)
267weight
268+7
269array = getUnifRand('AA', 'ZZ', nsam)
270array
271"LZ"
272getVerbose(array, weight, sum(weight, mask = weight > 0))
273"LZ", "LZ", "LZ", "LZ", "LZ", "LZ", "LZ"
274array = getRefined(array, weight, skip)
275array
276"LZ", "LZ"
277
278nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
279nsam
280+5
281skip
282+2
283weight = getUnifRand(-1, 9, nsam)
284weight
285+5, +3, -1, +1, +2
286array = getUnifRand('AA', 'ZZ', nsam)
287array
288"FR", "SL", "XP", "RM", "EU"
289getVerbose(array, weight, sum(weight, mask = weight > 0))
290"FR", "FR", "FR", "FR", "FR", "SL", "SL", "SL", "RM", "EU", "EU"
291array = getRefined(array, weight, skip)
292array
293"FR", "FR", "SL", "SL", "EU"
294
295nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
296nsam
297+6
298skip
299+1
300weight = getUnifRand(-1, 9, nsam)
301weight
302+2, +0, +9, +9, +6, -1
303array = getUnifRand('AA', 'ZZ', nsam)
304array
305"CA", "YQ", "WL", "MG", "AR", "ZV"
306getVerbose(array, weight, sum(weight, mask = weight > 0))
307"CA", "CA", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "AR", "AR", "AR", "AR", "AR", "AR"
308array = getRefined(array, weight, skip)
309array
310"CA", "CA", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "AR", "AR", "AR", "AR", "AR", "AR"
311
312nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
313nsam
314+7
315skip
316+1
317weight = getUnifRand(-1, 9, nsam)
318weight
319+6, +7, +6, +4, +4, +6, +6
320array = getUnifRand('AA', 'ZZ', nsam)
321array
322"SL", "SO", "LW", "TZ", "RC", "FA", "SU"
323getVerbose(array, weight, sum(weight, mask = weight > 0))
324"SL", "SL", "SL", "SL", "SL", "SL", "SO", "SO", "SO", "SO", "SO", "SO", "SO", "LW", "LW", "LW", "LW", "LW", "LW", "TZ", "TZ", "TZ", "TZ", "RC", "RC", "RC", "RC", "FA", "FA", "FA", "FA", "FA", "FA", "SU", "SU", "SU", "SU", "SU", "SU"
325array = getRefined(array, weight, skip)
326array
327"SL", "SL", "SL", "SL", "SL", "SL", "SO", "SO", "SO", "SO", "SO", "SO", "SO", "LW", "LW", "LW", "LW", "LW", "LW", "TZ", "TZ", "TZ", "TZ", "RC", "RC", "RC", "RC", "FA", "FA", "FA", "FA", "FA", "FA", "SU", "SU", "SU", "SU", "SU", "SU"
328
329nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
330nsam
331+8
332skip
333+4
334weight = getUnifRand(-1, 9, nsam)
335weight
336+4, +0, +9, +1, +2, -1, +9, +3
337array = getUnifRand('AA', 'ZZ', nsam)
338array
339"WI", "MK", "KV", "FU", "VL", "SR", "RJ", "KE"
340getVerbose(array, weight, sum(weight, mask = weight > 0))
341"WI", "WI", "WI", "WI", "KV", "KV", "KV", "KV", "KV", "KV", "KV", "KV", "KV", "FU", "VL", "VL", "RJ", "RJ", "RJ", "RJ", "RJ", "RJ", "RJ", "RJ", "RJ", "KE", "KE", "KE"
342array = getRefined(array, weight, skip)
343array
344"WI", "KV", "KV", "VL", "RJ", "RJ", "KE"
345
346nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
347nsam
348+7
349skip
350+4
351weight = getUnifRand(-1, 9, nsam)
352weight
353+3, +0, +3, +7, +0, +6, +6
354array = getUnifRand(0, 9, nsam)
355array
356+1, +5, +4, +0, +2, +5, +8
357getVerbose(array, weight, sum(weight, mask = weight > 0))
358+1, +1, +1, +4, +4, +4, +0, +0, +0, +0, +0, +0, +0, +5, +5, +5, +5, +5, +5, +8, +8, +8, +8, +8, +8
359array = getRefined(array, weight, skip)
360array
361+4, +0, +0, +5, +8, +8
362
363nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
364nsam
365+6
366skip
367+1
368weight = getUnifRand(-1, 9, nsam)
369weight
370+3, +8, +6, +1, +7, +6
371array = getUnifRand(0, 9, nsam)
372array
373+9, +2, +8, +5, +4, +1
374getVerbose(array, weight, sum(weight, mask = weight > 0))
375+9, +9, +9, +2, +2, +2, +2, +2, +2, +2, +2, +8, +8, +8, +8, +8, +8, +5, +4, +4, +4, +4, +4, +4, +4, +1, +1, +1, +1, +1, +1
376array = getRefined(array, weight, skip)
377array
378+9, +9, +9, +2, +2, +2, +2, +2, +2, +2, +2, +8, +8, +8, +8, +8, +8, +5, +4, +4, +4, +4, +4, +4, +4, +1, +1, +1, +1, +1, +1
379
380nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
381nsam
382+0
383skip
384+2
385weight = getUnifRand(-1, 9, nsam)
386weight
387
388array = getUnifRand(0, 9, nsam)
389array
390
391getVerbose(array, weight, sum(weight, mask = weight > 0))
392
393array = getRefined(array, weight, skip)
394array
395
396
397nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
398nsam
399+7
400skip
401+4
402weight = getUnifRand(-1, 9, nsam)
403weight
404+0, +7, +6, +6, +4, +5, +2
405array = getUnifRand(0, 9, nsam)
406array
407+6, +7, +4, +4, +6, +0, +0
408getVerbose(array, weight, sum(weight, mask = weight > 0))
409+7, +7, +7, +7, +7, +7, +7, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +6, +6, +6, +6, +0, +0, +0, +0, +0, +0, +0
410array = getRefined(array, weight, skip)
411array
412+7, +4, +4, +4, +6, +0, +0
413
414nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
415nsam
416+9
417skip
418+2
419weight = getUnifRand(-1, 9, nsam)
420weight
421+1, +5, +3, +2, +8, -1, +3, +4, +1
422array = getUnifRand(0, 9, nsam)
423array
424+2, +5, +9, +6, +4, +3, +3, +1, +4
425getVerbose(array, weight, sum(weight, mask = weight > 0))
426+2, +5, +5, +5, +5, +5, +9, +9, +9, +6, +6, +4, +4, +4, +4, +4, +4, +4, +4, +3, +3, +3, +1, +1, +1, +1, +4
427array = getRefined(array, weight, skip)
428array
429+5, +5, +5, +9, +6, +4, +4, +4, +4, +3, +3, +1, +1
430
431nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
432nsam
433+2
434skip
435+3
436weight = getUnifRand(-1, 9, nsam)
437weight
438-1, +8
439array = getUnifRand(0, 9, nsam)
440array
441+3, +5
442getVerbose(array, weight, sum(weight, mask = weight > 0))
443+5, +5, +5, +5, +5, +5, +5, +5
444array = getRefined(array, weight, skip)
445array
446+5, +5
447
448nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
449nsam
450+3
451skip
452+3
453weight = getUnifRand(-1, 9, nsam)
454weight
455+8, +1, +8
456array = getUnifRand(0, 9, nsam)
457array
458+6, +8, +0
459getVerbose(array, weight, sum(weight, mask = weight > 0))
460+6, +6, +6, +6, +6, +6, +6, +6, +8, +0, +0, +0, +0, +0, +0, +0, +0
461array = getRefined(array, weight, skip)
462array
463+6, +6, +8, +0, +0
464
465nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
466nsam
467+0
468skip
469+4
470weight = getUnifRand(-1, 9, nsam)
471weight
472
473array = getUnifRand(0, 9, nsam)
474array
475
476getVerbose(array, weight, sum(weight, mask = weight > 0))
477
478array = getRefined(array, weight, skip)
479array
480
481
482nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
483nsam
484+6
485skip
486+1
487weight = getUnifRand(-1, 9, nsam)
488weight
489-1, +8, -1, +4, +1, +2
490array = getUnifRand(0, 9, nsam)
491array
492+9, +6, +3, +6, +6, +7
493getVerbose(array, weight, sum(weight, mask = weight > 0))
494+6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +7, +7
495array = getRefined(array, weight, skip)
496array
497+6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +6, +7, +7
498
499nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
500nsam
501+1
502skip
503+4
504weight = getUnifRand(-1, 9, nsam)
505weight
506+0
507array = getUnifRand(0, 9, nsam)
508array
509+5
510getVerbose(array, weight, sum(weight, mask = weight > 0))
511
512array = getRefined(array, weight, skip)
513array
514
515
516nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
517nsam
518+0
519skip
520+1
521weight = getUnifRand(-1, 9, nsam)
522weight
523
524array = getUnifRand(.false., .true., nsam)
525array
526
527getVerbose(array, weight, sum(weight, mask = weight > 0))
528
529array = getRefined(array, weight, skip)
530array
531
532
533nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
534nsam
535+7
536skip
537+1
538weight = getUnifRand(-1, 9, nsam)
539weight
540+6, +5, +9, +3, +2, +5, +2
541array = getUnifRand(.false., .true., nsam)
542array
543T, T, F, T, T, T, T
544getVerbose(array, weight, sum(weight, mask = weight > 0))
545T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T
546array = getRefined(array, weight, skip)
547array
548T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T
549
550nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
551nsam
552+6
553skip
554+4
555weight = getUnifRand(-1, 9, nsam)
556weight
557+5, +2, +4, -1, +7, +2
558array = getUnifRand(.false., .true., nsam)
559array
560F, F, F, F, T, T
561getVerbose(array, weight, sum(weight, mask = weight > 0))
562F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T
563array = getRefined(array, weight, skip)
564array
565F, F, T, T, T
566
567nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
568nsam
569+9
570skip
571+1
572weight = getUnifRand(-1, 9, nsam)
573weight
574+8, +0, +6, +0, +5, +3, +2, +5, +0
575array = getUnifRand(.false., .true., nsam)
576array
577F, T, T, F, T, T, F, F, T
578getVerbose(array, weight, sum(weight, mask = weight > 0))
579F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F
580array = getRefined(array, weight, skip)
581array
582F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F
583
584nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
585nsam
586+7
587skip
588+3
589weight = getUnifRand(-1, 9, nsam)
590weight
591+4, +6, +8, +3, -1, +7, +9
592array = getUnifRand(.false., .true., nsam)
593array
594T, T, T, T, T, F, F
595getVerbose(array, weight, sum(weight, mask = weight > 0))
596T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F
597array = getRefined(array, weight, skip)
598array
599T, T, T, T, T, T, T, F, F, F, F, F
600
601nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
602nsam
603+3
604skip
605+1
606weight = getUnifRand(-1, 9, nsam)
607weight
608+6, +1, +2
609array = getUnifRand(.false., .true., nsam)
610array
611F, F, F
612getVerbose(array, weight, sum(weight, mask = weight > 0))
613F, F, F, F, F, F, F, F, F
614array = getRefined(array, weight, skip)
615array
616F, F, F, F, F, F, F, F, F
617
618nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
619nsam
620+3
621skip
622+4
623weight = getUnifRand(-1, 9, nsam)
624weight
625+6, +9, +2
626array = getUnifRand(.false., .true., nsam)
627array
628F, F, F
629getVerbose(array, weight, sum(weight, mask = weight > 0))
630F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F
631array = getRefined(array, weight, skip)
632array
633F, F, F, F
634
635nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
636nsam
637+9
638skip
639+3
640weight = getUnifRand(-1, 9, nsam)
641weight
642+5, +9, +8, +1, +9, +4, +3, +9, +2
643array = getUnifRand(.false., .true., nsam)
644array
645F, F, T, F, T, T, T, T, F
646getVerbose(array, weight, sum(weight, mask = weight > 0))
647F, F, F, F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, F, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, F, F
648array = getRefined(array, weight, skip)
649array
650F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T
651
652nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
653nsam
654+3
655skip
656+4
657weight = getUnifRand(-1, 9, nsam)
658weight
659+5, +4, +6
660array = getUnifRand(.false., .true., nsam)
661array
662T, F, T
663getVerbose(array, weight, sum(weight, mask = weight > 0))
664T, T, T, T, T, F, F, F, F, T, T, T, T, T, T
665array = getRefined(array, weight, skip)
666array
667T, F, T
668
669nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
670nsam
671+3
672skip
673+2
674weight = getUnifRand(-1, 9, nsam)
675weight
676-1, +0, +5
677array = getUnifRand(.false., .true., nsam)
678array
679T, T, F
680getVerbose(array, weight, sum(weight, mask = weight > 0))
681F, F, F, F, F
682array = getRefined(array, weight, skip)
683array
684F, F
685
686nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
687nsam
688+8
689skip
690+4
691weight = getUnifRand(-1, 9, nsam)
692weight
693+5, +7, -1, +6, -1, +6, +2, +5
694array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
695array
696(+9.00000000, +2.00000000), (+2.00000000, +6.00000000), (+6.00000000, +6.00000000), (+4.00000000, +7.00000000), (+2.00000000, +6.00000000), (+0.00000000, +8.00000000), (+1.00000000, +7.00000000), (+1.00000000, +6.00000000)
697getVerbose(array, weight, sum(weight, mask = weight > 0))
698(+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+1.00000000, +7.00000000), (+1.00000000, +7.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000)
699array = getRefined(array, weight, skip)
700array
701(+9.00000000, +2.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+4.00000000, +7.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+1.00000000, +6.00000000)
702
703nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
704nsam
705+0
706skip
707+2
708weight = getUnifRand(-1, 9, nsam)
709weight
710
711array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
712array
713
714getVerbose(array, weight, sum(weight, mask = weight > 0))
715
716array = getRefined(array, weight, skip)
717array
718
719
720nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
721nsam
722+4
723skip
724+1
725weight = getUnifRand(-1, 9, nsam)
726weight
727+4, +8, +6, +2
728array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
729array
730(+1.00000000, +6.00000000), (+6.00000000, +8.00000000), (+1.00000000, +9.00000000), (+8.00000000, +9.00000000)
731getVerbose(array, weight, sum(weight, mask = weight > 0))
732(+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000)
733array = getRefined(array, weight, skip)
734array
735(+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+1.00000000, +6.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+6.00000000, +8.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000)
736
737nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
738nsam
739+8
740skip
741+1
742weight = getUnifRand(-1, 9, nsam)
743weight
744-1, +4, +6, +2, +7, +6, +6, +4
745array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
746array
747(+0.00000000, +3.00000000), (+8.00000000, +0.00000000), (+8.00000000, +2.00000000), (+9.00000000, +3.00000000), (+6.00000000, +9.00000000), (+9.00000000, +9.00000000), (+2.00000000, +4.00000000), (+4.00000000, +1.00000000)
748getVerbose(array, weight, sum(weight, mask = weight > 0))
749(+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+9.00000000, +3.00000000), (+9.00000000, +3.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000)
750array = getRefined(array, weight, skip)
751array
752(+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+9.00000000, +3.00000000), (+9.00000000, +3.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000)
753
754nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
755nsam
756+4
757skip
758+3
759weight = getUnifRand(-1, 9, nsam)
760weight
761+1, +6, +7, +5
762array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
763array
764(+7.00000000, +4.00000000), (+2.00000000, +6.00000000), (+1.00000000, +5.00000000), (+9.00000000, +9.00000000)
765getVerbose(array, weight, sum(weight, mask = weight > 0))
766(+7.00000000, +4.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000)
767array = getRefined(array, weight, skip)
768array
769(+2.00000000, +6.00000000), (+2.00000000, +6.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000)
770
771nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
772nsam
773+6
774skip
775+3
776weight = getUnifRand(-1, 9, nsam)
777weight
778-1, -1, +7, +6, +0, +1
779array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
780array
781(+8.00000000, +3.00000000), (+8.00000000, +8.00000000), (+6.00000000, +7.00000000), (+4.00000000, +2.00000000), (+9.00000000, +0.00000000), (+4.00000000, +3.00000000)
782getVerbose(array, weight, sum(weight, mask = weight > 0))
783(+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +3.00000000)
784array = getRefined(array, weight, skip)
785array
786(+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000)
787
788nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
789nsam
790+4
791skip
792+4
793weight = getUnifRand(-1, 9, nsam)
794weight
795+2, -1, +4, +3
796array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
797array
798(+3.00000000, +9.00000000), (+3.00000000, +5.00000000), (+3.00000000, +2.00000000), (+9.00000000, +0.00000000)
799getVerbose(array, weight, sum(weight, mask = weight > 0))
800(+3.00000000, +9.00000000), (+3.00000000, +9.00000000), (+3.00000000, +2.00000000), (+3.00000000, +2.00000000), (+3.00000000, +2.00000000), (+3.00000000, +2.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000)
801array = getRefined(array, weight, skip)
802array
803(+3.00000000, +2.00000000), (+9.00000000, +0.00000000)
804
805nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
806nsam
807+6
808skip
809+2
810weight = getUnifRand(-1, 9, nsam)
811weight
812-1, +5, +8, +2, +9, +5
813array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
814array
815(+8.00000000, +5.00000000), (+9.00000000, +0.00000000), (+0.00000000, +7.00000000), (+1.00000000, +1.00000000), (+0.00000000, +4.00000000), (+7.00000000, +1.00000000)
816getVerbose(array, weight, sum(weight, mask = weight > 0))
817(+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+1.00000000, +1.00000000), (+1.00000000, +1.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000)
818array = getRefined(array, weight, skip)
819array
820(+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+1.00000000, +1.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000)
821
822nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
823nsam
824+7
825skip
826+3
827weight = getUnifRand(-1, 9, nsam)
828weight
829+2, +0, +3, +8, +6, +8, +6
830array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
831array
832(+3.00000000, +7.00000000), (+4.00000000, +8.00000000), (+1.00000000, +9.00000000), (+1.00000000, +4.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+6.00000000, +5.00000000)
833getVerbose(array, weight, sum(weight, mask = weight > 0))
834(+3.00000000, +7.00000000), (+3.00000000, +7.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000)
835array = getRefined(array, weight, skip)
836array
837(+1.00000000, +9.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000)
838
839nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
840nsam
841+4
842skip
843+2
844weight = getUnifRand(-1, 9, nsam)
845weight
846-1, +9, +5, +7
847array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
848array
849(+9.00000000, +4.00000000), (+2.00000000, +0.00000000), (+6.00000000, +0.00000000), (+3.00000000, +6.00000000)
850getVerbose(array, weight, sum(weight, mask = weight > 0))
851(+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000)
852array = getRefined(array, weight, skip)
853array
854(+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000)
855
856nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
857nsam
858+7
859skip
860+4
861weight = getUnifRand(-1, 9, nsam)
862weight
863+4, +3, +4, +2, +7, +3, +8
864array = getUnifRand(0, 9, nsam)
865array
866+8.00000000, +9.00000000, +1.00000000, +9.00000000, +8.00000000, +4.00000000, +4.00000000
867getVerbose(array, weight, sum(weight, mask = weight > 0))
868+8.00000000, +8.00000000, +8.00000000, +8.00000000, +9.00000000, +9.00000000, +9.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +9.00000000, +9.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000
869array = getRefined(array, weight, skip)
870array
871+8.00000000, +1.00000000, +9.00000000, +8.00000000, +8.00000000, +4.00000000, +4.00000000
872
873nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
874nsam
875+5
876skip
877+2
878weight = getUnifRand(-1, 9, nsam)
879weight
880+4, +3, +7, +4, +9
881array = getUnifRand(0, 9, nsam)
882array
883+4.00000000, +5.00000000, +0.00000000, +5.00000000, +6.00000000
884getVerbose(array, weight, sum(weight, mask = weight > 0))
885+4.00000000, +4.00000000, +4.00000000, +4.00000000, +5.00000000, +5.00000000, +5.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000
886array = getRefined(array, weight, skip)
887array
888+4.00000000, +4.00000000, +5.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +5.00000000, +5.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000
889
890nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
891nsam
892+5
893skip
894+1
895weight = getUnifRand(-1, 9, nsam)
896weight
897+3, +4, +9, +3, +1
898array = getUnifRand(0, 9, nsam)
899array
900+8.00000000, +3.00000000, +6.00000000, +7.00000000, +2.00000000
901getVerbose(array, weight, sum(weight, mask = weight > 0))
902+8.00000000, +8.00000000, +8.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +7.00000000, +7.00000000, +7.00000000, +2.00000000
903array = getRefined(array, weight, skip)
904array
905+8.00000000, +8.00000000, +8.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +7.00000000, +7.00000000, +7.00000000, +2.00000000
906
907nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
908nsam
909+7
910skip
911+3
912weight = getUnifRand(-1, 9, nsam)
913weight
914+7, +6, +5, -1, +8, +7, +3
915array = getUnifRand(0, 9, nsam)
916array
917+1.00000000, +1.00000000, +6.00000000, +3.00000000, +4.00000000, +9.00000000, +4.00000000
918getVerbose(array, weight, sum(weight, mask = weight > 0))
919+1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +4.00000000, +4.00000000, +4.00000000
920array = getRefined(array, weight, skip)
921array
922+1.00000000, +1.00000000, +1.00000000, +1.00000000, +6.00000000, +6.00000000, +4.00000000, +4.00000000, +9.00000000, +9.00000000, +9.00000000, +4.00000000
923
924nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
925nsam
926+6
927skip
928+3
929weight = getUnifRand(-1, 9, nsam)
930weight
931+1, +6, +9, +0, +7, +4
932array = getUnifRand(0, 9, nsam)
933array
934+8.00000000, +7.00000000, +2.00000000, +2.00000000, +4.00000000, +3.00000000
935getVerbose(array, weight, sum(weight, mask = weight > 0))
936+8.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000
937array = getRefined(array, weight, skip)
938array
939+7.00000000, +7.00000000, +2.00000000, +2.00000000, +2.00000000, +4.00000000, +4.00000000, +3.00000000, +3.00000000
940
941nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
942nsam
943+6
944skip
945+3
946weight = getUnifRand(-1, 9, nsam)
947weight
948-1, +4, +6, +4, +7, +7
949array = getUnifRand(0, 9, nsam)
950array
951+7.00000000, +1.00000000, +4.00000000, +2.00000000, +7.00000000, +8.00000000
952getVerbose(array, weight, sum(weight, mask = weight > 0))
953+1.00000000, +1.00000000, +1.00000000, +1.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000
954array = getRefined(array, weight, skip)
955array
956+1.00000000, +4.00000000, +4.00000000, +2.00000000, +7.00000000, +7.00000000, +7.00000000, +8.00000000, +8.00000000
957
958nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
959nsam
960+7
961skip
962+1
963weight = getUnifRand(-1, 9, nsam)
964weight
965+4, +4, +6, +3, +4, +9, +2
966array = getUnifRand(0, 9, nsam)
967array
968+2.00000000, +2.00000000, +6.00000000, +2.00000000, +0.00000000, +2.00000000, +7.00000000
969getVerbose(array, weight, sum(weight, mask = weight > 0))
970+2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +2.00000000, +2.00000000, +2.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +7.00000000, +7.00000000
971array = getRefined(array, weight, skip)
972array
973+2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +2.00000000, +2.00000000, +2.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +7.00000000, +7.00000000
974
975nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
976nsam
977+1
978skip
979+3
980weight = getUnifRand(-1, 9, nsam)
981weight
982+4
983array = getUnifRand(0, 9, nsam)
984array
985+6.00000000
986getVerbose(array, weight, sum(weight, mask = weight > 0))
987+6.00000000, +6.00000000, +6.00000000, +6.00000000
988array = getRefined(array, weight, skip)
989array
990+6.00000000
991
992nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
993nsam
994+3
995skip
996+3
997weight = getUnifRand(-1, 9, nsam)
998weight
999+3, +8, +2
1000array = getUnifRand(0, 9, nsam)
1001array
1002+6.00000000, +0.00000000, +9.00000000
1003getVerbose(array, weight, sum(weight, mask = weight > 0))
1004+6.00000000, +6.00000000, +6.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +9.00000000, +9.00000000
1005array = getRefined(array, weight, skip)
1006array
1007+6.00000000, +0.00000000, +0.00000000, +9.00000000
1008
1009nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1010nsam
1011+3
1012skip
1013+2
1014weight = getUnifRand(-1, 9, nsam)
1015weight
1016+4, +3, +6
1017array = getUnifRand(0, 9, nsam)
1018array
1019+0.00000000, +2.00000000, +6.00000000
1020getVerbose(array, weight, sum(weight, mask = weight > 0))
1021+0.00000000, +0.00000000, +0.00000000, +0.00000000, +2.00000000, +2.00000000, +2.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000
1022array = getRefined(array, weight, skip)
1023array
1024+0.00000000, +0.00000000, +2.00000000, +6.00000000, +6.00000000, +6.00000000
1025
1026
1027!%%%%%%%%%%%%%%%%%
1028! Refine 2D array.
1029!%%%%%%%%%%%%%%%%%
1030
1031dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1032[dim, ndim, nsam]
1033+2, +0, +8
1034skip
1035+4
1036weight = getUnifRand(-1, 9, nsam)
1037weight
1038+4, +4, +3, +3, +8, +7, +2, +2
1039array = getUnifRand('AA', 'ZZ', ndim, nsam)
1040array
1041getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1042arref = getRefined(array, dim, weight, skip)
1043arref
1044arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1045arref
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1056[dim, ndim, nsam]
1057+2, +1, +4
1058skip
1059+4
1060weight = getUnifRand(-1, 9, nsam)
1061weight
1062-1, +8, -1, -1
1063array = getUnifRand('AA', 'ZZ', ndim, nsam)
1064array
1065"YF", "LQ", "TY", "CA"
1066getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1067"LQ", "LQ", "LQ", "LQ", "LQ", "LQ", "LQ", "LQ"
1068arref = getRefined(array, dim, weight, skip)
1069arref
1070"LQ", "LQ"
1071arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1072arref
1073"LQ"
1074"LQ"
1075
1076dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1077[dim, ndim, nsam]
1078+2, +0, +1
1079skip
1080+1
1081weight = getUnifRand(-1, 9, nsam)
1082weight
1083+5
1084array = getUnifRand('AA', 'ZZ', ndim, nsam)
1085array
1086getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1087arref = getRefined(array, dim, weight, skip)
1088arref
1089arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1090arref
1091
1092
1093
1094
1095
1096
1097dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1098[dim, ndim, nsam]
1099+2, +3, +1
1100skip
1101+4
1102weight = getUnifRand(-1, 9, nsam)
1103weight
1104+1
1105array = getUnifRand('AA', 'ZZ', ndim, nsam)
1106array
1107"NV"
1108"JN"
1109"TU"
1110getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1111"NV"
1112"JN"
1113"TU"
1114arref = getRefined(array, dim, weight, skip)
1115arref
1116
1117
1118
1119arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1120arref
1121
1122dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1123[dim, ndim, nsam]
1124+2, +1, +2
1125skip
1126+2
1127weight = getUnifRand(-1, 9, nsam)
1128weight
1129+9, +6
1130array = getUnifRand('AA', 'ZZ', ndim, nsam)
1131array
1132"BH", "XK"
1133getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1134"BH", "BH", "BH", "BH", "BH", "BH", "BH", "BH", "BH", "XK", "XK", "XK", "XK", "XK", "XK"
1135arref = getRefined(array, dim, weight, skip)
1136arref
1137"BH", "BH", "BH", "BH", "XK", "XK", "XK"
1138arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1139arref
1140"BH"
1141"BH"
1142"BH"
1143"BH"
1144"XK"
1145"XK"
1146"XK"
1147
1148dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1149[dim, ndim, nsam]
1150+2, +0, +2
1151skip
1152+1
1153weight = getUnifRand(-1, 9, nsam)
1154weight
1155+2, +5
1156array = getUnifRand('AA', 'ZZ', ndim, nsam)
1157array
1158getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1159arref = getRefined(array, dim, weight, skip)
1160arref
1161arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1162arref
1163
1164
1165
1166
1167
1168
1169
1170
1171dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1172[dim, ndim, nsam]
1173+2, +2, +0
1174skip
1175+1
1176weight = getUnifRand(-1, 9, nsam)
1177weight
1178
1179array = getUnifRand('AA', 'ZZ', ndim, nsam)
1180array
1181
1182
1183getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1184
1185
1186arref = getRefined(array, dim, weight, skip)
1187arref
1188
1189
1190arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1191arref
1192
1193dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1194[dim, ndim, nsam]
1195+2, +3, +5
1196skip
1197+2
1198weight = getUnifRand(-1, 9, nsam)
1199weight
1200+3, +5, +6, +1, +0
1201array = getUnifRand('AA', 'ZZ', ndim, nsam)
1202array
1203"BR", "FJ", "KR", "WH", "ZM"
1204"OQ", "KZ", "YB", "TM", "JP"
1205"TN", "CM", "BW", "RW", "CQ"
1206getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1207"BR", "BR", "BR", "FJ", "FJ", "FJ", "FJ", "FJ", "KR", "KR", "KR", "KR", "KR", "KR", "WH"
1208"OQ", "OQ", "OQ", "KZ", "KZ", "KZ", "KZ", "KZ", "YB", "YB", "YB", "YB", "YB", "YB", "TM"
1209"TN", "TN", "TN", "CM", "CM", "CM", "CM", "CM", "BW", "BW", "BW", "BW", "BW", "BW", "RW"
1210arref = getRefined(array, dim, weight, skip)
1211arref
1212"BR", "FJ", "FJ", "FJ", "KR", "KR", "KR"
1213"OQ", "KZ", "KZ", "KZ", "YB", "YB", "YB"
1214"TN", "CM", "CM", "CM", "BW", "BW", "BW"
1215arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1216arref
1217"BR", "OQ", "TN"
1218"FJ", "KZ", "CM"
1219"FJ", "KZ", "CM"
1220"FJ", "KZ", "CM"
1221"KR", "YB", "BW"
1222"KR", "YB", "BW"
1223"KR", "YB", "BW"
1224
1225dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1226[dim, ndim, nsam]
1227+2, +2, +5
1228skip
1229+1
1230weight = getUnifRand(-1, 9, nsam)
1231weight
1232+7, +3, +7, +8, -1
1233array = getUnifRand('AA', 'ZZ', ndim, nsam)
1234array
1235"DD", "AW", "MY", "FX", "CQ"
1236"HV", "LV", "OA", "QX", "GW"
1237getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1238"DD", "DD", "DD", "DD", "DD", "DD", "DD", "AW", "AW", "AW", "MY", "MY", "MY", "MY", "MY", "MY", "MY", "FX", "FX", "FX", "FX", "FX", "FX", "FX", "FX"
1239"HV", "HV", "HV", "HV", "HV", "HV", "HV", "LV", "LV", "LV", "OA", "OA", "OA", "OA", "OA", "OA", "OA", "QX", "QX", "QX", "QX", "QX", "QX", "QX", "QX"
1240arref = getRefined(array, dim, weight, skip)
1241arref
1242"DD", "DD", "DD", "DD", "DD", "DD", "DD", "AW", "AW", "AW", "MY", "MY", "MY", "MY", "MY", "MY", "MY", "FX", "FX", "FX", "FX", "FX", "FX", "FX", "FX"
1243"HV", "HV", "HV", "HV", "HV", "HV", "HV", "LV", "LV", "LV", "OA", "OA", "OA", "OA", "OA", "OA", "OA", "QX", "QX", "QX", "QX", "QX", "QX", "QX", "QX"
1244arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1245arref
1246"DD", "HV"
1247"DD", "HV"
1248"DD", "HV"
1249"DD", "HV"
1250"DD", "HV"
1251"DD", "HV"
1252"DD", "HV"
1253"AW", "LV"
1254"AW", "LV"
1255"AW", "LV"
1256"MY", "OA"
1257"MY", "OA"
1258"MY", "OA"
1259"MY", "OA"
1260"MY", "OA"
1261"MY", "OA"
1262"MY", "OA"
1263"FX", "QX"
1264"FX", "QX"
1265"FX", "QX"
1266"FX", "QX"
1267"FX", "QX"
1268"FX", "QX"
1269"FX", "QX"
1270"FX", "QX"
1271
1272dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1273[dim, ndim, nsam]
1274+2, +3, +8
1275skip
1276+3
1277weight = getUnifRand(-1, 9, nsam)
1278weight
1279+5, +9, +9, +9, +9, +6, -1, +1
1280array = getUnifRand('AA', 'ZZ', ndim, nsam)
1281array
1282"RA", "PP", "JI", "YK", "RF", "FW", "ZX", "UV"
1283"BK", "BE", "ET", "QX", "JW", "SQ", "TC", "JJ"
1284"OS", "QQ", "MG", "IC", "NR", "JO", "YH", "PM"
1285getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1286"RA", "RA", "RA", "RA", "RA", "PP", "PP", "PP", "PP", "PP", "PP", "PP", "PP", "PP", "JI", "JI", "JI", "JI", "JI", "JI", "JI", "JI", "JI", "YK", "YK", "YK", "YK", "YK", "YK", "YK", "YK", "YK", "RF", "RF", "RF", "RF", "RF", "RF", "RF", "RF", "RF", "FW", "FW", "FW", "FW", "FW", "FW", "UV"
1287"BK", "BK", "BK", "BK", "BK", "BE", "BE", "BE", "BE", "BE", "BE", "BE", "BE", "BE", "ET", "ET", "ET", "ET", "ET", "ET", "ET", "ET", "ET", "QX", "QX", "QX", "QX", "QX", "QX", "QX", "QX", "QX", "JW", "JW", "JW", "JW", "JW", "JW", "JW", "JW", "JW", "SQ", "SQ", "SQ", "SQ", "SQ", "SQ", "JJ"
1288"OS", "OS", "OS", "OS", "OS", "QQ", "QQ", "QQ", "QQ", "QQ", "QQ", "QQ", "QQ", "QQ", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "MG", "IC", "IC", "IC", "IC", "IC", "IC", "IC", "IC", "IC", "NR", "NR", "NR", "NR", "NR", "NR", "NR", "NR", "NR", "JO", "JO", "JO", "JO", "JO", "JO", "PM"
1289arref = getRefined(array, dim, weight, skip)
1290arref
1291"RA", "PP", "PP", "PP", "JI", "JI", "JI", "YK", "YK", "YK", "RF", "RF", "RF", "FW", "FW", "UV"
1292"BK", "BE", "BE", "BE", "ET", "ET", "ET", "QX", "QX", "QX", "JW", "JW", "JW", "SQ", "SQ", "JJ"
1293"OS", "QQ", "QQ", "QQ", "MG", "MG", "MG", "IC", "IC", "IC", "NR", "NR", "NR", "JO", "JO", "PM"
1294arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1295arref
1296"RA", "BK", "OS"
1297"PP", "BE", "QQ"
1298"PP", "BE", "QQ"
1299"PP", "BE", "QQ"
1300"JI", "ET", "MG"
1301"JI", "ET", "MG"
1302"JI", "ET", "MG"
1303"YK", "QX", "IC"
1304"YK", "QX", "IC"
1305"YK", "QX", "IC"
1306"RF", "JW", "NR"
1307"RF", "JW", "NR"
1308"RF", "JW", "NR"
1309"FW", "SQ", "JO"
1310"FW", "SQ", "JO"
1311"UV", "JJ", "PM"
1312
1313dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1314[dim, ndim, nsam]
1315+2, +3, +5
1316skip
1317+2
1318weight = getUnifRand(-1, 9, nsam)
1319weight
1320+6, +9, +2, +5, +7
1321array = getUnifRand(0, 9, ndim, nsam)
1322array
1323+9, +0, +9, +0, +3
1324+7, +2, +8, +2, +0
1325+7, +2, +5, +8, +6
1326getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1327+9, +9, +9, +9, +9, +9, +0, +0, +0, +0, +0, +0, +0, +0, +0, +9, +9, +0, +0, +0, +0, +0, +3, +3, +3, +3, +3, +3, +3
1328+7, +7, +7, +7, +7, +7, +2, +2, +2, +2, +2, +2, +2, +2, +2, +8, +8, +2, +2, +2, +2, +2, +0, +0, +0, +0, +0, +0, +0
1329+7, +7, +7, +7, +7, +7, +2, +2, +2, +2, +2, +2, +2, +2, +2, +5, +5, +8, +8, +8, +8, +8, +6, +6, +6, +6, +6, +6, +6
1330arref = getRefined(array, dim, weight, skip)
1331arref
1332+9, +9, +9, +0, +0, +0, +0, +9, +0, +0, +0, +3, +3, +3
1333+7, +7, +7, +2, +2, +2, +2, +8, +2, +2, +2, +0, +0, +0
1334+7, +7, +7, +2, +2, +2, +2, +5, +8, +8, +8, +6, +6, +6
1335arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1336arref
1337+9, +7, +7
1338+9, +7, +7
1339+9, +7, +7
1340+0, +2, +2
1341+0, +2, +2
1342+0, +2, +2
1343+0, +2, +2
1344+9, +8, +5
1345+0, +2, +8
1346+0, +2, +8
1347+0, +2, +8
1348+3, +0, +6
1349+3, +0, +6
1350+3, +0, +6
1351
1352dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1353[dim, ndim, nsam]
1354+2, +2, +4
1355skip
1356+2
1357weight = getUnifRand(-1, 9, nsam)
1358weight
1359+6, +4, +8, -1
1360array = getUnifRand(0, 9, ndim, nsam)
1361array
1362+1, +9, +3, +9
1363+5, +7, +6, +1
1364getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1365+1, +1, +1, +1, +1, +1, +9, +9, +9, +9, +3, +3, +3, +3, +3, +3, +3, +3
1366+5, +5, +5, +5, +5, +5, +7, +7, +7, +7, +6, +6, +6, +6, +6, +6, +6, +6
1367arref = getRefined(array, dim, weight, skip)
1368arref
1369+1, +1, +1, +9, +9, +3, +3, +3, +3
1370+5, +5, +5, +7, +7, +6, +6, +6, +6
1371arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1372arref
1373+1, +5
1374+1, +5
1375+1, +5
1376+9, +7
1377+9, +7
1378+3, +6
1379+3, +6
1380+3, +6
1381+3, +6
1382
1383dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1384[dim, ndim, nsam]
1385+2, +2, +1
1386skip
1387+3
1388weight = getUnifRand(-1, 9, nsam)
1389weight
1390+6
1391array = getUnifRand(0, 9, ndim, nsam)
1392array
1393+4
1394+9
1395getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1396+4, +4, +4, +4, +4, +4
1397+9, +9, +9, +9, +9, +9
1398arref = getRefined(array, dim, weight, skip)
1399arref
1400+4, +4
1401+9, +9
1402arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1403arref
1404+4, +9
1405+4, +9
1406
1407dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1408[dim, ndim, nsam]
1409+2, +0, +3
1410skip
1411+3
1412weight = getUnifRand(-1, 9, nsam)
1413weight
1414+2, +2, +6
1415array = getUnifRand(0, 9, ndim, nsam)
1416array
1417getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1418arref = getRefined(array, dim, weight, skip)
1419arref
1420arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1421arref
1422
1423
1424
1425
1426dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1427[dim, ndim, nsam]
1428+2, +0, +4
1429skip
1430+1
1431weight = getUnifRand(-1, 9, nsam)
1432weight
1433+8, +4, +3, +9
1434array = getUnifRand(0, 9, ndim, nsam)
1435array
1436getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1437arref = getRefined(array, dim, weight, skip)
1438arref
1439arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1440arref
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1467[dim, ndim, nsam]
1468+2, +2, +4
1469skip
1470+4
1471weight = getUnifRand(-1, 9, nsam)
1472weight
1473+0, +8, +9, +1
1474array = getUnifRand(0, 9, ndim, nsam)
1475array
1476+8, +3, +8, +7
1477+5, +2, +7, +4
1478getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1479+3, +3, +3, +3, +3, +3, +3, +3, +8, +8, +8, +8, +8, +8, +8, +8, +8, +7
1480+2, +2, +2, +2, +2, +2, +2, +2, +7, +7, +7, +7, +7, +7, +7, +7, +7, +4
1481arref = getRefined(array, dim, weight, skip)
1482arref
1483+3, +3, +8, +8
1484+2, +2, +7, +7
1485arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1486arref
1487+3, +2
1488+3, +2
1489+8, +7
1490+8, +7
1491
1492dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1493[dim, ndim, nsam]
1494+2, +1, +5
1495skip
1496+4
1497weight = getUnifRand(-1, 9, nsam)
1498weight
1499+0, +2, +7, +8, +0
1500array = getUnifRand(0, 9, ndim, nsam)
1501array
1502+1, +3, +0, +0, +1
1503getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1504+3, +3, +0, +0, +0, +0, +0, +0, +0, +0, +0, +0, +0, +0, +0, +0, +0
1505arref = getRefined(array, dim, weight, skip)
1506arref
1507+0, +0, +0, +0
1508arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1509arref
1510+0
1511+0
1512+0
1513+0
1514
1515dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1516[dim, ndim, nsam]
1517+2, +2, +0
1518skip
1519+4
1520weight = getUnifRand(-1, 9, nsam)
1521weight
1522
1523array = getUnifRand(0, 9, ndim, nsam)
1524array
1525
1526
1527getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1528
1529
1530arref = getRefined(array, dim, weight, skip)
1531arref
1532
1533
1534arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1535arref
1536
1537dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1538[dim, ndim, nsam]
1539+2, +1, +4
1540skip
1541+3
1542weight = getUnifRand(-1, 9, nsam)
1543weight
1544+4, +6, +5, +8
1545array = getUnifRand(0, 9, ndim, nsam)
1546array
1547+0, +6, +3, +0
1548getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1549+0, +0, +0, +0, +6, +6, +6, +6, +6, +6, +3, +3, +3, +3, +3, +0, +0, +0, +0, +0, +0, +0, +0
1550arref = getRefined(array, dim, weight, skip)
1551arref
1552+0, +6, +6, +3, +3, +0, +0
1553arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1554arref
1555+0
1556+6
1557+6
1558+3
1559+3
1560+0
1561+0
1562
1563dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1564[dim, ndim, nsam]
1565+2, +3, +7
1566skip
1567+1
1568weight = getUnifRand(-1, 9, nsam)
1569weight
1570+9, +4, +6, +9, +7, +1, +2
1571array = getUnifRand(0, 9, ndim, nsam)
1572array
1573+7, +6, +2, +0, +4, +9, +5
1574+1, +6, +7, +4, +8, +4, +5
1575+8, +8, +4, +1, +8, +6, +3
1576getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1577+7, +7, +7, +7, +7, +7, +7, +7, +7, +6, +6, +6, +6, +2, +2, +2, +2, +2, +2, +0, +0, +0, +0, +0, +0, +0, +0, +0, +4, +4, +4, +4, +4, +4, +4, +9, +5, +5
1578+1, +1, +1, +1, +1, +1, +1, +1, +1, +6, +6, +6, +6, +7, +7, +7, +7, +7, +7, +4, +4, +4, +4, +4, +4, +4, +4, +4, +8, +8, +8, +8, +8, +8, +8, +4, +5, +5
1579+8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +4, +4, +4, +4, +4, +4, +1, +1, +1, +1, +1, +1, +1, +1, +1, +8, +8, +8, +8, +8, +8, +8, +6, +3, +3
1580arref = getRefined(array, dim, weight, skip)
1581arref
1582+7, +7, +7, +7, +7, +7, +7, +7, +7, +6, +6, +6, +6, +2, +2, +2, +2, +2, +2, +0, +0, +0, +0, +0, +0, +0, +0, +0, +4, +4, +4, +4, +4, +4, +4, +9, +5, +5
1583+1, +1, +1, +1, +1, +1, +1, +1, +1, +6, +6, +6, +6, +7, +7, +7, +7, +7, +7, +4, +4, +4, +4, +4, +4, +4, +4, +4, +8, +8, +8, +8, +8, +8, +8, +4, +5, +5
1584+8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +8, +4, +4, +4, +4, +4, +4, +1, +1, +1, +1, +1, +1, +1, +1, +1, +8, +8, +8, +8, +8, +8, +8, +6, +3, +3
1585arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1586arref
1587+7, +1, +8
1588+7, +1, +8
1589+7, +1, +8
1590+7, +1, +8
1591+7, +1, +8
1592+7, +1, +8
1593+7, +1, +8
1594+7, +1, +8
1595+7, +1, +8
1596+6, +6, +8
1597+6, +6, +8
1598+6, +6, +8
1599+6, +6, +8
1600+2, +7, +4
1601+2, +7, +4
1602+2, +7, +4
1603+2, +7, +4
1604+2, +7, +4
1605+2, +7, +4
1606+0, +4, +1
1607+0, +4, +1
1608+0, +4, +1
1609+0, +4, +1
1610+0, +4, +1
1611+0, +4, +1
1612+0, +4, +1
1613+0, +4, +1
1614+0, +4, +1
1615+4, +8, +8
1616+4, +8, +8
1617+4, +8, +8
1618+4, +8, +8
1619+4, +8, +8
1620+4, +8, +8
1621+4, +8, +8
1622+9, +4, +6
1623+5, +5, +3
1624+5, +5, +3
1625
1626dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1627[dim, ndim, nsam]
1628+2, +3, +2
1629skip
1630+2
1631weight = getUnifRand(-1, 9, nsam)
1632weight
1633-1, +1
1634array = getUnifRand(.false., .true., ndim, nsam)
1635array
1636F, F
1637F, F
1638F, T
1639getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1640F
1641F
1642T
1643arref = getRefined(array, dim, weight, skip)
1644arref
1645
1646
1647
1648arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1649arref
1650
1651dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1652[dim, ndim, nsam]
1653+2, +3, +7
1654skip
1655+1
1656weight = getUnifRand(-1, 9, nsam)
1657weight
1658+3, +4, +6, +2, -1, +9, +8
1659array = getUnifRand(.false., .true., ndim, nsam)
1660array
1661F, F, F, T, T, F, F
1662F, F, T, F, F, F, T
1663T, F, F, F, F, T, T
1664getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1665F, F, F, F, F, F, F, F, F, F, F, F, F, T, T, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F
1666F, F, F, F, F, F, F, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T
1667T, T, T, F, F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
1668arref = getRefined(array, dim, weight, skip)
1669arref
1670F, F, F, F, F, F, F, F, F, F, F, F, F, T, T, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F
1671F, F, F, F, F, F, F, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T
1672T, T, T, F, F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
1673arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1674arref
1675F, F, T
1676F, F, T
1677F, F, T
1678F, F, F
1679F, F, F
1680F, F, F
1681F, F, F
1682F, T, F
1683F, T, F
1684F, T, F
1685F, T, F
1686F, T, F
1687F, T, F
1688T, F, F
1689T, F, F
1690F, F, T
1691F, F, T
1692F, F, T
1693F, F, T
1694F, F, T
1695F, F, T
1696F, F, T
1697F, F, T
1698F, F, T
1699F, T, T
1700F, T, T
1701F, T, T
1702F, T, T
1703F, T, T
1704F, T, T
1705F, T, T
1706F, T, T
1707
1708dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1709[dim, ndim, nsam]
1710+2, +0, +0
1711skip
1712+3
1713weight = getUnifRand(-1, 9, nsam)
1714weight
1715
1716array = getUnifRand(.false., .true., ndim, nsam)
1717array
1718getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1719arref = getRefined(array, dim, weight, skip)
1720arref
1721arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1722arref
1723
1724dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1725[dim, ndim, nsam]
1726+2, +1, +5
1727skip
1728+4
1729weight = getUnifRand(-1, 9, nsam)
1730weight
1731+1, +9, +4, +5, +5
1732array = getUnifRand(.false., .true., ndim, nsam)
1733array
1734T, F, T, T, F
1735getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1736T, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, F, F, F, F, F
1737arref = getRefined(array, dim, weight, skip)
1738arref
1739F, F, T, T, F, F
1740arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1741arref
1742F
1743F
1744T
1745T
1746F
1747F
1748
1749dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1750[dim, ndim, nsam]
1751+2, +3, +3
1752skip
1753+2
1754weight = getUnifRand(-1, 9, nsam)
1755weight
1756+6, +5, -1
1757array = getUnifRand(.false., .true., ndim, nsam)
1758array
1759F, F, F
1760T, T, T
1761T, T, F
1762getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1763F, F, F, F, F, F, F, F, F, F, F
1764T, T, T, T, T, T, T, T, T, T, T
1765T, T, T, T, T, T, T, T, T, T, T
1766arref = getRefined(array, dim, weight, skip)
1767arref
1768F, F, F, F, F
1769T, T, T, T, T
1770T, T, T, T, T
1771arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1772arref
1773F, T, T
1774F, T, T
1775F, T, T
1776F, T, T
1777F, T, T
1778
1779dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1780[dim, ndim, nsam]
1781+2, +2, +8
1782skip
1783+4
1784weight = getUnifRand(-1, 9, nsam)
1785weight
1786-1, +5, +1, +7, +3, +6, +5, +1
1787array = getUnifRand(.false., .true., ndim, nsam)
1788array
1789F, T, F, F, T, F, F, T
1790F, T, T, T, T, F, F, T
1791getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1792T, T, T, T, T, F, F, F, F, F, F, F, F, T, T, T, F, F, F, F, F, F, F, F, F, F, F, T
1793T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, T
1794arref = getRefined(array, dim, weight, skip)
1795arref
1796T, F, F, T, F, F, T
1797T, T, T, T, F, F, T
1798arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1799arref
1800T, T
1801F, T
1802F, T
1803T, T
1804F, F
1805F, F
1806T, T
1807
1808dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1809[dim, ndim, nsam]
1810+2, +2, +0
1811skip
1812+1
1813weight = getUnifRand(-1, 9, nsam)
1814weight
1815
1816array = getUnifRand(.false., .true., ndim, nsam)
1817array
1818
1819
1820getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1821
1822
1823arref = getRefined(array, dim, weight, skip)
1824arref
1825
1826
1827arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1828arref
1829
1830dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1831[dim, ndim, nsam]
1832+2, +2, +5
1833skip
1834+3
1835weight = getUnifRand(-1, 9, nsam)
1836weight
1837+1, +7, +0, +6, +2
1838array = getUnifRand(.false., .true., ndim, nsam)
1839array
1840F, T, F, F, T
1841T, T, F, F, F
1842getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1843F, T, T, T, T, T, T, T, F, F, F, F, F, F, T, T
1844T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F
1845arref = getRefined(array, dim, weight, skip)
1846arref
1847T, T, F, F, T
1848T, T, F, F, F
1849arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1850arref
1851T, T
1852T, T
1853F, F
1854F, F
1855T, F
1856
1857dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1858[dim, ndim, nsam]
1859+2, +0, +6
1860skip
1861+1
1862weight = getUnifRand(-1, 9, nsam)
1863weight
1864+5, +7, -1, +8, +1, +3
1865array = getUnifRand(.false., .true., ndim, nsam)
1866array
1867getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1868arref = getRefined(array, dim, weight, skip)
1869arref
1870arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1871arref
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1898[dim, ndim, nsam]
1899+2, +1, +5
1900skip
1901+2
1902weight = getUnifRand(-1, 9, nsam)
1903weight
1904+3, -1, +8, +3, +2
1905array = getUnifRand(.false., .true., ndim, nsam)
1906array
1907F, F, T, T, T
1908getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1909F, F, F, T, T, T, T, T, T, T, T, T, T, T, T, T
1910arref = getRefined(array, dim, weight, skip)
1911arref
1912F, T, T, T, T, T, T, T
1913arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1914arref
1915F
1916T
1917T
1918T
1919T
1920T
1921T
1922T
1923
1924dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1925[dim, ndim, nsam]
1926+2, +2, +9
1927skip
1928+4
1929weight = getUnifRand(-1, 9, nsam)
1930weight
1931+4, +2, +5, -1, +7, +5, +4, +5, +8
1932array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
1933array
1934(+0.00000000, +8.00000000), (+9.00000000, +7.00000000), (+8.00000000, +5.00000000), (+5.00000000, +6.00000000), (+5.00000000, +5.00000000), (+0.00000000, +8.00000000), (+4.00000000, +0.00000000), (+8.00000000, +7.00000000), (+1.00000000, +9.00000000)
1935(+6.00000000, +0.00000000), (+1.00000000, +5.00000000), (+0.00000000, +7.00000000), (+6.00000000, +0.00000000), (+5.00000000, +8.00000000), (+7.00000000, +9.00000000), (+9.00000000, +9.00000000), (+3.00000000, +5.00000000), (+8.00000000, +9.00000000)
1936getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1937(+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+9.00000000, +7.00000000), (+9.00000000, +7.00000000), (+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+8.00000000, +7.00000000), (+8.00000000, +7.00000000), (+8.00000000, +7.00000000), (+8.00000000, +7.00000000), (+8.00000000, +7.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000)
1938(+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+7.00000000, +9.00000000), (+7.00000000, +9.00000000), (+7.00000000, +9.00000000), (+7.00000000, +9.00000000), (+7.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000)
1939arref = getRefined(array, dim, weight, skip)
1940arref
1941(+0.00000000, +8.00000000), (+8.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+0.00000000, +8.00000000), (+4.00000000, +0.00000000), (+8.00000000, +7.00000000), (+8.00000000, +7.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000)
1942(+6.00000000, +0.00000000), (+0.00000000, +7.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+7.00000000, +9.00000000), (+9.00000000, +9.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000)
1943arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1944arref
1945(+0.00000000, +8.00000000), (+6.00000000, +0.00000000)
1946(+8.00000000, +5.00000000), (+0.00000000, +7.00000000)
1947(+5.00000000, +5.00000000), (+5.00000000, +8.00000000)
1948(+5.00000000, +5.00000000), (+5.00000000, +8.00000000)
1949(+0.00000000, +8.00000000), (+7.00000000, +9.00000000)
1950(+4.00000000, +0.00000000), (+9.00000000, +9.00000000)
1951(+8.00000000, +7.00000000), (+3.00000000, +5.00000000)
1952(+8.00000000, +7.00000000), (+3.00000000, +5.00000000)
1953(+1.00000000, +9.00000000), (+8.00000000, +9.00000000)
1954(+1.00000000, +9.00000000), (+8.00000000, +9.00000000)
1955
1956dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1957[dim, ndim, nsam]
1958+2, +2, +4
1959skip
1960+2
1961weight = getUnifRand(-1, 9, nsam)
1962weight
1963+4, +9, +1, +1
1964array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
1965array
1966(+3.00000000, +8.00000000), (+8.00000000, +9.00000000), (+5.00000000, +3.00000000), (+0.00000000, +6.00000000)
1967(+1.00000000, +0.00000000), (+1.00000000, +2.00000000), (+1.00000000, +1.00000000), (+1.00000000, +8.00000000)
1968getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1969(+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+5.00000000, +3.00000000), (+0.00000000, +6.00000000)
1970(+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +1.00000000), (+1.00000000, +8.00000000)
1971arref = getRefined(array, dim, weight, skip)
1972arref
1973(+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+5.00000000, +3.00000000)
1974(+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +1.00000000)
1975arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
1976arref
1977(+3.00000000, +8.00000000), (+1.00000000, +0.00000000)
1978(+3.00000000, +8.00000000), (+1.00000000, +0.00000000)
1979(+8.00000000, +9.00000000), (+1.00000000, +2.00000000)
1980(+8.00000000, +9.00000000), (+1.00000000, +2.00000000)
1981(+8.00000000, +9.00000000), (+1.00000000, +2.00000000)
1982(+8.00000000, +9.00000000), (+1.00000000, +2.00000000)
1983(+5.00000000, +3.00000000), (+1.00000000, +1.00000000)
1984
1985dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1986[dim, ndim, nsam]
1987+2, +3, +3
1988skip
1989+2
1990weight = getUnifRand(-1, 9, nsam)
1991weight
1992+7, +0, +8
1993array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
1994array
1995(+4.00000000, +0.00000000), (+0.00000000, +7.00000000), (+5.00000000, +4.00000000)
1996(+4.00000000, +2.00000000), (+3.00000000, +4.00000000), (+3.00000000, +1.00000000)
1997(+0.00000000, +8.00000000), (+6.00000000, +8.00000000), (+0.00000000, +2.00000000)
1998getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1999(+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000)
2000(+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000)
2001(+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000)
2002arref = getRefined(array, dim, weight, skip)
2003arref
2004(+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000), (+5.00000000, +4.00000000)
2005(+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000)
2006(+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +8.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000)
2007arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2008arref
2009(+4.00000000, +0.00000000), (+4.00000000, +2.00000000), (+0.00000000, +8.00000000)
2010(+4.00000000, +0.00000000), (+4.00000000, +2.00000000), (+0.00000000, +8.00000000)
2011(+4.00000000, +0.00000000), (+4.00000000, +2.00000000), (+0.00000000, +8.00000000)
2012(+5.00000000, +4.00000000), (+3.00000000, +1.00000000), (+0.00000000, +2.00000000)
2013(+5.00000000, +4.00000000), (+3.00000000, +1.00000000), (+0.00000000, +2.00000000)
2014(+5.00000000, +4.00000000), (+3.00000000, +1.00000000), (+0.00000000, +2.00000000)
2015(+5.00000000, +4.00000000), (+3.00000000, +1.00000000), (+0.00000000, +2.00000000)
2016
2017dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2018[dim, ndim, nsam]
2019+2, +1, +4
2020skip
2021+3
2022weight = getUnifRand(-1, 9, nsam)
2023weight
2024+8, +0, +4, +4
2025array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2026array
2027(+3.00000000, +3.00000000), (+2.00000000, +0.00000000), (+7.00000000, +4.00000000), (+9.00000000, +9.00000000)
2028getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2029(+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+7.00000000, +4.00000000), (+7.00000000, +4.00000000), (+7.00000000, +4.00000000), (+7.00000000, +4.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000), (+9.00000000, +9.00000000)
2030arref = getRefined(array, dim, weight, skip)
2031arref
2032(+3.00000000, +3.00000000), (+3.00000000, +3.00000000), (+7.00000000, +4.00000000), (+7.00000000, +4.00000000), (+9.00000000, +9.00000000)
2033arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2034arref
2035(+3.00000000, +3.00000000)
2036(+3.00000000, +3.00000000)
2037(+7.00000000, +4.00000000)
2038(+7.00000000, +4.00000000)
2039(+9.00000000, +9.00000000)
2040
2041dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2042[dim, ndim, nsam]
2043+2, +3, +3
2044skip
2045+1
2046weight = getUnifRand(-1, 9, nsam)
2047weight
2048+6, +6, +6
2049array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2050array
2051(+7.00000000, +7.00000000), (+9.00000000, +5.00000000), (+1.00000000, +3.00000000)
2052(+4.00000000, +3.00000000), (+9.00000000, +6.00000000), (+0.00000000, +7.00000000)
2053(+7.00000000, +6.00000000), (+1.00000000, +5.00000000), (+2.00000000, +1.00000000)
2054getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2055(+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000)
2056(+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000)
2057(+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000)
2058arref = getRefined(array, dim, weight, skip)
2059arref
2060(+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+7.00000000, +7.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000), (+1.00000000, +3.00000000)
2061(+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+4.00000000, +3.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+9.00000000, +6.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000)
2062(+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+1.00000000, +5.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000), (+2.00000000, +1.00000000)
2063arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2064arref
2065(+7.00000000, +7.00000000), (+4.00000000, +3.00000000), (+7.00000000, +6.00000000)
2066(+7.00000000, +7.00000000), (+4.00000000, +3.00000000), (+7.00000000, +6.00000000)
2067(+7.00000000, +7.00000000), (+4.00000000, +3.00000000), (+7.00000000, +6.00000000)
2068(+7.00000000, +7.00000000), (+4.00000000, +3.00000000), (+7.00000000, +6.00000000)
2069(+7.00000000, +7.00000000), (+4.00000000, +3.00000000), (+7.00000000, +6.00000000)
2070(+7.00000000, +7.00000000), (+4.00000000, +3.00000000), (+7.00000000, +6.00000000)
2071(+9.00000000, +5.00000000), (+9.00000000, +6.00000000), (+1.00000000, +5.00000000)
2072(+9.00000000, +5.00000000), (+9.00000000, +6.00000000), (+1.00000000, +5.00000000)
2073(+9.00000000, +5.00000000), (+9.00000000, +6.00000000), (+1.00000000, +5.00000000)
2074(+9.00000000, +5.00000000), (+9.00000000, +6.00000000), (+1.00000000, +5.00000000)
2075(+9.00000000, +5.00000000), (+9.00000000, +6.00000000), (+1.00000000, +5.00000000)
2076(+9.00000000, +5.00000000), (+9.00000000, +6.00000000), (+1.00000000, +5.00000000)
2077(+1.00000000, +3.00000000), (+0.00000000, +7.00000000), (+2.00000000, +1.00000000)
2078(+1.00000000, +3.00000000), (+0.00000000, +7.00000000), (+2.00000000, +1.00000000)
2079(+1.00000000, +3.00000000), (+0.00000000, +7.00000000), (+2.00000000, +1.00000000)
2080(+1.00000000, +3.00000000), (+0.00000000, +7.00000000), (+2.00000000, +1.00000000)
2081(+1.00000000, +3.00000000), (+0.00000000, +7.00000000), (+2.00000000, +1.00000000)
2082(+1.00000000, +3.00000000), (+0.00000000, +7.00000000), (+2.00000000, +1.00000000)
2083
2084dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2085[dim, ndim, nsam]
2086+2, +2, +6
2087skip
2088+3
2089weight = getUnifRand(-1, 9, nsam)
2090weight
2091+4, +9, +5, -1, +2, +3
2092array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2093array
2094(+8.00000000, +5.00000000), (+9.00000000, +4.00000000), (+1.00000000, +8.00000000), (+1.00000000, +1.00000000), (+0.00000000, +7.00000000), (+0.00000000, +1.00000000)
2095(+6.00000000, +5.00000000), (+4.00000000, +1.00000000), (+7.00000000, +0.00000000), (+2.00000000, +6.00000000), (+1.00000000, +8.00000000), (+5.00000000, +2.00000000)
2096getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2097(+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+8.00000000, +5.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+1.00000000, +8.00000000), (+1.00000000, +8.00000000), (+1.00000000, +8.00000000), (+1.00000000, +8.00000000), (+1.00000000, +8.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +1.00000000), (+0.00000000, +1.00000000), (+0.00000000, +1.00000000)
2098(+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+6.00000000, +5.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000), (+1.00000000, +8.00000000), (+1.00000000, +8.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000)
2099arref = getRefined(array, dim, weight, skip)
2100arref
2101(+8.00000000, +5.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+1.00000000, +8.00000000), (+1.00000000, +8.00000000), (+0.00000000, +1.00000000)
2102(+6.00000000, +5.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000), (+5.00000000, +2.00000000)
2103arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2104arref
2105(+8.00000000, +5.00000000), (+6.00000000, +5.00000000)
2106(+9.00000000, +4.00000000), (+4.00000000, +1.00000000)
2107(+9.00000000, +4.00000000), (+4.00000000, +1.00000000)
2108(+9.00000000, +4.00000000), (+4.00000000, +1.00000000)
2109(+1.00000000, +8.00000000), (+7.00000000, +0.00000000)
2110(+1.00000000, +8.00000000), (+7.00000000, +0.00000000)
2111(+0.00000000, +1.00000000), (+5.00000000, +2.00000000)
2112
2113dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2114[dim, ndim, nsam]
2115+2, +3, +2
2116skip
2117+3
2118weight = getUnifRand(-1, 9, nsam)
2119weight
2120+6, +7
2121array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2122array
2123(+3.00000000, +6.00000000), (+7.00000000, +8.00000000)
2124(+1.00000000, +9.00000000), (+1.00000000, +2.00000000)
2125(+3.00000000, +1.00000000), (+3.00000000, +5.00000000)
2126getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2127(+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000)
2128(+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000)
2129(+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000)
2130arref = getRefined(array, dim, weight, skip)
2131arref
2132(+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+7.00000000, +8.00000000), (+7.00000000, +8.00000000)
2133(+1.00000000, +9.00000000), (+1.00000000, +9.00000000), (+1.00000000, +2.00000000), (+1.00000000, +2.00000000)
2134(+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000)
2135arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2136arref
2137(+3.00000000, +6.00000000), (+1.00000000, +9.00000000), (+3.00000000, +1.00000000)
2138(+3.00000000, +6.00000000), (+1.00000000, +9.00000000), (+3.00000000, +1.00000000)
2139(+7.00000000, +8.00000000), (+1.00000000, +2.00000000), (+3.00000000, +5.00000000)
2140(+7.00000000, +8.00000000), (+1.00000000, +2.00000000), (+3.00000000, +5.00000000)
2141
2142dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2143[dim, ndim, nsam]
2144+2, +1, +2
2145skip
2146+4
2147weight = getUnifRand(-1, 9, nsam)
2148weight
2149+8, +2
2150array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2151array
2152(+2.00000000, +2.00000000), (+2.00000000, +0.00000000)
2153getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2154(+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000)
2155arref = getRefined(array, dim, weight, skip)
2156arref
2157(+2.00000000, +2.00000000), (+2.00000000, +2.00000000)
2158arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2159arref
2160(+2.00000000, +2.00000000)
2161(+2.00000000, +2.00000000)
2162
2163dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2164[dim, ndim, nsam]
2165+2, +1, +9
2166skip
2167+3
2168weight = getUnifRand(-1, 9, nsam)
2169weight
2170-1, +6, -1, +9, +4, +9, +5, +7, +5
2171array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2172array
2173(+8.00000000, +2.00000000), (+3.00000000, +6.00000000), (+6.00000000, +2.00000000), (+3.00000000, +5.00000000), (+2.00000000, +2.00000000), (+5.00000000, +7.00000000), (+3.00000000, +5.00000000), (+9.00000000, +2.00000000), (+5.00000000, +1.00000000)
2174getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2175(+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000)
2176arref = getRefined(array, dim, weight, skip)
2177arref
2178(+3.00000000, +6.00000000), (+3.00000000, +6.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+2.00000000, +2.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+5.00000000, +7.00000000), (+3.00000000, +5.00000000), (+3.00000000, +5.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000)
2179arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2180arref
2181(+3.00000000, +6.00000000)
2182(+3.00000000, +6.00000000)
2183(+3.00000000, +5.00000000)
2184(+3.00000000, +5.00000000)
2185(+3.00000000, +5.00000000)
2186(+2.00000000, +2.00000000)
2187(+5.00000000, +7.00000000)
2188(+5.00000000, +7.00000000)
2189(+5.00000000, +7.00000000)
2190(+3.00000000, +5.00000000)
2191(+3.00000000, +5.00000000)
2192(+9.00000000, +2.00000000)
2193(+9.00000000, +2.00000000)
2194(+5.00000000, +1.00000000)
2195(+5.00000000, +1.00000000)
2196
2197dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2198[dim, ndim, nsam]
2199+2, +1, +3
2200skip
2201+4
2202weight = getUnifRand(-1, 9, nsam)
2203weight
2204+6, +9, +4
2205array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2206array
2207(+0.00000000, +0.00000000), (+5.00000000, +2.00000000), (+4.00000000, +9.00000000)
2208getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2209(+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+4.00000000, +9.00000000), (+4.00000000, +9.00000000), (+4.00000000, +9.00000000), (+4.00000000, +9.00000000)
2210arref = getRefined(array, dim, weight, skip)
2211arref
2212(+0.00000000, +0.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+4.00000000, +9.00000000)
2213arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2214arref
2215(+0.00000000, +0.00000000)
2216(+5.00000000, +2.00000000)
2217(+5.00000000, +2.00000000)
2218(+4.00000000, +9.00000000)
2219
2220dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2221[dim, ndim, nsam]
2222+2, +1, +4
2223skip
2224+1
2225weight = getUnifRand(-1, 9, nsam)
2226weight
2227+5, +6, +7, +4
2228array = getUnifRand(0, 9, ndim, nsam)
2229array
2230+2.00000000, +9.00000000, +6.00000000, +2.00000000
2231getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2232+2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000
2233arref = getRefined(array, dim, weight, skip)
2234arref
2235+2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000
2236arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2237arref
2238+2.00000000
2239+2.00000000
2240+2.00000000
2241+2.00000000
2242+2.00000000
2243+9.00000000
2244+9.00000000
2245+9.00000000
2246+9.00000000
2247+9.00000000
2248+9.00000000
2249+6.00000000
2250+6.00000000
2251+6.00000000
2252+6.00000000
2253+6.00000000
2254+6.00000000
2255+6.00000000
2256+2.00000000
2257+2.00000000
2258+2.00000000
2259+2.00000000
2260
2261dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2262[dim, ndim, nsam]
2263+2, +2, +7
2264skip
2265+3
2266weight = getUnifRand(-1, 9, nsam)
2267weight
2268+3, -1, +0, -1, +5, +7, +9
2269array = getUnifRand(0, 9, ndim, nsam)
2270array
2271+1.00000000, +1.00000000, +7.00000000, +5.00000000, +8.00000000, +6.00000000, +8.00000000
2272+9.00000000, +6.00000000, +0.00000000, +5.00000000, +5.00000000, +3.00000000, +6.00000000
2273getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2274+1.00000000, +1.00000000, +1.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000
2275+9.00000000, +9.00000000, +9.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000
2276arref = getRefined(array, dim, weight, skip)
2277arref
2278+1.00000000, +8.00000000, +6.00000000, +6.00000000, +6.00000000, +8.00000000, +8.00000000, +8.00000000
2279+9.00000000, +5.00000000, +3.00000000, +3.00000000, +3.00000000, +6.00000000, +6.00000000, +6.00000000
2280arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2281arref
2282+1.00000000, +9.00000000
2283+8.00000000, +5.00000000
2284+6.00000000, +3.00000000
2285+6.00000000, +3.00000000
2286+6.00000000, +3.00000000
2287+8.00000000, +6.00000000
2288+8.00000000, +6.00000000
2289+8.00000000, +6.00000000
2290
2291dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2292[dim, ndim, nsam]
2293+2, +3, +1
2294skip
2295+4
2296weight = getUnifRand(-1, 9, nsam)
2297weight
2298+1
2299array = getUnifRand(0, 9, ndim, nsam)
2300array
2301+1.00000000
2302+7.00000000
2303+4.00000000
2304getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2305+1.00000000
2306+7.00000000
2307+4.00000000
2308arref = getRefined(array, dim, weight, skip)
2309arref
2310
2311
2312
2313arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2314arref
2315
2316dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2317[dim, ndim, nsam]
2318+2, +1, +3
2319skip
2320+2
2321weight = getUnifRand(-1, 9, nsam)
2322weight
2323+0, -1, +3
2324array = getUnifRand(0, 9, ndim, nsam)
2325array
2326+3.00000000, +8.00000000, +1.00000000
2327getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2328+1.00000000, +1.00000000, +1.00000000
2329arref = getRefined(array, dim, weight, skip)
2330arref
2331+1.00000000
2332arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2333arref
2334+1.00000000
2335
2336dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2337[dim, ndim, nsam]
2338+2, +3, +1
2339skip
2340+2
2341weight = getUnifRand(-1, 9, nsam)
2342weight
2343+0
2344array = getUnifRand(0, 9, ndim, nsam)
2345array
2346+5.00000000
2347+3.00000000
2348+5.00000000
2349getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2350
2351
2352
2353arref = getRefined(array, dim, weight, skip)
2354arref
2355
2356
2357
2358arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2359arref
2360
2361dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2362[dim, ndim, nsam]
2363+2, +2, +5
2364skip
2365+2
2366weight = getUnifRand(-1, 9, nsam)
2367weight
2368+2, +0, +1, +0, +3
2369array = getUnifRand(0, 9, ndim, nsam)
2370array
2371+9.00000000, +1.00000000, +1.00000000, +7.00000000, +3.00000000
2372+9.00000000, +9.00000000, +6.00000000, +1.00000000, +7.00000000
2373getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2374+9.00000000, +9.00000000, +1.00000000, +3.00000000, +3.00000000, +3.00000000
2375+9.00000000, +9.00000000, +6.00000000, +7.00000000, +7.00000000, +7.00000000
2376arref = getRefined(array, dim, weight, skip)
2377arref
2378+9.00000000, +3.00000000, +3.00000000
2379+9.00000000, +7.00000000, +7.00000000
2380arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2381arref
2382+9.00000000, +9.00000000
2383+3.00000000, +7.00000000
2384+3.00000000, +7.00000000
2385
2386dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2387[dim, ndim, nsam]
2388+2, +1, +0
2389skip
2390+4
2391weight = getUnifRand(-1, 9, nsam)
2392weight
2393
2394array = getUnifRand(0, 9, ndim, nsam)
2395array
2396
2397getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2398
2399arref = getRefined(array, dim, weight, skip)
2400arref
2401
2402arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2403arref
2404
2405dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2406[dim, ndim, nsam]
2407+2, +2, +4
2408skip
2409+2
2410weight = getUnifRand(-1, 9, nsam)
2411weight
2412+4, +3, +0, +2
2413array = getUnifRand(0, 9, ndim, nsam)
2414array
2415+3.00000000, +4.00000000, +1.00000000, +3.00000000
2416+1.00000000, +0.00000000, +5.00000000, +9.00000000
2417getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2418+3.00000000, +3.00000000, +3.00000000, +3.00000000, +4.00000000, +4.00000000, +4.00000000, +3.00000000, +3.00000000
2419+1.00000000, +1.00000000, +1.00000000, +1.00000000, +0.00000000, +0.00000000, +0.00000000, +9.00000000, +9.00000000
2420arref = getRefined(array, dim, weight, skip)
2421arref
2422+3.00000000, +3.00000000, +4.00000000, +3.00000000
2423+1.00000000, +1.00000000, +0.00000000, +9.00000000
2424arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2425arref
2426+3.00000000, +1.00000000
2427+3.00000000, +1.00000000
2428+4.00000000, +0.00000000
2429+3.00000000, +9.00000000
2430
2431dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2432[dim, ndim, nsam]
2433+2, +0, +3
2434skip
2435+3
2436weight = getUnifRand(-1, 9, nsam)
2437weight
2438+3, +3, +0
2439array = getUnifRand(0, 9, ndim, nsam)
2440array
2441getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2442arref = getRefined(array, dim, weight, skip)
2443arref
2444arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2445arref
2446
2447
2448
2449dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2450[dim, ndim, nsam]
2451+2, +1, +3
2452skip
2453+4
2454weight = getUnifRand(-1, 9, nsam)
2455weight
2456+8, +3, +9
2457array = getUnifRand(0, 9, ndim, nsam)
2458array
2459+1.00000000, +1.00000000, +3.00000000
2460getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2461+1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000
2462arref = getRefined(array, dim, weight, skip)
2463arref
2464+1.00000000, +1.00000000, +3.00000000, +3.00000000, +3.00000000
2465arref = getRefined(transpose(array), 3_IK - dim, weight, skip)
2466arref
2467+1.00000000
2468+1.00000000
2469+3.00000000
2470+3.00000000
2471+3.00000000
2472
2473
Test:
test_pm_arrayRefine
Bug:

Status: Unresolved
Source: GNU Fortran Compiler gfortran version 10.3-12, Intel Classic Fortran Compiler ifort version 2021-2022
Description: Intel Classic Fortran Compiler ifort and GNU Fortran Compiler gfortran share a common bug with opposing behavior.
Intel Classic Fortran Compiler ifort cannot handle assumed-length allocatable output arguments of type character.
GNU Fortran Compiler gfortran cannot handle deferred-length allocatable output arguments of type character.

Remedy (as of ParaMonte Library version 2.0.0): For now, a preprocessor macro defines two separate interfaces for the two compilers so that both compilers can compile this file.
This minor interface difference should not impact the usage of this module with different compilers.


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright
Computational Data Science Lab
Author:
Amir Shahmoradi, Saturday 1:48 AM, August 20, 2016, Institute for Computational Engineering and Sciences, UT Austin, TX

Definition at line 154 of file pm_arrayRefine.F90.

The documentation for this interface was generated from the following file: