(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     61680,       1828]
NotebookOptionsPosition[     57047,       1670]
NotebookOutlinePosition[     57408,       1686]
CellTagsIndexPosition[     57365,       1683]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"\:67d0\:4eba\:5c07", " ", "5", " ", 
  "\:5c01\:4e0d\:540c\:7684\:4fe1\:653e\:5165", " ", "5", " ", 
  "\:500b\:4e0d\:540c\:7684\:4fe1\:5c01\:4e2d\:ff0c\:8a66\:6c42\:4e0b\:5217\
\:5404\:6a5f\:7387\:ff1a"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", "1", ")"}], "\:6070\:6709", " ", "1", " ", 
  "\:5c01\:88dd\:932f"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", "2", ")"}], "\:6070\:6709", " ", "2", " ", 
  "\:5c01\:88dd\:932f"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", "3", ")"}], "\:6070\:6709", " ", "3", " ", 
  "\:5c01\:88dd\:932f"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", "4", ")"}], "\:6070\:6709", " ", "4", " ", 
  "\:5c01\:88dd\:932f"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", "5", ")"}], "\:6070\:6709", " ", "5", " ", 
  "\:5c01\:88dd\:932f"}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.43693735875*^9, 3.436937545875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", "1", ")"}], "\:6070\:6709", " ", "1", 
   "\:5c01\:88dd\:932f\:ff0c\:662f\:4e0d\:53ef\:80fd\:7684\:3002\:5373", " ", 
   "P", 
   RowBox[{"(", "1", ")"}]}], "=", "0"}]], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.43693765225*^9, 3.4369376926875*^9}, {
  3.4369377301875*^9, 3.436937741203125*^9}, {3.4369377741875*^9, 
  3.436937775421875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", "2", ")"}], "\:6070\:6709", " ", "2", " ", 
  "\:5c01\:88dd\:932f\:3002\:4e5f\:5c31\:662f\:8aaa\:ff1a\:5176\:4e2d\:6709", 
  " ", "3", "\:5c01\:4fe1\:6c92\:6709\:88dd\:932f\:ff0c\:5176\:9918", " ", 
  "2", " ", "\:5c01\:4fe1\:4e4b\:6bcf", " ", "1", " ", 
  "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167\:3002"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "1", ")"}]}], "\:5f9e", " ", "5", " ", 
   "\:5c01\:4fe1\:4e2d\:6311\:51fa", " ", "2", " ", "\:5c01", " ", 
   "\:653e\:932f\:7684\:ff0c\:5171\:6709", "  ", 
   SubsuperscriptBox["C", "2", "5"], " ", "\:ff0c\:5373", " ", 
   StyleBox["10",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "2", ")"}]}], 
   "\:91dd\:5c0d\:4e0a\:4e00\:6b65\:9a5f\:7684\:6bcf", " ", "1", 
   "\:7a2e\:65b9\:6cd5\:6240\:53d6\:51fa\:7684", " ", "2", 
   "\:5c01\:4fe1\:505a\:5982\:4e0b\:8655\:7406"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "3", ")"}]}], "2", 
   "\:5c01\:4e0d\:540c\:7684\:4fe1\:653e\:5165", " ", "2", " ", 
   "\:500b\:4e0d\:540c\:7684\:4fe1\:5c01\:ff0c\:5171\:6709", " ", 
   RowBox[{"2", "!"}], " ", "\:ff0c\:5373", " ", 
   StyleBox["2",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "4", ")"}]}], "\:5c07\:7b2c", " ", "1", " ", 
   "\:5c01\:653e\:5165\:7b2c", " ", "1", " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709",
    " ", 
   RowBox[{"1", "!"}], "\:ff0c\:5373", " ", "1", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c\:7b2c", " ", "2", " ", 
   "\:5c01\:ff0c\:4ea6", " ", 
   RowBox[{"\:67091", "!"}], "\:ff0c\:5373\:5404\:6709", " ", "1", " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "1", "2"], "*", 
   RowBox[{"1", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["2",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"   ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "5", ")"}]}], "\:5c07\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], 
   "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:53ea\:6709", " ", "1", " ", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "2", "2"], "*", 
   RowBox[{"0", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["1",
    FontColor->RGBColor[1, 0, 0]], " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:5176\:4e2d", " ", 
   RowBox[{"0", "!"}], " ", "\:8868\:793a\:53d6\:51fa", " ", "2", " ", 
   "\:5c01\:4fe1\:4e4b\:5f8c\:ff0c\:6c92\:6709\:5269\:9918\:7684\:9700\:8981\
\:96a8\:610f\:653e\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "8", ")"}]}], "\:7e3d\:7d50\:ff0c\:6709", " ", "3", 
   "\:5c01\:4fe1\:6c92\:6709\:88dd\:932f\:ff0c\:5176\:9918", " ", "2", " ", 
   "\:5c01\:4fe1\:4e4b\:6bcf", " ", "1", " ", 
   "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167", "\:65b9\:6cd5\:6578\:70ba\:ff1a", " ", 
   SubsuperscriptBox["C", "2", "5"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["P", "2", "2"], "-", 
     RowBox[{
      SubsuperscriptBox["C", "1", "2"], "*", 
      SubsuperscriptBox["P", "1", "1"]}], "+", " ", 
     RowBox[{
      SubsuperscriptBox["C", "2", "1"], "*", 
      SubsuperscriptBox["P", "0", "0"]}]}], ")"}], 
   "\:ff0c\:5373"}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.436937707546875*^9, 3.4369378025*^9}, {
  3.43693800209375*^9, 3.436938098671875*^9}, {3.4369382856875*^9, 
  3.436938435625*^9}, {3.436939853453125*^9, 3.43693992440625*^9}, {
  3.436940028265625*^9, 3.4369400784375*^9}, {3.436940193265625*^9, 
  3.4369403745625*^9}, {3.4369404683125*^9, 3.43694048540625*^9}, {
  3.436940573171875*^9, 3.43694057421875*^9}, {3.436959898078125*^9, 
  3.436960043484375*^9}, {3.436960079*^9, 3.436960171140625*^9}, {
  3.437092860875*^9, 3.437092882984375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}], "]"}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Length", "[", 
     RowBox[{"Permutations", "[", 
      RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}], "-", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "2", "]"}], ",", 
        RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "+", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "2", "]"}], ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.436960195125*^9, 3.436960226046875*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.4369602305625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["10", 
  RowBox[{"5", "!"}]]], "Input",
 CellChangeTimes->{{3.43696056109375*^9, 3.43696064734375*^9}}],

