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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     27911,        865]
NotebookOptionsPosition[     23874,        729]
NotebookOutlinePosition[     24271,        746]
CellTagsIndexPosition[     24228,        743]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:6570\:7406\:30d5\:30a1\:30a4\:30ca\:30f3\:30b92", "Title"],

Cell["2. Time Discounting", "Subtitle"],

Cell["2.3 Yield to Maturity", "Subsubtitle",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0.501961, 1]],

Cell["\<\
\:3000 \:5272\:5f15\:50b5\:306f\:ff0c\:30af\:30fc\:30dd\:30f3(\:5229\:672d)\
\:304c\:306a\:3044\:3002\:3057\:304b\:3057\:ff0c\:73fe\:5728\:306e98\:5186\
\:304c1\:5e74\:5f8c\:306b\:306f100\:5186\:306b\:306a\:3063\:3066\:3044\:308b\
\:308f\:3051\:3060\:304b\:3089\:ff0c\:5f53\:521d\:8cc7\:91d1\:304c2\:5186\
\:5897\:3048\:3066\:3044\:308b\:3002\:3053\:306e\:5897\:3048\:305f\:90e8\:5206\
\:309298\:5186\:306b\:5bfe\:3059\:308b\:5229\:5b50\:3067\:3042\:308b\:304b\
\:306e\:3088\:3046\:306b\:8003\:3048\:308b\:306e\:304c\:ff0c\:30a4\:30fc\:30eb\
\:30c9\:3068\:3044\:3046\:8003\:3048\:65b9\:3067\:3042\:308b\:3002\
\>", "Text"],

Cell["\:3000\:5272\:5408\:3092\:6c42\:3081\:308b\:3068", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"100", "-", "98"}], ")"}], "/", "98"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[1]:="],

Cell[BoxData[
 FractionBox["1", "49"]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620724189468*^9, 3.6507104546883173`*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[2]:="],

Cell[BoxData["0.02040816326530612`"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620727333169*^9, 3.6507104578995657`*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"100", "-", "98"}], ")"}], "/", "98"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[3]:="],

