Search Results
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 |
Questions on the use of Mathematica in combinatorics, including the Combinatorica add-on package.
0
votes
1
answer
100
views
How to speed up the calculation of the number of $4 \times 4$ Young tableaux
I find the problem of calculating $n \times n$ Young tableaux from here.
I can get the number of $3\times 3$ Young tableaux by violent enumeration is $42$:
Partition[#, 3] & /@
Select[Permutations …
3
votes
3
answers
215
views
Combinatorial selection with constraints
Five of the 10 actors can only sing, two can only dance, and three can both sing and dance. Now, how many kinds of selection methods are there to perform a program that requires two people to dance an …
7
votes
5
answers
614
views
How to correctly calculate the number of seating plans for the 4-couples problem?
Four couples a are sitting around a round table, in which husband and wife can not be adjacent. How many different seating plans are there?
I want to get as many simple calculations as possible.
(so …
1
vote
3
answers
312
views
How to use Mathematica to solve this problem of planting tree
To plant trees at the center of each small square in a 3 * 4 rectangular area, it is required that there should be no continuous number of three (or more) trees in three directions of Horizontal, vert …
1
vote
1
answer
103
views
How to solve this problem by the way of saving memory?
Eight different boys and five different girls are in a row. Girls are required to be next to each other. How many ways are there (the answer is $9!\times5!$)?
Cases[Permutations[Array[boy, 8]~Join~Arr …
0
votes
3
answers
152
views
How to find the closed loop number of an array [closed]
I want to find the minimum number of swaps required to reset an array. This problem has many applications in linear algebra.
The key point of this question is to find the number of closed loops in thi …
2
votes
4
answers
135
views
How to set a custom number field to solve this equation
x1 , x2 , x3 , x4 and x5 can only be taken from {-1,1,2,4}.
How to set a custom number field to solve this equation.
NumberField = {-1, 1, 2, 4};
Solve[Mod[x1 + x2 + x3 + x4 + x5, 3] == 0, {x1, x2, …
6
votes
4
answers
299
views
How to express permutation as the least number of exchanges
If there are grammatical or terminological errors in the following description, please help correct:
In some problems, it is necessary to find out what minimum number of exchanges can change a list in …
4
votes
2
answers
422
views
How to correctly enumerate all the schemes of this cube coloring problem?
This problem is the fifth question of 1996 Chinese High School Mathematics League or Chinese Mathematical Olympiad in Senior:
Choose several colors from the given six different colors to dye six faces …
3
votes
3
answers
212
views
How to delete duplicate graphics of the same kind?
A054247: Number of n X n binary matrices under action of dihedral group of the square D_4.
(*半念浮生*)
g[list_] := {list, Reverse /@ list, Reverse@list,
Reverse /@ Reverse@list};
g1[list_] := (g[list …
4
votes
2
answers
1k
views
How to solve this problem 710 of Project-Euler
I want to solve this problem:
The number 6 can be written as a palindromic sum in exactly eight different ways:
(1,1,1,1,1,1),(1,1,2,1,1),(1,2,2,1),(1,4,1),(2,1,1,2),(2,2,2),(3,3),(6)
We shall define …
2
votes
4
answers
157
views
How to use function `GeneratingFunction ` to solve this combinatorial problem efficiently?
Divide the 14 elements {A, B, C, C, C, C, D, D, D, D, E, E, E, E} into 7 groups (one group all have two elements), and I want to find out how many kinds of methods there are without repetition.
(Sort …
1
vote
0
answers
110
views
How to find maximal determinant of a 5×5 or 6×6 matrix using the integers 1 to $n^2$ quickly
This code can only solve the 3 * 3 matrix:
list = Permutations[Range[9], {9}];
matrix = Partition[#, 3] & /@ list;
answer = Det /@ matrix;
m = Max[answer];
pos = Flatten[Position[answer, m]];
matrix[ …