(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     75036,       2268]
NotebookOptionsPosition[     66563,       1974]
NotebookOutlinePosition[     67057,       1994]
CellTagsIndexPosition[     67014,       1991]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Elementary Algebra (Lec01)", "Title",
 TextAlignment->Center],

Cell["yukita@hosei.ac.jp", "Subtitle",
 CellChangeTimes->{{3.449005564564426*^9, 3.449005565102426*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Expand and Factor  \:5c55\:958b\:3068\:56e0\:6570\:5206\:89e3", \
"Section",
 CellChangeTimes->{{3.449004874195426*^9, 3.449004890255426*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"x", "^", "3"}], "+", 
    RowBox[{"x", "^", "2"}], "+", "x", "+", "1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"x", "-", "1"}]}], ";"}]}], "Input"],

Cell["\:3075\:3064\:3046\:306b\:639b\:7b97\:3059\:308b\:3068", "Text",
 CellChangeTimes->{{3.449006171094426*^9, 3.449006213235426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "*", "g"}]], "Input"],

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

Cell["\:5c55\:958b\:3057\:3066\:307f\:3088\:3046", "Text",
 CellChangeTimes->{{3.449006225246426*^9, 3.449006235222426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"f", "*", "g"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  SuperscriptBox["x", "4"]}]], "Output",
 CellChangeTimes->{3.449006475753426*^9, 3.4799339763359346`*^9}]
}, Open  ]],

Cell["\:9006\:306b\:56e0\:6570\:5206\:89e3", "Text",
 CellChangeTimes->{{3.449006246117426*^9, 3.449006248818426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "4"}], "-", "1"}], "]"}]], "Input"],

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

Cell["\<\
Factorization over Z[I], where I=Sqrt[-1].
Gauss\:306e\:6574\:6570\:306e\:7bc4\:56f2\:3067(\:6574\:6570\:74b0Z[i])\:3067\
\:7d20\:56e0\:6570\:5206\:89e3\
\>", "Text",
 CellChangeTimes->{{3.449006269297426*^9, 3.4490063832314262`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "4"}], "-", "1"}], ",", " ", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", "I", "}"}]}]}], "]"}]], "Input"],

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

Cell["\<\
Algebra modulo p.
p\:3092\:6cd5\:3068\:3059\:308b\:4ee3\:6570\
\>", "Text",
 CellChangeTimes->{{3.449006494591426*^9, 3.449006507958426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], "+", "x", "+", "1"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"1", "+", "x", "+", 
  SuperscriptBox["x", "3"]}]], "Output",
 CellChangeTimes->{3.4490065157654257`*^9, 3.4799340023879347`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "+", "x", "+", "1"}], ",", " ", 
   RowBox[{"Modulus", "\[Rule]", "3"}]}], "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], ",", " ", 
   RowBox[{"Modulus", "\[Rule]", "2"}]}], "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell["Collect  \:540c\:985e\:9805\:306e\:7c21\:7d04", "Section",
 CellChangeTimes->{{3.449004910833426*^9, 3.449004940171426*^9}}],

Cell["Collecting like terms.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{
   RowBox[{"a", " ", 
    RowBox[{"b", "^", "3"}]}], "+", 
   RowBox[{
    RowBox[{"a", "^", "2"}], " ", "b"}], "+", 
   RowBox[{"a", 
    RowBox[{"(", 
     RowBox[{"b", "+", "3"}], ")"}]}], "+", 
   RowBox[{"a", " ", "b"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "b"}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", "b"}], "+", 
  RowBox[{"a", " ", 
   SuperscriptBox["b", "3"]}], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", "b"}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.479934014509135*^9}]
}, Open  ]],

Cell["a \:306b\:95a2\:3057\:3066\:6574\:7406\:3059\:308b", "Text",
 CellChangeTimes->{{3.4490073350814257`*^9, 3.449007376679426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"f", ",", "a"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "2"], " ", "b"}], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", 
     RowBox[{"2", " ", "b"}], "+", 
     SuperscriptBox["b", "3"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.4799340175043344`*^9}]
}, Open  ]],

Cell["b \:306b\:95a2\:3057\:3066\:6574\:7406\:3059\:308b", "Text",
 CellChangeTimes->{{3.449007387535426*^9, 3.449007402670426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"f", ",", "b"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", "a"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "a"}], "+", 
     SuperscriptBox["a", "2"]}], ")"}], " ", "b"}], "+", 
  RowBox[{"a", " ", 
   SuperscriptBox["b", "3"]}]}]], "Output",
 CellChangeTimes->{3.4799340200003347`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Together, Apart, and Cancel \:901a\:5206, \
\:90e8\:5206\:5206\:6570\:5206\:89e3, \:7d04\:5206\
\>", "Section",
 CellChangeTimes->{{3.449004948491426*^9, 3.449005000362426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"x", "-", "1"}], ")"}]}], "+", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"1", "+", "x"}]]}]], "Output",
 CellChangeTimes->{3.4490075543244257`*^9, 3.479934028049935*^9}]
}, Open  ]],

Cell["\:901a\:5206\:3059\:308b", "Text",
 CellChangeTimes->{3.449007430994426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "=", 
  RowBox[{"Together", "[", "f", "]"}]}]], "Input"],

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

Cell["\:90e8\:5206\:5206\:6570\:306b\:5206\:89e3\:3059\:308b", "Text",
 CellChangeTimes->{{3.449007446847426*^9, 3.449007449532426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Apart", "[", "g", "]"}]], "Input"],

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

Cell[CellGroupData[{

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

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

Cell["\:7d04\:5206\:3059\:308b", "Text",
 CellChangeTimes->{3.449007493270426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cancel", "[", "f", "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell["Coefficient \:4fc2\:6570", "Section",
 CellChangeTimes->{{3.449005006803426*^9, 3.4490050113024263`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"a0", " ", "+", " ", 
   RowBox[{"a1", " ", "x"}], " ", "+", " ", 
   RowBox[{"a2", " ", 
    RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"a3", " ", 
    RowBox[{"x", "^", "3"}]}], " ", "+", " ", 
   RowBox[{"a4", " ", 
    RowBox[{"x", "^", "4"}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"a0", "+", 
  RowBox[{"a1", " ", "x"}], "+", 
  RowBox[{"a2", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"a3", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"a4", " ", 
   SuperscriptBox["x", "4"]}]}]], "Output",
 CellChangeTimes->{3.449007567084426*^9}]
}, Open  ]],

Cell["x^2 \:306e\:4fc2\:6570\:3092\:53d6\:308a\:51fa\:3059", "Text",
 CellChangeTimes->{{3.449007527461426*^9, 3.449007538381426*^9}}],

Cell[CellGroupData[{

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

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

Cell["\:5225\:306e\:3084\:308a\:65b9\:3082\:3042\:308b", "Text",
 CellChangeTimes->{{3.449007875828426*^9, 3.4490078794864264`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{"f", ",", " ", "x", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.449007855905426*^9, 3.4490078637914257`*^9}}],

Cell[BoxData["a2"], "Output",
 CellChangeTimes->{3.4490075729934263`*^9, 3.449007867209426*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], "^", "3"}]}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{"g", ",", "x", ",", "2"}], "]"}]], "Input"],

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

Cell[CellGroupData[{

Cell["Solve and Reduce \:65b9\:7a0b\:5f0f\:3092\:89e3\:304f", "Section",
 CellChangeTimes->{{3.4490050180224257`*^9, 3.4490050409414263`*^9}}],

Cell["\:65b9\:7a0b\:5f0f\:3092\:5909\:6570eq\:306b\:683c\:7d0d", "Text",
 CellChangeTimes->{{3.4490081426984262`*^9, 3.449008187488426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "-", 
    RowBox[{"5", "x"}], "-", "6"}], "\[Equal]", "0"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "6"}], "-", 
   RowBox[{"5", " ", "x"}], "+", 
   SuperscriptBox["x", "2"]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{3.4490081319674263`*^9}]
}, Open  ]],

Cell["eq\:306b\:3057\:307e\:308f\:308c\:305f\:65b9\:7a0b\:5f0f\:3092\:89e3\
\:304f", "Text",
 CellChangeTimes->{{3.449008349569426*^9, 3.4490083912324257`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", "eq", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "6"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.449008341811426*^9}]
}, Open  ]],

Cell["\<\
\:7d50\:679c\:306f \:300c\:66f8\:304d\:63db\:3048\:30eb\:30fc\:30eb\:300d \
\:306e\:30ea\:30b9\:30c8\:3002\:89e3\:ff12\:6b21\:65b9\:7a0b\:5f0f\:305d\:306e\
\:3082\:306e\:304c\:6b32\:3057\:3051\:308c\:3070 x \:3092\:3053\:306e\:30eb\
\:30fc\:30eb\:3067\:66f8\:304d\:63db\:3048\:3066\:3082\:3089\:3046\:3002\
\>", "Text",
 CellChangeTimes->{{3.449008416889426*^9, 3.449008431068426*^9}, {
  3.4490086841474257`*^9, 3.449008688395426*^9}, {3.449008728721426*^9, 
  3.449008732846426*^9}, {3.449008774163426*^9, 3.449008789267426*^9}, {
  3.449009084336426*^9, 3.449009088498426*^9}, {3.449009383700426*^9, 
  3.449009428388426*^9}, {3.4490098834354258`*^9, 3.449009897230426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", " ", "/.", " ", 
  RowBox[{"Solve", "[", "eq", "]"}]}]], "Input",
 CellChangeTimes->{{3.449008794499426*^9, 3.4490087969814262`*^9}, {
  3.449009108623426*^9, 3.449009113517426*^9}}],

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

Cell["\:ff12\:6b21\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f\:3002", "Text",
 CellChangeTimes->{{3.449009683516426*^9, 3.4490096899674263`*^9}, {
   3.449009910238426*^9, 3.4490099182394257`*^9}, {3.449010047793426*^9, 
   3.449010101664426*^9}, 3.4490105622724257`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"b", " ", "x"}], "+", "c"}], "\[Equal]", "0"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "+", 
   RowBox[{"b", " ", "x"}], "+", 
   RowBox[{"a", " ", 
    SuperscriptBox["x", "2"]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{3.449009932801426*^9, 3.449009997621426*^9}]
}, Open  ]],

Cell["\:4fc2\:6570\:304c\:6587\:5b57\:306a\:306e\:3067\:672a\:77e5\:6570\:3092\
\:6307\:5b9a\:3059\:308b\:5fc5\:8981\:304c\:3042\:308b\:3002", "Text",
 CellChangeTimes->{{3.449009683516426*^9, 3.4490096899674263`*^9}, {
   3.449009910238426*^9, 3.4490099182394257`*^9}, {3.449010047793426*^9, 
   3.449010115870426*^9}, 3.449010535263426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eq", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.449009935480426*^9, 3.449010000332426*^9}]
}, Open  ]],

Cell["\<\
\:7d50\:679c\:306f \:300c\:66f8\:304d\:63db\:3048\:30eb\:30fc\:30eb\:300d \
\:306e\:30ea\:30b9\:30c8\:3002\:89e3\:305d\:306e\:3082\:306e\:304c\:6b32\:3057\
\:3051\:308c\:3070 x \:3092\:3053\:306e\:30eb\:30fc\:30eb\:3067\:66f8\:304d\
\:63db\:3048\:3066\:3082\:3089\:3046\:3002\
\>", "Text",
 CellChangeTimes->{{3.449008416889426*^9, 3.449008431068426*^9}, {
   3.4490086841474257`*^9, 3.449008688395426*^9}, {3.449008728721426*^9, 
   3.449008732846426*^9}, {3.449008774163426*^9, 3.449008789267426*^9}, {
   3.449009084336426*^9, 3.449009088498426*^9}, {3.449009383700426*^9, 
   3.449009428388426*^9}, {3.4490098834354258`*^9, 3.449009897230426*^9}, 
   3.449010526511426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", " ", "/.", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{"eq", ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449010022715426*^9, 3.449010040194426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"-", "b"}], "-", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["b", "2"], "-", 
       RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
    RowBox[{"2", " ", "a"}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "b"}], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["b", "2"], "-", 
       RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
    RowBox[{"2", " ", "a"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.449010040937426*^9}]
}, Open  ]],

Cell["\:5834\:5408\:5206\:3051\:3092\:8003\:616e\:3057\:3066\:89e3\:304f", \
"Text",
 CellChangeTimes->{{3.4490106603754263`*^9, 3.449010677013426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"eq", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"a", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "b"}], "-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["b", "2"], "-", 
           RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
        RowBox[{"2", " ", "a"}]]}], "||", 
      RowBox[{"x", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "b"}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["b", "2"], "-", 
           RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
        RowBox[{"2", " ", "a"}]]}]}], ")"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"a", "\[Equal]", "0"}], "&&", 
    RowBox[{"b", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"x", "\[Equal]", 
     RowBox[{"-", 
      FractionBox["c", "b"]}]}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"c", "\[Equal]", "0"}], "&&", 
    RowBox[{"b", "\[Equal]", "0"}], "&&", 
    RowBox[{"a", "\[Equal]", "0"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.449010764214426*^9}]
}, Open  ]],