Cell[BoxData[
 FractionBox["1", "12"]], "Output",
 CellChangeTimes->{{3.436960636375*^9, 3.436960648984375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", 
  RowBox[{"Subsets", "[", 
   RowBox[{
    RowBox[{"Range", "[", "5", "]"}], ",", 
    RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", 
  RowBox[{"Permutations", "[", 
   RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "2", "]"}], ",", 
     RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "2", "]"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.436960262953125*^9, 3.43696026996875*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.436960272921875*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.436960272921875*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.436960272921875*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.4369602729375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.436960360140625*^9, 3.43696036775*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.43696036940625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", "1", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.43696031121875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4369603130625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.436960335609375*^9, 3.436960341703125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.436960342515625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", "3", ")"}], "\:6070\:6709", " ", "3", " ", 
  "\:5c01\:88dd\:932f\:3002\:4e5f\:5c31\:662f\:8aaa\:ff1a\:5176\:4e2d\:53ea\
\:6709", " ", "2", "\:5c01\:4fe1\:6c92\:6709\:88dd\:932f\:ff0c\:5176\:9918", 
  " ", "3", " ", "\:5c01\:4fe1\:4e4b\:6bcf", " ", "1", " ", 
  "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167\:3002"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "1", ")"}]}], "\:5f9e", " ", "5", " ", 
   "\:5c01\:4fe1\:4e2d\:6311\:51fa", " ", "3", " ", "\:5c01", " ", 
   "\:653e\:932f\:7684\:ff0c\:5171\:6709", "  ", 
   SubsuperscriptBox["C", "3", "5"], " ", "\:ff0c\:5373", " ", 
   StyleBox["10",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "2", ")"}]}], 
   "\:91dd\:5c0d\:4e0a\:4e00\:6b65\:9a5f\:7684\:6bcf", " ", "1", 
   "\:7a2e\:65b9\:6cd5\:6240\:53d6\:51fa\:7684", " ", "3", 
   "\:5c01\:4fe1\:505a\:5982\:4e0b\:8655\:7406"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "3", ")"}]}], "3", 
   "\:5c01\:4e0d\:540c\:7684\:4fe1\:653e\:5165", " ", "3", " ", 
   "\:500b\:4e0d\:540c\:7684\:4fe1\:5c01\:ff0c\:5171\:6709", " ", 
   RowBox[{"3", "!"}], " ", "\:ff0c\:5373", " ", 
   StyleBox["6",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "4", ")"}]}], "\:5c07\:7b2c", " ", "1", " ", 
   "\:5c01\:653e\:5165\:7b2c", " ", "1", " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709",
    " ", 
   RowBox[{"2", "!"}], "\:ff0c\:5373", " ", "2", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], " ", "\:5c01\:ff0c\:4ea6", " ", 
   RowBox[{"\:5404\:67092", "!"}], "\:ff0c\:5373\:5404\:6709", " ", "2", " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "1", "3"], "*", 
   RowBox[{"2", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["6",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{
    RowBox[{"--", " ", 
     RowBox[{"(", "5", ")"}]}], "\:5c07\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], 
    "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], " ", 
    "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709\
", " ", 
    RowBox[{"1", "!"}], "\:ff0c\:5373", " ", "1", " ", 
    "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", "3"}], "}"}], " ", "\:4ea6\:5404\:6709", " ", 
    RowBox[{"1", "!"}], "\:ff0c\:5373", " ", "1", " ", 
    "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
    SubsuperscriptBox["C", "2", "3"], "*", 
    RowBox[{"1", "!"}], "\:ff0c\:5373", " ", 
    StyleBox["3",
     FontColor->RGBColor[1, 0, 0]], " ", 
    "\:7a2e\:65b9\:6cd5\:3002"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "6", ")"}]}], "\:5c07\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], 
   "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:53ea\:6709", " ", "1", " ", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "3", "3"], "*", 
   RowBox[{"0", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["1",
    FontColor->RGBColor[1, 0, 0]], " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:5176\:4e2d", " ", 
   RowBox[{"0", "!"}], " ", "\:8868\:793a\:53d6\:51fa", " ", "3", " ", 
   "\:5c01\:4fe1\:4e4b\:5f8c\:ff0c\:6c92\:6709\:5269\:9918\:7684\:9700\:8981\
\:96a8\:610f\:653e\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "8", ")"}]}], "\:7e3d\:7d50\:ff0c\:53ea\:6709", " ", "2", 
   "\:5c01\:4fe1\:6c92\:6709\:88dd\:932f\:ff0c\:5176\:9918", " ", "3", " ", 
   "\:5c01\:4fe1\:4e4b\:6bcf", " ", "1", " ", 
   "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167\:65b9\:6cd5\:6578\:70ba\:ff1a", " ", 
   SubsuperscriptBox["C", "3", "5"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["P", "3", "3"], "-", 
     RowBox[{
      SubsuperscriptBox["C", "1", "3"], "*", 
      SubsuperscriptBox["P", "2", "2"]}], "+", " ", 
     RowBox[{
      SubsuperscriptBox["C", "2", "3"], "*", 
      SubsuperscriptBox["P", "1", "1"]}], "-", 
     RowBox[{
      SubsuperscriptBox["C", "3", "3"], "*", 
      SubsuperscriptBox["P", "0", "0"]}]}], ")"}], 
   "\:ff0c\:5373"}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.436940456734375*^9, 3.436940457703125*^9}, {
   3.436940495359375*^9, 3.436940530640625*^9}, {3.436940566625*^9, 
   3.436940587703125*^9}, {3.43694062796875*^9, 3.436940636625*^9}, {
   3.436958856265625*^9, 3.436959000515625*^9}, {3.436959035765625*^9, 
   3.436959127296875*^9}, {3.4369591958125*^9, 3.436959202265625*^9}, {
   3.436959264484375*^9, 3.4369592915*^9}, 3.436959374234375*^9, 
   3.437092378421875*^9, {3.437092803984375*^9, 3.43709285378125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}], "]"}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Length", "[", 
     RowBox[{"Permutations", "[", 
      RowBox[{"Range", "[", "3", "]"}], "]"}], "]"}], "-", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "3", "]"}], ",", 
        RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}]}], "+", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "3", "]"}], ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "-", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "3", "]"}], ",", 
        RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.4369594275*^9, 3.436959449015625*^9}, {
  3.4369595640625*^9, 3.43695961703125*^9}}],

