(* 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[     31921,       1017]
NotebookOptionsPosition[     30785,        978]
NotebookOutlinePosition[     31146,        994]
CellTagsIndexPosition[     31103,        991]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"x", "+", "y"}], ")"}], "n"], "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "0", "n"], 
    SuperscriptBox["x", "n"], 
    SuperscriptBox["y", "0"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "1", "n"], 
    SuperscriptBox["x", 
     RowBox[{"n", "-", "1"}]], 
    SuperscriptBox["y", "1"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "2", "n"], 
    SuperscriptBox["x", 
     RowBox[{"n", "-", "2"}]], 
    SuperscriptBox["y", "2"]}], "+", 
   "\[CenterEllipsis]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\t\t", 
  RowBox[{
   RowBox[{
    RowBox[{"+", 
     SubsuperscriptBox["C", "r", "n"]}], 
    SuperscriptBox["x", 
     RowBox[{"n", "-", "r"}]], 
    SuperscriptBox["y", "r"]}], "+", "\[CenterEllipsis]", "+", 
   RowBox[{
    SubsuperscriptBox["C", 
     RowBox[{"n", "-", "2"}], "n"], 
    SuperscriptBox["x", "2"], 
    SuperscriptBox["y", 
     RowBox[{"n", "-", "2"}]]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", 
     RowBox[{"n", "-", "1"}], "n"], 
    SuperscriptBox["x", "1"], 
    SuperscriptBox["y", 
     RowBox[{"n", "-", "1"}]]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "n", "n"], 
    SuperscriptBox["x", "0"], 
    SuperscriptBox["y", "n"]}]}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.440902459234375*^9, 3.440902556015625*^9}, {
  3.440902587921875*^9, 3.44090280525*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.440903753921875*^9, 3.440903758609375*^9}}],

Cell[BoxData[{
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"x", "+", 
    RowBox[{"2", "y"}]}], ")"}], "5"], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "0", "5"], 
    SuperscriptBox["x", "5"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "0"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "1", "5"], 
    SuperscriptBox["x", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "1"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "2", "5"], 
    SuperscriptBox["x", "3"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "2"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "3", "5"], 
    SuperscriptBox["x", "2"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "3"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "4", "5"], 
    SuperscriptBox["x", "1"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "4"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "5", "5"], 
    SuperscriptBox["x", "0"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "5"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{"1", 
    SuperscriptBox["x", "5"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "y"}], ")"}], "0"]}], "+", 
   RowBox[{"5", 
    SuperscriptBox["x", "4"], "2", "y"}], "+", 
   RowBox[{"10", 
    SuperscriptBox["x", "3"], "4", 
    SuperscriptBox["y", "2"]}], "+", 
   RowBox[{"10", 
    SuperscriptBox["x", "2"], "8", 
    SuperscriptBox["y", "3"]}], "+", 
   RowBox[{"5", 
    SuperscriptBox["x", "1"], "16", 
    SuperscriptBox["y", "4"]}], "+", 
   RowBox[{"1", 
    SuperscriptBox["x", "0"], "32", 
    SuperscriptBox["y", "5"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   SuperscriptBox["x", "5"], "+", 
   RowBox[{"10", " ", 
    SuperscriptBox["x", "4"], " ", "y"}], "+", 
   RowBox[{"40", " ", 
    SuperscriptBox["x", "3"], " ", 
    SuperscriptBox["y", "2"]}], "+", 
   RowBox[{"80", " ", 
    SuperscriptBox["x", "2"], " ", 
    SuperscriptBox["y", "3"]}], "+", 
   RowBox[{"80", " ", "x", " ", 
    SuperscriptBox["y", "4"]}], "+", 
   RowBox[{"32", " ", 
    SuperscriptBox["y", "5"]}]}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.440904759734375*^9, 3.440904814703125*^9}, {
   3.440904846953125*^9, 3.440904919140625*^9}, {3.4409049505*^9, 
   3.440905079734375*^9}, {3.440905120390625*^9, 3.440905147*^9}, 
   3.44090541328125*^9, {3.440906121921875*^9, 3.440906123359375*^9}}],