Cell["System of equations\:3000\:9023\:7acb\:65b9\:7a0b\:5f0f", "Text",
 CellChangeTimes->{{3.449010717564426*^9, 3.449010723477426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eqs", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"3", "x"}], "+", 
      RowBox[{"4", "y"}]}], "==", "1"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"4", "x"}], "-", 
      RowBox[{"3", "y"}]}], "==", "2"}]}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"3", " ", "x"}], "+", 
     RowBox[{"4", " ", "y"}]}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"4", " ", "x"}], "-", 
     RowBox[{"3", " ", "y"}]}], "\[Equal]", "2"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4490108031444263`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eqs", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     FractionBox["11", "25"]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["2", "25"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.449010811991426*^9}]
}, Open  ]],

Cell["\<\
\:7d50\:679c\:306f \:300c\:66f8\:304d\:63db\:3048\:30eb\:30fc\:30eb\:300d \
\:306e\:30ea\:30b9\:30c8\:3002\:89e3\:305d\:306e\:3082\:306e\:304c\:6b32\:3057\
\:3051\:308c\:3070 x \:3092\:3053\:306e\:30eb\:30fc\:30eb\:3067\:66f8\:304d\
\:63db\:3048\:3066\:3082\:3089\:3046\:3002\
\>", "Text",
 CellChangeTimes->{{3.449008416889426*^9, 3.449008431068426*^9}, {
   3.4490086841474257`*^9, 3.449008688395426*^9}, {3.449008728721426*^9, 
   3.449008732846426*^9}, {3.449008774163426*^9, 3.449008789267426*^9}, {
   3.449009084336426*^9, 3.449009088498426*^9}, {3.449009383700426*^9, 
   3.449009428388426*^9}, {3.4490098834354258`*^9, 3.449009897230426*^9}, 
   3.449010526511426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"x", ",", "y"}], "}"}], "/.", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{"eqs", ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4490108497904263`*^9, 3.449010880036426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    FractionBox["11", "25"], ",", 
    RowBox[{"-", 
     FractionBox["2", "25"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.449010858304426*^9, 3.4490108806184263`*^9}}]
}, Open  ]],

Cell["\<\
\:89e3\:304c\:ff11\:7d44\:3057\:304b\:306a\:3044\:3068\:304d\:3001\:305d\:306e\
\:ff11\:7d44\:3060\:3051\:3092\:53d6\:308a\:51fa\:3059\:306b\:306f\:3001\:300c\
\:6700\:521d\:306e\:300d\:89e3\:3092\:53d6\:308c\:3070\:3088\:3044\:3002\
\>", "Text",
 CellChangeTimes->{{3.449010925907426*^9, 3.449010956943426*^9}, {
  3.4490110360554256`*^9, 3.449011062153426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}], "/.", " ", 
   RowBox[{"Solve", "[", 
    RowBox[{"eqs", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4490108497904263`*^9, 3.449010880036426*^9}, {
  3.449010981972426*^9, 3.449011017014426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["11", "25"], ",", 
   RowBox[{"-", 
    FractionBox["2", "25"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.449011008319426*^9, 3.4490110174754257`*^9}}]
}, Open  ]],

Cell["\<\
\:30ea\:30b9\:30c8\:306e i \:756a\:76ee\:306e\:8981\:7d20\:306f [[i]] \:3067\
\:53c2\:7167\:3067\:304d\:308b\:3002\:4ee5\:4e0b\:306e\:3088\:3046\:306b\:3084\
\:308b\:306e\:3082\:3088\:3044\:3002\
\>", "Text",
 CellChangeTimes->{{3.449011086226426*^9, 3.4490111231144257`*^9}, {
  3.449011174571426*^9, 3.449011178091426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "/.", " ", 
    RowBox[{"Solve", "[", 
     RowBox[{"eqs", ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ")"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4490108497904263`*^9, 3.449010880036426*^9}, {
  3.449011148939426*^9, 3.449011162701426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["11", "25"], ",", 
   RowBox[{"-", 
    FractionBox["2", "25"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.4490111587834263`*^9, 3.4490111634234257`*^9}}]
}, Open  ]],

