(* 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[     12595,        325]
NotebookOptionsPosition[     11673,        292]
NotebookOutlinePosition[     12036,        308]
CellTagsIndexPosition[     11993,        305]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "Combinatorica`"}]], "Input"],

Cell[BoxData[
 RowBox[{"\:5f9e", 
  RowBox[{"{", 
   RowBox[{"a", ",", "a"}], "}"}], "\:ff0c", 
  RowBox[{"{", 
   RowBox[{"b", ",", "b", ",", "b"}], "}"}], "\:ff0c", 
  RowBox[{"{", 
   RowBox[{"c", ",", "c", ",", "c"}], "}"}], "\:4e2d\:53d6", " ", "3", " ", 
  RowBox[{
  "\:500b\:6392\:5217\:ff0c\:5171\:6709\:5e7e\:7a2e\:65b9\:6cd5", "?", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"a", ",", "a", ",", "b"}], "}"}]}], " ", "\:8207", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "a"}], "}"}], 
  "\:8996\:70ba\:4e0d\:540c\:3002"}]], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.441325248953125*^9, 3.441325261421875*^9}, {
  3.44132530153125*^9, 3.441325340359375*^9}, {3.441326113*^9, 
  3.441326123859375*^9}, {3.44141273*^9, 3.441412787453125*^9}}],

Cell[BoxData[{
 RowBox[{"\:89e3\:4e00\:ff1a\:7528\:586b\:88dc\:3001\:6392\:5217", 
  RowBox[{"(", "\:4e8c\:9805\:5f0f\:5b9a\:7406\:61c9\:7528", ")"}], 
  "\:3001\:6263\:9664\:6cd5"}], "\[IndentingNewLine]", 
 RowBox[{"\:5148\:5c07", " ", 
  RowBox[{"{", 
   RowBox[{"a", ",", "a"}], "}"}], "\:586b\:88dc\:70ba", " ", 
  RowBox[{"{", 
   RowBox[{"a", ",", "a", ",", "a"}], "}"}], 
  "\:ff0c\:6c42\:6392\:5217\:65b9\:6cd5\:6578\:ff0c\:518d\:6263\:9664\:53d6\
\:51fa", " ", "3", " ", "\:500b", " ", "a", " ", 
  "\:7684\:65b9\:6cd5\:6578\:3002"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\:5f9e", 
   RowBox[{"{", 
    RowBox[{"a", ",", "a", ",", "a"}], "}"}], "\:ff0c", 
   RowBox[{"{", 
    RowBox[{"b", ",", "b", ",", "b"}], "}"}], "\:ff0c", 
   RowBox[{"{", 
    RowBox[{"c", ",", "c", ",", "c"}], "}"}], "\:4e2d\:53d6", " ", "3", " ", 
   "\:500b\:6392\:5217\:ff0c\:5171\:6709", " ", 
   SuperscriptBox["3", "3"]}], "=", 
  RowBox[{"27", "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:53d6\:51fa", " ", "3", " ", "\:500b", " ", "a", " ", 
  "\:53ea\:6709\:4e00\:7a2e\:65b9\:6cd5\:3002\:6263\:9664\:4e4b\:5f8c\:5f97", 
  " ", "26", " ", "\:7a2e\:65b9\:6cd5\:3002", " "}]}], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.441326166203125*^9, 3.441326174125*^9}, {
  3.441326223875*^9, 3.441326374234375*^9}, {3.441326502078125*^9, 
  3.441326507859375*^9}, {3.441326623875*^9, 3.441326629640625*^9}, {
  3.44132698221875*^9, 3.441326997109375*^9}, {3.441327134953125*^9, 
  3.441327164921875*^9}, {3.441334742109375*^9, 3.441334782359375*^9}, {
  3.441341260859375*^9, 3.441341264*^9}, {3.441341310625*^9, 
  3.441341311953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\:5373", " ", 
    SuperscriptBox["3", "3"]}], "-", "1"}], "=", "26"}]], "Input",
 CellChangeTimes->{{3.44134134353125*^9, 3.441341351671875*^9}, {
  3.441341398109375*^9, 3.441341405046875*^9}}],