Cell[BoxData["0.02040816326530612`"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620730292739*^9, 3.650710468884716*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[TextData[{
 "\:666e\:901a\:306e\:8a08\:7b97\:6a5f\:3067\:306f\:ff0c\:5c0f\:6570\:70b9\
\:4ee5\:4e0b\:6570\:5b57\:304c\:7121\:9650\:306b\:7d9a\:304f\:300c\:6570\:300d\
\:3092\:ff0c\:9069\:5f53\:306a\:6841\:6570\:3067\:6253\:3061\:5207\:3063\:3066\
\:3057\:307e\:3046\:305f\:3081\:ff0c\:8aa4\:5dee\:304c\:51fa\:308b\:3002",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\:306f\:3067\:304d\:308b\:3060\:3051\:6b63\:78ba\:306a\:5024\:3067\:306e\
\:8a08\:7b97\:3092\:8a66\:307f\:308b\:306e\:3067\:ff0c\:5c0f\:6570\:70b9\:3092\
\:4f7f\:3063\:305f\:5165\:529b\:3092\:3057\:306a\:3051\:308c\:3070\:ff0c\:5206\
\:6570\:3067\:7d50\:679c\:3092\:8fd4\:3059\:3002"
}], "Text"],

Cell["\:3000\:3000\:3000N[\:3000 ]", "Text"],

Cell["\<\
\:3068\:3044\:3046\:30b3\:30de\:30f3\:30c9\:306f\:ff0c[\:3000]\:306e\:4e2d\
\:306e\:3082\:306e\:3092\:ff0c\:5c0f\:6570\:70b9\:306a\:3069\:306b\:3088\:308b\
\:8fd1\:4f3c\:5024\:306b\:76f4\:305b\:3068\:3044\:3046\:547d\:4ee4\:3067\:3042\
\:308b\:3002N\:306f\:5927\:6587\:5b57\:3067\:306a\:3051\:308c\:3070\:306a\
\:3089\:306a\:3044\:3057\:ff0c\:62ec\:5f27\:3082\:ff08\:ff09\:3067\:306f\:3060\
\:3081\:3067\:3042\:308b\:3002\:30b3\:30de\:30f3\:30c9\:306a\:3044\:3057\:95a2\
\:6570\:306f\:ff0c[\:3000]\:3068\:3044\:3046\:62ec\:5f27\:3092\:4f7f\:308f\
\:306a\:3044\:3068\:30a8\:30e9\:30fc\:306b\:306a\:308b\:3002\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2.", "/", "98"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[4]:="],

Cell[BoxData["0.02040816326530612`"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620737195963*^9, 3.650710500179278*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[4]="]
}, Open  ]],

Cell["\<\
\:3000\:5c0f\:6570\:70b9\:3092\:3064\:3051\:305f\:6570\:5024\:3092\:4e0e\:3048\
\:308b\:3068\:ff0c\:65e2\:306b\:8aa4\:5dee\:304c\:3042\:308b\:304b\:3089\:6b63\
\:78ba\:306a\:8a08\:7b97\:3092\:3084\:3063\:3066\:3082\:7121\:99c4\:3060\:3068\
\:8003\:3048\:308b\:306e\:304b\:ff0c\:8fd1\:4f3c\:5024\:3092\:8fd4\:3057\:3066\
\:304f\:308b\:30022 / 98 \:3092\:4e0e\:3048\:305f\:3068\:304d\:306e\:7d50\
\:679c\:3068\:6bd4\:3079\:3066\:6b32\:3057\:3044\:3002\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "/", "98"}]], "Input",
 CellChangeTimes->{{3.650710514196136*^9, 3.6507105175840473`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[5]:="],

Cell[BoxData[
 FractionBox["1", "49"]], "Output",
 CellChangeTimes->{3.6507105184279823`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[5]="]
}, Open  ]],

Cell["\<\
 
\:3000\:3055\:3066\:ff0c\:5148\:307b\:3069\:306e\:3000(100 - 98) / 98 \:3068\
\:3044\:3046\:8a08\:7b97\:306f\:ff0c \
\>", "Text"],

Cell["\:3000\:3000\:300098*(1+r)=100", "Text"],

Cell["\:3068\:3044\:3046\:65b9\:7a0b\:5f0f\:3092\:5909\:6570 r \:306b\:3064\
\:3044\:3066\:89e3\:3044\:305f\:3082\:306e\:3067\:3042\:308b\:3002", "Text"],

Cell[TextData[{
 "    \:65b9\:7a0b\:5f0f\:3092\:4e0e\:3048\:3066 ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\:306b\:89e3\:304b\:305b\:3066\:307f\:3088\:3046\:3002 "
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"98", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
   RowBox[{"{", "r", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[6]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", 
    FractionBox["1", "49"]}], "}"}], "}"}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620755937121*^9, 3.65071055429571*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[6]="]
}, Open  ]],

Cell[TextData[{
 "\:3000\:89e3\:3051(Solve)\:3068\:3044\:3063\:3066\:ff0c[\:3000]\:306e\:4e2d\
\:306b\:ff0c\:65b9\:7a0b\:5f0f\:3068\:5909\:6570\:3092\:30b3\:30f3\:30de\:3067\
\:533a\:5207\:3063\:3066\:4e0e\:3048\:3066\:3044\:308b\:3002\:3053\:306e\:3068\
\:304d\:ff0c\:65b9\:7a0b\:5f0f\:306f\:7b49\:53f7\:ff1d\:304c\:3072\:3068\:3064\
\:3067\:306f\:306a\:304f\:ff0c\:4e8c\:3064\:4e26\:3093\:3067\:3044\:308b\:3053\
\:3068\:306b\:6ce8\:610f\:3055\:308c\:305f\:3044\:3002\n\:3000\:307e\:305f\
\:ff0c",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:306b\:6a19\:6e96\:3067\:5099\:308f\:3063\:3066\:3044\:308b\:30b3\:30de\
\:30f3\:30c9\:306a\:3044\:3057\:95a2\:6570\:306e\:6700\:521d\:306e\:ff11\:6587\
\:5b57\:76ee\:306f\:ff0c\:5927\:6587\:5b57\:3067\:3042\:308b\:3002"
}], "Text",
 CellChangeTimes->{{3.650710565681697*^9, 3.650710567282486*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"98", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
    RowBox[{"{", "r", "}"}]}], "]"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[7]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", "0.02040816326530612`"}], "}"}], "}"}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.6506207677053547`*^9, 3.650710572822486*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[7]="]
}, Open  ]],