Cell["\:6587\:5b57\:4fc2\:6570\:3067\:3082OK", "Text",
 CellChangeTimes->{{3.449011243406426*^9, 3.449011248139426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eqs", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", 
      RowBox[{"b", " ", "y"}]}], "\[Equal]", "1"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"c", " ", "x"}], " ", "+", " ", 
      RowBox[{"d", " ", "y"}]}], "\[Equal]", "2"}]}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", "x"}], "+", 
     RowBox[{"b", " ", "y"}]}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"c", " ", "x"}], "+", 
     RowBox[{"d", " ", "y"}]}], "\[Equal]", "2"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4490112616924257`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eqs", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "b"}], "-", "d"}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "b"}], " ", "c"}], "+", 
        RowBox[{"a", " ", "d"}]}]]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "c"}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "b"}], " ", "c"}], "+", 
        RowBox[{"a", " ", "d"}]}]]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.449011267325426*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"eqs", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"x", "==", 
    FractionBox[
     RowBox[{
      RowBox[{"2", " ", "b"}], "-", "d"}], 
     RowBox[{
      RowBox[{"b", " ", "c"}], "-", 
      RowBox[{"a", " ", "d"}]}]]}], "&&", 
   RowBox[{"y", "==", 
    FractionBox[
     RowBox[{
      RowBox[{"2", " ", "a"}], "-", "c"}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "b"}], " ", "c"}], "+", 
      RowBox[{"a", " ", "d"}]}]]}], "&&", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "c"}], "-", 
     RowBox[{"a", " ", "d"}]}], "\[NotEqual]", "0"}]}], "||", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "a"}], "==", "c"}], "&&", 
   RowBox[{
    RowBox[{"2", " ", "b"}], "==", "d"}], "&&", 
   RowBox[{"x", "==", 
    FractionBox[
     RowBox[{"2", "-", 
      RowBox[{"d", " ", "y"}]}], "c"]}], "&&", 
   RowBox[{"c", "\[NotEqual]", "0"}]}], "||", 
  RowBox[{
   RowBox[{"a", "==", "0"}], "&&", 
   RowBox[{
    RowBox[{"2", " ", "b"}], "==", "d"}], "&&", 
   RowBox[{"c", "==", "0"}], "&&", 
   RowBox[{"y", "==", 
    FractionBox["2", "d"]}], "&&", 
   RowBox[{"d", "\[NotEqual]", "0"}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 1\:3000\:53cc\:66f2\:7dda\:3068\:76f4\:7dda\:306e\:4ea4\:308f\
\:308a", "Subsection",
 CellChangeTimes->{{3.449005066096426*^9, 3.449005082903426*^9}}],

Cell["\<\
Let  C be a hyperbola defined by  x^2-y^2=1.  Let  L be a line defined by  \
-2x+3y=5.  Find the intersection of  C and L.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g1", "=", 
  RowBox[{"ContourPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}]}], "\[Equal]", "1"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "x"}], "+", 
        RowBox[{"3", "y"}]}], "\[Equal]", "5"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449011747476426*^9, 3.4490117487654257`*^9}, {
   3.449011809954426*^9, 3.449011812635426*^9}, {3.4490118444604263`*^9, 
   3.449011854027426*^9}, 3.449011893825426*^9, {3.449012034637426*^9, 
   3.449012042730426*^9}, {3.449012234870426*^9, 3.449012253944426*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxdmAl0VUUShl/2fd/z8pLghICgIuISRKY7LqCj5giCyxy2qCgKo8iIioCY
IDpGCZFdBBUYNS6gRmBk7UZcDiLGBQFRFokxQAI8spGFhHm36u/m+O6551xy
6de3urr6r6+qx32PDR8f6HK5PghwuZwnX7nywK0T+q3cmqO/GdorZ8W5bPnf
BfOK/r4pW2/416++O1vOGzlp2HdLsvXCpp4/PdPhkY86rzd49MJhGYuG/eKR
Q8aPGDJ+oUdP4veyZ8egey99zKO/3lh9We6GLPnc/hGZUx7N0nlLj51+YL1b
/kYTu3W/6B2XRy9wyznF6S8U3+zW+/m9rIm7Ont3jltHt/0xOWNypkwdtubT
fhdlajFwVOiMKRnyH/Pzbpmfl6H7X/XxU7fdniHHnl6aub8zXQ/h99J7XXXT
ddXp+n3n6pMuR4z0XT+n6Rjf53ZcniY/o3Wl6tnXVs6+NjxNHn8r9sRba1P1
On4vq68ZejhrZqoe1/rcL0F/pshndEPApy+m6KhZ+ede8ybL/FucDyVrGR9c
GP9FsgwvzQ0vHZesL+L3cuPh3psP907WFRMvqpi4KknmB27MDxyYpLvmVnXO
rUqUCx0zb0nUZG5JoqRnQqKu4Pcyfc0PmWt+SNAhRUeCi8YlyLl7J8zdeyxe
T3vKueIl7128poeMl/R8Lk6fO+9ccVIXNXxR1BCro9ZJ3x0rvw+81HfH6MwJ
JakTSqLlYfJzlHa8ER0ULV9w/L8/Uu/j9/LVN+Mfqu0Vqes9dwZN/zpCvh3a
Wv5eSbg+/3xBX9EjXG4iP4Vq8lt5mCQ/9g7VVfxeZi8uu6fPfSF6S25N6StR
obI3+SVYLx5/r+8OkVWX7PLdQTqX38tnVjc8u7ohUF/3zalrvjkVJBeTHwLZ
PxcHsX8eDtDl/F5+PGTiuiETXfroQecKkMEcyOwPVwD7w9Wt2sgf50XUoE+S
Bn3Sqaqnb/l6+pbzoobW2alqab5uUU1x267IHzu6BPkjvV0dH3yoZvChTrGN
1tWq9uhDvpDrFFvvf2Tc6aWt6ieeR5TWFJTXFLQq8kNluyC/xDar3fSDNrGM
vtOo6jet9d1nxeh9U333GbWW5xVdo4u277rYq2idO1vE38gvJ9Vvd4y5YVpM
i6in79SrLHrfLJ53tueL44rX2Sx4mXWq4J6VA+5Z2SS+onn/VKuv6OO7mwSd
04xadRX9vlG00f8fVT0pQBvFKrLvqEqnhTdi/UdVGdstrv8wbm7Lyt9VS8rY
M75bdLIwqKl3hPnuMyKU/rFPVTrLPuEVT9Cwn1V35WX9J670iiqa50eVSwfF
K5xjE1z4vYqj8+gVZYOd87pDyfdv/fafvb3iRxr/uSJz87yCn9uxXq8I5+cW
Xvdpwe+PbDH/z88PBw7F7/e/Sr8XjwX2mhzYyyuG8/wiGt9vJr3YITyw77cg
sk9si1iuI5Z7xRS2XzyO9e57gtYrTsEfm9kfwvjrJvaXSII/J7M/RTb8Xcr+
Fj2xH//j/RArsF+zeL9EP+znO7yfooPW2yTqeb+FXzyIHxEvuzhexCuIpwSO
J/ES2dEq3q6b9kbdtFNi/8NT3/15Ravwwo8mHvcEO8LjFbWI1zs5XkVU476G
ypva7Dr5YLaLsJJRSSWjmsQMxP8Rjn+xLfjgyLKIDmunOS8xD4yqeLywVezG
eVrH50nkbTvad9vRTmvHg3Quu8TA7mWe9eHt4mKcz5l8PmFHtxjP51donG/z
Hb/zL1gfXfIsPbvEAeiHGeenL7Ic+lPO+iOvhD6ZcX76JedD39ayvsn10D8z
zuijh/VR1kI/Z7F+yjboqxlXB/1dyfor/fRZXgL9LmX9lonQdzMuDPr/Leu/
NPlhO+cH2U2rjuf3s+Lkk8gvZlwQ8s/LnH+kX37iv335q4Lzl2xHfjPjypH/
8jj/Sb/8KP+O/BnK+VOGIb+acWOQf5/m/Cv98rMsQf6u4/wtI5DfzbhK5P/h
nP+l4YMzzAeyH/hhNPODHAS+MOMiwB8pzB/Sj0/kpeCX2cwvMhd8Y8Z9Bf55
lvlHGj7KYz6SC8BPNzE/yQXgKzPOj7/kTvDZauYzeTbq1LIlWTl2nOE5VXzS
vXdbjvlbg+/M77X5PetOtq7A/Pi+5TjwnTb2Ge7Lh/3gOz0L68P6LceB7zT4
znJfHfwXxf7VafAv/G85DnynwXeW+1qwf+A7Db4z+285DnynwXeW+35C/Izl
+NLTEV+IP8tx4DsNvrPctxXxC77T4DvZwfFvOQ58p8F3lvs8OD/gOw2+M+fP
chz4ToPvLPftxPkF32nwnTn/luPAdxp8Z7lvGfQDfKfBd7Kd9cdyHPhOg+8s
9+VDv6BvluPAdxp8Z7lvNvQR+mk5DnynwXeW+5bQ04X4DQDXdQvDeVnQc8V6
bznsCs4HqusA5wPwnALPiSc5n6jbkU96cr6xHAa+U+A7y4k9kK8U5zPLYeA9
Bd4Td3A+VFnIh8iXlqPAfwr8Z7nyOPLtPs7HyuTjBzhfq8HI1+BDlYd8PpXW
06IOhTsn8qQIG3btkt3xLcrkf5r2SLPKpHg7IS5hu9Wk+oaXK/ceF099efeM
L+9uVgU08XFwU7MCT4rLmD+U4Q/wpAJPimTmF/Uk+OXhqp35r09qVIZvwJNq
DvjHcPBc8BH4SRl+Ak8q8KRYxjypPhtDPCkU85gyPNaDeU3FMU8KPv9eNRo8
N5l5TxneA0+CK7cbjgRXZg52/eVvlwt8qfz40nDolr/+PnvrrZh/E3h1Cr5v
eBa8qZrYPpUH+28AD+/A+gwvT4M/rgZfg7+V4e/Cd5yDe0YV+2QypuGgMv4t
A6974P/XwfP5zJ/K8D74U4E/Tf2gTP0QinhIpOcxZeLnM9QfB5k3lalPliI+
r0H9YuI7eQzXN42I/wdR/6A+umA3zlMj6idz/paivvoV5/Mr1F8nuD6z3ynA
eS9H/fYK9OAh1HffQS/MvEZPPKgPg6E3Eagff2c+1Gac0aeNqD8XQ78Woz4d
BH0z4/z0Ty+DPm5A/Yv62I7z01d9Evr7Iupr1xzWZzPuNPT7PdTnRt9fQ/1+
JfS/DPU96n87Lg75Yw/6A375hf/25Z9gzj+m/2DHhSF/zUN/wi+/8d++/LcQ
/Q30P+y4+cifvdEf8cuv+nrk30j0V9B/seOKkb9noj/jl9/1HOT/evR30P+x
4z4EP9yF/pAfX+gB4I9i9JfQf7LjYsAvGehP+fGN7g/+eRH9LfS/7Lid4KcS
9Mf8+EovAn8NRX9tEfjMjPPjN9O/06Z/18Z8aMcZHgQf2r9H0hWjD5JdOfBv
tO5Fz2wbL+TH2Gz9R18ncUZaOxbQfkbqjfSdLH0b+SdCd5R91Fb2UZZeRToe
Dq5x6056hlk/VJMghukI0jm3HueoXEoY5nHbeE8j+cvQOXsKPXsKQy7sA+1r
MOxO14do3iA9mexLs+fxqgHOlaaXv+ZcATYOWLcD9I0eZ+IUvb7NMfy8upne
p+hHwA0m7uLpe+fUcEeepybr/uCIRfSdZG30pZjWkaTXEii0KRP3ZcjrbF+C
7gNd5XXGa6OHsyg/x+t3kQfNuQtB3nGTP2L0zY5szj4BLohG3/ZPZfati+K5
RhXQ+qO0oGeN2krjIrXJByNpPeH60RnOh/cp43dF/PGdmkL2hujPkc84PwRr
kx8rnO1uC9QbKF+vF8bvjyD/riE/uPTmQnK0mAS/1iD/G7/1Ih0/IhbRfB2q
lvLe7+JNmqfD8kW1454ZLaqB4uyY5YsBFFANIhJ+agZP3c+cY3nsJcqvtWom
5Z0m2wfLBd+dZztVAMXlWfSBPle3oe9h1v0OFSIdYukPzg9WiDlst9DUyKuy
/Yj+7FcR7mznW922D5RKedolV4GzuP4JkHeSf07avsQS9Nf+w36WZh1cbwXJ
UQ86V6vY+a1zBaNeahd8TkOkseN12s9Q2QP9liiyJ1Sm0brPCcP/TeRXl7yd
48L2PcYS2EXIvfjuPD7/8nr6XojtP2x0pu8bKsktnmjb1+D6KlouZ12QiRzH
mD8S9XusnafWMfeNOO6TVEbJEeTHOMn9sCjbryim9cfKXbT+C30Mqg9HJuC7
8aivE1CnJ9h+RRLZkSBjyB8X+hjryZ5EGUJxkCTXkD4koT5Jtk9TN6bRfibL
VvJfsixinZCf0jwXxlHfIjZVnqb4vtDfeNpZbl0K7EuDHanwT7odx/ucLvuz
rtm+xQH8bjP5PxP+T0efIFOyTqTbPsUgOi/p8gNal1v+m85FhpxAfnLbeVfQ
fmXJZNZh7L8H+59p+xZk/rRMvM+G/zJtn4L13i1vpHlzrB2ltL858i7aXzf8
motnlvw/HPM0JQ==
   "], {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     TagBox[
      TooltipBox[
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 
        53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 
        70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 
        87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 
        103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 
        117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 
        131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 
        145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 
        158}],
       RowBox[{
         RowBox[{
           SuperscriptBox["x", "2"], "-", 
           SuperscriptBox["y", "2"]}], "\[Equal]", "1"}]],
      Annotation[#, $CellContext`x^2 - $CellContext`y^2 == 1, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       LineBox[{159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 
        171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 
        185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
        199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 
        213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 
        227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 
        241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 
        255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 
        269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 
        283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, 
        297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 
        311, 312, 313, 314, 315, 316, 317, 318, 319, 320}],
       RowBox[{
         RowBox[{
           SuperscriptBox["x", "2"], "-", 
           SuperscriptBox["y", "2"]}], "\[Equal]", "1"}]],
      Annotation[#, $CellContext`x^2 - $CellContext`y^2 == 1, 
       "Tooltip"]& ]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], 
     TagBox[
      TooltipBox[
       LineBox[{321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 
        333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 
        347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 
        361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, 
        375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 387, 388, 
        389, 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 401, 402, 
        403, 404, 405, 406, 407, 408, 409, 410, 411, 412, 413, 414, 415, 416, 
        417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 427}],
       RowBox[{
         RowBox[{
           RowBox[{
             RowBox[{"-", "2"}], " ", "x"}], "+", 
           RowBox[{"3", " ", "y"}]}], "\[Equal]", "5"}]],
      Annotation[#, (-2) $CellContext`x + 3 $CellContext`y == 5, 
       "Tooltip"]& ]}}],
  AspectRatio->1,
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  Frame->True,
  PlotRange->{{-8, 8}, {-8, 8}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.449012043587426*^9, 3.4490122601984262`*^9}]
}, Open  ]],

