Skip to main content
Search type Search syntax
Tags [tag]
Exact "words here"
Author user:1234
user:me (yours)
Score score:3 (3+)
score:0 (none)
Answers answers:3 (3+)
answers:0 (none)
isaccepted:yes
hasaccepted:no
inquestion:1234
Views views:250
Code code:"if (foo != bar)"
Sections title:apples
body:"apples oranges"
URL url:"*.example.com"
Saves in:saves
Status closed:yes
duplicate:no
migrated:no
wiki:no
Types is:question
is:answer
Exclude -[tag]
-apples
For more details on advanced search visit our help page
Results tagged with
Search options not deleted user 16223

Questions on the use of Mathematica in combinatorics, including the Combinatorica add-on package.

1 vote

How can I construct an equivalence relation in the form of a 0-1 matrix from a set partition?

The code parts = {{4, 7, 6}, {5}, {8, 1}, {9, 2, 3}} perm = PermutationMatrix @ Flatten @ parts; mat = Transpose[perm] . BlockDiagonalMatrix[ (Table[1, {Length[#1]}, {Length[#1]}] & ) /@ par …
Mariano Suárez-Álvarez's user avatar