Cell["\<\
\:3000\:5206\:6570\:3067\:306a\:304f\:6570\:5024(\:305f\:3060\:3057\:8fd1\
\:4f3c\:5024)\:3092\:898b\:305f\:3051\:308c\:3070\:ff0c\:4e0a\:306e\:3088\
\:3046\:306b\:3057\:3066\:3082\:3088\:3044\:3057\:ff0c\:6b21\:306e\:3088\:3046\
\:306b\:3082\:3067\:304d\:308b\:3002\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"98", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
   RowBox[{"{", "r", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[8]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", "0.02040816326530612`"}], "}"}], "}"}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620777269355*^9, 3.650710577787524*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[8]="]
}, Open  ]],

Cell[TextData[{
 "\:3000\n\:3000\:3053\:3053\:3067\:ff0cSolve[ ], NSolve[ ]\:304c\:8fd4\:3057\
\:3066\:304d\:305f\:89e3\:ff0c\:3059\:306a\:308f\:3061{ \:3068} \:306b\:306f\
\:3055\:3093\:3067\:8fd4\:3057\:3066\:304d\:305f\:3082\:306e\:306b\:3064\:3044\
\:3066\:7c21\:5358\:306b\:89e6\:308c\:3066\:304a\:304f\:3002\:3053\:308c\:306f\
\:ff0c",
 StyleBox["\:7f6e\:304d\:63db\:3048\:30eb\:30fc\:30eb",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3068\:547c\:3070\:308c\:308b\:3082\:306e\:3067\:3042\:308b\:3002"
}], "Text"],

Cell["\:3000\:7f6e\:304d\:63db\:3048\:30eb\:30fc\:30eb\:3068\:306f\:ff0c\:88ab\
\:7f6e\:304d\:63db\:3048\:5bfe\:8c61 \:3000\[RightArrow]\:3000\:7f6e\:304d\
\:63db\:3048\:308b\:3082\:306e\:ff0c\:3068\:3044\:3046\:5f62\:3092\:3057\:3066\
\:3044\:308b\:3002", "Text"],

Cell[TextData[{
 "\:3000\:3055\:3089\:306b\:ff0c\:3053\:306e\:7f6e\:304d\:63db\:3048\:30eb\
\:30fc\:30eb\:5f62\:5f0f\:3067\:8868\:73fe\:3055\:308c\:305f\:89e3\:304c\:ff0c\
\:6ce2\:304b\:3063\:3053\:306b2\:56de\:304f\:304f\:3089\:308c\:3066\:3044\
\:308b\:3002\n\:6ce2\:3067\:304f\:304f\:3089\:308c\:305f\:ff5ba,b,c,d\:ff5d\
\:306f",
 StyleBox["\:30ea\:30b9\:30c8",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3068\:547c\:3070\:308c\:308b\:3082\:306e\:3067\:ff0c\:5bfe\:8c61\:7269 a \
b c d (\:3053\:308c\:3089\:306f\:6570\:ff0c\:30b7\:30f3\:30dc\:30eb\:ff0c\
\:6587\:5b57\:5217\:ff0c\:30ea\:30b9\:30c8\:81ea\:8eab\:306a\:3069)\:3092\
\:ff0c\:ff12\:3064\:4ee5\:4e0a\:306e\:5834\:5408\:306f\[OpenCurlyDoubleQuote]\
\:ff0c\[CloseCurlyDoubleQuote]\:3067\:533a\:5207\:3063\:3066\:306a\:3089\:3079\
\:305f\:3082\:306e\:3067\:3042\:308b\:3002\:5bfe\:8c61\:7269\:304c\:3072\:3068\
\:3064\:306e\:5834\:5408\:306f\:ff0c{a }\:3068\:3044\:3046\:5f62\:3092\:3057\
\:3066\:3044\:308b\:3002 "
}], "Text",
 CellChangeTimes->{{3.650710634748266*^9, 3.650710645249874*^9}}],

Cell["\<\
\:3000\:30ea\:30b9\:30c8\:3068\:306f\:ff0c\:4e26\:3079\:305f\:3082\:306e\:3067\
\:3042\:308b\:3002{{a}}\:3068\:306f\:ff0c\:30ea\:30b9\:30c8{a}\:3092\:3072\
\:3068\:3064\:3060\:3051\:4e26\:3079\:305f\:30ea\:30b9\:30c8(\:5bfe\:8c61\
\:7269\:304c{a}\:3072\:3068\:3064\:3060\:3063\:305f\:3082\:306e)\:3067\:3042\
\:308b\:3002\
\>", "Text",
 CellChangeTimes->{{3.6507106647791357`*^9, 3.650710666462501*^9}}],