Cell[BoxData[{
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{
    RowBox[{"3", "a"}], "-", 
    RowBox[{"2", "b"}]}], ")"}], "4"], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "0", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "a"}], ")"}], "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "b"}], ")"}], "0"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "1", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "a"}], ")"}], "3"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "b"}], ")"}], "1"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "2", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "a"}], ")"}], "2"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "b"}], ")"}], "2"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "3", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "a"}], ")"}], "1"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "b"}], ")"}], "3"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "4", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "a"}], ")"}], "0"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "b"}], ")"}], "4"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{"81", " ", 
    SuperscriptBox["a", "4"]}], "-", 
   RowBox[{"216", " ", 
    SuperscriptBox["a", "3"], " ", "b"}], "+", 
   RowBox[{"216", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"]}], "-", 
   RowBox[{"96", " ", "a", " ", 
    SuperscriptBox["b", "3"]}], "+", 
   RowBox[{"16", " ", 
    SuperscriptBox["b", "4"]}]}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.4409061541875*^9, 3.440906197140625*^9}, {
  3.440906231296875*^9, 3.440906332859375*^9}}],

Cell[BoxData[{
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", 
     SuperscriptBox["x", "2"]}], "-", 
    FractionBox["1", "x"]}], ")"}], "6"], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "0", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "0"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "1", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "5"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "1"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "2", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "2"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "3", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "3"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "3"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "4", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "2"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "4"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "5", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "1"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "5"]}], "+", 
   RowBox[{
    SubsuperscriptBox["C", "6", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], ")"}], "0"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "6"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{"1", " ", "64", 
    SuperscriptBox["x", "12"]}], "+", 
   RowBox[{"6", " ", "32", 
    SuperscriptBox["x", "10"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "1"]}], "+", 
   RowBox[{"15", " ", "16", 
    SuperscriptBox["x", "8"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "2"]}], "+", 
   RowBox[{"20", " ", "8", 
    SuperscriptBox["x", "6"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "3"]}], "+", 
   RowBox[{"15", " ", "4", 
    SuperscriptBox["x", "4"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "4"]}], "+", 
   RowBox[{"6", " ", "2", 
    SuperscriptBox["x", "2"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "5"]}], "+", 
   RowBox[{"1", " ", "1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox["1", "x"]}], ")"}], "6"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"=", 
  RowBox[{
   RowBox[{"64", 
    SuperscriptBox["x", "12"]}], "-", 
   RowBox[{"192", 
    SuperscriptBox["x", "9"]}], "+", 
   RowBox[{"240", 
    SuperscriptBox["x", "6"]}], "-", 
   RowBox[{"160", 
    SuperscriptBox["x", "3"]}], "+", "60", "-", 
   RowBox[{"12", 
    FractionBox["1", 
     SuperscriptBox["x", "3"]]}], "+", 
   FractionBox["1", 
    SuperscriptBox["x", "6"]]}]}]}], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.440906437125*^9, 3.44090686403125*^9}, {
  3.4409069046875*^9, 3.440906977296875*^9}, {3.4409070268125*^9, 
  3.4409071853125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "c"}], ")"}], "6"], "//", 
   "Expand"}]}]], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.440908384234375*^9, 3.440908410765625*^9}, {
  3.44091007896875*^9, 3.4409100808125*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "6"], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["a", "5"], " ", "b"}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["b", "2"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "3"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "4"]}], "+", 
  RowBox[{"6", " ", "a", " ", 
   SuperscriptBox["b", "5"]}], "+", 
  SuperscriptBox["b", "6"], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["a", "5"], " ", "c"}], "+", 
  RowBox[{"30", " ", 
   SuperscriptBox["a", "4"], " ", "b", " ", "c"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "2"], " ", "c"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "3"], " ", "c"}], "+", 
  RowBox[{"30", " ", "a", " ", 
   SuperscriptBox["b", "4"], " ", "c"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["b", "5"], " ", "c"}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", "b", " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"90", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["b", "4"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", "b", " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"30", " ", "a", " ", "b", " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"6", " ", "a", " ", 
   SuperscriptBox["c", "5"]}], "+", 
  RowBox[{"6", " ", "b", " ", 
   SuperscriptBox["c", "5"]}], "+", 
  SuperscriptBox["c", "6"]}]], "Output",
 CellChangeTimes->{3.44090904215625*^9, 3.4409100823125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "v", "]"}]], "Input",
 CellChangeTimes->{{3.44091008884375*^9, 3.44091009953125*^9}}],

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

