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 questions only not deleted user 42417

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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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, …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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 …
A little mouse on the pampas's user avatar
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[ …
A little mouse on the pampas's user avatar