Cell["\<\
\:3000\:5148\:307b\:3069\:306er\:306b\:95a2\:3059\:308b\:65b9\:7a0b\:5f0f\
\:306e\:89e3\:304c,\:30ea\:30b9\:30c8 {r \[Rule]0.0204082} \:3092\:3072\:3068\
\:3064\:3057\:304b\:6301\:305f\:306a\:3044\:30ea\:30b9\:30c8\:3067\:3042\:3063\
\:305f\:308f\:3051\:306f\:ff0c\:89e3\:304c\:3072\:3068\:3064\:3060\:3063\:305f\
\:304b\:3089\:3067\:3042\:308b\:3002\:8907\:6570\:306e\:89e3\:3092\:6301\:3064\
\:4e8c\:6b21\:65b9\:7a0b\:5f0f\:3092\:89e3\:304b\:305b\:3066\:307f\:308b\:3068\
\:ff0c2\:3064\:306e\:5bfe\:8c61\:7269\:3092\:6301\:3064\:30ea\:30b9\:30c8\
\:304c\:4f5c\:6210\:3055\:308c\:308b\:3002\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"x", "-", "2"}], ")"}]}], "==", "0"}], "}"}], ",", 
   RowBox[{"{", "x", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[9]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "2"}], "}"}]}], "}"}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620789499735*^9, 3.65071067836623*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[9]="]
}, Open  ]],