Cell["\:53cc\:66f2\:7dda\:3068\:76f4\:7dda\:306e\:4ea4\:70b9\:3092\:6c42\:3081\
\:308b", "Text",
 CellChangeTimes->{{3.449012299955426*^9, 3.449012317703426*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eqs", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], "-", 
       RowBox[{"y", "^", "2"}]}], "\[Equal]", "1"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "x"}], "+", 
       RowBox[{"3", "y"}]}], "\[Equal]", "5"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4490123416114264`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{"eqs", ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"10", "-", 
         RowBox[{"3", " ", 
          SqrtBox["30"]}]}], ")"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{
       FractionBox["1", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"15", "-", 
         RowBox[{"2", " ", 
          SqrtBox["30"]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"10", "+", 
         RowBox[{"3", " ", 
          SqrtBox["30"]}]}], ")"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{
       FractionBox["1", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", 
         RowBox[{"2", " ", 
          SqrtBox["30"]}]}], ")"}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.449012352578426*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 2", "Subsection"],

Cell["\<\
Find a circle that passes through all the intersection points of C and L (in \
Example 1) and  point (5,0).\
\>", "Text",
 CellChangeTimes->{{3.449012644990426*^9, 3.4490126510414257`*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", "f", "]"}]], "Input"],

Cell["f[x, y] = 0 \
\:3067\:4e00\:822c\:7684\:306a\:5186\:3092\:8868\:3057\:3066\:304a\:304f", \
"Text",
 CellChangeTimes->{{3.449013984410426*^9, 3.449014012722426*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"y", "^", "2"}], "+", 
    RowBox[{"a", " ", "x"}], "+", " ", 
    RowBox[{"b", " ", "y"}], "+", "c"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4490132118174257`*^9}],

Cell["\:ff11\:756a\:76ee\:306e\:4ea4\:70b9\:3092\:901a\:308b", "Text",
 CellChangeTimes->{{3.449013952351426*^9, 3.449013967580426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq1", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "/.", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "\[Equal]", "0"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", "25"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"10", "-", 
       RowBox[{"3", " ", 
        SqrtBox["30"]}]}], ")"}], "2"]}], "+", 
   RowBox[{
    FractionBox["1", "25"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"15", "-", 
       RowBox[{"2", " ", 
        SqrtBox["30"]}]}], ")"}], "2"]}], "+", 
   RowBox[{
    FractionBox["1", "5"], " ", 
    RowBox[{"(", 
     RowBox[{"10", "-", 
      RowBox[{"3", " ", 
       SqrtBox["30"]}]}], ")"}], " ", "a"}], "+", 
   RowBox[{
    FractionBox["1", "5"], " ", 
    RowBox[{"(", 
     RowBox[{"15", "-", 
      RowBox[{"2", " ", 
       SqrtBox["30"]}]}], ")"}], " ", "b"}], "+", "c"}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.449013866385426*^9}]
}, Open  ]],

Cell["\:ff12\:756a\:76ee\:306e\:4ea4\:70b9\:3092\:901a\:308b", "Text",
 CellChangeTimes->{{3.449013923285426*^9, 3.4490139319934263`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq2", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "/.", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "\[Equal]", "0"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", "25"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"15", "+", 
       RowBox[{"2", " ", 
        SqrtBox["30"]}]}], ")"}], "2"]}], "+", 
   RowBox[{
    FractionBox["1", "25"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"10", "+", 
       RowBox[{"3", " ", 
        SqrtBox["30"]}]}], ")"}], "2"]}], "+", 
   RowBox[{
    FractionBox["1", "5"], " ", 
    RowBox[{"(", 
     RowBox[{"10", "+", 
      RowBox[{"3", " ", 
       SqrtBox["30"]}]}], ")"}], " ", "a"}], "+", 
   RowBox[{
    FractionBox["1", "5"], " ", 
    RowBox[{"(", 
     RowBox[{"15", "+", 
      RowBox[{"2", " ", 
       SqrtBox["30"]}]}], ")"}], " ", "b"}], "+", "c"}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.449013871892426*^9}]
}, Open  ]],

Cell["\:70b9 (5, 0) \:3092\:901a\:308b", "Text",
 CellChangeTimes->{{3.449013883237426*^9, 3.449013897889426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq3", "=", " ", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"5", ",", "0"}], "]"}], "\[Equal]", "0"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"25", "+", 
   RowBox[{"5", " ", "a"}], "+", "c"}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{3.449013879884426*^9}]
}, Open  ]],

