@ ভোবার উত্তরে আমি কমনীয়তা দেখে বেশ মুগ্ধ হয়েছি। সত্য কথা বলতে গেলে তার সমাধানের পদক্ষেপগুলি অনুসরণ করার জন্য আমাকে নতুন ধারণার সাথে নিজেকে অনেক পরিচিত করতে হয়েছিল। এটিতে অনেক সময় ব্যয় করার পরে, আমি যা পেয়েছি তা পোস্ট করার সিদ্ধান্ত নিয়েছি। সুতরাং যা অনুসরণ করা হয় তা তার ইতিমধ্যে স্বীকৃত প্রতিক্রিয়াটির জন্য এক এক্সেজেটিকাল নোট। এইভাবে মৌলিকতার কোনও চেষ্টা নেই এবং আমার একমাত্র উদ্দেশ্য হ'ল জড়িত কয়েকটি পদক্ষেপ অনুসরণ করার জন্য কিছু অতিরিক্ত অ্যাঙ্করিং পয়েন্ট সরবরাহ করা।
সুতরাং এখানে এটি ...
2 এন
২. আমরা কি ডিজেনমেন্টের সূত্রটি পেতে পারি?
এন
ঘ( n ) = ( n - 1 ) [ d( এন - 2 ) + ডি( এন - 1 ) ] =
= এনঘ( এন - 2 ) - ডি( এন - 2 ) + এনঘ( এন - 1 ) - ডি( এন - 1 )
ঘ( এন ) -এনঘ( এন - 1 ) = - [d( এন - 1 ) - ( এন - 1))ঘ( এন - 2 ) ]
এখন এই সমীকরণের এলএইচএস এবং বন্ধনীগুলির মধ্যে আরএইচএসের অংশের মধ্যে সমান্তরালতা লক্ষ্য করে আমরা পুনরাবৃত্তভাবে চালিয়ে যেতে পারি:
ঘ( এন ) - এনঘ( n - 1 ) = - [ d( এন - 1 ) - ( এন - 1 )ঘ( n - 2 ) ] =
= ( - 1 )2[ d( এন - 2 ) - ( এন - 2) )ঘ( n - 3 ) ] = ⋯ = ( - 1 )n - 2ঘ( 2 ) - 2ঘ( 1 )
ঘ( এন ) = এনঘ( এন - 1 ) + ( - 1 )এন
পিছনে কাজ:
ঘ( 2 ) = 1
ঘ( 3 ) = 3ঘ( 2 ) - 1 = 3 ∗ 1- 1
ঘ( 4 ) = 4ঘ( 3 ) + 1 = 4 ∗ 3 ∗ 1- 4+ 1
ঘ( 5 ) = 5ঘ( 4 ) - 1 = 5 ∗ 4 ∗ 3 ∗ 1- 5 ∗ 4+ 5- 1
ঘ( 6 ) = 6ঘ( 5 ) + 1 = 6 ∗ 5 ∗ 4 ∗ 3 ∗ 1- 6 ∗ 5 ∗ 4+ 6 ∗ 5- 6+ 1 =
= 6 ! ( ঘ2- 13 ∗ 2+ 14 ∗ 3 ∗ 2- 15 ∗ 4 ∗ 3 ∗ 2+ 16 !) =
= 6 ! ( ঘ6 !- 15 !+ 14 !- 13 !+ 12 !- 1+ !+ 1 )
সুতরাং সাধারণভাবে,
ঘ( এন ) = এন ! ( 1 - 1 + 12 !- 13 !+ 14 !+ ⋯ + 1এন !)
ইএক্সx = - 1
ঘ( ঢ ) ≈ এন !ই
a , b , c , d, ই , চখ , ডি, ক , গ , চ, ইa -> b -> d -> c after which it returns to a
e -> f
( abdc ) ( ef )
4
( 2 এন ) !2 এন2এনএন !পি ( 2 এন ) = ( 2 এন ) !2এনএন !
জন্য 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
এক্স( 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 )
৩.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.