963ba148-0c8c-4a80-ab02-8d6111ccf450 16 15 12 decimal

&[DATE] &[TIME] - &[FILENAME]

Part 1 subdivide X-integer

]]>

Subdivide a range in 'n' intervals ... demo n pivot interval j 1 n 1 + (range h j el pivot - pivot j * + n / : for h 21 line :

n 10 :

S n n interval (: negS 1 - (S S rows 2 range 11 range el * : New negS S stack : 31 sys

θ rot θ cos θ sin - θ sin θ cos 22 mat :

idx 1 New rows range : A 0 idx * 1 n * - New augment : 21 sys

2n star ... n square

plot1 A A π - 2 / rot * A - A π - 2 / rot * - stack :

fence plot1 plot1 : plot075 0.75 plot1 * : plot05 0.5 plot1 * : plot025 0.25 plot1 * : 41 sys :

i 1 A rows range Fx 2 i * 1 - el A 1 col i el : Fy 2 i * 1 - el A 2 col i el : 21 line for

field fence radial radial - radial π - 2 / rot * radial π - 2 / rot * - 51 sys :

radial Fx Fy augment :

x y axes x y / - :

field axes 2 1 sys

data list ListCollect collects index list ct 1 : i list rc ct el data i row : ct ct 1 + : 21 line for Un rc 1 el : j 2 rc rows range Un Un rc j el stack : for Un 61 line :

data plot1 :

list 51 data rows Random.N :

list 574120704651 mat

rnd data list ListCollect :

rnd 104 - 9 - 10 - 10 - 94 - 1010752 mat

field axes rnd 3 1 sys

Srip(data) on 2 if/else conditons ... NUMERIC XY Strip XY XY 1 csort : u XY 1 col : v XY 2 col : k 0 : i 2 XY rows (range u i el u i 1 - el ≥ (v i el v i 1 - el - 0 ≠ (& R k k 1 + : el u i el v i el 12 mat : u i el u i 1 - el ≥ (v i el v i 1 - el - 0 ≡ (& R k k 1 + : el u i el v i el 12 mat : end of strip collect/Unest 21 line if if 11 line for j 2 R rows range new j 1 - el R j el : for Unest new 1 el : j 2 new rows range Unest Unest new j el stack : for Unest 91 line :

XY 402510 6.25 10 6.25 40 12.5 30010 6.25 30 43.75 72 mat :

XY Strip 10 6.25 30030 43.75 40 12.5 402552 mat