(* 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[     15964,        511]
NotebookOptionsPosition[     14251,        452]
NotebookOutlinePosition[     14612,        468]
CellTagsIndexPosition[     14569,        465]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData["\:8a2d\:5b9a\:591a\:9805\:5f0f\:4e4b\:6700\:9ad8\:56e0\:6b21"], \
"Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438377743515625*^9, 3.43837776096875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"iLength", "=", "5"}], ";", 
  RowBox[{"iLower", "=", 
   RowBox[{"-", "7"}]}], ";", 
  RowBox[{"iUpper", "=", "9"}], ";"}]], "Input",
 CellChangeTimes->{{3.438375748546875*^9, 3.438375770171875*^9}, 
   3.4385636059375*^9, {3.438563684625*^9, 3.4385636919375*^9}, {
   3.43856372740625*^9, 3.438563740171875*^9}}],

Cell[BoxData["\:6e05\:9664\:591a\:9805\:5f0f\:4e4b\:7b26\:865f\:6839"], \
"Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438377780828125*^9, 3.438377816796875*^9}, 
   3.4383786518125*^9}],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "i"], "=."}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "iLength"}], "}"}]}], "]"}], "]"}]}], "Input",\

 CellChangeTimes->{{3.438376441671875*^9, 3.438376453921875*^9}, {
  3.43856362125*^9, 3.4385636234375*^9}}],

Cell[BoxData["\:5efa\:7acb\:591a\:9805\:5f0f\:4e4b\:7b26\:865f\:6839"], \
"Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{3.43837787265625*^9, 3.438377913703125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ta", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    SubscriptBox["a", "i"], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "iLength"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.438372765265625*^9, 3.4383727821875*^9}, {
   3.438373044171875*^9, 3.438373045765625*^9}, {3.43837394640625*^9, 
   3.438373960203125*^9}, {3.43837406928125*^9, 3.438374071015625*^9}, 
   3.438375784421875*^9, {3.4383761248125*^9, 3.43837612571875*^9}, 
   3.4383779319375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["a", "1"], ",", 
   SubscriptBox["a", "2"], ",", 
   SubscriptBox["a", "3"], ",", 
   SubscriptBox["a", "4"], ",", 
   SubscriptBox["a", "5"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.43837278303125*^9, 3.43837304646875*^9, 3.438373960828125*^9, 
   3.438374075875*^9, 3.438375405484375*^9, 3.438375809390625*^9, 
   3.438375963*^9, 3.43837600796875*^9, {3.4383761285*^9, 3.4383761365625*^9},
    3.438376528640625*^9, 3.438376815671875*^9, 3.438377236984375*^9, 
   3.438377278765625*^9, 3.438377685421875*^9, 3.438377935015625*^9, 
   3.43856363796875*^9, 3.43856474875*^9}]
}, Open  ]],

Cell[BoxData["\:5efa\:7acb\:591a\:9805\:5f0f"], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{3.438377898859375*^9, 3.43837795834375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pn1", "=", 
  RowBox[{"Product", "[", 
   RowBox[{
    RowBox[{"x", "-", 
     SubscriptBox["a", "i"]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "iLength"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.438377285671875*^9, 3.438377326171875*^9}, {
   3.438377384109375*^9, 3.438377404625*^9}, {3.4383777065*^9, 
   3.43837771390625*^9}, 3.43837845228125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "-", 
    SubscriptBox["a", "1"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", 
    SubscriptBox["a", "2"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", 
    SubscriptBox["a", "3"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", 
    SubscriptBox["a", "4"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", 
    SubscriptBox["a", "5"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.43837747003125*^9, {3.438377693671875*^9, 3.43837771578125*^9}, 
   3.438378455296875*^9, 3.43856367015625*^9, 3.438564750546875*^9}]
}, Open  ]],

Cell[BoxData["\:5efa\:7acb\:6574\:6578\:6839\:4e4b\:6578\:503c\:ff0c\:7528\
\:4e82\:6578\:7522\:751f"], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.4383779955*^9, 3.4383780259375*^9}, 3.4383781138125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tr", "=", 
  RowBox[{"RandomInteger", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"iLower", ",", "iUpper"}], "}"}], ",", "iLength"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4383727923125*^9, 3.43837279375*^9}, {
   3.4383728499375*^9, 3.438372889265625*^9}, {3.43837292275*^9, 
   3.438372960109375*^9}, {3.438375293625*^9, 3.438375297453125*^9}, {
   3.43837566946875*^9, 3.438375672015625*^9}, 3.438375788796875*^9, {
   3.438376152859375*^9, 3.43837615403125*^9}, 3.438378031953125*^9, {
   3.438563750265625*^9, 3.4385637598125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9", ",", "0", ",", 
   RowBox[{"-", "4"}], ",", "8", ",", 
   RowBox[{"-", "2"}]}], "}"}]], "Output",
 CellChangeTimes->{3.43837653603125*^9, 3.4383768296875*^9, 
  3.43837724003125*^9, 3.438377617796875*^9, 3.43837803346875*^9, 
  3.43837845853125*^9, 3.438563763515625*^9, 3.438564754578125*^9}]
}, Open  ]],