Cell["\:3000\:3000\:4e8c\:6b21\:65b9\:7a0b\:5f0f\:3067\:306f\:ff0c\:ff12\:3064\
\:306e\:89e3\:3092\:4e26\:3079\:305f\:30ea\:30b9\:30c8\:304c\:8fd4\:3055\:308c\
\:308b\:3002\:4e09\:6b21\:65b9\:7a0b\:5f0f\:3092\:89e3\:304b\:305b\:3066\:307f\
\:308b\:3068\:ff0c3\:3064\:306e\:89e3\:304c\:4e26\:3093\:3060\:30ea\:30b9\
\:30c8\:304c\:5f97\:3089\:308c\:308b\:3002", "Text",
 CellChangeTimes->{{3.650710685253652*^9, 3.650710690018078*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"x", "-", "2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"x", "-", "3"}], ")"}]}], "\[Equal]", "0"}], "}"}], ",", 
   RowBox[{"{", "x", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[10]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "3"}], "}"}]}], "}"}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620793015987*^9, 3.6507106923248167`*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[10]="]
}, Open  ]],

Cell["\<\
\:3000\:3000
\:3000\:7f6e\:304d\:63db\:3048\:898f\:5247\:306e\:5f62\:3067\:89e3\:3092\:5f97\
\:3089\:308c\:308b\:3068\:ff0c\:3069\:3046\:3044\:3046\:4f7f\:3044\:65b9\:304c\
\:3042\:308b\:306e\:304b\:ff1f\
\>", "Text"],

Cell[TextData[{
 "\:3000\:5148\:307b\:3069\:306e\:4e09\:6b21\:65b9\:7a0b\:5f0f\:306e\:89e3\
\:306e\:5024\:3092\:ff0c\:6b21\:306e\:5f0f\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"\:3000\:3000\:3000", 
    RowBox[{
     SuperscriptBox["x", "4"], "+", 
     RowBox[{"3", "x"}]}]}], TraditionalForm]]]
}], "Text"],

Cell["\:306b\[CloseCurlyDoubleQuote]\:4ee3\:5165\[CloseCurlyDoubleQuote]\:3057\
\:3066\:307f\:3088\:3046\:3002", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplaceAll", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "4"}], " ", "+", " ", 
    RowBox[{"3", " ", "x"}]}], " ", ",", "%"}], "]"}]], "Input",
 CellChangeTimes->{{3.6506208068071003`*^9, 3.650620807362005*^9}, 
   3.650710712448248*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[11]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "22", ",", "90"}], "}"}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620809936446*^9, 3.650710714589624*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[11]="]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\:3000", 
    RowBox[{
    "\:3053\:3053\:3067\:5f97\:3089\:308c\:305f\:3082\:306e\:306f", "\:ff0c", 
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"3", "x", " ", "\:3067"}]}]}]}], TraditionalForm]]],
 "x \:306e\:4ee3\:308f\:308a\:306b\:300c\:ff11\:300d\:3068\:7f6e\:304d\:63db\
\:3048\:305f\:3082\:306e\:ff0c\:304a\:306a\:3058\:304f\:ff12\:ff0c\:ff13\:3068\
\:7f6e\:304d\:63db\:3048\:305f\:3082\:306e\:ff0c\:3068\:3044\:3046\:3088\:3046\
\:306b\:ff0c\:7f6e\:304d\:63db\:3048\:64cd\:4f5c\:304c\:884c\:308f\:308c\:305f\
\:7d50\:679c\:306e\:30ea\:30b9\:30c8\:3067\:3042\:308b\:3002\:3072\:3068\:3064\
\:3060\:3051\:7f6e\:304d\:63db\:3048\:308b\:5834\:5408\:306f\:ff0c"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplaceAll", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "4"}], "+", 
    RowBox[{"3", "x"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "8"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6507107369080553`*^9, 3.650710738926074*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[12]:="],

Cell[BoxData["4120"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620816121295*^9, 3.650710743079814*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[12]="]
}, Open  ]],

Cell[TextData[{
 "   \:306a\:304a\:ff0c\:3053\:308c\:306f\:ff0c",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "4"], "+", 
    RowBox[{"3", "x", "  ", "\:306e", " ", "x", " ", "\:306b"}]}], 
   TraditionalForm]]],
 "8\:3068\:3044\:3046\:5024\:3092\:6301\:305f\:305b\:3066\:ff0c\:8a08\:7b97\
\:3057\:305f\:3082\:306e\:3067\:306f\:306a\:3044\:3002"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[13]:="],

Cell[BoxData["x"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.6506208197164183`*^9, 3.65071075237936*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[13]="]
}, Open  ]],

Cell["    x \
\:306f\:6570\:5024\:3092\:6301\:3063\:3066\:3044\:306a\:3044\:3002\:4e2d\:5b66\
\:6821\:306e\:6570\:5b66\:3067\:7fd2\:3063\:305f\:ff0c\:300c\:5909\:6570\:300d\
\:306e\:307e\:307e\:3067\:3042\:308b\:3002", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "4"}], "+", 
  RowBox[{"3", "x"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[14]:="],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", "x"}], "+", 
  SuperscriptBox["x", "4"]}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620822940611*^9, 3.65071076990862*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[14]="]
}, Open  ]],

Cell["\:3000\:5909\:6570\:3092\:7528\:3044\:3066\:4f5c\:3063\:305f\:5f0f\:3082\
\:ff0c\:6570\:5024\:3092\:6301\:3063\:3066\:3044\:306a\:3044\:3002", "Text"],

