EXAMPLE (6) =========== Maple calculations for vector partitions of 4 and their crank mod 5 ============================================================================== > read "FUNCS.txt": > V:=vecptns(4); > m:=matrix(nops(V),3): > for i from 1 to nops(V) do > m[i,1]:=V[i]: > m[i,2]:=vpw(V[i]): > m[i,3]:=vpcrank(V[i]): > od: > #Table of vector partitions of 4 with weight and crank > print(m); [[[], [], [1, 1, 1, 1]] 1 -4] [ ] [ [[], [], [1, 1, 2]] 1 -3] [ ] [ [[], [], [2, 2]] 1 -2] [ ] [ [[], [], [1, 3]] 1 -2] [ ] [ [[], [], [4]] 1 -1] [ ] [ [[], [1], [1, 1, 1]] 1 -2] [ ] [ [[], [1], [1, 2]] 1 -1] [ ] [ [[], [1], [3]] 1 0] [ ] [ [[], [1, 1], [1, 1]] 1 0] [ ] [ [[], [1, 1], [2]] 1 1] [ ] [ [[], [2], [1, 1]] 1 -1] [ ] [ [[], [2], [2]] 1 0] [ ] [ [[], [1, 1, 1], [1]] 1 2] [ ] [ [[], [1, 2], [1]] 1 1] [ ] [ [[], [3], [1]] 1 0] [ ] [[[], [1, 1, 1, 1], []] 1 4] [ ] [ [[], [1, 1, 2], []] 1 3] [ ] [ [[], [2, 2], []] 1 2] [ ] [ [[], [1, 3], []] 1 2] [ ] [ [[], [4], []] 1 1] [ ] [ [[1], [], [1, 1, 1]] -1 -3] [ ] [ [[1], [], [1, 2]] -1 -2] [ ] [ [[1], [], [3]] -1 -1] [ ] [ [[1], [1], [1, 1]] -1 -1] [ ] [ [[1], [1], [2]] -1 0] [ ]