Cell[BoxData["\:5c0d\:61c9\:7b26\:865f\:6839\:53ca\:6574\:6578\:6839"], \
"Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438378205984375*^9, 3.438378253484375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "i"], "=", 
    RowBox[{"tr", "[", 
     RowBox[{"[", "i", "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "iLength"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", "ta", "\[IndentingNewLine]", "pn1", "\
\[IndentingNewLine]", 
 RowBox[{"Expand", "[", "pn1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"TraditionalForm", "[", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"Expand", "[", "pn1", "]"}], ",", "x"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.438375331359375*^9, 3.438375336234375*^9}, {
   3.438375446484375*^9, 3.438375474671875*^9}, {3.438375601046875*^9, 
   3.438375604375*^9}, 3.43837579321875*^9, {3.438376167078125*^9, 
   3.438376169859375*^9}, {3.438376347796875*^9, 3.43837635184375*^9}, {
   3.4383765775625*^9, 3.4383765790625*^9}, {3.438376645375*^9, 
   3.438376645859375*^9}, {3.4383781619375*^9, 3.43837818540625*^9}, {
   3.438378332171875*^9, 3.4383784130625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9", ",", "0", ",", 
   RowBox[{"-", "4"}], ",", "8", ",", 
   RowBox[{"-", "2"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.438378370140625*^9, 3.438378413765625*^9}, 
   3.438378461671875*^9, 3.438563802640625*^9, 3.43856475721875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "9"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "8"}], "+", "x"}], ")"}], " ", "x", " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"4", "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.438378370140625*^9, 3.438378413765625*^9}, 
   3.438378461671875*^9, 3.438563802640625*^9, 3.43856475721875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"576", " ", "x"}], "+", 
  RowBox[{"296", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{"22", " ", 
   SuperscriptBox["x", "3"]}], "-", 
  RowBox[{"11", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  SuperscriptBox["x", "5"]}]], "Output",
 CellChangeTimes->{{3.438378370140625*^9, 3.438378413765625*^9}, 
   3.438378461671875*^9, 3.438563802640625*^9, 3.438564757234375*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["x", "5"], "-", 
   RowBox[{"11", " ", 
    SuperscriptBox["x", "4"]}], "-", 
   RowBox[{"22", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   RowBox[{"296", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{"576", " ", "x"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.438378370140625*^9, 3.438378413765625*^9}, 
   3.438378461671875*^9, 3.438563802640625*^9, 3.438564757234375*^9}]
}, Open  ]],

Cell[BoxData["\:6e05\:9664\:591a\:9805\:5f0f\:4e4b\:7b26\:865f\:6839"], \
"Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438377780828125*^9, 3.438377816796875*^9}, 
   3.4383786518125*^9}],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "i"], "=."}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "iLength"}], "}"}]}], "]"}], "]"}]}], "Input",\

 CellChangeTimes->{{3.438376441671875*^9, 3.438376453921875*^9}, {
  3.43856362125*^9, 3.4385636234375*^9}}],