Cell[TextData[{
 "\:3000\n   \:3053\:306e\:5909\:6570 x \:3092 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
   "\:6570\:5024\:ff18\:306b\:7f6e\:304d\:63db\:3048\:308b\:3068", "\:ff0c", 
    RowBox[{
     SuperscriptBox["x", "4"], "+", 
     RowBox[{"3", "x", " ", "\:306f", " "}]}]}], TraditionalForm]]],
 "8^4+3*8 \:3068\:3044\:3046\:6570\:5024\:306b\:306a\:308b\:306e\:3067\:ff0c\
\:305d\:308c\:304c\:8a08\:7b97\:3055\:308c\:30664120\:3068\:306a\:3063\:305f\
\:306e\:3067\:3042\:308b\:3002"
}], "Text",
 CellChangeTimes->{{3.6507107775264063`*^9, 3.650710785529972*^9}}],

Cell["\:3000\:5225\:306e\:5909\:6570\:306b\:7f6e\:304d\:63db\:3048\:3066\:307f\
\:308b\:3068\:ff0c\:6570\:5024\:8a08\:7b97\:3068\:7f6e\:304d\:63db\:3048\:306e\
\:9055\:3044\:304c\:308f\:304b\:308b\:304b\:3082\:3057\:308c\:306a\:3044\:3002\
", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplaceAll", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "4"}], "+", 
    RowBox[{"3", "x"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"r", "+", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.650710804157196*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[15]:="],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}]}], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}], "4"]}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620833408381*^9, 3.650710807421681*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[15]="]
}, Open  ]],

Cell["\:3000\:7f6e\:304d\:63db\:3048\:3068\:ff0c\:300c\:5909\:6570\:300d\:306b\
\:5024\:3092\:6301\:305f\:305b\:56fa\:5b9a\:3057\:3066\:3057\:307e\:3046\:3053\
\:3068\:306e\:9055\:3044\:306f\:ff0c\:6700\:521d\:306a\:306e\:3067\:307e\:3060\
\:3064\:304b\:307f\:306b\:304f\:3044\:304b\:3082\:3057\:308c\:306a\:3044\:3002\
", "Text",
 CellChangeTimes->{{3.65071081741418*^9, 3.650710823018732*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", "100"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[16]:="],

Cell[BoxData["100"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620839190097*^9, 3.650710826381111*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[16]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "4"}], "+", 
  RowBox[{"3", "x"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[17]:="],

Cell[BoxData["100000300"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620841916726*^9, 3.650710829773348*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[17]="]
}, Open  ]],

Cell["\<\
\:3000\:300c\:ff58\:ff1d\:ff11\:ff10\:ff10\:300d\:306e\:3088\:3046\:306b\:3059\
\:308b\:3068 x  \:306f\:6570\:5024\:3092\:3082\:3063\:3066\:3057\:307e\:3046\
\:306e\:3067\:ff0c\:4ee5\:5f8c\:ff0cx \:306f\:4e0e\:3048\:3089\:308c\:305f\
\:6570\:5024\:3068\:307f\:306a\:3055\:308c\:308b\:3002
\
\>", "Text",
 CellChangeTimes->{{3.650710844978064*^9, 3.6507108923372507`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{{3.650710882363533*^9, 3.650710886271192*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[18]:="],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.650710887554432*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[18]="]
}, Open  ]],

Cell["\<\

\:300c\:5909\:6570\:300d \:306b\:623b\:3059\:306b\:306f\
\>", "Text",
 CellChangeTimes->{{3.650710894056719*^9, 3.6507109054031963`*^9}}],

Cell[BoxData[
 RowBox[{"x", "=."}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[19]:="],

Cell["\:3000\:3068\:3059\:308b\:3002\:3059\:308b\:3068 x \:306f\:5024\:3092\
\:6301\:305f\:306a\:304f\:306a\:308b\:3002\:78ba\:304b\:3081\:3066\:307f\:308b\
\:3068\:3001", "Text",
 CellChangeTimes->{{3.6506208581799583`*^9, 3.650620940585885*^9}}],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[20]:="],

Cell[BoxData["x"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620849724843*^9, 3.650710971323249*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[20]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", 
   RowBox[{"4", " "}]], "+", 
  RowBox[{"3", "x"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[21]:="],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", "x"}], "+", 
  SuperscriptBox["x", "4"]}]], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620852714965*^9, 3.650710975906054*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[21]="]
}, Open  ]],