Cell["\<\
\:4e0a\:306e\:ff13\:6761\:4ef6\:3092\:9023\:7acb\:3055\:305b\:308b\
\>", "Text",
 CellChangeTimes->{{3.449014044878426*^9, 3.4490140636664257`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"eq1", ",", "eq2", ",", "eq3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"b", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["138", "25"]}]}], ",", 
    RowBox[{"a", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["108", "25"]}]}], ",", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["17", "5"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.449014037358426*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"g2", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "/.", "\[InvisibleSpace]", "sol2"}], 
       ")"}], "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "9"}], ",", "8"}], "}"}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.449014262545426*^9, 3.449014293473426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"g1", ",", "g2"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{3.449014305187426*^9}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdmAl0VUUShl/2fd/z8pLghICgIuISRKY7LqCj5giCyxy2qCgKo8iIioCY
IDpGCZFdBBUYNS6gRmBk7UZcDiLGBQFRFokxQAI8spGFhHm36u/m+O6551xy
6de3urr6r6+qx32PDR8f6HK5PghwuZwnX7nywK0T+q3cmqO/GdorZ8W5bPnf
BfOK/r4pW2/416++O1vOGzlp2HdLsvXCpp4/PdPhkY86rzd49MJhGYuG/eKR
Q8aPGDJ+oUdP4veyZ8egey99zKO/3lh9We6GLPnc/hGZUx7N0nlLj51+YL1b
/kYTu3W/6B2XRy9wyznF6S8U3+zW+/m9rIm7Ont3jltHt/0xOWNypkwdtubT
fhdlajFwVOiMKRnyH/Pzbpmfl6H7X/XxU7fdniHHnl6aub8zXQ/h99J7XXXT
ddXp+n3n6pMuR4z0XT+n6Rjf53ZcniY/o3Wl6tnXVs6+NjxNHn8r9sRba1P1
On4vq68ZejhrZqoe1/rcL0F/pshndEPApy+m6KhZ+ede8ybL/FucDyVrGR9c
GP9FsgwvzQ0vHZesL+L3cuPh3psP907WFRMvqpi4KknmB27MDxyYpLvmVnXO
rUqUCx0zb0nUZG5JoqRnQqKu4Pcyfc0PmWt+SNAhRUeCi8YlyLl7J8zdeyxe
T3vKueIl7128poeMl/R8Lk6fO+9ccVIXNXxR1BCro9ZJ3x0rvw+81HfH6MwJ
JakTSqLlYfJzlHa8ER0ULV9w/L8/Uu/j9/LVN+Mfqu0Vqes9dwZN/zpCvh3a
Wv5eSbg+/3xBX9EjXG4iP4Vq8lt5mCQ/9g7VVfxeZi8uu6fPfSF6S25N6StR
obI3+SVYLx5/r+8OkVWX7PLdQTqX38tnVjc8u7ohUF/3zalrvjkVJBeTHwLZ
PxcHsX8eDtDl/F5+PGTiuiETXfroQecKkMEcyOwPVwD7w9Wt2sgf50XUoE+S
Bn3Sqaqnb/l6+pbzoobW2alqab5uUU1x267IHzu6BPkjvV0dH3yoZvChTrGN
1tWq9uhDvpDrFFvvf2Tc6aWt6ieeR5TWFJTXFLQq8kNluyC/xDar3fSDNrGM
vtOo6jet9d1nxeh9U333GbWW5xVdo4u277rYq2idO1vE38gvJ9Vvd4y5YVpM
i6in79SrLHrfLJ53tueL44rX2Sx4mXWq4J6VA+5Z2SS+onn/VKuv6OO7mwSd
04xadRX9vlG00f8fVT0pQBvFKrLvqEqnhTdi/UdVGdstrv8wbm7Lyt9VS8rY
M75bdLIwqKl3hPnuMyKU/rFPVTrLPuEVT9Cwn1V35WX9J670iiqa50eVSwfF
K5xjE1z4vYqj8+gVZYOd87pDyfdv/fafvb3iRxr/uSJz87yCn9uxXq8I5+cW
Xvdpwe+PbDH/z88PBw7F7/e/Sr8XjwX2mhzYyyuG8/wiGt9vJr3YITyw77cg
sk9si1iuI5Z7xRS2XzyO9e57gtYrTsEfm9kfwvjrJvaXSII/J7M/RTb8Xcr+
Fj2xH//j/RArsF+zeL9EP+znO7yfooPW2yTqeb+FXzyIHxEvuzhexCuIpwSO
J/ES2dEq3q6b9kbdtFNi/8NT3/15Ravwwo8mHvcEO8LjFbWI1zs5XkVU476G
ypva7Dr5YLaLsJJRSSWjmsQMxP8Rjn+xLfjgyLKIDmunOS8xD4yqeLywVezG
eVrH50nkbTvad9vRTmvHg3Quu8TA7mWe9eHt4mKcz5l8PmFHtxjP51donG/z
Hb/zL1gfXfIsPbvEAeiHGeenL7Ic+lPO+iOvhD6ZcX76JedD39ayvsn10D8z
zuijh/VR1kI/Z7F+yjboqxlXB/1dyfor/fRZXgL9LmX9lonQdzMuDPr/Leu/
NPlhO+cH2U2rjuf3s+Lkk8gvZlwQ8s/LnH+kX37iv335q4Lzl2xHfjPjypH/
8jj/Sb/8KP+O/BnK+VOGIb+acWOQf5/m/Cv98rMsQf6u4/wtI5DfzbhK5P/h
nP+l4YMzzAeyH/hhNPODHAS+MOMiwB8pzB/Sj0/kpeCX2cwvMhd8Y8Z9Bf55
lvlHGj7KYz6SC8BPNzE/yQXgKzPOj7/kTvDZauYzeTbq1LIlWTl2nOE5VXzS
vXdbjvlbg+/M77X5PetOtq7A/Pi+5TjwnTb2Ge7Lh/3gOz0L68P6LceB7zT4
znJfHfwXxf7VafAv/G85DnynwXeW+1qwf+A7Db4z+285DnynwXeW+35C/Izl
+NLTEV+IP8tx4DsNvrPctxXxC77T4DvZwfFvOQ58p8F3lvs8OD/gOw2+M+fP
chz4ToPvLPftxPkF32nwnTn/luPAdxp8Z7lvGfQDfKfBd7Kd9cdyHPhOg+8s
9+VDv6BvluPAdxp8Z7lvNvQR+mk5DnynwXeW+5bQ04X4DQDXdQvDeVnQc8V6
bznsCs4HqusA5wPwnALPiSc5n6jbkU96cr6xHAa+U+A7y4k9kK8U5zPLYeA9
Bd4Td3A+VFnIh8iXlqPAfwr8Z7nyOPLtPs7HyuTjBzhfq8HI1+BDlYd8PpXW
06IOhTsn8qQIG3btkt3xLcrkf5r2SLPKpHg7IS5hu9Wk+oaXK/ceF099efeM
L+9uVgU08XFwU7MCT4rLmD+U4Q/wpAJPimTmF/Uk+OXhqp35r09qVIZvwJNq
DvjHcPBc8BH4SRl+Ak8q8KRYxjypPhtDPCkU85gyPNaDeU3FMU8KPv9eNRo8
N5l5TxneA0+CK7cbjgRXZg52/eVvlwt8qfz40nDolr/+PnvrrZh/E3h1Cr5v
eBa8qZrYPpUH+28AD+/A+gwvT4M/rgZfg7+V4e/Cd5yDe0YV+2QypuGgMv4t
A6974P/XwfP5zJ/K8D74U4E/Tf2gTP0QinhIpOcxZeLnM9QfB5k3lalPliI+
r0H9YuI7eQzXN42I/wdR/6A+umA3zlMj6idz/paivvoV5/Mr1F8nuD6z3ynA
eS9H/fYK9OAh1HffQS/MvEZPPKgPg6E3Eagff2c+1Gac0aeNqD8XQ78Woz4d
BH0z4/z0Ty+DPm5A/Yv62I7z01d9Evr7Iupr1xzWZzPuNPT7PdTnRt9fQ/1+
JfS/DPU96n87Lg75Yw/6A375hf/25Z9gzj+m/2DHhSF/zUN/wi+/8d++/LcQ
/Q30P+y4+cifvdEf8cuv+nrk30j0V9B/seOKkb9noj/jl9/1HOT/evR30P+x
4z4EP9yF/pAfX+gB4I9i9JfQf7LjYsAvGehP+fGN7g/+eRH9LfS/7Lid4KcS
9Mf8+EovAn8NRX9tEfjMjPPjN9O/06Z/18Z8aMcZHgQf2r9H0hWjD5JdOfBv
tO5Fz2wbL+TH2Gz9R18ncUZaOxbQfkbqjfSdLH0b+SdCd5R91Fb2UZZeRToe
Dq5x6056hlk/VJMghukI0jm3HueoXEoY5nHbeE8j+cvQOXsKPXsKQy7sA+1r
MOxO14do3iA9mexLs+fxqgHOlaaXv+ZcATYOWLcD9I0eZ+IUvb7NMfy8upne
p+hHwA0m7uLpe+fUcEeepybr/uCIRfSdZG30pZjWkaTXEii0KRP3ZcjrbF+C
7gNd5XXGa6OHsyg/x+t3kQfNuQtB3nGTP2L0zY5szj4BLohG3/ZPZfati+K5
RhXQ+qO0oGeN2krjIrXJByNpPeH60RnOh/cp43dF/PGdmkL2hujPkc84PwRr
kx8rnO1uC9QbKF+vF8bvjyD/riE/uPTmQnK0mAS/1iD/G7/1Ih0/IhbRfB2q
lvLe7+JNmqfD8kW1454ZLaqB4uyY5YsBFFANIhJ+agZP3c+cY3nsJcqvtWom
5Z0m2wfLBd+dZztVAMXlWfSBPle3oe9h1v0OFSIdYukPzg9WiDlst9DUyKuy
/Yj+7FcR7mznW922D5RKedolV4GzuP4JkHeSf07avsQS9Nf+w36WZh1cbwXJ
UQ86V6vY+a1zBaNeahd8TkOkseN12s9Q2QP9liiyJ1Sm0brPCcP/TeRXl7yd
48L2PcYS2EXIvfjuPD7/8nr6XojtP2x0pu8bKsktnmjb1+D6KlouZ12QiRzH
mD8S9XusnafWMfeNOO6TVEbJEeTHOMn9sCjbryim9cfKXbT+C30Mqg9HJuC7
8aivE1CnJ9h+RRLZkSBjyB8X+hjryZ5EGUJxkCTXkD4koT5Jtk9TN6bRfibL
VvJfsixinZCf0jwXxlHfIjZVnqb4vtDfeNpZbl0K7EuDHanwT7odx/ucLvuz
rtm+xQH8bjP5PxP+T0efIFOyTqTbPsUgOi/p8gNal1v+m85FhpxAfnLbeVfQ
fmXJZNZh7L8H+59p+xZk/rRMvM+G/zJtn4L13i1vpHlzrB2ltL858i7aXzf8
motnlvw/HPM0JQ==
    "], {{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      TagBox[
       TooltipBox[
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
         35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
         69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
         86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
         102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115,
          116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 
         129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142,
          143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 
         156, 157, 158}],
        RowBox[{
          RowBox[{
            SuperscriptBox["x", "2"], "-", 
            SuperscriptBox["y", "2"]}], "\[Equal]", "1"}]],
       Annotation[#, $CellContext`x^2 - $CellContext`y^2 == 1, "Tooltip"]& ], 
      
      TagBox[
       TooltipBox[
        LineBox[{159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 
         171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184,
          185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 
         198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211,
          212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
         225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238,
          239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 
         252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265,
          266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 
         279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292,
          293, 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 
         306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319,
          320}],
        RowBox[{
          RowBox[{
            SuperscriptBox["x", "2"], "-", 
            SuperscriptBox["y", "2"]}], "\[Equal]", "1"}]],
       Annotation[#, $CellContext`x^2 - $CellContext`y^2 == 1, 
        "Tooltip"]& ]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      TagBox[
       TooltipBox[
        LineBox[{321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 
         333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346,
          347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 
         360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373,
          374, 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 
         387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 400,
          401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 411, 412, 413, 
         414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 
         427}],
        RowBox[{
          RowBox[{
            RowBox[{
              RowBox[{"-", "2"}], " ", "x"}], "+", 
            RowBox[{"3", " ", "y"}]}], "\[Equal]", "5"}]],
       Annotation[#, (-2) $CellContext`x + 3 $CellContext`y == 5, 
        "Tooltip"]& ]}}], GraphicsComplexBox[CompressedData["
1:eJxdV3k4VO0btjO2mH2OIiUtaFPS4nsfcVEoX1KhpEg7pRItEpVKkiQRpUQi
KUvW8lYfSRLGUpY2WzSEGbvBT6Pzz+9c17lmzpn3vOd57vu57+cZTedDNq4S
YmJiDRPnn09OT4jcpa3VKDXzeziT0YYX1Rr+kJnSgPbXZ7rVZ7Zjf621oVpr
G5GXVa5ZfBoP5weVDZ2J/onYbe6l2oWdmKZ5Wl9/bw96KTs6WFfUjQNF6/lI
a4w/k6ncg3NUpAKXFvHRSTi7u31hD3awD3e1Z/ahg6L9e3CK258v/eiLhvib
Axw+bp2XOyfRcgB5nU8PJ+bz8TqjeaFLLg6jwKDg+sLHfFz55zG3EfTOuFqj
rICPj4jPUGAEClHG/t1nx5v5uOiB8pyDuWPIad3sc+9UBHhwXHQgx7bOgvGp
ArzjYnqpz1Mx0Nxa9eatjgA7JF1YnRIhDmrI4FONngAHi+KXgNs0y9RRTQFe
G3zyrk+XBHAaYhLs2ALcfa90KGhUErivItbw+Hw8/c/yUCnw/6+j+V0lHxvd
6I6uVJSGX4a+T4zz+FjNvsKu6KYM6JoH9TVY8HGaKF8ZoA9ynXYu5mND442N
Pkqy0H6a8d5Ik4/3W1y365CQAxKfQ81hdf8K5EAusNB54foebPrndVoU2OBb
/szPoAd7fbLf5nycAjsftZiKU3rwZ3thGuu1PHzsK1xGWdONP4nwUoCVBo/q
I2O7cE6U2pYdFYrASXp/VTugE3fsi1zQP00Z6Dk5s5TceFh7ICv8ndIUIPmv
vG1u0JYxBXz09thmerVhoQjOKVB1+3BmW9VPbMrNogYfUQGVHdEfZ7a3YBtt
cx+daBX4WNjwyGNBCzYXxasKTW9a9t0934gjrj7RfX1HFSZ5+YZZ2fZtS6Sp
0FTCyWL41OMQEf5UqDI1dbg2/zOmslXx1hQqvDpWO01gUYmdQtVmL9ahwQrR
vsV4VmpiYLU1DezK1a7F6xbiWlG+NHjCbJEbu/4a71scP/ptFx0GRffzUCXr
35mep+ggv9cvQhK/QjNE/NFhDhHL480pQJ5CaH6zkwGRojjq0LoPNke8LjIg
atZvk3fuX9ABES4McG4yUW/u+I76KulamouYkCvitRU9uFDHXHWUCetnNAXQ
NvxCGaL7TLCMGjfMMuxGV5a3ml/6woQw0f7daMnK4E3xhixof5Tc6hohQNZW
dfLgwgILUX59iO191fhnCAuqN145kifsR50PEioeZ7Eg31tu5e0Pg8j2WE2w
RxkLxMX+HMOoSZcLG+pZMP+1f3Jr1DAaFeHMgkSj2XWb64RIqStoe5IGG7JF
cY2hoyUrBNfnsOHg+ptidRcndFLNzyMs2GC11+tnr5E4aJ8oGjHeTK4Xh7Cz
mzxsndkwpJ46e2eyBJTqUu+4HGDD1gv+zd27JGG04LfFrGNsuCHKTwpGNTzm
yZxgQ+ilE8kbLKQhTKdJXfokG0rV6UEh6dKQ3PvJtm3id3cRrjLQGHlfZnji
+aOrP+a5P5WF5ezpbv2H2VCyHe4HLJEDfblznCt72H/xoYDtaHmX6jY2xCa/
2m3YRoG5nKdTFq1lQ6L+P02v+uUhdLwrQsmIDdoinhVggB+0LmwxG7xLHdcW
jCoAic++pjA/+gcliDV8nrt3hAU72K+D/ulXguBvd8ynDZP4KoNZz9zi/AEW
mH0LCAtUVQaV0P5f4c9ZYPokJ/hW2RSITK2rnHqbNZmPgQps3Hl44YLdLFij
3jK25r0KVFYFZyY7sMCSg3nnWlWgNUJDM3w6CxpE9akKxXw/jWMUFqyOu5t0
564qkPUzX7xSuX1cFa5RSzQkLzIn84+jwmezwriapUxwb36g7zOhC/Qzqnqk
hPGXLxqQ9XqTZZUpNUyDmMc1N2JNGeDIpL/siKBDi+BVaGQTfRIfKgNIPez0
lthX68EAjw2lZsv16LDnS0Lmf18YULgsYHrSO9pffplA6o111DHV+h4TatoV
9p0aooIe07vmrBQLwt73lhvsp4IIvrMsIPWdku6eXR85Uff2BT86H6rCtIK5
Nn7ybCD94mFL4AtZVzY871id+OaOyt/6YMN1rVHXu8tUwJJLyxX0sIH0o82S
hr1OKhz4Pl4ceXlEGWb9eY0NByQON1LOtCiDk0RK+f0tHHhxL5ej+0YZ5DIV
xDKcOH99Tgn4Rn56VyI5cD+DK5topgSr/a0YU9M4MOnvivCj38KnuIYDIyr+
9HMMxUm+OjlgWNOmfuWWAlzSMI/pkiSA9NuYXVbzX8gTUAmmbmfUFSD4paD6
A4uAtvcPO+dxKSBo5vK71hJA+vnDzFZpOWcCBixH1PMpcrA0rvL6wDkChDt+
sZOGZGHqowtdby8QQPaPjG+xuotiCIjPW1k9Q1oG0vPM/XLTCEjVz7U02CAN
Txy3WGlhAsj+1OPzJU2pmICnFwnj0T5JCBBYDV6uIIDg/dCbWSkB5XtPyZjU
E0D2vw2ypUabvxDwy8PP1bpIHFxOOVAivxEgefmz74xzYnDm8vK+n18JIPvr
K2dqyKGJ9dtehD0KaR5DtvSO52tqCdhk1TdbM1WIwoLLFZM+TuDxt3971b/f
qVNIAEXecR2/fgjt0tpLq8shYLHyjW1xkYMooUSjUCGFAHI+MNKuHc6KIED7
dJEczupFUpKPjRf5EqAc/V4Ys6UXRRHZD66dIICcP7S3RUc820wAqJWYpCj0
INtF5mvkVxNgnfVM+qleB/odLV+xVJaAElE8PKQ/XY/uPs6BPN/SBQbyPKQ7
ZsjvHObA4TmnpFyG2hHJNzkPzXwdtI0VyAHecW2By4d65Cw1Hj9uyYE0Lq/S
xaUOiSVS70cCB46I1nORZdyzt0uFbKiPCP2mvqIQkfWsqBO7o8wxBZX7Uxi2
x9mTOhH7/iJtyug8sfVsyMXaqgkmXEzqR/8OrbvRjIvFj6yIq/VlQdrk/jgq
3T0vb+L6Vcf5/hwnLs6StaOfPcOC2Ml4cUF0UZ63DxPKJGxuJmo2YYbNs1Wt
rkzY2jK7wH6oCZN6Vss+fjV2SQdef2rZkQxdBlzCHtkXWjsw6Q/XimVNThn3
4J/FbU+Pa9JhxPgh1YHKx6TfKFa0e+bM4eMANRuTCi4Nbk/ygb9a8/o3v6XB
r5iu+JCRXkz6V8uKjXFOyX343S7DIKotFfIn+cYLYwycl2Wrgl5nl6LangFM
+qOHTBTNs24AW3Hftw7OVYVKkyOHntwbxFYd+Q7wVAXebhzcn79mCJP+i6/7
lygdG8YveMfK759XhoJl9D7DwmFM+vkxx0YP6V/D+MxgJ6bkKkHTZH3iot6a
1IFLimAR4/DmUdUIJvtHtKT+Dy3eCN7l7Zf60FoBKIY1Tn07hLiVedq3JJ4C
98xvFcw6KcRkf+qzsBfcvyXE9w8c2rUuQA4q1k2168kR4ugoga/DHlkgfrOq
Hr8WYrL/RXj222i9E2J1AwOzijFp2H40stk9X4gzdszZIiOUgrTQhu4Vj4WY
7K/WJZxdpRFCnJvzJBKSJOHOpnjXms1CrDC8xttsiwS4LW0hKg2EmOzfZH4Z
umrz5lLH0cyHjUsfuI7g8wtwuMSEbmm1tmX5LiOYnA+Uq3cGfHUawW9LzzRk
fRhDSZ8Y2dxVQ9irKzXlvPcAEh9+5m19aBCT8wrJ39SOxBWCwz1oJI8p7+nf
j49q1hUnJ3Sj6Tpudq02/Zicf2jEUbXMtD689Zbt8Bu134hZy9z/oakXx8wd
PRFH4aHRyBNFRxMEmJyvqu9Fz+3jCPBLaQvPNI0WRNYXxTOK9zmkEe1by/Rw
392NyfkN2Z0IT7X7jd+6lReUMaoQb1Lv+MTxge3nDhYjw3D3sqgfbZicD+us
pvmj6Bbc2pDu8t/N/ZjUT3xdiJJbfC62Tv4oRtX5isn5s+s5796S+E/YTVJj
CWHKxaQe0+fWSCZ41eCm5zUOB548x+S867TbMyHp0z2cVaK+yUb9Byb1bjN+
y86g6gdu8+UMKitiJO8iEEZqNGPSP5aWvRVKr/qJ////2v8Alh+uIw==
    "], {{}, {}, 
     {RGBColor[1, 0, 0], 
      TagBox[
       TooltipBox[
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
         35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
         69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
         86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
         102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115,
          116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 
         129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142,
          143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 
         156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169,
          170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 
         183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196,
          197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 
         210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220}],
        RowBox[{
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", 
                FractionBox["17", "5"]}], "-", 
              FractionBox[
               RowBox[{"108", " ", "x"}], "25"], "+", 
              SuperscriptBox["x", "2"], "-", 
              FractionBox[
               RowBox[{"138", " ", "y"}], "25"], "+", 
              SuperscriptBox["y", "2"]}], "}"}], "\[Equal]", "0"}]],
       Annotation[#, {
         Rational[-17, 5] + 
          Rational[-108, 25] $CellContext`x + $CellContext`x^2 + 
          Rational[-138, 25] $CellContext`y + $CellContext`y^2} == 0, 
        "Tooltip"]& ]}}]},
  AspectRatio->1,
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  Frame->True,
  PlotRange->{{-8, 8}, {-8, 8}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4490143069424257`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Quotient and Remainder  \:5546\:3068\:4f59\:308a", "Section",
 CellChangeTimes->{{3.449005148674426*^9, 3.4490051730414257`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"x", "^", "5"}], "+", 
    RowBox[{"x", "^", "3"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "x", "+", "1"}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{"PolynomialQuotient", "[", 
   RowBox[{"f", ",", "g", ",", "x"}], "]"}]}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r", "=", 
  RowBox[{"PolynomialRemainder", "[", 
   RowBox[{"f", ",", "g", ",", "x"}], "]"}]}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "\[Equal]", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"g", "*", "q"}], "+", "r"}], "]"}]}]], "Input"],

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

Cell[CellGroupData[{

Cell["Exercises", "Section",
 CellChangeTimes->{{3.449005180912426*^9, 3.449005189393426*^9}}],

Cell[CellGroupData[{

Cell["Problem 1", "Subsection"],

Cell["\<\
Let C be a circle defined by  x^2+y^2= 1.  Let  L be a line defined by \
3x+4y=5. Find the intersection of C and L. \
\>", "Text"],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell["We must solve the following system of equations.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eqs", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}]}], "\[Equal]", "1"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"3", "x"}], "+", 
      RowBox[{"4", "y"}]}], "\[Equal]", "5"}]}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["y", "2"]}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"3", " ", "x"}], "+", 
     RowBox[{"4", " ", "y"}]}], "\[Equal]", "5"}]}], "}"}]], "Output",
 CellChangeTimes->{3.449014640411426*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{"eqs", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox["3", "5"]}], ",", 
     RowBox[{"y", "\[Rule]", 
      FractionBox["4", "5"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox["3", "5"]}], ",", 
     RowBox[{"y", "\[Rule]", 
      FractionBox["4", "5"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4490146849304256`*^9}]
}, Open  ]],