Cell[BoxData["\:6839\:4e0d\:7531\:4e82\:6578\:7522\:751f\:ff0c\:800c\:7531\
\:4eba\:5de5\:8ce6\:4e88"], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438563914640625*^9, 3.438563966578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"v", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"1", "+", 
     SqrtBox["3"]}], ",", 
    RowBox[{"2", "+", 
     RowBox[{"3", "I"}]}], ",", 
    RowBox[{"2", "-", 
     RowBox[{"3", "I"}]}], ",", 
    RowBox[{"1", "-", 
     SqrtBox["3"]}], ",", 
    RowBox[{"-", "3"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"tb", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "i"], "=", 
     RowBox[{"v", "[", 
      RowBox[{"[", "i", "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.438563987515625*^9, 3.43856410775*^9}, {
  3.438564222421875*^9, 3.438564256109375*^9}, {3.438564343140625*^9, 
  3.43856437146875*^9}, {3.43856461315625*^9, 3.43856461584375*^9}, {
  3.438564709375*^9, 3.438564721953125*^9}, {3.43856483490625*^9, 
  3.438564848515625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "+", 
    SqrtBox["3"]}], ",", 
   RowBox[{"2", "+", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"2", "-", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1", "-", 
    SqrtBox["3"]}], ",", 
   RowBox[{"-", "3"}]}], "}"}]], "Output",
 CellChangeTimes->{3.438564726609375*^9, 3.438564813859375*^9, 
  3.43856485446875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "+", 
    SqrtBox["3"]}], ",", 
   RowBox[{"2", "+", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"2", "-", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1", "-", 
    SqrtBox["3"]}], ",", 
   RowBox[{"-", "3"}]}], "}"}]], "Output",
 CellChangeTimes->{3.438564726609375*^9, 3.438564813859375*^9, 
  3.43856485446875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "i"], "=", 
    RowBox[{"tb", "[", 
     RowBox[{"[", "i", "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "iLength"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", "tb", "\[IndentingNewLine]", "pn1", "\
\[IndentingNewLine]", 
 RowBox[{"Expand", "[", "pn1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"TraditionalForm", "[", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"Expand", "[", "pn1", "]"}], ",", "x"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4385646585625*^9, 3.438564662578125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "+", 
    SqrtBox["3"]}], ",", 
   RowBox[{"2", "+", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"2", "-", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1", "-", 
    SqrtBox["3"]}], ",", 
   RowBox[{"-", "3"}]}], "}"}]], "Output",
 CellChangeTimes->{3.438564665890625*^9, 3.438564735734375*^9, 
  3.438564816171875*^9, 3.438564857203125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}], ")"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}], ")"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"3", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    SqrtBox["3"], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SqrtBox["3"], "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{3.438564665890625*^9, 3.438564735734375*^9, 
  3.438564816171875*^9, 3.438564857203125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "78"}], "-", 
  RowBox[{"80", " ", "x"}], "+", 
  RowBox[{"39", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  SuperscriptBox["x", "3"], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  SuperscriptBox["x", "5"]}]], "Output",
 CellChangeTimes->{3.438564665890625*^9, 3.438564735734375*^9, 
  3.438564816171875*^9, 3.438564857203125*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["x", "5"], "-", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "4"]}], "+", 
   SuperscriptBox["x", "3"], "+", 
   RowBox[{"39", " ", 
    SuperscriptBox["x", "2"]}], "-", 
   RowBox[{"80", " ", "x"}], "-", "78"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.438564665890625*^9, 3.438564735734375*^9, 
  3.438564816171875*^9, 3.43856485721875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"pn1", "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.438564879078125*^9, 3.438564909390625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"2", "-", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"2", "+", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1", "-", 
      SqrtBox["3"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1", "+", 
      SqrtBox["3"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4385649155625*^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, 183, 3, 60, "Input"],
Cell[754, 26, 348, 8, 43, "Input"],
Cell[1105, 36, 202, 4, 60, "Input"],
Cell[1310, 42, 399, 11, 71, "Input"],
Cell[1712, 55, 175, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[1912, 62, 488, 11, 43, "Input"],
Cell[2403, 75, 635, 14, 42, "Output"]
}, Open  ]],
Cell[3053, 92, 149, 2, 60, "Input"],
Cell[CellGroupData[{
Cell[3227, 98, 394, 10, 43, "Input"],
Cell[3624, 110, 593, 19, 42, "Output"]
}, Open  ]],
Cell[4232, 132, 221, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[4478, 139, 572, 12, 43, "Input"],
Cell[5053, 153, 337, 7, 42, "Output"]
}, Open  ]],
Cell[5405, 163, 178, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[5608, 170, 993, 22, 152, "Input"],
Cell[6604, 194, 276, 6, 42, "Output"],
Cell[6883, 202, 443, 13, 42, "Output"],
Cell[7329, 217, 413, 11, 45, "Output"],
Cell[7745, 230, 450, 12, 64, "Output"]
}, Open  ]],
Cell[8210, 245, 202, 4, 60, "Input"],
Cell[8415, 251, 399, 11, 71, "Input"],
Cell[8817, 264, 208, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[9050, 271, 883, 26, 84, "Input"],
Cell[9936, 299, 408, 13, 49, "Output"],
Cell[10347, 314, 408, 13, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10792, 332, 594, 16, 152, "Input"],
Cell[11389, 350, 431, 13, 49, "Output"],
Cell[11823, 365, 738, 25, 49, "Output"],
Cell[12564, 392, 389, 11, 45, "Output"],
Cell[12956, 405, 406, 11, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13399, 421, 180, 4, 43, "Input"],
Cell[13582, 427, 653, 22, 49, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)