(* 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[     13460,        422]
NotebookOptionsPosition[     12217,        377]
NotebookOutlinePosition[     12578,        393]
CellTagsIndexPosition[     12535,        390]
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"}], ";"}]], "Input",
 CellChangeTimes->{{3.438375748546875*^9, 3.438375770171875*^9}, 
   3.4383794073125*^9, 3.438563141390625*^9}],

Cell[BoxData["\:8a2d\:5b9a\:591a\:9805\:5f0f\:4e4b\:4fc2\:6578\:7bc4\:570d"], \
"Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438379311453125*^9, 3.438379327328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"iLower", "=", 
   RowBox[{"-", "12"}]}], ";", 
  RowBox[{"iUpper", "=", "8"}], ";"}]], "Input",
 CellChangeTimes->{{3.438379361484375*^9, 3.43837940121875*^9}, {
  3.438563145109375*^9, 3.43856314821875*^9}}],

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

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "a", "]"}], ";", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "i"], "=."}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "iLength"}], "}"}]}], "]"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.438376441671875*^9, 3.438376453921875*^9}, {
  3.438379421234375*^9, 3.438379437578125*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ta", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    SubscriptBox["a", "i"], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "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, {3.43837866328125*^9, 3.438378663875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["a", "0"], ",", 
   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.4383786655*^9, 3.438378675828125*^9}, 3.4383789996875*^9, 
   3.4383794435*^9, 3.438563184546875*^9}]
}, Open  ]],

Cell[BoxData["\:5efa\:7acb\:591a\:9805\:5f0f\:ff0c\:4fc2\:6578\:4ee5\:7b26\
\:865f\:8868\:793a"], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.438378914046875*^9, 3.438378968*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"tax", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "i"], " ", 
     SuperscriptBox["x", "i"]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "iLength"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pn", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"tax", "[", 
     RowBox[{"[", 
      RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "iLength"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.43837897578125*^9, 3.43837897640625*^9}, {
  3.438379036671875*^9, 3.438379068703125*^9}, {3.438379113921875*^9, 
  3.438379114421875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["a", "0"], ",", 
   RowBox[{"x", " ", 
    SubscriptBox["a", "1"]}], ",", 
   RowBox[{
    SuperscriptBox["x", "2"], " ", 
    SubscriptBox["a", "2"]}], ",", 
   RowBox[{
    SuperscriptBox["x", "3"], " ", 
    SubscriptBox["a", "3"]}], ",", 
   RowBox[{
    SuperscriptBox["x", "4"], " ", 
    SubscriptBox["a", "4"]}], ",", 
   RowBox[{
    SuperscriptBox["x", "5"], " ", 
    SubscriptBox["a", "5"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.438378979265625*^9, 3.43837900375*^9}, 
   3.438379071734375*^9, 3.438379117265625*^9, 3.438379484234375*^9, 
   3.4385632598125*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "0"], "+", 
  RowBox[{"x", " ", 
   SubscriptBox["a", "1"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", 
   SubscriptBox["a", "2"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "3"], " ", 
   SubscriptBox["a", "3"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "4"], " ", 
   SubscriptBox["a", "4"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "5"], " ", 
   SubscriptBox["a", "5"]}]}]], "Output",
 CellChangeTimes->{{3.438378979265625*^9, 3.43837900375*^9}, 
   3.438379071734375*^9, 3.438379117265625*^9, 3.438379484234375*^9, 
   3.4385632598125*^9}]
}, Open  ]],

Cell[BoxData["\:5efa\:7acb\:6574\:6578\:4fc2\:6578\: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, 
   3.438378729484375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tr", "=", 
  RowBox[{"RandomInteger", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"iLower", ",", "iUpper"}], "}"}], ",", 
    RowBox[{"iLength", "+", "1"}]}], "]"}]}]], "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.438378739125*^9, 3.43837873959375*^9}, {3.43856329571875*^9, 
   3.43856330284375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8", ",", 
   RowBox[{"-", "7"}], ",", "6", ",", 
   RowBox[{"-", "4"}], ",", 
   RowBox[{"-", "10"}], ",", 
   RowBox[{"-", "12"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.43837653603125*^9, 3.4383768296875*^9, 3.43837724003125*^9, 
   3.438377617796875*^9, 3.43837803346875*^9, 3.43837845853125*^9, 
   3.43837874071875*^9, 3.438379139625*^9, 3.43837948753125*^9, {
   3.438563311*^9, 3.438563354046875*^9}}]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "i"], "=", 
    RowBox[{"tr", "[", 
     RowBox[{"[", 
      RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "iLength"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", "pn", "\[IndentingNewLine]", 
 RowBox[{"TraditionalForm", "[", "pn", "]"}]}], "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}, {3.43837874871875*^9, 
   3.438378785671875*^9}, {3.43837918678125*^9, 3.4383792194375*^9}, {
   3.43837926746875*^9, 3.438379268765625*^9}}],

Cell[BoxData[
 RowBox[{"8", "-", 
  RowBox[{"7", " ", "x"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "3"]}], "-", 
  RowBox[{"10", " ", 
   SuperscriptBox["x", "4"]}], "-", 
  RowBox[{"12", " ", 
   SuperscriptBox["x", "5"]}]}]], "Output",
 CellChangeTimes->{3.43837927359375*^9, 3.438379495109375*^9, 
  3.43856343559375*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "12"}], " ", 
    SuperscriptBox["x", "5"]}], "-", 
   RowBox[{"10", " ", 
    SuperscriptBox["x", "4"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   RowBox[{"6", " ", 
    SuperscriptBox["x", "2"]}], "-", 
   RowBox[{"7", " ", "x"}], "+", "8"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.43837927359375*^9, 3.438379495109375*^9, 
  3.438563435625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"pn", "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.438563465140625*^9, 3.43856347628125*^9}, 
   3.438563525921875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"7", " ", "#1"}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["#1", "5"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"7", " ", "#1"}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["#1", "5"]}]}], "&"}], ",", "2"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"7", " ", "#1"}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["#1", "5"]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"7", " ", "#1"}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["#1", "5"]}]}], "&"}], ",", "4"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"7", " ", "#1"}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["#1", "5"]}]}], "&"}], ",", "5"}], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.43856347790625*^9, 3.438563525921875*^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, 185, 4, 43, "Input"],
Cell[942, 32, 184, 3, 60, "Input"],
Cell[1129, 37, 243, 6, 43, "Input"],
Cell[1375, 45, 184, 3, 60, "Input"],
Cell[1562, 50, 411, 12, 43, "Input"],
Cell[1976, 64, 204, 4, 60, "Input"],
Cell[CellGroupData[{
Cell[2205, 72, 540, 11, 43, "Input"],
Cell[2748, 85, 733, 16, 42, "Output"]
}, Open  ]],
Cell[3496, 104, 196, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[3717, 111, 676, 20, 75, "Input"],
Cell[4396, 133, 636, 20, 48, "Output"],
Cell[5035, 155, 598, 19, 45, "Output"]
}, Open  ]],
Cell[5648, 177, 253, 4, 60, "Input"],
Cell[CellGroupData[{
Cell[5926, 185, 639, 13, 43, "Input"],
Cell[6568, 200, 453, 11, 42, "Output"]
}, Open  ]],
Cell[7036, 214, 238, 4, 60, "Input"],
Cell[CellGroupData[{
Cell[7299, 222, 983, 20, 98, "Input"],
Cell[8285, 244, 394, 12, 45, "Output"],
Cell[8682, 258, 450, 14, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9169, 277, 204, 5, 43, "Input"],
Cell[9376, 284, 2825, 90, 164, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)