Cell[BoxData[{
 RowBox[{"\:89e3\:4e8c\:ff1a\:7528\:5206\:5272\:3001\:6392\:5217", 
  RowBox[{"(", "\:4e8c\:9805\:5f0f\:5b9a\:7406\:61c9\:7528", ")"}], 
  "\:3001\:5408\:4f75\:6cd5"}], "\[IndentingNewLine]", 
 RowBox[{"\:5c07\:6392\:5217\:65b9\:6cd5\:5206\:5272\:70ba", " ", "3", 
  "\:90e8\:4efd\:ff0c\:7b2c", " ", "1", " ", "\:90e8\:4efd", " ", 
  "\:4e0d\:9078", " ", "a", " ", "\:ff0c\:800c\:5728", " ", "b", " ", 
  "\:8207", " ", "c", " ", "\:4e2d\:9078", " ", "3", " ", 
  "\:500b\:4f86\:6392\:5217\:ff0c\:8a08\:7b97\:5176\:65b9\:6cd5\:6578\:3002\
\:7b2c", " ", "2", " ", "\:90e8\:4efd\:9078\:53d6", " ", "1", "\:500b", " ", 
  "a", " ", "\:ff0c\:800c\:5728", " ", "b", " ", "\:8207", " ", "c", " ", 
  "\:4e2d\:9078", " ", "2", 
  "\:500b\:4f86\:6392\:5217\:ff0c\:8a08\:7b97\:5176\:65b9\:6cd5\:6578\:3002\
\:7b2c", " ", "3", " ", "\:90e8\:4efd\:9078\:53d6", " ", "2", "\:500b", " ", 
  "a", " ", "\:ff0c\:800c\:5728", " ", "b", " ", "\:8207", " ", "c", " ", 
  "\:4e2d\:9078", " ", "1", 
  "\:500b\:4f86\:6392\:5217\:ff0c\:8a08\:7b97\:5176\:65b9\:6cd5\:6578\:3002\
\:6700\:5f8c\:5c07", " ", "3", 
  "\:90e8\:4efd\:7684\:65b9\:6cd5\:6578\:5408\:4f75\:3002"}]}], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.441335201375*^9, 3.44133548115625*^9}, {
  3.441340047140625*^9, 3.441340159421875*^9}, {3.44134086128125*^9, 
  3.44134089628125*^9}, {3.441412638578125*^9, 3.441412666828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", "1", ")"}], "\:7b2c", " ", "1", " ", "\:90e8\:4efd", " ", 
  "\:4e0d\:9078", " ", "a", " ", "\:ff0c\:800c\:5728", " ", "b", " ", 
  "\:8207", " ", "c", " ", "\:4e2d\:9078", " ", "3", " ", 
  "\:500b\:4f86\:6392\:5217\:ff0c\:8a08\:7b97\:5176\:65b9\:6cd5\:6578\:3002"}]\
], "Input",
 CellChangeTimes->{{3.44134016640625*^9, 3.44134017784375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "\:5728", " ", "b", " ", "\:8207", " ", "c", " ", "\:4e2d\:9078", " ", "3", 
   " ", "\:500b\:4f86\:6392\:5217\:6709", " ", 
   SuperscriptBox["2", "3"]}], "=", 
  RowBox[{"8", "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:4e0d\:9078", " ", "a", " ", "\:53ea\:6709", " ", "1", " ", 
  "\:7a2e\:65b9\:6cd5\:3002"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\:6545\:7b2c", " ", "1", " ", "\:90e8\:4efd\:5171\:6709", "  ", 
   SuperscriptBox["2", "3"], "\[Times]", "1"}], "=", 
  RowBox[{"8", "\:7a2e\:65b9\:6cd5"}]}]}], "Input",
 CellChangeTimes->{{3.441340189390625*^9, 3.4413402019375*^9}, {
   3.441340284671875*^9, 3.44134032053125*^9}, {3.441340476890625*^9, 
   3.441340521453125*^9}, 3.44134064271875*^9, 3.44134077884375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", "2", ")"}], "\:7b2c", " ", "2", " ", 
  "\:90e8\:4efd\:9078\:53d6", " ", "1", "\:500b", " ", "a", " ", 
  "\:ff0c\:800c\:5728", " ", "b", " ", "\:8207", " ", "c", " ", 
  "\:4e2d\:9078", " ", "2", 
  "\:500b\:4f86\:6392\:5217\:ff0c\:8a08\:7b97\:5176\:65b9\:6cd5\:6578\:3002"}]\
], "Input",
 CellChangeTimes->{3.44134022675*^9, 3.441340569640625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "\:5728", " ", "b", " ", "\:8207", " ", "c", " ", "\:4e2d\:9078", " ", "2", 
   "\:500b\:4f86\:6392\:5217\:6709", " ", 
   SuperscriptBox["2", "2"]}], "=", 
  RowBox[{"4", "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:5c07", " ", "a", " ", 
  "\:5b89\:63d2\:65bc\:5df2\:6392\:5217\:5b8c\:6210\:4e4b", " ", "2", " ", 
  "\:500b", " ", "\:7269\:4ef6\:4e4b\:9593\:6216\:5169\:65c1\:ff0c\:6709", 
  " ", "3", "\:7a2e\:65b9\:6cd5\:3002"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\:6545\:7b2c", " ", "2", " ", "\:90e8\:4efd\:5171\:6709", " ", 
   SuperscriptBox["2", "2"], "\[Times]", "3"}], "=", 
  RowBox[{"12", "\:7a2e\:65b9\:6cd5\:3002"}]}]}], "Input",
 CellChangeTimes->{{3.4413402409375*^9, 3.44134027346875*^9}, {
   3.44134033728125*^9, 3.441340468296875*^9}, {3.441340528734375*^9, 
   3.44134056334375*^9}, 3.4413406463125*^9, {3.441340735921875*^9, 
   3.441340769609375*^9}, {3.441340968421875*^9, 3.44134097771875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", "3", ")"}], "\:7b2c", " ", "3", " ", 
  "\:90e8\:4efd\:9078\:53d6", " ", "2", "\:500b", " ", "a", " ", 
  "\:ff0c\:800c\:5728", " ", "b", " ", "\:8207", " ", "c", " ", 
  "\:4e2d\:9078", " ", "1", 
  "\:500b\:4f86\:6392\:5217\:ff0c\:8a08\:7b97\:5176\:65b9\:6cd5\:6578\:3002"}]\
], "Input",
 CellChangeTimes->{{3.44134058096875*^9, 3.44134058159375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "\:5728", " ", "b", " ", "\:8207", " ", "c", " ", "\:4e2d\:9078", " ", "1", 
   "\:500b\:4f86\:6392\:5217\:6709", " ", 
   SuperscriptBox["2", "1"]}], "=", 
  RowBox[{"2", "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:5c07\:5176\:5b89\:63d2\:5728\:5df2\:6392\:5217\:5b8c\:6210\:4e4b",
   " ", "2", " ", "\:500b", " ", "a", " ", 
  "\:7269\:4ef6\:4e4b\:9593\:6216\:5169\:65c1\:ff0c\:6709", " ", "3", 
  "\:65b9\:6cd5\:3002"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\:6545\:7b2c", " ", "3", " ", "\:90e8\:4efd\:5171\:6709", " ", 
   SuperscriptBox["2", "1"], "\[Times]", "3"}], "=", 
  RowBox[{"6", "\:7a2e\:65b9\:6cd5\:3002"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "4", ")"}], "\:5408\:4f75\:7b2c", " ", "1", 
    "\:ff0c2\:ff0c3\:ff0c\:90e8\:4efd\:7684\:65b9\:6cd5\:6578\:ff0c\:5171\
\:6709", " ", "8"}], "+", "12", "+", "6"}], "=", 
  RowBox[{"26", "\:7a2e\:65b9\:6cd5\:6578\:3002"}]}]}], "Input",
 CellChangeTimes->{{3.441340613640625*^9, 3.441340746*^9}, {
  3.44134078521875*^9, 3.441340836984375*^9}, {3.44134101246875*^9, 
  3.44134108734375*^9}}],