Cell["\:63a5\:3057\:3066\:3044\:308b", "Text",
 CellChangeTimes->{3.449014871655426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pt", " ", "=", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}], "/.", 
   RowBox[{"sol", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.449014702516426*^9, 3.449014723101426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["3", "5"], ",", 
   FractionBox["4", "5"]}], "}"}]], "Output",
 CellChangeTimes->{3.449014731742426*^9}]
}, Open  ]],

Cell["We see that the straight line is tangent to the circle.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}]}], "==", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"3", "x"}], "+", 
         RowBox[{"4", "y"}]}], "==", "5"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Point", "[", "pt", "]"}]}], " ", "}"}], "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.449014756188426*^9, 3.449014756767426*^9}, {
  3.449014925575426*^9, 3.449014964590426*^9}, {3.449015023440426*^9, 
  3.449015054859426*^9}, {3.449015091518426*^9, 3.449015183371426*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx1lllIVGEUx6fVQGx7CaWy7aGHKJSEoolD6Uuh2Cpllm0WaVEZYgtaaYSU
lBijUdpDYSVWaIVQGGcqMFG0qFRC3MoGG8eZyMKwoubec/4XutTlDh/3zrec
5XfO/87eeXBd2miHw3Eh+DPG263lSdnJnbyiflz4tN0+/lB7oCN485bm1pTm
Vh9fPGz8085bOvdl3Wod5Htpm0vSNrfx8e7hnO7hQb4yb1XxvFWveb03sZIq
/HwxY05RxpxXfPKGL/eGz89fGxMLHnx5zoeScleWuQJ83Zz/jFNHKoJ3gKeY
11Oe9aMm8kdNgIMmOQrKX9U5zOszy+j++7km34nnb5PN9TRb1+fJ/rRd92+R
8+mwnp8v9tFpte+c2E8b1X6X+Ee56t8Z8Z+2qv9ud1dUTHU7ZRpRqh3kNxIv
OjqqpnJxn4/LJZ4Up/H8/tu4uqljQ0Sm/8EArw7JWhOS1UPd5roBTgh3rQ13
9dK1qkdXqh55+YJpz3taOrM5cr/Ty+7nxvWB4ouNPz7xqdglZ2KX9NGdwsbb
hY39PMuYXtxHcyMGYnfl9LNjz6TLy7d76LFploffGWaXe6hXRr4v72mCzOPp
so7myz58sjA0emFDP+2KPRb2MaaP4+RcahQ7eLHYRSViJ5eK3ZQkfnC7+EWb
xE9uE79prJmvHo6Oqc6OD/PR2jEnXrx1d3Fl/RM3p/uooC3sZsPeTs6SOBI4
TJc4k0fizpskD3RVudQ8UalyqRwSuMyRPFOZctky5Hw55AzQgLl/E2cKF9Sk
nLpGjB0CBE4jhStapJz+NPMZoGFz/AUuadBvXC3Ws41bajY5PV2H9Qnm+xGn
ck9TZX8q0fPB8RG1r0I51rqiIuVYuSVwnKfxyFWOkzVeWseUKnVN4Fbrnm4p
t8jfjLqyvNL1PZRYteyu/6GXxgdnpRT1UvTj/uvnF3oJnOYrL6nCC4GvMvN8
D3UpfxjxHvOwDvtgX5yDc2EH7IKdsBt+wC/4Cb8RB8QFcbLVvxVXxBlxRx6Q
lx3SX6y8IY/IK/Js58DOCTjCfHAG7sCh9jOLU3ALrsG5rR9bdYE6Qd2gjmz9
nu6rHpDGU+Nt1XWo5IPjNR/oAws0X+gb6CNXJd9W30EfQl9Cn7qkXJyVdZys
XETJvlZfXCfn8ijlAn10onKBvos+rBxYfRp9HH0dfR59HzoALqAT0A3oCHQF
OgMuoEPQpf/p1r90zdA96CB0EToJDqCj0FXoLHQXOgwOoNPQbei4pesaH3CA
7wB8FyC+k5QDrUPWukTeGRzkaf62KQe2/HKn5h8j3mMe1mEfG1/WubADdsFO
+/fMH/ozsMc=
    "], {{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      TagBox[
       TooltipBox[
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
         35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
         69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
         86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
         102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115,
          116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 
         129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 
         142}],
        RowBox[{
          RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], "\[Equal]", "1"}]],
       Annotation[#, $CellContext`x^2 + $CellContext`y^2 == 1, 
        "Tooltip"]& ]}}], GraphicsComplexBox[CompressedData["
1:eJxdVFtIlFEQFsMXkQoxMAmkkmJ7UVACw/zCJLIiQisk6KIWGGSGD6EPQlhZ
dLHapCDCUgIjuuAiFrIxpWGhoaZUpmmbl7ys1pqul3V1+8+c+f+HDiyz33/O
nJlv5puzNjs//URwUFBQhvFTVtY2/b+dGlpshYkhAVxr8rVnRjfTmZ66vJ66
RVTFpNlj0hrotOBywacEXxF8THCK4NXu7TnFuX5sCYmtdg3V0vLGuLDGOD8c
vO+gLnU8b0HOVxGHjVpAOJ8vp+dP1PJBp/nGWRB6ZO/blnmk8/4j7LArx3k0
6PsQHaUCzuEWX1QPd1HFcFHFLEp0PmB6sbPYyv7vUKvC98zgA9smqN1qlxfx
xm6E8yM2Kjf7tPDrQIzg24LXCb4nOFxws+BPmSqjKZR5K2uSE77gJn//i32c
9zcU5z5dcd07icucbzeOR5ZmRZZOopPr0oNNnJAH5+9meApC++APqPUHy7ge
LijvyprfMO6+1ORzIaVtKqltahxlHKcfTDNiHM77JcYN/fjK97rRx3YAh41q
2gpHwbSHBvGaw/6CQ+zL/6z5vV6sXWyH2JUqneRBcDrtI1hIUgkNIJX5jlp5
3WE7hpNM4CdqmMAYNocpgbisPEuEN9Nwjlt10bqcQDzH6bLqcPSAWp+tOhlO
BvNOrNIFsPq4gfvkQZz0eb9HKWsSz0QnZp9E57ALNnVULjhY8EPBgyqdzBdW
303d6vmaxhrRta7TNB5cNNqd9ZhMHV3QuiVuS6LXmrt85utFLxN6T+yeMINz
w0rgrWTqOEkXnkydiy6pl+s2i6tah8RjZJtDq64nmXPULXin4AHBuwSv10Kg
g4K5vBkuYtrRPth0/+gGx/VJn/vpFbv5UK91aM25W+vDegeyeSCGSOvWb+qM
dL/80HmPUGqOOriIPVpX9J39F3FWjfvwqPUuObSuSM/PEn5oXZHu3xIO8YMx
Yb17BVpXtJvvDSCgdUTmO/kPqcqq2g==
    "], {{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      TagBox[
       TooltipBox[
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
         35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
         69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83}],
        RowBox[{
          RowBox[{
            RowBox[{"3", " ", "x"}], "+", 
            RowBox[{"4", " ", "y"}]}], "\[Equal]", "5"}]],
       Annotation[#, 3 $CellContext`x + 4 $CellContext`y == 5, 
        "Tooltip"]& ]}}], 
   {RGBColor[1, 0, 0], PointSize[0.03], 
    PointBox[NCache[{Rational[3, 5], Rational[4, 5]}, {0.6, 0.8}]]}},
  AspectRatio->1,
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  Frame->True,
  PlotRange->{{-2, 2}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.449015129130426*^9, 3.449015185285426*^9}}]
}, Open  ]],