Cell[BoxData["20"], "Output",
 CellChangeTimes->{3.436959618953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["20", 
  RowBox[{"5", "!"}]]], "Input",
 CellChangeTimes->{3.4369606674375*^9}],

Cell[BoxData[
 FractionBox["1", "6"]], "Output",
 CellChangeTimes->{3.436960668890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", 
  RowBox[{"Subsets", "[", 
   RowBox[{
    RowBox[{"Range", "[", "5", "]"}], ",", 
    RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", 
  RowBox[{"Permutations", "[", 
   RowBox[{"Range", "[", "3", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "3", "]"}], ",", 
     RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "3", "]"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "3", "]"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.436959644859375*^9, 3.4369596529375*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.436959655078125*^9}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.43695965509375*^9}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.436959655109375*^9}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.436959655109375*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.436959655125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.43696040328125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4369604048125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", "1", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436959685671875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.436959687859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436959696140625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4369596974375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436959707578125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.436959711109375*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", "4", ")"}], "\:6070\:6709", " ", "4", " ", 
  "\:5c01\:88dd\:932f\:3002\:4e5f\:5c31\:662f\:8aaa\:ff1a\:5176\:4e2d\:53ea\
\:6709", " ", "1", "\:5c01\:4fe1\:6c92\:6709\:88dd\:932f\:ff0c\:5176\:9918", 
  " ", "4", " ", "\:5c01\:4fe1\:4e4b\:6bcf", " ", "1", " ", 
  "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167\:3002"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "1", ")"}]}], "\:5f9e", " ", "5", " ", 
   "\:5c01\:4fe1\:4e2d\:6311\:51fa", " ", "4", " ", "\:5c01", " ", 
   "\:653e\:932f\:7684\:ff0c\:5171\:6709", "  ", 
   SubsuperscriptBox["C", "4", "5"], " ", "\:ff0c\:5373", " ", 
   StyleBox["4",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "2", ")"}]}], 
   "\:91dd\:5c0d\:4e0a\:4e00\:6b65\:9a5f\:7684\:6bcf", " ", "1", 
   "\:7a2e\:65b9\:6cd5\:6240\:53d6\:51fa\:7684", " ", "4", 
   "\:5c01\:4fe1\:505a\:5982\:4e0b\:8655\:7406"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "3", ")"}]}], "4", 
   "\:5c01\:4e0d\:540c\:7684\:4fe1\:653e\:5165", " ", "4", " ", 
   "\:500b\:4e0d\:540c\:7684\:4fe1\:5c01\:ff0c\:5171\:6709", " ", 
   RowBox[{"4", "!"}], " ", "\:ff0c\:5373", " ", 
   StyleBox["24",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "4", ")"}]}], "\:5c07\:7b2c", " ", "1", " ", 
   "\:5c01\:653e\:5165\:7b2c", " ", "1", " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709",
    " ", 
   RowBox[{"3", "!"}], "\:ff0c\:5373", " ", "6", " ", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], " ", "\:5c01\:ff0c\:4ea6", " ", 
   
   RowBox[{"\:5404\:67093", "!"}], "\:ff0c\:5373\:5404\:6709", " ", "6", " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "1", "4"], "*", " ", 
   RowBox[{"3", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["24",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{
    RowBox[{"--", " ", 
     RowBox[{"(", "5", ")"}]}], "\:5c07\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], 
    "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], " ", 
    "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709\
", " ", 
    RowBox[{"2", "!"}], "\:ff0c\:5373", " ", "2", " ", 
    "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}], " ", "\:4ea6\:5404\:6709", " ", 
    RowBox[{"2", "!"}], "\:ff0c\:5373", " ", "2", " ", 
    "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
    SubsuperscriptBox["C", "2", "4"], "*", 
    RowBox[{"2", "!"}], "\:ff0c\:5373", " ", 
    StyleBox["12",
     FontColor->RGBColor[1, 0, 0]], " ", 
    "\:7a2e\:65b9\:6cd5\:3002"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{
    RowBox[{"--", " ", 
     RowBox[{"(", "6", ")"}]}], "\:5c07\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], 
    "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], " ", 
    "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709\
", " ", 
    RowBox[{"1", "!"}], "\:ff0c\:5373", " ", "1", " ", 
    "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", "3", ",", "4"}], "}"}], " ", "\:4ea6\:5404\:6709", " ",
     
    RowBox[{"1", "!"}], "\:ff0c\:5373", " ", "1", " ", 
    "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
    SubsuperscriptBox["C", "3", "4"], "*", 
    RowBox[{"1", "!"}], "\:ff0c\:5373", " ", 
    StyleBox["4",
     FontColor->RGBColor[1, 0, 0]], " ", 
    "\:7a2e\:65b9\:6cd5\:3002"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "7", ")"}]}], "\:5c07\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], 
   "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:53ea\:6709", " ", "1", " ", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "4", "4"], "*", 
   RowBox[{"0", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["1",
    FontColor->RGBColor[1, 0, 0]], " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:5176\:4e2d", " ", 
   RowBox[{"0", "!"}], " ", "\:8868\:793a\:53d6\:51fa", " ", "4", " ", 
   "\:5c01\:4fe1\:4e4b\:5f8c\:ff0c\:6c92\:6709\:5269\:9918\:7684\:9700\:8981\
\:96a8\:610f\:653e\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "8", ")"}]}], "\:7e3d\:7d50\:ff0c\:53ea\:6709", " ", "1", 
   "\:5c01\:6c92\:6709\:88dd\:932f\:ff0c\:5176\:9918", " ", "4", " ", 
   "\:5c01", "\:6bcf", " ", "1", " ", 
   "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167\:65b9\:6cd5\:6578\:70ba\:ff1a", " ", 
   SubsuperscriptBox["C", "4", "5"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["P", "4", "4"], "-", 
     RowBox[{
      SubsuperscriptBox["C", "1", "4"], "*", 
      SubsuperscriptBox["P", "3", "3"]}], "+", " ", 
     RowBox[{
      SubsuperscriptBox["C", "2", "4"], "*", 
      SubsuperscriptBox["P", "2", "2"]}], "-", 
     RowBox[{
      SubsuperscriptBox["C", "3", "4"], "*", 
      SubsuperscriptBox["P", "1", "1"]}], "+", " ", 
     RowBox[{
      SubsuperscriptBox["C", "4", "4"], "*", 
      SubsuperscriptBox["P", "0", "0"]}]}], ")"}], 
   "\:ff0c\:5373"}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.43694731009375*^9, 3.436947324609375*^9}, {
   3.43695680484375*^9, 3.4369568706875*^9}, {3.436956919984375*^9, 
   3.436956922*^9}, {3.436957053203125*^9, 3.436957355234375*^9}, {
   3.43695740440625*^9, 3.436957437296875*^9}, {3.436957476078125*^9, 
   3.436957528734375*^9}, {3.43695759065625*^9, 3.436957613515625*^9}, {
   3.43695801396875*^9, 3.43695821421875*^9}, {3.436958246875*^9, 
   3.436958283859375*^9}, 3.43695831621875*^9, {3.43695835203125*^9, 
   3.436958447515625*^9}, 3.4369589404375*^9, {3.436959146859375*^9, 
   3.436959163609375*^9}, {3.436959211703125*^9, 3.43695922034375*^9}, {
   3.436959348515625*^9, 3.436959351640625*^9}, {3.4370925418125*^9, 
   3.437092583328125*^9}, {3.43709261984375*^9, 3.4370926339375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "4", "}"}]}], "]"}], "]"}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Length", "[", 
     RowBox[{"Permutations", "[", 
      RowBox[{"Range", "[", "4", "]"}], "]"}], "]"}], "-", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "4", "]"}], ",", 
        RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "3", "]"}], "]"}], "]"}]}], "+", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "4", "]"}], ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}]}], "-", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "4", "]"}], ",", 
        RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "+", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", "4", "]"}], ",", 
        RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "*", 
     RowBox[{"Length", "[", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.436958507546875*^9, 3.436958624171875*^9}, {
  3.43695952884375*^9, 3.436959532625*^9}}],

