(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       150,          7]
NotebookDataLength[    292778,       7381]
NotebookOptionsPosition[    272040,       6671]
NotebookOutlinePosition[    272667,       6698]
CellTagsIndexPosition[    272580,       6693]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "\:7b2c5\:7ae0 ",
 StyleBox["Mathematica",
  FontFamily->"Palatino Linotype",
  FontSlant->"Italic"],
 "\:3067\:306e\:6570\:5b66"
}], "Title"],

Cell["\<\
\:3053\:3053\:3067\:306f, Mathematica \:304c\:6271\:3046\:6570\:304b\:3089\
\:51fa\:767a\:3057\:3066 Mathematica \:3092\:7528\:3044\:305f\:6570\:5b66\
\:306e\:57fa\:672c\:7684\:306a\:6271\:3044\:3092\:8ff0\:3079\:308b\:ff0e\
\>", "Text",
 CellChangeTimes->{{3.5226358400757847`*^9, 3.522635870353529*^9}}],

Cell[CellGroupData[{

Cell["\:ff11\:3000\:6570\:306e\:6271\:3044", "Subtitle"],

Cell[CellGroupData[{

Cell["\:5b9f\:6570", "Section"],

Cell["\<\
Mathematica\:3067\:6271\:3046\:6570\:306b\:306f\:ff14\:3064\:306e\:578b\:ff0c\
\:3059\:306a\:308f\:3061\:6574\:6570\:ff0c\:6709\:7406\:6570\:ff0c\:5b9f\:6570\
\:ff0c\:8907\:7d20\:6570\:304c\:3042\:308b\:ff0e\:3053\:308c\:3092\:78ba\:8a8d\
\:3059\:308b\:306b\:306f\:95a2\:6570 Head \:3092\:7528\:3044\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell["Head", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Head", "[", 
  FractionBox["1", "3"], "]"}]], "Input"],

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

Cell["\:8907\:6570\:307e\:3068\:3081\:3066\:78ba\:8a8d\:3059\:308b\:306b\:306f\
, Map \:3092\:7528\:3044\:308b\:ff0e", "Text",
 CellChangeTimes->{{3.522635888631611*^9, 3.522635889766934*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"Head", ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     FractionBox["1", "3"], ",", "0.3333", ",", 
     RowBox[{"4", "+", "I"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "Integer", ",", "Rational", ",", "Real", ",", "Complex", ",", "Symbol"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.522634092375924*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["FullForm\:ff08\:5185\:90e8\:8868\:73fe\:ff09", "Subsection"],

Cell[TextData[{
 "\:307e\:305f\:ff0c\:95a2\:6570 FullForm \:3067 ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:306e\:5185\:90e8\:8868\:73fe\:3092\:77e5\:308b\:3053\:3068\:304c\:3067\
\:304d\:308b\:ff0e"
}], "Text",
 CellChangeTimes->{{3.5226358971495943`*^9, 3.5226358994136763`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", 
  RowBox[{"a", "+", "b"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Plus", "[", 
    RowBox[{"a", ",", "b"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.5226340924525423`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"List", "[", 
    RowBox[{"1", ",", "2", ",", "3"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.5226340925342817`*^9}]
}, Open  ]],

Cell[TextData[{
 "\:3053\:306e\:3088\:3046\:306b FullForm \:3092\:7528\:3044\:308b\:3068, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:306e\:57fa\:672c\:304c\:95a2\:6570\:5f62\:3067\:3042\:308b\:3053\:3068\
\:304c\:308f\:304b\:308b\:ff0e"
}], "Text",
 CellChangeTimes->{{3.522634141856607*^9, 3.5226341512148933`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"FullForm", ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     FractionBox["1", "3"], ",", "0.3333", ",", 
     RowBox[{"4", "+", "I"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    StyleBox["3",
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm], ",", 
   TagBox[
    StyleBox[
     RowBox[{"Rational", "[", 
      RowBox[{"1", ",", "3"}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm], ",", 
   TagBox[
    StyleBox["0.3333`",
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm], ",", 
   TagBox[
    StyleBox[
     RowBox[{"Complex", "[", 
      RowBox[{"4", ",", "1"}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm], ",", 
   TagBox[
    StyleBox["Pi",
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}], "}"}]], "Output",
 CellChangeTimes->{3.522634092606184*^9}]
}, Open  ]]
}, Open  ]],

Cell["\:7df4\:7fd2\:3000\:3044\:308d\:3044\:308d\:306a\:5f0f\:306e FullForm \
\:3092\:8abf\:3079\:3088\:ff0e", "Subsection",
 CellChangeTimes->{{3.522634170300959*^9, 3.522634173787228*^9}}],

Cell[CellGroupData[{

Cell["\:6570\:306e\:7cbe\:5ea6(Precision)", "Subsection"],

Cell[TextData[{
 "C \:3084 Java \:306a\:3069\:306e\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\
\:8a00\:8a9e\:3067\:306f,\:6271\:3048\:308b\:6570\:306e\:30d3\:30c3\:30c8\
\:6570\:304c\:9650\:5b9a\:3055\:308c\:308b.\:3053\:308c\:3068\:306f\:5bfe\
\:7167\:7684\:306b ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:3067\:306f\:4efb\:610f\:306e\:6841\:6570\:306e\:6574\:6570\:3084\:6709\
\:7406\:6570\:3092\:6271\:3046\:3053\:3068\:304c\:3067\:304d\:308b\:ff0e\:305d\
\:306e\:3053\:3068\:306f\:ff0c\:7cbe\:5ea6\:ff08 precision \
)\:3092\:307f\:308c\:3070\:3044\:3044\:ff0eMathematica\:3067\:306f\:30b3\:30f3\
\:30d4\:30e5\:30fc\:30bf\:306b\:4f9d\:5b58\:3059\:308b\:6a5f\:68b0\:7cbe\:5ea6\
\:306e\:6f14\:7b97\:3068 ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:81ea\:8eab\:306e\:30bd\:30d5\:30c8\:30a6\:30a7\:30a2\:306e\:30a2\:30eb\
\:30b4\:30ea\:30ba\:30e0\:3067\:51e6\:7406\:3059\:308b\:6f14\:7b97\:3068\:304c\
\:3042\:308b\:ff0e"
}], "Text",
 CellChangeTimes->{{3.522634211672871*^9, 3.5226342377054567`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"Precision", ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     FractionBox["1", "6"]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",
 CellChangeTimes->{3.522634092749049*^9}]
}, Open  ]],

Cell["\:5b9f\:6570\:306b\:3064\:3044\:3066\:306f,\:4e00\:822c\:306b\:305d\
\:306e\:6709\:52b9\:6841\:6570\:306b\:7b49\:3057\:3044\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Precision", "[", "123.45678901234567844444", "]"}]], "Input"],

Cell[BoxData["22.091514977212707`"], "Output",
 CellChangeTimes->{3.52263409281532*^9, 3.522634250795416*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Precision", "[", "12.3", "]"}]], "Input"],

Cell[BoxData["MachinePrecision"], "Output",
 CellChangeTimes->{3.522634092881507*^9, 3.5226342536380997`*^9}]
}, Open  ]],

Cell["\<\
\:3053\:308c\:306f\:6a5f\:68b0\:7cbe\:5ea6\:3067\:3042\:308b\:ff0e\:30b3\:30f3\
\:30d4\:30e5\:30fc\:30bf\:306e\:30cf\:30fc\:30c9\:30a6\:30a8\:30a2\:306e\:30eb\
\:30fc\:30c1\:30f3\:3067\:51e6\:7406\:3067\:304d\:308b\:56fa\:5b9a\:7cbe\:5ea6\
\:306e\:6d6e\:52d5\:5c0f\:6570\:70b9\:6f14\:7b97\:3067\:3042\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData["$MachinePrecision"], "Input"],

Cell[BoxData["15.954589770191003`"], "Output",
 CellChangeTimes->{3.5226340929489107`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7df4\:7fd2\:3000\:6b21\:306e\:7d50\:679c\:3092\:78ba\:8a8d\:3057\:306a\
\:3055\:3044\:ff0e", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "2", "]"}]], "Input"],

Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{3.5226340930147467`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "16", "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Sqrt", "[", "2", "]"}], "]"}]], "Input"],

Cell[BoxData["1.4142135623730951`"], "Output",
 CellChangeTimes->{3.522634093148408*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "2.", "]"}]], "Input"],

Cell[BoxData["1.4142135623730951`"], "Output",
 CellChangeTimes->{3.522634093357421*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", "2", "]"}], ",", "40"}], "]"}]], "Input"],

Cell[BoxData["1.\
41421356237309504880168872420969807856967187537694807317667973799073247846211`\
40."], "Output",
 CellChangeTimes->{3.5226340934317417`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", "2.", "]"}], ",", "40"}], "]"}]], "Input"],

Cell[BoxData["1.4142135623730951`"], "Output",
 CellChangeTimes->{3.5226340934984283`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4e38\:3081\:8aa4\:5dee(Roundoff errors)", "Subsection"],

Cell["\:53b3\:5bc6\:5024\:3067\:306a\:3044\:5b9f\:6570\:3092\:6a5f\:68b0\:7cbe\
\:5ea6\:3067\:6271\:3046\:3068,\:4e38\:3081\:306b\:3088\:308b\:8aa4\:5dee\
\:304c\:751f\:3058\:308b\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"Sqrt", "[", "2", "]"}], "]"}], "^", "200"}], "-", 
  RowBox[{
   RowBox[{"Sqrt", "[", "2", "]"}], "^", "200"}]}]], "Input"],

Cell[BoxData["1.8014398509481984`*^16"], "Output",
 CellChangeTimes->{3.522634093564382*^9}]
}, Open  ]],

Cell["\:8aa4\:5dee\:306f\:3053\:3093\:306a\:306b\:5927\:304d\:304f\:306a\:308b\
\:ff0e", "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8907\:7d20\:6570", "Section"],

Cell["\<\
Mathematica\:3067\:306f,\:8907\:7d20\:6570\:3092\:6574\:6570\:3084\:5b9f\:6570\
\:3068\:306f\:72ec\:7acb\:306b\:6271\:3046\:3053\:3068\:304c\:3067\:304d\:308b\
\:ff0e\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"1", "+", "I"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", "z", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Complex", "[", 
    RowBox[{"1", ",", "1"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.522634093707838*^9}]
}, Open  ]],

Cell["\:305d\:308c\:305e\:308c\:5b9f\:6570\:90e8\:3068\:865a\:6570\:90e8\:3092\
\:6c42\:3081\:308b\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Re", "[", "z", "]"}], ",", 
   RowBox[{"Im", "[", "z", "]"}]}], "}"}]], "Input"],

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

Cell["\:504f\:89d2\:3068\:7d76\:5bfe\:5024\:3092\:6c42\:3081\:308b\:ff0e", \
"Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Arg", "[", "z", "]"}], ",", 
   RowBox[{"Abs", "[", "z", "]"}]}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["\[Pi]", "4"], ",", 
   SqrtBox["2"]}], "}"}]], "Output",
 CellChangeTimes->{3.522634093848772*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7df4\:7fd2\:ff1a\:6b21\:306e\:30b3\:30de\:30f3\:30c9\:3092\:5b9f\:884c\
\:3057\:3088\:3046\:ff0e", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"z", "^", "4"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "4"}]], "Output",
 CellChangeTimes->{3.522634093957966*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sin", "[", "z", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"1", "+", "\[ImaginaryI]"}], "]"}]], "Output",
 CellChangeTimes->{3.5226340940317287`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", "z", "]"}], "//", "ComplexExpand"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cosh", "[", "1", "]"}], " ", 
   RowBox[{"Sin", "[", "1", "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"Cos", "[", "1", "]"}], " ", 
   RowBox[{"Sinh", "[", "1", "]"}]}]}]], "Output",
 CellChangeTimes->{3.522634094099628*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"1.2984575814159773`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.6349639147847361`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.522634094165552*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Log", "[", "z", "]"}], "//", "ComplexExpand"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "4"], "+", 
  FractionBox[
   RowBox[{"Log", "[", "2", "]"}], "2"]}]], "Output",
 CellChangeTimes->{3.522634094374489*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8907\:7d20\:6570\:5e73\:9762", "Section"],

Cell["\<\
\:6b21\:306b\:ff0c\:8907\:7d20\:6570\:5e73\:9762\:4e0a\:306b\:5ea7\:6a19\:3092\
\:63cf\:304f\:95a2\:6570\:3092\:4f5c\:308b\:ff0e\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ListGaussPlot", "[", 
   RowBox[{"z_List", ",", "opts___"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"gauss", ",", "i"}], "}"}], ",", "\n", "\t\t            ", 
    RowBox[{
     RowBox[{
      RowBox[{"gauss", "[", "i_", "]"}], ":=", "\n", "\t\t\t          ", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", "i", "]"}], ",", 
            RowBox[{"Im", "[", "i", "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
     ";", "\n", "\t              ", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"gauss", ",", "z"}], "]"}], ",", "opts", ",", 
       RowBox[{"Axes", "->", "True"}]}], "]"}]}]}], "\n", "\t", 
   "]"}]}]], "Input"],

Cell["4\:70b9\:3092\:63cf\:304f\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListGaussPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", "+", 
      RowBox[{"2", "I"}]}], ",", "0", ",", "I", ",", 
     RowBox[{"2", "-", "I"}]}], "}"}], ",", 
   RowBox[{"GridLines", "->", "Automatic"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{2, 2}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{0, 0}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{0, 1}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{2, -1}]}},
  Axes->True,
  GridLines->Automatic,
  ImageSize->{195.24025974025972`, Automatic}]], "Output",
 CellChangeTimes->{3.522634094770088*^9, 3.5226343593327837`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9ad8\:6b21\:65b9\:7a0b\:5f0f", "Section"],

Cell["\<\
\:6b21\:306b\:ff4e\:4e57\:6839\:3092\:5358\:4f4d\:5186\:5468\:4e0a\:306b\:63cf\
\:304f\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "8"], "-", "1"}], "==", "0"}], ",", "x"}], "]"}], "//",
    "ExpToTrig"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "\[ImaginaryI]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "+", "\[ImaginaryI]"}], 
       SqrtBox["2"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", "\[ImaginaryI]"}], 
      SqrtBox["2"]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "-", "\[ImaginaryI]"}], 
      SqrtBox["2"]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", "\[ImaginaryI]"}], 
       SqrtBox["2"]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.522634094952373*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListGaussPlot", "[", 
  RowBox[{
   RowBox[{"x", "/.", "sol"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", "\n", "\t", 
   RowBox[{"AspectRatio", "->", "Automatic"}], ",", 
   RowBox[{"Epilog", "->", 
    RowBox[{"{", 
     RowBox[{"Circle", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], "}"}]}]}], 
  "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{-1, 0}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{0, -1}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{0, 1}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], PointBox[{1, 0}]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], 
    PointBox[NCache[{-2^Rational[-1, 2], -2^
        Rational[-1, 2]}, {-0.7071067811865475, -0.7071067811865475}]]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], 
    PointBox[NCache[{2^Rational[-1, 2], 2^Rational[-1, 2]}, {
      0.7071067811865475, 0.7071067811865475}]]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], 
    PointBox[NCache[{2^Rational[-1, 2], -2^Rational[-1, 2]}, {
      0.7071067811865475, -0.7071067811865475}]]}, 
   {RGBColor[1, 0, 0], PointSize[0.03], 
    PointBox[NCache[{-2^Rational[-1, 2], 2^
       Rational[-1, 2]}, {-0.7071067811865475, 0.7071067811865475}]]}},
  AspectRatio->Automatic,
  Axes->True,
  Epilog->{
    CircleBox[{0, 0}, 1]},
  PlotRange->{{-1.5, 1.5}, {-1.5, 1.5}}]], "Output",
 CellChangeTimes->{3.522634095049171*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2 \:3000\:5f0f\:306e\:6271\:3044", "Subtitle"],

Cell[CellGroupData[{

Cell["\:56e0\:6570\:5206\:89e3\:ff08\:518d\:9332\:ff09", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["x", "2"], "-", 
   RowBox[{"3", " ", "x"}], "+", "2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{3.522634095115088*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["x", "2"], "+", "1"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"1", "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.52263409520767*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", "1"}], ",", 
   RowBox[{"GaussianIntegers", "\[Rule]", "True"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"\[ImaginaryI]", "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{3.522634095440398*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5f0f\:306e\:5c55\:958b\:ff08\:518d\:9332\:ff09", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "2"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"x", "-", "1"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"x", "+", "3"}], ")"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "6"}], "+", "x", "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  SuperscriptBox["x", "3"]}]], "Output",
 CellChangeTimes->{3.522634095514666*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "-", 
     RowBox[{"5", " ", "x"}], " ", "+", "6"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.52263409559766*^9, 3.5226344013525953`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "3"], "-", "1"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"2", "/", "3"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.522634095664962*^9, 3.52263440472134*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "3"], "-", 
     RowBox[{"3", "x"}], " ", "-", "1"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}]}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["3"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]}], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}]}], ")"}], 
       RowBox[{"2", "/", "3"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["3"]}]}], 
        RowBox[{
         SuperscriptBox["2", 
          RowBox[{"2", "/", "3"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], 
          RowBox[{"1", "/", "3"}]]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}], 
        RowBox[{"4", "/", "3"}]], 
       RowBox[{"2", " ", 
        SuperscriptBox["2", 
         RowBox[{"1", "/", "3"}]]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5226340957512074`*^9, 3.522634407122233*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "3"], "-", 
     RowBox[{"3", "x"}], " ", "-", "1"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1.532088886237956`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "0.34729635533386066`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1.8793852415718169`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.522634095831943*^9, 3.52263441351486*^9}]
}, Open  ]],

Cell["\<\
\:3053\:306e\:3088\:3046\:306b\:8fd1\:4f3c\:7684\:306b\:89e3\:3092\:6c42\:3081\
\:308b\:3053\:3068\:3082\:3067\:304d\:308b\:ff0e\:6b21\:306e\:3088\:3046\:306b\
\:9023\:7acb\:65b9\:7a0b\:5f0f\:3082\:89e3\:3051\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "+", 
       RowBox[{"2", "y"}]}], "\[Equal]", "1"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"3", "x"}], "-", "y"}], "\[Equal]", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     FractionBox["5", "7"]}], ",", 
    RowBox[{"y", "\[Rule]", 
     FractionBox["1", "7"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.52263409591572*^9, 3.5226344190827827`*^9}]
}, Open  ]],

Cell["\<\
\:8fd1\:4f3c\:7684\:306b\:89e3\:3092\:6c42\:3081\:308b\:30b3\:30de\:30f3\:30c9\
\:306b\:306f, FindRoot \:304c\:3042\:308b\:ff0e\:3053\:308c\:306f\:5f8c\:3067\
\:8aac\:660e\:3059\:308b Newton \:6cd5\:3068\:3044\:3046\:30a2\:30eb\:30b4\
\:30ea\:30ba\:30e0\:3092\:4f7f\:3063\:3066\:3044\:308b\:ff0e\
\>", "Text",
 CellChangeTimes->{{3.522634428143662*^9, 3.522634436898932*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], "+", "0.1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "0.8561679000596619`"}], "}"}]], "Output",
 CellChangeTimes->{3.522634095998736*^9}]
}, Open  ]],

Cell["\<\
\:3053\:306e\:610f\:5473\:306f, x = 0 \:3092\:521d\:671f\:5024\:3068\:3057\
\:3066\:89e3\:3092\:63a2\:3057\:306b\:3044\:304f\:3053\:3068\:3060\:ff0e\
\>", "Text",
 CellChangeTimes->{{3.522634443215063*^9, 3.522634444871894*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:ff13 \:5fae\:5206\:30fb\:7a4d\:5206", "Subtitle"],

Cell["\<\
Mathematica\:3067\:306f,\:8a18\:53f7\:5f62\:5f0f\:3067\:6975\:9650\:3084\:5fae\
\:5206\:30fb\:7a4d\:5206\:306e\:8a08\:7b97\:304c\:5b9f\:884c\:3067\:304d\:308b\
\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell["\:6975\:9650", "Section"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", "1"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", "1"}], ")"}]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Input"],

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

Cell["\:30b0\:30e9\:30d5\:3067\:78ba\:8a8d\:3057\:3088\:3046\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk01WkYB3CU/O61u7YshTBEyVKipCK5xEzIHtqmmoqGRoYpUkppES1I
WkSkpKwJz6MkCTUSKWuLteQu7uW69/7mN+8573nP54/3ec9znu8fr/72CK9d
UhISEu+p/f+51FF9jCRJUJL4fxEYMbMoeUZAgqW7S/P/Lim1NOZMkSCpTV88
hzLrgGPD90kSSr8068lQtjLx2D40TkKmiFYiRznqc6DEwBAJqgVu3QzKZdl7
croHSbgmp5KjQ5nnG736XQ8J9euGSWPKtsonPrZ0keDi6S1hTTnm9cWYxnYS
FpkP3lxLuTrphjq2klD8WvfLr5RnHR+UPWkioVI9oymM8mpBtVfpcxLucga8
oigfKWuavF9HwmPXlOOnKNeFd57Pf0KCDGkWfJ3y2i+s5syHJJz0LZZto3zs
Orkn/R4Jsrzn30YoP/OTlzmXR4K2wDZcWpJA5xYTp4RrJAyPPkl1opx0csXg
31dIKAiXW7qLcuNa5/ioi1Q/qS4JyZSZ5aFPfz9FwsZlKm4dlM9EHAgISyQh
2WOmQUi5xTSOH3CEhCrPqFljKQI9c65Ye0SREGr85VYCZa9TrUXWoSQwNU7M
Zc4hMH3dJ+aSQBLcGC9S4il3zI4MG28hYb95QE8lZd+Dcw213EnI6E0aWDKX
wKCAVdkStiTEXK7Pt5AmMJvBtBdYknC4J+jeIcp9rb4fOOYkjB7NTnpKOWx9
pOqwAQmDz3c3e84jcKdZ4dlWBRKW8hXrU2QIzPtWsfgljYQcTnl5P+WhGw1N
OJeEU79Npi4nCNyrOjC3TCCG6G9NUsOUw0XqR7KGxLBP3pS+jU7g4TcnDuyu
E4PJgY3bSuUJPDse3cWtEkPZKodDyxQIvC2zd11iqRhaPxWOPKTc4uihdr1A
DD2JSRIVigQalKjVtqeJgXCPtu1XJnBli8wvYefEkOhveytChUCPkZnUH6fE
IGnGSJRiUPnR69tJHBHDxB37MgtVAttS8+XW7KbeX6JsWqBO4Nf7GdGvt4nh
eZd31iYNAmeazgz4B4uh7k5IJoeyoWREWdRmMXy78Ncm5nwCY/+0DS5cJYZx
wdpuhg6Bxl5NRapKYtisqmRpYkDlL7xa7TZdDLVetCEe5c1n7sdbSItBzeZ4
QNMiAv95lurtJhDB2cC25CgjAtutAmbjv4pAetfjHeMmVF4ZY27jVSLIkl/I
2bGMwDSLnrKYUhFYFDdoh1kSWODetmBesQhWm2WtDLWi7h9/zNbLFYHSJVHw
7zYEmnBjs3zPieDwG6nyjJVUPjpkx+q3iUBqEeND6joq3zvL64qCRfDKvW2s
cD2BS7kh6Zf9RLDyvHvDCycCkxmPV+/1EMFtZH6QdiHQwcv/gpKdCFInL/Xd
dSMw/80dm1AlEeBkv0u0D4HeoZ40pqwIblY4edZuIVDiJ7/Xap4IjnsXbJbx
IzBQwf3UPKEQDLPiAu8EEKjowep+MCyE/pqyLqlQaj7NDvHCOiHIum8t9vmD
QKPAYe+hJ0JgqgUZt+6j+htNNXlbJoSeQrn3rgcINKd9/Tf3nhAmn8oMMQ8S
OLjxjKH7FSF44CLnqGgC3V50vso8IIQl12wO/X6cQF2MULXVEYLT+b6F329Q
eVJZfsheQwh0+4n2V7eoee4SvHNQEYL9BoZeUS6BnfSkdGdCCB93ncqKuUtg
6pYsFS/uLBjVLbzg+JDAOeMNSgdaZoFjE5d8DAgcVdOSz/1nFjyPyf7kfyYw
Y0///vzDs/ByI+0Xr28Eujy901IYOQteua1XS4apfIdZnC3ZMwvHOG12sd8J
DC5ylq3zmYXZ4i6ddTwC36yNoHWbzwKOi/bcptOwfF+DtGKvAH6Lzr/Uu4KG
K/XCLfO7BPD+kbMq3Z6G1R0aWx3aBRA9GXdotQMN0WFf2b6XAoAULcFjJxo2
K6rsaHokgOs7GtVGfqPhQGkoHjspANeB8YLY/TSkCwWxXAsBdMec1jhZQMNz
JXfyUxYLQAa8Vh67T0OlXZ7tBkYCGGnyjz1eQkO1tlumm7UEUD42duF6FQ31
brp+eDBXAIkzazaavqLhcucry3d3z0DFa999heM0DDtrOdmdOANHH6a45a+g
Y2xZ2snWIzNwQTc303UVHS/3cHTqY2ag5pXtGbYjHZvNK5gF4TPQ2fopYSuT
jtat9rnRgTPgkvJd72IwHecpOPsyrGZgRf/I/tgTdLx/wbdm0+A0aEhE2JV/
pGNjZaXX2p5pqHc5f27XAB0H+zVHrbum4UilhNPCITqqL/ukpt06DcnMgyoP
WXSMfxsaMVo1DQ2hNxTX02TRS3mvwcnUabCKTdnhbC+L02lxyeA4DV0btER2
d2RxWKd+zMV+GpYuiLF4UySLnfnzPNpspsFnB90wslQWS6svKveaTgNnOvLZ
4DNZDP98N0vAmIaaeNfxPz7L4hfLjvvLR/jw8O2yvDWGctj+dL5i7Wc+mBY+
SKs1l0PcEPqncy8fXhVW621aLoc5AWPLvdv5UJTz6FaGixz6H5OAgzV8MGu+
PMjeK4dtb83/LUrlQ8OGqPHmUjmsCYy0tk7hwx7uoIxPrRwWfa28XJ3EB/nn
E6KJRjlMnl4f+CqWD21/XGQEfZRDJ72AL0M7+WD3SXejkpQ8VkUkTenb8aG/
4X04Y4s85ir0zc8Y5MEvK5xotXQFTAtylLHr4YH9WlX+dXUFTCy4ye3u5EFM
WuiLywYKuH39jjfaLTwI1PTpabZXQIPokRM3KngQ0LCc2LxfAW/3sn/mp/Cg
bslNL4kOqt5in96NJ3nAvpRh+scgVe9wefNIAg+yJ0IzJiaoesoxeYujecAv
uuXiSldE/Q2iwOIwHtw1qPFzWa+IN+/LNJYv54Gd/Nb+okpFTJ3ZU+q7jAd+
O9ebDTQqYoJL803+Yh782jj3pnWnIoYNnI2z0+NBn7vI3W5KEReqqljW0nlQ
ZOwcuVNLCXPidLIb+qdg1KoibNFWJcx2s4x8d3oKNMqtTldNKqGhrFvz2xNT
4DZXMnNqRgmLXm83aIufAsmS+sYNc5SxetOl9qa/pmDDzmxPPXVl7PbkW9Vt
m4J3msbC56uVUd27llNgNwXz27I+8c8pYw6j0z3fhnKUy4JjGcpo1DGRm2sx
BXtCmCb6ucpos0XPJ8doCnje+7Pzq5TRy+94WbryFNDOeye1fVXGC0HMv46O
ciH1byPWv+tUUF1ne2vcVy4kaLgxRj1UMKcn1ujvfi7kKpbmaQeqYPHW+++j
3nPBOCT7YEekCraEKq7YW8+FD2ZH1ufkqSCx8z3PO5MLzR42A1+VGJi4f1uM
KZMLMLRxlYmkKvadD8muduJCd0JYZ7uKKto/CkL3NVwotlY3LTZURfbUFiLc
mgvrLPaPzriq4rZ4t4zHulx415wZPJuuimvTrKtWsTngn2VpEmajhtlly3pa
vnMgbIqIOsxUw+nOJRIhwxz4WHjevjVEDUu0TVwTejiw4HRZyMozargwT+dD
QyMH0sP69cy+qqG4Unra4xoH7jHbJU/nqWPgRymd/sscKJKQGFYCdawQko4H
UzmQbEC+GPugjuHrBKfSkjjQfGZuaJa8BvY2T2h0RXDgczc/WTVOA2t6u2zD
nDlg71clx9mtiZoS74NYazhw3WD/1m2nNPGQQXt8oh0H5q/522zNXU00393y
8s5SDlz4vllj04gmZk+i36gmB1pU4mIEEfMxbs69w5E/2EAYSx/7elULwzND
5oWNsMEqXcLwWY0WbrdgXPb4wgafxpknRp+10C3on8cm3Ww4m+7w4/RSbdQs
9fzR18CGVc8Cls1v00Y55px/WoAN3d/K7sXwtZHsq6RXV7PhSE79jWh9HRyi
65tcLmFD+C/SwqDDOli2nbPdPZsNHYe/x9uY6WLB9F3Wyqts2PPgs+nPAF28
dj44wTiNDW4ji1bsPq2LidUvrksms6FS1dnx1pgublbJ+FAZxQa1q3l36isW
4ET9ak9Ddzb4Ge/qXOagh5/9WD3KLmyovyLpVBykh+9/5O0j17Kh8cen55Wx
elgzX/H0xxVsyCx9JHe0Wg9T/hx8nmrABgE3v8N1nT4elbnidVSXDdEMsdHV
nfoYed1tcJ8mG6a/PD2UnqyPga9KxS4KbPCPfmB6r10fTfRP2olmWLCps1Nj
JMIAdSrtm8a4LNjS4eTqkGlA/S9++n74yYIvLglO4c8NkBfjf6j0Gws8DgUY
xWstwoa3ix/u/ZcFv6Kj1dKORVj1e7+DXwsLyqT60i2lDbFImN7i/JIFJ2oj
jH+zNcQ0E9HowloWyDOCr0rfMMRtCW8MOwtYINOwPSv2iBH6dt9Y05vLAk2f
eYqbK43wT6uo8LjbLBh585d/00sj/A+mpPyE
     "]], LineBox[CompressedData["
1:eJwV13k4Fu0XB3Aeu5BEkp1eQoSkEGeU8FYUKSKRSpZICnmtSVJSsqQkSyRU
lpAsdbKVNUKU7EvJ1jzIFp7f/P6a63Ndc801c9/nfM/c0g4XzM/SmJiY9jMz
Mf3/CpwZCucYExhow6tTdk2WmPLRkA/un8CvlXJZ0nkyRF47T617xwROns/9
GnpBhrioNuJk2ziBL7SfWYaoyhCzY3HZ2m8mUMz60O51xdLEX9t55T93J3DP
+9zdHF+kiPLS5k9D1yfw9T7HZUyWIgKFMy+0+k1g6XKz20tXKYL22So/99wE
bpdJ7VthlyI4DUo1XGACP9CqtQdjJYj6lOgvVjsmMMIiTT1KR4K4veLibaQ0
gUs+V/Q3DYsTa4tF32wWnsDl/BGlm9rixAbFAJ2+qXHUpK1w2f0VJWT5iT0W
SeMoqffw9EClCHFHdeA/l5hxZAmaRRV/EWLhcEhBcPg4fqAH6XRrihCN96o3
v/Qcx5vBYyvb8jYSl9f/y8FuNI6Cg7vzS/KFid7tYyC2m7q/2Eid1UuYMLaI
uKKuNo7a2r5BTlrChHhc06+TouNYm7Kf81TNBuLDBvPG4t9jOOqnFWD2S4hQ
3TnD+ml4DHlEJgQzC4WIBMtY3eFvY7j/Rnb+ULAQceFBRw5/9Rgmn1N9MCMq
RGzcZHPP+cEYFhS+MBmyESRcxM8cE9Ufw6zunblTqwJEuy7bXTXNMZQJF3Q+
0CFA6J3M+GikNIZoVmGzL0eAWJ88uuuy0BjeyLI6wmIvQJRLuYk2/fqF67jX
F5vUryP4Nnv3B0b/wpLwbUpxxfzEFQNhkbgbv7DoO4/QiXh+YvDMG7Pn/pQv
3Y2M8eEnip8uVXY6/sKGHZEeB7T4CXv5oKeqOr+Q//zGxX+vrSVeKYa7DA6N
onyBY2F+LS8h+dm+ROnbKJYXCFS5x/ESt320OL0+jSLHDvOARgde4mz12FOO
klG0iOftPcngITaeNBnYemcU3SPjVOOAhwi4J2Dls2sUl0qbZuW6uImxneMZ
75VHUUbTiVaRy00c6636wyU7ivPTX0e+XOcmVJW8YhJ5RzFhgubqtJ2bGKzu
/FQx+BMJjq9Hl2O4COOFxH08kT9R0Dqzz9aZkyhK8oo9GvITZSJD7Vr2cRIy
+0yHknx+ostQQ/8TGU7i7z1GsJrDT6zbL3PIoYeDyFFyKD+28yeWDzYq/2PJ
QQjayW9PHfiBmRlr9j+xZif6avKlNDV/4Ey0f2H7Q1bC/8iiwa6tP9AjX7ip
/CorsXGAcNaW+YHxZmcqupxZicPLzfl6fD/wjGJBQZE2K/FefWqP0Y8R3Pxy
/a2OXhYiJVnxrNX9ETy8LV1gjyoLsVvZ86b17RFsWatYRYiyEF9LS16eCBnB
7PL8XefZWQj+DuM5e/cRNPIb8DbqoRFXec7dcDYcwflRpmrmSBrh4JuW9d/c
MHZ3T/lJzjITq+zjTf4Tw6gsn5b6aoCZSIhVnw4cHMbzcmvPujYzE625FdrX
Pg2j7nlJ9YPPmYm9P/oaIjKGMX9GTeX9GWZi8xGxqcRjwzi5dp+BVC8TMbI1
Th1fD+H2xZVjP1sYoBj4dGr0+RByHPnwNS+fAe7NRdkCqUO4pdU+vDSaAQsX
O2QcI4bwUtpia8RRBnAXC6/ntR/CK37c+oK9q6CqnzBjzTWEqa97OjWWVsAr
Ojs3dHUQS33vbinuXYHSoVLXnJlBvKRzU9ajagX2hn0fYu4dxDsm7H+vRa7A
sQax9sxXg9is41u1efMK+B1NLpyzGcT8pNWCbutleJ+R6yFlNogHDDsyI/cs
A+sCbt1vOIhCNYt33BSX4U5Cf/pj1UF0ebjJ683SX0jpk44zYBtEW0+vHvfH
f+GDc7pXdM4Ahlw0n2EZX4J1gVmaKswDaO0lSNdOX4Sw11tq+ef7MeVJg7RZ
9CIsTT07PjPRj/o3NOTCghdh0C7D/83XfuzJUSk4YLsIr/TTKvfk9aN5+yKh
t3ERzNkem1ra9ePge2WjOzELIC8i3cTk14exoZFh9knzwH9Lkqxx7EM2Y9bc
4bvzsLAkvj7CvA+fHHXlunp1Hmq7Nx0XUuxD3v8UUpnPzoNTiuCIwrdeTK6T
ihJXnodsec4V8529OFwZ5/CoYg62av7e+nSmG7u11j5MWPoDjipBQSU93eiY
6zfRNfkHkuXWtjZ97EaUHCDVBv6AgPA2n7lH3WjaNXVatvYPzM+7VxgZdGMV
Q8JtbfwfqCyZOjoW+x2fOLfJ/Nr1B6x0pwK3aXaht/iX5qSIWYjeEfh5r1QX
JpFzGS5XZ6FBmW+zFXcXBgTsf2TsMwt6Eip1wb3f0LAv6qT26VmQZbitbw37
hluiLs/SdWZh6v3ks8udXzEmtfNsPDkD1wwmW0qudOJrYqRh4ewMVBpPHNI4
3Yl6Dgq352xngMlk/FOOSSfK8OZ40Y7NgP/RX41pMp14gLbkYmA4A96OI7WR
jR1Y52br7S4/A07hPe9PSXWgYsdnB+OJaTjY2JTHVduO0aoZvWFB03CrpXFb
6Kt2DGtZzpL2nYba9oac1cR2LJNn31zrOQ37eupezFxsR3rOeO9Ox2nQm6rJ
7BFtxxOSEdEpJtOgyv8uJf9CG6o0+V4Ml5gGIYucqOPCrWguq+9hUEuHV3IR
pftYWnEl9oH77So6HF48N6z2+zMasnOOdb+jw60k6V3cHz8jffC3UnwRHVZH
Y/tKvT/jLkfL7AtpdPgR4Kci1tGCS3Lie54F0+HaYSsrzsoWvPT2AJenPx2k
ZHeEzL5swfJ18+kGV+hgXTv1pfF6CzJNcqgze9Dhk4BDQMCOFry/Ji6qw44O
7ofuPXir0IydTo1MYwQdMmf3T8QxN6PPu+Sbyrp0GKQyz/3bJ2xvtjh0RYsO
x4Z9fkrc/ISOsY/cZNXpAL4nNYNHm3DH0pHVT7J04E9Tat/zrBH5XvCMXOKk
vneuZm3t5np8WWyhWdZBwp3sJ5V6i3VYYdcxEd9GguvJIK+ipjqsV8FpvxYS
Nn/Y9f2Jdx2W7r7x8Xg9CffjnmcE1Nbi7rJnMa7vSPhP457u9vMf0fOhYG/f
MxKOjbqRWcRHdIsJN1F+SsL2xP1pUkIfMZTFNPDqExImWFi5+N59wPH5fTS9
xyScbPNuH137Ac++1H7BHkPCHs8TrkkF1fiEbPBuDiJBQk5LQii8Gu0bvRWu
B5Dw95vQ54gT1fjS9oy4vh8JhfrNmr5s1WitUZ3d4E2C3Lo9NAvLKkyvPHtL
0Z0E7jz5h1x/K3Ao1HuJ8yQJP06zHgxurkD2PZymkidIqBIeWJ1Lq8CDVzZf
0LEmwT8o4czwwQrce+nhaugxEqZMeVUx6T2yrRWJO3GIhKffRyJ/hb7DAs3P
ncJ7SOjy35D8ePs79LC2039CkMAnYZRnNvgW5wWHT6oBCd72ma0l8BbvX4pL
td1NguGIi/CtpTJk7wwvmdSk1i/s0Ra9rDLsl72p+XgHCTnyjVrTlmUo71AJ
ZhokCLson7AuKkUW87ChD2okjE79TlH0KEErJ/uxn1tJEIuSetUrUYK54yx7
y5RIOKxmVhXd9AaJhB7mGEUS3lx6NbKk+AYzjuQlH9pCws2Fy4oNI68xEDO+
L8uSoEhbKnC1KcRsMRUnWTFqP9IUayS5C7Fr9C+bjigJ0QY2HW1vCjBXrKny
2CYSlsLKF3Q2FGDWuavhCRtJaFgTpMvzOR9jkp5/Mhcigellrun7oHzMsB+Z
uiVIgoZpv91llXxssfjI83E9CYlR+iHdEXn4w19f7YAACV8VOe8cj8zBu5MX
X4SsJYFwc86rGHuJLtsU/u3iIyEzt75VwfglBjy9V7WDsq9GpPAS7QUWOPbr
L/CQsElPIDXhShYGXQpeyOYmIST4UhWtIxOPnHq2QZryeGX7iMv2TNSy6ZpJ
4CKh3CheUWcqA/vsPbsfcpJgayZW+P10OobTBlar2Kn6nPmj5VWdhkccTWqO
U/a/34x8/6RhyIEDXDNs1Pt/D2nQ/5GKB6yuLG+jvDXwhNl3w1R0qyDT21hJ
KJPS7Lz8LAU5pSPf/ke5sKG15tDnJLSJnVFrYyGhnT/sc0j0Y7ylrHAjlPLM
Ua2eoiOJGFF6HLQoq/cnz4p2PES+7ryGFzQSzP45wnQo/gF62p956ErZw4Wd
J8QqHnWfb32rTDl39rzsaFcsGl3cs1TGTMInLaltookxWHlJlzec8lRgm7ap
bTQe0Mt0tqTMWx1meFXiHtpGneZRpGwlcDndCe/iJTGLaQYTCfGJXWWf9COx
8arDxm+UO+T02zSqb6G6oZ9fEWXB/GdjCYbh2N98Z2Mc5SM6fDTmuutob3dv
wodydM1lkXMHrmEwl9+sLeWWQ99Vm5qC8Ui+kbIRZYnCa1GOKf6oQZuP2U75
Ue1hVH/qg93Ot/+RpbyxR3xqNcsTrwus7ROirDT0Reu+rSvy9tx8u4ayHI9H
vMq5U6hms+YdK+Xg9i3tolUmWFf3tIeJ8ta1PS5syhqwfs0Fkf+7gx6SzL9g
BXypwe40yuQh+ekLno7Q8mz+GwdlvxjDelcND1hsnrXip7wa6PsoeZsXyBxP
HBX9//NdXpxvU/wPTvJsCFOkzHKsT5dDLgiqNSNVdlOukrp54zF/CNDSVfsO
Uw69L+Ox804oLDxQj3OibMhTbvV5zQ049anW5BpljpCj+q43b0KY61b2VMq1
81MKbBy3YZYpoayC8i23cIHk0DtgeM3MdYRyBj0qQOxqFPzed1+Ah9qvc+cU
HV+vRoNr3MhuB8rGMj7W13RjQdHrRuk9ylt6qkwP+8fBnOrI5mrKY+a2O8cW
48GXWb5IjaqXet5speJdD6E6tvzLecrPa+ckQ30SwHne42s25fN6UZwSfxJh
r1u57zaqHk0Wu5fHtieBQqTEem/KKoUK9GLPZNC7vSMUKS/EDkxsWUgB9QLt
IWuq3ku4/b5UeqUBudHapIDqjxRlobZcmXRQlxU9vZHqp7DDuS2JzelQb6FV
EkzZ4v5Qg7dCBqgkjYvYcFD7I32wUrEnE+zzU45qUv3aafADhW9lwdtvGRuK
KL87F/yWdWc2yPGpMjSp/o54WfimN+o5fGfO1jZYQ9WHlnhutEEO1N9Q4Ajl
JYHnRPGLIHoOFEyK5IlS+TETaJZ9PikXhLlznF5Tth+sNJf1zwOuIJGVWSp/
VLbMm6x8yYcISQ2H+1Q+1RXYGeTfLIQ4b7a0c1Te7a7ZWiXfXwi/O9lIFRES
8joW9ZM0i6DG+rnkIuX7izEQMVQEBkOSYvep/DwDtdpndYvhawoTTEuQwKhX
VROhl0CYzNiAqhwJnt0ruXeNSqHcuUvsH3lqPk3Wq7AnlYLupVZ+MSqvG/nP
bp3ZXwZ9ZL+IAJXnCcceyjellwOb+hFXCRUSdgwyS1y1QlDTV5woouaJSqkl
XTULgWHWZlmxk1qP6JfV/YsIx+7yMzfvImFN6osdKSbvYdagipWuTcLyYatu
xtR7UHvbn3iImlc9ebkKqFYJEyqXvbyMSUj2OFmtW1wNfO3yJyypeZl4gisn
rq8afip7LmfYkvDAuDB+kqMGGvOWUheo+Rolxe362KoGHgVpzaWeovqnpWjd
ymIN0HgW4njOkXBKldeufPdHEPD1Pkh4kiBLli1qV9ZBfYvX2w23qLxt2hs6
O1kHxX9FrWsiqP7NbuDLEakHRrGzmHck1R9nv8tKX6yH8JA87t4oql66lkw4
pBogpd3U5mM8VR81Wk/aAhqhkyNCb5X6/7B+VLz/vFYzSLx2Z6ZXkfBv2rcm
U6tWWHlqLhrFRgfyeo5jjVsrMM94t+Zx0OGB0zWGzrVWEDbu2tXGRYdRZWU1
hZxWEMiU4BPno0P4m+BYFtY2SA9XeV29gQ61TfI2b3Lb4JmfaY/DFjoYLXiN
SnN8gSyfpNbPB+mwz0SA5U9RJ3jzZuXtSqDDXbvOYNXibigvW++srjUNH03F
eQ8LDECh63tR9YVpmJQWCmxNGIKqcoEPFiUz4HVZ6dTdDT/gqKXTs7iQWejs
5jd3rB0Fhg87x1WnP2Dvu/snx8FxEGMReOppPAdVSjtvVbFNQdONllZlg3mQ
4yofTaf2UXCLzO10zQUQL3fdxxZOB+PBZAxQXASmJVqW5+A0WGsJTIhoLcG8
2duTNf/MQqzQAL1W+y9817AT/Sf0DzyX+uDJarkMHpb862S658BxJ7dggucK
iMQOW7GKLwCLxfS9usBVyLFJeTZzZRGo899BlacMsNQNMq59uwT357iybtsy
Efkn3WS0l/8C74KotPBPJmKBey9LydEVOD0iL5kVwEyYf9bRFH+wChEDbevN
19AIbp01FeWPVyHq/ARLEy+NqEjvOnAibRXSJn05jflphOoV31OPclZhCTpM
9YRoBJ9k8W2RmlVInKppVpKkEXXn1YeEpldhv5loIvd2GkFwKkTxHWTAeK7s
1k5rGrFwcWFTjhkD8i7UJ1rY0ojc7x+fmlgyYHYnk3SrHY2QyHUsu+3AgFKO
ldNNZ2jE8tH0H9y+DNh01ret2p1GFKdJ6nJkMMC4x8u8OIRGuPP+/pjxnAG9
Ni0LO67TCDmfd+aG1Llc98+BV4U3aETsflun6+UMoLtFnHx1m0Z40hNiWNoY
8Ljf/VHOfRqhaOMikfaVAZfChbqUH9KIgWqtrD29DMDwZ0ovH9GIww++vrv6
iwGBk54cL1JoBCct81/p3wwQ40i+p5RGI9DVp/39LANuDT1Sef6URnh/MbSz
X2KA/IhDr2ImjVCBDWMMBgNcL06mZGfTiP8BGjJu+g==
     "]], 
    LineBox[{{-1.0006918492189902`, -10.890200390225758`}, \
{-1.000685342898883, 9.75728783166937}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {-10.890200390225758`, 9.75728783166937}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634096298773*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "^", 
       RowBox[{"(", 
        RowBox[{"1", "/", "x"}], ")"}]}], "+", "1"}], ")"}]}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw92Wc412/7B3CUrDL6JSmZJQolIeP7OZWGbMoq2SSiokSISiUkZWfvvfe8
rK8VRXYihOTH90PIyPh/3P/7uK8n1/F6dl7nebwfnMfFZ3ZX25KGiooqgJqK
avsWg/3TW1s4krEt0tfRmYC7qwLeq2s4IjvdDD+kOwG5BeKCC0s48vA/yjZG
+LSQmtnkvzgylLZLvqs/AdJsXl/b+nBUf0jB5s2NCVD4Md8anoMjX5GLNl2m
E6D9qj1DwhhHKtrBU6/tJ+DRZy+7W9UU9Hki5leS9wR0dzNN15rOIt+jhsah
DRNwuObuPmmuGfS8uvkpK/UkFNk20LIMTaMONvmUPecmwcRPfG7g2S80CWy5
en6TsPLe1RvBFGpJfsnY1D8JCczDnGGjk+iaV/drEYmfEKks7tD1egKdPCPs
6B30E57dMXUWvjKOqhC1JNXKT3Ddkf7IYXYMzX6Trn9oPwWmnp+P9KaOonqd
smbhqSkIrpoIi7QZQRIRro07bX9B+Xeh3Zn8w6jYohgJ0E2DAKvC+WvRgyjQ
tkCEOmUa8o9724z96Eeme6KoxSz+he/kPF4pqV4k0BdCyy46AxMiwadRcRc6
cTL8M/vCDLA9SZMSo+5EWZt6bXKfZkFEChdJWmhD+XOCO7PeU8BKzMOjbKgN
iQvtm+4JpkCMIMuX9qY2dOk80/h6GAX2cpx89CeiDS3mJ6xciKHA8rJ97eUL
bejO25axygwK1JVRdKaDPqLAjIehFxsooE+iPDkp1Yp0rZzkvBco8F7ySaci
bysSy9was/xDgY+izEf0GVuRYqhoqcIqBTBusRbP4RZEiSlqn92kgMCW3T9f
XrYg3WN/u48w4kCpmU150NeMgldaO7Z4cHh+YbajzLkJcTcNfJK8gkOd0ozG
GfMmlBf+yzZGBQcqtX8/Zas1IbN+7C6tOg5uOr/aEvibkEOsr3+jNg5OVhPN
b9oaEXNTyWMuQxysvYdqTHkbUaP3d282exyS/b7BN8ZG9CtoJgC7h8N4wGC1
7hIZyffsj7zlgINp+EClSisZ6XhRJ2U54XA9vadU8gEZ8dT8O0HvgYNqW3su
Q3MDEuTm81v2x8Gno+2kV34DGm+SuTAWgENz98fszcgGdC6yNKv5PQ4Xh1oy
F+43oOn2oufeIThgFHLq0KEGlHndoKUrCodTrNWxeXfr0dgTdp/gDBzs91Xx
iFyvR/sFud7JZOGQeaAyOvlCPVrPNN07kI2DMF95ZARnPdqsdHzMmI8D/+ni
sBf1dSj9rFeqVCkO7NeyAww46lD/YgGpoB6HfEHf8os76pA0NePO5QYcNFdv
jYvjtejC3cBWqUai/mi+s4xNtUgKMIP0Zhw2p4K+lzvVoqDiOl/TdhwiKu4z
pJjVoiX5t6YvPuFw1l9dIlC9FpFjSKSkzzg4SNC/shWsRaoOw0wDnThMuruK
cfXWoMQ4eim2XmKemvr69HU1SKcj/zZ7Hw68ApLPFrNq0H0ul3z2fqK/zZSe
thc1iHR0/g3jVxw+7TVzd5esQfn7ihF5iOiHxruwKmGEvMyuib8YxyF1UXkm
mBqhs6ODyqoTOIyF71SwH6hGZjQjxSyTOOiOP/rJ/boaTZL8Inx/4gAuRlKe
U1WI6yS3pP40Do+5D/jo11ShkklaD5p/cSis7xw6FVaFop34lNMICzFffDF6
uQrFhjs/mZnBgTXhRPf5lEqUyGfDr4zjoKw0ceyQB2Gd19IDhL1mo10XdCtR
StNBOss5HFak9wok7qpEoQWSSw7zOIy2rdyntapA7Z9OLlgv4MDlkE8eIlWg
pHvpNcOEdTnucBazVyBL0zJfrUUcWk2/11iRy1HohUFMbImY3x8yS/ORcpTl
5cZN/oODf3p8HbZahso8XUtOLONga+TxsKi9DN1epOV7S/hI49nBeKcytI+D
IVx1hcjLY3Z/TpUypJP2vDaZ8JDob4UAnjJEc8aHskE4JDgj2b25FBnE5vgm
rBLzvOJtsBhZigwfd+3/TVhjw2K37f1SpOX6+htpDQd6S24H/YOlKNS/R72d
8OMz70gSd0qQ2sdInfa/xHum7ObSFEoQpeqcHN06DhKRygm87CVIKSn5I0Z4
ZsdOBubqYsRflH00hXBzyUiF1/ti1GTzlamfcJJtlf1fq2LEIvqlZ9cGDkZd
Tt1TLMXIM0xY3Yiw7Kurr4zHi1A1Ze3AK8Iccqdke0uLEKeFE1U24Y74XzH1
pkVo6/6nm38IZ+o2astKFaHiZ3k4xyYOrxkTaPMYi5DSmUu90oTPOxjaRhcU
IuXe8H4HwtyCMtzs3oVoTiOKxZ/w3wH2Tl/DQmS5p7czhXDhuc9SLrSFyPUs
tWgf4YCljF/4QAHa9YxnZIawXZp3pFV2AbL1ImtTb+EgyHae5ppeAdIa4EoT
JExD5i5qPVGA6uzfJEkT/u7899Y5qgJUa7L1/jLhSpH+g6Xd+WhPnKq7LuGw
kcJ2sbR8FO/Bfs+C8IOgd55J7vlo7HG1033CWkr2Elza+eiZoH2kO2HG3GPh
DH/z0EkT2XuBhCfNd6p6fs5D92luSkQRrucY3fyTkIdo6N9CMuHYj1V5ds55
yCEoKTqbsJvHB4tx1Twk7y96vZiwvsQjjht8eUhMz8a1irDkz6utnUu56GHa
NaYGwhT1PadQdC4ybwwP/0y4lWZ6TNIxF43HWqd2E04pbgzOvJyLzi9+vDRA
2MsmQUmAKxdFvpJzGyJcI0+1LDGag/b+HtEYJeySWGbI55ODvoaHNo8TPr3b
sY5ZIgeNfJ+Z+Ul4xlFEaH0wG2k489ZPE04anHjzyysbreFHtGYJf3XbHxMl
kY2SH0Q8wgkzc1/O1RrLQpbLd63nCZ9Hj2pp32WhXtmmYwuEnUxSv5RBFjI/
4l+2SDideuCHHSUTmec+5vtDeDieYYkvKhMdoN5jvkx47wXZXb0qmajoVcDT
FcKXJmw4fNYyEP+lw56rhB+/jBDC0jKQlVC46Rrh7GNtMr/1MtDBB2VCfwmP
Na8rJ+/KQC6qO/u3zWEjani9KB0ZXflyf52wKpORHbNFOpLj0VzZtmem/5O6
velIUdfTboNwoRp661SbhuKYSV3bnqLgscfvpaGIzzInNglzBfDmD3OnocfG
tI+2rSmuVf++PRUNxDGVbtvry9PuS26piOVxKL7tUsf8ibXjqcgsp5t7a7u/
+378yR5IQf4dnZe2zVv8D725dwq6ve+Z9bav6V3g5JBOQeKSyGvbr1ceHP84
kYw0LqhEbrs6PEnOIygZPXzwJWfbv2V7VSUUk9FU3wzatuC3XUY/55MQJxtv
+7avu0vfjYhNQnULI33b9ue29tTQSEID+4JHtl2Hwt7t2ExEO5SCfm77j0lL
fElmIpJjOD677eM0awW2NxJRemfI/LaNEo6TeRgTEY0e29K231+40dtVmoCi
C5uWt9044fvz1a0EZPxkZHXbay8rV+T2J6D5Ste/2zZrOXwo0TEeGWlFb2z7
I5MHaXdnHEr+1ra57ciAc8+++caioHtVW9vuP07vb/AmmujX4n98ENsb98E5
HJ0a3/qPb2pxFQ6aB6G1rf93zuIdgamvXojqP2cOPLuFug/Vk/5nEZYhG1rR
I0D139M7/yyGdUXpf57TOPb7roMuUBvrfRo/pbXXNfBSq+0ZE4gWti+rEtLl
3XziEhFz0hKU8/yGmA43HPO0ybzTddwG/sa8u7cz0Uiknvf1qyhWB6D8Ofm7
4GS9uFcI/z1p/wewpHfz4FbsY4lLuyv1O5keQZSGer2YcteZ5mWKMC2dG5z9
ez2FfaNN6tat41bFm8+g2DqFkiN4WkaJ/9H15yQvkBL3a74pHCkjNFSvrun2
AubZBnbNJazKTGvflJ5efQWC57tFcxZCZe9gAfTcS35wzryD66rRc7kyRtee
uoeBQO2mY/Tqc6J8rCh7Vw5/EEQzXT0ZmVMr/1IzpyPycxBI/fEc+VM/KG/n
eOXTa7dguL2jpltIaVH+WsiPj07CIUQuFVWf1DKR5MrcW8x7QyDG+Epqxzgf
if8bR5Pm81Bom0wedR+QJDFs5TWQToUBvYz/RrPpFdIcn2rd8aEw8HSVrb56
3JDUd2EScfiEw+bcSzzqjx2p+pZn1U7pD/Bxmt10OPUJKdHnYMX8jw9gZIaz
OSr6k3yzCkuHAyLA+fLKYNx4JMmhQ734IykShM5XkPyq00n6C1MFpdOREIRO
K8buKSXB/ud5SaFRcJAtXjmAhUwSlDmc8/5CNJi1hx2WWu8k7TYsyfSYj4aD
HvLa9DTDpIUnWul3omNAkXanNvWTKdJsx1JX5tFY+MjKQJ8dvEAyGavTFnCL
hZJrvntNyjZJ3QtvO8O/xEJY3HTO33Q67DLtTU1W4ThwEf5womSGDSvff/zz
S484UP+6oDFbchATE1pW2+iJA57lnknVKAEsXqahzVEkHn6E2n6fMxfB2FXe
qUw/i4eAHzXUFhfPYN6GRq0mA/Hw7sZ9im+QPLZud+JK38kEsDWzNO34qYjd
9VhpUnuZAHECzwO1bqtgYwHkSw3fEuC9IPbWMkMb041/T5aVSIRF2eBWmxMG
WEuB8YW814nwzNLfZ7bNBJMni9QfG0mEhfAZD9JZKyy3d/VctFQSvAwLGjHi
tcMEphpr9r1JgnnFn4ENsw5YyGog+P5Igs9iMBZxyxljZDKtppZNhjMbthp0
Mh6YO5cYyTkgGcqkRiedup5jc6J/KyiTyRBRXvrlDtVrzAKaZS1JKbA7kimF
Qest1q8ZXDYYmAJhVUE/8twCMRUzs7Pa0ymgF2Q+onYwDKt2PFnSrJAKtd5y
5yrjo7DTL9YlITQVviXKV9cejseSQloKi2ZTobeKwqxBl4wdSA2RELmQBqu7
bl63SkrH/MrM8+M/pMEvlgGGNfpcbKv1lDjnfBqEOi9stJ0pwBy+beS8vZwO
109KU89MFGOTs61iu6LTIfg9SeeDaAVmsBWa5baYDj6ttCcNWGqwNlZLkQXl
DKiwvPfs22QdpsB/OuN2XAbcMNa46CzUiBVIbAmPLGdAt5KgvuRICyZ4sS1V
Vz0TaG+0Me859An7oBt+rD0xE/AduRXOjp0Ys7VVsuLfTLgnLxtsI9yNPXWR
OFqulQXBYffUDKT7sEUfqsRTqVnwI1/RviXpK2Yd2c6fspkFu7OEZ1vch7HB
rA9xh3Wy4WqvqLurxSimjm7xBmVkw8WmIoXq5h9YXceZGEaaHPjQYiGy+/4k
JjlGzf1UPwc4LARZmM1/YWLlevOn0nLgzr7fCzY2M5jg+6yGkdUcGH83rC5V
iWMsRdSqSkdzwXNGymAoex5jisuUjFXLhcKrW/xY+gJG/0aPZ+VhLkxqMNpz
dS1hO11oGDSjc4Hp0Nk/jiIr2Lqm/rctSi6kW1jr7XHfwFbkdzTqceTB6LrK
og2JChaFsnNyIA/8l3pN9g5Sw9w+g3A66zyYTLDqOxe+A2aodj43DsgD2/2i
rG0utDA1k32npDQPcsyXLN89oYPxfgNdltE8EHOsiPVIY4Ch3BxhJJ4PM8w6
MZ9dmOFr5PV/OK7nw/Ss+kLyO1bo9abdsH+WDx2K9Q0hG2zw5UHuZGN6Ptif
CWtpf/oPfDK50cHdlQ8GUn5W1jzs0Kq6q9zpbz5wHIsq8O7bD41n8xI+CRTA
0/NC6roZB6Cale7RkwcF0E+WNMxP54Ly9TyT3sgC8NnxE0/r54biKUNlMXIB
VLRx6QQE8kJ2Tf7hYfZCmI1N91NiF4D0zJt0UlghnBrrYNt9/wgkh9HPv7Eq
BM5DYZcjvx+FmHtGDaSSQvAQb15pWBaCSEOG7ODvhSBeO1maH38cwpQKQ2fp
ikDj7nlnDnMRCOBltI3SLwKn9XcnPP85BX67i64teRbBWJuazm92cfBeMcbU
0oogtrF5n+eR0+DZUcS2sVoEcusZk1dvnQG3SpO/1/iLobn4bbZapCQ4pzJN
ZCoXw2RQoUHrsBTc8zQtNYwohojTc2HFb2TA9NQe40r5EnDdfe2NUhSAEVep
0j7LErh9LD2DP1EBrtObn77zpgT+VZ8zaH96DrRHSmm5hkvg1g9LFkNdRVBv
M8cdd5VC4K/5tXC1C6BcyjzwUawUoq6t/luidhHOB1hkunqUwvJgUdDF25cB
c2MJ6UophVOPkgL2vFACWetyjxMdpRD/hJPFKv0KnFZgvTrIWwa2B0wZnfaq
gsBcxapsXRmMVl0hG2Vrglu7otfibBkcEK3bZ/VAC3rTPzJnc5ZDrBNva5eC
NvhYDgrw3S+HK0ld7UqzV2Hu65oaHW8F0O/nC7waqkfU96y/RqUCAk6dfqoc
qA+JwYzmjx9VAA3vCWQbYgB6mgedZz9VgKVAC7d3/g2oJsvEd7lXQr0wp+xl
fhM4kFAr8iatEsJC1lV4q03AwfNKyaWeSuA4eoB7/KYpHJUzaCsTqYLPVQyV
2mlm4Jfr/CdmsAoybifofLpnCZNvqJ4a0FWD1Cv929SiVqBg6830j0Q1FM80
NVvNWsHC0TDelz7VwIXTtP98bA3XI0qU78gg+H1bzf5diy0UOkPPUUsEJuUG
u46l3gFm3Sbj7wEILlSx+x/ztYNa1r4H2lMIug4eOf/U6C7sU3TViFSpgTix
AMewqPtQK472uZjWgC3Gn/qN2wHseXd81XlUA3sHlg/bxjtA84aPBUtCDTyP
z96wz3UE19IPLs/WaqDH6uPTi1MPQShlGDNmrYW1Q3FeLG5O0B3Mv1NesBb8
d0XLiu99ROQ43X9JqxZaNA4Ze150hjHR8gTrtFqgGPdO3Wp+DFcSBtrV9etA
4stPlhkeT5h7kW1FtqsDnidsaztcPSHM+vmW3PM6wPdssCn0ecKUqKi4cHYd
mM7a/RUIfArepZ5BO3bWQ9KT+qr3B55Dc/uxG6U59TC6HBSVYfAS7uWuL4iR
66HDIOX0QONLOBDY6Zf0tR6GjdxBQPIVWOu7Vr+nbQBnT61QBnZvoP/xic/u
RgPQpnSY0Y29hssrD6f46MigkqO/by7nDVC+Kj8N4yJDs312mpOYP4RU8Rxk
OU0Gsc27VQzZ/jD5rEVl3ZAMra9o3DVz38LLPYdzevPJMHeMxzl6JAAa+Rse
+ho1QkbfpbZ8hkC4qLZ3x1JRE+iETy5dLwkFf1OG+dWWJqg10bleSRUG/Q+p
vm8ONYHf17ktd+UwsImmlNPvagYv125dnu9h4I+3OnDpNsOBcB36pt0foP/d
8zHFP81QXVBpxOISCTa9i7XvpVrhJ98rbdXmWHhr3Od5qqQNemqqFHYrJ0OT
+uE9mns7obNNmoevLA9m+diffPnQBRK2y62/eEvh4YMTpm/390L/gepzwcrV
0PeNVduquR90KpqkRTXrwMRF/ied6iA4Nxv4ADMZ6k9I+9TTDoP/OVb0u6kJ
BBkqpxKVRkCFKZRFlLMVDlfaXqT1HoXQf8kWb0+0AdUaTZrD2BgweH/ZZSn1
CZa1qozIR8dBI5i8NjT/GQbPGB866jUBxXed377t6oB7eqxs/N8mgSMu5kN+
SCdwBo3r7zw8BeQczncY6Qtk34hNWXD+BRnFc8UdY19Aj+Sh1Fw1DV5IZvPz
vS7IM7Ljl13/FzQfttK7znfBCqPijjKdWXCbYm176tAN2p1yUofDKMDl08ex
OdoNjHJMtZVRFHA3Ky4b+tENtYlfVQwTKCCRmlxbOdENp5xdTCOyKUQOvux0
+dUNzDwlfpxkCuwS+G08PdcNLXdO/2D/TQE2quik3K1uUKAXDmBWJfZQZ50r
7Vw9sHJ/5WC2Fg4HlpvEP3D3QM5gU5KaHrEX11R6W/H2AHeOVYWfGQ7CEeLP
NwR6YF0ncZLRBYe4O8Z5R070QEkCD4kuGYdvnMwn9GV6wH4P3pScgQNm+Z2T
S64HBB9Va1/Kw+Gs4xnX7/I9EKR80/pFJQ5ZFpYhFgo94DD/IXBHFw7x0xWS
1pd74PgNG+6EfmJv932Bjl3pgdEGmbTzwzhcfd1YNancA5ph/dVPf+HQOZB0
wFy9B+hpUq/w4ThccUYPeTV7ANk+6q5ZxGGT4bLSkFYPOPVcMjZZw2H1u0tA
+NUe+O9/B7wVDlbX0emB/wPpsv7r
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 1}, {-0.5, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.522634096522223*^9}]
}, Open  ]],

Cell["\:5de6\:53f3\:306e\:6975\:9650\:3082\:8a08\:7b97\:3067\:304d\:308b\:ff0e\
", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"x", "\[Rule]", "0"}], ",", 
   RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"x", "\[Rule]", "0"}], ",", 
   RowBox[{"Direction", "  ", "\[Rule]", 
    RowBox[{"-", "1"}]}]}], "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell["\:5fae\:5206\:7a4d\:5206\:306e\:57fa\:672c\:8a08\:7b97", "Section"],

Cell["\:4e00\:5909\:6570\:306e\:5fae\:5206\:306f,", "Text",
 CellChangeTimes->{{3.522634528757121*^9, 3.5226345361946487`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"x", "^", "4"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"4", " ", 
  SuperscriptBox["x", "3"]}]], "Output",
 CellChangeTimes->{3.5226340967644463`*^9}]
}, Open  ]],

Cell["\:4e8c\:968e\:306e\:5fae\:5206\:306f,", "Text",
 CellChangeTimes->{{3.522634542231687*^9, 3.5226345457900887`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"x", "^", "4"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"12", " ", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.522634096830183*^9}]
}, Open  ]],

Cell["\:5408\:6210\:95a2\:6570\:306e\:5fae\:5206\:306f,", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"v", "[", "x", "]"}], "]"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", "\[Prime]",
    MultilineFunction->None], "[", 
   RowBox[{"v", "[", "x", "]"}], "]"}], " ", 
  RowBox[{
   SuperscriptBox["v", "\[Prime]",
    MultilineFunction->None], "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.522634096898059*^9}]
}, Open  ]],

Cell["\:4e0d\:5b9a\:7a4d\:5206\:3084\:5b9a\:7a4d\:5206\:306f\:ff0c", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["x", "3"], "3"]], "Output",
 CellChangeTimes->{3.522634096981022*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"],

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

Cell["\:30d1\:30ec\:30c3\:30c8\:3092\:7528\:3044\:308b\:3068,", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"x", "^", "2"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["x", "3"], "3"]], "Output",
 CellChangeTimes->{3.5226340973143997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "1"], 
  RowBox[{
   RowBox[{"x", "^", "2"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"],

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

Cell["\:8907\:96d1\:306a\:95a2\:6570\:306e\:5b9a\:7a4d\:5206\:306f\:6570\:5024\
\:7a4d\:5206\:3067\:8fd1\:4f3c\:5024\:3092\:8a08\:7b97\:3059\:308b\:ff0e", \
"Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"Sin", "[", "x", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["1.786487481950061`"], "Output",
 CellChangeTimes->{3.522634097688272*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7df4\:7fd2   \:6b21\:306e\:5fae\:5206\:30fb\:7a4d\:5206\:306e\:8a08\
\:7b97\:3092\:884c\:3044\:306a\:3055\:3044.", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"x", "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"x", "^", "3"}]}], ")"}]}], ",", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"ArcTan", "[", 
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "x"}]}], 
      SqrtBox["3"]], "]"}], 
    SqrtBox["3"]]}], "-", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "-", "x"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "+", "x", "+", 
     SuperscriptBox["x", "2"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.5226340977665987`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"int", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "x"}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"1", "+", 
    RowBox[{"2", " ", "x"}]}], 
   RowBox[{"6", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "x", "+", 
      SuperscriptBox["x", "2"]}], ")"}]}]], "-", 
  FractionBox["2", 
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "x"}]}], ")"}], "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.522634097848591*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 FractionBox["x", 
  RowBox[{"1", "-", 
   SuperscriptBox["x", "3"]}]]], "Output",
 CellChangeTimes->{3.522634097931308*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"D", "[", 
   RowBox[{"int", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["x", "3"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["x", "3"]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{3.5226340979988213`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:ff14 \:5fae\:5206\:65b9\:7a0b\:5f0f", "Subtitle"],

Cell["\<\
\:5fae\:5206\:7a4d\:5206\:306e\:5fdc\:7528\:4f8b\:3068\:3057\:3066\:5fae\:5206\
\:65b9\:7a0b\:5f0f\:3092\:773a\:3081\:3066\:307f\:3088\:3046\:ff0e\:3053\:306e\
\:8003\:3048\:65b9\:306f\:ff0c\:81ea\:7136\:79d1\:5b66\:3060\:3051\:3067\:306a\
\:304f\:793e\:4f1a\:79d1\:5b66\:ff08\:7d4c\:6e08\:ff0c\:91d1\:878d\:ff09\:306a\
\:3069\:306b\:3082\:5e83\:304f\:5fdc\:7528\:3055\:308c\:308b\:ff0e\:4eba\:5de5\
\:885b\:661f\:ff0c\:6d41\:4f53\:ff0c\:7d4c\:6e08\:4e88\:6e2c\:ff0c\:6c17\:8c61\
\:4e88\:5831\:306a\:3069\:672a\:6765\:3092\:4e88\:6e2c\:305f\:3081\:306b\:91cd\
\:8981\:306a\:3082\:306e\:3060\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell["\:ff11\:968e\:306e\:5e38\:5fae\:5206\:65b9\:7a0b\:5f0f", "Section"],

Cell[TextData[{
 "\:6b21\:306e\:4f8b\:306f,\:5909\:5316\:7387  ",
 StyleBox["x'[ t ] ",
  FontWeight->"Bold"],
 " \:304c\:81ea\:5206\:81ea\:8eab  ",
 StyleBox["x [ t ]",
  FontWeight->"Bold"],
 "  \:306b\:6bd4\:4f8b\:3059\:308b\:3082\:306e\:3067\:3042\:308b\:ff0e"
}], "Text",
 CellChangeTimes->{{3.522634743482012*^9, 3.5226347623901577`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{"x", "[", "t", "]"}]}], ",", 
      RowBox[{
       RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
    RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
    SuperscriptBox["\[ExponentialE]", "t"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5226340983182507`*^9, {3.522634694162619*^9, 3.5226347230221663`*^9}}]
}, Open  ]],

Cell["\:3053\:306e\:3088\:3046\:306a\:95a2\:6570\:306f\:6307\:6570\:95a2\:6570\
\:306b\:306a\:308b\:3053\:3068\:304c\:5206\:304b\:308b.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc41Q8bBnAj0rH3ds6hzBPZinxvMyTqhAYpEkVEkohkZUciJLOMiFRU
IplJRkpJ0iQh/ZA9e3v/eq7nev69n/v6UJ1P0Y8xMTAw6DEyMPx/Zl1wZlV1
idP3cH6hxcAwSTT3UCz3UU4Qa7yZ4qkck8Tf53XhFEoAUeuj/ENddJLIqk8g
s1BiCIufNSaJapPEye1+nvPkDOJMb5tw3bFJomf5eMok+TbxuurFf0xdk8T6
j9/lfpOriV7OYppz4RSR9zLH5xe5jUhSrbxKPzdNzKRXKX6JbyPifqbojkdP
E6Zu7YNvFtsIKNSSUjKmiXHmedsnPS8JtqDN1lw104TOdqttMVEdxMTt9S3l
a9NE990VJrmJV8Tfch3FkugZIuQlzUL1cA/BqF+tNVg0S5Tfjfl4Urmf2JJe
X2witECM8Y3FWzj1E5vnXCVOKywQcmct9OVT+olz6oY9ZXoLRK4ee97gYj/R
2LRVd+/RBSK5Ld71YMtHwrv5qcW+ewvE2cHEqR0OnwiOlSY9692LRA57eziv
yVdCuPSy1L7rS4Qb8Tpj/PQgcdJVIrDcaZVgyJ978jFukFCRzNt249wqkb5O
YuDlrX93h5YvmYmrxIs2V6nbvYNERPdr7tdPVwl5m5X8Y9uGCGP5W0kC4mvE
yHG5O58ZfxD9sfcvcXxYI9yTg+u6k4aJB16Xua+qMsDrh8JgZfkoUdIfcK3k
AyO+On5ga2gbJXY7Kru1jjBib1+0cufQKOEpsI95ap4ROu0/A36IjRFlhc5t
7kJMYL5XwCMUNUY4XZl5uriXCelBVH3/w78IIyeRmcuvmdDAL5qxlec3cYBw
+vKjlxkkaoTcF51/OSCnhXzlYMULvSsqF0wmCU8eQVVLKVZc2p+tLUn/t7ON
F7SosIIp6fEOe49JwpyVxvKdzoqltXG391mTBPlKVEdDBit+DdgWv2KaIhJb
3qnIKa5HR7qcQn3HFPHgTPfNPls2XOZpV8w7Mk1IbXQ7cOojCdXaklVWXtPE
hy2tTV5/SBhyPEWsnJ8mpHuivoRuYIduGb/NvrRpgnPmjtegNjtGzB2CObum
CZs6tKamssMo/PerAN0ZolT+5KnnNhxYmOX2owvNEvU1VeI93znh/NHmGXPH
HOGx/U/E21wekDK/efp8mCNeXI1jf1XOg/sHvSS+DM8RAaq+9He1PGDujwp4
wjhPsNlXm7F84MGtvifqPtrzxErBi9/TvLwYfkcp/pw/T7i86RwTuMQL9+7x
pOqABeKgqM9SmT8ffFoinE/JLRFhZ2MoN8IEIDVkyjqnvkRYrvIsVCQLoJ1p
Q0kQlghOWpDHm3wBbELCVMyBJWLtVdIu3SYBfHiSevFW3BKxv9FTsHCdIAwq
CrM/TCwRdO/L4SMxguDNfNFv9HiZ8F3avXQ8Wwj3vDn2ipivEpJHyXmVUyLo
uM4fUGa3SlTSYmPGWEUx3CyWY+iySlRMUM6rSYhCTFTh18mQVcKvUfvRgqko
IhpMwhuqVonu2TtGR7JEYccX8sBdeo1QTKY53t4lhqUHU/xPl9cIjtnZb1dr
xZF33mNsyz4GqB4RSQl8L4Ut9RsWog4xICb/U/DshBTq1xWzfDnKALPc4Xfh
bGR8TRiiJHgz4DprKNfHrWRI5R7aNxrDgE2VD2z8ssi43mzdnFfLADVmeqC6
BgXJnBrZfNKM0PSMiXvPSkVYzsqemXFGOJVp2zR0SGP3lsc+StOM8FjxknT+
KA2pBt8rzouMKJj2NeMak8aT72Pd3SxMYMw5+DN6vQz+bPpgXSbFBC57M0M2
Ixk436na5bqbCX2987u1a2VgUO1l3veACdpVt06kPdoIhp6vqA1kRpBLbmTQ
W1lEjNblBYYyg9GixbLppyw2MGQxbY1mhg8l9aDYsiz4Nh9orkplhvi9raGL
VDlsinq9424FM060618I9paDhW6jVf4wM0JpwueLeeRx9eZNh2j6Otxl8RSc
OKQA2TOu52wUWRBREBkVr0LD5m1f9uZsYUGo/o7iehMaNBj2q4xpsWCxq9mU
1YEGw3jz4RAjFtzeJqHxPJoGx1s0m1IHFsw9eGwjNkjDtbd/VJgSWUAjcmfJ
mZvBohny8+40C4Su2hiyiKpgaDbNjv0pK74U9Fo3yKki30Dd91MTK+ZYaybc
tFRxOKEr8e5LViTtecgnbqKK/o0sbXv7WBFe9ZijyFkVr/ee1r0xzYrxGcc1
u2xV1N2zpGz+9+c7P1OcKSJqSPNkHLNKWw/t2jX3IkF1WPxwD072YQOf9MZu
EV1NmAbL3DE+x4bxgSu+Pyw1YSg40D93gQ1qqgrMDY6a2GayS8c+ng3OLGMi
BWGaUCxQmZYpYoOPQVqIdLsm2I/NHK8aYENGfubRVUctdAwF2/Tt2IB60zHu
xGRtWA0lKUlJkXCR9ZujDG0bOpSG3jpsJKEk7tWZDGzDTl/tC5mKJPRs744h
226DGdPnbhFtEq6+Fx60v7ANhhSls/y7SfjQQ39w7fU2aDq01LOFkeAhdXmC
fF4XEm8Xbad/kLDiVcI70K+HsSbniy/K2CF9g1dn/hUB8pU+98uV7HhNW8md
GiNg42hla1PDjosax/0YmYG6ha2KX1+wY/+8t7amFJC8mfft/CA7nBdWyuRs
Ad20Z3JyYhzwN8/jNGgB4t0lXkVe4sCvCSIzvtwAyry9kkaHOZFwcVFloMgI
wwnDYanHOBHnVl3i/sgIWaT5nz89OJHF6eHH0moEjnUi9+PPcUK+qYB6ZNgI
Y3MHTHuvcOKW0daRkk3GKBj45HWimRPnlUM+ZRcaQ6L4x7NEBS4I7v0WteO+
CUjErNPANBdcz21nmPyzA+cM5NkeLnHBMDI1IXC9GYaN7MsTGblhHLKtWkjC
DI1mDUuG3Ny4ZjwmF2FihkB6wtXbitwwu6HGqZlhhl/HNrWcdeKGh7eA34qR
OTribeV5X3Gjbg/teFKRBXb8Pjgvbfuvh6/GaXuX7EK2QHhPyH4eTC9u0fVo
2oUZ3dK7A/Y8aCr+uOP8wC7kxi67XXPmwd4phaZ+Lissyd3o2+DNg/Qn1poZ
Z6xwx/lT9WQsDzZMxfXKGFuDp+9wUF09D0KN63sXAnajr9GF8SCNF+PpnLX7
d9ExadAvFqzCi8DMXUuP7elY32CtkavGize/rcI3utOh9Wyb27AOL0RWhTIk
o+hIqeHpPG3Ci86grs70BjqsK2vT4xx5sdyXZFSjsxfPCwS2PE3ixd/TVcJT
Kjaoim52pMzy4nQk8019YzsUW7SLRC3wQnqt+7HmPjtc53jz5vcyLwqK+mf1
3O1wMemLaQ0TH+RqHkoEJdnBMn1J2Y6HD/cT7+XVfbLD96Itf+OU+GBnVNZ9
5Pw+cLXeyJl34kOJf0jIhab9cGXx+9rVxQdyh3SkV6w9xMht75df80E4YSTP
JtceXTqSr+Tf8cG98YC85UN7aJ1seRr2kQ8yEaW3T323B2uPYKbWCB+8SnzW
xeo6oCD3oW02Iz+oKztPi0w5YEh34aWnBj8oAnRDRndHHD19vorjOj9qMrtI
Cu1HoKX2uUohix83OnKM0HcEpD94aJrLD/rupxVOP46gwof10cVCfqhVV+5o
+nsEK95XHs/c50edzjszJk0nXDtVVDPQzg+7awHlZ/Oc0Hayp+HOKj+OFmpz
+IY5Q8VNqcvSSQCFN0gbcl1d8PkE+VSZiwCCW+slvvm7IP4kPw/XcQHsU9J/
sSXGBaM+y3teeQlg6+554ZVSF9wMan+3J0gACidi54z+uEA42eOTXZoApH0V
Km+GHsPf2tLxI50C8JlSjF4tdcUrPhq731ZBWFoc0eVTOwF9T8/RTD1BrFmL
+MyYnEB5a3lrIyEICWJg3/CBE7gcpBrBYyqIIiUx98XQE7Ac1lotpQtCwOfq
2qc3J/Cy2mDiu4cgoEedKvV3R8uRfT27swVR25BvX9XpgZrysEwasxAuiAgW
+ZZ7gdXSViyNVQi39Kbi77/wwp5RuQxGkhBko/YMrx/0wk+Zzmu9PELYYxqK
OeFT4M8QTr4oJYSWSI+KwbBT8Ai/E/12qxBCwpv2xCh7Q3x/r1+QtxAOiLvU
FfL64Dyj4u6OT0LQVRFX/rV6GsPG7H2y34TQnx8g85nTF7ujxw+HDgnhJmdB
8GdJX2zkvntK65cQzqx3T1iv74sOCY3E3AUhaM5N7Vu54AspHf2uM/zCkM+4
kh/IfAaNXnRLSXNhsK5M2UsI+4E0EGjmVSmMb0nh2sUe/tDyv82Z+EgYeeap
DAwX/OHE1/fm7hNhjKY4ybkm+eOxmeahqXphhBpo1Byq8odr1YTPmU5huEUu
6iz/9UfDZZfMwGFh1BqRUhbTzv3rK6v/LomI4E260GfbngD8KKSm5ASJ4M6d
EF+9wCCMR3xbZL4oApa/kZs8k4Pwxznv8PFwEXzsmzh6/5/UGMhUJdVYEbRV
d7UHfgyCWBqlsTHtn7OcpDRY9IOxO4o8+eO+COztI5a5119ArZukJW1UBKsj
m1WCb4cgRV50XbWtKDjkvwbOZITCwVG2aHC/KOiaOYKjRaHYmKJuweUgCqtN
M/UjVaGo/Lsr6aizKNxJF05ueBOKt71hElynRMGr7Mn1mhQG/shxjaPRohgx
u28deiEMyd+eHeOsEUXAl9buAq9wJF13bXWiiOENd3qK8JlI+J8N8w2S+ec4
qrdSc0QkHOnZ5DRZMQSYTzwKTo0EjdTr30ETw8lfGv3CjyLRFmAir71VDF9r
eg6PLkWC6cDGGA66GKIZhU6QIi/BT/i7xaNwMcy+TRlNuBmFgymHujh+imH4
4Ug/I0csJB6QxD3GxJD+Ll5+iRqLL68fubX9FgPzC7m1dTqxcOHmY7w0IwbP
de9C6C6x8Ip9rv6XURyPcmdTu57GIuyiSsaUhDg0z5xmOHAmDrdPMrr00v+5
s6FFXWEyHgvGBYs5deIYZao4rcefhKCanPDmBnEkNkne/U5OAoPadc7RZnHw
dJR9SaYlYT05karWLo4bxol6vKZJEFo8Z978XhziC0qNlwKSoF5mmTEyKQ6W
6dF5++9J8BKc0VGVkYCYQLDGSM0VDP4wPNcYJQG1b9cHXJOuwjCnK18xTgLV
m6fqhPOuInf/wc7kyxLgot/+3HvvKhzbfaSPpkogKO8b68Weq+ivyO1gvikB
VRXFPSHCKXhzfo1iUicBlhi7Ar38FDTyPmlrnZGA8S26AXtTKvK3q4p3OklC
qfNPwZBGOhqtSOHLLpJQp3F208zS8f3w4JjCcUlYHBKwi7BPh0xY6pNLXpJo
+/290CksHbeeLx7AeUmQDc5V9nano8C6Mf1BiiRoBgVuVd4ZKHbaK3S9VRIH
RZJCsmuvoyzSj9dt8z+I/Ke1nyM6C+N6h8Iit0jhYOaQuEROFmgzxtM31aWg
8XDs2/aHWShxFnj3dasUFA5Zlj0aykIx8SD9oKkUGLwHOyMNs3FrcZJsdVgK
Tn+669IZc3Dd86Sy5hUp/LqmvPzXNBdRtkd3Ms9KQXhRMi5tKg/51gMOxxak
kFj2W6idIR+15rZerctSKP4VHc7Ok48/23dciWMiQ5/1leID5Xw4yCq95+ch
Y4Lk8CP7ZD7U5v84b1QiQ8zLsnVqLB+f08MCTZzI+GB6WPzd1E1oDuTdjuok
Y622L09VqRA8yscX7naTsdPuou1jvUKMhyjv6Oshg1/ccMjSqhC3ZGqG5PvJ
YPz5uy7HpxACHm/JL4fJyEZD1u/HhVgKYt7JykDBLpO5ZnWLInxg12owE6Wg
olvkTrV/MdIVMss6d1JwKyN+0pyxFDPTpgXhuyhYYfC94ClSCuu6Pze2WlMw
seHTl1sqpWDdaxFfQKfAXFjfydqxFH5Bi+7BByhoSTuzPbW2FPRX++Q3u1Fg
OyZ7aTroDjj8BG7Gh1FgbBDddJazHCH1Cek7qyn4VUbyeP+4AmOf6lMWn1DQ
nul7auR5BeyWp5OKailYa2U2Z3lXAZrWwRjmegpECk/fdJ6qQF+pbGDNcwqa
fay4yhTvQS3tmb3SWwr2ri5kxeTcw7DnlBT7BAVGId3nS5LvY5e4bcHLjVQI
V45ETuRWIn1Iud5eloprsfkrUvcqMVTG9nFcjor9kwdl7RsqEYRaHm4lKvpQ
8mTxWyXuHJMJ2qtKhclK2d9umSqQKqboA9upSOLJHpi8XYVW48sM/9lRERp6
MUW//iEMvFrteWOomDNz4vcVrsZS36hpcywVAaMjMR20alQacaj5x1PhueGl
oo5hNWRF97B9SqSiXDpAwdSzGhzN/ZXF16jYsjGpS7+5Gn2i//3DLxUv/7sc
XuH3BN4tAvVez6j427HSyPqzBjkSzhs7ZqnoIR0I0Fr/DNvUlZSd56nQL6xP
+Eh+hrfmM9oLC1QUMltopug8A5v/pZ0bV6j4oPr3PNyfwft1yekgJmk47bTN
vtT1DLg0XU/jlsZInmuMx656fJ+IOJQgL42aK48lgqkNEAp93R1pLY2JANlT
Lhcb8T9Vd9Vw
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {0., 9472.784642037905}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5226340989395638`*^9, 3.522634733586788*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:30ed\:30b8\:30b9\:30c6\:30a3\:30c3\:30af\:66f2\:7dda", "Subsection"],

Cell["\:524d\:306e\:4f8b\:306b, 2\:4e57\:306e\:9805\:3092\:4ed8\:3051\:52a0\
\:3048\:305f\:ff0e", "Text",
 CellChangeTimes->{3.522634773267828*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"x", "[", "t", "]"}], "5"]}], ")"}], 
        RowBox[{"x", "[", "t", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
    RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"\:9006\:95a2\:6570\:304c\[NoBreak]\\!\\(Solve\\)\[NoBreak]\:3067\
\:4f7f\:308f\:308c\:3066\:3044\:308b\:305f\:3081\:ff0c\:6c42\:3081\:3089\:308c\
\:306a\:3044\:89e3\:304c\:3042\:308b\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\
\:3059\:ff0e\:89e3\:306e\:8a73\:7d30\:60c5\:5831\:306b\:306fReduce\:3092\:304a\
\:4f7f\:3044\:304f\:3060\:3055\:3044\:ff0e \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.522634099207781*^9, {3.522634776004187*^9, 3.5226347824615583`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"5", " ", 
      SuperscriptBox["\[ExponentialE]", "t"]}], 
     RowBox[{"4", "+", 
      SuperscriptBox["\[ExponentialE]", "t"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.522634099214993*^9, {3.522634776015542*^9, 3.522634782469001*^9}}]
}, Open  ]],

Cell["\<\
\:3059\:308b\:3068,\:6b21\:306e\:3088\:3046\:306a\:66f2\:7dda\:304c\:73fe\
\:308c\:308b\:ff0e\:3053\:308c\:3092\:30ed\:30b8\:30b9\:30c6\:30a3\:30c3\:30af\
\:66f2\:7dda\:3068\:3044\:3046\:ff0e\:6700\:521d\:306f\:ff0c\:5358\:8abf\:306b\
\:5897\:3048\:3066\:3044\:304f\:304c\:ff0c\:6b21\:7b2c\:306b\:982d\:6253\:3061\
\:306b\:306a\:308b\:95a2\:6570\:3067\:3042\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", "sol2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4VdsbB3BzJXGcbR7OKIQUynAbzrdIiihdiqQcicqUUi6nmyQplaGB
SEgabhkqdSuzxJWhZCw0mEpXZtec3/r9sZ/9fJ619vvs9a53vXuz+X72HiJC
QkLT5Pr/PflPvoTBvqi1dafqdYWEBnll9SybHawDPE5t0xYZyUHeXHnhaRbr
D56khaIeV26Ql1x8kSnOOseLif6N4aQ9yPNeE+gzzrzOq37w6dPs1kFe/bTX
lUHmfV7PqZXjOumDvHmtHVo/mS94QtEDanLWQ7y0NymH/2VW8k5q1OxQvz/M
y8o+1+qt/5F3sFLNQefLGM+TV3e9L6CTl8T/tqVed5Ln272kMzerlzfz0SrL
J2OGJ8kO1/psOsi7cku0+OQ2IVyiVemk7R3h7Xgq9TAFIuC3/l4kWv0fT2hd
qtNVvhgOvw7n+2lN8fga8icEQRJ45C+1XWnTLI9/w+37Edf5SAs59GP5DiE0
ePLtzB0lEZYys220TxgHTEIE5jJSEKr/gvxgUThMfE36cHMRNI/uD/pdRxy3
/qntZWrLoGss3nFhgQTe/mn4/F8TGjZ3HzwRd3g+VmwUibNuoMG2K0aXwZDE
N51T06ucZPHjFT/0n8yFaHLS8WKXyUJftkndfM8i5DSIGS/WokOSN+bWNiIN
nUkDllsgHUHrtOc/m5KG56R3VMIxOnrMd2VFC8vgl7m1/NvjdJRalUytl5HB
CrvZCLNgOoLtL16+ryOD2uawQdGTdPzrsfj1MTcZGLFUbP0i6ai+4KAt+1YG
16I/F6Qn0rHxp/M4x4GGDQaWzin5dNyUO11/cicNi9I+PUwuoGN01YPstl00
3HX+aJFUSEfq+WnPa3waxISqLK8U0zGldaNlgT8NBV1GKSfK6HjIb38xeJ4G
If4LCf1qOmgtewSFxTQkOfxXPb+VjpbSfcLOerLYslYvuvA/OgbXfVQ5sUwW
/bYBUafH6ZhXYrci1VAWRh5usxsn6DAu+s2zx1QWIyPR5m8n6biSR6sJ2CCL
HLaA3zxDh11ufkKUqyxEpM6tqBWhUJ4ht7wgRhbVyj8O75Sm8DSyzJU1JouK
Y6rMIS6Fe5urlM5OyCL0uOPPdA0KiVLv3/+clsWToVfLHRdTCI35bJknQgd/
Xp7SC00KNglT+o40OjTCso8HLaHQcXf5XJQuHbyM56/b9SlIV9xIGXejQ9db
ynSDGYX94oFfamvpeLXmpiDJhoIKs7J5uo4ORsOJ5xpbKNSaqr/VbqRjuEU3
OpPY2Pt1QRjJS/cOCelCWwoS9fJJxt/piBQzcvq4lUJG6jOHm8IUZova9wo5
UOhaNfHGZwWJc8BhgdhuCu4BIU+lEikUdJ7pHD9E4hl+erokmcLS1cxkT28K
ksN4ZplK4cu7LrFm4pzDEn+H3qGQb9b4OdeHwox/7PPRxxS4GZ6V3n4Urvnd
zWurolB3pDqpJoBCpXd9ycNZCs935738/Q8Kyzx1a23c5HD0c45b+BkKnw4w
/TL3ySFH3Em3l/iCN0WT9pJD90uF21siKPQent721lcOoqsq0+XPUkgXVDVu
E8jhnz2FHWmRFBTjDrU7xsvh5EmhKw+iKMzlP+jbWyOHs43m+87EUnhL11sY
aCaPPcX6q/fcoLDWx6c3abU8XmU9VHpInFWRVVHKk0fc+IK8CeJLAoNwmqU8
RBgL7WNJHmx6jGcf2MvDeHtBTdFNCm9erBvoOETmXzZi0dMovN67o37rTXl4
xLrbXsygkJcVlqQnqgCExe3tyST7YeOgEi+hgKSddut0syhs69W6LiypAO4j
w14/4m/cmmtNNAUoGnKiJ4ip64pxoQwFxHLiTOflUDh0+mFkg5kC1hs+01Yh
eVbd2RQo8FdApZFLtuIzCiHCOlur2xXg7mwXFFxAocdiYYvmVwWMHqD5PiLe
Gtm351SXApLVhE2+E2vIZPsZ/6sAZvTceodCCtVqK6JTJxQQ1rRl49IiCgzT
tbVHKUXE/SplNhZTKPW1t1HfpIj5wjvnxMpIPbQFW/nmKuJCqFxaXyWpl+P3
F0X/rYi/KjZ7Kbyh4EZveZ/9UhE+hbEyIH5utXL3ULEi6Q+PfsUR7386cPho
jSJKcmrdTEidlFzalxTcowiNTtrW4GqK9Cvb/gglJSAtx6e3lkL3HfaVFIES
hk1PhR6up9AX/nVSNFQJeoEj3deIh/lpe7xOKyGs2kovn1iIydY1OK+ExT4i
LhIN5PzEs0pL45UQd+Lo5uvEW88yB7sfExvq/vGikdSxp7qNXq8SPKLT/uls
pnBFW1nshYMy7oQoW3W3UnBx1bzbuVMZzBL7m8JtJH9XjDZLuyij6OGxT+rE
uXNbYtz5yuiwKFVzJG5oClOT9lNGxi5cfk1Mnelb4R6pjIkVvsdS2ynEfS3y
WJSnjO66vLOWnynEJO6vcGOpYEwlBDs6KBw/FnZEwFVBm2qvsi+xq/1NZrym
ChY3NH0NJ9aTbDperaeCDtf9ax4TV/6xQdvETAUp+8s1pDopiDhpnJOyV8G7
6v6ifOJAxY7Nf59WgeGc7CnZbgrOV3bXSn1TwaOpXx+ivlFQeyKpeuiHCnSz
O+xSiT/X/e1Z+VMFw8/zc3OJ98nQhSNGVRA+FmXdTux7vtxoTlgVSs/Vs5d+
pxAWuuz6kJoqtIoZzlXE972F9zXZq+JWU3PyVC+FCYuMyZRCVTw95v5At4+C
IC/ldFmJKq4esdJZRSxkmLiot0wVHSfUkzcTz2NGsw2rVNEznu96gFhhMmhT
WbMqWLca7O8QG2XaXP8+qAqxT14SjJ/kfeRHTQ24aug5X/1BrJ9CZ/f6oNKz
ahBdOkl7PEBhfUrtLZ0oNRirtXQUEafudK6Ju6SGn+8X3K8hdq06zHG/qobZ
sgv0XuKPOanVoulquG3K3sUcpPA+5BdrQ6EaDCZ+vjlHXCr7srJiVA2v+sr3
Ow5RuLXGQLXGTR1n67XC3w2TcVvJ09P71NEykzP2kbhjT+ePJV7qOCE+5dpN
zA27+jLCVx1VKd1KU8S3yyedEKKOfutmHe4I6dd2pQlPrqgjqPxZ9RHie27b
FRIr1JGUNW4kM0oh80ygrOdSBhIdr7YvGyPnYfXusDPLGWhlaFmYEuuNWoyk
GzGQeWvlbRD/xZdr/GLGwP2xtq3biO/xniQ4W5Lxm19cAohvTw4ybfcwcMNA
2uIJcaKPt/7KWAbOz3/nv/w/Cmcd3K1FxxjYaXjBUnmcrNeuzcVjgoHbG+wq
WMT5mxx8K6YZGFIvXadNPLxmY2yUCBOrLKu5JsQumrrNFI0J6oZ48u/EhuPD
fA1dJr5ax3tdIv6UEBa8wY0JtV1ZZ2eJV7al3T9bw8R06tjImwkKNH2viex3
TLh6K6S+I+47qb+xpZ4J3YGSjU3Et7l5XdofmdCgV5z7Six3qIH5poeJgPEf
LePEUwJRawkhFqryrt/hTlL4sNC4xEqZhaFQKcUg4oQlSZk11iyUPHgxJzdF
YXTEMuP0FhbuSolKqRDbFQ7fMLNjocdtjmISS2zffCHDnoWlEUzFJcSBgsmD
J5xYmNrm/mM1sf3bHdpLPVlY36j6jzuxVKBc+oUwFoLPvAnKIj5ZfDHB+gV5
3jjsgOk0hR/txVcmX7LwnRV4cDWx4/RIzN18FkQ2SXuBWM/Y+ZxoMQsLTq11
siJueaAZnFfOgqtLF7WT2DC+aJduAwsxVx/2HSPu8RliLBxgYb9gYO1j4i2q
DhlvNNhw19EeY86Q9XbpF+/SZMMu89IMh7grc35rnxYbfpfjhTWJBcinyeiy
IdMbL6ZH/NCDK9huwEb5vIh+E2LJnCH7tjVsHGzP3G5HXGFxSajfkQ2ldbF+
AuJ1vhW7ZM+xcSTd2+Yd8VRLr2XZeTaM7xXOvSfONZcyPH6BjRl2RU4jsaby
tvnt0WxYLheVaiWWKvuYe+8aG1l/7r7bTdyi3L8It9kQrzM/MkXs/1qu2LeI
jbrOKm8O+a9IUeNrVI+xMS8wcJM38W9Guvr8cTaYwbHbfYkbNo2aTEywQT9J
c/Ennn88wlpjhg3htNVeR4n96/4KEIhwSD/z9xEQI2KkWE+GA9r5vXoXiDsG
wndf1ObAf3t/+F/EGq/uXrPdxcHik7odHcS1ehO321w4WLlsUUQXcdA1qycH
XTkIMLyv3UNcdaD3bYQbB5ZcuYO9xAE03QVFnhxcVK5rHyAu2p0VsuwoB5Fm
xedmiJ0ncvfSLnJg/Cc1JfeLfB+Wluq8L+Tgno+Z33rie6a7FoQVc7Ag3a7H
nLjIfPSbQSkHGoY6LhuI+500M2Jfc3A0bLmFFbF1xHnmtmoOAgtuitsSS3y2
l3v3gYNB525bJ+KQmM7ZmlEOSoelRPyI94+I1VXqcNHl+5AZT+z6l0Wtix4X
kceNViUQO7qFVw0s5eJbTavDdWLLt6Ll8gZc3GBcjkwi1nwgkudmwoXRluzO
FOJuvlDGpDkXeYtWHL5HvO/9dNCS3VywHcT7nxPzHw2zzkVzMchsjG0m9g7b
PrM5lguzwIqrLcSB23ObpS6T+J2NCR+II8cCL8Vc46JlyeYbrcRZZpPT8clc
7F9wJ+Ez8WTJXNOdB1zUWzV5fvt//t5LXSyr4CKk2s7jP+LEdB+viEouDO1W
2Y4Tpx+tNbeq4uJ4orPxBPEzhZipqlouZhxMxKaI25wpr/pGLj7VCK7NEmt1
Kpt3dHKRuLTuqtgcheW5wYzb3VxcrrIOECf+7UzrpMc3Lo4qi9tKENtoJef0
/uBC+qCx6HzigEMsxtAQF+vX39m3kFiw+tTk4xEutCq0V0kRn1nU0XB0jIsN
JgO0RcQJ2elRExNc/Dq0+aU08a1QMc+XU1wkBH25KEP8YJvHesEMF/5CBXtp
xLmccvW1v7hQv/PFUJa4cERzcm6Oi8yFNmJ04v8Boa7Y8w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.},
  PlotRange->{{0, 10}, {1.0000001632653162`, 4.999092166081863}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634099495687*^9, 3.5226347858830023`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:ff12\:5909\:6570\:306e\:5fae\:5206\:65b9\:7a0b\:5f0f", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol3", "=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"x", "[", "t", "]"}], "-", 
        RowBox[{"y", "[", "t", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"x", "[", "t", "]"}], "+", 
        RowBox[{"y", "[", "t", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}], ",", 
      RowBox[{
       RowBox[{"y", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], ",", 
      RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "t"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], "-", 
        RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "t"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], "+", 
        RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.522634099605855*^9, 3.5226348008271227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], ",", 
      RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "sol3"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", "0"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwsl3c4l//3xylaPsgeRWQkK5u3dUiyClnZe2WlyEiZiWRLsiK7yEhZxbHH
O4WoyMzKHhWVSr/397p+f93X47rv+/U653me57zum9v+soHTHjIyMiEKMrL/
XZOKnp0oPsGE9///amcTHptJupozNtWQazBhBffBgoD/3Vcp9fZxZsJprY86
yiT2XTU0/hNJev69g90KPxMmSAQ4ZhUy4YD9f63hJF40aco27GDCmxJMOuQk
Plv6jOz4HBO+5X884sLHhBSOXbH7KZlxrX1Eu4aXCReuGqlS8DFjsHRO0AoP
Ex6zS+NgVWdGR/VhzUMkLhKo5lJzYkais3YC7XEmbKKu1IqMZMajzx4J/eFi
wpCAoLSJQmbU/uK903eMCU+8/XJAr5MZ/3mJD8dwMqGAdlnWh3lmpPdcFX9x
hBTHYhKfkAALfqS2cuZlZ0IP4wcsPzVZ0NysiP06KxMynmzhG7vEgmcH064O
MzIhXyB9wmIpCyY+X3wzRc+E4e9U5unfsOCzJ66sfYeZ8Olu1gXDNRZM5xNa
tPyPCakeVlmwibOip5Au/5+DTFiccHfroQErJpy3ag7dz4TZZB/SFXxZkUV9
0Z+whwnXU3C7vpYVT31+/8VxmxEbs6PLicCG3E4CZELfGNGi0UjrgD0b8tQK
nnu/zohPjO+9t7zFhlfzWhfeLzDi1fjqau0eNiy1tKKLGGHE1QcPWQlG7Ch8
5E+B83tGZF3e907Enx0pfDoVRQYY8d0pLUtCBjvWGKpM2nczopVLQ/+9KXbU
fkhR6/6CEa2vz1RYeh3B3b9Lkg6VjChqEOuyP/kIPiASQhRLGfHkbmRX94sj
eOiZyWxKLiN+eFd/KeHvEfThpc4YuMOIx79sJwrFH8WVyx5rTiaMuFd5DzG9
mgPP8fpX9OmS8ttzw+71KAfGZq+QM2gwogZZ6FEWCk7M9g+5yydLyvf0sfd/
jDhxb3rbDV8mRkx/lSZC9pMTtZ4rdt4lMmCWQaeVFzcX8jGuUPg1M6D58p86
YxkuXD8SEyVTw4BO7y2IWjpcyOxcEUp4xIBGlMxbF69xIVmbtpHqNQZ8Z8pb
SkXkQt7dzXwBJgakivA/Q7zGjS9ZxpOsDjBgoVdjeeBdbuTyjjJ2+k2P2nJV
ptKPuLGWWTx4ZYoeeX9zaw/0cuN4zEPRwcf0+LuP8CyD9zjeKmTz7Zegx94r
lOXuH44j84pd8o9jdEibOtLUfJoXj6VpnjanocN6z4gKS1NezNfI0kz4cxjf
lh+V2OPFi/LKXPcvDx/G/+4wdlxK58W/Ugcm98YfxukmKYonG6T364s9c6do
8a2nUN5cLh9+Y/G4JcdFjew5LNW/9p/AA+6O7EMb/+FINkQ/4zyBswYVC/tb
/sP7YatBPtIn8It2XKqM7X+YdpH9DrXDCcw0avpdkE6Fc8MHXuU2nUBv6qOf
3X8eRMH72iKy/gL47miDA9F+H55JeK/1cvUkatw+WjPMvw/9lT79mqUQxHKW
zk6/JUp8E0WWz3hUEKmlnyXbelNi1qOrOZHagsjyrHV80o8CI/tuXykrFsT9
atmy0l57cI2JM2PXXggZt1RPrOz700RO/SVSdlwYOzjeil258rtJYL356u53
YZxvkLb682mnKe94L33PfyLoGnl+kbv0V1NfktiRS4oiaDm5bJACP5rO3xj/
712mCAqr24tbyH1tWuBuJ5O2EMV3W6HJdgnjTdHN3JcKRk9hZKbOU62AT03+
HyJUWrdO4THRttZjlh+bvp0xSN7YL4aRJdzakYwDTV62esTDx8Ww66nt4r5j
VU0v59R7jEzEUNvB736uzgflM1RZj8eaxDC+gY3+xfg35UrlwxU+CeKY5pZI
S/32u/LRF0l9V7PEcVXry1MibinHzN3T8n4sjlEmCivXi38oj83r/XVqE8eP
vwtUeqN+K7u1FqnJ/xDHFep63thOcmC62b/qay2B8qwnnzSaHoJ+2baOR4KS
aHPMKK144hAUZCX89pCRRCeWfA8FJyp4Ijd2Xeq0JHqGELztff8De5MbVHVm
kmhU8li2PoMGjo2bOydES2L8sXm2rxF0MFhVouI1J4knjrvcvCnJDK0S+rft
MqVwTSDI0zeMGe70tjMmFknhVUHvp519zNDm+NutrkoKRyUJ0zc9WWBkjYx1
u0sKXSYbbyo+ZYU3n48f5vkuhW9qUmj5lI/AK7P6PWI60qiXbvghwJALYrHo
u+83aRSrMB07cosLdPl4Iu7uSpP6KWj3x3MucLbaNk07KIMH9GsOWrJwQ3Vf
tkX8MRmUjOAy/TDBDYpWzxW2tWUw2LncqCyAB2yblaYTc2TQv+i67loZD5TS
mtSsPJZBbHXgdv/MAxFBDe0Kz2Vw99uNRiYdXhAu/bG/ulsGKxe2qsW5+aC2
uN9xz6YMBvIn6GcO80PH/cVxSpBFPWm/o2mHT0Ab68bBSE1ZRDsNqz7NE8Bs
v09p64IsttFG52zVn4ABdxX+EkdZVNj+QTySIwBN2bZ/De/I4rt0TYsZX0HY
LJUgy++Txeh63oyqSkHIpfcS4h6WxXS5vtbGFUHw1FLZGz8li1fdZwQSnYSA
/lvqUclNWaSMufDomLkw/FovLymik8Ozmhw+v3VFgYfqsOxhPTn80l5zPDpO
FALVHwWeMZHDuN3thgu9ovAqxPGhk5UcOj7OWMnUPgW/NmU2Pd3l8ELTIc79
fGJQ2fbEOfm2HHq+X/7vtLoYqFy+5nwyTg7v3xx4nukkBmz1vw+Wpcjhq/9O
6JcWicHsqRMZPrly2LdVn6woKA4Cd8hc99fLIYvhKQEvHXGgmX5J+6OJtH7a
7+dNHuJAfpyLYaBdDkNquwZeVYjDWdXfkWr9cuhA5zMhIisBoZf5Ijjm5VAk
OHfropkEiAbYelssy6FuSZXCoyAJSJ8IcwnfkEMhWWGvpGYJ2HflWVfMDun9
+jG2RR1JYHs+fC+UmoD7hLVNqC9Lgm2RE8seegJO7f+1qZ8sCZOKxpruzATU
tTtsJTMiCbJNVRTfOQlI9opfdviPJHw85iLLwEPAs69HItO5pGCa8rAL2wkC
4l/21OuuUmAUfPTQJ1ECuj2wtMmIlYLIvDieexIEFHV+VDVSKQVp9tS3pWQI
SORUIKv9JQU8fx55n1AiYG5j/auVWGlovGY51q9FwDXDf8oHn0nDknsK1J0j
4EGF3UvqH6Xh3mLxjVt6BBx+u6/76HEZYPk71UM0IuDEySfkdRoy0EmwvnHm
IgF5GgmbVz1lwEjN7XyeGQF7G9/91aiXAf1iofiD1gScfWnNZT8pA1PSfx7S
2xJwOWt0bxalLNR8TTr8z46Ac6lVT7aEZOHVCZbqtw4EXHnLy3LZQBbu28Sb
hDkRkPyEsc6BQFnos39HZHYhIONPJa2WHFkQl74/Ge9KQO9PL+gzOmVBi8HJ
cfESAdddvB4nr8oCm3eeAL87AdXoV1wP0svBOuVUoYQHAb8UZHzIlJEDq7N9
q7yeBCxeCPumZSEHG+oPh/+QGDdjmxlC5SDju6VygxcBbb7fUf5VIAeFR/9u
W14mIBuboNdOjxx8sDP4NEtizgvk+izrclClQt98wZuAtoK3Z/UYCTBAPRSS
T+LUfDrhAgIBLm8d3hwhMQ3ZJD+jDQG2d3iWv5M4OpPqfc4tAvT91FL/H9c1
3pfReEIA2dxHHz6SmOhpp3OonwDqgUJ+OSR+oy7KsLhFgEMzPTvaJJ5SfxQ3
c0QeRhhUFT6R4tEthoZfqvKQzSZLc57EsRWXHwi5yoP3J0ntfFI+TBEBJwLj
5YHA9KhjjJQvy88w5+nn8uBnTzT5RdKH+dI9I5dReTghPT74k6SfTdSDjf17
FODz6AL9qBsBTUUuEtoFFOBH2MRiDknvNqmo1wl+CmA+8KKm35mAQ0GLdDnZ
CvBUZOaiIql+MfVfdnvaFaDua9KXO6T6Pt4v2XGVQRECZ/EE0YaA4wzuGRvy
ivB9KT38lRUBeasYaWLsFUGQvpQr0YLkj3qeLtpnilCSOR74yYSARg6u+/+M
KMJD9UsT+iQ/RrwcG927RwnOFpKNFF8g+ZksS9rZQAkkqsY+b+sQcPHO8+fN
15XA0yPzwZomKb70tJcy+UpAucdcplOdgD+dRgyufVeC9n1hfoxAwC3+tVEl
DmXgq/NpjlEgIAMrYYL7rDJo919XmZIl4I6YibLiA2U4n5gkJiBGwHStg9/r
lQBuZn1Z4j9GQK0TvH1WLgBL5sZkyewE7K6K/3c0CeDkutPsJyaS32gKdFZn
ARaiQu0p/yP1I/2XoKWzKsC1kCRTty2HEpvVV09aqsAHtfGW/zbl8Op23N9r
V1RA122xTIk0f1JzK1pls1SAVjF3QXJSDml9dZ5afVWBXdEHYx4dcshUNXR9
/KAqmJ5/UHmINO+OOf3i9ORWBU7qlZkbNXLIHvXo40t9VaDWZfIfL5JDyxPM
N5grVaHUTL0sOlIO7/6Z92bsVgULnffDrTfkkMbtDv3xKVXQ0y672ecjh+8f
yat7HD4NU4ZlBBs7OWzmyWt+eeU0nH2W/fyCvBwe1eC8JhNzGjiTBSZYxeSw
9YVpYXPeaehLmYuv5JPDlCE1671Dp2Gy2D9G/7Ac1puMXlaVVYM1oRmyczOy
uF28kJFOdgYuVAty/wqRxdELn4sPsJ8B3tr0b0+uyuKRTOPa25JnYOb+9fMn
nWSx8sZOQ4XzGfhFa5gcoyWL8YIb5s/fnIE9EZqSw7SyOMfm/yrkoTqMc/xb
cUqWwbTk/zI+1anDeVNv7ZYwGbQjzE+qDapDnbvQwTlvGeS0Yg5UPXAWvrQN
Z97SlcFmNZsnX66ehWs8wcVH98vgvZqI4ffaGqBxRdnD11Ma7zQLCZ921ACO
+8n0iebSuFQVd6nhpgYYPmuJ9NeQxtS1dr+3lRowTlBaL+GSRonkoMcRLJrw
h78hMaFfCreGxcNZv2hCpX1NN4FfCjvuSEgok2vBGDmlzQ9aKTyne5Ph8hEt
YH2YKnDzlyRar5TIftXTgpHqDPep15I4ORGWc6NeC6TOZJ795ymJlPXiuvfj
tcHELa/UrVgCn6bhiutjbWCtnfmUECeBy0A5p96uDc9bR2ICfSTwTpRNCeeO
Nmx17r2ZriyBHLUpn7ScdUBGTJSZ8p04Sq9shgSqnAP9AWVxk1UxHORCzde/
z8PHy01Jrgsi+Lx5VkWJRRfuUdc1KRaJoMaRN0K1ErrA8yL/U4KDCP5gOZPc
ekkXpomd+6vGhPGoa1OB9LAueKlx6bzrFsLi8pGIGzV6YGqW8UQg+iTGR6AP
+St9SLNSFZ3K4cVlYcav/ER96PAyDC09x4s85lsCesP64OHTSZz/yYOrQrYp
xd/1QTN43b5UjweTp0uP+ItcgIQNJQObbW60MtVtvp1zAQT7Qldo9Dlx9XTK
ZfpIA3CnFA/bFadH26xbdFX3DOAw40jteSM6jOXwp7tQYACvGF/l8107jMIt
Q7P32gygwjHA7L0jNeY/4Z47uccQaGPWN8/L7EOzvMdnA0MMQc0tgSHn+GrT
itgU04nrRnC7k4tDf/4AbH8fpn5zxwiUpF1Kz1NQgd38j+9X0o1AdX/f52g+
apAJDZavqyPdf27A8LnuMHBxmqhI/TACZd6gpFZWJjBnsK794GMMviWnzOQF
OOGq07jDcXcTcGv4N6nVJQA3TwaZ+gSawKDS6Tu71idBPqGrvznKBCz0Jd8G
/DgJM6q3f+oXmIB4wYHjzYJC8DHAbFBt3ASqnfueFGeIQOg5mne2uhchSZ/3
DY++OKj7krOOCpuCUcD0KHO+DFztjRhMkjeFDtFf5m2/ZYB9/qLyaU1TGA6w
sP5kJAsRV1YxwcEUAmRzpzUPyAE3CDR9SjcFWg+Zy6K+BAj8E5fLTmkGTcUZ
RXq2iqAkP59/970ZPB2h4GtVVwWxdum3F2fMYIWrVV3rpirkGMQ9Zd00g6wJ
NzWGF6rgeIj+t/9/5vA33t/Bm+80DNHxfSg5bQ4y51voDA+qgXj8+PHqMnPw
7pTNHB4/A49Tqyzq682hc4JuLZtNHWJWa79XdZrDr+Q7GiXG6qD06mhZ4JQ5
SEecuhf7Vh3aWzq+WDNYQMX6bem0trMgpPe5wcrPAqZ+150YaNAEoygfV/9w
C+j+u6yxvaMJET7vvofGW4DAd6lr9gpaUDPquNehyAKadOR9DjdqwT+ZPhvr
9xbwzIvbrLNNGzw7Ahv/E7OEcwELR59PkPpIgdXnsIIlWBjxnjblOQ/vfMCU
/Kwl6AwqXFB3PQ/E3m+7jy0sIWlkKHvn63lQYhEforttCdqKjb+HqPTAZkfu
OcNHSwD9IaXKQn24dmGzoHjKEhRKyVUKevRhU2y4kn/JEnrqyCRfrerD9pKR
89wfS2BWzWU3lbkA97MlDG25rWA69Z2Uas8FCNFoPqkpaAXWsRV7TNZIfZIi
WcEmaQV2SMaRwGAA7MG61IFnrKDqDtHey9oAqvood3icrSC50cxmessA9B+U
CRt5WYGN/49G9qOGsLNdcN/DzwpsaRoa/U8bQqiB7QXj21bQyTvenZNgCLvH
xjjIC61A2s2A67GQEdz7ZWKRNm4Fpbb3KB67GYOGs7GS1KwVaA1lLp9KMYaM
ISn1miUrUCm9sW/spTE851797frDChwmaH7mU5tAkVCQdwStNTysXCj49swE
6sT+rqoxWYNtO/O+wjET8KE1+fGF3RpiXokMB+27CJ+tGMZH+Kwh/M7+5XTz
i6BDKydrI28NHbonoh5QmILLU4mLMmANe430hP1OmULWnKHVupo1XNy95xdo
bgoVh+vV9523hnOuH+g2K02hSdnmlcMFaxgVOO7lNGYKPJc3VPOMrcHnkNDt
f/vNoHM+JbfFyhosPL12C2zMgKE28b88O2s49KndtfKuGWgmnH9q72QNLTW0
+Z9rzeDXwofKCA9rcBI5mPHisDmIBDAVzly2hmWuNBtTJXN4cuznxnEfa/j3
9OM+bjdzoDWPqlQOtIYBuquHeNvNgTXIz2MpyBoO4OPv+mvmYL/HmDww2Bom
jidMPGS1gGCNhF2lCFK8Ccavsj0t4OqpxUO+kdYgr2H7QveBBZj3isrFRlkD
fbl7HVebBUwf31Cwv2sNTCnX5k6wWcKzRZ0Xx+KsQZo2k8HqjCUYBRmmNsVb
Q9MAjVH1ZUtotOd4qpxIen8jqUQw0xLOWma9yUmyBjaRdvq2TktYMczp+pxs
DZGdPPdufLWESocBd4p71lCjSi16kdMKON/Vx+xPtYYrci8/G2hbwfbhV9+X
SHyH72zlZZKv9r5iuV5+3xp0xQsynuZZwaEHC0sX0qxh6m/Jo//6rOBLEj/L
exJf8KHsjP1tBf2NhW9lH1hD9V2NA6IC1vDChPlzIImnOT+5bhhZw0gjBWcm
iTXKKRYGw0j7Xh8x+h9biS1HDpdbQxJhxOg6iVnG4k7vjloD91ve1f+tJ/C9
m0P9oA3sEa9fGSTtR5NsxPJUxgbswy4f1yUx/ZV2URlHG5Ci/GtZRIr3YH2U
w1SSDbSc/OY2RsrnX/fC81K0AZ9byL5Byr+UnPr4g1Ub6Boslf+cQopPY2fo
HbUtmJFNPKgg6SVxpJFvidcWTnKa7rUg6Wkd+3gPvaIt/PT8qTGTYA1Up/e7
axvawmfrQClNUj1Wxg5Zp7jZwn+JV+7fibUG/bH3n1bCbCHpnaFCcYw16fvI
b8ok3RbChS5v5EZbw+zLL54DlbZw5uwnPHHLGuwlO4/8nLSFj4JMvs9Junx4
0EUo+GELyd42HkdDrGG+qOWTLa0dvGO9bHGT5L+9rGs5pNMNwgvIl6/5WUNq
MlPLLxM7UFlS2tAk+XW97JjNTy87OC3Tcfcmyd+9El8Oncixg5j3WD/hag39
Aj8YL9bawbBrWywbqR/4M+PvpfXZwVLUK70jpP5J8GVa0SKzh+H1+HAtHWtQ
CpBp8rG3BxnqGfqrZ63hsEmnzIkgewDrC7lXVUn3XyvQL6fYg77B9OiODKl/
K9fn8zvsAQPH17m5rOGvjUXNyEkHkPLtOBnMZg3pNs7tEuoOcORepd5jetL8
ME3489DWAb7E7dF0p7AGz9oXI5VpDmDNRq1wf84KrAzbO+r3OcLm11F+e9L8
etJ+oKD0uCMsSj4i7gxZQY833+1KZUcosPE6mtRmBaLXbFS++TmCaSEHrfZD
K/Apn1uzWHCEdx5/P/vcswLy1gndOQonwKVSYdcYK2i8oXIrjNsJrtj0UVZc
s4Jr85HGX82d4OsT8banWlaw6BP14flbJ5BxEi8X/WIJuoaLe2rrneFW1rTn
+IglPDbO8XT76AztDMrkBr2WcDRjQ0ZsyxmkX/v73K0knSc1za1fxVzA2cf2
lKyfJVjecGs3eOwCR6Yt6kS3LYApto7DL9sV7By4W5nnLODJlj+jzitXeDhc
2ouDFrCv4ecb8VFXcGhiemxYaQGX6lYspdgugUtlwnCgswWoC0WV/nf/EkRr
SGpfJ52/DeLv7v5LdoOIvkKnumfmcDOcXZJY6QYO2w2aLx+aA/VU9OP8t26Q
u91iSeNnDiFUVh/DD7lDiGvftWlucxCN0vy5Ee4ODKPCb/d7mUG4OOtKmJ8H
eFy2pPMxMQMyDqpDUqke4Mdmv/hQ2QzW2Lakv1d7wL+S+bOyNGZgzloW/nDT
A2ik+wkOT0yBoDfkm+7pCX9uVj5x/3AR3i9HXz7q6gUXj9X9wYaLMMFwfaUk
ygv82nOT+h9ehKu2FCmni71A5GuEO5/zRSDqtXFmz3vBv0B1kfubJvC2qv7a
qtNlWPX8+NP4tzFcL6Jx8pP0BjV73jtmw4bw43BQ7pbcFQjPcGJ+UGkIR6qF
v01qX4FTL+JjbkQbwl2CRkW/5RX4EppcJS1rCIvmFqc6Qq8AszBlvXWiATh5
7vv0s/sK0Lm3EgjiF0Da6nxfsPlV4KOpcVgxOgdBoQ1ZD8N84JvihfO+qzpA
UTAULn/PB7Tf0YuLRepA04F/3z8V+UBgre+EyjNt8D4ZRDjZ6wOWUfdiKvdo
QUfNDZtfzL4grD/iwnlDHQQpFlJMn/rCvmh1s7I0BfhvVIw/YewarIVX3oxO
k4eyw416KuvX4IVewt/SVAI45F5P+EbuB7sK78XaYmVh9pIfme0JP/hbp6Z+
0FkS9j7UuaR71Q+qU666G0fxQSPlx0WvA/4QnqvIInPjGN63MJ3jkQ6AK69+
z4DEcaQ2ZdhY1QiAbCMXHaknvJjsS3mm1jwAegSvJ6cVnkQ/MnlHjdAAYPxx
S+38nDjeu8vbaf46AP5M0xDpXRXx1EuvZFm7QHCwfabn76+FlufzVKnvXgfN
Cq+s6hPa+J+AQ49e1nVY4jx0Z3hYG1WtEprin14HCWJ31oTSORQlU00k778O
N52yeFbo9bBxsZynjjEILhj0bHb5GmCc4WkZw+wgiE4zr40sMsUthcfP7j65
AVQdOdeaqM3w7PDhZMGXN2Bp6n637zUzPMdrmt76+gZwi2TqWpw1xxJh2vLx
lRvQ7KfYyrJmgZUfTd6+Er0JXeR2LHHGNhjkedKNsuomPP940UhYzQFLrg5/
WCkPBpj0y92McMCXo0NPOzAYotVgmbLDAed1ef8k9QdDZ4TWyaOajtj3w/Qi
xddgoJfy/7HXwAmlUhUv6UiFgH7W8sqcrwuWvKizUKoJAcr+FoaKBhfsVlfI
JXSGgLhTyGgPmSuSDykV838Igc9PxDa/x7mi8aSv5rutEFA5LFDIV3YJU2/v
uSzNHgpivw/wMf50x2IbG0/Fi6HQ00wvekjNAz89vDD2wjoU/ntOa2gU74FS
H2dl+Z1Dgd7p/p05Pk9ktuMwWvYNBd8Rw9f/TL1QRFryGkVyKMT7HDqU4eKN
9/uc8i2JobCdyFPelOCN1sX3dAgDodD50Ok2TZ03Zsu261MNh0IVjQ2b2MEr
2DEfeChhLhTY7RfLbjy9gveC/W3oycLAhEdTW3v3KnZHPDPelAiD3+XKz/T5
ffAN5bJDhVwYJJNbld7U9UHLuYB6e+UwUNQ7eEsnh8Qct6dKtMLAR/CeaN1p
X2TrUcuvtAkD00szdFOJ1/BO8Nyn9DthUNLy5YLxy2v4p7c7/1F8GPDIxM1s
zl1Dv6ll1eyUMNh+e1rgkYIf3mj3fHg5OwyU1nZdRxb8kJnqu0xwZRhcFF/5
Ua8dgPzFe5NFhsKA++5tvcf+ASh28qmey3AYeL/9kd1cEIChpcHmKWNhsBqd
c8blXwAaa0Z/bZkNAzrdnzWpNYF4tHPIwe97GDzJYWjvmA1Eu9JfrfAzDCi2
TGg5Ga4jtdVY3s7vMOBMexim4X0d3Rt3bpzZGw6MaX9qgoWDsPtTdBMfXTiY
3aF4sGkRhCJ8JzQDGMOhNcJlO/ZuEL4U8A99yRIOV3qMNZWWgzBTJyCZgTMc
3n3/RBFZdgPdTI+c2y8YDn93KlMVx29gjNkeyzHhcKC2Dvt0lOYm0mrPnn50
KhxWyF8+uOh9E8+LUQvsSIVDVoFYbI1MMB5YO35uTjkcRqp8yupcgpFcLu2+
oGo4xDYJsUw/CMY3m/m3bNTCwZvz48ST38H4ZTj3c5pGOCS2T57RFglBLalL
RzK1wiEvO2o/nU0Ivja5Hh+nEw6HVg2rGdtC8JWd8gvQC4fN9x4FF7ZC8OR+
Lsl/+uEQVLWPfJQhFJ0Xi4OfGoQDnU1W9PWzoeiazEn/wTgcEja6Zr/YhOID
22Qe/Yskfbz27roGhiLRrya1zjQclqqLPIvKQtFv+ZSokUU48KyOddp3hqKO
nS1HlGU4KDfgtMRUKL7W/rFbbBUO3H8jW5l3QlH8P5HaGutwYPjP0IWGMQw1
23kFq23CAVNk3rGJhqGizopCtm040AQKUxA0w9BD/Ea/r104cL08uutuH4aO
TbWvCfbhsGU02vzsRhhOrHvQrZB4zzGB89RpYTgWYBR51yEcPleW5wdVheFk
Mx0VqyNp/dP7Ov6+DkPhGYnbSSSuj6+qSpkPQ8FysU8/SKz8jNNNiTwcB/K8
lrSdwkGOtnht50g4yn6Xz4ghMatIAvTKhKNk1NveGhJ/T99nVXUhHGm/nnPq
I7Hf6xMaTzzC0ehG+9khEpf9+/G3JiocKzlFjTpI/J7DJexjXjh+Dff0ziPx
n/t6A1RN4chIcSHYncRPz/qtGo6Eo1d5ki0Xia0MY95XfA/HFRj81UyKr4WG
786xwxHoLlAgfJ7Eih969ucLRSB/zM3RdlK+h77N6ctrRKCCfNvCCRKbXe93
mLOPQK2WNhk/kj6BIkQoCI5AQcu64gqSnhVmf2f8MiKw5k87xxBJ78N1N/Ws
aiKwXvvn9RlSPUzOa4ZdfBeBMwU6j8ZJ9Sr9oiQZdegWFiS96U8i1Zf+/Ebl
K/5b6Bd8K1uHVP//Lv1ep1S7hbGiHg3rZuGQVC5YNhh0C0MKv7ttm4TD2bAj
/KYPbiFW+bSYkvy1y75rvvH8FgbTTq0WGIaD3XXhNYu1W9hRanh+h+RXK6bb
mqeoIvHvhYTTe3VJ602uGDMLROIFDu7kLZK/aW98DT1mH4l95Z1tqaR+mM9b
HeT4GInnXb9TtCiFw7kyv2WaH5EoMW/99b18OMhzzLGxsNxGXo9G6j7ZcGgc
/VnqcfE2FlZtCHmKk/r7zoSY8Mht3HN3b4IRD+n9brfY979uY3Vi+bXbx8JB
4JD6WCp7FHoJ3j2deYTUz+szZywso/BG7NsFD4Zw4H9QVPhzKgoNpz59KCUP
hy99wYfN9kTjGL2CzcafMEi59UGtnycaFzY6gplJ8+nvuNbyHpdovN7zbGTf
WhickciLCliLxhfcu0Y+pPn3ulm46yF5DF6pm642Lg4DFjmfcFfeGNx9XZmU
kxsGjzjPJWlqxKDOxgHD7vQw+F44fVsnLgZd52P6XtwNA+aYzCEL9rv4nyTD
0G/PMPiZUHwrWy4WPV04Bv4TDoNDZQlU3ZaxKObqs3WKJwxEmAU1DoTFIjJ5
i5xiD4NindLynp5Y1L2dztWyPwwm9mp+17WMw4G/hvtFP4eCA88/d9PIeHTS
9WDfGxcK2SYRt01K4jG4NcA0OTwUiqK/fnB+HY82r1s6/vmHgtR651IjXQLS
Lqim+NqHAlVkSPyZnAQ8qMzX0CIdCnNFF52GrBOxrj1lPaE0BJwYyxSnvROx
uYHQoJccAiXkz7t/hifioKjo786AEGAUyZ2G4kTcoSrI/XQmBK687DWU3kjE
xcqhF3EjwZB7wCetJiIJkyeXPMe+34T+2jCVc/eT8JIq5fTqh5vg6ULGu1SS
hMaNnxur6m7C55GJAOW3SSh2VMxRL4j0vIONuyZbMpLbujuP/LkBt/UrST9C
yfjC/0Dx5EYQkFd0mVbMpSDt5dJTlzIC4eRFKZ6JnRTkoFJfbPEKhHqVaEGm
w/ewPymBufp0IOTWlddkyt/DxSZVRqvFAKANoxE5mHgPy7eE77aJB4Bjgbu9
qWIq3tspMg0s94NDa+eVLmbcx/2RTd/8jXzgLN+O1eXK+3iFGE2//4gP9DbO
l8d13se9PDEZXJ+vAtKb3B/7eh9dbsYe2XS/Cv2Mvx1bdNJwoeCU/u+gKzDL
ffFN6m4a6XsiUzjn0GUIKOXcO+ySjlUhn/el+jgD0cizjDc4HZX/kI8RZp3A
6Vdks++9dPQSe7J3ytAJMltev+VsSUfBnDdvhcUcAarm9jxgz8BvP9eWKsbs
YGb9ivKhtxlobpx7VPygOeSfEZVUlclCTuMvR2N0pUBA1uda77ksHGFZkV+I
F4Gb0lHkpg5Z2OwcXXb48nH4F/Em6nJiFqbbaNc4sZBh+tx32eylLDRxezhF
NyOHov0pKyMPs9HEWVUqi8kAw224/Cn35WDZ70V/ky4nLJ+Yap5kz0Gpvo3N
9/HOuEzpvFNzKgf3NOW3Olx0wdKKkj4Lsxyk9vBXfLrsism3nf4FleXg0fCb
5lTcHjgRLLi2K5CLHtTfaHpsrqBRLH10dm8ulrTThJq6BuAV8tzRxg+5+E11
baB0PAA5DWrffprKxWIJkZtJhoE4ue1oeGgrF2tMAZhUr+NBuWg6ZY5HCOHq
+w/w3MA9Vee2Fj0eoVDsR18fctK5qVb5dvRAHuorelldZb+F9IfZDZUZ8vAl
j8kpc8dbGF1LZ5TBkYd0hsx2D8tvobPUEw9liTx0fNRaq3gmElNukZtJWeRh
2fm2bx98buOJcy7NLaV5mBKFKhWz0Tgi8e1p5Ys89Gb8kXJN6g7m3w2NT8M8
NFSXi8y8dQffmrG3nhvMw0OerP/t54/BwYANToOdPBzUGDtp73kXXcRoi6vO
5iNrA/khI5p4vBGnEcagn48GI8FpQo7x6BHqXuRulo/2RyiHnRrike2ukMOu
ez6OPfgnttc1AV8OpmY+SczH3/Klst8cEklzaFWDcjgfdb5rLyu8SUL/3Pxv
21YFONQTfY6s8x5u//t3ycGpAPd75Bz8/e0etgS4yLR7FODFyr9iPMdTkbvF
380+qABZUITsT3Aqyqt8vUTzoAA9+sacBuTv4/CaUwd1XwHmprlzs71Mw6sF
d82q3xfgk+SQ35vLaejvWpmlM1aAez+uE34dfYAzfVWthouk/ahvcaaEPMDH
WpR3cU8hSnQosG+fTUenQYn8FYlC7DG6yxg5kYEry5d4KuUKUWb10qA2fSZy
KrYmOSoXIuMW9SCczUQDbdIfkFYh1pAZddWWZ+InnzJjS5tC7HbjnZwKy0KB
ZAOWAsdC3PrpQHa8NgtnDd6PjV4qxNvHNdqTV7Kwt+LiH3bfQvTOOm+/1zQb
ndv61YeiCnFZmih5XPwhFhjfn3wQW4iGP2KLP7s8RM1fBrHnkgrxruIy88DD
hwi8ZwpCMwoxlFyaXoU6B0WiRC+zlpHWH3x532YlB1O3E04bVBaibTDtHn36
XPSJMRa//rwQLTOMrKNFczHxlfpMyqtCbDXbn6HqkosuM/bHl18XYlthYcaH
kVxMEOrlDO0rxKEN4iP+7Vz0O3R9a89gIR4jEnfj6B9hbfHv2oGRQtyjdb4n
T+cRakKUXOJ8IZ5+94JirukRRnQ/L09cLETn5fhjG6OPsOnVuYPBK4WYHMtX
Rv/rEeq9+brG+bUQtVv/8j+UzMPSDjZqvz+F+Jr829bbx3moa3NO7tNuIU7F
T26mduXh/X89OoLkRRjJpO/nO5eHodV1pXGURTioFnc8gDsfPX5/q83dX4T3
+qj0siEfo57SCOccLELT4SvUn6zyMcnRjmhFXYTGDc6aGRn5aDOVXs1BW4Sn
xH90c9Tn4/uKZ+Hdh4uwh/3qTN3HfMzfXGG2pi9CAntuuvt2PqqFe+tNMBQh
HpFclWYqQJ4dHSotpiLMFu+cZJEqwK+lvicfMhfhmPf4VTrDAix4RHFgP1sR
iv+SCtVJKsDdY8OR7OxFeEPh4N+7lQXopT0wxXKkCPUM7hybJfnYj8zlxy6J
ec+1LxiuF2Dy4HZx31FSvo5VZqM0hSi2r6P/DkcRMk2d8rkuWoj1MX/0RDiL
0Hthn4y4biH27qnY20BiCte5vH+ehejTNNRz6lgR1s3ZNczFFWLcy3Oh8SSO
td25MfO0EFUKxyg+kJhGiHH555tCTBgUk97HVYStnb8p+NcK8ZDO2Bonie1w
luhGU4Spr0xpuUhMdXtRsUuUFHfkPt+DJDY4R2WhoFeEd8qFdz6R1uOfFOfr
ulyEC6s/g++R+F2YUKZbYhHeLwyZlCbx7e6yV3xVpDrNvvzZRIqX00f/zs+B
IjzhklB8isRPNdLIZr4WoWVaa3cUKd++lS/ccwzF+DyOgtBF0oOhPX5lV6oY
x+iWh1ZJegm0N9qImRRjYubXgN8kfXcMYq8H+hdjrGEw+QZJ/xfHfih8elCM
pYzD2q9Zi/Dxn8k8g4ZipPcUE49jIelZT10+PVqMETkPE6VJ9RveEbKM+VuM
XQVc6u2MRbiX9XWp1rESlBPJFCSQ6m+8YZPJpVqCbnkjR+/RFWFap9pJWocS
5M67cP83yV9dwe9YJYtL0JmanXGMiqRbQ2mfQW8JdiYGG2WT/BhR6XkufrME
hdUt7FooivDWpmSsqeJjvNeY2cezpwh/cbBpfbF7jEmzB844/yvEGP0STIp6
jLU3A8NifhWiDt2b14TBx5j9RmTZfbsQ2ZTJzWV/PcbZRO8s4W+FeE7maIr+
sSdYVRDBpEPqt+l/IVvv3Z8gTF5h+zFWiPsdJXaF9pUic/+xgDfDhbgtue6y
T6QULXkeZIQNFeK/xNMX/xiS7gtcdQ4nzYMgudFK+bxSZCoiq56qLcSZ8bin
ZCplSEg6Scx5Vojyc7N5NS5lqMRXzqpA8lVOb/1qVEIZGjrsTaHMK0TdK+Gu
NybLUDZg0X/2TiFWXTpysiz0KZrJr3SERBTixr0TexQfP0U5D5WarRuFGPHE
cGt+4ClqNL2p9L5ciE+DFw7E85TjXc5st2wDkq9Hi74e6y7H1GcKJw/oFCIH
V1Zp1GY5+lY/WNFRK8T10HjZQ0cq8G2CSqWVZCFirvIjG68K/DpMdCugK8SH
Y9Z6fFSVyD7XmzBwoBBbUjcX1bgqkfdPFMOHfwVIXDzfflm6En8KPbFzXC3A
VfIS7nWbSowoH5dP7CxAZg/2T3dfVKLx98u3t7wLULI9rEPWoQrbtdkI6s4F
qL0StFzuX4XiclRZXhYF6MvxVUU8tgpf67U2nVcvwMg1f/uLL6qQKv9HpBxL
AfLZ6gwJHHiGHLs18KA6Hym54vo+VTxDY8ePpZ5F+ehOOLtF3vEMVWKFV9nS
8/G0gvZnyU/PcP4/d+ntm/l4V+/zWi1FNZ7fftNcp56PaWOMNCrm1cg26ZCp
+CYP65UZQ7T2P8dTVOetLjXm4WNlNTc2juekPq4nd3uah+yaPzO/STxHVwE9
ifnYPNx511HRaf0cOV8vrbVr5aGRoEH2fM1zVD126spmwyO8Zn7SnvLSC2zT
pKOsCMxFx5qENf+hGjQKes3La5+Lg55dGZ6rNfjl+R8ha+1c9N148N5zXy16
35lfO8aei102WfVxcrXo3kd0KfLMQf9rbbe0smvR/PubByE92Vii3Ps9z7UO
++N+8/dwZ2CHg5Wvw74GPE9mXbg+nY7az+9pxXA1oLIur29CfjrS9C1cq5dv
QKOVjnk5nnRUe0UTLna5ARVXIg14Sec+Rdsgd8hwA57iM9Gb/5aKWyYHG+6W
vcRrncVuF2WTMKip6UOrWSOezNAt+LOciMPm1xX+XW3EVy8dQzhyE9F1n7Cd
SmwjUq00GPbvS0RF+UMZ/U2NaGTJTTWWGYcmQeUO/LxNWERWUKATGY3lx4yW
UtabkFNHdPU+VRDOeW+8vHSmGQ05LPSiHgSiT43fnNKFZtyxt9kU5gnAH+aM
W/TWzZh+lRkTxa/hnS7aZPRvxk6CIMVhJy8svjyky13ajOpaSiz7Oc7iYofu
6g5dC17o8pASWPIHL4tTwvmTLTh9+aOs6qNAOJTdUym30oKt759VdpgHgeGl
lYtvfrZg2bW5Nyzvg+FyOvu7b3StKK0dwBn9jfSf/66kT/JMK9YsSvTNq8QA
Jfj4XS1pReOvOUopX+5BU9V+5euX21BLmWH29qVUeBMxlvo+qA2z2t/OHl9J
hddLDw+KRrdhcEpNjvG3+1D/+tzu+9w2XPlTm1N1MB2o9mwIkL1rw+rx2oRc
k2xor57JeirZji1LZqtH5fOhcl6efPFbOw5183v7xuYDq6PZy3ayDlS3ZamR
mcyHU0Z3IYO6A+s5ZBP/RBZALtWYosSJDlyeZXpwb7gQRD5mH2cw78DBG2Pm
oskl8D7XZi60qQMtaHzM9ZdLoJXwJG+F2IGHIzu4Pp95DOKOStf0P3ZgJoPd
X71fj0FYS3Ph33oHLog29F1yKYX55tCpHa5OrL9ix9RuWg4ujBKBGmGdKLf7
p2S9rhx8Q+rm+eM6MSs8ZyKOrQKUOGKT/jzoRMs4Vy6esQpQVBTljansxKS6
nVaL6kpw05kbFpzsxHmOkBfjms9gf0nqjLN8F0b2hZyxzX0Bbm9/bc1+6UJ9
2xdXeYZegFdaeVDWZhdGPTyVf+RADVhMhaxo/O7ClGsBtqXeNTASe+7odZpu
XCanz9Y+UwucrmtRmlLdKPr6kGbGVh2k5Gj2+NzsxkWyDOda4XoIybx9xvJ2
N1J8b+w/5FgPAf49/TIJ3bjt+t8Ho8F6+Hq97VFLbjeKNEy1+D9vgLLeunbB
tm4sS4jOPhj2Co7nDBecouxB2f9ibe69fAUKxBcpgtQ92DGbmmay/QrG0n0z
mZh68GRCbUWYRyOoZdr7vOTtwVvjCva+Fk1Qc/x9+Wm1HlwKZpNa5W4GEWU7
peM3e/DBT1XCV5VmiFI4J0d7qwct2Q/eZLBthltU6tJLMT14arl+4snDZqCt
diu99KAHHV6f+CTC0QIP4rdexjzrwZFb5osxx1rhYJF9nsxMD2oZ3SVnUWuF
yXAJLc/FHvzCl9/d7twKPs9bJWLXe/ADnWJEZHkrsKb5MIb/7sFCHf6wLGiD
H16l3zXpiTiOAQsyjm1Ae+ZM6isWIkr/nJX/Ft0Gq92dZCwcRNQxx1cD79pg
zNQsMOQEEaNO8a/zu7bDlYGmMjYFIk5WD7kNxLVDWt+MXRMQ8Y3BQ8qH1e0w
qMhso3mGiA6dvyqy/7VD48CyB9V5Ium7e53Yz9cBTBLt7GcuELGeousI/7kO
OODIqGNnTMSbry19ZdM7YPpZtrumFRHbWm1vf8MOcFEv+UFnR1pv37vpgfkO
8Ih6o4SORAwt3YrbkuoEjkku0XZ3IrpRLp8cedcJI47S1FcDiHjcZQ91yU4n
sE6kjRgGEbHobYll+vEuINb+7WQJJqJE8JjezNUuWAvdllKPIOKxct4dhcwu
8P4teL48koj/hK5w1rZ1weuZwhc/o4g4/+3jFCNTN9hKdxSIxRJxg9Lr1g+l
bpDPK2jhiCfF5/Gv7I9zN+y7qWKxnEBEQ+FZS97Ebhg7dlYxPYmI5TQ6973q
u+HKHplTJ1KI+MKcYDE63Q2KtQ679+4RUTUx5qnbfz0wtbDlM51KxFfcG/FH
ZXoAL86b0aYRcVZkk2zTpgdefSS/fuQBEa0ISxQLd3rAWHche186Ef9++S+L
/HkPtFb+l9BP4skXNl1KEz0QsucFc2AGEY0rG6OyDhBh1XDn7z8Su4p+GOeQ
JIJESze1UyYRTe4IE1usiGB3ZZKmhMQtQyzno6OJ0JTa39NN4oT7rc5Xqolg
cYl8fxeJq4IFWW5OEGFS7El8HokfcnJZlx58DWHyHwQsSJySe1bhj9Rr0J1w
yN4g7ZcdzFB+2fY15AZTPLcnsSPh7QvK2NfwOlpRqooUbzdN4oWm2tfA4ucw
N0rK71SlWmj6zGtY6s2PnyblX/6zQCWNthdOHP+93X6fiLIy5TaL8r3wRHGQ
5Q5JL2abt28snXthfOveyEmSnieMz9/ZTOqFtH19lMXJRNR0PJtY3NgLFZ7z
TmSkenz/WzwVvNgLtleZ26RJ9WrwlQzwZ3oDM0Xe82fjiBhEtXS11/MNaHiz
5f+OJiJbT3W/QMYb2GhoePPwNil+xlm3os43gMVCn4/eIvWLap0GJddbEC26
OFNC8hfF9u2I+XNvQVGL1b6G5D8woFtbCHwLg/XVi9kkf+boF8KFobegVvFK
fOcKaT0ZK85a8j6QEJwJ9fIi4tFG4SPKp/pA9ZLJ9ks3Im5VmllWxPRBTFTv
5c/2RHT/Nnk/va4PzFwVyeutibi++Xa0YL4Peo8ODrqaE/HZjbuyCdz9sOUT
ZaxP6jc5OUqzTrl+YFvsTIw6R0Rl//PfqfX7gWLOm+++BhGzenrvvg3uh1v1
YVfklIh4JC3oM+N4P7BL/xO4y09Euijaa33f+2E04miHHxcRD5d8cM74bwAG
aLxnZNlJfvqjaGynOACzS/R1BGrSfnqKi8+yBoCioFVcerMHK65t7aw/H4B+
QeELnaR5FVbyUFPpzQD4zpnQCU334KWo1FsHdgdgtEo01OtdD3YdaPpqa/sO
9NcaHT9U9iDtTzvTY4HvwD+Ed/hvMWn+pmL/atI7kP1VSvbjYQ+WDS1PN7S9
g+rDugFWsT2oxhf0hVFgEEwvuwp9d+xBxc0zM63fBqHpAYsbHWmeuwnsi2qn
GgJCYjM7xR7SfKUb6R3kGYJl1b1Mr7e78QAtD/8RoyH4qmLJ+H6yG5/J0lif
ezEEcx001wcrutHXz+yg5PX38MvJxVpHoxs1uccaqFLewysR2/5LhG40c2V8
tFn6Hp5Q1cuYCXXjUNDUyuz4e4g1Pb3/Cek8yzYbLnA9/QEKj11pph7sQvbp
yovj1B/hi+Rw0FODLoz+rhYReeIj+DDohreodmFr7h1LedWPQEfFQ5Uv1oUB
+a++9vh+BO9HqW1vqLvwW3z2o5Cxj5DfoVX8sqMTNXr7dBTLh4H/5252l1An
dhh1/iw3/wTDVx9vUPe1I7/7cyOegE9wm7da1f5FO97G4O2C1E8wFqZbczWz
Hb8L7Hb39X8Cl1tho53O7cgmd+lNi8YotDV6dEnutOGQzd6p/XJj4MiqoD7O
0IaHlcZF07gnYDn5jMaFwy04YTZenKgyAXonrPakrjbjEWf3nXs2E3DJSkb0
LpH0fdcr+K4xewLiXuykx0U0I/IzvI5jn4TCwb+H22cQCZd92A5STcHPs9dg
X0gjkmal2e7Bz+A9Lk85JVeHbmua+f9YP0NIhLxp72wtqq3SqFEIfIa9gqLD
xxJrkfXTQROWs5+hXGxafWe2Bk2TDAMdwj/DF4uG415RL5BOtXwp+vdn0PCw
Hxktf4ZqAo/Tnq5Pg8na9UrJA4+x6Do9C/m/aXBin/J6LVuCCg6XNExoZmDG
9UAarXMxRr6RCKUUmQHVAq6xB02FuBsHz665zcA+5XrZJJs8ZH58uydhbgaa
l9qeXGi+j4+4hdUVxmZBKFj11APLmzDuepLObHkWpMuNu1jjw2Fa4mqc384s
qBJk2SJ8bsPswLhhJesc8Bi6T6joxcNpzxQlDuM5WOQ9dfoSXxrUHhy1efNm
DmI3BO/7vc+HA5xLOQea5sE00qfmV8MzqBFtFNzpnQctGouPjrrVUP5IkHNx
dB4kR6bfp0xXw0ceofWmX/MQOD3uAdQvgIHKdJ+m9Bcw/5BHMepeC26SBcxN
pV+gP2Y0LUX3FZzeHMwqSF0ANYMv5C0mbcBo2DtnVLgAP8mk2WOft0FCV833
3ecL8Hpv55tB+nbIiKNdhaEFOGlrofapvx38+RZ+X6FfhLMdfQd7DTohUI65
MihuEc71aD6M8uqBMy3HDjVkLcKI4F9QHeqB8I46+Y3SRdAxbLG5IU+E+/ly
D9WIi+AstXku4MBrGLR8Mxq+bwnMFZcUE570wsHVi4xnby6BwxGTlca9/TDA
dtX0690lCGGiulUn3w+6dH3m9zKW4HJShOz2lX5wdwujqa9dghuBmZEKn/vB
ithpHLa5BMKSmW2brQPgU8H8Y9V+GcR0fVKFUwZhcjVFRlJxBbjy6iYHXT5C
WUPYBW/NFWA78/2lZP5H6Hl72y3XaAUm7vmODEx8BBvt6wwjHitAc+WaWo/J
MEyx7jwqyVqBKm3fl8VaI7B1LU0j/9cKCH8MYJVXGIXcooo0MspVYDn6xzzm
+iiUNzd36x5ehfus726yN4xCL3OLaiP/KpjWTHTtEMbA4JlQ9YTBKuSqr3A0
KY7DW4kfyowlq/BHnnzGUXcSuMyml72ercJLOsU7TUmTIMQWQah7tQqTYdFx
Zu8n4QvNV27mgVXIMbGlfCI6Ba8e7fz3++cqoDBVgWjdFMgE3SLTVF8Doo/u
l0sDn2GRzfLXdd01OCjM95Z/6zNoEypEMy6uwdDpVlpKtmnYlHhVmXVpDShG
7F7z2U3D2hH6uqexa5Ca/Vn219dpcNkTEzX2do00n9blNo7OAg99y8bjj2tA
c7CRV0xjFhT/XY2xmFqDp0pHrDKuzILZurWz2+YaCEkyzax2zsLOhJqxGP06
3LqiF53sMwdrCkPDrOwkPv6Xgz9nDvz38r2Y4V6HqaGLFrPEOdiMeR91THwd
juQ8+TF1fB6q5VR+COiuw/6V4Y+jQ6Q+6JEv4DBeh3+CR990kH8BjvzMtq8W
60Cl87fhk+gXoEigtFe6tA7W4wuFkXe+gNDfDp3z4esgfWe7ekplAYS6Pr1U
jiZx5rwbz+UFMNNTeUwTvw6UN1Jsk7IX4Fk/9V/N9HWo6/x4Yn1nAeKY+SO4
yteh83zbr2e1ixAlNziy+2wdIhaSgvS/LEIcx8Lj+tp1OB/S5MfGsgRRTosV
bc3roN769auI/xK4vjhsT9+xDl+3bEIDi5fgZBLTbcWeddgO2crZ+LgENRVZ
bMcH1kG/GMrsCMvg/z5o7/jQOhTUdudbuC3DSeWvhleHSfmeO64WlrkMsYRe
dqHJddiUeRmrt7sM5f+37Ws5/R69t+8vNXL4of/G/qeTUoDX0/f26cEv155J
fGPvc1Xn0tlX7+0zpR1P/Dj6xp6HLbEl5O17e8WThTUBP97YM/amVG9+/97+
8AOGX5e13tofSv9Q+Orje/tzx/VcmmPf2rs0NSr9/PzePpadNS5uwlv77Zsi
3O9/fW9/8k2oV+phYDreWjVrzvf39pxae7hnfHtr76m14arBz/fAQnXWkm+a
7+yr+ls3zf713n69lrR4Y+w7+3YH71d3fr+3X/xcP9V84jv7uUWiZl/+AMNH
d+IEyaPv7HOM9vg9/Pvevo5h3yz1n+/sRZJuv1n87729WNPvlkTd9/YF2y+d
sP7/3r5zckjA8cT39vN2HZ21AsjPLpz5N2Lae/t3R2ZLvQLJB8b3ip1+b88A
Bh/gNACaYCci
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{322., Automatic},
  PlotRange->{{-0.04321384608589899, 
   0.4747984086468747}, {-0.20787916044461768`, 0.16335596450244164`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634099861637*^9, 3.522634803210148*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5e73\:9762\:306e\:30d9\:30af\:30c8\:30eb\:5834", "Section"],

Cell["\<\
\:30ed\:30b8\:30b9\:30c6\:30a3\:30c3\:30af\:66f2\:7dda\:306e\:69d8\:5b50\:3092\
\:30d9\:30af\:30c8\:30eb\:5834\:306b\:3088\:3063\:3066\:8868\:73fe\:3059\:308b\
\:305f\:3081\:306b\:306f VectorPlot \:3092\:7528\:3044\:308b.\
\>", "Text",
 CellChangeTimes->{{3.5226355638741903`*^9, 3.522635591784733*^9}, {
  3.522635636388905*^9, 3.522635646887247*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"x", "[", "t", "]"}], "5"]}], ")"}], 
      RowBox[{"x", "[", "t", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], ",", "0", ",", "5"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.522635509355104*^9, 3.522635523287167*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.023099243469399393`, 1.}}], 
     ArrowBox[{{-0.24943939134627796`, 0.}, {0.24943939134627796`, 0.}}]}, 
    {Arrowheads[{{0.024336346239561837`, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 0.27442061001271395`}, {
      0.24943939134627793`, 0.4398651042730004}}]}, 
    {Arrowheads[{{0.027084725507242433`, 1.}}], 
     ArrowBox[{{-0.24943939134627796`, 0.5615677195839115}, {
      0.24943939134627796`, 0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098257`, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 0.8614413287135925}, {
      0.24943939134627793`, 1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{-0.249439391346278, 1.1740414374017574`}, {0.249439391346278, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645057, 1.}}], 
     ArrowBox[{{-0.2494393913462779, 1.4993680456484055`}, {
      0.2494393913462779, 2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250492, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 1.8374211534535372`}, {
      0.24943939134627793`, 2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131843, 1.}}], 
     ArrowBox[{{-0.24943939134627796`, 2.1882007608171525`}, {
      0.24943939134627796`, 2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 2.551706867739252}, {
      0.24943939134627793`, 3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{-0.2494393913462779, 2.9279394742198344`}, {
      0.2494393913462779, 3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 3.3168985802589}, {
      0.24943939134627793`, 3.8259585625982426`}}]}, 
    {Arrowheads[{{0.03019459990709825, 1.}}], 
     ArrowBox[{{-0.24943939134627796`, 3.71858418585645}, {
      0.24943939134627796`, 4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242422`, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 4.132996291012483}, {
      0.24943939134627793`, 4.438432280416088}}]}, 
    {Arrowheads[{{0.024336346239561848`, 1.}}], 
     ArrowBox[{{-0.24943939134627793`, 4.560134895726999}, {
      0.24943939134627793`, 4.725579389987286}}]}, 
    {Arrowheads[{{0.023099243469399393`, 1.}}], 
     ArrowBox[{{-0.24943939134627796`, 4.999999999999999}, {
      0.24943939134627796`, 4.999999999999999}}]}, 
    {Arrowheads[{{0.023099243469399393`, 1.}}], 
     ArrowBox[{{0.46484632293943634`, 0.}, {0.9637251056319922, 0.}}]}, 
    {Arrowheads[{{0.02433634623956184, 1.}}], 
     ArrowBox[{{0.4648463229394364, 0.27442061001271395`}, {
      0.9637251056319923, 0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724243, 1.}}], 
     ArrowBox[{{0.46484632293943634`, 0.5615677195839115}, {
      0.9637251056319922, 0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098257`, 1.}}], 
     ArrowBox[{{0.4648463229394364, 0.8614413287135925}, {0.9637251056319923, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{0.4648463229394363, 1.1740414374017574`}, {0.9637251056319922,
       1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645057, 1.}}], 
     ArrowBox[{{0.4648463229394364, 1.4993680456484055`}, {0.9637251056319921,
       2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250493, 1.}}], 
     ArrowBox[{{0.4648463229394364, 1.8374211534535372`}, {0.9637251056319923,
       2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131843, 1.}}], 
     ArrowBox[{{0.46484632293943634`, 2.1882007608171525`}, {
      0.9637251056319922, 2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{0.4648463229394364, 2.551706867739252}, {0.9637251056319923, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{0.4648463229394364, 2.9279394742198344`}, {0.9637251056319921,
       3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{0.4648463229394364, 3.3168985802589}, {0.9637251056319923, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{0.46484632293943634`, 3.71858418585645}, {0.9637251056319922, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242422`, 1.}}], 
     ArrowBox[{{0.4648463229394364, 4.132996291012483}, {0.9637251056319923, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.024336346239561848`, 1.}}], 
     ArrowBox[{{0.4648463229394364, 4.560134895726999}, {0.9637251056319923, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.023099243469399393`, 1.}}], 
     ArrowBox[{{0.46484632293943634`, 4.999999999999999}, {0.9637251056319922,
       4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939939, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 0.}, {1.6780108199177064`, 0.}}]}, 
    {Arrowheads[{{0.024336346239561837`, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 0.27442061001271395`}, {
      1.6780108199177064`, 0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724243, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 0.5615677195839115}, {
      1.6780108199177064`, 0.8670037089875172}}]}, 
    {Arrowheads[{{0.03019459990709825, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 0.8614413287135925}, {
      1.6780108199177064`, 1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 1.1740414374017574`}, {
      1.6780108199177066`, 1.6831014197410998`}}]}, 
    {Arrowheads[{{0.035167111586450576`, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 1.4993680456484055`}, {
      1.6780108199177066`, 2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250492, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 1.8374211534535372`}, {
      1.6780108199177064`, 2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131843, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 2.1882007608171525`}, {
      1.6780108199177064`, 2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 2.551706867739252}, {1.6780108199177064`,
       3.162578846546463}}]}, 
    {Arrowheads[{{0.03516711158645054, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 2.9279394742198344`}, {
      1.6780108199177066`, 3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 3.3168985802589}, {1.6780108199177064`, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 3.71858418585645}, {1.6780108199177064`, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 4.132996291012483}, {1.6780108199177064`,
       4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956184, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 4.560134895726999}, {1.6780108199177064`,
       4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939939, 1.}}], 
     ArrowBox[{{1.1791320372251506`, 4.999999999999999}, {1.6780108199177064`,
       4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939941, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 0.}, {2.392296534203421, 0.}}]}, 
    {Arrowheads[{{0.024336346239561858`, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 0.27442061001271395`}, {
      2.392296534203421, 0.4398651042730004}}]}, 
    {Arrowheads[{{0.027084725507242443`, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 0.5615677195839115}, {2.392296534203421, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098267`, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 0.8614413287135925}, {2.392296534203421, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687622, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 1.1740414374017574`}, {2.392296534203421,
       1.6831014197410998`}}]}, 
    {Arrowheads[{{0.035167111586450576`, 1.}}], 
     ArrowBox[{{1.893417751510865, 1.4993680456484055`}, {2.392296534203421, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.036518547022504934`, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 1.8374211534535372`}, {2.392296534203421,
       2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131844, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 2.1882007608171525`}, {2.392296534203421,
       2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250493, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 2.551706867739252}, {2.392296534203421, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.03516711158645054, 1.}}], 
     ArrowBox[{{1.893417751510865, 2.9279394742198344`}, {2.392296534203421, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687622, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 3.3168985802589}, {2.392296534203421, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.03019459990709826, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 3.71858418585645}, {2.392296534203421, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242433`, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 4.132996291012483}, {2.392296534203421, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956186, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 4.560134895726999}, {2.392296534203421, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939941, 1.}}], 
     ArrowBox[{{1.8934177515108648`, 4.999999999999999}, {2.392296534203421, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.0230992434693994, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 0.}, {3.1065822484891354`, 0.}}]}, 
    {Arrowheads[{{0.024336346239561848`, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 0.27442061001271395`}, {
      3.1065822484891354`, 0.4398651042730004}}]}, 
    {Arrowheads[{{0.027084725507242433`, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 0.5615677195839115}, {
      3.1065822484891354`, 0.8670037089875172}}]}, 
    {Arrowheads[{{0.03019459990709826, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 0.8614413287135925}, {
      3.1065822484891354`, 1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 1.1740414374017574`}, {
      3.1065822484891354`, 1.6831014197410998`}}]}, 
    {Arrowheads[{{0.035167111586450576`, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 1.4993680456484055`}, {
      3.1065822484891354`, 2.0720605257801665`}}]}, 
    {Arrowheads[{{0.036518547022504934`, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 1.8374211534535372`}, {
      3.1065822484891354`, 2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131843, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 2.1882007608171525`}, {
      3.1065822484891354`, 2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250492, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 2.551706867739252}, {3.1065822484891354`,
       3.162578846546463}}]}, 
    {Arrowheads[{{0.03516711158645054, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 2.9279394742198344`}, {
      3.1065822484891354`, 3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 3.3168985802589}, {3.1065822484891354`, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.03019459990709825, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 3.71858418585645}, {3.1065822484891354`, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.02708472550724243, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 4.132996291012483}, {3.1065822484891354`,
       4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956185, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 4.560134895726999}, {3.1065822484891354`,
       4.725579389987286}}]}, 
    {Arrowheads[{{0.0230992434693994, 1.}}], 
     ArrowBox[{{2.6077034657965794`, 4.999999999999999}, {3.1065822484891354`,
       4.999999999999999}}]}, 
    {Arrowheads[{{0.0230992434693994, 1.}}], 
     ArrowBox[{{3.321989180082294, 0.}, {3.82086796277485, 0.}}]}, 
    {Arrowheads[{{0.024336346239561848`, 1.}}], 
     ArrowBox[{{3.321989180082294, 0.27442061001271395`}, {3.82086796277485, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.027084725507242433`, 1.}}], 
     ArrowBox[{{3.321989180082294, 0.5615677195839115}, {3.82086796277485, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.03019459990709826, 1.}}], 
     ArrowBox[{{3.321989180082294, 0.8614413287135925}, {3.82086796277485, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{3.321989180082294, 1.1740414374017574`}, {3.82086796277485, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.035167111586450576`, 1.}}], 
     ArrowBox[{{3.321989180082294, 1.4993680456484055`}, {3.82086796277485, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.036518547022504934`, 1.}}], 
     ArrowBox[{{3.321989180082294, 1.8374211534535372`}, {3.82086796277485, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131843, 1.}}], 
     ArrowBox[{{3.321989180082294, 2.1882007608171525`}, {3.82086796277485, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250492, 1.}}], 
     ArrowBox[{{3.321989180082294, 2.551706867739252}, {3.82086796277485, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.03516711158645054, 1.}}], 
     ArrowBox[{{3.321989180082294, 2.9279394742198344`}, {3.82086796277485, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687621, 1.}}], 
     ArrowBox[{{3.321989180082294, 3.3168985802589}, {3.82086796277485, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.03019459990709825, 1.}}], 
     ArrowBox[{{3.321989180082294, 3.71858418585645}, {3.82086796277485, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.02708472550724243, 1.}}], 
     ArrowBox[{{3.321989180082294, 4.132996291012483}, {3.82086796277485, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956185, 1.}}], 
     ArrowBox[{{3.321989180082294, 4.560134895726999}, {3.82086796277485, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.0230992434693994, 1.}}], 
     ArrowBox[{{3.321989180082294, 4.999999999999999}, {3.82086796277485, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{4.036274894368008, 0.}, {4.535153677060563, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{4.036274894368008, 0.27442061001271395`}, {4.535153677060563, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{4.036274894368008, 0.5615677195839115}, {4.535153677060563, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{4.036274894368008, 0.8614413287135925}, {4.535153677060563, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{4.036274894368008, 1.1740414374017574`}, {4.535153677060563, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{4.036274894368008, 1.4993680456484055`}, {4.535153677060563, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{4.036274894368008, 1.8374211534535372`}, {4.535153677060563, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{4.036274894368008, 2.1882007608171525`}, {4.535153677060563, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{4.036274894368008, 2.551706867739252}, {4.535153677060563, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{4.036274894368008, 2.9279394742198344`}, {4.535153677060563, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{4.036274894368008, 3.3168985802589}, {4.535153677060563, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{4.036274894368008, 3.71858418585645}, {4.535153677060563, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{4.036274894368008, 4.132996291012483}, {4.535153677060563, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{4.036274894368008, 4.560134895726999}, {4.535153677060563, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{4.036274894368008, 4.999999999999999}, {4.535153677060563, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{4.750560608653722, 0.}, {5.249439391346278, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{4.750560608653722, 0.27442061001271395`}, {5.249439391346278, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{4.750560608653722, 0.5615677195839115}, {5.249439391346278, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{4.750560608653722, 0.8614413287135925}, {5.249439391346278, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{4.750560608653722, 1.1740414374017574`}, {5.249439391346278, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{4.750560608653722, 1.4993680456484055`}, {5.249439391346278, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{4.750560608653722, 1.8374211534535372`}, {5.249439391346278, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{4.750560608653722, 2.1882007608171525`}, {5.249439391346278, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{4.750560608653722, 2.551706867739252}, {5.249439391346278, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{4.750560608653722, 2.9279394742198344`}, {5.249439391346278, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{4.750560608653722, 3.3168985802589}, {5.249439391346278, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{4.750560608653722, 3.71858418585645}, {5.249439391346278, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{4.750560608653722, 4.132996291012483}, {5.249439391346278, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{4.750560608653722, 4.560134895726999}, {5.249439391346278, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{4.750560608653722, 4.999999999999999}, {5.249439391346278, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{5.464846322939437, 0.}, {5.963725105631992, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{5.464846322939437, 0.27442061001271395`}, {5.963725105631992, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{5.464846322939437, 0.5615677195839115}, {5.963725105631992, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{5.464846322939437, 0.8614413287135925}, {5.963725105631992, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{5.464846322939437, 1.1740414374017574`}, {5.963725105631992, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{5.464846322939437, 1.4993680456484055`}, {5.963725105631992, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{5.464846322939437, 1.8374211534535372`}, {5.963725105631992, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{5.464846322939437, 2.1882007608171525`}, {5.963725105631992, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{5.464846322939437, 2.551706867739252}, {5.963725105631992, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{5.464846322939437, 2.9279394742198344`}, {5.963725105631992, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{5.464846322939437, 3.3168985802589}, {5.963725105631992, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{5.464846322939437, 3.71858418585645}, {5.963725105631992, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{5.464846322939437, 4.132996291012483}, {5.963725105631992, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{5.464846322939437, 4.560134895726999}, {5.963725105631992, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{5.464846322939437, 4.999999999999999}, {5.963725105631992, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{6.179132037225151, 0.}, {6.678010819917707, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{6.179132037225151, 0.27442061001271395`}, {6.678010819917707, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{6.179132037225151, 0.5615677195839115}, {6.678010819917707, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{6.179132037225151, 0.8614413287135925}, {6.678010819917707, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{6.179132037225151, 1.1740414374017574`}, {6.678010819917707, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{6.179132037225151, 1.4993680456484055`}, {6.678010819917707, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{6.179132037225151, 1.8374211534535372`}, {6.678010819917707, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{6.179132037225151, 2.1882007608171525`}, {6.678010819917707, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{6.179132037225151, 2.551706867739252}, {6.678010819917707, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{6.179132037225151, 2.9279394742198344`}, {6.678010819917707, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{6.179132037225151, 3.3168985802589}, {6.678010819917707, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{6.179132037225151, 3.71858418585645}, {6.678010819917707, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{6.179132037225151, 4.132996291012483}, {6.678010819917707, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{6.179132037225151, 4.560134895726999}, {6.678010819917707, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{6.179132037225151, 4.999999999999999}, {6.678010819917707, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{6.893417751510865, 0.}, {7.392296534203421, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{6.893417751510865, 0.27442061001271395`}, {7.392296534203421, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{6.893417751510865, 0.5615677195839115}, {7.392296534203421, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{6.893417751510865, 0.8614413287135925}, {7.392296534203421, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{6.893417751510865, 1.1740414374017574`}, {7.392296534203421, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{6.893417751510865, 1.4993680456484055`}, {7.392296534203421, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{6.893417751510865, 1.8374211534535372`}, {7.392296534203421, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{6.893417751510865, 2.1882007608171525`}, {7.392296534203421, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{6.893417751510865, 2.551706867739252}, {7.392296534203421, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{6.893417751510865, 2.9279394742198344`}, {7.392296534203421, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{6.893417751510865, 3.3168985802589}, {7.392296534203421, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{6.893417751510865, 3.71858418585645}, {7.392296534203421, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{6.893417751510865, 4.132996291012483}, {7.392296534203421, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{6.893417751510865, 4.560134895726999}, {7.392296534203421, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{6.893417751510865, 4.999999999999999}, {7.392296534203421, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.023099243469399337`, 1.}}], 
     ArrowBox[{{7.60770346579658, 0.}, {8.106582248489135, 0.}}]}, 
    {Arrowheads[{{0.024336346239561785`, 1.}}], 
     ArrowBox[{{7.60770346579658, 0.27442061001271395`}, {8.106582248489135, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724238, 1.}}], 
     ArrowBox[{{7.60770346579658, 0.5615677195839115}, {8.106582248489135, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098208`, 1.}}], 
     ArrowBox[{{7.60770346579658, 0.8614413287135925}, {8.106582248489135, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.03300228630687617, 1.}}], 
     ArrowBox[{{7.60770346579658, 1.1740414374017574`}, {8.106582248489135, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{7.60770346579658, 1.4993680456484055`}, {8.106582248489135, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250489, 1.}}], 
     ArrowBox[{{7.60770346579658, 1.8374211534535372`}, {8.106582248489135, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131839, 1.}}], 
     ArrowBox[{{7.60770346579658, 2.1882007608171525`}, {8.106582248489135, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.03651854702250488, 1.}}], 
     ArrowBox[{{7.60770346579658, 2.551706867739252}, {8.106582248489135, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.03516711158645051, 1.}}], 
     ArrowBox[{{7.60770346579658, 2.9279394742198344`}, {8.106582248489135, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.03300228630687617, 1.}}], 
     ArrowBox[{{7.60770346579658, 3.3168985802589}, {8.106582248489135, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098205`, 1.}}], 
     ArrowBox[{{7.60770346579658, 3.71858418585645}, {8.106582248489135, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242377`, 1.}}], 
     ArrowBox[{{7.60770346579658, 4.132996291012483}, {8.106582248489135, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.024336346239561796`, 1.}}], 
     ArrowBox[{{7.60770346579658, 4.560134895726999}, {8.106582248489135, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.023099243469399337`, 1.}}], 
     ArrowBox[{{7.60770346579658, 4.999999999999999}, {8.106582248489135, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{8.321989180082292, 0.}, {8.820867962774848, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{8.321989180082292, 0.27442061001271395`}, {8.820867962774848, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{8.321989180082292, 0.5615677195839115}, {8.820867962774848, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{8.321989180082292, 0.8614413287135925}, {8.820867962774848, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{8.321989180082292, 1.1740414374017574`}, {8.820867962774848, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{8.321989180082292, 1.4993680456484055`}, {8.820867962774848, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{8.321989180082292, 1.8374211534535372`}, {8.820867962774848, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{8.321989180082292, 2.1882007608171525`}, {8.820867962774848, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{8.321989180082292, 2.551706867739252}, {8.820867962774848, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{8.321989180082292, 2.9279394742198344`}, {8.820867962774848, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{8.321989180082292, 3.3168985802589}, {8.820867962774848, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{8.321989180082292, 3.71858418585645}, {8.820867962774848, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{8.321989180082292, 4.132996291012483}, {8.820867962774848, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{8.321989180082292, 4.560134895726999}, {8.820867962774848, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{8.321989180082292, 4.999999999999999}, {8.820867962774848, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{9.036274894368006, 0.}, {9.535153677060562, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{9.036274894368006, 0.27442061001271395`}, {9.535153677060562, 
      0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{9.036274894368006, 0.5615677195839115}, {9.535153677060562, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{9.036274894368006, 0.8614413287135925}, {9.535153677060562, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{9.036274894368006, 1.1740414374017574`}, {9.535153677060562, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{9.036274894368006, 1.4993680456484055`}, {9.535153677060562, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{9.036274894368006, 1.8374211534535372`}, {9.535153677060562, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{9.036274894368006, 2.1882007608171525`}, {9.535153677060562, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{9.036274894368006, 2.551706867739252}, {9.535153677060562, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{9.036274894368006, 2.9279394742198344`}, {9.535153677060562, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{9.036274894368006, 3.3168985802589}, {9.535153677060562, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{9.036274894368006, 3.71858418585645}, {9.535153677060562, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{9.036274894368006, 4.132996291012483}, {9.535153677060562, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{9.036274894368006, 4.560134895726999}, {9.535153677060562, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{9.036274894368006, 4.999999999999999}, {9.535153677060562, 
      4.999999999999999}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{9.75056060865372, 0.}, {10.249439391346275`, 0.}}]}, 
    {Arrowheads[{{0.024336346239561827`, 1.}}], 
     ArrowBox[{{9.75056060865372, 0.27442061001271395`}, {10.249439391346275`,
       0.4398651042730004}}]}, 
    {Arrowheads[{{0.02708472550724242, 1.}}], 
     ArrowBox[{{9.75056060865372, 0.5615677195839115}, {10.249439391346275`, 
      0.8670037089875172}}]}, 
    {Arrowheads[{{0.030194599907098246`, 1.}}], 
     ArrowBox[{{9.75056060865372, 0.8614413287135925}, {10.249439391346275`, 
      1.28141581414355}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{9.75056060865372, 1.1740414374017574`}, {10.249439391346275`, 
      1.6831014197410998`}}]}, 
    {Arrowheads[{{0.03516711158645056, 1.}}], 
     ArrowBox[{{9.75056060865372, 1.4993680456484055`}, {10.249439391346275`, 
      2.0720605257801665`}}]}, 
    {Arrowheads[{{0.03651854702250491, 1.}}], 
     ArrowBox[{{9.75056060865372, 1.8374211534535372`}, {10.249439391346275`, 
      2.4482931322607486`}}]}, 
    {Arrowheads[{{0.03697683143131842, 1.}}], 
     ArrowBox[{{9.75056060865372, 2.1882007608171525`}, {10.249439391346275`, 
      2.8117992391828475`}}]}, 
    {Arrowheads[{{0.036518547022504906`, 1.}}], 
     ArrowBox[{{9.75056060865372, 2.551706867739252}, {10.249439391346275`, 
      3.162578846546463}}]}, 
    {Arrowheads[{{0.035167111586450535`, 1.}}], 
     ArrowBox[{{9.75056060865372, 2.9279394742198344`}, {10.249439391346275`, 
      3.5006319543515945`}}]}, 
    {Arrowheads[{{0.033002286306876204`, 1.}}], 
     ArrowBox[{{9.75056060865372, 3.3168985802589}, {10.249439391346275`, 
      3.8259585625982426`}}]}, 
    {Arrowheads[{{0.030194599907098236`, 1.}}], 
     ArrowBox[{{9.75056060865372, 3.71858418585645}, {10.249439391346275`, 
      4.1385586712864075`}}]}, 
    {Arrowheads[{{0.027084725507242412`, 1.}}], 
     ArrowBox[{{9.75056060865372, 4.132996291012483}, {10.249439391346275`, 
      4.438432280416088}}]}, 
    {Arrowheads[{{0.02433634623956183, 1.}}], 
     ArrowBox[{{9.75056060865372, 4.560134895726999}, {10.249439391346275`, 
      4.725579389987286}}]}, 
    {Arrowheads[{{0.02309924346939938, 1.}}], 
     ArrowBox[{{9.75056060865372, 4.999999999999999}, {10.249439391346275`, 
      4.999999999999999}}]}}},
  AspectRatio->1,
  Frame->True,
  ImageMargins->0.,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  Method->{"TransparentPolygonMesh" -> True},
  PlotRange->{{-0.39929785312496247`, 
   10.399297853124963`}, {-0.39929785312496247`, 5.3992978531249625`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634100477824*^9, 3.522634890871213*^9, 
  3.522635525699188*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "-", "y"}], ",", 
     RowBox[{"x", "+", "y"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5226355348310547`*^9, 3.522635542264214*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{-5., -4.4949237277238945`}, {-5., -5.5050762722761055`}}]}, 
    {Arrowheads[{{0.04272283416483616, 1.}}], 
     ArrowBox[{{-4.96392312340885, -3.816714890029331}, {-5.03607687659115, \
-4.75471368139924}}]}, 
    {Arrowheads[{{0.039862676243740874`, 1.}}], 
     ArrowBox[{{-4.927846246817699, -3.1385060523347668`}, \
{-5.072153753182301, -4.004351090522375}}]}, 
    {Arrowheads[{{0.03736003469263192, 1.}}], 
     ArrowBox[{{-4.891769370226549, -2.4602972146402027`}, \
{-5.108230629773451, -3.253988499645511}}]}, 
    {Arrowheads[{{0.03529105076134966, 1.}}], 
     ArrowBox[{{-4.855692493635399, -1.7820883769456386`}, \
{-5.144307506364601, -2.503625908768646}}]}, 
    {Arrowheads[{{0.03373560688841688, 1.}}], 
     ArrowBox[{{-4.819615617044248, -1.1038795392510745`}, \
{-5.1803843829557525`, -1.7532633178917814`}}]}, 
    {Arrowheads[{{0.03276691802876166, 1.}}], 
     ArrowBox[{{-4.783538740453098, -0.4256707015565107}, \
{-5.216461259546903, -1.0029007270149166`}}]}, 
    {Arrowheads[{{0.032437593911409546`, 1.}}], 
     ArrowBox[{{-4.747461863861948, 
      0.25253813613805326`}, {-5.252538136138053, -0.2525381361380519}}]}, 
    {Arrowheads[{{0.032766918028761645`, 1.}}], 
     ArrowBox[{{-4.711384987270797, 
      0.9307469738326172}, {-5.2886150127292035`, 0.49782445473881276`}}]}, 
    {Arrowheads[{{0.03373560688841691, 1.}}], 
     ArrowBox[{{-4.675308110679646, 1.6089558115271811`}, {-5.324691889320354,
       1.2481870456156774`}}]}, 
    {Arrowheads[{{0.03529105076134966, 1.}}], 
     ArrowBox[{{-4.639231234088496, 2.287164649221745}, {-5.360768765911503, 
      1.9985496364925421`}}]}, 
    {Arrowheads[{{0.03736003469263192, 1.}}], 
     ArrowBox[{{-4.6031543574973455`, 2.965373486916309}, {-5.396845642502654,
       2.748912227369407}}]}, 
    {Arrowheads[{{0.039862676243740895`, 1.}}], 
     ArrowBox[{{-4.567077480906195, 3.643582324610873}, {-5.432922519093804, 
      3.499274818246272}}]}, 
    {Arrowheads[{{0.042722834164836215`, 1.}}], 
     ArrowBox[{{-4.531000604315045, 4.321791162305437}, {-5.468999395684955, 
      4.249637409123136}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{-4.4949237277238945`, 
      5.000000000000001}, {-5.5050762722761055`, 5.000000000000001}}]}, 
    {Arrowheads[{{0.04272283416483618, 1.}}], 
     ArrowBox[{{-4.321791162305436, -4.531000604315045}, {-4.249637409123135, \
-5.468999395684954}}]}, 
    {Arrowheads[{{0.03932030163451394, 1.}}], 
     ArrowBox[{{-4.285714285714286, -3.852791766620481}, {-4.285714285714286, \
-4.71863680480809}}]}, 
    {Arrowheads[{{0.03619224390482543, 1.}}], 
     ArrowBox[{{-4.249637409123135, -3.174582928925917}, {-4.321791162305436, \
-3.9682742139312253`}}]}, 
    {Arrowheads[{{0.03341583088579017, 1.}}], 
     ArrowBox[{{-4.213560532531985, -2.496374091231353}, {-4.357868038896586, \
-3.2179116230543605`}}]}, 
    {Arrowheads[{{0.031085427862476436`, 1.}}], 
     ArrowBox[{{-4.177483655940835, -1.818165253536789}, {-4.393944915487737, \
-2.4675490321774958`}}]}, 
    {Arrowheads[{{0.029307622450189797`, 1.}}], 
     ArrowBox[{{-4.141406779349684, -1.1399564158422248`}, \
{-4.430021792078888, -1.717186441300631}}]}, 
    {Arrowheads[{{0.028187168688193105`, 1.}}], 
     ArrowBox[{{-4.105329902758534, -0.46174757814766104`}, \
{-4.466098668670038, -0.9668238504237663}}]}, 
    {Arrowheads[{{0.027803651924065326`, 1.}}], 
     ArrowBox[{{-4.069253026167384, 
      0.21646125954690287`}, {-4.5021755452611885`, -0.21646125954690154`}}]}, 
    {Arrowheads[{{0.028187168688193102`, 1.}}], 
     ArrowBox[{{-4.033176149576233, 0.8946700972414668}, {-4.538252421852339, 
      0.5339013313299631}}]}, 
    {Arrowheads[{{0.029307622450189804`, 1.}}], 
     ArrowBox[{{-3.9970992729850825`, 
      1.5728789349360308`}, {-4.574329298443489, 1.2842639222068277`}}]}, 
    {Arrowheads[{{0.03108542786247642, 1.}}], 
     ArrowBox[{{-3.961022396393932, 2.2510877726305947`}, {-4.610406175034639,
       2.0346265130836927`}}]}, 
    {Arrowheads[{{0.03341583088579015, 1.}}], 
     ArrowBox[{{-3.924945519802782, 2.9292966103251588`}, {-4.646483051625789,
       2.7849891039605574`}}]}, 
    {Arrowheads[{{0.03619224390482541, 1.}}], 
     ArrowBox[{{-3.8888686432116315`, 3.607505448019723}, {-4.682559928216939,
       3.535351694837422}}]}, 
    {Arrowheads[{{0.039320301634513964`, 1.}}], 
     ArrowBox[{{-3.8527917666204807`, 
      4.2857142857142865`}, {-4.71863680480809, 4.2857142857142865`}}]}, 
    {Arrowheads[{{0.04272283416483618, 1.}}], 
     ArrowBox[{{-3.8167148900293304`, 4.963923123408851}, {-4.75471368139924, 
      5.036076876591151}}]}, 
    {Arrowheads[{{0.039862676243740895`, 1.}}], 
     ArrowBox[{{-3.643582324610872, -4.567077480906195}, \
{-3.4992748182462705`, -5.432922519093804}}]}, 
    {Arrowheads[{{0.03619224390482541, 1.}}], 
     ArrowBox[{{-3.6075054480197215`, -3.8888686432116315`}, \
{-3.535351694837421, -4.682559928216939}}]}, 
    {Arrowheads[{{0.032766918028761645`, 1.}}], 
     ArrowBox[{{-3.571428571428571, -3.2106598055170674`}, \
{-3.571428571428571, -3.932197337340075}}]}, 
    {Arrowheads[{{0.029671706254021525`, 1.}}], 
     ArrowBox[{{-3.535351694837421, -2.5324509678225033`}, \
{-3.6075054480197215`, -3.18183474646321}}]}, 
    {Arrowheads[{{0.027020292811707983`, 1.}}], 
     ArrowBox[{{-3.4992748182462705`, -1.8542421301279393`}, \
{-3.643582324610872, -2.4314721555863454`}}]}, 
    {Arrowheads[{{0.024954541308549013`, 1.}}], 
     ArrowBox[{{-3.46319794165512, -1.1760332924333754`}, \
{-3.6796592012020226`, -1.6811095647094805`}}]}, 
    {Arrowheads[{{0.0236285606183251, 1.}}], 
     ArrowBox[{{-3.42712106506397, -0.4978244547388114}, \
{-3.7157360777931725`, -0.930746973832616}}]}, 
    {Arrowheads[{{0.023169709936721097`, 1.}}], 
     ArrowBox[{{-3.391044188472819, 
      0.18038438295575251`}, {-3.751812954384323, -0.18038438295575118`}}]}, 
    {Arrowheads[{{0.023628560618325117`, 1.}}], 
     ArrowBox[{{-3.3549673118816687`, 
      0.8585932206503164}, {-3.7878898309754736`, 0.5699782079211135}}]}, 
    {Arrowheads[{{0.02495454130854903, 1.}}], 
     ArrowBox[{{-3.3188904352905184`, 
      1.5368020583448803`}, {-3.823966707566624, 1.320340798797978}}]}, 
    {Arrowheads[{{0.027020292811707983`, 1.}}], 
     ArrowBox[{{-3.282813558699368, 
      2.2150108960394443`}, {-3.8600435841577743`, 2.070703389674843}}]}, 
    {Arrowheads[{{0.029671706254021525`, 1.}}], 
     ArrowBox[{{-3.2467366821082178`, 
      2.8932197337340084`}, {-3.8961204607489246`, 2.8210659805517078`}}]}, 
    {Arrowheads[{{0.032766918028761645`, 1.}}], 
     ArrowBox[{{-3.2106598055170674`, 
      3.5714285714285725`}, {-3.932197337340075, 3.5714285714285725`}}]}, 
    {Arrowheads[{{0.03619224390482543, 1.}}], 
     ArrowBox[{{-3.174582928925917, 4.249637409123136}, {-3.9682742139312253`,
       4.321791162305437}}]}, 
    {Arrowheads[{{0.039862676243740874`, 1.}}], 
     ArrowBox[{{-3.1385060523347668`, 4.9278462468177}, {-4.004351090522375, 
      5.0721537531823015`}}]}, 
    {Arrowheads[{{0.03736003469263192, 1.}}], 
     ArrowBox[{{-2.9653734869163078`, -4.6031543574973455`}, \
{-2.7489122273694053`, -5.396845642502654}}]}, 
    {Arrowheads[{{0.03341583088579019, 1.}}], 
     ArrowBox[{{-2.9292966103251574`, -3.924945519802782}, \
{-2.784989103960556, -4.64648305162579}}]}, 
    {Arrowheads[{{0.029671706254021525`, 1.}}], 
     ArrowBox[{{-2.893219733734007, -3.2467366821082178`}, \
{-2.8210659805517064`, -3.8961204607489246`}}]}, 
    {Arrowheads[{{0.026213534423009326`, 1.}}], 
     ArrowBox[{{-2.8571428571428568`, -2.5685278444136537`}, \
{-2.8571428571428568`, -3.14575786987206}}]}, 
    {Arrowheads[{{0.02316970993672108, 1.}}], 
     ArrowBox[{{-2.8210659805517064`, -1.8903190067190898`}, \
{-2.893219733734007, -2.3953952789951947`}}]}, 
    {Arrowheads[{{0.020723618574984292`, 1.}}], 
     ArrowBox[{{-2.784989103960556, -1.2121101690245257`}, \
{-2.929296610325158, -1.6450326881183301`}}]}, 
    {Arrowheads[{{0.019106232276804837`, 1.}}], 
     ArrowBox[{{-2.7489122273694058`, -0.5339013313299618}, \
{-2.965373486916308, -0.8946700972414654}}]}, 
    {Arrowheads[{{0.018535767949376867`, 1.}}], 
     ArrowBox[{{-2.7128353507782554`, 
      0.14430750636460213`}, {-3.001450363507458, -0.1443075063646008}}]}, 
    {Arrowheads[{{0.019106232276804833`, 1.}}], 
     ArrowBox[{{-2.6767584741871047`, 
      0.8225163440591661}, {-3.0375272400986084`, 0.6060550845122639}}]}, 
    {Arrowheads[{{0.020723618574984285`, 1.}}], 
     ArrowBox[{{-2.6406815975959543`, 
      1.50072518175373}, {-3.0736041166897587`, 1.3564176753891286`}}]}, 
    {Arrowheads[{{0.02316970993672111, 1.}}], 
     ArrowBox[{{-2.604604721004804, 2.178934019448294}, {-3.1096809932809095`,
       2.1067802662659934`}}]}, 
    {Arrowheads[{{0.026213534423009326`, 1.}}], 
     ArrowBox[{{-2.5685278444136537`, 2.857142857142858}, {-3.14575786987206, 
      2.857142857142858}}]}, 
    {Arrowheads[{{0.029671706254021525`, 1.}}], 
     ArrowBox[{{-2.5324509678225033`, 3.535351694837422}, {-3.18183474646321, 
      3.6075054480197233`}}]}, 
    {Arrowheads[{{0.03341583088579017, 1.}}], 
     ArrowBox[{{-2.496374091231353, 4.213560532531986}, {-3.2179116230543605`,
       4.357868038896587}}]}, 
    {Arrowheads[{{0.03736003469263192, 1.}}], 
     ArrowBox[{{-2.4602972146402027`, 4.89176937022655}, {-3.253988499645511, 
      5.108230629773452}}]}, 
    {Arrowheads[{{0.03529105076134966, 1.}}], 
     ArrowBox[{{-2.2871646492217437`, -4.639231234088496}, \
{-1.9985496364925408`, -5.360768765911503}}]}, 
    {Arrowheads[{{0.031085427862476457`, 1.}}], 
     ArrowBox[{{-2.2510877726305933`, -3.961022396393932}, \
{-2.0346265130836914`, -4.6104061750346395`}}]}, 
    {Arrowheads[{{0.027020292811707983`, 1.}}], 
     ArrowBox[{{-2.215010896039443, -3.282813558699368}, \
{-2.0707033896748417`, -3.8600435841577743`}}]}, 
    {Arrowheads[{{0.02316970993672109, 1.}}], 
     ArrowBox[{{-2.1789340194482927`, -2.604604721004804}, \
{-2.106780266265992, -3.109680993280909}}]}, 
    {Arrowheads[{{0.01966015081725697, 1.}}], 
     ArrowBox[{{-2.1428571428571423`, -1.9263958833102401`}, \
{-2.1428571428571423`, -2.3593184024040443`}}]}, 
    {Arrowheads[{{0.016707915442895085`, 1.}}], 
     ArrowBox[{{-2.106780266265992, -1.248187045615676}, \
{-2.1789340194482927`, -1.6089558115271798`}}]}, 
    {Arrowheads[{{0.014653811225094886`, 1.}}], 
     ArrowBox[{{-2.0707033896748417`, -0.5699782079211122}, \
{-2.215010896039443, -0.8585932206503152}}]}, 
    {Arrowheads[{{0.013901825962032663`, 1.}}], 
     ArrowBox[{{-2.0346265130836914`, 
      0.10823062977345174`}, {-2.251087772630594, -0.10823062977345041`}}]}, 
    {Arrowheads[{{0.014653811225094899`, 1.}}], 
     ArrowBox[{{-1.9985496364925408`, 
      0.7864394674680156}, {-2.287164649221744, 0.6421319611034142}}]}, 
    {Arrowheads[{{0.016707915442895075`, 1.}}], 
     ArrowBox[{{-1.9624727599013905`, 
      1.4646483051625796`}, {-2.323241525812894, 1.392494551980279}}]}, 
    {Arrowheads[{{0.019660150817257003`, 1.}}], 
     ArrowBox[{{-1.92639588331024, 2.1428571428571437`}, {-2.359318402404045, 
      2.1428571428571437`}}]}, 
    {Arrowheads[{{0.023169709936721117`, 1.}}], 
     ArrowBox[{{-1.8903190067190896`, 
      2.8210659805517078`}, {-2.395395278995195, 2.893219733734009}}]}, 
    {Arrowheads[{{0.027020292811707987`, 1.}}], 
     ArrowBox[{{-1.8542421301279393`, 
      3.499274818246272}, {-2.4314721555863454`, 3.6435823246108736`}}]}, 
    {Arrowheads[{{0.031085427862476436`, 1.}}], 
     ArrowBox[{{-1.818165253536789, 
      4.1774836559408355`}, {-2.4675490321774958`, 4.3939449154877375`}}]}, 
    {Arrowheads[{{0.03529105076134967, 1.}}], 
     ArrowBox[{{-1.7820883769456386`, 4.8556924936354}, {-2.503625908768646, 
      5.144307506364603}}]}, 
    {Arrowheads[{{0.033735606888416876`, 1.}}], 
     ArrowBox[{{-1.6089558115271798`, -4.675308110679647}, \
{-1.248187045615676, -5.324691889320354}}]}, 
    {Arrowheads[{{0.029307622450189804`, 1.}}], 
     ArrowBox[{{-1.5728789349360295`, -3.9970992729850825`}, \
{-1.2842639222068264`, -4.574329298443489}}]}, 
    {Arrowheads[{{0.02495454130854903, 1.}}], 
     ArrowBox[{{-1.5368020583448792`, -3.3188904352905184`}, \
{-1.3203407987979767`, -3.823966707566624}}]}, 
    {Arrowheads[{{0.020723618574984292`, 1.}}], 
     ArrowBox[{{-1.5007251817537288`, -2.6406815975959543`}, \
{-1.3564176753891273`, -3.0736041166897587`}}]}, 
    {Arrowheads[{{0.016707915442895096`, 1.}}], 
     ArrowBox[{{-1.4646483051625783`, -1.9624727599013905`}, \
{-1.3924945519802776`, -2.3232415258128944`}}]}, 
    {Arrowheads[{{0.013106767211504652`, 1.}}], 
     ArrowBox[{{-1.428571428571428, -1.2842639222068264`}, \
{-1.428571428571428, -1.5728789349360293`}}]}, 
    {Arrowheads[{{0.010361809287492139`, 1.}}], 
     ArrowBox[{{-1.3924945519802776`, -0.6060550845122625}, \
{-1.4646483051625783`, -0.8225163440591646}}]}, 
    {Arrowheads[{{0.009267883974688437, 1.}}], 
     ArrowBox[{{-1.3564176753891273`, 
      0.07215375318230136}, {-1.5007251817537288`, -0.07215375318230002}}]}, 
    {Arrowheads[{{0.010361809287492143`, 1.}}], 
     ArrowBox[{{-1.3203407987979767`, 
      0.7503625908768653}, {-1.536802058344879, 0.6782088376945646}}]}, 
    {Arrowheads[{{0.013106767211504663`, 1.}}], 
     ArrowBox[{{-1.2842639222068264`, 
      1.4285714285714293`}, {-1.5728789349360295`, 1.4285714285714295`}}]}, 
    {Arrowheads[{{0.016707915442895085`, 1.}}], 
     ArrowBox[{{-1.248187045615676, 
      2.1067802662659934`}, {-1.6089558115271798`, 2.1789340194482945`}}]}, 
    {Arrowheads[{{0.02072361857498431, 1.}}], 
     ArrowBox[{{-1.2121101690245255`, 
      2.7849891039605574`}, {-1.6450326881183304`, 2.929296610325159}}]}, 
    {Arrowheads[{{0.02495454130854902, 1.}}], 
     ArrowBox[{{-1.1760332924333754`, 
      3.463197941655121}, {-1.6811095647094805`, 3.679659201202024}}]}, 
    {Arrowheads[{{0.029307622450189797`, 1.}}], 
     ArrowBox[{{-1.1399564158422248`, 4.141406779349685}, {-1.717186441300631,
       4.430021792078889}}]}, 
    {Arrowheads[{{0.03373560688841688, 1.}}], 
     ArrowBox[{{-1.1038795392510745`, 
      4.819615617044249}, {-1.7532633178917814`, 5.180384382955753}}]}, 
    {Arrowheads[{{0.03276691802876166, 1.}}], 
     ArrowBox[{{-0.930746973832616, -4.711384987270797}, \
{-0.4978244547388113, -5.2886150127292035`}}]}, 
    {Arrowheads[{{0.028187168688193102`, 1.}}], 
     ArrowBox[{{-0.8946700972414655, -4.033176149576233}, \
{-0.5339013313299618, -4.538252421852339}}]}, 
    {Arrowheads[{{0.023628560618325127`, 1.}}], 
     ArrowBox[{{-0.8585932206503152, -3.3549673118816687`}, \
{-0.5699782079211121, -3.7878898309754736`}}]}, 
    {Arrowheads[{{0.019106232276804833`, 1.}}], 
     ArrowBox[{{-0.8225163440591647, -2.676758474187105}, \
{-0.6060550845122625, -3.037527240098609}}]}, 
    {Arrowheads[{{0.014653811225094876`, 1.}}], 
     ArrowBox[{{-0.7864394674680144, -1.998549636492541}, \
{-0.6421319611034129, -2.2871646492217437`}}]}, 
    {Arrowheads[{{0.010361809287492146`, 1.}}], 
     ArrowBox[{{-0.750362590876864, -1.320340798797977}, \
{-0.6782088376945632, -1.5368020583448792`}}]}, 
    {Arrowheads[{{0.006553383605752326, 1.}}], 
     ArrowBox[{{-0.7142857142857136, -0.642131961103413}, \
{-0.7142857142857136, -0.7864394674680144}}]}, 
    {Arrowheads[{{0.004633941987344217, 1.}}], 
     ArrowBox[{{-0.6782088376945633, 
      0.036076876591150976`}, {-0.7503625908768641, \
-0.036076876591149644`}}]}, 
    {Arrowheads[{{0.006553383605752331, 1.}}], 
     ArrowBox[{{-0.6421319611034129, 
      0.7142857142857149}, {-0.7864394674680144, 0.714285714285715}}]}, 
    {Arrowheads[{{0.010361809287492151`, 1.}}], 
     ArrowBox[{{-0.6060550845122625, 
      1.3924945519802787`}, {-0.8225163440591649, 1.4646483051625796`}}]}, 
    {Arrowheads[{{0.014653811225094893`, 1.}}], 
     ArrowBox[{{-0.5699782079211121, 2.070703389674843}, {-0.8585932206503151,
       2.215010896039445}}]}, 
    {Arrowheads[{{0.019106232276804844`, 1.}}], 
     ArrowBox[{{-0.5339013313299618, 2.748912227369407}, {-0.8946700972414656,
       2.9653734869163095`}}]}, 
    {Arrowheads[{{0.02362856061832512, 1.}}], 
     ArrowBox[{{-0.4978244547388113, 
      3.4271210650639707`}, {-0.9307469738326161, 3.715736077793174}}]}, 
    {Arrowheads[{{0.028187168688193105`, 1.}}], 
     ArrowBox[{{-0.461747578147661, 4.105329902758535}, {-0.9668238504237664, 
      4.466098668670039}}]}, 
    {Arrowheads[{{0.03276691802876166, 1.}}], 
     ArrowBox[{{-0.4256707015565106, 
      4.783538740453099}, {-1.0029007270149166`, 5.216461259546904}}]}, 
    {Arrowheads[{{0.03243759391140955, 1.}}], 
     ArrowBox[{{-0.252538136138052, -4.747461863861948}, {
      0.2525381361380533, -5.252538136138053}}]}, 
    {Arrowheads[{{0.027803651924065333`, 1.}}], 
     ArrowBox[{{-0.21646125954690165`, -4.069253026167384}, {
      0.21646125954690298`, -4.5021755452611885`}}]}, 
    {Arrowheads[{{0.0231697099367211, 1.}}], 
     ArrowBox[{{-0.18038438295575127`, -3.3910441884728195`}, {
      0.1803843829557526, -3.7518129543843233`}}]}, 
    {Arrowheads[{{0.018535767949376884`, 1.}}], 
     ArrowBox[{{-0.14430750636460088`, -2.7128353507782554`}, {
      0.1443075063646022, -3.0014503635074585`}}]}, 
    {Arrowheads[{{0.013901825962032656`, 1.}}], 
     ArrowBox[{{-0.1082306297734505, -2.0346265130836914`}, {
      0.10823062977345184`, -2.2510877726305933`}}]}, 
    {Arrowheads[{{0.009267883974688435, 1.}}], 
     ArrowBox[{{-0.07215375318230009, -1.3564176753891273`}, {
      0.07215375318230142, -1.5007251817537286`}}]}, 
    {Arrowheads[{{0.004633941987344218, 1.}}], 
     ArrowBox[{{-0.03607687659114971, -0.6782088376945633}, {
      0.036076876591151046`, -0.750362590876864}}]}, 
    {Arrowheads[{{0.0046339419873442245`, 1.}}], 
     ArrowBox[{{0.036076876591151046`, 
      0.6782088376945645}, {-0.03607687659114971, 0.7503625908768654}}]}, 
    {Arrowheads[{{0.009267883974688449, 1.}}], 
     ArrowBox[{{0.07215375318230142, 
      1.3564176753891284`}, {-0.07215375318230009, 1.5007251817537302`}}]}, 
    {Arrowheads[{{0.013901825962032684`, 1.}}], 
     ArrowBox[{{0.10823062977345184`, 
      2.0346265130836922`}, {-0.1082306297734505, 2.251087772630595}}]}, 
    {Arrowheads[{{0.018535767949376884`, 1.}}], 
     ArrowBox[{{0.1443075063646022, 
      2.7128353507782563`}, {-0.14430750636460088`, 3.0014503635074594`}}]}, 
    {Arrowheads[{{0.023169709936721107`, 1.}}], 
     ArrowBox[{{0.18038438295575263`, 
      3.3910441884728204`}, {-0.1803843829557513, 3.751812954384324}}]}, 
    {Arrowheads[{{0.027803651924065333`, 1.}}], 
     ArrowBox[{{0.21646125954690293`, 
      4.0692530261673845`}, {-0.2164612595469016, 4.502175545261189}}]}, 
    {Arrowheads[{{0.03243759391140955, 1.}}], 
     ArrowBox[{{0.2525381361380533, 4.747461863861948}, {-0.252538136138052, 
      5.252538136138053}}]}, 
    {Arrowheads[{{0.03276691802876166, 1.}}], 
     ArrowBox[{{0.42567070155651193`, -4.783538740453098}, {
      1.002900727014918, -5.216461259546903}}]}, 
    {Arrowheads[{{0.028187168688193105`, 1.}}], 
     ArrowBox[{{0.46174757814766226`, -4.105329902758534}, {
      0.9668238504237676, -4.466098668670038}}]}, 
    {Arrowheads[{{0.023628560618325117`, 1.}}], 
     ArrowBox[{{0.4978244547388126, -3.42712106506397}, {
      0.9307469738326173, -3.715736077793173}}]}, 
    {Arrowheads[{{0.019106232276804833`, 1.}}], 
     ArrowBox[{{0.5339013313299631, -2.7489122273694058`}, {
      0.894670097241467, -2.9653734869163078`}}]}, 
    {Arrowheads[{{0.014653811225094881`, 1.}}], 
     ArrowBox[{{0.5699782079211135, -2.0707033896748417`}, {
      0.8585932206503164, -2.215010896039443}}]}, 
    {Arrowheads[{{0.010361809287492148`, 1.}}], 
     ArrowBox[{{0.6060550845122639, -1.3924945519802776`}, {
      0.8225163440591662, -1.4646483051625783`}}]}, 
    {Arrowheads[{{0.006553383605752331, 1.}}], 
     ArrowBox[{{0.6421319611034142, -0.7142857142857137}, {
      0.7864394674680157, -0.7142857142857136}}]}, 
    {Arrowheads[{{0.004633941987344225, 1.}}], 
     ArrowBox[{{0.6782088376945646, -0.03607687659114978}, {
      0.7503625908768654, 0.036076876591151115`}}]}, 
    {Arrowheads[{{0.006553383605752331, 1.}}], 
     ArrowBox[{{0.714285714285715, 0.6421319611034142}, {0.714285714285715, 
      0.7864394674680157}}]}, 
    {Arrowheads[{{0.010361809287492155`, 1.}}], 
     ArrowBox[{{0.7503625908768653, 1.320340798797978}, {0.6782088376945645, 
      1.5368020583448805`}}]}, 
    {Arrowheads[{{0.014653811225094902`, 1.}}], 
     ArrowBox[{{0.7864394674680157, 1.9985496364925421`}, {0.6421319611034142,
       2.2871646492217454`}}]}, 
    {Arrowheads[{{0.019106232276804833`, 1.}}], 
     ArrowBox[{{0.8225163440591661, 2.676758474187106}, {0.6060550845122639, 
      3.0375272400986097`}}]}, 
    {Arrowheads[{{0.023628560618325106`, 1.}}], 
     ArrowBox[{{0.8585932206503165, 3.35496731188167}, {0.5699782079211134, 
      3.7878898309754745`}}]}, 
    {Arrowheads[{{0.028187168688193102`, 1.}}], 
     ArrowBox[{{0.8946700972414668, 4.033176149576234}, {0.5339013313299631, 
      4.53825242185234}}]}, 
    {Arrowheads[{{0.032766918028761687`, 1.}}], 
     ArrowBox[{{0.9307469738326173, 4.711384987270797}, {0.4978244547388127, 
      5.288615012729204}}]}, 
    {Arrowheads[{{0.03373560688841687, 1.}}], 
     ArrowBox[{{1.1038795392510758`, -4.819615617044248}, {
      1.7532633178917827`, -5.180384382955752}}]}, 
    {Arrowheads[{{0.02930762245018978, 1.}}], 
     ArrowBox[{{1.1399564158422262`, -4.141406779349684}, {
      1.7171864413006324`, -4.430021792078887}}]}, 
    {Arrowheads[{{0.024954541308549023`, 1.}}], 
     ArrowBox[{{1.1760332924333765`, -3.46319794165512}, {
      1.681109564709482, -3.679659201202022}}]}, 
    {Arrowheads[{{0.020723618574984295`, 1.}}], 
     ArrowBox[{{1.212110169024527, -2.784989103960556}, {
      1.6450326881183317`, -2.9292966103251574`}}]}, 
    {Arrowheads[{{0.016707915442895085`, 1.}}], 
     ArrowBox[{{1.2481870456156774`, -2.106780266265992}, {
      1.6089558115271811`, -2.1789340194482927`}}]}, 
    {Arrowheads[{{0.013106767211504663`, 1.}}], 
     ArrowBox[{{1.2842639222068277`, -1.428571428571428}, {
      1.5728789349360308`, -1.4285714285714277`}}]}, 
    {Arrowheads[{{0.010361809287492146`, 1.}}], 
     ArrowBox[{{1.320340798797978, -0.7503625908768641}, {
      1.5368020583448803`, -0.6782088376945632}}]}, 
    {Arrowheads[{{0.009267883974688446, 1.}}], 
     ArrowBox[{{1.3564176753891286`, -0.07215375318230016}, {
      1.5007251817537302`, 0.0721537531823015}}]}, 
    {Arrowheads[{{0.010361809287492153`, 1.}}], 
     ArrowBox[{{1.392494551980279, 0.6060550845122638}, {1.4646483051625796`, 
      0.8225163440591662}}]}, 
    {Arrowheads[{{0.013106767211504663`, 1.}}], 
     ArrowBox[{{1.4285714285714293`, 1.2842639222068277`}, {
      1.4285714285714293`, 1.5728789349360308`}}]}, 
    {Arrowheads[{{0.016707915442895085`, 1.}}], 
     ArrowBox[{{1.4646483051625796`, 1.9624727599013916`}, {1.392494551980279,
       2.3232415258128953`}}]}, 
    {Arrowheads[{{0.02072361857498431, 1.}}], 
     ArrowBox[{{1.50072518175373, 2.6406815975959557`}, {1.3564176753891284`, 
      3.0736041166897605`}}]}, 
    {Arrowheads[{{0.02495454130854901, 1.}}], 
     ArrowBox[{{1.5368020583448805`, 3.3188904352905197`}, {
      1.3203407987979783`, 3.823966707566625}}]}, 
    {Arrowheads[{{0.02930762245018977, 1.}}], 
     ArrowBox[{{1.5728789349360308`, 3.9970992729850834`}, {
      1.2842639222068277`, 4.574329298443489}}]}, 
    {Arrowheads[{{0.033735606888416876`, 1.}}], 
     ArrowBox[{{1.6089558115271811`, 4.675308110679647}, {1.2481870456156774`,
       5.324691889320354}}]}, 
    {Arrowheads[{{0.035291050761349675`, 1.}}], 
     ArrowBox[{{1.78208837694564, -4.855692493635399}, {
      2.503625908768648, -5.144307506364601}}]}, 
    {Arrowheads[{{0.031085427862476436`, 1.}}], 
     ArrowBox[{{1.8181652535367903`, -4.177483655940835}, {
      2.467549032177497, -4.393944915487737}}]}, 
    {Arrowheads[{{0.027020292811707983`, 1.}}], 
     ArrowBox[{{1.8542421301279406`, -3.4992748182462705`}, {
      2.4314721555863468`, -3.643582324610872}}]}, 
    {Arrowheads[{{0.02316970993672109, 1.}}], 
     ArrowBox[{{1.890319006719091, -2.8210659805517064`}, {
      2.395395278995196, -2.893219733734007}}]}, 
    {Arrowheads[{{0.019660150817256982`, 1.}}], 
     ArrowBox[{{1.9263958833102413`, -2.1428571428571423`}, {
      2.3593184024040457`, -2.1428571428571423`}}]}, 
    {Arrowheads[{{0.01670791544289508, 1.}}], 
     ArrowBox[{{1.9624727599013918`, -1.4646483051625785`}, {
      2.3232415258128953`, -1.3924945519802776`}}]}, 
    {Arrowheads[{{0.014653811225094904`, 1.}}], 
     ArrowBox[{{1.9985496364925421`, -0.7864394674680145}, {
      2.2871646492217454`, -0.6421319611034129}}]}, 
    {Arrowheads[{{0.013901825962032672`, 1.}}], 
     ArrowBox[{{2.0346265130836927`, -0.10823062977345055`}, {
      2.251087772630595, 0.10823062977345188`}}]}, 
    {Arrowheads[{{0.014653811225094886`, 1.}}], 
     ArrowBox[{{2.070703389674843, 0.5699782079211134}, {2.2150108960394443`, 
      0.8585932206503164}}]}, 
    {Arrowheads[{{0.016707915442895106`, 1.}}], 
     ArrowBox[{{2.1067802662659934`, 1.2481870456156772`}, {2.178934019448294,
       1.6089558115271814`}}]}, 
    {Arrowheads[{{0.019660150817257003`, 1.}}], 
     ArrowBox[{{2.1428571428571437`, 1.9263958833102413`}, {
      2.1428571428571437`, 2.359318402404046}}]}, 
    {Arrowheads[{{0.02316970993672111, 1.}}], 
     ArrowBox[{{2.178934019448294, 2.6046047210048053`}, {2.1067802662659934`,
       3.109680993280911}}]}, 
    {Arrowheads[{{0.027020292811708, 1.}}], 
     ArrowBox[{{2.2150108960394443`, 3.2828135586993694`}, {2.070703389674843,
       3.860043584157776}}]}, 
    {Arrowheads[{{0.03108542786247642, 1.}}], 
     ArrowBox[{{2.2510877726305947`, 3.961022396393933}, {2.0346265130836927`,
       4.6104061750346395`}}]}, 
    {Arrowheads[{{0.03529105076134966, 1.}}], 
     ArrowBox[{{2.287164649221745, 4.639231234088497}, {1.9985496364925421`, 
      5.360768765911504}}]}, 
    {Arrowheads[{{0.03736003469263193, 1.}}], 
     ArrowBox[{{2.460297214640204, -4.891769370226549}, {
      3.2539884996455126`, -5.108230629773451}}]}, 
    {Arrowheads[{{0.03341583088579019, 1.}}], 
     ArrowBox[{{2.4963740912313543`, -4.213560532531985}, {
      3.2179116230543623`, -4.357868038896586}}]}, 
    {Arrowheads[{{0.029671706254021525`, 1.}}], 
     ArrowBox[{{2.5324509678225047`, -3.535351694837421}, {
      3.1818347464632115`, -3.6075054480197215`}}]}, 
    {Arrowheads[{{0.026213534423009326`, 1.}}], 
     ArrowBox[{{2.568527844413655, -2.8571428571428568`}, {
      3.145757869872061, -2.8571428571428568`}}]}, 
    {Arrowheads[{{0.023169709936721097`, 1.}}], 
     ArrowBox[{{2.6046047210048053`, -2.1789340194482927`}, {
      3.1096809932809104`, -2.1067802662659916`}}]}, 
    {Arrowheads[{{0.020723618574984292`, 1.}}], 
     ArrowBox[{{2.6406815975959557`, -1.5007251817537288`}, {
      3.07360411668976, -1.356417675389127}}]}, 
    {Arrowheads[{{0.019106232276804837`, 1.}}], 
     ArrowBox[{{2.676758474187106, -0.8225163440591649}, {
      3.0375272400986097`, -0.6060550845122624}}]}, 
    {Arrowheads[{{0.018535767949376905`, 1.}}], 
     ArrowBox[{{2.7128353507782563`, -0.14430750636460093`}, {
      3.00145036350746, 0.14430750636460227`}}]}, 
    {Arrowheads[{{0.019106232276804854`, 1.}}], 
     ArrowBox[{{2.748912227369407, 0.533901331329963}, {2.9653734869163095`, 
      0.8946700972414671}}]}, 
    {Arrowheads[{{0.020723618574984295`, 1.}}], 
     ArrowBox[{{2.7849891039605574`, 1.2121101690245268`}, {
      2.9292966103251588`, 1.6450326881183315`}}]}, 
    {Arrowheads[{{0.02316970993672111, 1.}}], 
     ArrowBox[{{2.8210659805517078`, 1.890319006719091}, {2.8932197337340084`,
       2.3953952789951964`}}]}, 
    {Arrowheads[{{0.026213534423009326`, 1.}}], 
     ArrowBox[{{2.857142857142858, 2.568527844413655}, {2.857142857142858, 
      3.145757869872061}}]}, 
    {Arrowheads[{{0.02967170625402154, 1.}}], 
     ArrowBox[{{2.8932197337340084`, 3.246736682108219}, {2.8210659805517078`,
       3.8961204607489264`}}]}, 
    {Arrowheads[{{0.03341583088579015, 1.}}], 
     ArrowBox[{{2.9292966103251588`, 3.9249455198027827`}, {
      2.7849891039605574`, 4.64648305162579}}]}, 
    {Arrowheads[{{0.03736003469263192, 1.}}], 
     ArrowBox[{{2.965373486916309, 4.603154357497346}, {2.7489122273694067`, 
      5.3968456425026545`}}]}, 
    {Arrowheads[{{0.039862676243740895`, 1.}}], 
     ArrowBox[{{3.138506052334768, -4.927846246817699}, {
      4.004351090522377, -5.072153753182301}}]}, 
    {Arrowheads[{{0.03619224390482545, 1.}}], 
     ArrowBox[{{3.1745829289259184`, -4.249637409123135}, {
      3.968274213931227, -4.321791162305436}}]}, 
    {Arrowheads[{{0.032766918028761666`, 1.}}], 
     ArrowBox[{{3.2106598055170688`, -3.571428571428571}, {
      3.9321973373400767`, -3.571428571428571}}]}, 
    {Arrowheads[{{0.029671706254021504`, 1.}}], 
     ArrowBox[{{3.246736682108219, -2.893219733734007}, {
      3.8961204607489255`, -2.821065980551706}}]}, 
    {Arrowheads[{{0.027020292811707973`, 1.}}], 
     ArrowBox[{{3.2828135586993694`, -2.215010896039443}, {
      3.860043584157775, -2.0707033896748412`}}]}, 
    {Arrowheads[{{0.024954541308549013`, 1.}}], 
     ArrowBox[{{3.3188904352905197`, -1.5368020583448792`}, {
      3.823966707566625, -1.3203407987979767`}}]}, 
    {Arrowheads[{{0.02362856061832511, 1.}}], 
     ArrowBox[{{3.35496731188167, -0.8585932206503153}, {
      3.7878898309754745`, -0.569978207921112}}]}, 
    {Arrowheads[{{0.023169709936721107`, 1.}}], 
     ArrowBox[{{3.3910441884728204`, -0.18038438295575132`}, {
      3.751812954384324, 0.18038438295575265`}}]}, 
    {Arrowheads[{{0.02362856061832513, 1.}}], 
     ArrowBox[{{3.4271210650639707`, 0.49782445473881265`}, {
      3.7157360777931743`, 0.9307469738326174}}]}, 
    {Arrowheads[{{0.02495454130854903, 1.}}], 
     ArrowBox[{{3.4631979416551215`, 1.1760332924333765`}, {3.679659201202024,
       1.681109564709482}}]}, 
    {Arrowheads[{{0.027020292811707987`, 1.}}], 
     ArrowBox[{{3.499274818246272, 1.8542421301279406`}, {3.6435823246108736`,
       2.4314721555863468`}}]}, 
    {Arrowheads[{{0.02967170625402154, 1.}}], 
     ArrowBox[{{3.535351694837422, 2.5324509678225047`}, {3.607505448019723, 
      3.181834746463212}}]}, 
    {Arrowheads[{{0.032766918028761666`, 1.}}], 
     ArrowBox[{{3.5714285714285725`, 3.2106598055170688`}, {
      3.5714285714285725`, 3.9321973373400767`}}]}, 
    {Arrowheads[{{0.03619224390482547, 1.}}], 
     ArrowBox[{{3.607505448019723, 3.888868643211632}, {3.535351694837422, 
      4.682559928216941}}]}, 
    {Arrowheads[{{0.039862676243740895`, 1.}}], 
     ArrowBox[{{3.643582324610873, 4.567077480906196}, {3.499274818246272, 
      5.432922519093805}}]}, 
    {Arrowheads[{{0.042722834164836215`, 1.}}], 
     ArrowBox[{{3.8167148900293313`, -4.96392312340885}, {
      4.754713681399242, -5.03607687659115}}]}, 
    {Arrowheads[{{0.039320301634514006`, 1.}}], 
     ArrowBox[{{3.8527917666204816`, -4.285714285714286}, {
      4.718636804808091, -4.285714285714286}}]}, 
    {Arrowheads[{{0.03619224390482541, 1.}}], 
     ArrowBox[{{3.8888686432116324`, -3.6075054480197215`}, {
      4.68255992821694, -3.535351694837421}}]}, 
    {Arrowheads[{{0.03341583088579016, 1.}}], 
     ArrowBox[{{3.9249455198027827`, -2.9292966103251574`}, {
      4.64648305162579, -2.7849891039605557`}}]}, 
    {Arrowheads[{{0.031085427862476464`, 1.}}], 
     ArrowBox[{{3.961022396393933, -2.2510877726305933`}, {
      4.61040617503464, -2.034626513083691}}]}, 
    {Arrowheads[{{0.029307622450189804`, 1.}}], 
     ArrowBox[{{3.9970992729850834`, -1.5728789349360295`}, {
      4.57432929844349, -1.2842639222068264`}}]}, 
    {Arrowheads[{{0.028187168688193105`, 1.}}], 
     ArrowBox[{{4.033176149576234, -0.8946700972414656}, {
      4.53825242185234, -0.5339013313299616}}]}, 
    {Arrowheads[{{0.027803651924065337`, 1.}}], 
     ArrowBox[{{4.0692530261673845`, -0.21646125954690168`}, {
      4.502175545261189, 0.216461259546903}}]}, 
    {Arrowheads[{{0.02818716868819308, 1.}}], 
     ArrowBox[{{4.105329902758535, 0.46174757814766226`}, {4.466098668670038, 
      0.9668238504237676}}]}, 
    {Arrowheads[{{0.02930762245018978, 1.}}], 
     ArrowBox[{{4.141406779349685, 1.1399564158422262`}, {4.430021792078888, 
      1.7171864413006324`}}]}, 
    {Arrowheads[{{0.031085427862476436`, 1.}}], 
     ArrowBox[{{4.1774836559408355`, 1.8181652535367903`}, {
      4.3939449154877375`, 2.467549032177497}}]}, 
    {Arrowheads[{{0.03341583088579019, 1.}}], 
     ArrowBox[{{4.213560532531986, 2.4963740912313543`}, {4.357868038896587, 
      3.2179116230543623`}}]}, 
    {Arrowheads[{{0.03619224390482543, 1.}}], 
     ArrowBox[{{4.249637409123136, 3.1745829289259184`}, {4.321791162305437, 
      3.9682742139312266`}}]}, 
    {Arrowheads[{{0.039320301634514006`, 1.}}], 
     ArrowBox[{{4.2857142857142865`, 3.8527917666204816`}, {
      4.2857142857142865`, 4.718636804808091}}]}, 
    {Arrowheads[{{0.042722834164836215`, 1.}}], 
     ArrowBox[{{4.321791162305437, 4.531000604315046}, {4.249637409123136, 
      5.468999395684956}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{4.494923727723895, -5.}, {5.5050762722761055`, -5.}}]}, 
    {Arrowheads[{{0.04272283416483618, 1.}}], 
     ArrowBox[{{4.531000604315046, -4.321791162305436}, {
      5.468999395684955, -4.249637409123135}}]}, 
    {Arrowheads[{{0.0398626762437409, 1.}}], 
     ArrowBox[{{4.567077480906196, -3.643582324610872}, {
      5.432922519093805, -3.49927481824627}}]}, 
    {Arrowheads[{{0.03736003469263192, 1.}}], 
     ArrowBox[{{4.603154357497346, -2.9653734869163078`}, {
      5.3968456425026545`, -2.7489122273694053`}}]}, 
    {Arrowheads[{{0.0352910507613497, 1.}}], 
     ArrowBox[{{4.639231234088497, -2.287164649221744}, {
      5.360768765911505, -1.9985496364925408`}}]}, 
    {Arrowheads[{{0.03373560688841685, 1.}}], 
     ArrowBox[{{4.675308110679648, -1.60895581152718}, {
      5.324691889320354, -1.248187045615676}}]}, 
    {Arrowheads[{{0.03276691802876166, 1.}}], 
     ArrowBox[{{4.711384987270798, -0.930746973832616}, {
      5.288615012729204, -0.4978244547388113}}]}, 
    {Arrowheads[{{0.03243759391140957, 1.}}], 
     ArrowBox[{{4.747461863861949, -0.25253813613805215`}, {5.252538136138054,
       0.2525381361380535}}]}, 
    {Arrowheads[{{0.03276691802876166, 1.}}], 
     ArrowBox[{{4.783538740453099, 0.4256707015565119}, {5.216461259546904, 
      1.002900727014918}}]}, 
    {Arrowheads[{{0.033735606888416904`, 1.}}], 
     ArrowBox[{{4.819615617044249, 1.1038795392510756`}, {5.180384382955753, 
      1.753263317891783}}]}, 
    {Arrowheads[{{0.03529105076134966, 1.}}], 
     ArrowBox[{{4.8556924936354, 1.78208837694564}, {5.144307506364602, 
      2.5036259087686474`}}]}, 
    {Arrowheads[{{0.03736003469263193, 1.}}], 
     ArrowBox[{{4.89176937022655, 2.460297214640204}, {5.108230629773452, 
      3.2539884996455126`}}]}, 
    {Arrowheads[{{0.039862676243740895`, 1.}}], 
     ArrowBox[{{4.9278462468177, 3.138506052334768}, {5.0721537531823015`, 
      4.004351090522377}}]}, 
    {Arrowheads[{{0.042722834164836215`, 1.}}], 
     ArrowBox[{{4.963923123408851, 3.8167148900293313`}, {5.036076876591151, 
      4.754713681399242}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{5.000000000000001, 4.494923727723895}, {5.000000000000001, 
      5.505076272276106}}]}}},
  AspectRatio->1,
  Frame->True,
  ImageMargins->0.,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  Method->{"TransparentPolygonMesh" -> True},
  PlotRange->{{-5.5050762722761055`, 
   5.5050762722761055`}, {-5.5050762722761055`, 5.5050762722761055`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.52263410096145*^9, 3.5226349028132677`*^9, 
  3.522635543938445*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:ff15\:3000\:6570\:5024\:8a08\:7b97", "Subtitle"],

Cell["\<\
Mathematica\:3067\:884c\:3048\:308b\:3044\:304f\:3064\:304b\:306e\:6570\:5024\
\:8a08\:7b97\:306e\:65b9\:6cd5\:3092\:7d39\:4ecb\:3059\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell["\:95a2\:6570\:306e\:53cd\:5fa9", "Section"],

Cell["\<\
\:95a2\:6570\:3092\:53cd\:5fa9\:3055\:305b\:3066\:6570\:5024\:8a08\:7b97\:3092\
\:884c\:3046\:3068\:4fbf\:5229\:3067\:3042\:308b\:ff0e\:3053\:306e\:65b9\:6cd5\
\:306f\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:4e0a\:3044\:308d\:3044\:308d\
\:3042\:308b\:304c\:ff0cMathematica\:3067\:306fNest,NestList\:3068\:3044\:3046\
\:4fbf\:5229\:306a\:30b3\:30de\:30f3\:30c9\:304c\:3042\:308b\:ff0e\
\>", "Text"],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.5226357586992493`*^9, 3.5226357619222307`*^9}}],

Cell[CellGroupData[{

Cell["Nest, NestList", "Subsection",
 Evaluatable->False,
 CellChangeTimes->{{3.522636110951737*^9, 3.522636113585891*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nest", "[", 
  RowBox[{"f", ",", "x", ",", "3"}], "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"f", "[", 
   RowBox[{"f", "[", "x", "]"}], "]"}], "]"}]], "Output",
 CellChangeTimes->{3.522634101109022*^9, 3.522635766067686*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestList", "[", 
  RowBox[{"f", ",", "x", ",", "3"}], "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", 
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"f", "[", 
    RowBox[{"f", "[", "x", "]"}], "]"}], ",", 
   RowBox[{"f", "[", 
    RowBox[{"f", "[", 
     RowBox[{"f", "[", "x", "]"}], "]"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5226341012072983`*^9, 3.522635768835429*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nest", "[", 
  RowBox[{"Cos", ",", "x", ",", "3"}], "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"Cos", "[", 
   RowBox[{"Cos", "[", "x", "]"}], "]"}], "]"}]], "Output",
 CellChangeTimes->{3.522634101305655*^9}]
}, Open  ]],

Cell["\<\
\:95a2\:6570\:306b\:56fa\:6709\:306e\:540d\:524d\:304c\:306a\:3044\:5834\:5408\
\:306f\:3001\:6b21\:306e\:3088\:3046\:306b\:3059\:308b\:ff0e\:ff08pure \
function)\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nest", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "#"}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["#", "2"]}]}], "&"}], ",", "0.36", ",", "10"}], 
  "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{3.522634101421298*^9, 3.522635781155458*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4e8c\:5206\:6cd5", "Section"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"\:65b9\:7a0b\:5f0f", "  ", 
     SuperscriptBox["x", "3"]}], "-", "2"}], "=", 
   RowBox[{"0", 
    RowBox[{
    "\:306e\:5b9f\:6570\:89e3\:3092\:4e8c\:5206\:6cd5\:3067\:6c42\:3081\:308b\
", "\:ff0e"}]}]}], TextForm]], "Text",
 CellChangeTimes->{{3.5226361601018543`*^9, 3.5226361625973177`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "^", "3"}], "-", "2"}]}], ";"}]], "Input"],

Cell["\:307e\:305a\:3001\:89e3\:304c\:5b58\:5728\:3059\:308b\:7bc4\:56f2\:3092\
\:63a2\:3059\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1wk0VdsfB3ChrtekwRBJMtySnqRwq6ffTsrwEhKVQmSqhCSkwpN6wpXh
kQyhjBnKEJJs8xAZQqbMQ6HMkVz3/Lf132udddZnrbPOPuf72+e319lhZnfa
gpODg2OBHMvnX3/bRunY2R/h+P8oemi+c1c9/RSccvpAkYE/jg9eZdKNwfy9
HnvZKfydMe2RluCZYvh72ZNZx/xs6LbwTeDZ9LKFpT+/o1od4HPLl6FlK7v4
7KuOdAK/wpZPy75UeSQxyNQVNBPV8pbtKTAjcpHuBrqWU/8t+1OmXnXQTw/o
awy0WrZ5x59e862ecKjoq+yyf67ggYv5XhBJyxwhD4QfSvcvFEU+BDW3V6HL
FtQtyJZy94a7v58dWHaSS6idj6kPuJ6GkiXiQzH2uyeO+YHnRe0jy66p1BzS
o/tD8zgzkUWc7rxJ5yJ3ALzuectaJHb2dU/z/xkABiuD/lo2iv6+ung4EGiK
LRYkAMyTdd56pjUIONVVnBeIGyoqyqWqg8F7Y5jdL+KnHfslzuX/B+3WIVrz
xGbjMR4+KSGgILnAO0e8m3N9d0FkKHwR8nwzSzzNf+fwBPMJ8IpN/DVD/E76
W9gO9zBYt46KmyL2Utaf07N/CoK59t8niE/qlug9NA2H67Ocm8aJ+S32ZuSd
jgDtCEe+78TdLpHrx45FwtI/XtMjxHYxTtXa9GeArVz/IgXCjOwBuqdgNOht
7o7vJ+Yw36ViyB0DWWc7h3qIq51Dov1+xsAXrmeD7cv5rDhZJ2UbC1Jb+mI+
Ewf5ci4VDsfCYdG3sk3EhtF2hlOtz6HhnER+DfERafojH50X0HBw/5tKYvGs
L7kS1S8gyqLpbinxWIUGv0F+HMTNYZv85fx0OFQn5OPBmMcn6A1xdkeOg3dK
PAy/73F/TXx3XKIhPzIBzK9Lp8YvryeXDrYefyJ0bI74Fk2syhn45w9mIojl
Bn99SrxOgO2z3T0JhLX4dzGX843Ofps3nwTa37daPST+LH3tm659Muj3xV12
J36m3Hbcy/QlNEgdDLBfXp+V/o7bOl5C5Y6S99bEVrrHX+ScToHHtVUvLhHL
WWRyjBxLhaB/Nf/TJi7283unRU+HK5zUgDRx4Wh77ZrkdPhcLNokSlygvrO7
WuYV7PRVM9tMfIHTlOPFltcQa6JtuMgm+WXQ/uA0fA0DrEU8TnzuUvpG04jX
oFR1EvcR6xcuim8XzYAT65y8KojPXH8u42aSAUJCImp5xKdFNA50xWSArPOK
qGRiHdfQ4xESmXDylBTLh1hTcZ+1oHQWJFjwXlAnVh9qtXe6mgWfOMZ9FInV
/nO73ZKSBdGKKkcliVWna3yCZbNBI3T4EHuJ1DPdMo33wBvYJWGkkEr8l9G6
HNtbb+B5AN0mlPjw2uzCjzlvYGtfhIgHMePqigbfgzlwUFtqUJd4Pz1ymga5
YGs01TvOorB8i8qipUcu7O49m9dMLOc1wlVRnAvH/GNYb4ll+xX5vVTzoCDg
Zrkn8a5njUocmm9BcI+xzDpiupYLMvF9Czw0PuXxRQpLsUQ1CmvfQo5+f3od
sbihjeFd7Xy46XA5lUksIkC79+vMOyhLUOjnIhYuT3twNvQd9Ij8qOz5TWEh
xzP+Oa3vgF97huMdscCn2GhHwwJgr/nX0o54g/9fJZMm70Fg6I+m+gUKr1zl
QBu5iiGVbVNz/ReFv2m4884kYvgVH3/mKPEHpp/g0iCGcWehfXzElT5Nwd57
i6B2s1t37jyFfTeNv4hMLoJuh5rhuTkK84lLlJVFFcPU6oVHp3+S+5dJV2kU
FIPAtYKXwsRzFnK1dR3FkNjy7Y/+WQq3JSs3twmWAIeKupstcdS+c4PfA0tg
K84Qdpsh+RxlcvM/LIXgfzPYTlOkPw4E84THlUJqZNcVeWKeB+Frt5eWwkxE
DPv7JIVHqxL5pDnKgNWQE21C/EqnRFLZtQyYF7MjDk2Qel6aV7WwLQdQdDpb
8Z3C0pxs9VG/crBifcM3iYXjuLXsUsrB3U9MWYyY9XWj/u1v5WDrmWzvNEbh
Irs9FkyzCuhZm/VEcJTCGu6mD94YVEJcG71E5itZD4+LT8Q6VkK+V1tVzTCp
V/QOHmZQJYj53Wq/SjxZ2OdjXlcJ+jw+mxOGKBzKNg3YfKIKwhQrqzYMUnjw
nlnEDYVqsLcZlszppXAds+SikV412DzYpXSCOC9KXFTjRjUEWeVCSw/J/31/
jFhaNTT1N8lOdpP5l8wS6iU/wGWFTDOhLgp73L2c8SdfDSSePLee0U7hq36l
DkLyNSD1+uh0Thv5/iIlDqzUqYEEzfa8A8Q7CwZyvvjWwG4PmZE9rWT+xcsF
vly1cOv6qmzeFvI+d8wrR6ZrgVtvtCeqgcK5ty264hvrAM6vXmyqoHDCkWut
wtN1UAb14aLEoVw3Gh9vqofZx34FVuUUdmLeLb+tVw+cr9Lcf5ZSWDE2OE2r
pR6SsnLa2EWknwz2FrraNECAgqZzZT6FO9bwPha3bwQT3pc3pNJIfxjfuNbI
oxH0WDvVlVPJ+mzge/QkoBHsLnnb6qVQOD9E+P7ajEZoqE+Lc02mcPh2uvPc
VCOsEszzyY4n/Wm/ssmHm58gNV6upzmKwu2G1/Y6ODfB7dzB7AI/Cvv0q9k8
edgEVM7xznRfst9elUwuCGmCsY9FRtE+FI683SVOy24CF8fxG3e8Sf8O0xaI
nGyCtpXeWdu9KPy1Zf9S+ZVmuH88103wDtnvdVgfhC62wGyoqNY7K5JPWxsN
rrXAwK8cdydLChtceqNq7toC8quyhvZakPra2Ramh7XAdX18IsqM7Bf+vRnH
Wlqgeeejg2ZGFOaqLQu7fuozHEgaLAs+TeGNakzLYtQKabeafPwOk36XXAAy
uq2gLlJ3eewghV3WfN8SYtoKUw29E2oMCvfWa9ZYe7aCl0Kz8O8DFH59jkdu
Q1kruLyI8FeRJf326v0FY7U2eN4w7WkmRuEA5m0/llY73Lo0qd7ESeGyiSQL
S+N2EN5UaDrEQeFfum1HGmzb4aXhp4VZNhtfElCaevG4HRL+ORO7dpGN5aJn
9f9ubIeP3VYx22bYuOG13fbwMx0wGLxhtqyfjTc0W2QqXeiE1+1PIrYVsTH6
cXT0zLVOoBdnr/r6no3tV4mKO9zpBMss/c9p79i4kfE5MDWiE1AUZ9T+XDYO
ijpxY8eXTlCvFovans7G/FY75dYYfYH14XIbXSLYWPj3t7Ru4y7wbk9fL+bI
xpqby4cWbbuglVt1U/ANNnbdE7tNyL0L2szOaHDZsXGn8XmmXnQXTEeU/915
hY0jS6ttqnq64PpxTucrJmwsynwpk3mpG/r9EniXNNhYQswm+YFZD/QmpTye
E2Fjv+4dscwbPVAbFaIMwmw8F9kaFuLRA6pzrroPBNm4SuiYd/wzcv3JIwl/
bGJjm83CVuUdPdDwo7l3ehUbX+AyD/KU7gXBr6n3T0wu4fi5jTolsb3gumhc
M1K0hBld12uOBvWB+scH7zvOL+F0aQd+6/A+0OJ7fEvaYAlLOjmZ+D/vA/3t
xUWOp5fwBl73mY7MPlhRoLZ6xd9LeAQFbHVs6oO8ZBflycNLODwu81oCXz/I
0xWLd25bwqxr82vWPOmHdWIPJSe/sHDxb4+TzRED8JyVxmTqsnCzkMOc3YsB
sIngHFbRYuFhxuWYNSkDoHK+dmRWnYXXOh+fVckfAJdNoeOnEAsbzPwRmdE2
ACLP+qs6ZFl4dCxozJ9/EEDeNFpnDQvzdcX5aDwehJPrl2pSihexNa6qKvQc
AnrYz4FWiUX89HKiMP+lr3BvvnLMoXQB/3mub45tMQKvGzoyKWoed89o1yGN
MYjeXWofyDeHp3uE5AT0f4BDgtfG82kzOCDF1ers2Qk4IV6Z0DA/iem8PFou
EZOw/m+H63pK33GOvUeKf/QUcCh+4pFUHsLNUsE03aBpiEwKfuc52okl7zft
Mno6A21cFycUC8rwQZ2eA9ERsxAzFGFOuRVDl/2DI0y/n7Dh9D0TQcMvkHnw
/LrywDkoE/pwtLBhBAQMKtuTHsyDi+Hx048+TwP0cwSWOP6C9Kjsrv0SC/BU
wHod3WUBZEtV5OpVOZDnsyv/Klz9DY4X+pLsKC4UVRdW4W+/COH1OeulDXnQ
PdvgyW0OLJALVrCOml2Lxkx3bTlvtgQ3xtyufqjYgHyXRrm7Ldlgzh8d0me/
GeV/V5tYb0iBtV72uNwWAfRZitF/SJIDpfNXL57q3IKspS/vDY7nQOFn+DXo
q0VQscGFO0dFV6DRfTRRI7ntaP+50WS+2BUo4N/C/gXLHcjm/olW5a2ciD90
OH6NnATytuT5vSKYE40ekY3czSOF3m8zpUb5uNAKya25PRI70Vv2Q67d/lyo
yyg3XEZRGtVlHRtlbuRGR74FegcGyaByMcsKvyBuFCcjyPzIKYu8cvVj+1av
RLzXnoenysuhi+JfjC8wVyKTIYO2m8x9aDFn71YZ2io0xufXY9grj+5yjdSG
uK1C3C+Odm87fAAJSB40leKgoY+joV0zpQrI2dZgdvVtGtLR/nHnpooSElE0
r6LfoSGOW6KdKhpKqGjpRqTKPRq6U+V7c7OOElrNZKq6/kNDP+756uQZKaFn
KWX/jTyioeZy+cINt5VQxTd5hapwGnIeeO/BeqWE+C7zOj0ooKFOiVdWRaIM
9Hb3Ns3YQhraf3NYMleKgYynd4u+L6Khp1u6RV/tYaCkf05UzJbR0JNRt+rn
hxjocMw9AfOPNOR7KpwVZsBAZl1jOSrdNESXa5ku8mcgWvyCj3EvDWk6H31U
E8JAqTY0E9d+GgrfJWfcGslAc4vitMxhGqo9tbJs+iUD+Qgbnt0xQUPJJ597
MioZaG+/lYzyFA3ZeSts0KpjoObkW9S5GRpyZOzpMmthINGDgYkB8zR02DVb
IWiAgUo5ou+kLtDQ/VNuxSmjDGRdlapdtUhDG0VEmBVTDLQ2IF9icImGdnC/
DOv/xUAZZ6vIbyENUTtVBymKgf4Hyu9uDg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 3}, {-2., 24.999998346938806`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634101596623*^9, 3.5226361707452993`*^9}]
}, Open  ]],

Cell["1\:30682\:306e\:9593\:3067\:89e3\:3092\:63a2\:3059\:ff0e", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", "1"}], ";", 
  RowBox[{"b", "=", "2"}], ";"}]], "Input"],

Cell["\:6b21\:306e\:ff13\:884c\:3092\:6570\:56de\:7e70\:308a\:8fd4\:3059\:ff0e\
", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "m", "]"}], "*", 
      RowBox[{"f", "[", "a", "]"}]}], "<=", "0"}], ",", 
    RowBox[{"b", "=", "m"}], ",", 
    RowBox[{"a", "=", "m"}]}], "]"}], ";"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"N", "[", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}], "]"}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "1.5`"}], "}"}]], "Print",
 CellChangeTimes->{3.5226341017059298`*^9, 3.522636179307276*^9}]
}, Open  ]],

Cell["\<\
\:4e0a\:306e\:64cd\:4f5c\:3092\:3072\:3068\:307e\:3068\:3081\:306e\:95a2\:6570\
\:3068\:3057\:3066\:5b9a\:7fa9\:3059\:308b\:ff0e\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bisect", "[", "f_", "]"}], "[", 
   RowBox[{"{", 
    RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
  RowBox[{
  "If", "[", "\[IndentingNewLine]", 
   "                                                       ", 
   RowBox[{
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"f", "[", "a", "]"}], "*", 
       RowBox[{"f", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b"}], ")"}], "/", "2"}], "]"}]}], "]"}], "<=", 
     "0"}], ",", 
    RowBox[{"N", "[", 
     RowBox[{"{", 
      RowBox[{"a", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], "}"}], "]"}], ",", 
    RowBox[{"N", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "b"}], ")"}], "/", "2"}], ",", "b"}], "}"}], 
     "]"}]}], "\[IndentingNewLine]", 
   "                                                   ", "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"bisect", "[", "f", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "1.5`"}], "}"}]], "Output",
 CellChangeTimes->{3.522634101822847*^9, 3.5226361908689117`*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["Nest",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "\:3067\:95a2\:6570\:3092\:53cd\:5fa9\:3055\:305b\:308b\:ff0e\:56e0\:307f\
\:306bMathematica\:306b\:304a\:3044\:3066\:6570\:306e\:6a5f\:68b0\:7cbe\:5ea6\
\:306f16\:6841\:3060\:304c\:ff0e\:8868\:793a\:306f\:6700\:521d\:306e\:ff16\
\:6841\:3067\:3042\:308b\:ff0e"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nest", "[", 
  RowBox[{
   RowBox[{"bisect", "[", "f", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", "17"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.259918212890625`", ",", "1.2599258422851562`"}], "}"}]], "Output",
 CellChangeTimes->{3.5226341019296627`*^9, 3.52263619552203*^9}]
}, Open  ]],

Cell["\<\
Mathematica\:306b\:306f\:4ee3\:6570\:65b9\:7a0b\:5f0f\:306e\:8fd1\:4f3c\:89e3\
\:3092\:89e3\:304f\:7d44\:307f\:8fbc\:307f\:95a2\:6570\:304c\:3042\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NRoots", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], "-", "2"}], "==", "0"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "0.6299605249474366`"}], "-", 
    RowBox[{"1.0911236359717214`", " ", "\[ImaginaryI]"}]}]}], "||", 
  RowBox[{"x", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "0.6299605249474366`"}], "+", 
    RowBox[{"1.0911236359717214`", " ", "\[ImaginaryI]"}]}]}], "||", 
  RowBox[{"x", "\[Equal]", "1.2599210498948732`"}]}]], "Output",
 CellChangeTimes->{3.5226341020123577`*^9, 3.5226362012827587`*^9}]
}, Open  ]],

Cell["\<\
16\:6841\:4ee5\:4e0a\:306b\:7cbe\:5ea6\:3092\:4e0a\:3052\:308b\:306b\:306f\
\:3001\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NRoots", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], "-", "2"}], "==", "0"}], ",", "x", ",", "17"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "\[Equal]", 
   RowBox[{
    RowBox[{
    "-", "0.62996052494743658238360530363911218936`16.84948500216801"}], "-", 
    RowBox[{
    "1.09112363597172140356007261418981014606`17.088045629527844", " ", 
     "\[ImaginaryI]"}]}]}], "||", 
  RowBox[{"x", "\[Equal]", 
   RowBox[{
    RowBox[{
    "-", "0.62996052494743658238360530363911218936`16.84948500216801"}], "+", 
    RowBox[{
    "1.09112363597172140356007261418981014606`17.088045629527844", " ", 
     "\[ImaginaryI]"}]}]}], "||", 
  RowBox[{
  "x", "\[Equal]", 
   "1.25992104989487316476721060727822888297`17."}]}]], "Output",
 CellChangeTimes->{3.5226341020955772`*^9, 3.5226362120119877`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Newton\:6cd5", "Section"],

Cell["\<\
\:540c\:3058\:65b9\:7a0b\:5f0f\:3092 Newton \:6cd5\:3067\:89e3\:3044\:3066\
\:307f\:308b\:ff0e\:3075\:305f\:3064\:3092\:6bd4\:8f03\:3057\:3066\:307f\:3088\
\:3046\:ff0e\
\>", "Text",
 CellChangeTimes->{{3.5226362207693567`*^9, 3.52263622311147*^9}}],

Cell[BoxData[
 RowBox[{"x", "=."}]], "Input"],

Cell["\:307e\:305a\:ff0c\:95a2\:6570\:3092\:5b9a\:7fa9\:3059\:308b\:ff0e", \
"Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"newton", "[", "f_", "]"}], "[", "x_", "]"}], ":=", 
   RowBox[{"x", "-", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], "/", 
     RowBox[{
      RowBox[{"f", "'"}], "[", "x", "]"}]}]}]}], ";"}]], "Input"],

Cell["\:9069\:5f53\:306a\:521d\:671f\:5024\:3092\:5b9a\:3081\:308b\:ff0e", \
"Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"newton", "[", "f", "]"}], "[", "1.5", "]"}]], "Input"],

Cell[BoxData["1.2962962962962963`"], "Output",
 CellChangeTimes->{3.5226341022548723`*^9, 3.522636231438057*^9}]
}, Open  ]],

Cell["\:95a2\:6570\:3092\:53cd\:5fa9\:3055\:305b\:308b\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nest", "[", 
  RowBox[{
   RowBox[{"newton", "[", "f", "]"}], ",", "1.5", ",", "8"}], "]"}]], "Input"],

Cell[BoxData["1.2599210498948732`"], "Output",
 CellChangeTimes->{3.522634102329542*^9, 3.522636233967823*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["FixedPoint",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "\:306f\:4e0d\:52d5\:70b9\:304c\:6c42\:307e\:308b\:307e\:3067\:95a2\:6570\
\:306e\:53cd\:5fa9\:3092\:81ea\:52d5\:7684\:306b\:7e70\:308a\:8fd4\:3059\:ff0e"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FixedPoint", "[", 
  RowBox[{
   RowBox[{"newton", "[", "f", "]"}], ",", "1.5"}], "]"}]], "Input"],

Cell[BoxData["1.2599210498948732`"], "Output",
 CellChangeTimes->{3.522634102677454*^9, 3.522636236666597*^9}]
}, Open  ]],

Cell[TextData[{
 "Mathematica\:3067\:306f",
 StyleBox["FindRoot",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "\:3068\:3044\:3046\:7d44\:307f\:8fbc\:307f\:95a2\:6570\:304c\:7528\:610f\
\:3055\:308c\:3066\:3044\:308b\:ff0e"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FindRoot"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \\!\\(\\*RowBox[{StyleBox[\\\"x\
\\\", \\\"TI\\\"], \\\"=\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"0\\\", \\\"TR\\\"]]}]\\) \:304b\:3089\:59cb\:3081\:3066 \
\\!\\(\\*StyleBox[RowBox[{\\\"f\\\", \\\" \\\"}], \\\"TI\\\"]\\)\:306e\:6570\
\:5024\:6839\:3092\:6c42\:3081\:308b\:ff0e\\n\\!\\(\\*RowBox[{\\\"FindRoot\\\"\
, \\\"[\\\", RowBox[{RowBox[{StyleBox[\\\"lhs\\\", \\\"TI\\\"], \\\"==\\\", \
StyleBox[\\\"rhs\\\", \\\"TI\\\"]}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \:65b9\:7a0b\:5f0f \
\\!\\(\\*RowBox[{StyleBox[\\\"lhs\\\", \\\"TI\\\"], \\\"==\\\", \
StyleBox[\\\"rhs\\\", \\\"TI\\\"], StyleBox[\\\" \\\", \\\"TI\\\"]}]\\)\:306e\
\:6570\:5024\:89e3\:3092\:6c42\:3081\:308b\:ff0e\\n\\!\\(\\*RowBox[{\\\"\
FindRoot\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\
\\\", RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"y\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"y\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \:3059\:3079\:3066\:306e \
\\!\\(\\*RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\
\\\", \\\"TI\\\"]], \\\" \\\"}]\\)\:306e\:9023\:7acb\:6570\:5024\:6839\:3092\
\:6c42\:3081\:308b\:ff0e\\n\\!\\(\\*RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"eqn\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"eqn\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"y\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"y\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \:9023\:7acb\:65b9\:7a0b\:5f0f \
\\!\\(\\*RowBox[{StyleBox[\\\" \\\", \\\"TI\\\"], \
SubscriptBox[StyleBox[\\\"eqn\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]], \\\" \\\"}]\\)\:306e\:6570\:5024\:89e3\:3092\:6c42\:3081\:308b\
\:ff0e\"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/FindRoot"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.522634103671777*^9},
 CellTags->"Info3522666502-1791722"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "==", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "1.2599210498948732`"}], "}"}]], "Output",
 CellChangeTimes->{3.5226341047047997`*^9, 3.522636243514916*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:305d\:306e\:4ed6", "Section"],

Cell[CellGroupData[{

Cell["\:ff12\:306e\:5e73\:65b9\:6839\:306b\:3064\:3044\:3066", "Subsection"],

Cell["\<\
\:95a2\:6570\:306e\:53cd\:5fa9\:3092\:7528\:3044\:3066\:ff0c\:ff12\:306e\:5e73\
\:65b9\:6839\:306e\:8fd1\:4f3c\:5024\:3092\:6c42\:3081\:308b\:306b\:306f\:6b21\
\:306e\:3088\:3046\:306b\:3059\:308b\:3053\:3068\:3082\:3067\:304d\:308b\:ff0e\
\:ff08\:7b2c\:ff14\:7ae0\:ff09\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", 
     FractionBox["1", 
      RowBox[{"1", "+", "#"}]]}], "&"}], ",", "1", ",", "11"}], 
  "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["3", "2"], ",", 
   FractionBox["7", "5"], ",", 
   FractionBox["17", "12"], ",", 
   FractionBox["41", "29"], ",", 
   FractionBox["99", "70"], ",", 
   FractionBox["239", "169"], ",", 
   FractionBox["577", "408"], ",", 
   FractionBox["1393", "985"], ",", 
   FractionBox["3363", "2378"], ",", 
   FractionBox["8119", "5741"], ",", 
   FractionBox["19601", "13860"]}], "}"}]], "Output",
 CellChangeTimes->{3.522634104806518*^9, 3.522636265608037*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"N", "[", 
   RowBox[{"%", ",", "10"}], "]"}], "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"1.`10."},
     {"1.5`10."},
     {"1.4`10."},
     {"1.41666666666666666666666666666666666667`10."},
     {"1.41379310344827586206896551724137931034`10."},
     {"1.41428571428571428571428571428571428571`10."},
     {"1.41420118343195266272189349112426035503`10."},
     {"1.41421568627450980392156862745098039216`10."},
     {"1.41421319796954314720812182741116751269`10."},
     {"1.41421362489486963835155592935239697224`10."},
     {"1.41421355164605469430412820066190559136`10."},
     {"1.41421356421356421356421356421356421356`10."}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5226341048661413`*^9, 3.5226362679676723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   SqrtBox["2"], ",", "10"}], "]"}]], "Input",
 PageWidth->Infinity],

Cell[BoxData["1.41421356237309504880168872420969807857`10."], "Output",
 CellChangeTimes->{3.522634104927594*^9, 3.522636271124305*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:30d5\:30a3\:30dc\:30ca\:30c3\:30c1\:6570\:5217\:306b\:3064\:3044\:3066\
", "Subsection"],

Cell["\:30d5\:30a3\:30dc\:30ca\:30c3\:30c1\:6570\:5217\:306f\:6b21\:306e\:3088\
\:3046\:306b\:69cb\:6210\:3055\:308c\:308b\:ff0e", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fib", "[", "1", "]"}], "=", "1"}], ";", 
  RowBox[{
   RowBox[{"fib", "[", "2", "]"}], "=", "1"}], ";", 
  RowBox[{
   RowBox[{"fib", "[", "n_", "]"}], ":=", 
   RowBox[{
    RowBox[{"fib", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"fib", "[", 
      RowBox[{"n", "-", "1"}], "]"}], "+", 
     RowBox[{"fib", "[", 
      RowBox[{"n", "-", "2"}], "]"}]}]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"fib", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "20"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "13", ",", "21",
    ",", "34", ",", "55", ",", "89", ",", "144", ",", "233", ",", "377", ",", 
   "610", ",", "987", ",", "1597", ",", "2584", ",", "4181", ",", "6765"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5226341050210238`*^9, 3.5226362917675247`*^9}]
}, Open  ]],

Cell["\:3053\:306e\:6570\:5217\:306f\:6b21\:306e\:95a2\:6570\:306e\:53cd\:5fa9\
\:306b\:3088\:3063\:3066\:3001\:540c\:69d8\:306b\:69cb\:6210\:3067\:304d\:308b\
\:ff0e", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ffib", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestList", "[", 
  RowBox[{"ffib", ",", "1", ",", "18"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["1", "2"], ",", 
   FractionBox["2", "3"], ",", 
   FractionBox["3", "5"], ",", 
   FractionBox["5", "8"], ",", 
   FractionBox["8", "13"], ",", 
   FractionBox["13", "21"], ",", 
   FractionBox["21", "34"], ",", 
   FractionBox["34", "55"], ",", 
   FractionBox["55", "89"], ",", 
   FractionBox["89", "144"], ",", 
   FractionBox["144", "233"], ",", 
   FractionBox["233", "377"], ",", 
   FractionBox["377", "610"], ",", 
   FractionBox["610", "987"], ",", 
   FractionBox["987", "1597"], ",", 
   FractionBox["1597", "2584"], ",", 
   FractionBox["2584", "4181"], ",", 
   FractionBox["4181", "6765"]}], "}"}]], "Output",
 CellChangeTimes->{3.52263410510548*^9, 3.522636302012603*^9}]
}, Open  ]],

Cell["\:30cb\:30e5\:30fc\:30c8\:30f3\:6cd5\:3092\:7528\:3044\:308b\:3068\:3001\
", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ff", "[", "x_", "]"}], ":=", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", "x", "-", "1"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"newtonfib", "[", "x_", "]"}], ":=", 
  RowBox[{"x", "-", 
   RowBox[{
    RowBox[{"ff", "[", "x", "]"}], "/", 
    RowBox[{
     RowBox[{"ff", "'"}], "[", "x", "]"}]}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NestList", "[", 
    RowBox[{"newtonfib", ",", "1", ",", "10"}], "]"}], "//", "N"}], "//", 
  "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"1.`"},
     {"0.6666666666666666`"},
     {"0.6190476190476191`"},
     {"0.6180344478216818`"},
     {"0.618033988749989`"},
     {"0.6180339887498949`"},
     {"0.6180339887498948`"},
     {"0.6180339887498948`"},
     {"0.6180339887498949`"},
     {"0.6180339887498949`"},
     {"0.6180339887498949`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.522634105239448*^9, 3.5226363159495983`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["6   \:78ba\:7387\:5206\:5e03", "Subtitle"],

Cell[CellGroupData[{

Cell["\:7591\:4f3c\:4e71\:6570", "Section"],

Cell["\<\
Mathematica\:3067\:4e71\:6570\:3092\:767a\:751f\:3055\:305b\:308b\:ff0e\:307e\
\:305a\:3001\:ff10\:304b\:30891\:307e\:3067\:306e\:4e71\:6570\:3092\:ff11\
\:ff10\:500b\:3064\:304f\:308b\:306b\:306f\:3001\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Random", "[", "]"}], ",", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.12613741342050042`", ",", "0.9045478340192641`", ",", 
   "0.1960923370310549`", ",", "0.1471070785771743`", ",", 
   "0.14575308648338872`", ",", "0.06860287384828327`", ",", 
   "0.5573793655598906`", ",", "0.7269496515674863`", ",", 
   "0.3373682404688448`", ",", "0.6106137584591463`"}], "}"}]], "Output",
 CellChangeTimes->{3.522634105583696*^9, 3.5226373069043217`*^9}]
}, Open  ]],

Cell["\:6574\:6570\:306e\:4e71\:6570\:ff10\:ff0c\:ff11\:309210\:500b\:767a\
\:751f\:3055\:305b\:308b\:306b\:306f\:3001", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Random", "[", "Integer", "]"}], ",", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", 
   ",", "1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.5226341056401587`*^9, 3.522637313184681*^9}]
}, Open  ]],

Cell["\:ff11\:304b\:3089\:ff16\:307e\:3067\:306e\:6574\:6570\:306e\:4e71\:6570\
\:3092\:767a\:751f\:3055\:305b\:308b\:306b\:306f\:3001", "Text",
 CellChangeTimes->{{3.5226373152347984`*^9, 3.522637317098905*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Random", "[", 
    RowBox[{"Integer", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "5", ",", "2", ",", "3", ",", "2", ",", "5", ",", "2", ",", "6", ",", "2", 
   ",", "3", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.522634105736758*^9, 3.522637319832062*^9}]
}, Open  ]],

Cell["\<\
\:30b5\:30a4\:30b3\:30ed\:3092\:6ca2\:5c71\:632f\:308b\:3068\:3001\:5404\:76ee\
\:306e\:51fa\:308b\:5272\:5408\:304c\:3060\:3093\:3060\:3093\:540c\:3058\:306b\
\:306a\:308b\:3068\:3044\:3046\:3042\:308b\:7a2e\:3001\:7d4c\:9a13\:7684\:306b\
\:77e5\:3063\:3066\:3044\:308b\:3053\:3068\:3092\:30b7\:30df\:30e5\:30ec\:30fc\
\:30b7\:30e7\:30f3\:3057\:3066\:307f\:3088\:3046\:ff0e\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"saikoro", "[", "n_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"sikou", ",", "dosuu", ",", "wariai"}], "}"}], ",", 
    "\[IndentingNewLine]", "                                    ", 
    RowBox[{
     RowBox[{"sikou", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", 
         RowBox[{"Integer", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "                                   ", 
     RowBox[{
      RowBox[{"dosuu", "[", "k_", "]"}], ":=", 
      RowBox[{"Count", "[", 
       RowBox[{"sikou", ",", "k"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "                                   ", 
     RowBox[{"wariai", "=", 
      RowBox[{"N", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"dosuu", "[", "k", "]"}], "n"], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "6"}], "}"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "                                   ", 
     RowBox[{"Print", "[", "wariai", "]"}], ";", 
     RowBox[{"BarChart", "[", "wariai", "]"}]}]}], "\[IndentingNewLine]", 
   "                            ", "]"}]}]], "Input"],

Cell["100\:56de\:3067\:306f,", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"saikoro", "[", "100", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.23`", ",", "0.15`", ",", "0.18`", ",", "0.17`", ",", "0.19`", ",", 
   "0.08`"}], "}"}]], "Print",
 CellChangeTimes->{
  3.5226341067351437`*^9, {3.522637342048332*^9, 3.522637362259488*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{{0.4545454545454546, 0.}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[Opacity[0.7]], 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 0.23},
             "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{25.515213358070497`, 
           76.66734693877552}, {-106.13808806533488`, 99.43368479858945}}],
         StatusArea[#, 0.23]& ,
         TagBoxNote->"0.23"],
        StyleBox["0.23`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.23, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 
            0.15}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{80.68256029684599, 
           131.83469387755102`}, {-34.98268880831772, 99.43368479858945}}],
         StatusArea[#, 0.15]& ,
         TagBoxNote->"0.15"],
        StyleBox["0.15`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.15, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 
            0.18}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{135.84990723562152`, 
           187.0020408163265}, {-61.66596352969914, 99.43368479858945}}],
         StatusArea[#, 0.18]& ,
         TagBoxNote->"0.18"],
        StyleBox["0.18`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.18, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 0.17}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{191.017254174397, 
           242.169387755102}, {-52.77153862257204, 99.43368479858945}}],
         StatusArea[#, 0.17]& ,
         TagBoxNote->"0.17"],
        StyleBox["0.17`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.17, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{4.545454545454545, 0.}, {5.454545454545454, 0.19}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{246.1846011131725, 
           297.33673469387753`}, {-70.5603884368263, 99.43368479858945}}],
         StatusArea[#, 0.19]& ,
         TagBoxNote->"0.19"],
        StyleBox["0.19`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.19, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{5.545454545454545, 0.}, {6.454545454545454, 0.08}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{301.351948051948, 352.504081632653}, {
           27.278285541572288`, 99.43368479858945}}],
         StatusArea[#, 0.08]& ,
         TagBoxNote->"0.08"],
        StyleBox["0.08`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.08, {
          GrayLevel[0]}], 
        "Tooltip"]& ]}}, {}, {}}, {}, {{{{{{{}, {}}, {}}, {{{}, {}}, {}}, \
{{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{}}, GraphicsGroupBox[
    {GrayLevel[0], 
     StyleBox[
      LineBox[{{{0.5454545454545454, 0.}, 
         Offset[{0, -4}, {0.5454545454545454, 0.}]}, {{6.454545454545454, 0.},
          Offset[{0, -4}, {6.454545454545454, 0.}]}}],
      Antialiasing->False]}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0.4545454545454546, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImageMargins->0.,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{
  3.5226341068016148`*^9, {3.5226373427773743`*^9, 3.522637362370495*^9}}]
}, Open  ]],

Cell["\:7df4\:7fd2   \:591a\:6570\:56de\:3067\:30b7\:30df\:30e5\:30ec\:30fc\
\:30b7\:30e7\:30f3\:3057\:3088\:3046\:ff0e", "Subsubsection"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4e8c\:9805\:5206\:5e03", "Section"],

Cell[CellGroupData[{

Cell["\:30d1\:30c3\:30b1-\:30b8\:306e\:6d3b\:7528", "Subsection"],

Cell[TextData[{
 ".",
 StyleBox["BinomialDistribution[n,p]",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "\:306f\:ff0c1 \:56de\:306e\:8a66\:884c\:3067\:8d77\:3053\:308b\:78ba\:7387\
\:ff50\:ff0c\:8a66\:884c\:56de\:6570\:ff4e\:3067\:7279\:5fb4\:3065\:3051\:3089\
\:308c\:308b\:4e8c\:9805\:5206\:5e03\:3092\:4e0e\:3048\:308b\:ff0e"
}], "Text",
 CellChangeTimes->{3.522637665475831*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bindist", "[", 
    RowBox[{"n_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", "p"}], "]"}]}], ";"}]], "Input"],

Cell[TextData[{
 "\:3053\:306e\:5206\:5e03\:306e\:983b\:5ea6\:ff08\:78ba\:7387\:5bc6\:5ea6\
\:95a2\:6570\:ff09\:3092\:8868\:3059\:95a2\:6570\:306f,\:5206\:5e03dist,\:5909\
\:6570x\:306b\:5bfe\:3057,",
 StyleBox["PDF[dist,x",
  FontWeight->"Bold"],
 StyleBox["]",
  FontWeight->"Bold"],
 "\:3067\:6c42\:3081\:3089\:308c\:308b\:ff0e\:4f8b\:3048\:3070\:ff0c\:30b3\
\:30a4\:30f3\:309210\:56de\:6295\:3052\:308b\:6642\:ff0c\:8868\:304c3\:56de\
\:51fa\:308b\:78ba\:7387\:306f\:6b21\:306e\:3088\:3046\:306b\:6c42\:307e\:308b\
\:ff0e"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PDF", "[", 
  RowBox[{
   RowBox[{"bindist", "[", 
    RowBox[{"10", ",", "0.5"}], "]"}], ",", "3"}], "]"}]], "Input"],

Cell[BoxData["0.1171875000000002`"], "Output",
 CellChangeTimes->{3.5226341076266947`*^9, 3.522637680450688*^9}]
}, Open  ]],

Cell["\:307e\:305f\:ff0c\:305d\:306e\:78ba\:7387\:5206\:5e03\:306f,", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"binlist", "[", 
    RowBox[{"n_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"PDF", "[", 
       RowBox[{
        RowBox[{"bindist", "[", 
         RowBox[{"n", ",", "p"}], "]"}], ",", "x"}], "]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5226377379829783`*^9, 3.522637738351*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"binlist", "[", 
   RowBox[{"10", ",", ".5"}], "]"}], "//", "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0.0009765625`"},
    {"0.009765624999999993`"},
    {"0.0439453124999998`"},
    {"0.1171875000000002`"},
    {"0.20507812500000014`"},
    {"0.2460937499999997`"},
    {"0.20507812500000014`"},
    {"0.1171875000000002`"},
    {"0.0439453124999998`"},
    {"0.009765624999999993`"},
    {"0.0009765625`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.522634107742159*^9, 3.5226376884571457`*^9, 
  3.5226377422652235`*^9}]
}, Open  ]],

Cell["\:3053\:306e\:5206\:5e03\:306e\:69d8\:5b50\:3092\:68d2\:30b0\:30e9\:30d5\
\:3067\:3042\:3089\:308f\:3057\:305f\:ff0e", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BarChart", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{{0, 0}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, {{{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{0.2, 0.}, {1.2, 0.0009765625}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{25.5152133580705, 51.591280148422996`}, {
            100.50715111230465`, 102.31894386176468`}}],
          StatusArea[#, 0.0009765625]& ,
          TagBoxNote->"0.0009765625"],
         StyleBox["0.0009765625`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.0009765625, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{1.4, 0.}, {2.4, 0.009765624999999993}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{55.60649350649349, 81.68256029684599}, {
            93.2010163671645, 102.31894386176468`}}],
          StatusArea[#, 0.009765624999999993]& ,
          TagBoxNote->"0.009765624999999993"],
         StyleBox["0.009765624999999993`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.009765624999999993, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{2.6, 0.}, {3.6, 0.0439453124999998}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{85.6977736549165, 111.773840445269}, {
            64.78827013606403, 102.31894386176468`}}],
          StatusArea[#, 0.0439453124999998]& ,
          TagBoxNote->"0.0439453124999998"],
         StyleBox["0.0439453124999998`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.0439453124999998, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{3.8000000000000003`, 0.}, {4.800000000000001, 
             0.1171875000000002}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{115.7890538033395, 141.865120593692}, {
            3.9038139265623357`, 102.31894386176468`}}],
          StatusArea[#, 0.1171875000000002]& ,
          TagBoxNote->"0.1171875000000002"],
         StyleBox["0.1171875000000002`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.1171875000000002, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{5.000000000000001, 0.}, {6.000000000000001, 
             0.20507812500000014`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{145.8803339517625, 
            171.95640074211502`}, {-69.15753352483925, 102.31894386176468`}}],
          StatusArea[#, 0.20507812500000014`]& ,
          TagBoxNote->"0.20507812500000014"],
         StyleBox["0.20507812500000014`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.20507812500000014`, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{6.200000000000001, 0.}, {7.200000000000001, 
             0.2460937499999997}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{175.97161410018552`, 
            202.04768089053803`}, {-103.25282900215966`, 
            102.31894386176468`}}],
          StatusArea[#, 0.2460937499999997]& ,
          TagBoxNote->"0.2460937499999997"],
         StyleBox["0.2460937499999997`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.2460937499999997, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{7.400000000000001, 0.}, {8.400000000000002, 
             0.20507812500000014`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{206.06289424860853`, 
            232.13896103896104`}, {-69.15753352483925, 102.31894386176468`}}],
          StatusArea[#, 0.20507812500000014`]& ,
          TagBoxNote->"0.20507812500000014"],
         StyleBox["0.20507812500000014`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.20507812500000014`, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{8.600000000000001, 0.}, {9.600000000000001, 
             0.1171875000000002}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{236.15417439703154`, 262.230241187384}, {
            3.9038139265623357`, 102.31894386176468`}}],
          StatusArea[#, 0.1171875000000002]& ,
          TagBoxNote->"0.1171875000000002"],
         StyleBox["0.1171875000000002`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.1171875000000002, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{9.8, 0.}, {10.8, 0.0439453124999998}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{266.24545454545455`, 292.321521335807}, {
            64.78827013606403, 102.31894386176468`}}],
          StatusArea[#, 0.0439453124999998]& ,
          TagBoxNote->"0.0439453124999998"],
         StyleBox["0.0439453124999998`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.0439453124999998, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{11., 0.}, {12., 0.009765624999999993}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{296.3367346938775, 322.41280148423}, {
            93.2010163671645, 102.31894386176468`}}],
          StatusArea[#, 0.009765624999999993]& ,
          TagBoxNote->"0.009765624999999993"],
         StyleBox["0.009765624999999993`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.009765624999999993, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{12.2, 0.}, {13.2, 0.0009765625}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{326.42801484230046`, 352.50408163265297`}, {
            100.50715111230465`, 102.31894386176468`}}],
          StatusArea[#, 0.0009765625]& ,
          TagBoxNote->"0.0009765625"],
         StyleBox["0.0009765625`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.0009765625, {
           GrayLevel[0]}], 
         "Tooltip"]& ]}, {}, {}}}, {}, {}}, {}, {{{{{{{}, {}}, {}}, {}}, {}}, \
{{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, \
{}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, \
{}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, \
{{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}}, {}}, GraphicsGroupBox[
    {GrayLevel[0], 
     StyleBox[
      GraphicsGroupBox[{
        LineBox[{{{0.2, 0.}, Offset[{0, -6}, {0.2, 0.}]}, {{13.2, 0.}, 
           Offset[{0, -6}, {13.2, 0.}]}}], 
        LineBox[{{{0.2, 0.}, Offset[{0, -4}, {0.2, 0.}]}, {{1.2, 0.}, 
           Offset[{0, -4}, {1.2, 0.}]}}], 
        LineBox[{{{1.4, 0.}, Offset[{0, -4}, {1.4, 0.}]}, {{2.4, 0.}, 
           Offset[{0, -4}, {2.4, 0.}]}}], 
        LineBox[{{{2.6, 0.}, Offset[{0, -4}, {2.6, 0.}]}, {{3.6, 0.}, 
           Offset[{0, -4}, {3.6, 0.}]}}], 
        LineBox[{{{3.8000000000000003`, 0.}, 
           Offset[{0, -4}, {3.8000000000000003`, 0.}]}, {{4.800000000000001, 
           0.}, Offset[{0, -4}, {4.800000000000001, 0.}]}}], 
        LineBox[{{{5.000000000000001, 0.}, 
           Offset[{0, -4}, {5.000000000000001, 0.}]}, {{6.000000000000001, 
           0.}, Offset[{0, -4}, {6.000000000000001, 0.}]}}], 
        LineBox[{{{6.200000000000001, 0.}, 
           Offset[{0, -4}, {6.200000000000001, 0.}]}, {{7.200000000000001, 
           0.}, Offset[{0, -4}, {7.200000000000001, 0.}]}}], 
        LineBox[{{{7.400000000000001, 0.}, 
           Offset[{0, -4}, {7.400000000000001, 0.}]}, {{8.400000000000002, 
           0.}, Offset[{0, -4}, {8.400000000000002, 0.}]}}], 
        LineBox[{{{8.600000000000001, 0.}, 
           Offset[{0, -4}, {8.600000000000001, 0.}]}, {{9.600000000000001, 
           0.}, Offset[{0, -4}, {9.600000000000001, 0.}]}}], 
        LineBox[{{{9.8, 0.}, Offset[{0, -4}, {9.8, 0.}]}, {{10.8, 0.}, 
           Offset[{0, -4}, {10.8, 0.}]}}], 
        LineBox[{{{11., 0.}, Offset[{0, -4}, {11., 0.}]}, {{12., 0.}, 
           Offset[{0, -4}, {12., 0.}]}}], 
        LineBox[{{{12.2, 0.}, Offset[{0, -4}, {12.2, 0.}]}, {{13.2, 0.}, 
           Offset[{0, -4}, {13.2, 0.}]}}]}],
      Antialiasing->False]}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImageMargins->0.,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{3.522634107889064*^9, 3.5226376921423564`*^9, 
  3.522637744583356*^9}]
}, Open  ]],

Cell["\<\
  \:3000\:3000\:3000  \:56f3   \:30b3\:30a4\:30f3\:3092 10 \:56de\:6295\:3052\
\:308b\:6642, \:8868\:304c\:51fa\:308b\:5272\:5408\
\>", "Text",
 CellChangeTimes->{{3.5226377684507213`*^9, 3.52263777105087*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5e73\:5747(\:671f\:5f85\:5024)", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"bindist", "[", 
   RowBox[{"10", ",", ".5"}], "]"}], "]"}]], "Input"],

Cell[BoxData["5.`"], "Output",
 CellChangeTimes->{3.522634108144845*^9, 3.522637791127018*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5206\:6563", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variance", "[", 
  RowBox[{"bindist", "[", 
   RowBox[{"10", ",", ".5"}], "]"}], "]"}]], "Input"],

Cell[BoxData["2.5`"], "Output",
 CellChangeTimes->{3.522634108211657*^9, 3.522637793678164*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6a19\:6e96\:504f\:5dee", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", 
  RowBox[{"bindist", "[", 
   RowBox[{"10", ",", ".5"}], "]"}], "]"}]], "Input"],

Cell[BoxData["1.5811388300841898`"], "Output",
 CellChangeTimes->{3.522634108278843*^9, 3.5226377955652723`*^9}]
}, Open  ]],

Cell["\<\
\:3053\:3053\:3067,\:4e8c\:9805\:5206\:5e03\:306e\:4e00\:822c\:578b\:306b\
\:95a2\:3059\:308b\:516c\:5f0f\:306b\:3064\:3044\:3066\:307e\:3068\:3081\:308b\
\:3068,\:6b21\:306e\:3088\:3046\:306b\:306a\:308b\:ff0e\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"bindist", "[", 
   RowBox[{"n", ",", "p"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"n", " ", "p"}]], "Output",
 CellChangeTimes->{3.522634108361513*^9, 3.522637797772398*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variance", "[", 
  RowBox[{"bindist", "[", 
   RowBox[{"n", ",", "p"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"n", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", "p"}], ")"}], " ", "p"}]], "Output",
 CellChangeTimes->{3.522634108429473*^9, 3.5226377998455167`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", 
  RowBox[{"bindist", "[", 
   RowBox[{"n", ",", "p"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 SqrtBox[
  RowBox[{"n", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "p"}], ")"}], " ", "p"}]]], "Output",
 CellChangeTimes->{3.5226341084958*^9, 3.5226378019136353`*^9}]
}, Open  ]],

Cell["\:3088\:304f\:77e5\:3089\:308c\:305f\:7d50\:679c\:3067\:3042\:308b\:ff08\
\:516c\:5f0f\:306e\:5c0e\:304d\:65b9\:306f\:3053\:3053\:3067\:306f\:7701\:7565\
\:ff09\:ff0e", "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:30dd\:30a2\:30bd\:30f3\:5206\:5e03", "Section"],

Cell[CellGroupData[{

Cell["\:30d1\:30c3\:30b1-\:30b8\:306e\:5229\:7528", "Subsection"],

Cell["\<\
\:307e\:305f,Mathematica\:3067\:306f\:30dd\:30a2\:30bd\:30f3\:5206\:5e03\:3092\
\:7d44\:307f\:8fbc\:307f\:95a2\:6570\:3068\:3057\:3066\:3082\:3063\:3066\:3044\
\:308b\:ff0e\
\>", "Text",
 CellChangeTimes->{{3.522638098482598*^9, 3.522638115329561*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"poidist", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"PoissonDistribution", "[", "\[Lambda]", "]"}]}]], "Input",
 CellChangeTimes->{3.5226378929328413`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"poilist", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"poidist", "[", "\[Lambda]", "]"}], ",", "x"}], "]"}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5226379380384207`*^9, 3.5226379383824406`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"poilist", "[", "2", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.5226379210874515`*^9, 3.5226379282918634`*^9}, {
  3.5226379894203596`*^9, 3.5226379906434298`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0.1353352832366127`", "}"}], ",", 
   RowBox[{"{", "0.2706705664732254`", "}"}], ",", 
   RowBox[{"{", "0.2706705664732254`", "}"}], ",", 
   RowBox[{"{", "0.18044704431548358`", "}"}], ",", 
   RowBox[{"{", "0.09022352215774179`", "}"}], ",", 
   RowBox[{"{", "0.03608940886309672`", "}"}], ",", 
   RowBox[{"{", "0.012029802954365574`", "}"}], ",", 
   RowBox[{"{", "0.0034370865583901638`", "}"}], ",", 
   RowBox[{"{", "0.0008592716395975409`", "}"}], ",", 
   RowBox[{"{", "0.000190949253243898`", "}"}], ",", 
   RowBox[{"{", "0.000038189850648779595`", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5226379294339285`*^9, 3.522637940736575*^9}, 
   3.522637991824497*^9, {3.5226380287226076`*^9, 3.5226380514099054`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BarChart", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.522637982868985*^9, 3.522638014043768*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{{0, 0}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, {{{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{0.2, 0.}, {1.2, 0.1353352832366127}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{25.515213358070504`, 
            51.59128014842301}, {-3.8522016333727436`, 99.43368479858943}}],
          StatusArea[#, 0.1353352832366127]& ,
          TagBoxNote->"0.1353352832366127"],
         StyleBox["0.1353352832366127`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.1353352832366127, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{1.4, 0.}, {2.4, 0.2706705664732254}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{55.60649350649351, 
            81.68256029684602}, {-106.13808806533491`, 99.43368479858943}}],
          StatusArea[#, 0.2706705664732254]& ,
          TagBoxNote->"0.2706705664732254"],
         StyleBox["0.2706705664732254`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.2706705664732254, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{2.6, 0.}, {3.6, 0.2706705664732254}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{85.69777365491652, 
            111.77384044526903`}, {-106.13808806533491`, 99.43368479858943}}],
          StatusArea[#, 0.2706705664732254]& ,
          TagBoxNote->"0.2706705664732254"],
         StyleBox["0.2706705664732254`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.2706705664732254, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{3.8000000000000003`, 0.}, {4.800000000000001, 
             0.18044704431548358`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{115.78905380333953`, 
            141.86512059369204`}, {-37.94749711069345, 99.43368479858943}}],
          StatusArea[#, 0.18044704431548358`]& ,
          TagBoxNote->"0.18044704431548358"],
         StyleBox["0.18044704431548358`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.18044704431548358`, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{5.000000000000001, 0.}, {6.000000000000001, 
             0.09022352215774179}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{145.88033395176257`, 171.95640074211505`}, {
            30.24309384394799, 99.43368479858943}}],
          StatusArea[#, 0.09022352215774179]& ,
          TagBoxNote->"0.09022352215774179"],
         StyleBox["0.09022352215774179`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.09022352215774179, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{6.200000000000001, 0.}, {7.200000000000001, 
             0.03608940886309672}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{175.97161410018558`, 202.04768089053806`}, {
            71.15744841673285, 99.43368479858943}}],
          StatusArea[#, 0.03608940886309672]& ,
          TagBoxNote->"0.03608940886309672"],
         StyleBox["0.03608940886309672`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.03608940886309672, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{7.400000000000001, 0.}, {8.400000000000002, 
             0.012029802954365574`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{206.0628942486086, 232.1389610389611}, {
            89.34160600463723, 99.43368479858943}}],
          StatusArea[#, 0.012029802954365574`]& ,
          TagBoxNote->"0.012029802954365574"],
         StyleBox["0.012029802954365574`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.012029802954365574`, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{8.600000000000001, 0.}, {9.600000000000001, 
             0.0034370865583901638`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{236.1541743970316, 262.2302411873841}, {
            95.83594800031737, 99.43368479858943}}],
          StatusArea[#, 0.0034370865583901638`]& ,
          TagBoxNote->"0.0034370865583901638"],
         StyleBox["0.0034370865583901638`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.0034370865583901638`, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{9.8, 0.}, {10.8, 0.0008592716395975409}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{266.2454545454546, 292.32152133580706`}, {
            97.7842505990214, 99.43368479858943}}],
          StatusArea[#, 0.0008592716395975409]& ,
          TagBoxNote->"0.0008592716395975409"],
         StyleBox["0.0008592716395975409`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.0008592716395975409, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{11., 0.}, {12., 0.000190949253243898}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{296.3367346938776, 322.41280148423004`}, {
            98.28936608757431, 99.43368479858943}}],
          StatusArea[#, 0.000190949253243898]& ,
          TagBoxNote->"0.000190949253243898"],
         StyleBox["0.000190949253243898`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.000190949253243898, {
           GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.7]], 
       TagBox[
        TooltipBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{12.2, 0.}, {13.2, 0.000038189850648779595`}, 
             "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{326.42801484230057`, 352.5040816326531}, {
            98.4048210563864, 99.43368479858943}}],
          StatusArea[#, 0.000038189850648779595`]& ,
          TagBoxNote->"0.000038189850648779595"],
         StyleBox["0.000038189850648779595`", {
           GrayLevel[0]}, StripOnInput -> False]],
        Annotation[#, 
         Style[0.000038189850648779595`, {
           GrayLevel[0]}], 
         "Tooltip"]& ]}, {}, {}}}, {}, {}}, {}, {{{{{{{}, {}}, {}}, {}}, {}}, \
{{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, \
{}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, \
{}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, \
{{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}}, {}}, GraphicsGroupBox[
    {GrayLevel[0], 
     StyleBox[
      GraphicsGroupBox[{
        LineBox[{{{0.2, 0.}, Offset[{0, -6}, {0.2, 0.}]}, {{13.2, 0.}, 
           Offset[{0, -6}, {13.2, 0.}]}}], 
        LineBox[{{{0.2, 0.}, Offset[{0, -4}, {0.2, 0.}]}, {{1.2, 0.}, 
           Offset[{0, -4}, {1.2, 0.}]}}], 
        LineBox[{{{1.4, 0.}, Offset[{0, -4}, {1.4, 0.}]}, {{2.4, 0.}, 
           Offset[{0, -4}, {2.4, 0.}]}}], 
        LineBox[{{{2.6, 0.}, Offset[{0, -4}, {2.6, 0.}]}, {{3.6, 0.}, 
           Offset[{0, -4}, {3.6, 0.}]}}], 
        LineBox[{{{3.8000000000000003`, 0.}, 
           Offset[{0, -4}, {3.8000000000000003`, 0.}]}, {{4.800000000000001, 
           0.}, Offset[{0, -4}, {4.800000000000001, 0.}]}}], 
        LineBox[{{{5.000000000000001, 0.}, 
           Offset[{0, -4}, {5.000000000000001, 0.}]}, {{6.000000000000001, 
           0.}, Offset[{0, -4}, {6.000000000000001, 0.}]}}], 
        LineBox[{{{6.200000000000001, 0.}, 
           Offset[{0, -4}, {6.200000000000001, 0.}]}, {{7.200000000000001, 
           0.}, Offset[{0, -4}, {7.200000000000001, 0.}]}}], 
        LineBox[{{{7.400000000000001, 0.}, 
           Offset[{0, -4}, {7.400000000000001, 0.}]}, {{8.400000000000002, 
           0.}, Offset[{0, -4}, {8.400000000000002, 0.}]}}], 
        LineBox[{{{8.600000000000001, 0.}, 
           Offset[{0, -4}, {8.600000000000001, 0.}]}, {{9.600000000000001, 
           0.}, Offset[{0, -4}, {9.600000000000001, 0.}]}}], 
        LineBox[{{{9.8, 0.}, Offset[{0, -4}, {9.8, 0.}]}, {{10.8, 0.}, 
           Offset[{0, -4}, {10.8, 0.}]}}], 
        LineBox[{{{11., 0.}, Offset[{0, -4}, {11., 0.}]}, {{12., 0.}, 
           Offset[{0, -4}, {12., 0.}]}}], 
        LineBox[{{{12.2, 0.}, Offset[{0, -4}, {12.2, 0.}]}, {{13.2, 0.}, 
           Offset[{0, -4}, {13.2, 0.}]}}]}],
      Antialiasing->False]}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{
  3.522634108812789*^9, {3.522637869228485*^9, 3.52263788854259*^9}, {
   3.522637979738806*^9, 3.5226380558191576`*^9}}]
}, Open  ]],

Cell["\:3000\:3000\:3000\:3000\:56f3 :\:30dd\:30a2\:30bd\:30f3\:5206\:5e03( \
\[Lambda] = 2 )", "Text",
 CellChangeTimes->{{3.522638062002511*^9, 3.522638063394591*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5e73\:5747", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"poidist", "[", "\[Lambda]", "]"}], "]"}]], "Input"],

Cell[BoxData["\[Lambda]"], "Output",
 CellChangeTimes->{3.522634108889415*^9, 3.522637906047591*^9, 
  3.522638065912735*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5206\:6563", "Subsection",
 CellChangeTimes->{{3.522638067657835*^9, 3.522638068953909*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variance", "[", 
  RowBox[{"poidist", "[", "\[Lambda]", "]"}], "]"}]], "Input"],

Cell[BoxData["\[Lambda]"], "Output",
 CellChangeTimes->{3.5226341089616623`*^9, 3.5226379085547347`*^9, 
  3.522638070690008*^9}]
}, Open  ]],

Cell["\<\
\:3000\:30dd\:30a2\:30bd\:30f3\:5206\:5e03\:306f\:4eca\:307e\:3067\:307f\:3066\
\:304d\:305f\:3088\:3046\:306b,\:3042\:308b\:5358\:4f4d\:6642\:9593\:306b\
\:8d77\:3053\:308b\:7a00\:306a\:73fe\:8c61\:306e\:78ba\:7387\:5206\:5e03\:3068\
\:8003\:3048\:308b\:3053\:3068\:304c\:3067\:304d\:308b\:ff0e\:4f8b\:3068\:3057\
\:3066\:ff0c\:5358\:4f4d\:6642\:9593\:5185\:306b\:304a\:5e97\:306b\:3084\:3063\
\:3066\:304f\:308b\:5ba2\:3084\:ff0c\:81ea\:5b85\:306b\:304b\:304b\:3063\:3066\
\:304f\:308b\:96fb\:8a71\:ff0c\:6a5f\:68b0\:306e\:6545\:969c\:306a\:3069\:304c\
\:3057\:3070\:3057\:3070\:3053\:306e\:5206\:5e03\:3067\:8fd1\:4f3c\:3055\:308c\
\:308b\:ff0e\:305d\:306e\:969b\:ff0c\:91cd\:8981\:306a\:3053\:3068\:306f\:8d77\
\:3053\:308b\:78ba\:7387P\:3067\:3082\:306a\:304f\:ff0c\:8a66\:884c\:56de\
\:6570\:ff4e\:3067\:3082\:306a\:3044\:ff0e\:5e73\:5747\[Lambda]\:ff1d\:ff4e\
\:ff50\:3092\:77e5\:308b\:3053\:3068\:304c\:306a\:308a\:3088\:308a\:3082\:91cd\
\:8981\:3067\:3042\:308b\:ff0e\
\>", "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6b63\:898f\:5206\:5e03", "Section"],

Cell[CellGroupData[{

Cell["\:30d1\:30c3\:30b1-\:30b8\:306e\:5229\:7528", "Subsection"],

Cell[TextData[{
 "\:3055\:3089\:306b ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:3067\:306f\:6b63\:898f\:5206\:5e03 NormalDistribution \:304c\:7528\:610f\
\:3055\:308c\:3066\:3044\:308b\:ff0e"
}], "Text",
 CellChangeTimes->{{3.5226381248751073`*^9, 3.5226381402779884`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nomaldist", "[", 
    RowBox[{"m_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"m", ",", "\[Sigma]"}], "]"}]}], ";"}]], "Input"],

Cell[" \:6b63\:898f\:5206\:5e03N( 0, 4 )\:306e\:78ba\:7387\:5bc6\:5ea6\:95a2\
\:6570\:306f,", "Text",
 CellChangeTimes->{{3.5226381511066074`*^9, 3.5226381522906756`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"nomaldist", "[", 
      RowBox[{"0", ",", "4"}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk8Ft3fB3CEZC1ZQoVraBES4Va6v4OEKCJLVGRL5We5yE63JUt0l31L
kShLZL2u8VNnsoSEyFIoCmUrW9aUZ57X63n+mtf7j5k5c873+5nzOtL27qZO
bCwsLAKsLCz/ew3+dmp+YwMjldXOPJyd94SvgSKLA+sYec2p6GYyOx1Obx1a
ZqxiJIMvbVlfhA5SGh6/3Rcw8pVaaOGABh3qbiVwDX/FyNfBLsfLQunApdi3
m2zDSDFBEz5ZIS9I8rYz/CcTIw989fH5z3FvKGL1esSijpGqSnMTAd0+8JdZ
IWe6CkaWG1WLDUz5wKtHn10OKWEkfuc+n/EmXxjWM1Gw34+Rpy+We9CVfUHk
X4XqegmMdFPa5fok3hfCxMebIlmo8Q+pBA+Y+YGVyoUp3tc0clax0O7ZN3/g
cNJTFrtAI/nMo1ILjIOh6+Ihy6lzNHJTLpeux9VguG8lEfTcgkZOqEy9OHkz
GNSMZhovmdBIjkza30f/GwzOKqnnCnVoZGeZlQ/PvhBoZv32z1E5GmnQix/w
5LgBcfcjOy4sS5NsfjxKry//A9vfN7o+jJcmudw9yLwzYWBan+Gw/7UUecKU
7VJOUiQEzhxzvTsiSfY6xDj5b44Dpm/G1VLj3STb+CfFktW7cDrBXOpP+k4y
zcfickhhEuhlPT+tPy1OtvH78tS/ToP8Jv9eLxsxkl+DZZewaBZcjEgS7ngi
ShrRnro/35kDIXabSni2i5AfLjN+b2LkAouCJNK5KUROl4nsDXTPh/7Y9Kii
HkEypbB/dM+tAtjJ7VLwU3sb2VB7nrERXQzXVOU4BnYKkK55ve7PukvBQf3T
k/p6HnLkruu/GzfLQM7vyIbbIy6y2un+PuxXOeR8NGvw1+IgC5eFxA0CKuFb
qLCm3g42cs/fz+m36qqAO7h0JpGbjZxpnStra6oCRT+D3OF1VtK6e1mdv60K
fNyCuQM+s5Imh2X4o/qqgNNm7H1xIStpKjOSYTldBTKHq64LHmMlG2SxFU/h
arD/erb04yUWMsiyliPAqRpqkvfpjlv8RvJx9/hPrVcDl803B1bN3yi9p9OC
YGGAhVR+mLj0b9TcVXCZxsGA+UKMNJpaRwqqd/on+Riwn9x9tOzGOtKKSm4+
K8mAtEmhQwFPfqE370TGbmkx4Dqw7uJdW0UPHrc6eIYzoI6dPCo7tIr+O3gw
lx7FgK2vQ6z/blhFfv5HXDxiGVB8dj3V499VxIzTCbyUyIDRK8uCPTTqfu+Q
22K5DDBN+s5133AFqS25Fg69ZIDSxIefB7OWkHpVhmX1OgO8ZxX2i0YsofgW
ueTNLExgLode+HN1CdlGf0kx38QELU65V2/+WkJS5nPD37YwwRQLSL3SvYg4
eGecx0SYcP2C+JFcnkV0KK1jVVuJCTWd1jdEAhZQt6p/UIgdE/68L6n4bbeA
7myODXdyYIL2MNv4qN4C6mlJoBk4M6H1R6FJhfACwsAa43RlwiDPL2mTsnlU
m7zAY+nLhA3dzIaY8TkkdPa8rdltJhyvGdjy22IWuddwxT2tZkJJYZ5G09FZ
ZPM+TMWaYMKOTPcr8VKzaGrmRjFbLRN6lzkTDLtnUGWyHZ/eSybIBlpszVr7
gXYEvXTIamVCXegiL673HWkbqyrfGGJCin2Ma/fW76j1itap8c9MuKKz641L
/zRSVgeZU6NM2MqhGxv/n2lk47vMwj3BBNvopC0jiVPoV7icqck8E9b/VeGM
HJ5Ab4bOa/GzE/DWvclJvHACDbhoRClzEpBrYtNY4jWBNBvzr5tyEXBSMDyi
j3MCcfMX6t3kJSA9uYttv8I4cjbhzakWIkDtnudGq/9XxPsnXE1PhgCPgtKV
bdtHkGWSTMcOnAAlfrdw7eEv6GT492PJWgTM0eX5vZ5+QfmhAs18OgTQNQuw
br0v6G1K1oEFXQKudzw8nRL0GUnf3dh5x5CAhckDBqpvhhD7XLUojwUB3pVP
LqY4D6HS34rf9S0JWAqW9V5mGUIvx9vehVkRsLJV8gGh+gmlJ6h0TVoTsK4m
uHjswSAyDJwKj7UlgDN8JfsE/QPqMgrVEXAhIMroevVj3g9I0lBtku8KAVwi
861cj98j44TKdK6rBHAXTC29HuhDocZq2+avESDQ8cnIWLcXNc73mSe7E3A3
zcb+2VAPWnxipubtQYCg/XvfbQE9aKJcYqexJwFCi50P35V0o+DKxcUVOgE7
JBpXLHe8Q5/r1/t2+lDzOarFT5R3IdcLq30DlMVLXmDip7pQYo9mf4ovAbu0
mKcHQzuRmI7GKIs/ATrtFgYvezvQFc8+9rxAAk5cMvEO5+lALMfa+I4HEaD/
0+CBLt6OeG4FiQxRNhI/tthS8AZ9eT4quyWEAAtnLKcrqAX51JmoKvxDwC1P
r+iEqmY0EjGFCig/D6p3N/3RhDqURTxooQTIJDr83WX7CgWMaeFcYQRY3a+Q
TUhrRHUJ/bbXKccWbOIz7WxAP4KUH32iPI9yBzq165Fqsn1GXjgBe1oX6uID
61D7lWHDTREEnOvVKTxT+RLdanaRvkCZnB7x65QlUUbFsjrHTQLGZy6TtOcv
0KPxMj8zysacXHceKj5HfqsfB7Mo71bRl3+4rQZp6HEK7I0k4KbB+Jp0OBNV
KDcMOlGeto1uyflZjY5Z+rZlUzbz2Zcm7VyFKn+wf+6jXBPX7JzTV4FoP81E
eaIIkM51UZU2KEcd2CmPI5SjCS72nJpn6Pyv/iknyp8enMnTsipBzcREzG3K
T9/Ea2sdLUJRtpdPllEOXO0cwnc/QbElOgqdlA32CAbjrHnIXM5D+TtlUTNT
cXw0B62IDp/jiCagdUPG/ca/WUgxJDpXjLLLubyCkLOp6KysnYAcZfYK2dFg
8XgUmGqbpUYZFzM6tkbeRC5SoaeowcFsWrrjXDodpbeRkscpB7ElNZ746xwY
ue0U0qWsmOHQJKR2A/wTE+W0KX8SK/vBIxAHg3f2OhylbKbyvjZSKwmmfAee
K1Gu/mAZFhWYAf3SlUdolPnIKazBOhsSZJkfBChDYlFkg28uVAzOZKxS3+Pp
fG2iISkfbto7hQxRfqhxwKixrADWEmUiXlLu5p0qaWwvhnsCR4sfUOYcLtz2
aqoUolSZS/6U751TPeIQUQa2e586mFBW1Um+NiJYAXiz/AKNcrv84j2HnEoo
rTXMm6PWi4WlasPhBQP4Vus8wymnTwgdGjUiIM7kVNwJysrvvO0dB2ogUXyg
hYOyY/7hRseV53DX06/Ej6qX33eSlkYjEUSLNJvLU27VXEssv0XC4IVMqUGq
/hz3WDcqi9VBu6GdtBJlJQnuT/ThOugTyLbspur3t0DNUvnjenj/bKPMm3LK
qtg+FbVGGN7c/q6AqvemNx9uqZg1w66AnrdjVP+4+PU32RxoAfuz3al2lLlk
BtgjNr2GlT9cvb03qDwNHAzprmiFK8maRBXVj2/2D9GvC3VAfLsndozqV9ee
odKs6Q7Yp11RnEj1dyTusWRv/xb8F2pKxwII2DvtoRJ7pBMiJRJlgqg8cNGh
Px2Y7IIHj/Z206n8+Ct9vnXG4h246Ruq5V2n3j9Dn9xU/w5s222F33kTUJDh
tVc+sxsyru82kvYiYHLOOyfIsBfcedueRFF55prtm7yr+AMU7L9/O+gyAZpL
yxWHdvSDptq9FWdnAniN/Lp0I/ohVrJ43MiJ6odlPwG38wOwuvWCNY8DAT9O
B8S84P0Iac+4kk0vEsAMefGiVG0YVubclrnPEpBd8KeNcB2GTNV9G09NqX7r
/vtj/cNhiGbxSjE6Q+WLHPrVx/8ZepVKfYJOE7Dag/5i+fYZzkR/EXysT8AR
hZflJqkj4FHbe3WfJlU/3b0pL1pGQOCM+c/sI9T6BU4HyK+PAGNYv0hYg8qf
FlEdrkujcJfj2qMFVQK2O7m9Q3JjoLzC8j70IJUX9yR+Kr74ClPmBt+/SRPw
gNdHlW9sAo5NvPEY3kRARkWsWKDoJPw5uXxgmJVaf+uc3+MGkyBvUqM4uMGE
uCdvGhtKJiEhE/G3/GKC33HMIshvCoRlxMx8Fqj9SNBbnyme7/Bk13qD5Bcm
sPkIDzqKzcLrcn/7Kur/b21X2MU8PAtM+49beWqYUH4SWnhNZuHAskTUeQYT
7CWvVFdGzkLS84m382XUfqC59i77z1l4a3aD7Xs+E8IlHHUftc+BXr2BnNhd
JrC/LC8ZCV+AnKzNdja2TDhfpJen/mAB7ppkrMmfZ0Jl8mBmbM0CqLdy3Fmz
YoLjVc4YlbkFcDE+WBxjyoTG7dYO4Rd/gvCZym++ukyIdGbdgWksQnDA/olk
OSZs5jUJtf+xBBby6o9H5xhgtdeaVNuyDEUfv4if/MGAQm3HDW6ZZeDzoo8V
TTLgtL9fcMW5ZXh7KTbScYQBKV+z/dkblyF4hSZf2M2APS/nPPMzV+CPknJ+
dDUDdH0S7Sf112B/qGXFA18GhA/36tBzf0N77aRA/kw1PMuMNAmZZ8UrrCN8
N3dWgftDx62jFhz4vuomFXnPSrh4NWNXVCgX/nO68fBWngqIOeOjoXKPBz9/
+0Rkc1oZsAslf72xxo/PJae4TiyWQl/rzdkIgW14XEfwX/zTxWAeaK+WUS+I
q/jeUJcqLgBXnilau7UQ3m6i5bWlNh8ki16lcE4K4wkett2r67kQyNQxE8gU
xRtr3nuFK+eAR75rtdpBMdy5tJmumpoFvGzq9opj4nic65S74cc00P3P2WS5
xJ242+5sD92aJNhB7HLXldmNj0RxpCaciYcEenS8Up8kbn4opv+VchyYRhor
ZFVL4cIu743MtkSBnE2E+aNgaZzPKpabhxEG5zyrBdlDpfGDUr3xHXlhEB01
3uEQIY1L2HMVZCeFwViF0UksVhp/Hanp6UIPg2xeYXiYJo0ruGh03FYMA+EX
efuyK6Rx63RsRq4gFFikm35lTkjjxsEan6Me/wO9X7c8TDSn4V4xT9KwO8Hw
6mzMPcKKhqd59NlFeAdDdR1X6pANDW/zMkxdORcMKfc3xx2wp+Hbg1v3S8gG
g7kFh0+9Gw13rI4a1qsNgu5GlpMLUTT8geJ+N/UfgdD1aHnOtIaGR/WIv1Sw
C4B2+zEtQUkMzzD2rXcN8IXP7I9XkmkYvlKbrPf2ki/8zHcpFduD4e2VtWIG
Br4gNjW1U1oBw73kYr0DdviCo9f88sGjGD5Famf2M3xgLXzj6SlLDHd67HP1
5tp12JMnJh5zB8MX7z86feCON2joDbzlTcTwiAyOckl/bzCauBd1NwXD9Xmf
tux18AZPBanF1CwM39wiOkJX94baqj1v84uo5/f32SwMe4HpK5XIhiYMV7V/
bJWg7gVOLoua+q0Yfmhr2/Zamhf4cTMWWtsx/EiSB7HC5wVZp49cetdDuV80
oXCUDuO9uOaXEQzf+NUuPpNAhzU/tgWnbxj+1ZvZWhJCBz6JhoKJSQy3az+8
KfQqHZRt9UTn5jB87MSe7vPadNBl3dLuvYjhFajurLMiHaxyX0esrGA4/QMu
FyZOh6u6cUeD1jG8KO+o/jNOOvzf+Qb+/+cb/wM48lg1
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-10, 10}, {0., 0.09973556271546008}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634109375016*^9, 3.522638147871423*^9}]
}, Open  ]],

Cell["\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:56f3\:ff1a\:6b63\:898f\:5206\
\:5e03 N( 0, 4 )", "Text"],

Cell["\:7d2f\:7a4d\:5206\:5e03\:95a2\:6570\:306f\:6b21\:306e\:3088\:3046\:306b\
\:306a\:308b.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"CDF", "[", 
    RowBox[{
     RowBox[{"nomaldist", "[", 
      RowBox[{"0", ",", "4"}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1nkw1WH3AHBZQmSXLpe7fEulbElF6jyRFJLsIsr2CtHiDYlsSVkKyRZJ
liRJyhLlsUeKbC2WVPblfpGthd77m/n9cebMZ+bMnDNzzh+H4eBl4szJwcFR
xI7/ywEjR2b//SPwQ/737UZefjDsv26+5y+Bc9aoi0RF+oGRyNfF0l8EnoO+
tUO5fkDXOLvs9ZPAy9Qb2eMDflBzI45vYJjAmmbRzQfNLgGf0kc5/I7Aa7gf
aVoif7jtfdIgKJXAsnVX1gYqBcAy3xYj2yQCS9t0lZ00CgCXtBnj3QkETgvr
l3HwDIBdDSEW0zFsP3zkXv0kAL5IZZ86GULgX6IZI3MqgUCvGPNBpwm8GO++
VXfPFchfdSGLYxd73gx5E7nnQbDb9NHqZDUCX1Mt5EpsDIKGrG+uqioEFthh
8IDoCYIBPWNFhy0ELlzaNO3LGQzrYhRLamUIPLocmSJpEgwh0qON4RwE9nEN
JOTng8FK7cSEYDMT9ynb3ZM1CAUeZ73tlBNM7HVbcs5UMxza7VQtJ6yZOCAh
zubRsXBIt5K5/MqCiT2HB8XWnQ6HnYZk/SljJl5rLPpUMSkcXNQSrR/pMPGj
/W729ovh8GbVSNAeBSaevCEZ8qX8GkSlh7eeWGRgvacwlHH0Ooh/qvfIjGXg
ioYTRsI1UYC33o8Ii2Hgz151Tbn9UeBx5XKWSyS73ia3xupPFDTIq/UqXGVg
zTFTL271aLj03wyDYl8GHnzZHx6WFw3fxfwV6uwZeCLUz3pnYgw8O6IyOqTI
wLkFJhkT2rfApDbFcUszHfdv+HV30joONnQO9jc20LFXpbqIwJk4WBhUOu5S
S8fRe59c1gyKg+TVtcYPKunYrKPXqyUnDgYOT+yVLaRjXZtvPK/n4uBM2571
orfpuFKjRe17fDxE9PW2LJ2gYzHIuR789Tb4k3s9bv2gYeK5dzV+kgh3T+0a
RX00HO9skDtUlwiVHSpOM900bCjWuCTTkwgrpYStSTMN5ylm8b7iTYKQIH5D
iSIaboo4OPfhVBLcEO3amhRIw0adVEFjSjKkqHlM3KPQ8O7pi21DCSlQ5pPi
VnhUDtch8+11jWnAdDqX/emQHG7trZzsGkyDaONDA6u05bBRqKn6v1Xp4LBl
wdxshxxmCfE/TNJKB4GeY/t/rZfDFkt/b48+Swe7ffzrdb7L4uxBRgZf1j3g
4vGt7/aWxSqZ+rrmLRlgFGdOX0mmYkfLXUbaI5lwabvwYb14Knaztee8v5QJ
Oe1vzt2KouJ2ydVYcM0DWBHTqmVeoWJT++zzAooPoCCe6aLnRMU/LaXP5Vx4
AIIJZP4tJSou8IsqtuLKgubE67uIWhlc37TdsW9bNuilvTI6NCmNNdJm/Aby
ciGn0a/7gg0Fh6ZuopJTj8Eu7LZk60MpnFoX8r33QxEEnuR6IiC+Dpfap5/g
8nkBHIq0Kp2rErjWdOOYfkw5fIlMvpbfJYZd6/o3vE19DdQ1rnlz2qL4Cd+0
kO5CNbirK/D0UIVx82eJoyWK9eC4q/9hba0AJpNaM3wK3oCCr+Y/zyw+bHv1
8f3ovS1wv8+0zm8/D+bu/PMzQr0NRoIltfTWc+KETufjnwza4WXCZt1Ri+Wq
Nwe8i42KOkFl7POcctpClUGZblP6lo9w4GUP/7LFdNXHfceeKkV/hrN5hUui
4j+qBCnUypvqvWDhQtxvv9xUNTMnH1z9sh8aWz7fUDN9A5uCRavVUwdAU7H6
mXHiDzDtOmyjPfsNOC9K9jpRpsF/t1BtiOIP4BU0DnZgLcCt5HXxTpcGIXSg
W+f8g2WwcyjyFn8xBE9Tw40DZ1ehnojOmp3vhsEr00lk0IIH+aYUMyUmR8DO
LUX2WjAf+s0yFN43PArXj13UULsrgMJC9SUbm8aAWyJh+MpvIVQUKdPK+Xgc
Pr69Oh0mLIoIqR3zlu4TYO7vsDOlVgyd3/ZHwHDjJHgITDDfH5dAJh3/vmpW
TQItv+HO6nFJdPPPnJ3LgSnwL9MxFU6VQo6R3DMSNVNwNsejZKcyBW2cUqMv
y7Ogv1UmQWgnBRF6Ewmxm1lw5FfzhWEtCiqIdvuzQYEFCoZbVO/oU9DgWZ/E
Q4osGJwZyp93pqAarve0UDUWWO61v//8LgV5WH3+UA8s2Nd5LGr7GmmklGle
G2bJAkHOXQ5KQ9Io7mGF1aowFpT7cJkOT0gjnpyEZaOrLHCZatVJn5VGrp94
S1PDWYA/uW4U4pBB5lqOp7dfZ8GFwpTRKWkZ1CRS+dEshgVfbFc8C4xlEDbT
0PBMYsHD0nr/bZUyKNHYnnMhnwW6Z8wSFOKpqPsmr/65NhZ4x1VweCVTkZdr
22vvDyzIKmV6FN+jIoV55UCfdhZwcs5oaz2mIj15kf5Lnez+d6Knj9RTEW94
/1a/TyzQxA0G5xapiGt5wsBsgAVK4hqcZTayiB5PWwknWbC+XNZLd4Mc+hG8
WXRGgIQVx1wZ0a1ySKogW6JXkIRBIdU3vapy6F+Rhm3DWhKeOh1geIMcOlpo
UZ4kTIKeiHtH5nE5xCehVrpDnISL/ynbxRErh0Te5tH0pUnokjTlqFiWQ2Zu
s7emNpEQdz4iVuUjDblntksq7Sfhd8vjsog+Gpqllb0YYNth04evAz9oSPt+
/Zs4bRLUeilKsdM0VKGQfXheh4TxTPOhJW462rbqelXxQRKiBEeCreXoKPaI
at06QxLef+WvkD5GR8dX93j6WJBgEn5UMa2EjqpMX088P01CjvX04fJyOrJ7
UL2k40bCr22xLl2VdDQn9iy2ne2MjvZ7a2vpKFkgwJXlTsIU3UIssJWOzBXz
iuieJERU2C7ajdKRDfad8TpPwuvp09V0aQbS2dsnXXGJBAWbMPOsAAY6neR4
SvwGCdbnSsS4gxnI3WrlbCzbEddGWx3DGChkrb+gcCQJQ8WG+kQkAxn98Rjl
i2L3F5SEzCQGGjc4s3cxmgTJ19mbM4rZ9bIa2a9jSeBgNP5JHWOgQGe5wt9J
JHQP82fGmzOR3oLKYY0cEhrMrt8tt2Kiryx95Ttsl9TwJX61YSLepmfVs2zf
SeeN2urARDsDTk4+yiXB3ILnYq0nE1n+7rGXyiOhs55D/+c1JrKtUJsbyCeh
PWtxxuQlEz1lOV3YXURCjZjPpO8rJpoVP2MZyfazoIXhdMxE/ZxKZB/bcbbz
PeMNTOQ9XqUZ8oyEYxI/60M6mMhum/OhxmIS2kJZyc8mmWjZx95Lp4S9L4eh
/WI0At06aHeBp4KEb9y5SwlMAjXubnxryfZcjmshRZ5Ay1e73+WxTZmYoDIU
CWStIN5mWEmC04XZReU9BBq+sqkr5hX7nkL/FRyxJFA/PzC5MAny2RTp6zcJ
1MO1UvOkjgQNvZ42wXgCJTsX9C2wbTh299qtOwRSHuHO31dPwjlF+nxiGoHq
67DdO7YrX8i35eQTyCNiRnWkgX1PDWrhdY0EMnJtrxFsIsHZdV7r0FsClSgI
bTZm23dN6c+37wnk9EX5QDzbaUaapzq6CORwWilzfTMJo91I6/sPAikFGv+l
vWXP68v503mEQLlS87RTbK+VqcsbGyfQyGL03/tsb7fXk5qZIVCHb8Y3ZgsJ
uqv433vPE8gsM3XcgW2rB81hS0sEstoQU5DJtptu1J7LfwmkY1Gm8J3t//9/
0ZTjcQfGOxL+B6DeVoA=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-10, 10}, {0., 0.9937903328856216}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.522634109452393*^9, 3.522638158371023*^9}]
}, Open  ]],

Cell["\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:56f3\:ff1aN( 0, 4 ) \:306e\
\:7d2f\:7a4d\:5206\:5e03\:95a2\:6570", "Text",
 CellChangeTimes->{{3.522638163506317*^9, 3.522638168682613*^9}}],

Cell["\:6b21\:306b\:6b63\:898f\:5206\:5e03\:306b\:95a2\:3059\:308b\:57fa\:672c\
\:91cf\:3092\:5217\:6319\:3059\:308b.", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5e73\:5747", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"nomaldist", "[", 
   RowBox[{"0", ",", "4"}], "]"}], "]"}]], "Input"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.522634109510524*^9, 3.522638171998803*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5206\:6563", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variance", "[", 
  RowBox[{"nomaldist", "[", 
   RowBox[{"0", ",", "4"}], "]"}], "]"}]], "Input"],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.522634109573868*^9, 3.522638173944914*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6a19\:6e96\:504f\:5dee", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", 
  RowBox[{"nomaldist", "[", 
   RowBox[{"0", ",", "4"}], "]"}], "]"}]], "Input"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.522634109644239*^9, 3.522638175697014*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6307\:6570\:5206\:5e03", "Section"],

Cell["\<\
\:3000\:3042\:308b\:30b3\:30f3\:30d3\:30cb\:30a8\:30f3\:30b9\:30b9\:30c8\:30a2\
\:306b\:306f,1\:6642\:9593\:5e73\:574710\:4eba\:306e\:5ba2\:304c\:6765\:308b\
\:3068\:3044\:3046\:ff0e\:3053\:306e\:6642\:ff0c\:5358\:4f4d\:6642\:9593\:3042\
\:305f\:308a\:306e\:6765\:5ba2\:306e\:4eba\:6570\:306f\:8fd1\:4f3c\:7684\:306b\
\:30dd\:30a2\:30bd\:30f3\:5206\:5e03\:306b\:5f93\:3046\:ff0e\:3053\:3053\:3067\
\:306f\:ff0c\:5ba2\:3092\:30e9\:30f3\:30c0\:30e0\:306a\:5230\:7740\:3068\:307f\
\:306a\:3057\:3066\:5230\:7740\:6642\:9593\:9593\:9694\:3092\:8abf\:3079\:308b\
\:ff0e\:3059\:308b\:3068\:ff0c\:3053\:308c\:306f\:6307\:6570\:5206\:5e03\:306b\
\:5f93\:3046\:3053\:3068\:304c\:77e5\:3089\:308c\:3066\:3044\:308b\:ff0e\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"expdist", "[", "\[Lambda]_", "]"}], ":=", 
   RowBox[{"ExponentialDistribution", "[", "\[Lambda]", "]"}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"expdist", "[", "2", "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQrXjXd/P//+/3M0AB28vamMx3CP6rL2tZL99B8Dfx
8EUs24ngO9mc++NTjOAnzfZzm/XsHZy/KNL/psnZt3C+8rWA/5mzXsP5LzI0
N6tdewbnZym0Hz+Q9AjO//cxTiOT+w6cv+5a1MSvky/B+as5D5VV1hyG83dM
6b/2QB/BPyYfa+bx+BCc/8D0x1cxLwRfLEmvdIv4QTifpdT0+b3UvQj/Xnv2
4NSlzXD+2TeNC2ZaIvgvmGQTMhZsgvPl9IPvs+ZthPOF+Ot3Nwqtg/MPFBhs
za1fAud/m5Nmwu27GM7XOTln8wqpRXC+nrNQyvHs+XD+7SWHYzffmArnu/3V
j3lXPBnh3tA5UZr8E+F8Qd5X6+y6OxDu3Xto9ZaDzXB+7V2zwNAPtXC+lv0L
L8fYEjh/g6NxZ9SUVDh/koonECXB+QB3C6N3
      "]], LineBox[CompressedData["
1:eJwdl3c8F973x+293ry93xURMspWRtL7HCOVlZWolArFx8gISaGUUWRVpCQl
MrIKmckqIlQ2WZG99/r6/e4/9/F8nHPvuec87uOe1xW65GxsQ0NFRTVETUX1
f3PswRz58wotQPX/Yxpml1qVez63QEe3SnyO0xQ4M44fHhpqAdZnoe6OJ6Zg
nESFk2ytIDtG8DHdOwV/FSWOb5q3gvx+A/23HZPQ5uZlLjDTCrwe8XomJyah
ZGrHjfNC7eB7qUPsrcwEBA1bFPb4d8I3UeesFvIY/Km3+3khqRPym2SWWldG
QenDjfHer50Qtsbntto5CgN+sQIDnF3AFRPjmZgwCpRd7XeGX3RBJX9Gvrfk
KCzometOf+oGzWNrRVLHRuBSjlkX9ewfOJG7zv7m8TCc08v1Lmfphd/XM4oC
bw5DEBxmvMPfC9MRiUZBF4ehR1R3Dy32wofMG3l/pIfh4ay9MX1gL9Awuo4P
1AzBvwepecy8fdDKZv9ZjHoI4kv3+XLL9wPJayz7S+AgHA1sfHNDox/ieE4e
8nYZhPGTnrW9Jv0gfVhu+sTZQVDtq+TN9OgHSaPAu/Kyg9BKa5WuW9wP4kZ3
rgq0DQDXiSftAccGoHX8ZI25zADc+UlzcMlyEF48bdJLHOuDfc/fWZx3HoTj
L6W3ZNr6oNHa0LfKbxBMFmbrGyv7QGDxRW3U623//ZI2JvF9ULTj0EW5kUFg
62jdNDLug3lL5zA797+wsOuWiVBpL9j86/zXGTIEhldvsPUf/wNvzwxUlrwY
gmcPn8qy7f0DQ99HE15mDQFrfFr2xa0esM1eMb/cMgRHGd4zhOVtszf526jQ
MFC2Nh2GxLaZzeTdSsEwlJ5xyrXn7IarcrV25OF/MFI7JO2y2QEpiU1HV1b+
QWsG79uUng74R2wX6mQbgTBexxD6sg64ujLcHq8wAsJvgodl/Lb5C72O2O0R
8KJ3kzlM1wF2pur7FXlHYSqr1pHI0w72XgWjxppjQEq8Up+s0wrkliNGM6Zj
0Fcasckp3wqVByryH9mOwUO+fwbR5FYQmKoP+B48BnH3XzVND7bAT5sBAe3G
MZintWZY9GsBNRMOk0OW4+Ar4/2TVPobOGSsiwQ9JwA3Lrb+1f0FRQ9GhEqD
tu9t2enQGMVfcHXEKejcswl4X/Ox8rLgL/jy5sap2JIJsJDn0dOc+wmefI+m
uOkmwXQ8oVnk+U/oZSoUYYiYBI7g+q8ms82QM8D5cDx1Cg7IHrlektkEy6ML
KfSlU9AiLvUk41kTUGY7qwSapmChivF73r0mqKNK2TJcmoILdLJbPOeaYJYj
4VOH0DQIJSceW2RuAhYpFWlwmoatx0WLaN8IqrZXiUyMM/DHYb7T1KsBuu06
E6O5ZsD1zYlGVtMG8HM0kBfaNQNRFv6rE7INUO1+0EBVegamlahFDvyrB+O7
VEEOJjPwWe2GQtGZerBPiFlrfDkDaael7jw59h3iOr72x6rMQt9T0cfiUAvr
x+tKVtRnYUVbicVrTy2cy6+PsdCdhTPfbC+MU9eCQHSzwc7zs7AzN5IGq75B
on5XYczdWbgTlfsqTP8bpH6einzaMAtFRd2hSdZfoeAtSfOx9RxIcxxgfZtW
DTt5dwosOM4BhTTdujeiGrzv8q2Yes6B61HnV188qkHNak8mMWQOLnfOx57R
qIaynfv5ojPnIFaHT3G5owqqHx6Zi1ydgz56QbU6QhX8crV+HR4+D6O29Dv6
oytgvCWpwiB2Hlo+SAQE+lYA7eHhAbbEeVC5/eqQln0FKNDa7w3O3eYiPj5a
rIDwKOck/5Z52IycX4oa/wK6H7yTXfkX4HPw/WvjJ77Al4XwNNOUBUhLfnq/
kVgOHRbNddzZC3Ck1WxWlqYcZkp4xhs/LcB6Mrx/PfUZ9tx/IqVftwBfdrGW
1tR+hluk5xlHJxeg8KtS65b/Z1BRTs5UOrgI5juNSar/yiDTqyR3x+dFuBi1
V3j2ewlEysvKRn9bBIrq61sf3pWAx2hCKufPRfAazruXcL8EKOcCXjEMLULU
UF7LPJZAA+g+mmddAiXqW2LB+cUwydBu33h6CXZF1D1QSi8CqcfzQkFTS3D4
pNgxq5xPwGVg+4J2ZQmclvM31qM+wTxD2w5fmmWIcc9/XXL9ExR7FXF68C7D
qw4lYuqhT6B77s7G5cPL0KP5bmJ/RQHYi3C1Q+AyvPdMOp3SlQ8p2ZLhSwIr
kMjFes9bIg80rLoMm8RXQFpZ6zodVx50c4QS0uRWgJ3e3vbd0kfgdpiMPK+x
AoWfz//SrPkIPmLZj6tsVkClWf9N/pWPcDJOKS4qfQVor5u988/4AIsB6m9l
VVdh822VdYduLoQfmLVl1lyFnmONu0KVckGyP1F8QHcV7CZmTE8L5YIV0L17
YrkKjJ/KJuSXcuDbSnXaht8q1Nu/61t/nQPPnfSy62pWwYtTNusndQ5omp8u
vnJqDfq77rm212dB6lmVts3za0Bs2xfw+VMWcF3YOf/46hpE3WF9WZaUBT02
nZKVN9fgbGLGLfrbWeDtdiFuT+IaTITOlKfLZkFO2BXv9sk1eOR7vf+VTCbs
qfJU0Q1ah4ddw9M2k+kQ+NXctD9iHQb9RRi/16XDZN2hazfi1kFyTcv37Lt0
KG5eS05+vw6B8j4/FqzT4XSvL5nu9zq8ue4azd2Ttt1HAxeLhTbATi4l+ktr
KmzIx3yQKdqA11FMe/KHU0A4gWl3bOUG3N3RcMWrNgW0OW7co23YgGeqQwzn
MlIgfNTCrK13A9jeTr8LdkuBva/5lv0ZNuF694SoN3UK6BBfHv5ttAnSE9Ov
QkWS4cli0peb/zaB6b/Ck9d9k6DImiQ5NLMJyvzKbUq2SdDbfD/KcG0Tps/o
0JP0k2Bf5hVrUY4taIwT+iLFlwTFV/Yx/DiwBWmWC9QFBW+gvy39hLDvFvg8
bl4WX3kNT7strg6yUOGS/P28oLBECHgkX3ackwrfVnF0HvBOBFd1ZlIGDxX+
/aiivWCTCAZJBRXX+alw3WosrPBIItA5kgUZZaiwfXBFS2/yFbiu//q9z2h7
/QsLN0+TV6DHZ6jp/JQKRR/MROtKJ4Bqvfizn3FUGIaBqpF8CSDuuzWtnECF
B9ptdceZE4Bm4H081TsqLFOj+vCh/iV8SmVfjSikwhJnyU/Kmi9BTLUu60M3
FWqaBL7RUowHKgttgVURagx0Z/5ldfA5mCrmCZdIUOMOqVqDPu7nkEIQE/eT
psbvPSGRwTNxYFhLL8egTI0rghoFhplx8PJwlTq3DjVGvz904YNUHFAEtGz2
X6PGnQUuf1NknoHPgHr6mWJqdLXZ4OMyiIHGsuys3eXU2JxmeVRBPgb2Phf6
2FtFjYW0gfkexBj4bkpdavuDGhv47/206XwKfNWff7j2UyMd7z//NvunUJgC
cyFMNHi7Npsw8egJLDseUS0ypUGpZwfUamaiQbxK76K0BQ2K3P6b8rAjGsz4
zwW9tKRBdt6ytv8qouFDrXfLXVsaLBAr4/R8HA0u4gWuel406H4850uJajSM
9iqkdcfRIK2bd+9ccBR0mUjwUw3QoNWFUmNt1UhgTVPWdB2mwVN7yvg4xSJB
leaY/eAYDR5rszOcJERCTJZNwdd5GnzLdil2aiQCTrG/No1goMUZ04vLq88i
oKF6d6jwflqsK3icL0gdAeWHeDa1XLZfco003tVPj8BQ274u4Totcil1V3s/
fQQ9xuUx6zdocTg7aXXP9Uew+p/zgQ93aHE2h/pYt9wjUIivuyoSTYssfV8Y
CalhkEgT8JM6nxaTqLUuaLwOhbt18yml67S4rjz2tTTzAXC36XrsoqbDFE13
pjcRDyBhMFHTg54OHel+0Ka6PYDiDcMeaQ467Ewrf0lWeQDzshk8LwS3uck/
4vqXELCOtrl9U4MOOSMtqQS6g+GoZYuJShAdnoyXqlDcFwSq0VUNsw/pcGeU
H30+WxDI1H04kRFBh+Y3hAcspgOBdCgKhOPo0Nhpvom2IHBbfxlKsr2nw70r
PgcGjwdCyPdvNL0/6VBq7+yJj9fuw4/DJdmBgvSo/8ufIbo1ACpd06U09tJj
UU6RyVZpABS8i0tel6DHi1Ze8YFvAyCB7P3CRYEeAw79eT15PQBc55SCzx6l
R5Edk4XcpAAgpmVZyf5Hj/fPyVM9OXsXLHa94WzNo0cfm9uryav+IPFdIQOL
6DEddgd2D/nD8q1yndQyepxjz++S+OkPMX099259pUclPpa7VOn+0JKyc12k
gx47hw6IZJ/3B2PlR/+ubdAjm0wLhfarH+iZbst9LQZUOGqyEGPiC/wMzBfc
jzNgu10M7pb3hbH8p+vdegy4BPz+NRy+EML3UTn7FAPOG46rhtbehq/9Uxmn
rzDgZC0Ta7vmbTjqYvPsTQgD8hxFH4Mjt4ASZuhGaWJA5z0nE57r3AR3e89S
hhYGvNjMN8qx/yakascz/+hgQLUWd6YU5pvAuzX28sIgA7IeLWU2+OYN486B
3/2WGPDgqdN81jreEGdUKlqxmxFjOtIIESY3YJko1XbMnhHXzpU2lPh5gsyM
sQiXMyNqJ88sfbD2BOv6G05tboxIGPwSUX/cE37cq6Gzu8WIy8t9npcInvB2
8ZJ8SDgjKo32FZPeeMCpttiQ73mMWCV581Dgj+uQE8d4xIiWCdezHlf5H3GH
Y9IeMrRMTLh1zO5rvag7dJUOCn5kY8K8BxdCFTncgb6/nGYniQndnzZ3nv7j
BuYSPl97JZhw3nSWfvCOG2x+mDa5ZrDNj+P7NxtcQaeh3f5RLBMGd3+vu+rt
An8uHD+nHs+EunaMfdM2LuA+k6c/l8iEAlZvJ8ONXOAFMVrudDoT6nmO3Nmx
z2W7LxgsCpQxYYhM9D2N9mvwZPiL//vBbfavYx89cg36qNJj6mWZkYpN/tdz
WScwYi9MlznIjDNlcxmJHE5QvvPr50cqzNhB5RX2fcIRXikM/jNSZ8aRDf/q
B+mOcNGa/1CLMTOGa4n8yJV0hL6ah+0915mxqdcuO0jOAfrCHHdNFzFjQilN
grqJPRjF3ZQx+syMl5Zvq/gq2UN5crBGTiUzRhwSV+vaaQ+vPifZu9czo3LV
77W5Xju4ONtduNzDjHqRdW+eXLODvlMGZ6lpWJCTe8XsweOr0Mcv+5z7OAvq
KSfZnlywhQKT35bNeiw4RxJ6u7vDFsJCbgpGGrFg7JshPrYyW1BdrkkknGXB
U4ldhBPBthD50+odlxMLOpyVYgBBW9AKiczjiGZBa9uwp6uGNpCytNDI0suC
Bsp+Dh9rL8NtmeeRtYMsiC/YWjVzL4OpjYZpyAgL1maHMkzGXQbqn2GtzHMs
mI008o8dL8OZ9+I9TAysOEqBvZLcl4HNxmKMQYoVO3JK7llYXYJrzcX0tF6s
mGlM6B3mvAjCATSjLj6sSH2n9j/mDSv4qXi8odePFev++v6GUStQiv35pDSY
FSsJqUOjlVawfmFU3DuOFekdSH7KN60gaIKsM1PKik1WJZXSrRcggckt7A89
G36Y9FlP+2gJxoUFrgYsbPjtovXfxmhLoHXYNCvhYEOBtzv27nK3BNsfwYJx
ZDbkKzGn2XnAEqSeJGSZ7WND1cz14Yqcc1Ag0tBcr8eGr9nkedMLzkIjZR+5
OIoNtf6OxBR3W0BvUt4rYgwbDq40PMwut4AZNi0px+ds6OS6NFyZZAHcnefV
BZLYMHbpnKG2kwWYekb/55fHhoXzuqezqCygNXOrTKudDeVMvATpJc2hZ0/L
1XoBdlR975naGm0Gk4GX50RF2FHnseiJcz5msDU5feu2ODtunc92XbtsBntK
WKNk5dgxrsF2LuiAGVyyUC+JUGdHDy2F0O6fp+BvRDrBzJodhS+IPjHdeQrG
ae4W9rxjx1N3youK8kzgcnTK7OP37KgtSJf94KUJdIg27NfPZcc5NrNxjyAT
qDm+M66omB03V9c+xJ8xgcSwzJsxP9hR7JwprxyVCZze1aVmvMCO7TW1FRRD
Y/gir1hWhRx4aHFPlQqtEahUnFnyOcqB1gp8O5SmDCHT1E/2oA4Hqum7zet0
GsJzz7qXiSYcuFv2VUdhriF4llz087XlQA3lGsssG0OQOhGmfughB2b561t+
jDsJT62GK9JbOdDm9EDy+Dl9+OeQLsDTxYGexxX5c9T0QfWGy40bvRy4sEd3
+hm/PvRErMloj3CgYnc8f0uXHohVcD77s8qBabsUjSbP60GeqMo1bgFOTJwc
Zr9npwu/R4P4vaw50f9e1kndpydAbEnfs+cqJxYmKbw+ePMEeNHyNGs5cmIu
5746tQsngJ//RSDBgxN3b6oR3omfAGv97NnUQE50nn9ZN/HpOMxntn/tTuXE
sLqV3ayDx4Dn+v7rmjOcWNmskfxRXxu+pwXeYlrkxGKbd3ulD2hDQP/gvfpV
TuTIzleo3KENq8kn6yRpuPBgZYW94eBRsOdl6frIyoXBBwRUu32Ogu707Y1v
Alz4+nnpxZRcrW2dfRVntbiQnvflJLuyJlxVf1ppeowLL9OU0ins0YTKrqrj
+Se4sC/wgZ4Lsyb48IgY+RhwYdPBmSns0oAJv+6LDOZcSHvcj17orgY0nDW+
u+s/LvTKNRj8+lsdHhHUqjUiuPA/a/6i/lAEc/vCTp+o7f2Kl4xv30QQrlCZ
yXvMhX4amxYydgh57or8ks+48J9ky5k6LYSuVhlXntdcKO1zyXpiBWB/vJDA
4AcuZErP/LTZR4Hq/Ywe99q4cPhVy817DWoQfvfeg7KO7XxczsgFvFeDM120
r1a6uNCzqNXtbZja9j+I6rtjHxcWMA8ynzqpBsSZFSGz0e1821r3mzUfhkv5
4/Vi61x4sUQ1srpHFTY1m0W/ChLQQpIifJbrEHh6unMsCRHQ7wTfb/YFFZhO
JS2J7iXgz09WR3vaVWCAcPbrXQkCzvTldLW+VoGvfwbsQZ6AqseYrPcfUoGI
mwuZeRoEPKn764C8nTLszd2hmmRDQE0hx/ypbkV4MVQo/OsKAe/pHx/dXa0I
pF2WrLT2BNxIvsZp+14RmP1fdVk5EfA8VWGZpq8iTBrs9+X3JOCtzLMp8sKK
kD96uDIqiIArX27cLnM4CDrCFwzupBHQOz3S8R/PAVi0rw/tzSDgy7zOjvMb
CpCYe7iekkVAgV8bw1NDCrCmtUNv7QMBw2hErC8WKkD6laYT7qUEfPyflc/t
SwrAmaF51LaJgDa5H6/cz5eHX8oSajpLBDwUlHd0000O/Pye3ExZ2Y4/wesR
ZiUHUt/oihjWCShXFvtcUV8O7p3pO1RBxY02mu8vfBWTA6Vbz5TVWLixtany
+cpHWYj9wnZAZjc3siu/cyY+koHz+jP7uDW58bv8v2fMF6XAyyRz9dhRbgwZ
LFEvVZeCSAvHulvHuDG9fMj+sbAUVNuMOIzocmNK5N701EFJkLndl/nZlBtd
HpDqHOwlYeN9k6KzLTdKbKgxyfrsh+dcOerfg7kxVCNGNCtfAvJI17hpHnLj
UCxec3ouAY38MgPKYdxYkGH3TcdfAuj2pQa8juTG8e4GYUtdCXBQT6zxjuPG
tzubOgZ7xeGwa6T+voxt/5R2fmuCOHT8dLW438iNjOKsG9qBoiA+te431syN
dcu/tMMcRcGdJTDF8Dc3MtO36s6biAKHetzSrg5u/C+6aZ5PSBQ03lc8zhzg
xi15g2+/i/dCWhCxuW2RG5cLlym/VkTA50iejuRuHhSM76JlDRaGb+boGi7I
gw/PMNb8dRUGkntt7IIQDypB4lbHOWHISu35VybGgxPuncZEeWEYJDMGmsrx
oIvHDd6yDiHQnz1dcUuTBxOc2kU7FIRAIHnlcKMdD/6NGT+ZMSoIu14kK+13
4MGQ/PYStSpBIEedkg9w4kEhx3+k5ZeCwOWbLabixoOXNaKLZ04JAs1pO0KC
Dw+6DbhojFUIwBBD+5DzIx7UZpOyrEveDe9tCyI4P/Kgg69yzXgoH6Ses31o
l8+D/ZeVFZ858kGyMTGw4hMP9nqkhDrq80EC5ZqPZ+m2fXGf3j12PogkSVz5
U7Md33KnrPujXeBR/VQts4MH2w5wZe17thNAzHPYgIqIhjluEw3fyJDa7u7m
R0PE04oppOpMMhBDXbey6YjY68tY2v6YDP/mHMm8zER07klnMbtEhvBy62Od
BCIWDjeovlwnQf854+QrIkRkSzY4b6FEgoAo6St+2kT0LBZ8HV9ChEltybns
40Ss9l5LHntLBPNVCd8BHSKay90PMAongtTFvU+1TxLxsxe9+ZXLRPgtw1fD
Zk7EZx7ZHgUsRBCrZRKPtSOiTsevS+2WPPCNanAo+yERj3wx0r/Eyw223zK+
cT8iosO90NSJLQLQRXqmu0UQkdUnySdylAAUEVZXxSdEHA8tYZD4TIAPRxU2
Cl4S0Tj0jaOvAwHiQ/x4PucQMXjBqLnqGxe4EndjQxsR75jGZP2S5ATO7iFh
2c7t87t4t7YxcEJ6UhZ9eDcRz7jk/mHq54BhJa06o34ilmeIV47FcMA5i//M
fo8Rcczmpmo+Ewdox39y6Nok4kL2uzCVaTbgkzCLHd3Li3M7nnuEdbOA2Htn
dhFxXvSUb9pdV8YCcgeD/c/u40V3JclSiUQW0MZiu+/SvDgvbW6ufYUFXM2F
Vd8r8WLUtYwNhjlmqA2a7HA5zosarleHb3Mxg9fIff6V/3jRlPPh1ulLjHDX
OSFc3okXAycr152PM0LYwic6+2u8yMhzMuONDCO8oZ4Y73DnxQt6uu8urzHA
j50mJcW3eNHstlrcwScMIKYjeN7vES9STuroMjbRw+/U/JeMubyotOw89OIM
HYSzLgwd/MiL5V4V9+9o0YGOg4LMpXxeVHXr2ecrQwel0hnFxUW8aHJXiesz
DR2kZCW2u1TyYpe2VIhlOi3czAvl6frNi9wl1vPTtLQg9OVyYNYyL1a35KnW
V1BDl/Crhu5VXrzuolzun0UNT+728LJu8KKldqya7gtqYDlq8caGmoQLb9nz
+T2pYb7GoHwXCwnzWTw18yWpoab+0FoAHwmDxUZP5sdQgWM7p7MFhYQTvc4+
sTRblDMnd7LnIQmdxvOduXo2KcerhNO4NUmo7BfglPNpkyKcrThcd4yE2Vas
lR4um5S2oLMXKEYkjH7oZrTWv0HRUkk+KWJNQpOn5Lqv9esU/qcUuYlgElr6
REWJl69SWNiPN5x4SMLkSxy8ia9WKUt3jBzehpHwl2f9J/U7q5RmJ+uUC1Ek
rO/XLp3SXKUEaYfsaX5OwvIjyYvU31Yo8wu/ufIzSWg4wDrc3r5M+W7qOOP3
m4RbHVsjyrxLFPGg6j0fW0nYYnbZtmVtkXKnSNBwpJ2EgpHideH9ixQV4eb3
Rj0k/OSu+NM8a5GSNKXkIDxMwoxwjxAF/UXK7RCq4YplEhZgjf3sgwWK3Oeo
LgZ+Mk5VRKu2889THsyNsx4WIOPDtBdfixjmKUNi2oed95Ax2OlTct70HOV5
6HJs614yNqeaTM5XzlGYz1qeTpEmY8eJV/nhTnOU/gWx5hNAxpqUJkeZ6llK
tGRhzcNLZBw9p1htdH+G8mvEPZrGhox0KndvNV6boRBTZC96XSGj+rBvjN3Z
GcrjvUmrlx3I2Cgp6jUqN0N5sjtc+rAHGQ8PClmKdE9TYjhto0aCyZhVXKFo
pjpNeT5HuKCdTcZDNkaareyTlK7s75LFuWR8MGE4s/BvgsJ/LXBZPo+MihG0
feqVE5QX4+sRu4vIeLDxVbLVzQlK/N/hyvlKMuo0Xf+ROzZOSWgt2f+6jbwt
xNSN/X+NUXofey3t6CQjc/Fc0pmcMcoe0wOVYd1kZEqm67cMH6O8akyx9O4n
4871+qN9emOUxG9R4Ubj22wZKNlSM0rpDzSwrJkkY7zZmuzK21GKsDbz/iMz
ZNQoPxykdX+U8vrL7QqJxe16yzk4mRwdpQz6HQqPXyYj9Z8dz0iio5S9MH+O
uEbGJyUsp6jpRynWG+/3hWyQMc8iz4nn7wjlTZHd4tYWGUea6/L0qkYo/wOE
IvjH
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 6}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.5226341098081284`*^9, 3.5226381906438694`*^9}]
}, Open  ]],

Cell["\:3000\:3000\:3000\:3000\:3000\:3000\:56f3\:ff1a\:6307\:6570\:5206\:5e03\
( \[Lambda] = 2 )", "Text"],

Cell[CellGroupData[{

Cell["\:5e73\:5747", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"expdist", "[", "\[Lambda]", "]"}], "]"}]], "Input"],

Cell[BoxData[
 FractionBox["1", "\[Lambda]"]], "Output",
 CellChangeTimes->{3.522634109872542*^9, 3.5226382140772095`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{969, 885},
WindowMargins->{{55, Automatic}, {Automatic, 31}},
PrintingCopies->1,
PrintingPageRange->{7, 7},
ShowSelection->True,
Magnification->1,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (2010\:5e7412\:67082\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3522666502-1791722"->{
  Cell[187091, 4474, 3552, 56, 100, "Print",
   CellTags->"Info3522666502-1791722"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3522666502-1791722", 272471, 6687}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[572, 22, 159, 6, 88, "Title"],
Cell[734, 30, 315, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[1074, 39, 56, 0, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[1155, 43, 31, 0, 71, "Section"],
Cell[1189, 45, 335, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[1549, 54, 26, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[1600, 58, 78, 2, 47, "Input"],
Cell[1681, 62, 77, 1, 30, "Output"]
}, Open  ]],
Cell[1773, 66, 192, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[1990, 72, 220, 6, 47, "Input"],
Cell[2213, 80, 178, 5, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2440, 91, 66, 0, 36, "Subsection"],
Cell[2509, 93, 295, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[2829, 104, 84, 2, 31, "Input"],
Cell[2916, 108, 250, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3203, 122, 118, 3, 31, "Input"],
Cell[3324, 127, 260, 9, 30, "Output"]
}, Open  ]],
Cell[3599, 139, 330, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[3954, 150, 224, 6, 47, "Input"],
Cell[4181, 158, 946, 37, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[5154, 199, 190, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[5369, 205, 57, 0, 28, "Subsection"],
Cell[5429, 207, 1026, 19, 65, "Text"],
Cell[CellGroupData[{
Cell[6480, 230, 160, 5, 47, "Input"],
Cell[6643, 237, 135, 3, 30, "Output"]
}, Open  ]],
Cell[6793, 243, 145, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[6963, 248, 85, 1, 31, "Input"],
Cell[7051, 251, 109, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7197, 257, 65, 1, 31, "Input"],
Cell[7265, 260, 109, 1, 30, "Output"]
}, Open  ]],
Cell[7389, 264, 336, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[7750, 273, 43, 0, 31, "Input"],
Cell[7796, 275, 90, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7935, 282, 114, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[8074, 287, 57, 1, 31, "Input"],
Cell[8134, 290, 83, 2, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8254, 297, 58, 1, 31, "Input"],
Cell[8315, 300, 70, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8422, 306, 85, 2, 31, "Input"],
Cell[8510, 310, 88, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8635, 316, 58, 1, 31, "Input"],
Cell[8696, 319, 88, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8821, 325, 110, 3, 31, "Input"],
Cell[8934, 330, 158, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9129, 338, 111, 3, 31, "Input"],
Cell[9243, 343, 90, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9382, 350, 63, 0, 36, "Subsection"],
Cell[9448, 352, 195, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[9668, 358, 193, 6, 31, "Input"],
Cell[9864, 366, 92, 1, 30, "Output"]
}, Open  ]],
Cell[9971, 370, 96, 1, 29, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10116, 377, 37, 0, 71, "Section"],
Cell[10156, 379, 190, 4, 29, "Text"],
Cell[10349, 385, 91, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[10465, 392, 61, 1, 31, "Input"],
Cell[10529, 395, 251, 9, 30, "Output"]
}, Open  ]],
Cell[10795, 407, 114, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[10934, 412, 132, 4, 31, "Input"],
Cell[11069, 418, 117, 3, 30, "Output"]
}, Open  ]],
Cell[11201, 424, 84, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[11310, 429, 134, 4, 31, "Input"],
Cell[11447, 435, 154, 5, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11638, 445, 123, 1, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[11786, 450, 82, 2, 31, "Input"],
Cell[11871, 454, 87, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11995, 461, 56, 1, 31, "Input"],
Cell[12054, 464, 136, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12227, 472, 92, 2, 31, "Input"],
Cell[12322, 476, 286, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12645, 489, 54, 1, 31, "Input"],
Cell[12702, 492, 183, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12922, 500, 92, 2, 31, "Input"],
Cell[13017, 504, 205, 6, 47, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13283, 517, 49, 0, 71, "Section"],
Cell[13335, 519, 152, 3, 29, "Text"],
Cell[13490, 524, 1018, 28, 112, "Input"],
Cell[14511, 554, 47, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[14583, 558, 273, 8, 31, "Input"],
Cell[14859, 568, 432, 9, 275, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15340, 583, 49, 0, 71, "Section"],
Cell[15392, 585, 116, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[15533, 592, 228, 8, 33, "Input"],
Cell[15764, 602, 1045, 35, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16846, 642, 619, 20, 52, "Input"],
Cell[17468, 664, 1071, 23, 371, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18600, 694, 52, 0, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[18677, 698, 67, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[18769, 702, 141, 4, 33, "Input"],
Cell[18913, 708, 226, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19176, 721, 107, 3, 33, "Input"],
Cell[19286, 726, 115, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19438, 734, 180, 5, 33, "Input"],
Cell[19621, 741, 230, 7, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19900, 754, 67, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[19992, 758, 229, 8, 31, "Input"],
Cell[20224, 768, 202, 6, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20475, 780, 55, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[20555, 784, 208, 7, 33, "Input"],
Cell[20766, 793, 248, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21051, 805, 167, 6, 33, "Input"],
Cell[21221, 813, 544, 18, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21802, 836, 203, 7, 33, "Input"],
Cell[22008, 845, 2430, 80, 119, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24475, 930, 204, 7, 33, "Input"],
Cell[24682, 939, 407, 11, 30, "Output"]
}, Open  ]],
Cell[25104, 953, 244, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[25373, 961, 345, 12, 31, "Input"],
Cell[25721, 975, 272, 8, 47, "Output"]
}, Open  ]],
Cell[26008, 986, 385, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[26418, 996, 256, 8, 31, "Input"],
Cell[26677, 1006, 139, 3, 30, "Output"]
}, Open  ]],
Cell[26831, 1012, 238, 4, 29, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27118, 1022, 57, 0, 49, "Subtitle"],
Cell[27178, 1024, 190, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[27393, 1032, 31, 0, 71, "Section"],
Cell[27427, 1034, 278, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[27730, 1048, 140, 4, 31, "Input"],
Cell[27873, 1054, 90, 2, 47, "Output"]
}, Open  ]],
Cell[27978, 1059, 76, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[28079, 1063, 189, 6, 31, "Input"],
Cell[28271, 1071, 11851, 201, 242, "Output"]
}, Open  ]],
Cell[40137, 1275, 260, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[40422, 1289, 314, 10, 31, "Input"],
Cell[40739, 1301, 8570, 146, 248, "Output"]
}, Open  ]],
Cell[49324, 1450, 90, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[49439, 1455, 188, 5, 31, "Input"],
Cell[49630, 1462, 70, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49737, 1468, 214, 6, 31, "Input"],
Cell[49954, 1476, 70, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50073, 1483, 73, 0, 71, "Section"],
Cell[50149, 1485, 127, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[50301, 1490, 101, 3, 31, "Input"],
Cell[50405, 1495, 118, 3, 30, "Output"]
}, Open  ]],
Cell[50538, 1501, 121, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[50684, 1506, 150, 5, 31, "Input"],
Cell[50837, 1513, 117, 3, 30, "Output"]
}, Open  ]],
Cell[50969, 1519, 65, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[51059, 1523, 136, 4, 31, "Input"],
Cell[51198, 1529, 299, 9, 30, "Output"]
}, Open  ]],
Cell[51512, 1541, 76, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[51613, 1545, 109, 3, 31, "Input"],
Cell[51725, 1550, 114, 3, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51876, 1558, 168, 5, 31, "Input"],
Cell[52047, 1565, 90, 2, 47, "Output"]
}, Open  ]],
Cell[52152, 1570, 71, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[52248, 1574, 130, 4, 43, "Input"],
Cell[52381, 1580, 116, 3, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52534, 1588, 162, 5, 44, "Input"],
Cell[52699, 1595, 90, 2, 47, "Output"]
}, Open  ]],
Cell[52804, 1600, 164, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[52993, 1606, 209, 6, 31, "Input"],
Cell[53205, 1614, 87, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53329, 1620, 139, 1, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[53493, 1625, 217, 7, 31, "Input"],
Cell[53713, 1634, 527, 19, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54277, 1658, 79, 2, 31, "Input"],
Cell[54359, 1662, 649, 23, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55045, 1690, 61, 1, 31, "Input"],
Cell[55109, 1693, 138, 4, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55284, 1702, 166, 5, 31, "Input"],
Cell[55453, 1709, 286, 10, 56, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[55812, 1727, 57, 0, 49, "Subtitle"],
Cell[55872, 1729, 620, 9, 47, "Text"],
Cell[CellGroupData[{
Cell[56517, 1742, 73, 0, 71, "Section"],
Cell[56593, 1744, 344, 9, 29, "Text"],
Cell[CellGroupData[{
Cell[56962, 1757, 390, 12, 31, "Input"],
Cell[57355, 1771, 268, 7, 33, "Output"]
}, Open  ]],
Cell[57638, 1781, 145, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[57808, 1786, 197, 6, 31, "Input"],
Cell[58008, 1794, 7012, 121, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65057, 1920, 76, 0, 36, "Subsection"],
Cell[65136, 1922, 147, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[65308, 1928, 540, 17, 47, "Input"],
Cell[65851, 1947, 760, 13, 20, "Message"],
Cell[66614, 1962, 383, 11, 49, "Output"]
}, Open  ]],
Cell[67012, 1976, 393, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[67430, 1986, 198, 6, 31, "Input"],
Cell[67631, 1994, 5419, 94, 249, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73099, 2094, 76, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[73200, 2098, 813, 25, 31, "Input"],
Cell[74016, 2125, 677, 20, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74730, 2150, 394, 12, 31, "Input"],
Cell[75127, 2164, 22597, 377, 246, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97785, 2548, 67, 0, 71, "Section"],
Cell[97855, 2550, 362, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[98242, 2560, 534, 17, 47, "Input"],
Cell[98779, 2579, 35249, 676, 382, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134065, 3260, 425, 13, 31, "Input"],
Cell[134493, 3275, 36081, 687, 375, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[170635, 3969, 56, 0, 49, "Subtitle"],
Cell[170694, 3971, 169, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[170888, 3978, 49, 0, 71, "Section"],
Cell[170940, 3980, 410, 6, 29, "Text"],
Cell[171353, 3988, 128, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[171506, 3994, 123, 2, 36, "Subsection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[171654, 4000, 112, 3, 31, "Input"],
Cell[171769, 4005, 176, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171982, 4014, 116, 3, 31, "Input"],
Cell[172101, 4019, 337, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172475, 4033, 114, 3, 31, "Input"],
Cell[172592, 4038, 160, 4, 30, "Output"]
}, Open  ]],
Cell[172767, 4045, 186, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[172978, 4053, 243, 9, 33, "Input"],
Cell[173224, 4064, 95, 1, 30, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[173380, 4072, 37, 0, 71, "Section"],
Cell[173420, 4074, 356, 10, 31, "Text"],
Cell[173779, 4086, 147, 5, 31, "Input"],
Cell[173929, 4093, 108, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[174062, 4098, 168, 5, 31, "Input"],
Cell[174233, 4105, 5513, 96, 236, "Output"]
}, Open  ]],
Cell[179761, 4204, 72, 0, 29, "Text"],
Cell[179836, 4206, 100, 3, 31, "Input"],
Cell[179939, 4211, 90, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[180054, 4216, 520, 18, 72, "Input"],
Cell[180577, 4236, 143, 3, 23, "Print"]
}, Open  ]],
Cell[180735, 4242, 152, 3, 29, "Text"],
Cell[180890, 4247, 990, 32, 72, "Input"],
Cell[CellGroupData[{
Cell[181905, 4283, 134, 4, 31, "Input"],
Cell[182042, 4289, 144, 3, 30, "Output"]
}, Open  ]],
Cell[182201, 4295, 360, 8, 30, "Text"],
Cell[CellGroupData[{
Cell[182586, 4307, 174, 5, 31, "Input"],
Cell[182763, 4314, 173, 3, 30, "Output"]
}, Open  ]],
Cell[182951, 4320, 181, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[183157, 4327, 161, 6, 31, "Input"],
Cell[183321, 4335, 472, 11, 30, "Output"]
}, Open  ]],
Cell[183808, 4349, 106, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[183939, 4356, 172, 6, 31, "Input"],
Cell[184114, 4364, 694, 19, 50, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[184857, 4389, 31, 0, 71, "Section"],
Cell[184891, 4391, 259, 5, 29, "Text"],
Cell[185153, 4398, 45, 1, 31, "Input"],
Cell[185201, 4401, 84, 1, 29, "Text"],
Cell[185288, 4404, 267, 9, 31, "Input"],
Cell[185558, 4415, 84, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[185667, 4420, 89, 2, 31, "Input"],
Cell[185759, 4424, 112, 1, 30, "Output"]
}, Open  ]],
Cell[185886, 4428, 70, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[185981, 4432, 126, 3, 31, "Input"],
Cell[186110, 4437, 110, 1, 30, "Output"]
}, Open  ]],
Cell[186235, 4441, 259, 6, 30, "Text"],
Cell[CellGroupData[{
Cell[186519, 4451, 122, 3, 31, "Input"],
Cell[186644, 4456, 110, 1, 30, "Output"]
}, Open  ]],
Cell[186769, 4460, 243, 7, 30, "Text"],
Cell[CellGroupData[{
Cell[187037, 4471, 51, 1, 31, "Input"],
Cell[187091, 4474, 3552, 56, 100, "Print",
 CellTags->"Info3522666502-1791722"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190680, 4535, 188, 6, 31, "Input"],
Cell[190871, 4543, 163, 3, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[191083, 4552, 37, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[191145, 4556, 76, 0, 36, "Subsection"],
Cell[191224, 4558, 294, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[191543, 4567, 215, 8, 47, "Input"],
Cell[191761, 4577, 518, 14, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192316, 4596, 137, 4, 31, "Input"],
Cell[192456, 4602, 1150, 29, 192, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193643, 4636, 113, 4, 40, "Input"],
Cell[193759, 4642, 135, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[193943, 4649, 96, 1, 36, "Subsection"],
Cell[194042, 4652, 138, 1, 29, "Text"],
Cell[194183, 4655, 429, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[194637, 4673, 172, 5, 31, "Input"],
Cell[194812, 4680, 362, 7, 30, "Output"]
}, Open  ]],
Cell[195189, 4690, 176, 2, 29, "Text"],
Cell[195368, 4694, 176, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[195569, 4704, 98, 2, 31, "Input"],
Cell[195670, 4708, 753, 21, 47, "Output"]
}, Open  ]],
Cell[196438, 4732, 90, 1, 29, "Text"],
Cell[196531, 4735, 159, 5, 31, "Input"],
Cell[196693, 4742, 217, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[196935, 4753, 165, 5, 31, "Input"],
Cell[197103, 4760, 913, 28, 177, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[198089, 4796, 48, 0, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[198162, 4800, 43, 0, 71, "Section"],
Cell[198208, 4802, 226, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[198459, 4810, 135, 4, 31, "Input"],
Cell[198597, 4816, 421, 8, 30, "Output"]
}, Open  ]],
Cell[199033, 4827, 128, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[199186, 4832, 146, 4, 31, "Input"],
Cell[199335, 4838, 226, 5, 30, "Output"]
}, Open  ]],
Cell[199576, 4846, 212, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[199813, 4852, 224, 7, 31, "Input"],
Cell[200040, 4861, 224, 5, 30, "Output"]
}, Open  ]],
Cell[200279, 4869, 398, 6, 29, "Text"],
Cell[200680, 4877, 1336, 34, 161, "Input"],
Cell[202019, 4913, 38, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[202082, 4917, 62, 1, 31, "Input"],
Cell[202147, 4920, 236, 6, 23, "Print"],
Cell[202386, 4928, 6306, 176, 231, "Output"]
}, Open  ]],
Cell[208707, 5107, 138, 1, 27, "Subsubsection"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208882, 5113, 43, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[208950, 5117, 65, 0, 36, "Subsection"],
Cell[209018, 5119, 392, 9, 30, "Text"],
Cell[209413, 5130, 203, 6, 31, "Input"],
Cell[209619, 5138, 538, 12, 47, "Text"],
Cell[CellGroupData[{
Cell[210182, 5154, 142, 4, 31, "Input"],
Cell[210327, 5160, 112, 1, 30, "Output"]
}, Open  ]],
Cell[210454, 5164, 77, 0, 29, "Text"],
Cell[210534, 5166, 474, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[211033, 5184, 118, 3, 31, "Input"],
Cell[211154, 5189, 908, 27, 191, "Output"]
}, Open  ]],
Cell[212077, 5219, 132, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[212234, 5224, 61, 1, 31, "Input"],
Cell[212298, 5227, 13284, 329, 236, "Output"]
}, Open  ]],
Cell[225597, 5559, 220, 4, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225854, 5568, 54, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[225933, 5572, 117, 3, 31, "Input"],
Cell[226053, 5577, 94, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[226196, 5584, 34, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[226255, 5588, 121, 3, 31, "Input"],
Cell[226379, 5593, 95, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[226523, 5600, 46, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[226594, 5604, 130, 3, 31, "Input"],
Cell[226727, 5609, 112, 1, 30, "Output"]
}, Open  ]],
Cell[226854, 5613, 234, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[227113, 5621, 115, 3, 31, "Input"],
Cell[227231, 5626, 114, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227382, 5633, 119, 3, 31, "Input"],
Cell[227504, 5638, 173, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227714, 5647, 128, 3, 31, "Input"],
Cell[227845, 5652, 185, 5, 33, "Output"]
}, Open  ]],
Cell[228045, 5660, 182, 2, 29, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[228276, 5668, 55, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[228356, 5672, 65, 0, 36, "Subsection"],
Cell[228424, 5674, 262, 5, 29, "Text"],
Cell[228689, 5681, 191, 4, 31, "Input"],
Cell[228883, 5687, 418, 12, 31, "Input"],
Cell[CellGroupData[{
Cell[229326, 5703, 207, 4, 31, "Input"],
Cell[229536, 5709, 787, 15, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230360, 5729, 127, 2, 31, "Input"],
Cell[230490, 5733, 13362, 326, 231, "Output"]
}, Open  ]],
Cell[243867, 6062, 169, 2, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244073, 6069, 34, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[244132, 6073, 99, 2, 31, "Input"],
Cell[244234, 6077, 125, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[244408, 6085, 100, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[244533, 6090, 103, 2, 31, "Input"],
Cell[244639, 6094, 129, 2, 30, "Output"]
}, Open  ]],
Cell[244783, 6099, 1001, 14, 65, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[245833, 6119, 43, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[245901, 6123, 65, 0, 36, "Subsection"],
Cell[245969, 6125, 287, 7, 29, "Text"],
Cell[246259, 6134, 217, 6, 31, "Input"],
Cell[246479, 6142, 171, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[246675, 6148, 284, 9, 31, "Input"],
Cell[246962, 6159, 6070, 105, 250, "Output"]
}, Open  ]],
Cell[253047, 6267, 106, 1, 29, "Text"],
Cell[253156, 6270, 103, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[253284, 6275, 284, 9, 31, "Input"],
Cell[253571, 6286, 4154, 74, 250, "Output"]
}, Open  ]],
Cell[257740, 6363, 190, 2, 29, "Text"],
Cell[257933, 6367, 127, 1, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258097, 6373, 34, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[258156, 6377, 117, 3, 31, "Input"],
Cell[258276, 6382, 92, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258405, 6388, 37, 0, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[258467, 6392, 121, 3, 31, "Input"],
Cell[258591, 6397, 93, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[258733, 6404, 49, 0, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[258807, 6408, 130, 3, 31, "Input"],
Cell[258940, 6413, 92, 1, 30, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[259105, 6422, 43, 0, 71, "Section"],
Cell[259151, 6424, 734, 10, 47, "Text"],
Cell[259888, 6436, 174, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[260087, 6445, 352, 11, 31, "Input"],
Cell[260442, 6458, 11104, 188, 259, "Output"]
}, Open  ]],
Cell[271561, 6649, 107, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[271693, 6654, 34, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[271752, 6658, 99, 2, 31, "Input"],
Cell[271854, 6662, 122, 2, 47, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature FuTBDt@CnPtbjAgqyh@nRJXJ *)