Cell["Note that the default point size is 0.008.", "Text"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{698, 677},
WindowMargins->{{145, Automatic}, {Automatic, 10}},
DockedCells->(FrontEndExecute[{
   FrontEnd`NotebookApply[
    FrontEnd`InputNotebook[], #, Placeholder]}]& ),
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (2007\:5e746\:670819\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 67, 1, 83, "Title"],
Cell[660, 26, 128, 2, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[813, 32, 148, 2, 71, "Section"],
Cell[964, 36, 258, 9, 52, "Input"],
Cell[1225, 47, 136, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[1386, 52, 49, 1, 31, "Input"],
Cell[1438, 55, 304, 9, 33, "Output"]
}, Open  ]],
Cell[1757, 67, 124, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[1906, 72, 82, 2, 31, "Input"],
Cell[1991, 76, 158, 4, 30, "Output"]
}, Open  ]],
Cell[2164, 83, 118, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[2307, 88, 106, 3, 31, "Input"],
Cell[2416, 93, 311, 10, 33, "Output"]
}, Open  ]],
Cell[2742, 106, 244, 5, 47, "Text"],
Cell[CellGroupData[{
Cell[3011, 115, 199, 6, 31, "Input"],
Cell[3213, 123, 386, 12, 30, "Output"]
}, Open  ]],
Cell[3614, 138, 151, 4, 47, "Text"],
Cell[CellGroupData[{
Cell[3790, 146, 116, 3, 31, "Input"],
Cell[3909, 151, 152, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4098, 159, 182, 5, 31, "Input"],
Cell[4283, 166, 246, 7, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4566, 178, 198, 6, 31, "Input"],
Cell[4767, 186, 140, 3, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4956, 195, 130, 1, 71, "Section"],
Cell[5089, 198, 38, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[5152, 202, 284, 10, 31, "Input"],
Cell[5439, 214, 303, 10, 30, "Output"]
}, Open  ]],
Cell[5757, 227, 134, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[5916, 232, 83, 2, 31, "Input"],
Cell[6002, 236, 277, 9, 33, "Output"]
}, Open  ]],
Cell[6294, 248, 132, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[6451, 253, 83, 2, 31, "Input"],
Cell[6537, 257, 300, 10, 33, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6886, 273, 187, 4, 71, "Section"],
Cell[CellGroupData[{
Cell[7098, 281, 222, 8, 31, "Input"],
Cell[7323, 291, 226, 7, 45, "Output"]
}, Open  ]],
Cell[7564, 301, 82, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[7671, 306, 84, 2, 31, "Input"],
Cell[7758, 310, 277, 9, 47, "Output"]
}, Open  ]],
Cell[8050, 322, 136, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[8211, 327, 58, 1, 31, "Input"],
Cell[8272, 330, 202, 7, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8511, 342, 196, 7, 31, "Input"],
Cell[8710, 351, 201, 7, 48, "Output"]
}, Open  ]],
Cell[8926, 361, 82, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[9033, 366, 59, 1, 31, "Input"],
Cell[9095, 369, 94, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9238, 377, 111, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[9374, 382, 318, 9, 31, "Input"],
Cell[9695, 393, 294, 9, 30, "Output"]
}, Open  ]],
Cell[10004, 405, 134, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[10163, 410, 116, 3, 31, "Input"],
Cell[10282, 415, 71, 1, 30, "Output"]
}, Open  ]],
Cell[10368, 419, 132, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[10525, 424, 170, 3, 31, "Input"],
Cell[10698, 429, 95, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10830, 435, 121, 4, 31, "Input"],
Cell[10954, 441, 140, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11131, 450, 97, 2, 31, "Input"],
Cell[11231, 454, 70, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11350, 461, 142, 1, 71, "Section"],
Cell[11495, 464, 140, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[11660, 469, 159, 5, 31, "Input"],
Cell[11822, 476, 202, 6, 30, "Output"]
}, Open  ]],
Cell[12039, 485, 160, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[12224, 491, 59, 1, 31, "Input"],
Cell[12286, 494, 246, 8, 30, "Output"]
}, Open  ]],
Cell[12547, 505, 687, 10, 47, "Text"],
Cell[CellGroupData[{
Cell[13259, 519, 210, 4, 31, "Input"],
Cell[13472, 525, 134, 4, 30, "Output"]
}, Open  ]],
Cell[13621, 532, 264, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[13910, 539, 190, 6, 31, "Input"],
Cell[14103, 547, 228, 6, 30, "Output"]
}, Open  ]],
Cell[14346, 556, 342, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[14713, 564, 82, 2, 31, "Input"],
Cell[14798, 568, 683, 23, 55, "Output"]
}, Open  ]],
Cell[15496, 594, 687, 11, 29, "Text"],
Cell[CellGroupData[{
Cell[16208, 609, 183, 4, 31, "Input"],
Cell[16394, 615, 519, 19, 55, "Output"]
}, Open  ]],
Cell[16928, 637, 152, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[17105, 643, 83, 2, 31, "Input"],
Cell[17191, 647, 1134, 37, 98, "Output"]
}, Open  ]],
Cell[18340, 687, 137, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[18502, 692, 295, 11, 31, "Input"],
Cell[18800, 705, 333, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19170, 721, 137, 4, 31, "Input"],
Cell[19310, 727, 274, 9, 45, "Output"]
}, Open  ]],
Cell[19599, 739, 687, 11, 29, "Text"],
Cell[CellGroupData[{
Cell[20311, 754, 284, 8, 31, "Input"],
Cell[20598, 764, 235, 7, 45, "Output"]
}, Open  ]],
Cell[20848, 774, 373, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[21246, 784, 371, 10, 31, "Input"],
Cell[21620, 796, 208, 6, 45, "Output"]
}, Open  ]],
Cell[21843, 805, 335, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[22203, 815, 420, 12, 31, "Input"],
Cell[22626, 829, 210, 6, 45, "Output"]
}, Open  ]],
Cell[22851, 838, 120, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[22996, 843, 337, 11, 31, "Input"],
Cell[23336, 856, 333, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23706, 872, 132, 4, 31, "Input"],
Cell[23841, 878, 654, 23, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24532, 906, 133, 4, 31, "Input"],
Cell[24668, 912, 1113, 39, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25818, 956, 165, 2, 36, "Subsection"],
Cell[25986, 960, 146, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[26157, 967, 1036, 28, 52, "Input"],
Cell[27196, 997, 8007, 144, 380, "Output"]
}, Open  ]],
Cell[35218, 1144, 162, 2, 29, "Text"],
Cell[35383, 1148, 413, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[35821, 1166, 165, 5, 31, "Input"],
Cell[35989, 1173, 989, 35, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37027, 1214, 31, 0, 36, "Subsection"],
Cell[37061, 1216, 199, 4, 29, "Text"],
Cell[37263, 1222, 59, 1, 31, "Input"],
Cell[37325, 1225, 170, 3, 29, "Text"],
Cell[37498, 1230, 326, 10, 31, "Input"],
Cell[37827, 1242, 136, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[37988, 1247, 254, 8, 31, "Input"],
Cell[38245, 1257, 813, 30, 45, "Output"]
}, Open  ]],
Cell[39073, 1290, 138, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[39236, 1295, 249, 8, 31, "Input"],
Cell[39488, 1305, 813, 30, 45, "Output"]
}, Open  ]],
Cell[40316, 1338, 114, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[40455, 1343, 140, 4, 31, "Input"],
Cell[40598, 1349, 157, 4, 30, "Output"]
}, Open  ]],
Cell[40770, 1356, 158, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[40953, 1363, 236, 7, 31, "Input"],
Cell[41192, 1372, 387, 13, 45, "Output"]
}, Open  ]],
Cell[41594, 1388, 697, 21, 52, "Input"],
Cell[CellGroupData[{
Cell[42316, 1413, 148, 4, 31, "Input"],
Cell[42467, 1419, 14053, 249, 380, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56581, 1675, 135, 1, 71, "Section"],
Cell[56719, 1678, 280, 9, 52, "Input"],
Cell[CellGroupData[{
Cell[57024, 1691, 128, 3, 31, "Input"],
Cell[57155, 1696, 150, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57342, 1705, 129, 3, 31, "Input"],
Cell[57474, 1710, 92, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57603, 1717, 138, 4, 31, "Input"],
Cell[57744, 1723, 73, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57866, 1730, 94, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[57985, 1735, 31, 0, 36, "Subsection"],
Cell[58019, 1737, 140, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[58184, 1744, 33, 0, 28, "Subsubsection"],
Cell[58220, 1746, 64, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[58309, 1750, 317, 11, 31, "Input"],
Cell[58629, 1763, 333, 11, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58999, 1779, 160, 5, 31, "Input"],
Cell[59162, 1786, 443, 15, 45, "Output"]
}, Open  ]],
Cell[59620, 1804, 88, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[59733, 1809, 255, 7, 31, "Input"],
Cell[59991, 1818, 159, 5, 45, "Output"]
}, Open  ]],
Cell[60165, 1826, 71, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[60261, 1830, 1554, 43, 92, "Input"],
Cell[61818, 1875, 4620, 90, 380, "Output"]
}, Open  ]],
Cell[66453, 1968, 58, 0, 29, "Text"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)