Cell[BoxData[
 RowBox[{"\:4e0a\:5217", " ", "28", 
  "\:9805\:5206\:6790\:5982\:4e0b\:ff1a"}]], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.4409121129375*^9, 3.440912128859375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", 
   RowBox[{"(", 
    SuperscriptBox["a", "6"], ")"}]}], "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", 
   RowBox[{"(", 
    SuperscriptBox["b", "6"], ")"}]}], "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", 
   RowBox[{"(", 
    SuperscriptBox["c", "6"], ")"}]}], "=", "1"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"p", "+", "q"}], "=", "6"}], ",", 
     RowBox[{"1", "\[LessEqual]", "p", "\[LessEqual]", "5"}], ",", 
     RowBox[{"1", "\[LessEqual]", "q", "\[LessEqual]", "5"}]}], "}"}], "n", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["a", "p"], " ", 
     SuperscriptBox["b", "q"]}], ")"}]}], "=", "5"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "p"], 
   SuperscriptBox["b", "q"], " ", "\:4e2d\:5148\:5c07", " ", "a", " ", "b", "  ",
    "\:5206\:914d", " ", "1", " ", "\:6b21\:ff0c\:5f97", 
   SuperscriptBox["a", "1"], 
   SuperscriptBox["b", "1"], "  ", "\:ff0c\:518d\:5c07", " ", "6"}], "-", 
  RowBox[{
  "2", "\:6240\:5269\:4e4b", " ", "4", "\:6b21\:5206\:914d\:7d66", " ", "a", 
   " ", "b", " ", "\:ff0c"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\:5373", "+", 
   RowBox[{"1111", 
    SubsuperscriptBox["\:4e4b\:6392\:5217\:ff0cH", "2", "4"]}]}], "=", 
  RowBox[{
   SubsuperscriptBox["C", 
    RowBox[{"2", "-", "1"}], 
    RowBox[{"4", "+", "2", "-", "1"}]], "=", 
   RowBox[{
    SubsuperscriptBox["C", "1", "5"], "=", 
    RowBox[{
     FractionBox[
      RowBox[{"5", "!"}], 
      RowBox[{
       RowBox[{"1", "!"}], " ", 
       RowBox[{"4", "!"}]}]], "=", 
     "5"}]}]}]}], "\[IndentingNewLine]", "\:540c\:7406", \
