@ whuber 답변의 우아함에 깊은 인상을 받았습니다. 솔직히 말해서 나는 그의 솔루션의 단계를 따르기 위해 새로운 개념에 대해 많은 것을 알게되었습니다. 그것에 많은 시간을 보낸 후, 나는 내가 얻은 것을 게시하기로 결정했습니다. 따라서 다음은 이미 승인 된 답변에 대한 주석입니다. 이러한 방식으로 독창성을 시도하지 않으며, 나의 유일한 목표는 관련된 단계 중 일부를 수행하기 위해 몇 가지 추가 고정 점을 제공하는 것입니다.
그래서 여기에 ...
2n
2. 우리는 분열에 대한 공식을 도출 할 수 있습니까?
n
d(n)=(n−1)[d(n−2)+d(n−1)]=
=nd(n−2)−d(n−2)+nd(n−1)−d(n−1)
d(n)−nd(n−1)=−[d(n−1)−(n−1)d(n−2)]
이제이 방정식의 LHS와 괄호 안의 RHS 부분 사이의 병렬성을 주목하면서 우리는 재귀 적으로 계속할 수 있습니다.
d(n)−nd(n−1)=−[d(n−1)−(n−1)d(n−2)]=
=(−1)2[d(n−2)−(n−2)d(n−3)]=⋯=(−1)n−2d(2)−2d(1)
이는 임을 의미합니다.d(n)=nd(n−1)+(−1)n
거꾸로 작업 :
d(2)=1
d(3)=3d(2)−1=3∗1−1
d(4)=4d(3)+1=4∗3∗1−4+1
d(5)=5d(4)−1=5∗4∗3∗1−5∗4+5−1
d(6)=6d(5)+1=6∗5∗4∗3∗1−6∗5∗4+6∗5−6+1=
=6!(12−13∗2+14∗3∗2−15∗4∗3∗2+16!)=
=6!(16!−15!+14!−13!+12!−11!+1)
일반적으로
d(n)=n!(1−1+12!−13!+14!+⋯+1n!)
exx=−1
d(n)≈n!e
a,b,c,d,e,fb,d,a,c,f,ea -> b -> d -> c after which it returns to a
e -> f
(a b d c)(e f)
4
(2n)!2n2nn!p(2n)=(2n)!2nn!
에 대한 R
시뮬레이션 :
1. paired <- function(x) crossprod(x[x] - 1:length(x))==0
x[x]
8Paul -> Maria
Maria -> Paul
Max -> John
John -> Max
Max -> Maria
Maria -> Max
Paul -> John
John -> Paul
i
1
2. good <- function(x) sum(x==1:length(x)) == 0
x(1,2,3,4,5,6,7,8)
3.k.paired <- sum(i.good & i.paired)
다이어그램에서 위와 같이 쌍을 이루는 순열을 제외해야합니다.
v <- c(1,2,3,4,5,6,7,8)
w <- c(1,2,3,5,4,6,7,8)
(c("is v paired?" = paired(v), "is w paired?" = paired(w),
"is v a derang?" = good(w), "is w a derang?" = good(w)))
# not all paired permutations are derangements.