Cell[BoxData["\:5217\:8868\:9a57\:8b49"], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{3.441341177609375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Permutations", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "a", ",", "a", ",", "b", ",", "b", ",", "b", ",", "c", ",", "c", ",", 
     "c"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.441335023125*^9, 3.44133511878125*^9}, 
   3.44133516059375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "a", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "c", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "c", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "c", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "a", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "a", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "b", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "b", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "b", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "c", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "c", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "c", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "a", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "a", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "b", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "b", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "b", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "c", ",", "a"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "c", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "c", ",", "c"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.441335050953125*^9, 3.4413350648125*^9}, {
   3.441335096984375*^9, 3.4413351209375*^9}, 3.441335161625*^9, 
   3.44134116496875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.44133510071875*^9, 3.441335106921875*^9}}],

Cell[BoxData["26"], "Output",
 CellChangeTimes->{{3.441335108265625*^9, 3.44133512521875*^9}, 
   3.441335165796875*^9, 3.441341166203125*^9}]
}, Open  ]]
},
WindowSize->{1016, 666},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 7, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 58, 1, 43, "Input"],
Cell[629, 24, 787, 19, 88, "Input"],
Cell[1419, 45, 1672, 33, 142, "Input"],
Cell[3094, 80, 242, 6, 45, "Input"],
Cell[3339, 88, 1410, 22, 142, "Input"],
Cell[4752, 112, 383, 7, 43, "Input"],
Cell[5138, 121, 795, 15, 100, "Input"],
Cell[5936, 138, 388, 8, 43, "Input"],
Cell[6327, 148, 992, 18, 100, "Input"],
Cell[7322, 168, 392, 8, 43, "Input"],
Cell[7717, 178, 1159, 24, 127, "Input"],
Cell[8879, 204, 122, 2, 58, "Input"],
Cell[CellGroupData[{
Cell[9026, 210, 319, 9, 43, "Input"],
Cell[9348, 221, 2003, 57, 118, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11388, 283, 124, 2, 43, "Input"],
Cell[11515, 287, 142, 2, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)