Cell[TextData[{
 "\n\:3000NSolve[ ], Solve[] \:304c\:8fd4\:3057\:3066\:304f\:308b\:89e3\:306b\
\:95a2\:3057\:3066\:ff0c",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:306e\:6587\:6cd5\:3092\:8aac\:660e\:3057\:305f\:3002\:4eca\:65e5\:306e\
\:3068\:3053\:308d\:306f\:ff0c\:300c\:7f6e\:304d\:63db\:3048\:30eb\:30fc\:30eb\
\:300d\:306b\:3064\:3044\:3066\:306f\:ff0c\:308f\:304b\:3063\:305f\:3088\:3046\
\:306a\:308f\:304b\:3089\:306a\:3044\:3088\:3046\:306a\:611f\:3058\:304b\:3082\
\:3057\:308c\:306a\:3044\:304c\:ff0c\:305d\:308c\:306f\:305d\:308c\:3067\:3088\
\:3044\:3002\:305f\:3060\:3057\:ff0c\:300c\:65b9\:7a0b\:5f0f\:306e\:89e3\:304d\
\:65b9\:300d\:306b\:3064\:3044\:3066\:306f\:ff0c"
}], "Text"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\:65b9\:7a0b\:5f0f", 
     RowBox[{"(", 
      RowBox[{"\:305f\:3060\:3057", "\[Equal]", "\:3092\:4f7f\:3046"}], 
      ")"}]}], "}"}], ",", 
   RowBox[{"{", "\:5909\:6570\:540d", "}"}]}], "]"}]], "Input"],

Cell["\:3068\:3044\:3046\:5f62\:3092\:3057\:3066\:3044\:308b\:3053\:3068\:306f\
\:ff0c\:3057\:3063\:304b\:308a\:628a\:63e1\:3057\:3066\:307b\:3057\:3044\:3002\
", "Text"],

Cell[TextData[{
 "\n\:3000\:3000",
 StyleBox["\:7df4\:7fd2\:554f\:984c", "Subsection"]
}], "Text"],