"\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"q", "+", "r"}], "=", "6"}], ",", 
     RowBox[{"1", "\[LessEqual]", "q", "\[LessEqual]", "5"}], ",", 
     RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "5"}]}], "}"}], "n", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["b", "q"], " ", 
     SuperscriptBox["c", "r"]}], ")"}]}], "=", "5"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"r", "+", "p"}], "=", "6"}], ",", 
     RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "5"}], ",", 
     RowBox[{"1", "\[LessEqual]", "p", "\[LessEqual]", "5"}]}], "}"}], "n", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["c", "r"], " ", 
     SuperscriptBox["a", "p"]}], ")"}]}], "=", "5"}]}], "Input",
 CellChangeTimes->{{3.44091287603125*^9, 3.4409129073125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"p", "+", "q", "+", "r"}], "=", "6"}], ",", 
     RowBox[{"1", "\[LessEqual]", "p", "\[LessEqual]", "4"}], ",", 
     RowBox[{"1", "\[LessEqual]", "q", "\[LessEqual]", "4"}], ",", 
     RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "4"}]}], "}"}], "n", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["a", "p"], 
     SuperscriptBox["b", "q"], " ", 
     SuperscriptBox["c", "r"]}], ")"}]}], "=", 
  "10"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "p"], 
   SuperscriptBox["b", "q"], " ", 
   SuperscriptBox["c", "r"], "\:4e2d\:5148\:5c07", " ", "a", " ", "b", " ", 
   "c", " ", "\:5206\:914d", " ", "1", " ", "\:6b21\:ff0c\:5f97", 
   SuperscriptBox["a", "1"], 
   SuperscriptBox["b", "1"], " ", 
   SuperscriptBox["c", "1"], " ", "\:ff0c\:518d\:5c07", " ", "6"}], "-", 
  RowBox[{
  "3", "\:6240\:5269\:4e4b", " ", "3", " ", "\:6b21\:5206\:914d\:7d66", " ", 
   "a", " ", "b", " ", "c\:ff0c"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\:5373", "++"}], "111", 
   SubsuperscriptBox["\:4e4b\:6392\:5217\:ff0cH", "3", "3"]}], "=", 
  RowBox[{
   SubsuperscriptBox["C", 
    RowBox[{"3", "-", "1"}], 
    RowBox[{"3", "+", "3", "-", "1"}]], "=", 
   RowBox[{
    SubsuperscriptBox["C", "2", "5"], "=", 
    RowBox[{
     FractionBox[
      RowBox[{"5", "!"}], 
      RowBox[{
       RowBox[{"2", "!"}], " ", 
       RowBox[{"3", "!"}]}]], "=", "10"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.440912718359375*^9, 3.440912832328125*^9}}],

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "c", "+", "d"}], ")"}], "6"], "//", 
   "Expand"}]}]], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.44090914140625*^9, 3.44090916509375*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "6"], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["a", "5"], " ", "b"}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["b", "2"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "3"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "4"]}], "+", 
  RowBox[{"6", " ", "a", " ", 
   SuperscriptBox["b", "5"]}], "+", 
  SuperscriptBox["b", "6"], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["a", "5"], " ", "c"}], "+", 
  RowBox[{"30", " ", 
   SuperscriptBox["a", "4"], " ", "b", " ", "c"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "2"], " ", "c"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "3"], " ", "c"}], "+", 
  RowBox[{"30", " ", "a", " ", 
   SuperscriptBox["b", "4"], " ", "c"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["b", "5"], " ", "c"}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", "b", " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"90", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["b", "4"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", "b", " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"30", " ", "a", " ", "b", " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"6", " ", "a", " ", 
   SuperscriptBox["c", "5"]}], "+", 
  RowBox[{"6", " ", "b", " ", 
   SuperscriptBox["c", "5"]}], "+", 
  SuperscriptBox["c", "6"], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["a", "5"], " ", "d"}], "+", 
  RowBox[{"30", " ", 
   SuperscriptBox["a", "4"], " ", "b", " ", "d"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "2"], " ", "d"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "3"], " ", "d"}], "+", 
  RowBox[{"30", " ", "a", " ", 
   SuperscriptBox["b", "4"], " ", "d"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["b", "5"], " ", "d"}], "+", 
  RowBox[{"30", " ", 
   SuperscriptBox["a", "4"], " ", "c", " ", "d"}], "+", 
  RowBox[{"120", " ", 
   SuperscriptBox["a", "3"], " ", "b", " ", "c", " ", "d"}], "+", 
  StyleBox[
   RowBox[{"180", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "d"}],
   FontColor->RGBColor[1, 0, 0]], "+", 
  RowBox[{"120", " ", "a", " ", 
   SuperscriptBox["b", "3"], " ", "c", " ", "d"}], "+", 
  RowBox[{"30", " ", 
   SuperscriptBox["b", "4"], " ", "c", " ", "d"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["c", "2"], " ", "d"}], "+", 
  StyleBox[
   RowBox[{"180", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "d"}],
   FontColor->RGBColor[1, 0, 0]], "+", 
  StyleBox[
   RowBox[{"180", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "d"}],
   FontColor->RGBColor[1, 0, 0]], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "2"], " ", "d"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["c", "3"], " ", "d"}], "+", 
  RowBox[{"120", " ", "a", " ", "b", " ", 
   SuperscriptBox["c", "3"], " ", "d"}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "3"], " ", "d"}], "+", 
  RowBox[{"30", " ", "a", " ", 
   SuperscriptBox["c", "4"], " ", "d"}], "+", 
  RowBox[{"30", " ", "b", " ", 
   SuperscriptBox["c", "4"], " ", "d"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["c", "5"], " ", "d"}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", "b", " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"90", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["b", "4"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "3"], " ", "c", " ", 
   SuperscriptBox["d", "2"]}], "+", 
  StyleBox[
   RowBox[{"180", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "c", " ", 
    SuperscriptBox["d", "2"]}],
   FontColor->RGBColor[1, 0, 0]], "+", 
  StyleBox[
   RowBox[{"180", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["d", "2"]}],
   FontColor->RGBColor[1, 0, 0]], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["b", "3"], " ", "c", " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"90", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["c", "2"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  StyleBox[
   RowBox[{"180", " ", "a", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["d", "2"]}],
   FontColor->RGBColor[1, 0, 0]], "+", 
  RowBox[{"90", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "2"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["c", "3"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"60", " ", "b", " ", 
   SuperscriptBox["c", "3"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["c", "4"], " ", 
   SuperscriptBox["d", "2"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", "b", " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["a", "2"], " ", "c", " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"120", " ", "a", " ", "b", " ", "c", " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"60", " ", 
   SuperscriptBox["b", "2"], " ", "c", " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"60", " ", "a", " ", 
   SuperscriptBox["c", "2"], " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"60", " ", "b", " ", 
   SuperscriptBox["c", "2"], " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["c", "3"], " ", 
   SuperscriptBox["d", "3"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["d", "4"]}], "+", 
  RowBox[{"30", " ", "a", " ", "b", " ", 
   SuperscriptBox["d", "4"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["d", "4"]}], "+", 
  RowBox[{"30", " ", "a", " ", "c", " ", 
   SuperscriptBox["d", "4"]}], "+", 
  RowBox[{"30", " ", "b", " ", "c", " ", 
   SuperscriptBox["d", "4"]}], "+", 
  RowBox[{"15", " ", 
   SuperscriptBox["c", "2"], " ", 
   SuperscriptBox["d", "4"]}], "+", 
  RowBox[{"6", " ", "a", " ", 
   SuperscriptBox["d", "5"]}], "+", 
  RowBox[{"6", " ", "b", " ", 
   SuperscriptBox["d", "5"]}], "+", 
  RowBox[{"6", " ", "c", " ", 
   SuperscriptBox["d", "5"]}], "+", 
  SuperscriptBox["d", "6"]}]], "Input",
 CellChangeTimes->{{3.4409091443125*^9, 3.4409091676875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "w", "]"}]], "Input",
 CellChangeTimes->{{3.440909170515625*^9, 3.44090917390625*^9}}],

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