Cell[BoxData["45"], "Output",
 CellChangeTimes->{3.436958629015625*^9, 3.436959536296875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["45", 
  RowBox[{"5", "!"}]]], "Input",
 CellChangeTimes->{{3.43696068678125*^9, 3.43696068703125*^9}}],

Cell[BoxData[
 FractionBox["3", "8"]], "Output",
 CellChangeTimes->{3.436960688734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", 
  RowBox[{"Subsets", "[", 
   RowBox[{
    RowBox[{"Range", "[", "5", "]"}], ",", 
    RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", 
  RowBox[{"Permutations", "[", 
   RowBox[{"Range", "[", "4", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "4", "]"}], ",", 
     RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "3", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "4", "]"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "4", "]"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "4", "]"}], ",", 
     RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.436958679984375*^9, 3.436958694515625*^9}, {
  3.436959540203125*^9, 3.436959543328125*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.436958697953125*^9, 3.4369595473125*^9}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{3.436958697953125*^9, 3.4369595473125*^9}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{3.436958697953125*^9, 3.4369595473125*^9}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{3.436958697953125*^9, 3.4369595473125*^9}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.436958697953125*^9, 3.4369595473125*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.436958697953125*^9, 3.4369595473125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436960416703125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.436960418234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", "1", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436958760375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.43695878434375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436958766140625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.436958785546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.436957542390625*^9, 3.436957570015625*^9}, 
   3.43695808471875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.436958786796875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.4369587735*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.436957571265625*^9, 3.436958087015625*^9, 
  3.436958788640625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", "5", ")"}], "\:6070\:6709", " ", "5", " ", 
  "\:5c01\:88dd\:932f\:3002\:4e5f\:5c31\:662f\:8aaa\:ff1a\:6bcf", " ", "1", 
  " ", "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\
\:5c01\:5167\:3002"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "1", ")"}]}], "5", 
   "\:5c01\:4e0d\:540c\:7684\:4fe1\:653e\:5165", " ", "5", " ", 
   "\:500b\:4e0d\:540c\:7684\:4fe1\:5c01\:ff0c\:5171\:6709", " ", 
   RowBox[{"5", "!"}], " ", "\:ff0c\:5373", " ", 
   StyleBox["120",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "2", ")"}]}], "\:5c07\:7b2c", " ", "1", " ", 
   "\:5c01\:653e\:5165\:7b2c", " ", "1", " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709",
    " ", 
   RowBox[{"4", "!"}], "\:ff0c\:5373", " ", "24", " ", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], " ", 
   "\:5c01\:ff0c\:4ea6", " ", "\:5404\:6709", " ", 
   RowBox[{"4", "!"}], "\:ff0c\:5373\:5404\:6709", " ", "24", " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "1", "5"], "*", " ", 
   RowBox[{"4", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["120",
    FontColor->RGBColor[1, 0, 0]], 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{
    RowBox[{"--", " ", 
     RowBox[{"(", "3", ")"}]}], "\:5c07\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], 
    "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], " ", 
    "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709\
", " ", 
    RowBox[{"3", "!"}], "\:ff0c\:5373", " ", "6", " ", 
    "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5"}], "}"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5"}], "}"}], " ", "\:4ea6\:5404\:6709", " ", 
    RowBox[{"3", "!"}], "\:ff0c\:5373", " ", "6", " ", 
    "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
    SubsuperscriptBox["C", "2", "5"], "*", 
    RowBox[{"3", "!"}], "\:ff0c\:5373", " ", 
    StyleBox["60",
     FontColor->RGBColor[1, 0, 0]], " ", 
    "\:7a2e\:65b9\:6cd5\:3002"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{
    RowBox[{"--", " ", 
     RowBox[{"(", "4", ")"}]}], "\:5c07\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], 
    "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], " ", 
    "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709\
", " ", 
    RowBox[{"2", "!"}], "\:ff0c\:5373", " ", "2", " ", 
    "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], " ", "\:4ea6\:5404\:6709", " ",
     
    RowBox[{"2", "!"}], "\:ff0c\:5373", " ", "2", " ", 
    "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
    SubsuperscriptBox["C", "3", "5"], "*", 
    RowBox[{"2", "!"}], "\:ff0c\:5373", " ", 
    StyleBox["20",
     FontColor->RGBColor[1, 0, 0]], " ", 
    "\:7a2e\:65b9\:6cd5\:3002"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "5", ")"}]}], "\:5c07\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], 
   "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], " ", 
   "\:500b\:4fe1\:5c01\:ff0c\:5176\:9918\:7684\:96a8\:610f\:653e\:ff0c\:6709",
    " ", 
   RowBox[{"1", "!"}], "\:ff0c\:5373", " ", "1", " ", 
   "\:7a2e\:65b9\:6cd5\:ff1b\:540c\:7406\:ff0c", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ",", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "5"}], "}"}], ",", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "4", ",", "5"}], "}"}], ",", 
  RowBox[{"{", 
   RowBox[{"1", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], " ", 
   "\:4ea6\:5404\:6709", " ", 
   RowBox[{"2", "!"}], "\:ff0c\:5373", " ", "2", " ", 
   "\:7a2e\:65b9\:6cd5\:3002\:7e3d\:5171\:6709", " ", 
   SubsuperscriptBox["C", "4", "5"], "*", 
   RowBox[{"1", "!"}], "\:ff0c\:5373", " ", 
   StyleBox["5",
    FontColor->RGBColor[1, 0, 0]], " ", 
   "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"--", " ", 
   RowBox[{"(", "5", ")"}]}], "\:5c07\:7b2c", " ", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], 
  "\:5c01\:540c\:6642\:5206\:5225\:653e\:5165\:7b2c", " ", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], " ", 
  "\:500b\:4fe1\:5c01\:ff0c\:53ea\:6709", " ", "1", " ", 
  "\:7a2e\:65b9\:6cd5\:ff1b\:7e3d\:5171\:6709", " ", 
  SubsuperscriptBox["C", "5", "5"], "*", 
  RowBox[{"0", "!"}], "\:ff0c\:5373", " ", 
  StyleBox["1",
   FontColor->RGBColor[1, 0, 0]], " ", "\:7a2e\:65b9\:6cd5\:3002\:5176\:4e2d",
   " ", 
  RowBox[{"0", "!"}], " ", "\:8868\:793a\:53d6\:51fa", " ", "5", " ", 
  "\:5c01\:4fe1\:4e4b\:5f8c\:ff0c\:6c92\:6709\:5269\:9918\:7684\:9700\:8981\
\:96a8\:610f\:653e\:3002"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"--", " ", 
    RowBox[{"(", "6", ")"}]}], "\:7e3d\:7d50\:ff0c\:6bcf", " ", "1", 
   "\:5c01\:4fe1\:90fd\:4e0d\:88dd\:5165\:539f\:6307\:5b9a\:7684\:4fe1\:5c01\
\:5167\:7684", " ", "\:65b9\:6cd5", " ", "\:6578\:70ba\:ff1a", " ", 
   SubsuperscriptBox["P", "5", "5"]}], "-", " ", 
  RowBox[{
   SubsuperscriptBox["C", "1", "5"], "*", 
   SubsuperscriptBox["P", "4", "4"]}], "+", 
  RowBox[{
   SubsuperscriptBox["C", "2", "5"], "*", 
   SubsuperscriptBox["P", "3", "3"]}], "-", "  ", 
  RowBox[{
   SubsuperscriptBox["C", "3", "5"], "*", 
   SubsuperscriptBox["P", "2", "2"]}], "+", 
  RowBox[{
   SubsuperscriptBox["C", "4", "5"], "*", 
   SubsuperscriptBox["P", "1", "1"]}], "-", " ", 
  RowBox[{
   SubsuperscriptBox["C", "5", "5"], "*", 
   SubsuperscriptBox["P", "0", "0"], "\:ff0c\:5373"}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.43694726703125*^9, 3.43694729296875*^9}, 
   3.4369473275*^9, {3.436947451578125*^9, 3.4369481461875*^9}, {
   3.436948203390625*^9, 3.436948322296875*^9}, {3.436948360421875*^9, 
   3.436948378640625*^9}, {3.436948413671875*^9, 3.436948484109375*^9}, {
   3.436948519453125*^9, 3.43694861171875*^9}, {3.4369486490625*^9, 
   3.436948694515625*^9}, {3.436948761015625*^9, 3.436949137203125*^9}, {
   3.43694917646875*^9, 3.436949255140625*^9}, {3.436949364171875*^9, 
   3.43694942728125*^9}, {3.436949488125*^9, 3.4369496304375*^9}, {
   3.4369523720625*^9, 3.4369523835625*^9}, {3.436952490890625*^9, 
   3.436952547828125*^9}, {3.4369526430625*^9, 3.43695268259375*^9}, 
   3.436952756734375*^9, {3.436955565796875*^9, 3.436955577109375*^9}, {
   3.436955635796875*^9, 3.436955720953125*^9}, {3.43695583334375*^9, 
   3.436956003671875*^9}, {3.436959323421875*^9, 3.43695932615625*^9}, 
   3.4370915880625*^9, {3.437091685046875*^9, 3.43709171928125*^9}, {
   3.43709244746875*^9, 3.437092522984375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "5", "]"}], "]"}], "]"}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"Subsets", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", 
      RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
   RowBox[{"Length", "[", 
    RowBox[{"Permutations", "[", 
     RowBox[{"Range", "[", "4", "]"}], "]"}], "]"}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"Subsets", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
   RowBox[{"Length", "[", 
    RowBox[{"Permutations", "[", 
     RowBox[{"Range", "[", "3", "]"}], "]"}], "]"}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"Subsets", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", 
      RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "*", 
   RowBox[{"Length", "[", 
    RowBox[{"Permutations", "[", 
     RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"Subsets", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", 
      RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "*", 
   RowBox[{"Length", "[", 
    RowBox[{"Permutations", "[", 
     RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"Subsets", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", 
      RowBox[{"{", "5", "}"}]}], "]"}], "]"}], "*", 
   RowBox[{"Length", "[", 
    RowBox[{"Permutations", "[", 
     RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.436955784109375*^9, {3.436956022515625*^9, 3.43695608590625*^9}, {
   3.43695615090625*^9, 3.436956430875*^9}, {3.436956563796875*^9, 
   3.43695656871875*^9}, {3.436959494953125*^9, 3.43695949878125*^9}}],

Cell[BoxData["44"], "Output",
 CellChangeTimes->{
  3.43695578559375*^9, 3.43695609259375*^9, 3.436956235796875*^9, {
   3.436956272234375*^9, 3.436956358421875*^9}, 3.43695640134375*^9, 
   3.43695643296875*^9, 3.436956571*^9, 3.4369595009375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["44", 
  RowBox[{"5", "!"}]]], "Input",
 CellChangeTimes->{{3.4369607011875*^9, 3.436960701359375*^9}}],

Cell[BoxData[
 FractionBox["11", "30"]], "Output",
 CellChangeTimes->{3.43696070396875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", 
  RowBox[{"Permutations", "[", 
   RowBox[{
    RowBox[{"Range", "[", "5", "]"}], ",", 
    RowBox[{"{", "5", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "1", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "4", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "3", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", 
     RowBox[{"{", "5", "}"}]}], "]"}], "]"}], "*", 
  RowBox[{"Length", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "0", "]"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4369565228125*^9, 3.436956555328125*^9}, {
  3.436959506171875*^9, 3.43695950859375*^9}, {3.436960449484375*^9, 
  3.43696046971875*^9}}],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{{3.436956529546875*^9, 3.436956556984375*^9}, 
   3.436959515109375*^9, 3.436960472953125*^9}],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{{3.436956529546875*^9, 3.436956556984375*^9}, 
   3.436959515109375*^9, 3.436960472953125*^9}],

Cell[BoxData["60"], "Output",
 CellChangeTimes->{{3.436956529546875*^9, 3.436956556984375*^9}, 
   3.436959515109375*^9, 3.436960472953125*^9}],

Cell[BoxData["20"], "Output",
 CellChangeTimes->{{3.436956529546875*^9, 3.436956556984375*^9}, 
   3.436959515109375*^9, 3.436960472953125*^9}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{{3.436956529546875*^9, 3.436956556984375*^9}, 
   3.436959515109375*^9, 3.43696047296875*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.436956529546875*^9, 3.436956556984375*^9}, 
   3.436959515109375*^9, 3.436960472984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "1", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "5", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.43695578559375*^9, 3.436956092609375*^9, 
  3.436956229046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.4369557608125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4369557624375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.43695576828125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.43695576909375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.43694862415625*^9, 3.43694879740625*^9, {3.4369489080625*^9, 
   3.436948913421875*^9}, 3.43694922725*^9, {3.436949285828125*^9, 
   3.4369492908125*^9}, {3.4369493330625*^9, 3.43694934825*^9}, 
   3.4369495726875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.43694935125*^9, 3.4369495739375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.436955777203125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.43695577875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\:53e6\:89e3\:ff1a\:6070\:6709", " ", "2", " ", 
  "\:5c01\:88dd\:932f\:3002"}]], "Input",
 CellChangeTimes->{{3.436959832140625*^9, 3.436959854515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", "2", ")"}], "\:6070\:6709", " ", "2", " ", 
  "\:5c01\:88dd\:932f\:3002\:4ee4", " ", "5", " ", 
  "\:500b\:4f4d\:7f6e\:4ee3\:8868", " ", "5", " ", "\:500b\:4fe1\:5c01\:ff0c",
   " ", "\:6709", " ", "3", " ", 
  "\:5c01\:4fe1\:653e\:5c0d\:4e86\:4f4d\:7f6e\:ff0c\:53e6", " ", "2", 
  "\:5c01\:53ef\:4ee5\:653e\:7684\:4f4d\:7f6e\:70ba", " ", 
  SubsuperscriptBox["C", "2", "5"], "\:ff0c\:5728\:6bcf", " ", "2", 
  "\:500b\:4f4d\:7f6e\:4e2d\:ff0c", " ", "2", " ", 
  "\:5c01\:4fe1\:53ef\:6392\:5217\:6578\:70ba", " ", 
  SubsuperscriptBox["P", "2", "2"], "\:ff0c\:5176\:4e2d\:6709", " ", "1", " ",
   "\:7a2e\:6392\:5217\:662f\:5c0d\:7684\:ff0c\:8981\:6392\:9664\:3002\:6545\
\:6070\:6709", " ", "2", " ", 
  "\:5c01\:88dd\:932f\:7684\:4e8b\:4ef6\:8868\:5217\:5982\:4e0b\:ff0c\:5171\
\:6709", " ", "10", "\:7a2e"}]], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.436937707546875*^9, 3.4369378025*^9}, {
  3.43693800209375*^9, 3.436938098671875*^9}, {3.4369382856875*^9, 
  3.436938435625*^9}, {3.436939853453125*^9, 3.43693992440625*^9}, {
  3.436940028265625*^9, 3.4369400784375*^9}, {3.436940193265625*^9, 
  3.4369403745625*^9}, {3.4369404683125*^9, 3.43694048540625*^9}, {
  3.436940573171875*^9, 3.43694057421875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{
   RowBox[{"Range", "[", "5", "]"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.436937874796875*^9, 3.43693800615625*^9}, {
  3.436940383625*^9, 3.436940425578125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.436940429046875*^9}]
}, Open  ]]
},
WindowSize->{1016, 666},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 928, 21, 192, "Input"],
Cell[1499, 44, 415, 10, 56, "Input"],
Cell[1917, 56, 4294, 98, 329, "Input"],
Cell[CellGroupData[{
Cell[6236, 158, 1107, 32, 98, "Input"],
Cell[7346, 192, 69, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7452, 198, 130, 3, 68, "Input"],
Cell[7585, 203, 112, 2, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7734, 210, 997, 27, 125, "Input"],
Cell[8734, 239, 71, 1, 42, "Output"],
Cell[8808, 242, 70, 1, 42, "Output"],
Cell[8881, 245, 70, 1, 42, "Output"],
Cell[8954, 248, 68, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9059, 254, 248, 6, 43, "Input"],
Cell[9310, 262, 684, 23, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10031, 290, 197, 6, 43, "Input"],
Cell[10231, 298, 161, 5, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10429, 308, 222, 6, 43, "Input"],
Cell[10654, 316, 139, 4, 42, "Output"]
}, Open  ]],
Cell[10808, 323, 5426, 127, 383, "Input"],
Cell[CellGroupData[{
Cell[16259, 454, 1499, 43, 125, "Input"],
Cell[17761, 499, 71, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17869, 505, 106, 3, 68, "Input"],
Cell[17978, 510, 90, 2, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18105, 517, 1307, 36, 152, "Input"],
Cell[19415, 555, 71, 1, 42, "Output"],
Cell[19489, 558, 69, 1, 42, "Output"],
Cell[19561, 561, 70, 1, 42, "Output"],
Cell[19634, 564, 70, 1, 42, "Output"],
Cell[19707, 567, 67, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19811, 573, 227, 6, 43, "Input"],
Cell[20041, 581, 783, 23, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20861, 609, 208, 6, 43, "Input"],
Cell[21072, 617, 197, 6, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21306, 628, 208, 6, 43, "Input"],
Cell[21517, 636, 270, 9, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21824, 650, 208, 6, 43, "Input"],
Cell[22035, 658, 149, 4, 42, "Output"]
}, Open  ]],
Cell[22199, 665, 7120, 170, 491, "Input"],
Cell[CellGroupData[{
Cell[29344, 839, 1851, 53, 152, "Input"],
Cell[31198, 894, 93, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31328, 900, 130, 3, 68, "Input"],
Cell[31461, 905, 90, 2, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31588, 912, 1669, 46, 179, "Input"],
Cell[33260, 960, 90, 1, 42, "Output"],
Cell[33353, 963, 91, 1, 42, "Output"],
Cell[33447, 966, 91, 1, 42, "Output"],
Cell[33541, 969, 91, 1, 42, "Output"],
Cell[33635, 972, 90, 1, 42, "Output"],
Cell[33728, 975, 90, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33855, 981, 228, 6, 43, "Input"],
Cell[34086, 989, 490, 13, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34613, 1007, 215, 6, 43, "Input"],
Cell[34831, 1015, 230, 7, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35098, 1027, 218, 6, 43, "Input"],
Cell[35319, 1035, 449, 15, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35805, 1055, 267, 7, 43, "Input"],
Cell[36075, 1064, 371, 11, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36483, 1080, 213, 6, 43, "Input"],
Cell[36699, 1088, 206, 5, 42, "Output"]
}, Open  ]],
Cell[36920, 1096, 8363, 203, 489, "Input"],
Cell[CellGroupData[{
Cell[45308, 1303, 2016, 58, 179, "Input"],
Cell[47327, 1363, 248, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47612, 1372, 130, 3, 68, "Input"],
Cell[47745, 1377, 91, 2, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47873, 1384, 1898, 53, 179, "Input"],
Cell[49774, 1439, 144, 2, 42, "Output"],
Cell[49921, 1443, 144, 2, 42, "Output"],
Cell[50068, 1447, 143, 2, 42, "Output"],
Cell[50214, 1451, 143, 2, 42, "Output"],
Cell[50360, 1455, 141, 2, 42, "Output"],
Cell[50504, 1459, 142, 2, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50683, 1466, 186, 5, 43, "Input"],
Cell[50872, 1473, 311, 9, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51220, 1487, 226, 6, 43, "Input"],
Cell[51449, 1495, 683, 23, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52169, 1523, 227, 6, 43, "Input"],
Cell[52399, 1531, 784, 23, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53220, 1559, 429, 10, 43, "Input"],
Cell[53652, 1571, 506, 13, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54195, 1589, 228, 6, 43, "Input"],
Cell[54426, 1597, 168, 5, 42, "Output"]
}, Open  ]],
Cell[54609, 1605, 180, 3, 43, "Input"],
Cell[54792, 1610, 1275, 22, 111, "Input"],
Cell[CellGroupData[{
Cell[56092, 1636, 251, 6, 43, "Input"],
Cell[56346, 1644, 685, 23, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)