Cell["\<\
\:3000\:3000\[FilledCircle] \:4e00\:5e74\:7269\:306e\:5272\:5f15\:50b5\:306e\
\:73fe\:5728\:4fa1\:683c\:306f\:ff0c97\:5186\:3067\:3042\:308b\:3002\:30a4\
\:30fc\:30eb\:30c9\:306f\:3044\:304f\:3089\:304b\:3002
\:3000\:3000\[FilledCircle]\:4e8c\:5e74\:7269\:306e\:5272\:5f15\:50b5\:306e\
\:73fe\:5728\:4fa1\:683c\:306f\:ff0c93\:5186\:3067\:3042\:308b\:3002\:30a4\
\:30fc\:30eb\:30c9\:306f\:3044\:304f\:3089\:304b\:3002\
\>", "Text"]
}, Open  ]]
},
WindowSize->{1204, 756},
WindowMargins->{{105, Automatic}, {Automatic, 0}},
Magnification:>2. Inherited,
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (2015\:5e743\
\:670824\:65e5)",
StyleDefinitions->"Textbook.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 66, 0, 109, "Title"],
Cell[648, 24, 39, 0, 57, "Subtitle"],
Cell[690, 26, 103, 2, 57, "Subsubtitle"],
Cell[796, 30, 632, 9, 99, "Text"],
Cell[1431, 41, 64, 0, 43, "Text"],
Cell[CellGroupData[{
Cell[1520, 45, 154, 5, 49, "Input"],
Cell[1677, 52, 190, 5, 119, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1904, 62, 108, 3, 49, "Input"],
Cell[2015, 67, 188, 4, 94, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2240, 76, 184, 6, 49, "Input"],
Cell[2427, 84, 186, 4, 94, "Output"]
}, Open  ]],
Cell[2628, 91, 673, 11, 100, "Text"],
Cell[3304, 104, 44, 0, 40, "Text"],
Cell[3351, 106, 631, 9, 99, "Text"],
Cell[CellGroupData[{
Cell[4007, 119, 105, 3, 49, "Input"],
Cell[4115, 124, 186, 4, 94, "Output"]
}, Open  ]],
Cell[4316, 131, 473, 7, 71, "Text"],
Cell[CellGroupData[{
Cell[4814, 142, 172, 4, 49, "Input"],
Cell[4989, 148, 146, 4, 118, "Output"]
}, Open  ]],
Cell[5150, 155, 141, 4, 77, "Text"],
Cell[5294, 161, 46, 0, 40, "Text"],
Cell[5343, 163, 153, 1, 43, "Text"],
Cell[5499, 166, 187, 5, 43, "Text"],
Cell[CellGroupData[{
Cell[5711, 175, 299, 10, 49, "Input"],
Cell[6013, 187, 265, 8, 119, "Output"]
}, Open  ]],
Cell[6293, 198, 851, 14, 106, "Text"],
Cell[CellGroupData[{
Cell[7169, 216, 334, 11, 49, "Input"],
Cell[7506, 229, 263, 7, 94, "Output"]
}, Open  ]],
Cell[7784, 239, 290, 5, 43, "Text"],
Cell[CellGroupData[{
Cell[8099, 248, 300, 10, 49, "Input"],
Cell[8402, 260, 261, 7, 94, "Output"]
}, Open  ]],
Cell[8678, 270, 534, 10, 105, "Text"],
Cell[9215, 282, 264, 3, 43, "Text"],
Cell[9482, 287, 1070, 18, 136, "Text"],
Cell[10555, 307, 413, 7, 70, "Text"],
Cell[10971, 316, 615, 9, 100, "Text"],
Cell[CellGroupData[{
Cell[11611, 329, 340, 12, 49, "Input"],
Cell[11954, 343, 321, 10, 94, "Output"]
}, Open  ]],
Cell[12290, 356, 433, 5, 71, "Text"],
Cell[CellGroupData[{
Cell[12748, 365, 407, 14, 71, "Input"],
Cell[13158, 381, 390, 12, 94, "Output"]
}, Open  ]],
Cell[13563, 396, 227, 5, 77, "Text"],
Cell[13793, 403, 308, 9, 79, "Text"],
Cell[14104, 414, 120, 1, 43, "Text"],
Cell[CellGroupData[{
Cell[14249, 419, 324, 9, 71, "Input"],
Cell[14576, 430, 225, 6, 94, "Output"]
}, Open  ]],
Cell[14816, 439, 752, 15, 74, "Text"],
Cell[CellGroupData[{
Cell[15593, 458, 343, 10, 71, "Input"],
Cell[15939, 470, 171, 4, 94, "Output"]
}, Open  ]],
Cell[16125, 477, 375, 10, 44, "Text"],
Cell[CellGroupData[{
Cell[16525, 491, 82, 2, 71, "Input"],
Cell[16610, 495, 169, 4, 94, "Output"]
}, Open  ]],
Cell[16794, 502, 226, 3, 43, "Text"],
Cell[CellGroupData[{
Cell[17045, 509, 145, 5, 71, "Input"],
Cell[17193, 516, 236, 7, 98, "Output"]
}, Open  ]],
Cell[17444, 526, 156, 1, 43, "Text"],
Cell[17603, 529, 568, 13, 104, "Text"],
Cell[18174, 544, 250, 3, 43, "Text"],
Cell[CellGroupData[{
Cell[18449, 551, 333, 11, 71, "Input"],
Cell[18785, 564, 335, 11, 98, "Output"]
}, Open  ]],
Cell[19135, 578, 395, 5, 70, "Text"],
Cell[CellGroupData[{
Cell[19555, 587, 106, 3, 71, "Input"],
Cell[19664, 592, 170, 4, 94, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19871, 601, 145, 5, 71, "Input"],
Cell[20019, 608, 176, 4, 94, "Output"]
}, Open  ]],
Cell[20210, 615, 381, 7, 103, "Text"],
Cell[CellGroupData[{
Cell[20616, 626, 148, 3, 71, "Input"],
Cell[20767, 631, 126, 3, 93, "Output"]
}, Open  ]],
Cell[20908, 637, 148, 4, 77, "Text"],
Cell[21059, 643, 100, 3, 71, "Input"],
Cell[21162, 648, 247, 3, 43, "Text"],
Cell[CellGroupData[{
Cell[21434, 655, 82, 2, 71, "Input"],
Cell[21519, 659, 168, 4, 94, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21724, 668, 165, 6, 75, "Input"],
Cell[21892, 676, 237, 7, 98, "Output"]
}, Open  ]],
Cell[22144, 686, 709, 12, 134, "Text"],
Cell[22856, 700, 285, 8, 57, "Input"],
Cell[23144, 710, 170, 2, 43, "Text"],
Cell[23317, 714, 98, 3, 83, "Text"],
Cell[23418, 719, 440, 7, 79, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)