Cell[BoxData[
 RowBox[{"\:4e0a\:5217", " ", "84", 
  "\:9805\:5206\:6790\:5982\:4e0b\:ff1a"}]], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.4409121129375*^9, 3.440912128859375*^9}, {
  3.4409123263125*^9, 3.4409123270625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", 
   RowBox[{"(", 
    SubsuperscriptBox["H", "1", "6"], ")"}], "\[Times]", 
   SubsuperscriptBox["C", "1", "4"]}], "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "0", "6"], "\[Times]", 
    SubsuperscriptBox["C", "2", "4"]}], "=", 
   RowBox[{
    RowBox[{"1", " ", "4"}], "=", 
    RowBox[{"4", "\:ff0c\:5176\:4e2d", " ", "x", " ", "\:53d6\:81ea", " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.440912333765625*^9, 3.440912339109375*^9}, {
  3.440912430296875*^9, 3.44091248434375*^9}, {3.440912550234375*^9, 
  3.440912566203125*^9}, {3.4409129304375*^9, 3.4409129341875*^9}, {
  3.4409129755*^9, 3.440912980015625*^9}, {3.440913322859375*^9, 
  3.4409133715*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"n", 
    RowBox[{"(", 
     SubsuperscriptBox["H", "2", "4"], ")"}], "\[Times]", 
    SubsuperscriptBox["C", "2", "4"]}], "=", 
   RowBox[{
    RowBox[{
     SubsuperscriptBox["C", "1", "5"], "\[Times]", 
     SubsuperscriptBox["C", "2", "4"]}], "=", 
    RowBox[{
     RowBox[{"5", " ", "6"}], "=", 
     RowBox[{"30", "\:ff0c\:5176\:4e2d", " ", "x"}]}]}]}], ",", 
  RowBox[{"y", " ", "\:53d6\:81ea", " ", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], 
   "\:ff0c"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:4e14", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "+", "q"}], "=", "6"}], ",", 
    RowBox[{"1", "\[LessEqual]", "p", "\[LessEqual]", "4"}], ",", 
    RowBox[{"1", "\[LessEqual]", "q", "\[LessEqual]", "4"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", 
   RowBox[{"(", 
    SubsuperscriptBox["H", "3", "3"], ")"}], "\[Times]", 
   SubsuperscriptBox["C", "3", "4"]}], "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "2", "5"], "\[Times]", 
    SubsuperscriptBox["C", "3", "4"]}], "=", 
   RowBox[{
    RowBox[{"10", " ", "4"}], "=", 
    RowBox[{"40", "\:ff0c\:5176\:4e2d", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", " ", ",", "z"}], "}"}], "\:53d6\:81ea", " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], 
     "\:ff0c"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"\:4e14", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "+", "q", "+", "r"}], "=", "6"}], ",", 
    RowBox[{"1", "\[LessEqual]", "p", "\[LessEqual]", "4"}], ",", 
    RowBox[{"1", "\[LessEqual]", "q", "\[LessEqual]", "4"}], ",", 
    RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "4"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", 
   RowBox[{"(", 
    SubsuperscriptBox["H", "4", "2"], ")"}], "\[Times]", 
   SubsuperscriptBox["C", "4", "4"]}], "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["C", "3", "5"], "\[Times]", 
    SubsuperscriptBox["C", "4", "4"]}], "=", 
   RowBox[{"10", "\:ff0c\:5176\:4e2d", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", " ", ",", "z", ",", "w"}], "}"}], "\:53d6\:81ea", 
    " ", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], 
    "\:ff0c"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"\:4e14", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "+", "q", "+", "r"}], "=", "6"}], ",", 
    RowBox[{"1", "\[LessEqual]", "p", "\[LessEqual]", "4"}], ",", 
    RowBox[{"1", "\[LessEqual]", "q", "\[LessEqual]", "4"}], ",", 
    RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "4"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.440912381203125*^9, 3.440912398265625*^9}, {
   3.44091247840625*^9, 3.440912497640625*^9}, {3.440912530984375*^9, 
   3.44091253715625*^9}, {3.440912571375*^9, 3.440912589375*^9}, {
   3.4409126273125*^9, 3.44091264628125*^9}, {3.440912996484375*^9, 
   3.440913119890625*^9}, {3.44091315465625*^9, 3.440913306109375*^9}, 
   3.440913573375*^9}]
},
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, 1418, 47, 90, "Input"],
Cell[1989, 70, 412, 14, 43, "Input"],
Cell[2404, 86, 2572, 83, 142, "Input"],
Cell[4979, 171, 1936, 68, 142, "Input"],
Cell[6918, 241, 3833, 136, 370, "Input"],
Cell[CellGroupData[{
Cell[10776, 381, 310, 9, 60, "Input"],
Cell[11089, 392, 2437, 72, 100, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13563, 469, 123, 2, 43, "Input"],
Cell[13689, 473, 71, 1, 42, "Output"]
}, Open  ]],
Cell[13775, 477, 200, 4, 56, "Input"],
Cell[13978, 483, 355, 12, 106, "Input"],
Cell[14336, 497, 2240, 65, 207, "Input"],
Cell[16579, 564, 1581, 44, 124, "Input"],
Cell[18163, 610, 272, 8, 60, "Input"],
Cell[18438, 620, 8039, 234, 343, "Input"],
Cell[CellGroupData[{
Cell[26502, 858, 124, 2, 43, "Input"],
Cell[26629, 862, 71, 1, 42, "Output"]
}, Open  ]],
Cell[26715, 866, 245, 5, 56, "Input"],
Cell[26963, 873, 790, 19, 48, "Input"],
Cell[27756, 894, 3025, 82, 187, "Input"]
}
]
*)

(* End of internal cache information *)