46d7f629-4497-43e2-af28-2a2126260d51 34 6 5 auto

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

http://stackoverflow.com/questions/32493769/sets-of-all-disjoint-pairs

V e1 e2 Swap s V e1 el : V e1 el V e2 el : V e2 el s : 31 line :

V start pairs out MakePairs Davide Carpi: 18 March, 2016 start V length > out out pairs 11 mat stack : sp1 start 1 + : sp2 start 2 + : j sp1 : j V length ≤ j j 1 + : V sp1 j Swap V sp2 pairs V start el V sp1 el 12 mat 11 mat augment out MakePairs V sp1 j Swap 31 line for 31 line if completed 31 line :

v 16 range : 12345661 mat

V start el V sp1 el 12 mat 11 mat Nested pairwise ≡

out 01 matrix :

pairs 10 matrix :

V start el V sp1 el 12 mat suite over 'v' ≡

v 1 pairs out MakePairs completed

data Unest v data 1 el : j 2 data rows range v v data j el stack : for v 31 line :

out rows 15

out 2 el 1212 mat 3512 mat 4612 mat 13 mat

Transit 'out' => to unest

V start el V sp1 el 12 mat suite over 'v' ≡

out 1212 mat 3412 mat 5612 mat 13 mat 1212 mat 3512 mat 4612 mat 13 mat 1212 mat 3612 mat 5412 mat 13 mat 1312 mat 2412 mat 5612 mat 13 mat 1312 mat 2512 mat 4612 mat 13 mat 1312 mat 2612 mat 5412 mat 13 mat 1412 mat 3212 mat 5612 mat 13 mat 1412 mat 3512 mat 2612 mat 13 mat 1412 mat 3612 mat 5212 mat 13 mat 1512 mat 3412 mat 2612 mat 13 mat 1512 mat 3212 mat 4612 mat 13 mat 1512 mat 3612 mat 2412 mat 13 mat 1612 mat 3412 mat 5212 mat 13 mat 1612 mat 3512 mat 4212 mat 13 mat 1612 mat 3212 mat 5412 mat 13 mat 151 mat

Out 12345616 mat 12354616 mat 12365416 mat 13245616 mat 13254616 mat 13265416 mat 14325616 mat 14352616 mat 14365216 mat 15342616 mat 15324616 mat 15362416 mat 16345216 mat 16354216 mat 16325416 mat 151 mat :

Out Unest 123456123546123654132456132546132654143256143526143652153426153246153624163452163542163254156 mat

=>=>

V start el V sp1 el 12 mat 11 mat Nested pairwise ≡

Out 1212 mat 3412 mat 5612 mat 13 mat 1212 mat 3512 mat 4612 mat 13 mat 1212 mat 3612 mat 5412 mat 13 mat 1312 mat 2412 mat 5612 mat 13 mat 1312 mat 2512 mat 4612 mat 13 mat 1312 mat 2612 mat 5412 mat 13 mat 1412 mat 3212 mat 5612 mat 13 mat 1412 mat 3512 mat 2612 mat 13 mat 1412 mat 3612 mat 5212 mat 13 mat 1512 mat 3412 mat 2612 mat 13 mat 1512 mat 3212 mat 4612 mat 13 mat 1512 mat 3612 mat 2412 mat 13 mat 1612 mat 3412 mat 5212 mat 13 mat 1612 mat 3512 mat 4212 mat 13 mat 1612 mat 3212 mat 5412 mat 13 mat 151 mat :

Out Unest 1212 mat 3412 mat 5612 mat 1212 mat 3512 mat 4612 mat 1212 mat 3612 mat 5412 mat 1312 mat 2412 mat 5612 mat 1312 mat 2512 mat 4612 mat 1312 mat 2612 mat 5412 mat 1412 mat 3212 mat 5612 mat 1412 mat 3512 mat 2612 mat 1412 mat 3612 mat 5212 mat 1512 mat 3412 mat 2612 mat 1512 mat 3212 mat 4612 mat 1512 mat 3612 mat 2412 mat 1612 mat 3412 mat 5212 mat 1612 mat 3512 mat 4212 mat 1612 mat 3212 mat 5412 mat 153 mat

row col Address Out Unest row col el :

52 Address 2512 mat

vx vy a b c plotG a char ≡ b size ≡ c color ≡ 13 mat n vx length : plot vx 1 el vy 1 el a b c augment : i 2 n range plot plot vx i el vy i el a b c augment stack : for plot 51 line :

v 12345678910110 mat transpose :

Something is not completely correct in the program but it works .

idx i 1 v rows range idx i el i : for idx 21 line :

n 0 n ≤ (n v rows ≤ (& (≡ working range of 'n' ≡

n v rotate λ v length : p n abs λ mod : p 0 ≡ rot v : λ v length : i 1 n range rot i λ n - (+ el v i el : for rot 21 line i n 1 + λ range rot i n - el v i el : for rot 21 line 31 line if rot 51 line :

n 5 :

<= Pilot the rotation

v transpose n v rotate transpose 21 mat 12345678910110 mat 67891012345110 mat 21 mat

MyRot n v rotate :

XY idx MyRot augment :

rot idx MyRot . 10 black plotG :

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

θ π - 4 / :

θ 0.7854 -

Rot XY θ rot * :

xyRot Rot 1 col Rot 2 col . 10 black plotG :

Angular rotation of the !rotation! ... a bit circular !

5 Rot xyRot 3 1 sys

Circular rotation of vector

5 XY rot 3 1 sys

N M Combin ORIGIN 1 : set Smath default ORIGIN ≡ i ORIGIN : k ORIGIN : i N M - 1 + (M^ORIGIN + 1 - ≤ j ORIGIN M ORIGIN + 1 - range tryV i j el i ORIGIN - N M - 1 + (M j - ORIGIN + 1 -^/ N M - 1 + mod trunc j + 1 + ORIGIN - : for tryV i m el tryV i m 1 + el < (m ORIGIN j 1 - product j ORIGIN M ORIGIN + 1 - range V k j el tryV i j el : for k k 1 + : 21 line computed if i i 1 + : 31 line while V 51 line :

Test 63 Combin :

Sanity check Test 123124125126134135136145146156234235236245246256345346356456203 mat

Observe the suites: (4,2) => (1,2)... (3,4) (6.3) => (1,2,3) ... (4,5,6)

Can't reproduce , why ?

M NestCol v M 1 col : ct 1 : j 1 M cols range a 1 ct el M j col : ct ct 1 + : 21 line for a 41 line :

M NestRow v M 1 row : ct 1 : j 1 M rows range a ct 1 el M j row : ct ct 1 + : 21 line for a 41 line :

Test NestCol 11111111112222223334201 mat 22223334453334454455201 mat 34564565664565665666201 mat 13 mat

Test NestRow 12313 mat 12413 mat 12513 mat 12613 mat 13413 mat 13513 mat 13613 mat 14513 mat 14613 mat 15613 mat 23413 mat 23513 mat 23613 mat 24513 mat 24613 mat 25613 mat 34513 mat 34613 mat 35613 mat 45613 mat 201 mat