(* 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[    157357,       3634]
NotebookOptionsPosition[    139732,       3212]
NotebookOutlinePosition[    140186,       3231]
CellTagsIndexPosition[    140143,       3228]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:6570\:7406\:30d5\:30a1\:30a4\:30ca\:30f3\:30b95 ", "Title",
 CellChangeTimes->{
  3.650773160335095*^9},ExpressionUUID->"584aecd5-1171-4b35-9e4b-\
89d13d63bab1"],

Cell["5. Yield Curve and Duration", "Subtitle",
 CellChangeTimes->{{3.6507731661200523`*^9, 3.6507731675579023`*^9}, {
  3.684218475850349*^9, 3.6842184881001053`*^9}, {3.7481447664418907`*^9, 
  3.7481447680185432`*^9}},ExpressionUUID->"49146b89-0fd6-4a21-b6a2-\
50d7169c913d"],

Cell[CellGroupData[{

Cell["5.1 Spot rates, Forward rates, and Implied Forward rates", "Subsubtitle",
 CellChangeTimes->{{3.6507731852965403`*^9, 3.650773186237492*^9}, {
  3.6507732691528893`*^9, 3.650773309364996*^9}},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"8f83d600-66b9-4baf-a1eb-a7576116a43e"],

Cell["\:3000\:30b9\:30dd\:30c3\:30c8(\:76f4\:7269)\:3001\:30d5\:30a9\:30fc\
\:30ef\:30fc\:30c9(\:5148\:7269)\:3001Implied Forward \
\:306a\:3069\:306b\:3064\:3044\:3066\:306f\:3001\:30d1\:30ef\:30fc\:30dd\:30a4\
\:30f3\:30c8\:3092\:53c2\:7167\:306e\:3053\:3068\:3002", "Text",
 CellChangeTimes->{{3.65077333091926*^9, 
  3.6507733885674143`*^9}},ExpressionUUID->"7a5a17a4-7241-44f1-a783-\
a049eba43622"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

5.2 Fixed Income Securities and Floating Rate Securities\
\>", "Subsubtitle",
 CellChangeTimes->{{3.650773419314137*^9, 3.6507734255097237`*^9}, {
   3.650773459680696*^9, 3.650773486038147*^9}, {3.650775984184186*^9, 
   3.650776010133985*^9}, {3.650776565970945*^9, 3.650776569498886*^9}, 
   3.748144779114912*^9},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"78cd9ff0-b8b5-42b0-a11c-e2ad9832e53a"],

Cell[TextData[{
 "\:3000\:901a\:5e38\:306e\:50b5\:5238\:306f\:3001\:767a\:884c\:6642\:70b9\
\:3067\:5b9a\:3081\:3089\:308c\:305f\:30af\:30fc\:30dd\:30f3\:7387\:306b\:5f93\
\:3063\:3066\:5229\:6255\:3044\:304c\:884c\:308f\:308c\:308b\:3002\:91d1\:984d\
\:304c\:56fa\:5b9a\:3055\:308c\:3066\:3044\:308b\:306e\:3067\:3001",
 StyleBox["Fixed Income Securities",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "(\:56fa\:5b9a\:5229\:4ed8\:50b5)\:3068\:547c\:3070\:308c\:308b\:3002(\:56fa\
\:5b9a\:3055\:308c\:305f\:511f\:9084\:91d1\:984d(=\:8fd4\:6e08\:3059\:308b\
\:304a\:91d1)\:3001\:652f\:6255\:3046\:5229\:5b50\:ff1d\:30af\:30fc\:30dd\
\:30f3\:7387\[Times]\:511f\:9084\:91d1\:984d\:306a\:306e\:3067\:3001\:30af\
\:30fc\:30dd\:30f3\:7387\:304c\:5909\:5316\:3057\:306a\:3044\:9650\:308a\:3001\
\:652f\:6255\:3046\:5229\:5b50\:306e\:91d1\:984d\:3082\:4e00\:5b9a\:3002)\n   \
\:3053\:308c\:306b\:5bfe\:3057\:3066\:3001\:50b5\:5238\:306e\:511f\:9084\:671f\
\:9650\:304c\:6765\:308b\:307e\:3067\:306e\:9593\:306b\:652f\:6255\:3046\:30af\
\:30fc\:30dd\:30f3\:7387\:3092\:3001\:767a\:884c\:6642\:70b9\:3067\:5b9a\:3081\
\:305f\:65b9\:6cd5\:306b\:3088\:308a\:5e02\:5834\:91d1\:5229\:306e\:5909\:5316\
\:306b\:5408\:308f\:305b\:3066\:5909\:5316\:3055\:305b\:3066\:3044\:304f\:3082\
\:306e\:3092\:5909\:52d5\:91d1\:5229\:306e\:50b5\:5238(\:5909\:52d5\:5229\
\:4ed8\:50b5)\:3068\:547c\:3076\:3002\:50b5\:5238\:3067\:306f\:306a\:304f\
\:3001\:501f\:308a\:5165\:308c\:30fb\:8cb8\:51fa\:3057\:3068\:3044\:3063\:305f\
\:30ed\:30fc\:30f3\:306e\:5834\:5408\:3082\:3042\:308b\:3002\:30d1\:30ef\:30fc\
\:30dd\:30a4\:30f3\:30c8\:3092\:53c2\:7167\:306e\:3053\:3068\:3002\n   \:306a\
\:304a\:3053\:3053\:3067\:3001\:300c\:5e02\:5834\:91d1\:5229\:300d\:3068\:306f\
\:3001\:304a\:91d1\:306e\:8cb8\:3057\:501f\:308a\:304c\:884c\:308f\:308c\:308b\
\:91d1\:878d\:5e02\:5834\:306b\:304a\:3044\:3066\:3001(\:652f\:6255\:308f\
\:308c\:308b/ \:53d7\:3051\:53d6\:308b)\:69d8\:3005\:306a\:91d1\:5229\:3092\
\:4ee3\:8868\:3055\:305b\:308b\:3082\:306e\:3092\:6307\:3059\:3002\:6771\:8a3c\
\:4e00\:90e8\:682a\:4fa1\:6307\:6570TOPIX\:304c\:6771\:8a3c\:4e00\:90e8\:306b\
\:4e0a\:5834\:3057\:3066\:3044\:308b\:682a\:5f0f\:306e\:4fa1\:683c\:3092\:300c\
\:4ee3\:8868\:300d\:3057\:3088\:3046\:3068\:3059\:308b(\:60c5\:5831\:3092\
\:96c6\:7d04\:3057\:3088\:3046\:3068\:3059\:308b)\:306e\:3068\:4f3c\:305f\
\:8003\:3048\:65b9\:3067\:3042\:308b\:3002\:53d6\:5f15\:53c2\:52a0\:8005\:304c\
\:591a\:304f\:3066\:91d1\:984d\:3082\:5927\:304d\:3044\:3082\:306e\:304c\:3001\
\:4ee3\:8868\:3059\:308b\:91d1\:5229\:306e\:5019\:88dc\:3068\:306a\:308d\:3046\
\:3002\:5177\:4f53\:7684\:306b\:306f\:3001\:9280\:884c\:306b\:3088\:308b\:91d1\
\:5229\:306e\:5e73\:5747\:5024\:3068\:3057\:3066\:8a08\:7b97\:3055\:308c\:308b\
\:3001\:ff2c\:ff29\:ff22\:ff2f\:ff32\:3084\:ff34\:ff29\:ff22\:ff2f\:ff32\:304c\
\:4f7f\:308f\:308c\:3066\:3044\:308b\:3002"
}], "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
   3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
   3.650776122208173*^9}, {3.650776552789908*^9, 3.6507765567723846`*^9}, {
   3.650776588178049*^9, 3.650776604916545*^9}, 3.650795794640267*^9, {
   3.748144813778206*^9, 
   3.7481452263306093`*^9}},ExpressionUUID->"a797ffe5-d850-4fd8-a89a-\
474a6080b3dc"]
}, Open  ]],

Cell["\<\

5.3 Interest Rates change values of Fixed Income Securities\
\>", "Subsubtitle",
 CellChangeTimes->{{3.6507734648698797`*^9, 3.650773474557932*^9}, {
  3.6507735317823133`*^9, 3.650773547478489*^9}, {3.650795994529619*^9, 
  3.650796031855412*^9}},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"aff99226-5d49-488b-85aa-460adda0bbf6"],

Cell["\<\
\:3000\:50b5\:5238\:91d1\:5229\:304c\:3001\:6642\:9593\:304c\:7d4c\:904e\:3059\
\:308b\:3068(\:7d4c\:6e08\:60c5\:52e2\:306e\:5909\:5316\:306b\:5fdc\:3058\
\:3066)\:5909\:5316\:3057\:3066\:3057\:307e\:3046\:3068\:304d\:3001\:50b5\
\:5238\:4fa1\:683c\:3082\:5909\:5316\:3059\:308b\:3068\:3044\:3046\:30ea\:30b9\
\:30af\:304c\:3042\:308b\:3002\:4f8b\:3048\:3070\:3001\:30af\:30fc\:30dd\:30f3\
\:7387 c=4\:ff05\:3001\:5e741\:56de\:5229\:6255\:3044\:304c\:884c\:308f\:308c\
\:3001\:6e80\:671f T=3\:5e74\:306e\:5229\:4ed8\:50b5\:3067\:511f\:9084\:91d1\
\:984d(\:984d\:9762)\:304c100\:5186\:306e\:50b5\:5238\:304c\:767a\:884c\:3055\
\:308c\:305f\:5834\:5408\:3092\:8003\:3048\:3066\:307f\:3088\:3046\:3002\:3053\
\:306e\:50b5\:5238\:306f\:5fc5\:305a(\:6e80\:984d)\:511f\:9084\:3055\:308c\
\:3001\:30af\:30fc\:30dd\:30f3\:652f\:6255\:3044\:306b\:3064\:3044\:3066\:3082\
\:50b5\:52d9\:4e0d\:5c65\:884c\:306e\:53ef\:80fd\:6027\:306f\:306a\:3044\:3068\
\:4eee\:5b9a\:3059\:308b\:3002\:5f93\:3063\:3066\:3001\:3053\:306e\:56fa\:5b9a\
\:5229\:4ed8\:50b5\:306f\:5b89\:5168\:8cc7\:7523\:3067\:3042\:308b\:3002\:767a\
\:884c\:6642\:70b9\:3092\:3001\:4eee\:306b2002\:5e744\:67081\:65e5\:3068\:3057\
\:3066\:304a\:304f\:3002

\:3000\:3053\:306e\:5229\:4ed8\:50b5\:306f\:30011\:5e74\:5f8c\:306b4\:5186\
\:30012\:5e74\:5f8c\:306b4\:5186\:30013\:5e74\:5f8c\:306b104\:5186\:304c\:652f\
\:6255\:308f\:308c\:308b\:3002\:5b89\:5168\:8cc7\:7523\:3067\:3042\:308b\:56fd\
\:50b5\:306b\:5bfe\:3059\:308b\:5229\:56de\:308a r \:304c\:6e80\:671f\:306b\
\:304b\:304b\:308f\:3089\:305a\:5168\:30664\:ff05\:306e\:3068\:304d\:3001\
\:3053\:306e\:5229\:4ed8\:50b5\:306e\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\
\:3001\:6b21\:306e\:901a\:308a\:3001\:511f\:9084\:91d1\:984d\:3068\:4e00\:81f4\
\:3059\:308b\:3002
\
\>", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
  3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
  3.650776122208173*^9}, {3.6507762205625277`*^9, 3.6507763200448523`*^9}, {
  3.650776358232853*^9, 3.650776472194525*^9}, {3.6507766343793993`*^9, 
  3.65077671866783*^9}, {3.650776772195702*^9, 3.650776821612903*^9}, {
  3.650776869618906*^9, 3.650776911781197*^9}, {3.650777046710772*^9, 
  3.650777112308593*^9}, {3.650777151024989*^9, 3.6507771532285843`*^9}, {
  3.6507780324072866`*^9, 3.65077806694814*^9}, {3.650778106137471*^9, 
  3.650778139966905*^9}},ExpressionUUID->"c3054fdc-7c9b-497c-bb3f-\
f71b7f8548cb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"4", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", 
  RowBox[{"100", "/", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "^", "3"}]}]}]], "Input",
 CellChangeTimes->{{3.650776827253582*^9, 3.650776862891487*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"0b83dfbe-2ab1-4f7e-b44a-f01b2bd89339"],

Cell[BoxData[
 RowBox[{
  FractionBox["104", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]], "+", 
  FractionBox["4", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]], "+", 
  FractionBox["4", 
   RowBox[{"1", "+", "r"}]]}]], "Output",
 CellChangeTimes->{3.650776880145919*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[1]=",ExpressionUUID->"42da6470-806a-480b-96da-6ed9b64baad4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{"4", "/", "100"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.650776887977146*^9, 3.650776894323654*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[2]:=",ExpressionUUID->"e015b132-c649-4fae-ae15-cb29188446fa"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.6507768958731728`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[2]=",ExpressionUUID->"b9662df5-5b51-45b4-9ec1-83278a42c19e"]
}, Open  ]],

Cell["\<\
\:3000\:767a\:884c\:5f8c1\:5e74\:7d4c\:3063\:3066\:4e00\:56de\:76ee\:306e\
\:30af\:30fc\:30dd\:30f3\:652f\:6255\:3044\:304c\:884c\:308f\:308c\:305f\:76f4\
\:5f8c\:306e\:6642\:70b92003\:5e744\:67081\:65e5\:306b\:304a\:3051\:308b\:3001\
\:3053\:3053\:306e\:5229\:4ed8\:50b5\:306e\:5272\:5f15\:73fe\:5728\:4fa1\:5024\
\:306f\:3044\:304f\:3089\:3067\:3042\:308d\:3046\:304b\:30022003\:5e744\:6708\
1\:65e5\:306b\:304a\:3051\:308b\:5b89\:5168\:8cc7\:7523\:306e\:5229\:56de\
\:308a\:3092 r  \:3068\:66f8\:304d\:3001\:305d\:308c\:3089\:304c\:6e80\:671f\
\:306b\:3088\:3089\:305a\:540c\:3058\:5024\:3067\:3042\:308b\:3068\:4eee\:5b9a\
\:3059\:308b\:3068\:3001\
\>", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
  3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
  3.650776122208173*^9}, {3.650777169989027*^9, 3.650777287583444*^9}, {
  3.650777994918709*^9, 3.650778000031827*^9}, {3.6507780745480337`*^9, 
  3.650778074860262*^9}, {3.65077828777346*^9, 
  3.650778310596836*^9}},ExpressionUUID->"74dd76e6-a12b-424c-963b-\
5b930794b216"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"4", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
  RowBox[{"100", "/", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.650776827253582*^9, 3.650776862891487*^9}, {
  3.650777298057908*^9, 3.650777309129713*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[4]:=",ExpressionUUID->"4f862482-1377-4c1c-8498-d51eae50f35d"],

Cell[BoxData[
 RowBox[{
  FractionBox["104", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]], "+", 
  FractionBox["4", 
   RowBox[{"1", "+", "r"}]]}]], "Output",
 CellChangeTimes->{{3.650777300262618*^9, 3.650777309963511*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[4]=",ExpressionUUID->"39ef85e5-b892-45e0-b99c-7470561202d8"]
}, Open  ]],

Cell["\:3068\:306a\:308b\:304b\:3089\:3001\:5229\:56de\:308a r \:304c\:3001\
\:4e00\:5e74\:524d\:3068\:5909\:5316\:3057\:3066\:3044\:306a\:304b\:3063\:305f\
\:3089\:3001", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
   3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
   3.650776122208173*^9}, {3.650777169989027*^9, 3.650777287583444*^9}, {
   3.650777370539872*^9, 3.6507773877433023`*^9}, 3.65077801145157*^9, {
   3.65077808322823*^9, 3.6507780845400743`*^9}, {3.650778317204776*^9, 
   3.6507783186881332`*^9}},ExpressionUUID->"2c14d533-1cae-4cff-be52-\
18ce028f1a6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{"4", "/", "100"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.650776887977146*^9, 3.650776894323654*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[5]:=",ExpressionUUID->"94cf6616-bfa8-48c0-9a73-ee0296ce91a0"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.6507773497626*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[5]=",ExpressionUUID->"087f7d55-a8eb-4a06-a406-ba8e97ee21bc"]
}, Open  ]],

Cell["\<\
\:3000\:3068\:306a\:3063\:3066\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\:4e00\
\:5e74\:524d\:3068\:540c\:3058\:5024\:3067\:3042\:308b\:304c\:3001\:5b89\:5168\
\:8cc7\:7523\:5229\:56de\:308a\:ff52\:304c5%\:306b\:4e0a\:6607\:3057\:3066\
\:3044\:308c\:3070\:3001\
\>", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
  3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
  3.650776122208173*^9}, {3.650777169989027*^9, 3.650777287583444*^9}, {
  3.650777370539872*^9, 3.6507773877433023`*^9}, {3.65077742796247*^9, 
  3.650777445652066*^9}, {3.650778335503764*^9, 
  3.650778353738243*^9}},ExpressionUUID->"d3572ce0-cd82-41b3-b29a-\
dab1f7297a54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%4", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{"5", "/", "100"}]}], "}"}], " "}]], "Input",
 CellChangeTimes->{{3.650776887977146*^9, 3.650776894323654*^9}, {
  3.650777455044874*^9, 3.650777489343481*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[8]:=",ExpressionUUID->"6dbc91ab-0e12-442b-aac9-b631c73bc85d"],

Cell[BoxData[
 FractionBox["43280", "441"]], "Output",
 CellChangeTimes->{
  3.6507773497626*^9, {3.6507774614723787`*^9, 3.6507774905036917`*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[8]=",ExpressionUUID->"84f7da4e-ee5d-4c0b-96fa-1102ed872223"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"%", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.6507774927050037`*^9, 3.650777496663314*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[9]:=",ExpressionUUID->"1591fc13-4a75-4fdb-bb09-53df01c295b5"],

Cell[BoxData["98.14058956916099773242630385487528344671`5."], "Output",
 CellChangeTimes->{3.650777497346858*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[9]=",ExpressionUUID->"3908de37-a714-426f-a19b-4885ce791458"]
}, Open  ]],

Cell["\:3000\:3068\:306a\:3063\:3066\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\
\:4e00\:5e74\:524d\:3088\:308a\:4e0b\:304c\:308a\:3001\:5b89\:5168\:8cc7\:7523\
\:5229\:56de\:308a\:ff52\:304c3%\:306b\:4e0b\:843d\:3057\:3066\:3044\:308c\
\:3070\:3001", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
  3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
  3.650776122208173*^9}, {3.650777169989027*^9, 3.650777287583444*^9}, {
  3.650777370539872*^9, 3.6507773877433023`*^9}, {3.65077742796247*^9, 
  3.650777445652066*^9}, {3.650777516528117*^9, 3.650777523030344*^9}, {
  3.650777592528612*^9, 3.6507776127043858`*^9}, {3.650778364590981*^9, 
  3.650778365745442*^9}},ExpressionUUID->"b82373c5-3f58-4498-90c6-\
9ab40bcf990d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%4", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{"3", "/", "100"}]}], "}"}], " "}]], "Input",
 CellChangeTimes->{{3.650776887977146*^9, 3.650776894323654*^9}, {
  3.650777455044874*^9, 3.650777489343481*^9}, {3.6507775314057293`*^9, 
  3.6507775338423433`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[10]:=",ExpressionUUID->"e538d9b1-26b7-437b-bba9-203ee6a2a2bf"],

Cell[BoxData[
 FractionBox["1081200", "10609"]], "Output",
 CellChangeTimes->{
  3.6507773497626*^9, {3.6507774614723787`*^9, 3.6507774905036917`*^9}, 
   3.6507775362104263`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[10]=",ExpressionUUID->"fccb002b-837f-459c-8eeb-56b31fb0da8b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"%", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.6507774927050037`*^9, 3.650777496663314*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[11]:=",ExpressionUUID->"3d31d9f8-fb11-4559-8aaa-289fa03b5511"],

Cell[BoxData["101.9134696955415213497973418795362428127`5."], "Output",
 CellChangeTimes->{3.650777497346858*^9, 3.650777546001004*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[11]=",ExpressionUUID->"e933d2f9-bb43-435f-a5ac-b8bc89ad1429"]
}, Open  ]],

Cell["\<\
\:3000\:3068\:306a\:3063\:3066\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\:4e00\
\:5e74\:524d\:3088\:308a\:5897\:3048\:308b\:3053\:3068\:306b\:306a\:308b\:3002

\:3000\:5229\:4ed8\:50b5\:306e\:5c06\:6765\:4fa1\:683c\:306f\:3001\:305d\:306e\
\:3068\:304d\:5b9f\:73fe\:3059\:308b\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\
\:306b\:3088\:3063\:3066\:5909\:5316\:3059\:308b\:3053\:3068\:304c\:78ba\:8a8d\
\:3067\:304d\:305f\:3002

    \:305d\:3082\:305d\:3082\:3053\:306e\:5229\:4ed8\:50b5\:306e\:767a\:884c\
\:6642\:70b9\:3067\:3001\:305d\:306e\:3068\:304d\:306e\:5b89\:5168\:8cc7\:7523\
\:5229\:56de\:308a\:306b\:3088\:3063\:3066\:4fa1\:683c\:306f\:5909\:5316\:3059\
\:308b\:3002\:30af\:30fc\:30dd\:30f3\:306f\:ff14\:ff05\:3068\:56fa\:5b9a\:3057\
\:305f\:307e\:307e\:3001\:6e80\:671f\:307e\:3067\:306e\:9577\:3055\:3092 tM (\
\:5e74)\:3068\:5272\:5f15\:7387\:306b\:4f7f\:3046\:5b89\:5168\:8cc7\:7523\
\:5229\:56de\:308a r  \:3092\:30a4\:30f3\:30d7\:30c3\:30c8\:3068\:3057\:3066\
\:50b5\:6a29\:4fa1\:683c\:3092\:4e0e\:3048\:308b\:95a2\:6570\:3092\:5b9a\:7fa9\
\:3057\:3066\:304a\:304f\:3002\
\>", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
  3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
  3.650776122208173*^9}, {3.650777169989027*^9, 3.650777287583444*^9}, {
  3.650777370539872*^9, 3.6507773877433023`*^9}, {3.65077742796247*^9, 
  3.650777445652066*^9}, {3.650777516528117*^9, 3.650777523030344*^9}, {
  3.650777592528612*^9, 3.6507776259525213`*^9}, {3.6507958705888557`*^9, 
  3.65079597798202*^9}, {3.650796065772214*^9, 3.65079611356421*^9}, {
  3.650796198269957*^9, 
  3.6507963031474133`*^9}},ExpressionUUID->"6d2fa8fc-fec8-41fb-81e5-\
70eac2449d50"],

Cell[BoxData[
 RowBox[{
  RowBox[{"finc", "[", 
   RowBox[{"r_", ",", "tM_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"4", "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "tM"}], "}"}]}], "]"}], "+", 
   RowBox[{"100", "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "^", "tM"}]}]}]}]], "Input",
 CellChangeTimes->{{3.650796131984345*^9, 3.650796191846945*^9}, {
  3.6507963754109287`*^9, 3.650796383769742*^9}, {3.650796471096038*^9, 
  3.650796473509914*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[31]:=",ExpressionUUID->"6c1664dc-c215-4fa9-86e4-562775f6f4ac"],

Cell["\<\
\:95a2\:6570\:540d\:3092finc\:3068\:3057\:3001\:30a4\:30f3\:30d7\:30c3\:30c8\
\:306b\:4f7f\:3046\:30b7\:30f3\:30dc\:30eb\:3092 r \:3068 tM \:306b\:3057\
\:305f\:3002\:5165\:529b\:3092\:793a\:3059\:90e8\:5206\:3067\:306f\:3001\:30b7\
\:30f3\:30dc\:30eb\:540d\:306e\:5f8c\:306b\[CloseCurlyDoubleQuote]\:ff3f\
\[CloseCurlyDoubleQuote]\:ff08\:30a2\:30f3\:30c0\:30fc\:30b9\:30b3\:30a2\:ff09\
\:3092\:3064\:3051\:306a\:3051\:308c\:3070\:306a\:3089\:306a\:3044\:3002\
\[CloseCurlyDoubleQuote]\:ff1a\:ff1d\[CloseCurlyDoubleQuote]\:306e\:53f3\:5074\
\:3067\:306f\:30b7\:30f3\:30dc\:30eb\:540d\:3092\:305d\:306e\:307e\:307e\:4f7f\
\:3063\:3066\:3001\:95a2\:6570\:306e\:4e2d\:8eab\:3092\:5b9a\:7fa9\:3059\:308b\
\:3002\:ff13\:5e74\:6e80\:671f\:306e\:5834\:5408\:3001\:5148\:307b\:3069\:306e\
\:5b9a\:7fa9\:3068\:4e00\:81f4\:3059\:308b\:3053\:3068\:3092\:78ba\:8a8d\:3057\
\:3066\:304a\:3053\:3046\:3002\
\>", "Text",
 CellChangeTimes->{{3.650773444173671*^9, 3.650773455831834*^9}, {
  3.650775843821787*^9, 3.650775971303512*^9}, {3.650776012933552*^9, 
  3.650776122208173*^9}, {3.650777169989027*^9, 3.650777287583444*^9}, {
  3.650777370539872*^9, 3.6507773877433023`*^9}, {3.65077742796247*^9, 
  3.650777445652066*^9}, {3.650777516528117*^9, 3.650777523030344*^9}, {
  3.650777592528612*^9, 3.6507776127043858`*^9}, {3.650778364590981*^9, 
  3.650778365745442*^9}, {3.650796497063795*^9, 
  3.650796620775435*^9}},ExpressionUUID->"c20871f0-f00f-4f5d-84cc-\
0e394d667c89"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"finc", "[", 
  RowBox[{"r", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.650796316525955*^9, 3.6507963292094917`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[7]:=",ExpressionUUID->"358f316b-09c2-4212-b536-2171d74d14db"],

Cell[BoxData[
 RowBox[{
  FractionBox["104", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]], "+", 
  FractionBox["4", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]], "+", 
  FractionBox["4", 
   RowBox[{"1", "+", "r"}]]}]], "Output",
 CellChangeTimes->{
  3.650796330083561*^9, {3.650796387872178*^9, 3.6507963919503317`*^9}, 
   3.650796425734215*^9, 3.650796477190015*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[7]=",ExpressionUUID->"998c4cf9-777c-481d-8229-d946ec117e6e"]
}, Open  ]],

Cell[TextData[{
 "\n\:3055\:3066\:3001\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a r \:3092\
\:5909\:5316\:3055\:305b\:305f\:3068\:304d\:3001\:3053\:306e\:5229\:4ed8\:50b5\
\:306e\:4fa1\:683c\:304c\:3069\:3046\:304b\:308f\:308b\:304b\:3092\:3001\:30d7\
\:30ed\:30c3\:30c8\:3057\:3066\:307f\:308b\:3002\n\:3053\:308c\:306f\:3001",
 StyleBox["\:5229\:56de\:308a\:66f2\:7dda",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "(Yield Curve)\:3068\:547c\:3070\:308c\:308b\:3002r \:3092\:ff10\:ff05\:304b\
\:3089\:ff15\:ff05\:307e\:3067\:52d5\:304b\:3057\:3066\:307f\:308b\:3002\n"
}], "Text",
 CellChangeTimes->{{3.650796666088645*^9, 3.6507967160566673`*^9}, {
  3.650796852955525*^9, 3.650796893961224*^9}, {3.6508491937323303`*^9, 
  3.650849216583165*^9}, {3.68421855698918*^9, 
  3.684218595770752*^9}},ExpressionUUID->"aa5abb01-7b1d-46c3-a570-\
e25f022b1b25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"finc", "[", 
    RowBox[{"r", ",", "3"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", 
     RowBox[{"5", "/", "100"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.650796720609091*^9, 3.650796743217002*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[8]:=",ExpressionUUID->"e2a2d05e-e39a-417c-8b88-ab1a6f724423"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVyn801Xccx3HXj4miud26JXdRatGYQ7RJ3u9IHczl+vn9UXMrNa0jamgy
Pyo/S8cd5eZnfvNRpBSiSFod1Z3S6kaU3aKFiGidCvvuj9d5ncc5T5Mdod67
1NXU1Dy4/f/FQ1fCFckGjrO8/JnZWRaTVvIvXxS8dXR9/URew5nvcLAsXaAG
W6YDrLdxpm4TUazgSzDOWLa3aYbFT/Pa6QiBMYy0PBwOn2ZRcb7z3zCBFWQV
3TEb+siiHe/xrX0ChOSoW/JHUywOmdE1IQIvcN2eZV87zGJI5F8eJ9qkENmj
ebftEYuBeuldWgPBIJBeK97axmK1upuqMzQM7M+31+6vZvE6YzZ+rj0cJDrT
BSNyFmV6fO1cxa9QPWhzb/goixF5SuslljHgLP86y3cfi2MWRbqCa/FQE7+v
6juaRfX17OyKliOQnPbLcK4Li8b1GrPRQwmw1sVWEmLFYt4zqyO940mwZr6H
W7MRi+yZWqnWWAqIf0xj4nRYNP3zK7dI4XG4k+0wfHmSQfcqg4YxwxNw3GSr
Y9DfDMZMTlhecE2HOvf35Sn3GIzau+CwqEEGiWsyrUwbGdxRF3pusP53OEYG
iqzLGPSydu7zuZcBTbXfHm6WMfhGu9vTpTMTXIIkdy/FMJguGLzd8+okjBpm
an2zh0GfkLwQ30+nQBpgZbjYj8FbRgv9vD9nwcjJaWWoE4OOGlpOk/zTMOC6
+7arJYO7sCHMUJgNrSMvx9KWMljdwVeYLsqBZc52fNRh8FPqgOVD81zozf8+
NmqKxg+Fh7q0LPLAW5pRIHxB48fRpOjeTfnQ+MxgN3TSKEp18JYHFEBC0LjJ
k2Ya30Zd+vlxwBmom9bQfEBofHlfcrPXrhCGVOnFAVk0rpaZh8saCyE4qtbA
IYHGmCmlff26IqjglXakHaDR9z1q1rQVAVnQuiY0kMajy4+P/uRUDP5Rwbpn
PWhcOyR7+k5RDNnKTkW0PY0b+g6+3uhVAmtzqttLVtMYEGmjr36/BNI2Ltaw
E9L4rqrK9iRTCiETarztmjS+0tWI/edpKQQNNk48m6Bw2xfCDv3gMqjbu1Lx
4TmFLytmzSvGy6BQFd8Xo6CwPbyjmnegHFaZ6+dIrlJo2ie2sZwuh2NpFxb9
QSjsC7vcbRRXAcWec/UTT1NYXvU2K2amAvob+E/OJlM4EffKvzalEmjjCEFk
BIVZ8a3rynQI/FZg05QSRGFg9wqdgbkEptZ7um7gvNo6pcdUn4Dn0qru8Z0U
Nr3wiinlE5iTKJphOD/frLpRspTANbePfhY7uF5PS1xsQSDpfuLGrkAKm7Pd
gs5ICCyk67VFLIUJEzW2z30IXAmobnnAUCh2X6C9zJ/A/JuqyCTO/Z+fkgKG
wJa7c4bHaAo1pSFj+Tu5vgdVNyiuXyU7lBdBINOGnbfHn0Jh3KR770ECy9/Z
KkWc+5WUyOgQgfR6cUmXH4UHUk2u58YSiLa0BwfO8pGLWrnJBGrMPiTO96VQ
6iJU9qQSeC++wdz0odC8ILrSMI2Ao/MdqyjOVz03uefICEhiM/tV3hQmVlYa
9WQQeNPg2yTnLObpjS45RWBJuc+pHzgLmf2ttJyAvZNsP49z/8VHsuxsAi2J
up71Egr/A/Y1Oak=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 96.5},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {97.27675224330503, 111.99999966938775`}}, {{
     0, 0.05}, {97.27675224330503, 111.99999966938775`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650796744201291*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[8]=",ExpressionUUID->"b40ae6bd-ff22-4a66-b66e-9dd0644a4f2e"]
}, Open  ]],

Cell["\:8ef8\:306e\:30e9\:30d9\:30eb\:3092\:3064\:3051\:3066\:304a\:304f\:3002\
", "Text",
 CellChangeTimes->{{3.650796905364053*^9, 
  3.6507969179510107`*^9}},ExpressionUUID->"92a5e1f3-76a7-4e67-bb9d-\
4c70cab5dcfa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g3", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"finc", "[", 
     RowBox[{"r", ",", "3"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"5", "/", "100"}]}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
       "\"\<\:50b5\:5238\:4fa1\:683c(\:5186)\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.650796720609091*^9, 3.650796743217002*^9}, {
  3.6507967784649277`*^9, 3.650796818302204*^9}, {3.650796946095508*^9, 
  3.6507969816353607`*^9}, {3.650797019685795*^9, 3.6507970221688128`*^9}, {
  3.65079706373512*^9, 3.650797063794785*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[14]:=",ExpressionUUID->"89090a22-4170-45da-aeb9-da3fd16fbd1f"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVyn801Xccx3HXj4miud26JXdRatGYQ7RJ3u9IHczl+vn9UXMrNa0jamgy
Pyo/S8cd5eZnfvNRpBSiSFod1Z3S6kaU3aKFiGidCvvuj9d5ncc5T5Mdod67
1NXU1Dy4/f/FQ1fCFckGjrO8/JnZWRaTVvIvXxS8dXR9/URew5nvcLAsXaAG
W6YDrLdxpm4TUazgSzDOWLa3aYbFT/Pa6QiBMYy0PBwOn2ZRcb7z3zCBFWQV
3TEb+siiHe/xrX0ChOSoW/JHUywOmdE1IQIvcN2eZV87zGJI5F8eJ9qkENmj
ebftEYuBeuldWgPBIJBeK97axmK1upuqMzQM7M+31+6vZvE6YzZ+rj0cJDrT
BSNyFmV6fO1cxa9QPWhzb/goixF5SuslljHgLP86y3cfi2MWRbqCa/FQE7+v
6juaRfX17OyKliOQnPbLcK4Li8b1GrPRQwmw1sVWEmLFYt4zqyO940mwZr6H
W7MRi+yZWqnWWAqIf0xj4nRYNP3zK7dI4XG4k+0wfHmSQfcqg4YxwxNw3GSr
Y9DfDMZMTlhecE2HOvf35Sn3GIzau+CwqEEGiWsyrUwbGdxRF3pusP53OEYG
iqzLGPSydu7zuZcBTbXfHm6WMfhGu9vTpTMTXIIkdy/FMJguGLzd8+okjBpm
an2zh0GfkLwQ30+nQBpgZbjYj8FbRgv9vD9nwcjJaWWoE4OOGlpOk/zTMOC6
+7arJYO7sCHMUJgNrSMvx9KWMljdwVeYLsqBZc52fNRh8FPqgOVD81zozf8+
NmqKxg+Fh7q0LPLAW5pRIHxB48fRpOjeTfnQ+MxgN3TSKEp18JYHFEBC0LjJ
k2Ya30Zd+vlxwBmom9bQfEBofHlfcrPXrhCGVOnFAVk0rpaZh8saCyE4qtbA
IYHGmCmlff26IqjglXakHaDR9z1q1rQVAVnQuiY0kMajy4+P/uRUDP5Rwbpn
PWhcOyR7+k5RDNnKTkW0PY0b+g6+3uhVAmtzqttLVtMYEGmjr36/BNI2Ltaw
E9L4rqrK9iRTCiETarztmjS+0tWI/edpKQQNNk48m6Bw2xfCDv3gMqjbu1Lx
4TmFLytmzSvGy6BQFd8Xo6CwPbyjmnegHFaZ6+dIrlJo2ie2sZwuh2NpFxb9
QSjsC7vcbRRXAcWec/UTT1NYXvU2K2amAvob+E/OJlM4EffKvzalEmjjCEFk
BIVZ8a3rynQI/FZg05QSRGFg9wqdgbkEptZ7um7gvNo6pcdUn4Dn0qru8Z0U
Nr3wiinlE5iTKJphOD/frLpRspTANbePfhY7uF5PS1xsQSDpfuLGrkAKm7Pd
gs5ICCyk67VFLIUJEzW2z30IXAmobnnAUCh2X6C9zJ/A/JuqyCTO/Z+fkgKG
wJa7c4bHaAo1pSFj+Tu5vgdVNyiuXyU7lBdBINOGnbfHn0Jh3KR770ECy9/Z
KkWc+5WUyOgQgfR6cUmXH4UHUk2u58YSiLa0BwfO8pGLWrnJBGrMPiTO96VQ
6iJU9qQSeC++wdz0odC8ILrSMI2Ao/MdqyjOVz03uefICEhiM/tV3hQmVlYa
9WQQeNPg2yTnLObpjS45RWBJuc+pHzgLmf2ttJyAvZNsP49z/8VHsuxsAi2J
up71Egr/A/Y1Oak=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox["\"\:50b5\:5238\:4fa1\:683c(\:5186)\"", TraditionalForm]},
  AxesOrigin->{0, 96.5},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {97.27675224330503, 111.99999966938775`}}, {{
     0, 0.05}, {97.27675224330503, 111.99999966938775`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.650796819435315*^9, {3.6507969525949097`*^9, 3.650796982284053*^9}, 
   3.650797023077649*^9, 3.6507970646345463`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[14]=",ExpressionUUID->"d708f5d0-ba74-413a-889d-40cabfac71a0"]
}, Open  ]],

Cell["\:6e80\:671f\:304c\:ff11\:ff10\:5e74\:306e\:5834\:5408\:3082\:540c\:6642\
\:306b\:63cf\:304f\:3002", "Text",
 CellChangeTimes->{{3.650796905364053*^9, 3.6507969179510107`*^9}, {
  3.650797027746294*^9, 3.650797041557198*^9}, {3.65079709065484*^9, 
  3.650797099418227*^9}},ExpressionUUID->"983d47c0-7bca-4911-83a2-\
7a872b3130d9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g10", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"finc", "[", 
       RowBox[{"r", ",", "3"}], "]"}], ",", 
      RowBox[{"finc", "[", 
       RowBox[{"r", ",", "10"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"5", "/", "100"}]}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
       "\"\<\:50b5\:5238\:4fa1\:683c(\:5186)\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.650796720609091*^9, 3.650796743217002*^9}, {
  3.6507967784649277`*^9, 3.650796818302204*^9}, {3.650796946095508*^9, 
  3.6507969816353607`*^9}, {3.650797019685795*^9, 3.650797057732068*^9}, {
  3.650797102155717*^9, 3.650797133449387*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[17]:=",ExpressionUUID->"46c7a0d4-52cb-4e40-a224-d19536dcaf3b"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVyn801Xccx3HXj4miud26JXdRatGYQ7RJ3u9IHczl+vn9UXMrNa0jamgy
Pyo/S8cd5eZnfvNRpBSiSFod1Z3S6kaU3aKFiGidCvvuj9d5ncc5T5Mdod67
1NXU1Dy4/f/FQ1fCFckGjrO8/JnZWRaTVvIvXxS8dXR9/URew5nvcLAsXaAG
W6YDrLdxpm4TUazgSzDOWLa3aYbFT/Pa6QiBMYy0PBwOn2ZRcb7z3zCBFWQV
3TEb+siiHe/xrX0ChOSoW/JHUywOmdE1IQIvcN2eZV87zGJI5F8eJ9qkENmj
ebftEYuBeuldWgPBIJBeK97axmK1upuqMzQM7M+31+6vZvE6YzZ+rj0cJDrT
BSNyFmV6fO1cxa9QPWhzb/goixF5SuslljHgLP86y3cfi2MWRbqCa/FQE7+v
6juaRfX17OyKliOQnPbLcK4Li8b1GrPRQwmw1sVWEmLFYt4zqyO940mwZr6H
W7MRi+yZWqnWWAqIf0xj4nRYNP3zK7dI4XG4k+0wfHmSQfcqg4YxwxNw3GSr
Y9DfDMZMTlhecE2HOvf35Sn3GIzau+CwqEEGiWsyrUwbGdxRF3pusP53OEYG
iqzLGPSydu7zuZcBTbXfHm6WMfhGu9vTpTMTXIIkdy/FMJguGLzd8+okjBpm
an2zh0GfkLwQ30+nQBpgZbjYj8FbRgv9vD9nwcjJaWWoE4OOGlpOk/zTMOC6
+7arJYO7sCHMUJgNrSMvx9KWMljdwVeYLsqBZc52fNRh8FPqgOVD81zozf8+
NmqKxg+Fh7q0LPLAW5pRIHxB48fRpOjeTfnQ+MxgN3TSKEp18JYHFEBC0LjJ
k2Ya30Zd+vlxwBmom9bQfEBofHlfcrPXrhCGVOnFAVk0rpaZh8saCyE4qtbA
IYHGmCmlff26IqjglXakHaDR9z1q1rQVAVnQuiY0kMajy4+P/uRUDP5Rwbpn
PWhcOyR7+k5RDNnKTkW0PY0b+g6+3uhVAmtzqttLVtMYEGmjr36/BNI2Ltaw
E9L4rqrK9iRTCiETarztmjS+0tWI/edpKQQNNk48m6Bw2xfCDv3gMqjbu1Lx
4TmFLytmzSvGy6BQFd8Xo6CwPbyjmnegHFaZ6+dIrlJo2ie2sZwuh2NpFxb9
QSjsC7vcbRRXAcWec/UTT1NYXvU2K2amAvob+E/OJlM4EffKvzalEmjjCEFk
BIVZ8a3rynQI/FZg05QSRGFg9wqdgbkEptZ7um7gvNo6pcdUn4Dn0qru8Z0U
Nr3wiinlE5iTKJphOD/frLpRspTANbePfhY7uF5PS1xsQSDpfuLGrkAKm7Pd
gs5ICCyk67VFLIUJEzW2z30IXAmobnnAUCh2X6C9zJ/A/JuqyCTO/Z+fkgKG
wJa7c4bHaAo1pSFj+Tu5vgdVNyiuXyU7lBdBINOGnbfHn0Jh3KR770ECy9/Z
KkWc+5WUyOgQgfR6cUmXH4UHUk2u58YSiLa0BwfO8pGLWrnJBGrMPiTO96VQ
6iJU9qQSeC++wdz0odC8ILrSMI2Ao/MdqyjOVz03uefICEhiM/tV3hQmVlYa
9WQQeNPg2yTnLObpjS45RWBJuc+pHzgLmf2ttJyAvZNsP49z/8VHsuxsAi2J
up71Egr/A/Y1Oak=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVjn0w1AkcxlF7Rl4mbElspei8DDnJ9rLn+z1HN2Us1stvd+2yK71M2VAs
0aJy2FFnERJ5WS/rt4PihJSLSFN3KBXjrVcv5fKud+X2/njmmc/M88x8zILD
WAc11NTUPFT5v+WTNyK7UvSdkysOfFtOEGKyhcH1Ouqs85Hdz1oOqdiAEV2e
TlWDbHFpUle8ENn3SFo8dTXYtepY5EuE+FWnnRNF3QS0JFatU5wQu672fAyn
2kM4/ejH42IhOqn3dR6nIqz27aSPhgpx0opTI6J6QUY77dRLjhBF4iceF9oE
IN2uJv1uL8Qg3fReytgR6PvMku3SFmK1xv5XPWHh8Lr47nTmuABbuVZzVe2R
sPXlKgrjtgBlugaa+V0xcPrQsYg3lwUYVdDvYGwngeCUwm3vTwpwxrZkFbUl
EapyUio3MwWosSdgectfZ0HxodNxl40ANzWsWI6bTIKtZ0Jj2ikCLHhmf3Z4
Lhk6tCPyWJ1BGFB0TUCZSQVmvUmp1bkgNO/esF9slAYxh7e16OwJQnelfuPM
+gvAcn7QKv4UiJLFebvafelA6HRQtGsD8dQxwzO0Rhn8wQjefPVYIAb/GVY1
3pABypgH2UqbQPRy+HXE559MCEuh5y2M83FKc8DTrScLijwfx8Yp+JhOHb83
OHERPKtDE0UH+OgjKhD5fs0GhpRx19eMj52ma/xYSzmQ8yLjqccoD51XUFwW
DS6BdRs/slfOw4PYGL7eKA9cftlY432Ih9X3DbrM114GV4fhllwbHn6Vjtk9
ts6HpfN+U6nvAvBTcWwvxbYA/Ot/ZLrXBeCX6eS4Ydcr8P78UG/vyQCkSRms
XKIQHMU3jC3oATh7qv5oH1EEgn/Tajcuc3H0oXfHsFMxHM9cfP7tDhctZdaR
sqZiWBzlsMPSuCh537+7gV4Cl7rrJWf8uOj7AVfWtJUAb6f7cpYJF89tTps+
7CIH5VSEE3Wcg46TsqGFLjkwHzkmVFVx8OeR6Le/eJUCVdScXBjNQUK8XU/j
YSnIrWK1aK4cXFAqd1zklkFTlt5Etw4HJ1atiH8zVAZ3WMqnDQNs5P9gdF/v
SDkU2JTkv5GzcVSxbK2YKwd/M7q3UsTG9sj71eonKmD2XepwPION5iPM7Xbf
KuBsakh2oyYbR8KvD5gmKGDAaufKuT4CK5SzOZLvCvh75JNpjoLA+YQJ/2up
lXCwQ39fUySBOYm36eVaJHzOGmttdiMwaGCL1pg2CV5L0x/euhJo6ZA6aK5H
QneUmpOxiptfe0nKDEiYG9jVE+1C4PO9r+6UmpAwtu6LaAeo9roUptyWBD9D
Jq9uJ4E38/aHFHmTwNvr8LnOhsCk+Zodz31IaP0pxPO1NYFMd0PNjf4kUCxl
NYYqfrE0RBZySeiIepISaUngSoFo5soBEnz4GhVOFqr9VllsQRQJdhUZslsb
CDRKWHQfjibh3qtt4ima6t/PppnGkkC1bwvZoOITUrPW/HgSJp1v8hJNCMx9
V0fJTyHh0Xe1Jtd1BArcjPoHpSQ8yLAZizIi0LowrnL9eRLSm91MFGsJvOXp
6n5ZRkL86t/kWmsI/L2y0nQwkwSXINuF3VSVj7rutHE2CfPJ6h6hhiofbsRt
Ti4Jgevar14xUPnUPZXl5ZFwuizCpEefwP8A0IgzYQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox["\"\:50b5\:5238\:4fa1\:683c(\:5186)\"", TraditionalForm]},
  AxesOrigin->{0, 90.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{428.40104166666697`, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {92.27826582048323, 139.999998755102}}, {{0, 0.05}, {
     92.27826582048323, 139.999998755102}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.650797059655851*^9, {3.650797110102668*^9, 3.65079713422978*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[17]=",ExpressionUUID->"8af03c4f-8d22-4dbb-90f5-87a24172bae9"]
}, Open  ]],

Cell["\<\

   \:4e8c\:3064\:306e\:66f2\:7dda\:3092\:6bd4\:3079\:308b\:3068\:3001\:6e80\
\:671f\:304c\:ff11\:ff10\:5e74\:306e\:50b5\:5238\:4fa1\:683c\:306f\:5b89\:5168\
\:8cc7\:7523\:5229\:56de\:308a\:304c\:4e0a\:6607\:3059\:308b\:3068\:3001\:6025\
\:901f\:306b\:4fa1\:683c\:304c\:4e0b\:304c\:308b\:3002r = \
4%\:306e\:3068\:3053\:308d\:3067\:4ea4\:308f\:3063\:3066\:3044\:308b\:3002\
\:4ea4\:308f\:308b\:306e\:306f\:3001\:56fa\:5b9a\:3057\:305f\:30af\:30fc\:30dd\
\:30f3\:7387\:ff14\:ff05\:3068\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:304c\
\:4e00\:81f4\:3059\:308b\:3068\:304d\:3067\:3001\:3053\:306e\:3068\:304d\:50b5\
\:5238\:4fa1\:683c\:306f\:3069\:308c\:3082\:3061\:3087\:3046\:3069\:ff11\:ff10\
\:ff10\:5186\:306b\:306a\:308b\:3002
  \
\>", "Text",
 CellChangeTimes->{{3.650796905364053*^9, 3.6507969179510107`*^9}, {
  3.650797027746294*^9, 3.650797041557198*^9}, {3.65079709065484*^9, 
  3.650797099418227*^9}, {3.650797198990395*^9, 3.650797335046051*^9}, {
  3.650797607653751*^9, 
  3.6507976277637672`*^9}},ExpressionUUID->"19443454-51b5-4dca-af03-\
5e4763b70df9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"finc", "[", 
  RowBox[{
   RowBox[{"4", "/", "100"}], ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.650797268151271*^9, 3.650797272610339*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[18]:=",ExpressionUUID->"cfaf50f8-59cc-4a65-bd6f-6191d32a3ca6"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.650797273480318*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[18]=",ExpressionUUID->"8e1fdf41-82cb-44f1-9f9e-fd88679a32c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"finc", "[", 
  RowBox[{
   RowBox[{"4", "/", "100"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.650797268151271*^9, 3.650797280322894*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[19]:=",ExpressionUUID->"2bfd33a9-a532-4a4f-bf65-3ab3c15a8a7c"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.650797281083411*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[19]=",ExpressionUUID->"39a58ac3-7df4-41a5-857a-e561897ef507"]
}, Open  ]],

Cell["\:ff11\:5e74\:6e80\:671f\:3001\:ff11\:ff12\:5e74\:6e80\:671f\:306e\:50b5\
\:5238\:3092\:5408\:308f\:305b\:3066\:63cf\:3044\:3066\:307f\:308b\:3002", \
"Text",
 CellChangeTimes->{{3.650797362739552*^9, 3.650797439069439*^9}, 
   3.6507976385283613`*^9},ExpressionUUID->"fd64a9d9-5846-497f-ad59-\
883856ede8e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g10", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"finc", "[", 
       RowBox[{"r", ",", "3"}], "]"}], ",", 
      RowBox[{"finc", "[", 
       RowBox[{"r", ",", "10"}], "]"}], ",", 
      RowBox[{"finc", "[", 
       RowBox[{"r", ",", "1"}], "]"}], ",", 
      RowBox[{"finc", "[", 
       RowBox[{"r", ",", "12"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"5", "/", "100"}]}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
       "\"\<\:50b5\:5238\:4fa1\:683c(\:5186)\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.650796720609091*^9, 3.650796743217002*^9}, {
  3.6507967784649277`*^9, 3.650796818302204*^9}, {3.650796946095508*^9, 
  3.6507969816353607`*^9}, {3.650797019685795*^9, 3.650797057732068*^9}, {
  3.650797102155717*^9, 3.650797133449387*^9}, {3.6507974526925573`*^9, 
  3.650797462745598*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[20]:=",ExpressionUUID->"c5fa9ed8-4148-46f4-aa23-a9d5d33f1442"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVyn801Xccx3HXj4miud26JXdRatGYQ7RJ3u9IHczl+vn9UXMrNa0jamgy
Pyo/S8cd5eZnfvNRpBSiSFod1Z3S6kaU3aKFiGidCvvuj9d5ncc5T5Mdod67
1NXU1Dy4/f/FQ1fCFckGjrO8/JnZWRaTVvIvXxS8dXR9/URew5nvcLAsXaAG
W6YDrLdxpm4TUazgSzDOWLa3aYbFT/Pa6QiBMYy0PBwOn2ZRcb7z3zCBFWQV
3TEb+siiHe/xrX0ChOSoW/JHUywOmdE1IQIvcN2eZV87zGJI5F8eJ9qkENmj
ebftEYuBeuldWgPBIJBeK97axmK1upuqMzQM7M+31+6vZvE6YzZ+rj0cJDrT
BSNyFmV6fO1cxa9QPWhzb/goixF5SuslljHgLP86y3cfi2MWRbqCa/FQE7+v
6juaRfX17OyKliOQnPbLcK4Li8b1GrPRQwmw1sVWEmLFYt4zqyO940mwZr6H
W7MRi+yZWqnWWAqIf0xj4nRYNP3zK7dI4XG4k+0wfHmSQfcqg4YxwxNw3GSr
Y9DfDMZMTlhecE2HOvf35Sn3GIzau+CwqEEGiWsyrUwbGdxRF3pusP53OEYG
iqzLGPSydu7zuZcBTbXfHm6WMfhGu9vTpTMTXIIkdy/FMJguGLzd8+okjBpm
an2zh0GfkLwQ30+nQBpgZbjYj8FbRgv9vD9nwcjJaWWoE4OOGlpOk/zTMOC6
+7arJYO7sCHMUJgNrSMvx9KWMljdwVeYLsqBZc52fNRh8FPqgOVD81zozf8+
NmqKxg+Fh7q0LPLAW5pRIHxB48fRpOjeTfnQ+MxgN3TSKEp18JYHFEBC0LjJ
k2Ya30Zd+vlxwBmom9bQfEBofHlfcrPXrhCGVOnFAVk0rpaZh8saCyE4qtbA
IYHGmCmlff26IqjglXakHaDR9z1q1rQVAVnQuiY0kMajy4+P/uRUDP5Rwbpn
PWhcOyR7+k5RDNnKTkW0PY0b+g6+3uhVAmtzqttLVtMYEGmjr36/BNI2Ltaw
E9L4rqrK9iRTCiETarztmjS+0tWI/edpKQQNNk48m6Bw2xfCDv3gMqjbu1Lx
4TmFLytmzSvGy6BQFd8Xo6CwPbyjmnegHFaZ6+dIrlJo2ie2sZwuh2NpFxb9
QSjsC7vcbRRXAcWec/UTT1NYXvU2K2amAvob+E/OJlM4EffKvzalEmjjCEFk
BIVZ8a3rynQI/FZg05QSRGFg9wqdgbkEptZ7um7gvNo6pcdUn4Dn0qru8Z0U
Nr3wiinlE5iTKJphOD/frLpRspTANbePfhY7uF5PS1xsQSDpfuLGrkAKm7Pd
gs5ICCyk67VFLIUJEzW2z30IXAmobnnAUCh2X6C9zJ/A/JuqyCTO/Z+fkgKG
wJa7c4bHaAo1pSFj+Tu5vgdVNyiuXyU7lBdBINOGnbfHn0Jh3KR770ECy9/Z
KkWc+5WUyOgQgfR6cUmXH4UHUk2u58YSiLa0BwfO8pGLWrnJBGrMPiTO96VQ
6iJU9qQSeC++wdz0odC8ILrSMI2Ao/MdqyjOVz03uefICEhiM/tV3hQmVlYa
9WQQeNPg2yTnLObpjS45RWBJuc+pHzgLmf2ttJyAvZNsP49z/8VHsuxsAi2J
up71Egr/A/Y1Oak=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVjn0w1AkcxlF7Rl4mbElspei8DDnJ9rLn+z1HN2Us1stvd+2yK71M2VAs
0aJy2FFnERJ5WS/rt4PihJSLSFN3KBXjrVcv5fKud+X2/njmmc/M88x8zILD
WAc11NTUPFT5v+WTNyK7UvSdkysOfFtOEGKyhcH1Ouqs85Hdz1oOqdiAEV2e
TlWDbHFpUle8ENn3SFo8dTXYtepY5EuE+FWnnRNF3QS0JFatU5wQu672fAyn
2kM4/ejH42IhOqn3dR6nIqz27aSPhgpx0opTI6J6QUY77dRLjhBF4iceF9oE
IN2uJv1uL8Qg3fReytgR6PvMku3SFmK1xv5XPWHh8Lr47nTmuABbuVZzVe2R
sPXlKgrjtgBlugaa+V0xcPrQsYg3lwUYVdDvYGwngeCUwm3vTwpwxrZkFbUl
EapyUio3MwWosSdgectfZ0HxodNxl40ANzWsWI6bTIKtZ0Jj2ikCLHhmf3Z4
Lhk6tCPyWJ1BGFB0TUCZSQVmvUmp1bkgNO/esF9slAYxh7e16OwJQnelfuPM
+gvAcn7QKv4UiJLFebvafelA6HRQtGsD8dQxwzO0Rhn8wQjefPVYIAb/GVY1
3pABypgH2UqbQPRy+HXE559MCEuh5y2M83FKc8DTrScLijwfx8Yp+JhOHb83
OHERPKtDE0UH+OgjKhD5fs0GhpRx19eMj52ma/xYSzmQ8yLjqccoD51XUFwW
DS6BdRs/slfOw4PYGL7eKA9cftlY432Ih9X3DbrM114GV4fhllwbHn6Vjtk9
ts6HpfN+U6nvAvBTcWwvxbYA/Ot/ZLrXBeCX6eS4Ydcr8P78UG/vyQCkSRms
XKIQHMU3jC3oATh7qv5oH1EEgn/Tajcuc3H0oXfHsFMxHM9cfP7tDhctZdaR
sqZiWBzlsMPSuCh537+7gV4Cl7rrJWf8uOj7AVfWtJUAb6f7cpYJF89tTps+
7CIH5VSEE3Wcg46TsqGFLjkwHzkmVFVx8OeR6Le/eJUCVdScXBjNQUK8XU/j
YSnIrWK1aK4cXFAqd1zklkFTlt5Etw4HJ1atiH8zVAZ3WMqnDQNs5P9gdF/v
SDkU2JTkv5GzcVSxbK2YKwd/M7q3UsTG9sj71eonKmD2XepwPION5iPM7Xbf
KuBsakh2oyYbR8KvD5gmKGDAaufKuT4CK5SzOZLvCvh75JNpjoLA+YQJ/2up
lXCwQ39fUySBOYm36eVaJHzOGmttdiMwaGCL1pg2CV5L0x/euhJo6ZA6aK5H
QneUmpOxiptfe0nKDEiYG9jVE+1C4PO9r+6UmpAwtu6LaAeo9roUptyWBD9D
Jq9uJ4E38/aHFHmTwNvr8LnOhsCk+Zodz31IaP0pxPO1NYFMd0PNjf4kUCxl
NYYqfrE0RBZySeiIepISaUngSoFo5soBEnz4GhVOFqr9VllsQRQJdhUZslsb
CDRKWHQfjibh3qtt4ima6t/PppnGkkC1bwvZoOITUrPW/HgSJp1v8hJNCMx9
V0fJTyHh0Xe1Jtd1BArcjPoHpSQ8yLAZizIi0LowrnL9eRLSm91MFGsJvOXp
6n5ZRkL86t/kWmsI/L2y0nQwkwSXINuF3VSVj7rutHE2CfPJ6h6hhiofbsRt
Ti4Jgevar14xUPnUPZXl5ZFwuizCpEefwP8A0IgzYQ==
     "]]}, 
   {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV0XtUzHkYBvAuKmI6K7NmTSWtkM7WQS7nkN63iKPWlCb1+9axigbLDkM3
urPJdFyatV3UjMp0/c5S6WpXNkTKSsPGMF3kUtnWNqmwaar97R/vec7nnOev
57XbdchPZGRgYLCVvf9TOfBrROup2W5bOOempqYIpiyyrKnkDrnN64ru7mVt
6RpdlMY1gNDlmTf+YM3cozYJ3C+gJ0wSl8V6fFYjieQuAO++HL0z69bytk8S
7jIIaL5n+t0kwdWGT5sOchE0NXEe9XqCA0tJmZjrCwkFywKPjREUR7VvPXsr
BMasDmu/Hya4k5P22KR3HyT/sFv+5G+CV4y8XrUdkkDeziilqJfgzaCl7y83
RkBd9pkL4m6CMo6lmbz1KITs6p/UaQhGKjQr5jnHgxs+Gx1QE9Q5XTLn3kgC
Y7cwkfl9gkbrgqcW/n4Ckny6IwsaCS6oNZ6KHUgGW7fL2pp6goruZSc636dA
RWh7hHstweC8ihATnRRUPnurh8oJ2j+c7xXFOw22k+dN+ZSgt2p2nY5/FmLL
NjVdVxKMHx12vrolDT4qdSufyQkeOzDnuE2dDNLDXOO+yiC4q+rQ5b7an8Df
KnSP+hxB3xUbuoQPzkN6KL/BWErwH7PnPp5tP8M1ZtKv7DjBNG7fPW1/OjSI
Fg+1xxAUihVi//EM8FDM59hGEGyy/nK7nz4TxoVXFS/EBN2MTTxGLS/ADfO5
I9Z7CYqwTsLnZUOhKHa7OoTds8Wy1X5uDjiYRe4vDmL/l9rr/KejHN4pLkyM
CQn+mx/z2MRJAbce+Xfe3krw82BKbOfGizDi0tc2YzNBm1RXv6zAXJB+E1cS
jgSHjlXvfxqYB8LaODO/tQTfqLfd6VydD+E7JleWuxB0kDlGyK7lg8KTeyrJ
id3ng2Zt7ZpLIPWM+RC+hKD/R5xWdusSVPMN3/QtIPjj16cH93oowZSjXdfK
J7hyQNYx0qqEtKjcYhcuwfVd0X+5+xbAI6dOHseCYGCUi4WRugCSNjQLp08n
OKJSrUoPKgTuywPCZEOC/ebGCW87CkG+3i7/yDiDO0x5LRb7isCsXeP+apTB
NyVTjiXvi+BisL4rfJDBxoiWK4ZHikF702pm9FsG7bsELs4TxZBgEAD6lwx2
SWqeWyeWwHGb7YXDHQwWq4Yy4ydLwLhCsMH8KYPDif0BFdJSUEmuZBS2MZiZ
1LCmaAaFynq/sPIWBnc+XzijdyaFq1XJ6nTWDiukWnsLCuGlOtcY1r+99o0v
tKQQLJXM9WT9YtOr2wVWFO5w5j/QNrN9jolA6UQh69wSD1PW17O9wvK2UXDa
o2N2NDGYPFy26oWQwtFKeODBWuA9x8w2gEJBbzM4sO7Rd9DcIApVEyeXjNxl
cFqIWHdxN4WWHtWYlLVgsSxGEUlB/Ti3tPoOg7zEUe/OaAq4Jt42h3WPhrGx
jqFgF52emcj6SKrdTXkCBZIiPunFOutdpYn8FIXihy2inkYGQzx5Gm0qhfzP
B7vvsnbMjS3ln6Eg1H8b+Avrep+N3jkyCpyEqi1RrE+Wllprz1Og+nWNwawF
hpzBeRkUFgkmXN1Z84ION5AsCvcPf6pdzLqn8oksO5vC6z2Oy2ex/g/hSUne

     "]]}, 
   {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVjnk41AkcxoVxZcQ0NZsQ27QNG3mQtk19v6F2pTSO/Y0Zxxyth91YKiF2
jLXGmTUpU6Jy5PhNOXexqxXRJi0pHdYxlHU/u46o9cRmZ/94n/f5PM/7Ps/H
QhTuFaSupqZ2VJX/u2j6l8iuFKP9XlVtK6sSESZvo9XV0uf2C0kjQ2cV05yi
S7LoaiBwS9iRFC9C33bSNJ5uCKfSmhJ0xCJc1m/jnqGbw+VwhdwoVoRdVd3/
RNBtYSPjVfS2SBE6rnlx/xs6wsPgAH2fEBFOW3Irw+hskGxPFnWyRRgW9exo
5l0BbGC6bHcxEyGfmtVDGQuB91okVTErxAr1wyPd4RHwreP9r5JbhdjCs5y/
1RYJ24pL/C2zhSij0rTzumLAfpbikBMkxDP5vXabbMQwfEd3ZmiXEGetC/Xo
TQlQ/6w5tEBbiOp7/Va33kmEN/KbXE2lAM3rNVbjppMgozWRLqwSYP6QbeLg
fDJk2r09eUQqQL/r1QLKbCrUTZxbTPEXIPOR2eEoRgZkeWdkPbcVoLvCqGHW
OBMuaw30/KAjQPHia5satyxYVhqaDjXy8eyJ9d+ZNsjgnp6Fo0swH0U/ht8a
rz8Ph1h8jb3GfGTbuSi9O7NhUv4ZtaY9EP/W7jt2sPsCVLROfCuPC8Qs+nh7
/8RFGHtZ4WFhFYjeYflhPss5YHYsa4o1EID3TTZ84bUiB+8dh5L42QG4X4Pi
vEi7DHN90Q9CXAMwCBsijBm5UNtuPyFZ8ceKDloXc+MVSGyoiXpS74/LaWM2
T63yIEXZBOah/rhUENtDsc6HI/HnXZ23++O7meS4QdersDgkL05S+qFpmpPX
Jc41GH2f6kSR++Hc2Z++fsG5DskLOhlbfPxw9LHnvUHHAkjSIV8mUv2QJbOK
lP1cAJq0GE9RJw/Fb3o/rd9dCFcW2LddM3no8xY1K+8WAlNqESp34+H3H2bM
BDsXgYmlw5Oda3noMC0bWOgqAr3SGn3fB1zcp4yeOsAuBq+WIYtb6VzkRNkb
qD8uhmAd6bpxDy4uKBS7LvJuQGeg9LceAy5O6GnETw7cgEbFHu3Gp74YoMXo
MAgpgUbm2tsnL/riaNmqVdl8CZSym3JoHF9si+yoWHOqFKYaKi6IzXyRqfSw
t/m3FDL+sAsaeMVBZURdn4mkDHQ3QsQ0ycFSxZxc/L4Moqeq71Wf5uBryQRR
nVoO6R9LDqbv4aA8oXl3iS4J44yQwUkNDvL7tuqOrSWh+oOl1nfqHGTZpfYz
DUjQqJLW6au48U+2+AaNBOak/I6tGgeHD420Fm8mobIoXnB2hUAWleJRZE2C
m37niP4bAm/nHv7yuicJlrFlg07jBCa9rtw17E3CcHPeAfYYgR7u67W3ECQY
roupPT5K4MuVAfIaj4QF4/GG9BECNQVhs1ePk/A5U+rZN6TafySLzT9DgvXS
J80xvQQyJIvug9EkREUEjJx7ofr3+pqaxJKg5cQ3KnxO4Kk0i5a8eBJqzZey
O54SeOmvWkpeCgm9YaHMzY8JFBxk9PankWDXFVK6s5tAq2tx5cbnSChg7XNw
fUTgr8dc3a/ISHjIOnE6rJNAaXm5SX+2yiemjZn4u8pnDXVmUw4JjpvmX8kf
qnx4J5u5l0hQFy4obnaofGqfy3JzSYCSDknLAwL/Azd6Nrw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox["\"\:50b5\:5238\:4fa1\:683c(\:5186)\"", TraditionalForm]},
  AxesOrigin->{0, 88.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{391.77343749999943`, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {91.13674921695655, 147.9999984571428}}, {{0, 0.05}, {
     91.13674921695655, 147.9999984571428}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650797464436159*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[20]=",ExpressionUUID->"c0430948-707e-4059-8856-01b23cba8146"]
}, Open  ]],

Cell["\<\

5.4 What is a \[OpenCurlyDoubleQuote]duration\[CloseCurlyDoubleQuote]?\
\>", "Subsubtitle",
 CellChangeTimes->{{3.6507734648698797`*^9, 3.650773474557932*^9}, {
  3.6507735317823133`*^9, 3.650773547478489*^9}, {3.650795994529619*^9, 
  3.650796031855412*^9}, {3.650797666748204*^9, 3.650797687560698*^9}},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"eaab67ac-e65d-4ccf-90cc-cc21834e9e9f"],

Cell[TextData[{
 "\:66f2\:7dda\:306e\:50be\:304d\:306f\:3001\:95a2\:6570\:3092\:5fae\:5206\
\:3059\:308c\:3070\:4e0e\:3048\:3089\:308c\:308b\:3002",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:3067\:306e\:5fae\:5206\:306f D[ \:95a2\:6570,(\:504f)\:5fae\:5206\:3059\
\:308b\:5909\:6570 ]\:3067\:3042\:308b\:3002\:5148\:307b\:3069\:5b9a\:7fa9\
\:3057\:305f\:30af\:30fc\:30dd\:30f3\:ff14\:ff05\:306e\:5229\:4ed8\:50b5\:4fa1\
\:683c\:3092\:8868\:3059\:95a2\:6570 finc \
\:3092\:3001\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a r \:3067\:5fae\:5206\
\:3057\:305f\:95a2\:6570\:3092\:3001slope \
\:3068\:3057\:3066\:5b9a\:7fa9\:3057\:3088\:3046\:3002"
}], "Text",
 CellChangeTimes->{{3.650797362739552*^9, 3.650797439069439*^9}, 
   3.6507976385283613`*^9, {3.650797807518262*^9, 3.650797847709527*^9}, {
   3.650849057402925*^9, 3.650849140989043*^9}, {3.650931355524515*^9, 
   3.6509313790147448`*^9}},ExpressionUUID->"95d0b6e9-15fd-4fb0-af28-\
70fee9841909"],

Cell[BoxData[
 RowBox[{
  RowBox[{"slope", "[", 
   RowBox[{"r_", ",", "tM_"}], "]"}], ":=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"finc", "[", 
     RowBox[{"r", ",", "tM"}], "]"}], ",", "r"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6507978536830473`*^9, 3.650797877870175*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[32]:=",ExpressionUUID->"53ecf488-f339-4898-a52f-ac3131230e97"],

Cell[TextData[{
 "\n\:3053\:306e\:50be\:304d\:306e\:7d76\:5bfe\:5024\:306e\:3053\:3068\:3092\
\:3001",
 StyleBox["\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3068\:547c\:3076\:3002\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:304c\
\:5909\:5316\:3057\:305f\:6642\:306b\:3001\:50b5\:5238\:4fa1\:683c\:304c\:3069\
\:308c\:3060\:3051\:5909\:5316\:3059\:308b\:304b\:3092\:793a\:3059\:3082\:306e\
\:3067\:3042\:308b\:3002\:5229\:56de\:308a\:304c\:5897\:3048\:308b\:3068\:4fa1\
\:683c\:306f\:4e0b\:304c\:308b\:304b\:3089\:5229\:56de\:308a\:66f2\:7dda\:306e\
\:50be\:304d\:306f\:30de\:30a4\:30ca\:30b9(\:53f3\:4e0b\:304c\:308a)\:306a\
\:306e\:3067\:3001\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:7d76\:5bfe\
\:5024\:3092\:3068\:3063\:3066\:30d7\:30e9\:30b9\:3068\:3057\:3066\:5b9a\:7fa9\
\:3055\:308c\:308b\:3002\:ff13\:5e74\:6e80\:671f\:306e\:5229\:4ed8\:50b5\:306b\
\:3064\:3044\:3066\:3001\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\
\:30f3\:306e\:30b0\:30e9\:30d5\:3092\:63cf\:304f\:3068\:6b21\:306e\:901a\:308a\
\:3002\n"
}], "Text",
 CellChangeTimes->{{3.650797362739552*^9, 3.650797439069439*^9}, 
   3.6507976385283613`*^9, {3.650797807518262*^9, 3.650797847709527*^9}, {
   3.650849057402925*^9, 3.650849179687496*^9}, {3.650849262061434*^9, 
   3.650849343403915*^9}, {3.650849382368558*^9, 3.6508494163923597`*^9}, {
   3.650850502906724*^9, 
   3.650850589038506*^9}},ExpressionUUID->"8e86e986-78ad-4ec1-9971-\
0d0c8a1c0ed0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"slope", "[", 
   RowBox[{"r", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.650797899900381*^9, 3.650797903719358*^9}, 
   3.650850593406006*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[33]:=",ExpressionUUID->"3e24af72-4612-4490-9e71-a993a7854567"],

Cell[BoxData[
 RowBox[{
  FractionBox["312", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "4"]], "+", 
  FractionBox["8", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]], "+", 
  FractionBox["4", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.6507979053312607`*^9, 3.650849631824139*^9, 
  3.65085064017015*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[33]=",ExpressionUUID->"a11fcc33-0ac5-4298-9b42-fa925a13cd99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.650798042021228*^9, 3.650798050143214*^9}, {
   3.6508496917123823`*^9, 3.650849692297802*^9}, 3.6508506463858232`*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[34]:=",ExpressionUUID->"b7b7cf77-e715-461b-9062-695d5aeff636"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   RowBox[{"(", 
    RowBox[{"81", "+", 
     RowBox[{"4", " ", "r"}], "+", 
     SuperscriptBox["r", "2"]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}], "4"]]], "Output",
 CellChangeTimes->{3.650798050827669*^9, 3.6508496348447437`*^9, 
  3.6508496931542892`*^9, 3.650850647038763*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[34]=",ExpressionUUID->"a9c5c759-5a90-43c4-bb69-4618fb0de1dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"%34", ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", 
     RowBox[{"5", "/", "100"}]}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
      "\"\<\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\>\""}]\
, "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.650797934483644*^9, 3.6507979600647087`*^9}, 
   3.6507980727361383`*^9, {3.650849646956531*^9, 3.650849712987653*^9}, {
   3.6508499560933228`*^9, 3.650849956524925*^9}, {3.650850654314739*^9, 
   3.6508506547190866`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[35]:=",ExpressionUUID->"ec2ba183-c6f8-4376-a9b6-8a982835bc9c"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVzns0lAkYx3GmRkvYNWZNiU1RGx1WChGeZ6XLsjEhRSql4ugM7/vOSMh1
SxxZo2TcIuP6OiXkUnQhxamTtISItImxTouZbirGvvvHc57zOef3x3fVkTDP
YywVFZVdzP3/pZO3RJ3ndJwUgUXKBRBh0hpOfS13xil7s1vOdcYch4jSdK4K
WMQkWR9ivK+DNozl/gDhljXUXScRftNs8w3nGsGIbd/CaUcRdl7v+kxwLSEy
zefYV3sR2qj2tYdyEd6envL/ZC3CSVPfKgGXD+vTBHOK9SIUnHy+K601AOr8
i4566onwkFZ6N3ssGLy5IapbWCK8xnJ90xVGQHXcPLtoSogtfqbyq20i2K+j
z4ocEKJYi7Mkr/MUfP8Tf7TnoRDD8/utllvEgNTq+O+l1UKcNi/S4N6Jh5Wa
N30+5gmRtWX/gvHdRJCQUdOtyUI0ali0ED15BqZMD2ZoiISY/8oycUieBI8N
vRKeBAhxf2F1AHs6GY4E2mWouQvR5OlPrid5qSCMk8lb7YToVqnTOK2fBlVv
I4pn1gox5oPCoua3dGi/qZwr4Qgx8oRugmGjGIjQYGm3ksIjN8KujjdkwHj2
jkzBOwr5VluHvZ5cgNnU+ZCLLyj8d8mAx7aui5Awxj1l3E5hOne8Y1CWCfKm
5hLnWgq9BPkC72+X4AFLZ9OLAgrbDX7c4zmXBamjagbd5yl0WsR2/sDJhpYs
uWNAJIXHsJHQ5+XA2Z5VDR5BFF57xOk00cuFsO7Hqdf3UPgtZcyixywPvHVr
4iucKZy9EtXNNs8Hpe4BnLek8OtUUvSQy2VQvZO5ZtqQQsMUB0/J3gKgUjPi
PJdSOBNZF9K3txBe/Tyio/mVxLfPdj8YsrkCXsaBpUEyEteJzUTim1fgakfW
Jb0+EmM+9ts32BZB4PZe5w0PSfT+hIurWosgUvNMrqKWxD9Wp04FOUtBVrhZ
gyUlcdOk+OX7Tikc3rLtS3M6iY7DEf/8yi+GN5MeNq2xJO49uVGb9awYgmcd
a34JJfF9ZaV1pl8J8I222u7yJ1GmsSh24mUJ/H2RI6t2I/GAGu+RdnApZNtX
HuywY3rLF8zK5aWgVJxftnMdiW2iR9dUqTKok+/7S30ZiSbD7hst5stgQp/b
m6hG4jBRP2AQVw5/rrbZYP+JwLLKmawYZTnIKy0TfcYJVMTJfKqTK2CCXUZZ
9BKYFX/PtlSdBmWs+wt4SOChAWP1saU0PDWSjsw+IHCdVfKgiTYNflVhEzWM
m0b5MSUcGnqPn1IaMx7Z/uZ+8QoaJC7g8F0bs9diu0vNadAOzVU+ayGwOcf1
aOFuGqoPuBQE3ibwjKLKesSLBgfTtucGjN3ddJes9KHheG2TZl8zga/nXtIF
fjR09+sm7GS8OEAwfTmQBipIEG3exOzXiqPyw2nY7F/f8LmRQF7cB7ehCBpc
JM2Laxi/7t9naBBFw84vdt4hjKmUVS15sTSkaxZ+HmogUPKulp13joYnwer8
+/UEBmzj9Q+m0LDpeRcdzdisILpC/zwNviu02daMb3u4uOWKmV6e4l55HYFn
KyoMBi8w+1uSlYcZu6tqTS2/RMNunfp4fcY8P/Ker4QGcz3X0Z4bTE9trzgn
h4YTd312pDH+D7MQQ/s=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox[
    "\"\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\"", 
     TraditionalForm]},
  AxesOrigin->{0, 266.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {267.2219918621474, 323.9999986938775}}, {{0, 0.05}, {
     267.2219918621474, 323.9999986938775}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6508497142542953`*^9, 3.650849896942676*^9, 
  3.6508499571149178`*^9, 3.650850656399798*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[35]=",ExpressionUUID->"c472726c-8c3a-4b1d-a14e-7bd9acdff8f6"]
}, Open  ]],

Cell["\:ff11\:ff10\:5e74\:6e80\:671f\:306e\:5229\:4ed8\:50b5\:306e\:30c9\:30eb\
\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3092\:63cf\:304f\:3068\:6b21\
\:306e\:901a\:308a\:3002", "Text",
 CellChangeTimes->{{3.650849430329723*^9, 
  3.650849458623323*^9}},ExpressionUUID->"d136acb9-bc22-44d2-8dd4-\
2ca555717183"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"slope", "[", 
    RowBox[{"r", ",", "10"}], "]"}]}], " ", "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.6507981302352867`*^9, 3.650798142059258*^9}, 
   3.6508506714534607`*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[37]:=",ExpressionUUID->"27e79b1f-fc9f-4d71-ad93-8ca5853d3d73"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   RowBox[{"(", 
    RowBox[{"305", "+", 
     RowBox[{"165", " ", "r"}], "+", 
     RowBox[{"330", " ", 
      SuperscriptBox["r", "2"]}], "+", 
     RowBox[{"462", " ", 
      SuperscriptBox["r", "3"]}], "+", 
     RowBox[{"462", " ", 
      SuperscriptBox["r", "4"]}], "+", 
     RowBox[{"330", " ", 
      SuperscriptBox["r", "5"]}], "+", 
     RowBox[{"165", " ", 
      SuperscriptBox["r", "6"]}], "+", 
     RowBox[{"55", " ", 
      SuperscriptBox["r", "7"]}], "+", 
     RowBox[{"11", " ", 
      SuperscriptBox["r", "8"]}], "+", 
     SuperscriptBox["r", "9"]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}], "11"]]], "Output",
 CellChangeTimes->{
  3.650798142916213*^9, 3.650849725292287*^9, {3.6508506678044653`*^9, 
   3.6508506723071957`*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[37]=",ExpressionUUID->"af528484-8bbc-49a0-93b9-67209a404c21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"%37", ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", 
     RowBox[{"5", "/", "100"}]}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
      "\"\<\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\>\""}]\
, "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6507981488579607`*^9, 3.650798159009898*^9}, {
   3.650849733020329*^9, 3.650849742657218*^9}, 3.650849860284368*^9, {
   3.6508499495262136`*^9, 3.650849950316803*^9}, 3.650850677707922*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[38]:=",ExpressionUUID->"1c482f07-1f34-4148-998f-4a50be0c18cf"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVi3s0lAkYh40xtV0QRtPIbMrURsccIbNdeF9k7bIuSYhTdLGri0ZFtsug
23wzZsZ8M3LLnSY+iyyibUuFU9uJdGKzNOLIJJRLlFqstX/8znOec57f6v0C
/whdHR0d7/n9z8Kh32NaCCPn5fy0mTnDFBStNb5ZxRxzTuFVFPLn3XhbnFrB
1IG27KkdAoMUDH5EceKZy6Bdj9P8amkKTi9t3B3LtIC7LDWvflEKttxonYpm
2oKzrltZPD0FHWkvHh5jIiQyhKIFUyocstpdEcX0A2EGP2fjKxVGnWr3lj8I
h5U1nLYXJSoM01c8Z2gjIVN51zsnToXlup59rYJo+FV+tHHAQ4X3Q6zGyxpj
wFf4tKiBqUJS33hhVssvkNfJv5iuVWJsdocdmycE8ht2OrNaiaM2BYuZdxMh
2XrgxIoLStTdGjpnWX8BQsv21o4GKNGilj53dugS3CGXPkniKjH7le0FzbgI
ohOcjminSAzNqwxnjIpB83CrSV4zidynX3ueYknBxWsyyTGXRK9So7pRMzlk
dSX5Hz5JonDyA++3HxRg3t0UonQn8fQRk/OcOhKm2kRfmbFJ3F8tKHtTq4SY
Y6FN3/Yq0M/OrXtnswoSmNi8S6zA9ws7fd1bU+DQJSORK1+BCuabR10DVyD2
kXJM0JuMO6OyowKmU6GH/pq2WZaMD81Nd/nPpMFPdMt40jkZnekM10njDNDw
dJODhuUYgXXRZqxMyIo5Fy3NlWP5Y+MW7vKr4NHMvsMKkOO0RMtrs86Cg+eW
N4GeHD/nn3nOsMmGKQfXLxm3ZfjPiOisZnsOeLo0BVYdkSFHss0/PSgXFDdM
y9avkuHY6ZrDL4LyYCZ6w8XUv6XY/2xHk8YxHyKIWc07mRTXk9Yx5K18sFpt
JDb3kKLwY8eWWn4B1KWF1B+lSzHgE+pVPCiAQcpub+vtJLy4Rjrys2shzGyh
StvjktBhiHw50VIIhwKWfK9vm4RO3XGDLn5F4L6i1rD5vQSDTtkb6D4rgprF
ThPycglOlJZuuhJyDYSx1X+WREpwYDE9/u3La/AjrceCZSXBPQtYjw0i1aC9
kXlytl+M/cVz1sXjaqip36AZKhRjY8zjctqJ6+DYmD/yJUKM3G4fe97sdRi+
7MFWc8XYHX2z0zyhGBoKNngEvyXweulYmvDfYrDpGbbvKSfwQ8JAYKW4BPrC
bN24AgLTEu/x1YsoGJRob7ltIjCs03KRdgkFy+b233J1IHC9nbiLa0CB7/kD
TS72BN5+7Se8ZkxBns4wDTcS2PNdX0PRSgqeONJMnGzme32GT6ENBXU6N2Wb
1xL4R6bnwbwdFBgakp1bTQm89KFiU89OChwOcSO3MQn08TJZuCqQgurEdXQn
EwJ7Z15SuSEUrMHje52NCNQLjxrNOUBBg8Cg1EV/vl9HnsmOpWDf2rYrngwC
WQmTXpo4CvhPJga99Ob/HcEc8zMU+KTGeXnTCTwhWX0/K54Ci3G1vR+NwPR3
VYwsggK2hzQjcFaE4e6sji4JBR/lVX7BMyK0zj1bYiajwLKSbxoyLcI7vtu9
rpIUVPYFN+75IsLLJSXmXSoK9hRMlIV9FqEPTX+EnUpBe/pg4b4pEbJCjt/b
nU6BG2eL+sAnEfZW/UVmZlKwQNJfHfFRhP8BRYE7NQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox[
    "\"\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\"", 
     TraditionalForm]},
  AxesOrigin->{0, 720.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {734.6746595243756, 1219.9999869795915`}}, {{
     0, 0.05}, {734.6746595243756, 1219.9999869795915`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6507981602782288`*^9, 3.6508497444119997`*^9, 
  3.650849861119873*^9, 3.6508499512197523`*^9, 3.650850679871784*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[38]=",ExpressionUUID->"aeb222e5-bd0b-4d16-bf73-e3f258456711"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"%34", ",", "%37"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", 
     RowBox[{"5", "/", "100"}]}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
      "\"\<\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\>\""}]\
, "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.650849913053216*^9, 3.6508499410597277`*^9}, {
  3.650850690419322*^9, 3.650850692558897*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[39]:=",ExpressionUUID->"b2dd5384-9ec8-4bfb-8e93-06d032238667"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVzns0lAkYx3GmRkvYNWZNiU1RGx1WChGeZ6XLsjEhRSql4ugM7/vOSMh1
SxxZo2TcIuP6OiXkUnQhxamTtISItImxTouZbirGvvvHc57zOef3x3fVkTDP
YywVFZVdzP3/pZO3RJ3ndJwUgUXKBRBh0hpOfS13xil7s1vOdcYch4jSdK4K
WMQkWR9ivK+DNozl/gDhljXUXScRftNs8w3nGsGIbd/CaUcRdl7v+kxwLSEy
zefYV3sR2qj2tYdyEd6envL/ZC3CSVPfKgGXD+vTBHOK9SIUnHy+K601AOr8
i4566onwkFZ6N3ssGLy5IapbWCK8xnJ90xVGQHXcPLtoSogtfqbyq20i2K+j
z4ocEKJYi7Mkr/MUfP8Tf7TnoRDD8/utllvEgNTq+O+l1UKcNi/S4N6Jh5Wa
N30+5gmRtWX/gvHdRJCQUdOtyUI0ali0ED15BqZMD2ZoiISY/8oycUieBI8N
vRKeBAhxf2F1AHs6GY4E2mWouQvR5OlPrid5qSCMk8lb7YToVqnTOK2fBlVv
I4pn1gox5oPCoua3dGi/qZwr4Qgx8oRugmGjGIjQYGm3ksIjN8KujjdkwHj2
jkzBOwr5VluHvZ5cgNnU+ZCLLyj8d8mAx7aui5Awxj1l3E5hOne8Y1CWCfKm
5hLnWgq9BPkC72+X4AFLZ9OLAgrbDX7c4zmXBamjagbd5yl0WsR2/sDJhpYs
uWNAJIXHsJHQ5+XA2Z5VDR5BFF57xOk00cuFsO7Hqdf3UPgtZcyixywPvHVr
4iucKZy9EtXNNs8Hpe4BnLek8OtUUvSQy2VQvZO5ZtqQQsMUB0/J3gKgUjPi
PJdSOBNZF9K3txBe/Tyio/mVxLfPdj8YsrkCXsaBpUEyEteJzUTim1fgakfW
Jb0+EmM+9ts32BZB4PZe5w0PSfT+hIurWosgUvNMrqKWxD9Wp04FOUtBVrhZ
gyUlcdOk+OX7Tikc3rLtS3M6iY7DEf/8yi+GN5MeNq2xJO49uVGb9awYgmcd
a34JJfF9ZaV1pl8J8I222u7yJ1GmsSh24mUJ/H2RI6t2I/GAGu+RdnApZNtX
HuywY3rLF8zK5aWgVJxftnMdiW2iR9dUqTKok+/7S30ZiSbD7hst5stgQp/b
m6hG4jBRP2AQVw5/rrbZYP+JwLLKmawYZTnIKy0TfcYJVMTJfKqTK2CCXUZZ
9BKYFX/PtlSdBmWs+wt4SOChAWP1saU0PDWSjsw+IHCdVfKgiTYNflVhEzWM
m0b5MSUcGnqPn1IaMx7Z/uZ+8QoaJC7g8F0bs9diu0vNadAOzVU+ayGwOcf1
aOFuGqoPuBQE3ibwjKLKesSLBgfTtucGjN3ddJes9KHheG2TZl8zga/nXtIF
fjR09+sm7GS8OEAwfTmQBipIEG3exOzXiqPyw2nY7F/f8LmRQF7cB7ehCBpc
JM2Laxi/7t9naBBFw84vdt4hjKmUVS15sTSkaxZ+HmogUPKulp13joYnwer8
+/UEBmzj9Q+m0LDpeRcdzdisILpC/zwNviu02daMb3u4uOWKmV6e4l55HYFn
KyoMBi8w+1uSlYcZu6tqTS2/RMNunfp4fcY8P/Ker4QGcz3X0Z4bTE9trzgn
h4YTd312pDH+D7MQQ/s=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVi3s0lAkYh40xtV0QRtPIbMrURsccIbNdeF9k7bIuSYhTdLGri0ZFtsug
23wzZsZ8M3LLnSY+iyyibUuFU9uJdGKzNOLIJJRLlFqstX/8znOec57f6v0C
/whdHR0d7/n9z8Kh32NaCCPn5fy0mTnDFBStNb5ZxRxzTuFVFPLn3XhbnFrB
1IG27KkdAoMUDH5EceKZy6Bdj9P8amkKTi9t3B3LtIC7LDWvflEKttxonYpm
2oKzrltZPD0FHWkvHh5jIiQyhKIFUyocstpdEcX0A2EGP2fjKxVGnWr3lj8I
h5U1nLYXJSoM01c8Z2gjIVN51zsnToXlup59rYJo+FV+tHHAQ4X3Q6zGyxpj
wFf4tKiBqUJS33hhVssvkNfJv5iuVWJsdocdmycE8ht2OrNaiaM2BYuZdxMh
2XrgxIoLStTdGjpnWX8BQsv21o4GKNGilj53dugS3CGXPkniKjH7le0FzbgI
ohOcjminSAzNqwxnjIpB83CrSV4zidynX3ueYknBxWsyyTGXRK9So7pRMzlk
dSX5Hz5JonDyA++3HxRg3t0UonQn8fQRk/OcOhKm2kRfmbFJ3F8tKHtTq4SY
Y6FN3/Yq0M/OrXtnswoSmNi8S6zA9ws7fd1bU+DQJSORK1+BCuabR10DVyD2
kXJM0JuMO6OyowKmU6GH/pq2WZaMD81Nd/nPpMFPdMt40jkZnekM10njDNDw
dJODhuUYgXXRZqxMyIo5Fy3NlWP5Y+MW7vKr4NHMvsMKkOO0RMtrs86Cg+eW
N4GeHD/nn3nOsMmGKQfXLxm3ZfjPiOisZnsOeLo0BVYdkSFHss0/PSgXFDdM
y9avkuHY6ZrDL4LyYCZ6w8XUv6XY/2xHk8YxHyKIWc07mRTXk9Yx5K18sFpt
JDb3kKLwY8eWWn4B1KWF1B+lSzHgE+pVPCiAQcpub+vtJLy4Rjrys2shzGyh
StvjktBhiHw50VIIhwKWfK9vm4RO3XGDLn5F4L6i1rD5vQSDTtkb6D4rgprF
ThPycglOlJZuuhJyDYSx1X+WREpwYDE9/u3La/AjrceCZSXBPQtYjw0i1aC9
kXlytl+M/cVz1sXjaqip36AZKhRjY8zjctqJ6+DYmD/yJUKM3G4fe97sdRi+
7MFWc8XYHX2z0zyhGBoKNngEvyXweulYmvDfYrDpGbbvKSfwQ8JAYKW4BPrC
bN24AgLTEu/x1YsoGJRob7ltIjCs03KRdgkFy+b233J1IHC9nbiLa0CB7/kD
TS72BN5+7Se8ZkxBns4wDTcS2PNdX0PRSgqeONJMnGzme32GT6ENBXU6N2Wb
1xL4R6bnwbwdFBgakp1bTQm89KFiU89OChwOcSO3MQn08TJZuCqQgurEdXQn
EwJ7Z15SuSEUrMHje52NCNQLjxrNOUBBg8Cg1EV/vl9HnsmOpWDf2rYrngwC
WQmTXpo4CvhPJga99Ob/HcEc8zMU+KTGeXnTCTwhWX0/K54Ci3G1vR+NwPR3
VYwsggK2hzQjcFaE4e6sji4JBR/lVX7BMyK0zj1bYiajwLKSbxoyLcI7vtu9
rpIUVPYFN+75IsLLJSXmXSoK9hRMlIV9FqEPTX+EnUpBe/pg4b4pEbJCjt/b
nU6BG2eL+sAnEfZW/UVmZlKwQNJfHfFRhP8BRYE7NQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox[
    "\"\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\"", 
     TraditionalForm]},
  AxesOrigin->{0, 250.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {267.2219918621474, 1219.9999869795915`}}, {{
     0, 0.05}, {267.2219918621474, 1219.9999869795915`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650849942587641*^9, 3.650850693737969*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[39]=",ExpressionUUID->"bcdb94ea-ea08-4a4e-b08a-6fddb8050d4c"]
}, Open  ]],

Cell["\<\
\:4e0a\:306e\:3088\:3046\:306b\:4e21\:65b9\:306e\:50b5\:5238\:306e\:30c9\:30eb\
\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3092\:91cd\:306d\:3066\:63cf\
\:304f\:3068\:3001\:ff11\:ff10\:5e74\:6e80\:671f\:306e\:50b5\:5238\:306e\:30c9\
\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306e\:307b\:3046\:304c\
\:3001\:50be\:304d\:304c\:6025\:3067\:3042\:308b\:3053\:3068\:304c\:308f\:304b\
\:308b\:3002

\:3000\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:3001\:82f1\:8a9e\:306e\
 duration \:3067\:3042\:308b\:304b\:3089\:3001\:671f\:9593\:306e\:9577\:3055\
\:3068\:3044\:3046\:610f\:5473\:3067\:3042\:308b\:3002\:4fa1\:683c\:5909\:5316\
\:3092\:306a\:305c\:9577\:3055\:3068\:547c\:3076\:306e\:304b\:ff1f
\:3000\:3053\:306e\:8aac\:660e\:305f\:306e\:305f\:3081\:3001\:30af\:30fc\:30dd\
\:30f3\:7387\:3092\:ff14\:ff05\:3068\:3044\:3063\:305f\:6570\:5024\:3067\:306f\
\:306a\:304fc \:3068\:3057\:3066\:50b5\:5238\:4fa1\:683c\:3092\:4e0e\:3048\
\:308b\:5f0f\:3092\:4f7f\:3044\:3001\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\
\:30b7\:30e7\:30f3\:3092\:8a08\:7b97\:3057\:76f4\:3057\:3066\:307f\:3088\:3046\
\:3002\:95a2\:6570 Remove[ ] \:3067\:3053\:308c\:307e\:3067\:4f7f\:3063\:3066\
\:304d\:305ffinc, slope \
\:3092\:6d88\:3057\:53bb\:3063\:3066\:3001\:65b0\:305f\:306b\:5b9a\:7fa9\:3057\
\:76f4\:3059\:3002\
\>", "Text",
 CellChangeTimes->{{3.650849483828302*^9, 3.650849589042499*^9}, {
   3.650849988207453*^9, 3.650850183167673*^9}, {3.650850300198696*^9, 
   3.6508503366456223`*^9}, 3.650850709335155*^9, {3.650931443213379*^9, 
   3.650931467184204*^9}},ExpressionUUID->"95d9fa26-3d64-49c1-9898-\
2f9a57451a00"],

Cell[BoxData[
 RowBox[{"Remove", "[", "finc", "]"}]], "Input",
 CellChangeTimes->{{3.650850194457713*^9, 3.65085020444666*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[40]:=",ExpressionUUID->"c6084871-9602-40f5-9ef0-54499adccfd6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fixinc", "[", 
   RowBox[{"r_", ",", "tM_", ",", "c_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"c", "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "tM"}], "}"}]}], "]"}], "+", 
   RowBox[{"100", "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "^", "tM"}]}]}]}]], "Input",
 CellChangeTimes->{{3.650850206467413*^9, 3.6508502524054737`*^9}, {
  3.650854023514688*^9, 3.6508540302739687`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"d3c932bc-8c71-4978-ab91-6d732b6b829a"],

Cell[BoxData[
 RowBox[{"Remove", "[", "slope", "]"}]], "Input",
 CellChangeTimes->{{3.650850260156439*^9, 3.650850263739091*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[42]:=",ExpressionUUID->"c2f93d93-4b32-496d-b65f-50f92e907b4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dDuration", "[", 
   RowBox[{"r_", ",", "tM_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"-", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"fixinc", "[", 
      RowBox[{"r", ",", "tM", ",", "c"}], "]"}], ",", "r"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.650850266708438*^9, 3.6508502906419697`*^9}, {
  3.650850725798579*^9, 3.650850735432868*^9}, {3.650850773616287*^9, 
  3.650850787398987*^9}, {3.650854043909058*^9, 3.650854044918111*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[2]:=",ExpressionUUID->"c8ceac93-cfd1-4ede-a377-c6272991768a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fixinc", "[", 
  RowBox[{"r", ",", "2", ",", "c"}], "]"}]], "Input",
 CellChangeTimes->{{3.650850347724146*^9, 3.650850353652007*^9}, {
  3.650851824597562*^9, 3.650851833383569*^9}, {3.650854050621571*^9, 
  3.65085405087116*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[3]:=",ExpressionUUID->"9235bbb1-86cf-4c19-b5b8-89abd564718b"],

Cell[BoxData[
 RowBox[{
  FractionBox["100", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]], "+", 
  FractionBox["c", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]], "+", 
  FractionBox["c", 
   RowBox[{"1", "+", "r"}]]}]], "Output",
 CellChangeTimes->{3.6508503545414886`*^9, 3.650850739770433*^9, 
  3.6508518341991577`*^9, 3.6508540518735647`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[3]=",ExpressionUUID->"3de1dbc5-1e6d-4d61-9341-ff7b1e565a39"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dDuration", "[", 
  RowBox[{"r", ",", "2", ",", "c"}], "]"}]], "Input",
 CellChangeTimes->{{3.650850360301538*^9, 3.650850365071864*^9}, {
  3.650850745677424*^9, 3.650850748492743*^9}, {3.650850780519087*^9, 
  3.650850781411351*^9}, {3.650851837560028*^9, 3.650851837660433*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[4]:=",ExpressionUUID->"500d033f-7d6a-4b10-ae17-c8aafd60aa91"],

Cell[BoxData[
 RowBox[{
  FractionBox["200", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]], "+", 
  FractionBox[
   RowBox[{"2", " ", "c"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]], "+", 
  FractionBox["c", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{
  3.650850365661502*^9, 3.65085074963489*^9, {3.650850782153838*^9, 
   3.650850792082263*^9}, 3.650851838274714*^9, 3.650854055067235*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[4]=",ExpressionUUID->"a3e98360-aaad-4c37-b7c1-b7eeaf85e374"]
}, Open  ]],

Cell[TextData[{
 "2\:5e74\:6e80\:671f\:50b5\:306f\:3001\:ff11\:5e74\:5f8c\:306b\:30af\:30fc\
\:30dd\:30f3c\:5186\:3001\:ff12\:5e74\:5f8c\:306b\:30af\:30fc\:30dd\:30f3\
\:3068\:5143\:672c\:306e\:5408\:8a08\:3000(100+c)\:5186\:3092\:53d7\:3051\
\:53d6\:308b\:3002\:53d7\:3051\:53d6\:308b\:307e\:3067\:5e73\:5747\:4f55\:5e74\
\:304b\:304b\:308b\:304b\:3092\:8a08\:7b97\:3057\:306a\:3055\:3044\:3068\:8a00\
\:308f\:308c\:305f\:3089\:3001\:3053\:306e\:91d1\:984d\:306e\:5927\:5c0f\:3092\
\:8003\:616e\:3057\:305f\:52a0\:91cd\:5e73\:5747\:3092\:884c\:3046\:3067\:3042\
\:308d\:3046\:3002\:53d7\:3051\:53d6\:308b\:91d1\:984d\:304c\:4e00\:5e74\:5f8c\
\:3068\:4e8c\:5e74\:5f8c\:3068\:3082\:7b49\:3057\:3044\:306a\:3089\:3001\:5e73\
\:5747\:ff11.\:ff15\:5e74\:3067\:6e08\:3080\:304c\:3001\:ff12\:5e74\:6e80\
\:671f\:50b5\:3067\:306f\:4e8c\:5e74\:5f8c\:306b\:53d7\:3051\:53d6\:308b\:91d1\
\:984d\:304c\:5927\:304d\:3044\:304b\:3089\:3067\:3042\:308b\:3002\n\n\:4e0a\
\:306e\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3067\:306f\
\:3001\:ff11\:ff08\:5e74\:ff09\:306b\:304b\:304b\:3063\:3066\:3044\:308b\:6570\
\:5b57\:306f\:3001c/(1+r)^2, \:ff12\:306b\:304b\:304b\:3063\:3066\:3044\:308b\
\:6570\:5b57\:306f(100+c)/(1+r)^3 \:3067\:3042\:308b\:3002\:5408\:8a08\:304c\
\:ff11\:306b\:306a\:308b\:3088\:3046\:306a\:30a6\:30a8\:30a3\:30c8w1, w2 \
(w1+w2=1) \:3092\:5f97\:308b\:306b\:306f\:3001\:3069\:3046\:3057\:305f\:3089\
\:3044\:3044\:3060\:308d\:3046\:304b\:3002\:5408\:8a08\:3092\:ff11\:3068\:3067\
\:304d\:308c\:3070\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3092\:5e73\:5747\
\:5e74\:6570\:3068\:3057\:3066\:89e3\:91c8\:3067\:304d\:3001\:300c\:671f\:9593\
\:306e\:9577\:3055\:300d\:3068\:89e3\:91c8\:3067\:304d\:308b\:3088\:3046\:306b\
\:306a\:308b\:3002\n\n\:3053\:3053\:3067\:3001c/(1+r) + (100+c)/(1+r)^2 \
\:306f\:50b5\:5238\:4fa1\:683c\:3067\:3042\:308b\:3053\:3068\:3092\:601d\:3044\
\:51fa\:3059\:3068\:3001\:304b\:304b\:3063\:3066\:3044\:308b\:6570\:5b57\:306e\
\:5408\:8a08\:306f\:3001\:50b5\:5238\:4fa1\:683c / (1+r) \:3067\:3042\:308b\
\:3053\:3068\:304c\:308f\:304b\:308b\:3002(1+r) \
\:306e\:90e8\:5206\:304c\:4f59\:8a08\:306a\:306e\:3067\:3001\:3053\:308c\:3092\
\:53d6\:308a\:9664\:3044\:305f\n\n",
 StyleBox["\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\
\:30e7\:30f3",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:ff1d\:ff081+r\:ff09\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\
\:30f3 / \:50b5\:5238\:4fa1\:683c\n\n\:304c\:3001\:53d7\:3051\:53d6\:308b\
\:30af\:30fc\:30dd\:30f3\:30fb\:5143\:672c\:3092\:53d7\:3051\:53d6\:308b\:307e\
\:3067\:306e\:5e73\:5747\:5e74\:6570\:3092\:4e0e\:3048\:308b\:3082\:306e\:3068\
\:306a\:308b\:3002\:30af\:30fc\:30dd\:30f3\:3084\:5143\:672c\:306e\:5272\:5f15\
\:73fe\:5728\:4fa1\:5024\:304c\:50b5\:5238\:4fa1\:683c\:306b\:5360\:3081\:308b\
\:5272\:5408\:3092\:30a6\:30a7\:30a4\:30c8\:3068\:3057\:305f\:52a0\:91cd\:5e73\
\:5747\:5024\:3068\:3057\:3066\:3001\:30af\:30fc\:30dd\:30f3\:3084\:5143\:672c\
\:3092\:53d7\:3051\:53d6\:308b\:307e\:3067\:306e\:5e73\:5747\:671f\:9593\:3001\
\:4e00\:7a2e\:306e\:8cc7\:91d1\:56de\:53ce\:306b\:304b\:304b\:308b\:5e73\:5747\
\:6642\:9593\:3068\:306a\:308b\:3002\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\
\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3092\:5b9a\:7fa9\:3057\:3066\:3001\:30af\
\:30fc\:30dd\:30f3\:ff14\:ff05\:306e\:5229\:4ed8\:50b5\:3067\:5b89\:5168\:8cc7\
\:7523\:5229\:56de\:308a\:304c\:ff14\:ff05\:306e\:3068\:304d\:3001\:6e80\:671f\
\:304c\:9055\:3063\:305f\:3044\:304f\:3064\:3082\:306e\:5229\:4ed8\:50b5\:306e\
\:30de\:30b3\:30fc\:30ec\:30fc\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\
\:3092\:30b0\:30e9\:30d5\:306b\:66f8\:3044\:3066\:307f\:308b\:3002\n"
}], "Text",
 CellChangeTimes->{{3.650850946171947*^9, 3.6508509559555492`*^9}, {
  3.650851228190781*^9, 3.650851317785098*^9}, {3.65085135784461*^9, 
  3.650851521494047*^9}, {3.650851841307675*^9, 3.650852055827277*^9}, {
  3.650852181311264*^9, 3.650852252346542*^9}, {3.650852310291008*^9, 
  3.650852506947654*^9}, {3.650852640131832*^9, 3.650852831736024*^9}, {
  3.650853129076695*^9, 3.650853161066305*^9}, {3.6508532921142807`*^9, 
  3.650853292632555*^9}, {3.650855016120954*^9, 3.650855030732437*^9}, {
  3.650931502089341*^9, 
  3.650931814687508*^9}},ExpressionUUID->"cf1b302e-ff57-417a-961c-\
59422890dafa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"macDuration", "[", 
   RowBox[{"r_", ",", "tM_", ",", "c_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "*", 
    RowBox[{
     RowBox[{"dDuration", "[", 
      RowBox[{"r", ",", "tM", ",", "c"}], "]"}], "/", 
     RowBox[{"fixinc", "[", 
      RowBox[{"r", ",", "tM", ",", "c"}], "]"}]}]}], "//", 
   "Evaluate"}]}]], "Input",
 CellChangeTimes->{{3.650853178077652*^9, 3.650853225143036*^9}, {
  3.650853322324547*^9, 3.650853322752554*^9}, {3.650853480799288*^9, 
  3.650853481178443*^9}, {3.650854064300888*^9, 3.6508540644448223`*^9}, {
  3.650854101849152*^9, 3.650854130808947*^9}, {3.650854667489156*^9, 
  3.650854671229051*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[13]:=",ExpressionUUID->"1f1ca7b8-c444-4fa3-8413-a3afdf71c0e6"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "r"}], ")"}], 
        RowBox[{"-", "tM"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "r"}], ")"}], "tM"]}], ")"}]}], 
      SuperscriptBox["r", "2"]], "-", 
     FractionBox[
      RowBox[{"c", " ", "tM"}], 
      RowBox[{"r", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}]}]], "+", 
     RowBox[{"100", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], 
       RowBox[{
        RowBox[{"-", "1"}], "-", "tM"}]], " ", "tM"}], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "r"}], ")"}], 
        RowBox[{
         RowBox[{"-", "1"}], "-", "tM"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "r"}], ")"}], "tM"]}], ")"}], " ", "tM"}], 
      "r"]}], ")"}]}], 
  RowBox[{
   RowBox[{"100", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], 
     RowBox[{"-", "tM"}]]}], "+", 
   FractionBox[
    RowBox[{"c", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}], 
      RowBox[{"-", "tM"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "r"}], ")"}], "tM"]}], ")"}]}], "r"]}]]], "Output",
 CellChangeTimes->{{3.650854102434301*^9, 3.650854131593402*^9}, 
   3.6508546718327847`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[13]=",ExpressionUUID->"a81a19d3-cd6f-4df2-b802-4a13e1b2ce27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"macDuration", "[", 
      RowBox[{
       RowBox[{"4", "/", "100"}], ",", "tM", ",", "4"}], "]"}], ",", 
     RowBox[{"macDuration", "[", 
      RowBox[{
       RowBox[{"4", "/", "100"}], ",", "tM", ",", "6"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"tM", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\:6e80\:671f\>\"", ",", 
      "\"\<\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\
\:30e7\:30f3\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "10"}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.650853345380265*^9, 3.650853387261797*^9}, {
   3.6508541616082897`*^9, 3.650854214964068*^9}, {3.6508542838509398`*^9, 
   3.650854289913742*^9}, {3.650854531845916*^9, 3.6508545409768057`*^9}, 
   3.650854677018976*^9, {3.650854708571066*^9, 3.650854859464057*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[22]:=",ExpressionUUID->"8500c98d-9904-4ffa-80b1-e8c0b7c09b59"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVkFlQUwcARQPKmlAIWyAJ4cETLCDWtOBSWt4NrUprXVphDBioMlKLEdkV
LShKqg6K6LA1qKBUgWEZQXBQm7qwWGjZyl7AgCLSWMI8UJAlxMaPO+fj3p9z
ncKivgvXZzAYW3V5z/6prUIGg6YqTcVr3rNuR3H6NiZNncid0LPVsfwW49UV
W5pScIdkHjqmRFYXbvCkqeOK7vzAVTTlprKzjgumqS+iIsgiMU0dGxmdHauh
qaYE45j1VTTFaz+q+CtiimqdEXs6h01RoeU3N+d2TVO7rtG/mtZPU4VVkgrm
ixnK8/Ofok0VM1T114Ys2aM56vBi+uMjyXPUcxO+R/6FRUp7unDrxlWLVLvV
JXm2XEttYfktzJprqUZxUor/XQb8k/GmNJQBvdbhQS8/fXRq1rtL2vXwTcBR
znTDMkzJuqevr12GZJfz26s8DcC2uLM/NHU5zK5s+2i4xhDCFDdNtsoAMkka
09zZGFJF3sEcbyOYrNH8YX7WBK76gcPticaYLHFYdYLFRItr6JNlPSa4J717
nj7MQr8z+00Oh4nRLv3sjndm2KdWtdyPZYG/PTX55Elz2N97e22pwQyCNF9h
XrwFpAvywLXaDxBKZb4tXcfGQCwr9tFKC1ySr1Ao1GyMe2btNGqwQPyT9G6D
aku43FxQkwfZUGrYIbXxVhia9qqbMbeET3/naISbNUQHCOHtYkv4n5Y+2Km2
xrPM+kXDLVbw/we5vjdsEKEpU0qfW6HDWzhyaZct5EGzSx0J1jAKn0/iczno
E0o6M61tINyg5ZS0c6D/7GVwWbENmCMDhtIsO9Bu2u/pjbY4eLEzPCfQHoK4
xD/dRmzxeMywvs6EiygZT645xEGjmVW8aysXeycoTr2xHRQDu8lzqTzMfDDh
uynXDj5VD/3Ea/mQvqgIWe5sj4jgxTuSOT6uDuxQH6+1x7mSuJVhFQ6wXt1V
MyviQtJcP5EfIwA7QX1yqZcLp4wdlUMfOqK5b/IhuZeHyNC50VNDjhiuj8y+
Mc6DF0PhXbmdQLy8iT6eyEcZmZdYUEogcFO+pFbLx7E1+8LdzZxwZmbkW4cM
B7DqfNJUkU5YmXeB08UTwK5IuNqtyQkByeH5LvkCJMVZJS13d8aFsLrZaHdH
BGVafbXnZ2c49vSLjpY7YmGd0zZa6Qw68sDoWRsCrxu5SzyQ4LDtQ+4GEfih
6GOPpjwSBeM1jaO/EOj2ijQNuULCLTarTyMnIKovVk1dJeEvU4zYXCbAH+GX
8K6TsAkY7998lUCnvZFLVDEJwSe39pRdJ+CbPiiwrSHhHfNlW7TOyzZeZrmv
lcSxjB/Jmd8IyPQfTs21kXCfUwrMficwdXG+I72DRHNaEdvlAYGWikMZtV0k
ckTuTwMeETg1LmYxB3T7E0xWTQOByWBPw9svSaSmxDRHtxKQqPaPbfqXhKqL
++nZNgLNRwobBlUkfAvsCwvaCdzI4qQaqEl0V9qJ2/4mENymxwh6TeL+xhUS
j14CTZLPhtVvSCQoU8749RHw/u/wg1OzOl8b79KgfgIWxhNJ5fO6P6Jv9pwZ
IJCc4yoRLZIodQhT5g8SeLVir0+vRtcnHVHeGSIgrr7MlWpJ7O4Y62l5SqBR
1Dv/7h2JydCKhlElgf8BL5cl2w==
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVUXs0lAkcHRNTzIgxmDFmfM18pWJVNnJKfFd1Up3EbjbPnLSptXZSGYRx
kkdrlaKXVZRI1Jpk6fTYKRvZqDwWxylZbzKWdiY9hvHY6Y977vndc+495/6u
aG/kt2F0Go3mpcMXfqX2cqTRVFQ1a3DlF67xKcncwVRRdfEdu7RGKqqsnDaa
Z6milk+tY32yUFFJksrCtQ4qKv/IUfGovU5X8syjAlVUkH7uzEs/FRXfO/Bp
qEpF/UiyohPLVZR1c5ziRbia6p93KP+XEDUVUlbsmdP2nkpafSzW54/3VGFF
sJw5+JFySGh+m3XzI1W5jcFK/VNDqbMMX/wdoqH6DQX2V05rqdhdVzfVzk1R
zZzs3Au5s1TYnYcZga0zVJ2/LGnLfRqWecQbT6yhQa+x543TBjpkZxaG0vP1
sN03jvv+6Tw4O/VFDmvoSFxyyrvCwQAOBmkpa9bpwzhvx8qeKgYmWD5xq88Z
IDU4g2kiXgBG0tPTvFYGDFdNPzNJN4RiarLn+fwFeFcq/OoYi4me4ptEjq8h
HkTcP6WKYaFkekMamW6EgTb6hZY5Y/Cr+/7xbmVC4J2SePy4CcarJudt5BjD
JsPd8ZLUFOwDl4l614UIoc59vuXCRotnm1tovAmycxcrFONs7BaFzib4mEL6
V2a7QaUZtOnCPb++M0X3NHv3PSkHs11BDbvS2XB91ToQvtwc+6eLxNGWZthy
IuLxznFzSMa0anG57n6NHPfrFvDY3ntq73oOWpwde7P9LOEXbaJXWsfB/LBJ
mYDPxXDyAEUFmMNx7Sy3tJmLmbaJe9V95mD2djIizvNw5NnG/hCpBX7Kag27
+J0Val7Epc7RLfFkiFFbY8iHn8PY7e4Tlqgz5khtG/mQeykTr5lzoegMIk+m
WKPHzbOgKYcL14rqDf5rBOhY/XjYl8tDeKD2brBGgEyXNrufC3g4WRq1dK9c
CHf23NAhwgrBDbVjVw7bwJyzKetViRVEZ3zudC0joOwbyV1ky4ckRDOQ3EVA
+0BSN1bAhxNN4XzHexHSPIb86Eus8Rt56ejVW4tQXFwkw1VrxK/aF2ZnLII0
xepsnlgAVo1rhlIiwmuThq7YQgF4NxxXLK8X4b/bRdIanhCyKI5M306MowEf
D2lyhAg4x9m6J02M50ceMWuMbTDlItqh6hbD0Lny9M4kG0zU8WesQeLsNuJu
gdYG+298bV9/iQTPIaH9iYRAu5PEaHceiYd33SWPIgl41JYo1fkkjBRhH+4f
JiDoFZRaXyNhwehvLI8m0Go1f0lkic6vlMvzEgm4Z76xsawisTgmTBSVScBS
mmq2r5GEJ3uwx0xOIJVerdY06fJUI5tZ5QTUWZMtmS0kMrZG5hlUEHgpP3jm
XhuJ7Uv1OZoqAslv/VnMThLc6z+s6FIQeBfowPh9mMRhzrjNtZcEgpUHhjaP
kHDzjTuY20SgIbbw6RsliQT1hbLsFgLXz3NTDMZJ2H1O+XC8nUBgkx4tYIKE
lvSqDNXtUh+8vmf8A4kst5jYgG4Czv/GPE7+RCJI6GL3TS8B0wVjsrJJEn39
KUEYJJB40TbYQ0vCvpDd6TJMYHRxqGvHtO5fnes8V44Q8K+8zI+Y1fWPoxXZ
jhKo8+iYnJsjoQz/flw4RuB/8EofCg==
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"\:6e80\:671f\"", TraditionalForm], 
       FormBox[
       "\"\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\
\:30e7\:30f3\"", TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None}, 
     PlotRange -> {{0., 9.99999981632653}, {0, 10}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"macDuration", "(", 
         RowBox[{
           FractionBox["4", "100"], ",", "tM", ",", "4"}], ")"}], 
       RowBox[{"macDuration", "(", 
         RowBox[{
           FractionBox["4", "100"], ",", "tM", ",", "6"}], ")"}]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.650853389430172*^9, 3.6508534349642487`*^9, 3.650853485987609*^9, 
   3.650854069147471*^9, 3.6508541371322536`*^9, 3.650854208404607*^9, 
   3.6508542906823378`*^9, 3.650854677696939*^9, 3.650854717015142*^9, {
   3.650854763399729*^9, 3.650854860881472*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[22]=",ExpressionUUID->"898ba679-7957-4b85-a4dd-5d4f300416c7"]
}, Open  ]],

Cell[TextData[{
 "\n\:30af\:30fc\:30dd\:30f3\:304c\:ff14\:ff05\:306e\:5229\:4ed8\:50b5\:3068\
\:ff16\:ff05\:306e\:5229\:4ed8\:50b5\:3092\:6bd4\:3079\:308b\:3068\:3001\:30af\
\:30fc\:30dd\:30f3\:304c\:5927\:304d\:3044\:65b9\:304c\:30de\:30b3\:30fc\:30ec\
\:30fc\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:77ed\:3044\:3002\
\:30af\:30fc\:30dd\:30f3\:306f\:ff11\:5e74\:5f8c\:304b\:3089\:652f\:6255\:3044\
\:304c\:958b\:59cb\:3055\:308c\:308b\:306e\:3067\:3001\:3053\:308c\:304c\:5927\
\:304d\:3044\:3068\:30ad\:30e3\:30c3\:30b7\:30e5\:304c\:623b\:3063\:3066\:6765\
\:308b\:30bf\:30a4\:30df\:30f3\:30b0\:306f\:5171\:901a\:3067\:3082\:3001\:652f\
\:6255\:3044\:91d1\:984d\:3067\:30a6\:30a7\:30a4\:30c8\:3065\:3051\:3089\:308c\
\:305f\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306e\:5024\:304c\:5c0f\:3055\
\:304f\:306a\:308b\:3002\n\n\:3053\:308c\:307e\:3067\:8aac\:660e\:3057\:305f\
\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3001\:30de\:30b3\
\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306e\:4ed6\
\:306b\:3001",
 StyleBox["\:4fee\:6b63\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3068\:547c\:3070\:308c\:308b\:3082\:306e\:304c\:3042\:308b\:3002\:4fee\
\:6b63\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:3001\:30c9\:30eb\:30fb\
\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3092\:50b5\:5238\:4fa1\:683c\:3067\
\:5272\:3063\:305f\:3082\:306e\:ff08\:540c\:3058\:3053\:3068\:3067\:3059\:304c\
\:3001\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\
\:30f3\:3092(1+r)\:3067\:5272\:3063\:305f\:3082\:306e\:ff09\:3067\:3059\:3002\
\:30c9\:30eb\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:5909\:5316\
\:30ec\:30d9\:30eb\:3092\:6271\:3046\:5834\:5408\:306b\:7528\:3044\:3089\:308c\
\:3001\:4fee\:6b63\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:5909\:5316\
\:7387\:3092\:6271\:3046\:5834\:5408\:306b\:7528\:3044\:3089\:308c\:308b\:3002\
\n"
}], "Text",
 CellChangeTimes->{{3.6508533153540688`*^9, 3.650853319921775*^9}, {
  3.65085898894417*^9, 3.650859135758464*^9}, {3.650931828032096*^9, 
  3.6509320764098387`*^9}},ExpressionUUID->"6a5c75d1-ab64-4b55-98ba-\
02fd12b7108a"],

Cell["\<\

5.5 Macaulay duration\
\>", "Subsubtitle",
 CellChangeTimes->{{3.650856827210719*^9, 3.650856835661736*^9}, {
  3.650858762253656*^9, 3.650858766847684*^9}, {3.650858952477511*^9, 
  3.650858953499783*^9}},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"51a83691-e65e-4b79-b971-73976c05d3e0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"fixinc", "[", 
    RowBox[{"r_", ",", "tM_", ",", "c_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"c", "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "tM"}], "}"}]}], "]"}], "+", 
    RowBox[{"100", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}], "^", "tM"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dDuration", "[", 
    RowBox[{"r_", ",", "tM_", ",", "c_"}], "]"}], ":=", 
   RowBox[{"-", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"fixinc", "[", 
       RowBox[{"r", ",", "tM", ",", "c"}], "]"}], ",", "r"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"macDuration", "[", 
    RowBox[{"r_", ",", "tM_", ",", "c_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "*", 
     RowBox[{
      RowBox[{"dDuration", "[", 
       RowBox[{"r", ",", "tM", ",", "c"}], "]"}], "/", 
      RowBox[{"fixinc", "[", 
       RowBox[{"r", ",", "tM", ",", "c"}], "]"}]}]}], "//", "Evaluate"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.650859249879381*^9, 3.6508592890436163`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"11188bdf-8f95-4a8a-aaf9-f09850ea8df4"],

Cell["\<\

\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\
\:306f\:3001\:30af\:30fc\:30dd\:30f3\:3084\:5143\:672c\:3092\:53d7\:3051\:53d6\
\:308b\:307e\:3067\:306e\:5e73\:5747\:5e74\:6570\:3092\:8868\:3057\:3066\:3044\
\:307e\:3059\:304b\:3089\:3001\:30af\:30fc\:30dd\:30f3\:304c\:306a\:3044\:5272\
\:5f15\:50b5\:306e\:5834\:5408\:3001\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\
\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:6e80\:671f\:3068\:4e00\:81f4\:3057\
\:307e\:3059\:3002\:30af\:30fc\:30dd\:30f3 c \:3092\:30bc\:30ed\:3068\:3057\
\:3066\:8a08\:7b97\:3057\:3066\:307f\:307e\:3057\:3087\:3046\:3002
\
\>", "Text",
 CellChangeTimes->{{3.6508533153540688`*^9, 3.650853319921775*^9}, {
  3.65085898894417*^9, 3.650859135758464*^9}, {3.650860125828909*^9, 
  3.650860226065817*^9}},ExpressionUUID->"5c912323-917b-4656-9c58-\
844b28f440ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"macDuration", "[", 
  RowBox[{
   RowBox[{"5", "/", "100"}], ",", "10", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.650860235927208*^9, 3.650860242113688*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[76]:=",ExpressionUUID->"3e51a7ff-1dc6-4edf-8301-b1b1a56e3cfe"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.650860243006545*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[76]=",ExpressionUUID->"ada4c23f-8ebc-47b5-bf38-54106abf35a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"macDuration", "[", 
  RowBox[{
   RowBox[{"4", "/", "100"}], ",", "8", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.650860250459002*^9, 3.650860258750646*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[77]:=",ExpressionUUID->"e1a34ed3-3c9f-40d1-b930-b35dfb92af5c"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{3.6508602601822*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[77]=",ExpressionUUID->"3ca24d97-9165-4b78-893e-75bbb5ade6c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"macDuration", "[", 
    RowBox[{"r", ",", "8", ",", "0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", 
     RowBox[{"5", "/", "100"}]}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\>\"", ",", 
      "\"\<Macaulay duration\>\""}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.650860365934514*^9, 3.6508604345148478`*^9}, {
  3.6508605491871023`*^9, 3.650860557373374*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[81]:=",ExpressionUUID->"2ee219fa-5442-4eab-a583-cb3372676717"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJxFkgkwlGEYx9dqM7mKHJNBFBM7kaPSlNZ2ztBBKIlUolSOTUgkRyXK8Smt
lq11rY1kVFqahtouqTaNc3JUY0IZ10YmWbZj6v9+M99885vf/3me9/hM/cPc
A+k0Gs3v9/vnWzjwIEJ6QYtF+/uYsFcqtb0I1WE7Kf3jAUvvihAdN6f/3l9N
yfzZ693gkKiWbemS/U6Kv89Cdp/ElnJuDoDfp5HZxOgNQj/f1KzX7j3B4Nt0
l57GMA7y4ooHR+p44ej3eI+lrPxpBLxFlZG86GWU08w/T2loq+RJo9GP3jpu
2DEdg/pIfrvdAus4MFOuXmziGY9+I1YFqjq1CeDo5TOz+LWJyNPX+CgW1yWh
f1b0MoVry1nkTcTKitiBc2A/l1z20uHzqOd/sEnqkiWD5XUcGWf0AvI+gsr9
jJEUsl/x4da1yhfBZm+NXaL0L2H+KsdrNPsFaajfUqZVPWKQDg5wpZ9ws8tA
fdz4N+s7zpk4r67wzepTVhTyp47NTzSqJhyaKdGjO2Sh3v9eWHmfOAvezW5D
t8eby2Bjowzum21XwEMq7103NV7BelkZH9Uon2z4TJ2++o7+bPSXsSW5Ocev
wnuE8EM8pwirP999oDmWi/W/MNTd6S7nwrOUGevHta+Bm0z9vFWuEg5kV3MM
9HmYN4fRe0PA5ZH/r0FbaqaXi3yLpXw6Np/wVGqvdTMzD/NjdCsTBm/lwf/I
j2liWPHBk/W0JbIaPvr/HE6O7dp4Hd4o1dE9x+sGODkx+oO4nfDoqaqjbV4C
cl8a5ZP1PQL4z+92POtamU/qbVh88UnCFhQzgqohHPe9fbXYoQD8JTJt4d3T
hD0n2LMqJAVYb7D6oUlVeiH82UWXhg+vL8T5+c7W7LVKIbx8gOock5J8zcFz
PQZzi9BvbffJr+vcipB/Vdo6ZUoR7xVlr0l/V4R64bwR0y26xciPlZWtyN5T
jPxQR5s3K4/4flXlM186id87W79BM0gINvFS+9lRLkT+s0jBFMmEZP8ZAcEt
tiXwTyMabiuFl8CPW6SN5lQTNuvebm89TfK0JUnJ5iwRfDfn/nvDeBHmP9Hw
WCWtE+E+S8pGuXEzJL9Vd3CCu+Em+Ft8/67KFMIbEzzqmQ03MY+b8MhBOKcU
/JDnEiDYUYr8p7utFI9H+Bfi9DrT
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\"", TraditionalForm], 
    FormBox["\"Macaulay duration\"", TraditionalForm]},
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->NCache[{{0, 
      Rational[1, 20]}, {0., 8.000000000000002}}, {{0, 0.05}, {0., 
     8.000000000000002}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650860387601376*^9, 3.65086043597143*^9, 
  3.650860558093936*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[81]=",ExpressionUUID->"002e396e-4993-4bcb-90d3-876dfd55ae53"]
}, Open  ]],

Cell["\<\

\:78ba\:304b\:306b\:3001\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:304c\:3069\
\:3093\:306a\:5024\:3067\:3042\:3063\:3066\:3082\:3001\:5272\:5f15\:50b5(\
\:30bc\:30ed\:30fb\:30af\:30fc\:30dd\:30f3\:50b5)\:306e\:30de\:30b3\:30fc\
\:30ec\:30fc\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:6e80\:671f\
\:306e\:9577\:3055\:3068\:4e00\:81f4\:3057\:307e\:3059\:3002\:3053\:306e\:3053\
\:3068\:306f\:3001\:50b5\:5238\:306e\:30ea\:30b9\:30af\:3092\:7ba1\:7406\:3059\
\:308b\:4e0a\:3067\:91cd\:8981\:306a\:542b\:610f\:3092\:6301\:3061\:307e\:3059\
\:3002

\:ff08\:5c06\:6765\:306e\:ff09\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:304c\
\:5909\:5316\:3059\:308b\:3068\:5229\:4ed8\:50b5\:306e\:50b5\:5238\:4fa1\:683c\
\:306f\:5909\:52d5\:3059\:308b\:3068\:3044\:3046\:3053\:3068\:304c\:3001\:304a\
\:8a71\:306e\:51fa\:767a\:70b9\:3067\:3057\:305f\:3002\:305d\:308c\:306b\:6bd4\
\:3079\:3001(\:50b5\:52d9\:4e0d\:5c65\:884c\:306e\:30ea\:30b9\:30af\:304c\
\:306a\:3044\:3068\:3044\:3046\:524d\:63d0\:306e\:5834\:5408) \:5272\:5f15\
\:50b5\:3092\:8cfc\:5165\:3059\:308b\:3068\:5fc5\:305a\:6e80\:671f\:306b\:306f\
\:984d\:9762(100\:5186) \
\:304c\:624b\:5143\:306b\:5165\:308b\:305f\:3081\:3001(\:6e80\:671f\:307e\
\:3067\:306e\:9014\:4e2d\:3067\:ff09\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\
\:304c\:5909\:5316\:3057\:3066\:3082\:6295\:8cc7\:6210\:679c\:306f\:78ba\:5b9f\
\:3067\:3059\:3002\:4f8b\:3048\:3070\:3001\:ff18\:5e74\:5f8c\:306b\:8cc7\:91d1\
\:304c\:5fc5\:8981\:3067\:305d\:308c\:307e\:3067\:904b\:7528\:3057\:305f\:3044\
\:3068\:3044\:3046\:5834\:5408\:3001\:ff18\:5e74\:6e80\:671f\:306e\:5272\:5f15\
\:50b5\:3092\:8cfc\:5165\:3059\:308c\:3070\:91d1\:5229\:5909\:52d5\:306e\:30ea\
\:30b9\:30af\:3092\:53d7\:3051\:306a\:3044\:3053\:3068\:306b\:306a\:308a\:307e\
\:3059\:3002
\
\>", "Text",
 CellChangeTimes->{{3.650860839933531*^9, 3.650860950066638*^9}, {
  3.650860991833939*^9, 3.65086140223237*^9}, {3.65086144635499*^9, 
  3.650861486847466*^9}, {3.650861829103038*^9, 3.6508618795206537`*^9}, {
  3.650932517709257*^9, 3.6509328107044573`*^9}, {3.650935781830792*^9, 
  3.650935783058733*^9}},ExpressionUUID->"ac14aaaa-c1d1-4fd3-ac4d-\
9cb721b3e3f2"],

Cell["\<\
\:3000\:3067\:306f\:3001\:ff18\:5e74\:9593\:306e\:8cc7\:91d1\:904b\:7528\:3068\
\:3044\:3046\:4f8b\:3067\:3001\:5229\:4ed8\:50b5\:3092\:8cfc\:5165\:3059\:308b\
\:3068\:3069\:3046\:306a\:308b\:3067\:3057\:3087\:3046\:304b\:3002\:30bf\:30fc\
\:30b2\:30c3\:30c8\:3068\:3059\:308b\:904b\:7528\:671f\:9593\:3092\:6e80\:671f\
\:3068\:3059\:308b\:5272\:5f15\:50b5\:304c\:767a\:884c\:3055\:308c\:3066\:3044\
\:306a\:3044\:5834\:5408\:3092\:60f3\:5b9a\:3057\:3066\:3044\:307e\:3059\:3002
\:3000\:ff18\:5e74\:5f8c\:306f\:30af\:30fc\:30dd\:30f3\:3092\:53d7\:3051\:53d6\
\:3063\:305f\:5f8c\:3001\:3042\:3068\:ff12\:5e74\:6e80\:671f\:304c\:6b8b\:308b\
\:5229\:4ed8\:50b5\:3092\:58f2\:5374\:3059\:308b\:3053\:3068\:306b\:306a\:308a\
\:307e\:3059\:3002\:58f2\:5374\:4fa1\:683c\:306f\:3001\:ff12\:5e74\:6e80\:671f\
\:5229\:4ed8\:50b5\:306e\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:3067\:3059\:304b\
\:3089\:3001\:305d\:306e\:6642\:70b9\:306b\:304a\:3051\:308b\:5b89\:5168\:8cc7\
\:7523\:5229\:56de\:308a\:306b\:3088\:3063\:3066\:5909\:308f\:308a\:307e\:3059\
\:3002

\:3000\:5177\:4f53\:7684\:306a\:6570\:5024\:4f8b\:3092\:8a08\:7b97\:3057\:3066\
\:307f\:307e\:3057\:3087\:3046\:3002\:ff11\:ff10\:5e74\:6e80\:671f\:306e\:5229\
\:4ed8\:50b5\:3067\:3001\:30af\:30fc\:30dd\:30f3\:304c\:ff16\:ff05\:306e\:3082\
\:306e\:3092\:8003\:3048\:307e\:3059\:3002\:73fe\:5728\:306e\:5b89\:5168\:8cc7\
\:7523\:5229\:56de\:308a\:304c\:6b21\:306e\:5024\:3068\:3057\:307e\:3059\:3002\
\>", "Text",
 CellChangeTimes->{{3.650932795407789*^9, 3.650932915480934*^9}, {
  3.6509329544442043`*^9, 3.650932979305448*^9}, {3.650935803298044*^9, 
  3.6509358452362633`*^9}},ExpressionUUID->"1fb88659-8526-4318-9d46-\
d67ab281d543"],

Cell[BoxData[
 RowBox[{
  RowBox[{"r1", "=", 
   RowBox[{"377722", "/", "10000000"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.650859848970875*^9, 3.650859854934491*^9}, {
  3.6508618953345613`*^9, 3.650861896731722*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[17]:=",ExpressionUUID->"c685cffb-09bf-4b4b-bc5d-b2e1bdccd7c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "r1", "]"}]], "Input",
 CellChangeTimes->{{3.650861899812545*^9, 3.65086190119322*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[18]:=",ExpressionUUID->"aa262a56-bacd-4777-967d-2da4d2ee75ad"],

Cell[BoxData["0.0377722`"], "Output",
 CellChangeTimes->{3.650861902036282*^9, 3.650932924923223*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[18]=",ExpressionUUID->"49eba52c-eb7d-4773-8ecc-848a7a971999"]
}, Open  ]],

Cell["\:3053\:306e10\:5e74\:6e80\:671f\:3001\:30af\:30fc\:30dd\:30f36%\:306e\
\:5229\:4ed8\:50b5\:306e\:30de\:30b3\:30fc\:30ec\:30fc\:30fb\:30c7\:30e5\:30ec\
\:30fc\:30b7\:30e7\:30f3\:306f\:3001", "Text",
 CellChangeTimes->{{3.650861949344541*^9, 3.650861979906877*^9}, {
   3.65086201230204*^9, 3.650862045038035*^9}, {3.650862233088357*^9, 
   3.6508622426675663`*^9}, {3.650877953368246*^9, 3.650877997449202*^9}, 
   3.6509329858091497`*^9},ExpressionUUID->"2b6fa172-dd6d-4d87-830e-\
8e257337ee7d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"macDuration", "[", 
   RowBox[{"r1", ",", "10", ",", "6"}], "]"}], " ", "//", "N"}]], "Input",
 CellChangeTimes->{{3.650861921633781*^9, 3.650861935166255*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[86]:=",ExpressionUUID->"5a3e41d6-17f3-4ce2-ac1a-3b5a9dc4afeb"],

Cell[BoxData["7.999999997756571`"], "Output",
 CellChangeTimes->{{3.650861931862411*^9, 3.650861935901163*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[86]=",ExpressionUUID->"192df83f-534b-4421-af8a-3630bef22064"]
}, Open  ]],

Cell["\<\
\:ff18(\:5e74)\:306b\:306a\:308a\:307e\:3059\:3002(\:30de\:30b3\:30fc\:30ec\
\:30fc\:30fb\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:304c\:ff18\:306b\:8fd1\
\:304f\:306a\:308b\:3088\:3046\:306a\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\
\:3092\:6c42\:3081\:305f\:7d50\:679c\:304c\:3001\:5148\:306e r1 \:3067\:3059\
\:3002)
\:3053\:306e\:50b5\:5238\:306e\:73fe\:5728\:4fa1\:683c\:306f\
\>", "Text",
 CellChangeTimes->{{3.650861949344541*^9, 3.650861979906877*^9}, {
   3.65086201230204*^9, 3.650862045038035*^9}, {3.650862233088357*^9, 
   3.6508622426675663`*^9}, 3.650878000691346*^9, {3.6508781931473713`*^9, 
   3.650878193626211*^9}, {3.650933009836495*^9, 3.650933085820043*^9}, {
   3.650933186270205*^9, 
   3.6509331950485773`*^9}},ExpressionUUID->"88aaf4db-e20e-4e01-9d33-\
c097aa1fb79c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\:3000", 
  RowBox[{
   RowBox[{"fixinc", "[", 
    RowBox[{"r1", ",", "10", ",", "6"}], "]"}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.650862055012838*^9, 3.6508620701024942`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[19]:=",ExpressionUUID->"c56ca944-7e23-4cf5-bc23-8e0c7bd77020"],

Cell[BoxData["118.23035387296913`"], "Output",
 CellChangeTimes->{3.650862070797996*^9, 3.6509330955011168`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[19]=",ExpressionUUID->"0f582d34-7cea-4a56-b304-385d7b5e2ec5"]
}, Open  ]],

Cell["\<\
\:3067\:3059\:3002

   \:ff18\:5e74\:9593\:3001\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:304c\
\:5909\:5316\:3057\:306a\:304b\:3063\:305f\:5834\:5408\:30011\:5e74\:5f8c\
\:306b\:53d7\:3051\:53d6\:308b\:30af\:30fc\:30dd\:30f3\:ff16\:5186\:3092\:3053\
\:306e\:5229\:56de\:308a\:3067\:518d\:6295\:8cc7\:3057\:30018\:5e74\:5f8c\
\:306b\:306f6*(1+r1)^7 \:5186\:3092\:5f97\:307e\:3059\:3002\:ff12\:5e74\:5f8c\
\:306b\:53d7\:3051\:53d6\:308b\:30af\:30fc\:30dd\:30f3\:ff16\:5186\:3092\:540c\
\:3058\:304f\:518d\:6295\:8cc7\:3057\:3001\:ff18\:5e74\:5f8c\:306b\:306f6*(1+\
r1)^6 \:5186\:3092\:5f97\:308b\:3001\:3068\:3044\:3063\:305f\:3053\:3068\:304b\
\:3089\:3001\:ff18\:56de\:53d7\:3051\:53d6\:308b\:30af\:30fc\:30dd\:30f3\:306e\
\:518d\:6295\:8cc7\:7d50\:679c\:ff08\:6700\:5f8c\:306e\:ff11\:56de\:306f\:ff10\
\:5e74\:6295\:8cc7\:3067\:3059\:304c\:ff09\:306e\:5408\:8a08\:306f\
\>", "Text",
 CellChangeTimes->{{3.6508622462561407`*^9, 3.650862296480463*^9}, {
   3.6508623639144297`*^9, 3.650862391429196*^9}, 3.650933083996994*^9, {
   3.6509331623867273`*^9, 3.65093316887426*^9}, {3.650933200208535*^9, 
   3.650933386566197*^9}},ExpressionUUID->"b81cd1b6-d0cd-4a6b-81e2-\
7752453ed1a5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"6", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.650932364906485*^9, 3.6509323706576777`*^9}, 
   3.650932423626902*^9, {3.6509334132381783`*^9, 3.650933455764168*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[23]:=",ExpressionUUID->"9c76f46c-9c55-4423-89a0-b4434c23c8ed"],

Cell[BoxData[
 RowBox[{"6", "+", 
  RowBox[{"6", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "4"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "5"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "6"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "7"]}]}]], "Output",
 CellChangeTimes->{{3.650933448609129*^9, 3.6509334564639072`*^9}},
 Background->GrayLevel[0.85],
 CellLabel->"Out[23]=",ExpressionUUID->"ceb6f3c7-6eb5-4d71-a499-36ed1a8cf63e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"%23", " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{"r", " ", "->", " ", "r1"}], "}"}]}], ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.6509334958762007`*^9, 3.650933500425712*^9}, {
  3.650937779454019*^9, 3.650937783806427*^9}, {3.6509378525897827`*^9, 
  3.650937853244845*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[114]:=",ExpressionUUID->"a8321fda-cf37-41ea-82ae-02937631b4d9"],

Cell[BoxData["54.84844520012856267881600823294923420827`8."], "Output",
 CellChangeTimes->{{3.650933497040505*^9, 3.650933501057124*^9}, 
   3.6509377845495167`*^9, 3.650937854019293*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[114]=",ExpressionUUID->"5d39a2ff-c516-43cf-b571-0c786c26e38c"]
}, Open  ]],

Cell["\:3068\:306a\:308a\:3001\:ff08\:3042\:308b\:3044\:306f\:3001\:6570\:5b57\
\:3060\:3051\:3092\:5f97\:308b\:306a\:3089\:ff09", "Text",
 CellChangeTimes->{{3.650933529152472*^9, 3.6509335407020493`*^9}, 
   3.650933626546974*^9, {3.650933729495728*^9, 
   3.6509337736509533`*^9}},ExpressionUUID->"43118b3f-7127-4db1-8883-\
454a922363c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"6", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r1"}], ")"}], "^", "j"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "7"}], "}"}]}], "]"}], ",", "8"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.650933750957858*^9, 3.650933754906331*^9}, {
  3.6509378629177103`*^9, 3.650937866965273*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[115]:=",ExpressionUUID->"887a9ae1-44eb-4f69-a0ca-0031b41ae830"],

Cell[BoxData["54.84844520012856267881600823294923420827`8."], "Output",
 CellChangeTimes->{{3.650933751989135*^9, 3.650933755633679*^9}, 
   3.650937867646085*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[115]=",ExpressionUUID->"e502a7fe-e7a5-4daa-8e84-b01d68d6872e"]
}, Open  ]],

Cell["\:307e\:3060\:6e80\:671f\:307e\:3067\:ff12\:5e74\:6b8b\:3063\:3066\:3044\
\:308b\:3053\:306e\:5272\:5f15\:50b5\:3092\:58f2\:5374\:3059\:308b\:3053\:3068\
\:3067", "Text",
 CellChangeTimes->{{3.650933529152472*^9, 3.6509335407020493`*^9}, 
   3.650933626546974*^9, {3.650933779327881*^9, 
   3.65093379920399*^9}},ExpressionUUID->"d14b57a6-ca2f-4bc9-9101-\
9bd88d22092c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"fixinc", "[", 
    RowBox[{"r1", ",", "2", ",", "6"}], "]"}], ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.6509335450486517`*^9, 3.650933561489809*^9}, {
  3.650937765191408*^9, 3.650937770078356*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[108]:=",ExpressionUUID->"8f7f52a6-8283-4b8c-85cf-cf471a0a8349"],

Cell[BoxData["104.20579449745638359103339847940758910641`8."], "Output",
 CellChangeTimes->{{3.650933557542898*^9, 3.650933562141732*^9}, 
   3.65093777083848*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[108]=",ExpressionUUID->"4895d8c7-1037-4436-80d4-db08613496f6"]
}, Open  ]],

Cell["\:5408\:8a08", "Text",
 CellChangeTimes->{{3.650933578786347*^9, 3.650933581368582*^9}, 
   3.650933621218094*^9},ExpressionUUID->"1c9ca2aa-00a5-4513-927d-\
b317984cb788"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%108", "+", "%115"}]], "Input",
 CellChangeTimes->{{3.650933585339596*^9, 3.6509335887460814`*^9}, {
  3.650937742854946*^9, 3.650937758736807*^9}, {3.650937792294466*^9, 
  3.650937822549405*^9}, {3.650937877381957*^9, 3.65093788162871*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[116]:=",ExpressionUUID->"bfab4463-01b6-48fe-81cd-3563e81545ef"],

Cell[BoxData["159.05423969758494626984940671235682331468`8."], "Output",
 CellChangeTimes->{
  3.650933589666205*^9, {3.650937747818606*^9, 3.6509378233230124`*^9}, 
   3.650937882435224*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[116]=",ExpressionUUID->"ac8eefc8-4d81-4665-9559-ef02a27d3f60"]
}, Open  ]],

Cell["\<\
\:306e\:6295\:8cc7\:6210\:679c\:3092\:ff18\:5e74\:5f8c\:306b\:5f97\:308b\:3053\
\:3068\:306b\:306a\:308a\:307e\:3059\:3002

\:3000\:3053\:306e\:50b5\:5238\:3092\:8cfc\:5165\:3057\:305f\:76f4\:5f8c\:306b\
\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:304c\:4e0a\:6607\:3057\:3001\:ff18\
\:5e74\:5f8c\:307e\:3067\:7d9a\:3044\:305f\:5834\:5408\:3001\:6295\:8cc7\:6210\
\:679c\:306f\:3069\:3046\:5909\:5316\:3059\:308b\:3067\:3057\:3087\:3046\:304b\
\:3002  0.1% \:4e0a\:6607\:3057\:305f\:3068\:3057\:3066\:3001\:305d\:306e\
\:5024\:3092r\:ff12\:3068\:3057\:307e\:3059\:3002\
\>", "Text",
 CellChangeTimes->{{3.650933595167873*^9, 3.650933614066223*^9}, {
  3.65093385983174*^9, 3.6509339105368958`*^9}, {3.650933995603141*^9, 
  3.650934047823811*^9}, {3.6509353792634563`*^9, 3.650935397871283*^9}, {
  3.6509355105578423`*^9, 3.650935537916253*^9}, {3.650937398064756*^9, 
  3.650937465615549*^9}},ExpressionUUID->"578b8410-d327-47e9-b21a-\
e5de7522bf8c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"r2", "=", 
   RowBox[{"r1", "+", 
    RowBox[{"1", "/", "1000"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.650935474131545*^9, 3.650935481398649*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[67]:=",ExpressionUUID->"ec0fb8f3-e86e-4c95-8ae1-725a2e2b58c0"],

Cell["\<\
\:ff18\:5e74\:5f8c\:306b\:50b5\:5238\:3092\:58f2\:5374\:3059\:308b\:3068\:3001\
\:3053\:306e\:4fa1\:683c\:306f\:3001\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\
\:304c\:4e0a\:6607\:3057\:3066\:3044\:308b\:306e\:3067\:4e0b\:304c\:3063\:3066\
\:3044\:307e\:3059\:3002\
\>", "Text",
 CellChangeTimes->{{3.6509374820521708`*^9, 
  3.6509375371749372`*^9}},ExpressionUUID->"745beaae-f8dd-4fba-9036-\
1c0ec1ee5037"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"fixinc", "[", 
    RowBox[{"r2", ",", "2", ",", "6"}], "]"}], ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.650933920469137*^9, 3.650933926171423*^9}, {
   3.65093474056258*^9, 3.650934742478795*^9}, {3.650934830643846*^9, 
   3.650934834249552*^9}, 3.650934886095909*^9, 3.650935492793583*^9, {
   3.650937898204504*^9, 3.650937902301167*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[117]:=",ExpressionUUID->"ed141dc9-29a0-42e4-8350-36dd521ae3e9"],

Cell[BoxData["104.01081890719310131707956407973725072068`8."], "Output",
 CellChangeTimes->{3.6509339281887703`*^9, 3.650934743161845*^9, 
  3.6509348357012053`*^9, 3.6509348899254093`*^9, 3.6509354988623037`*^9, 
  3.650937902914919*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[117]=",ExpressionUUID->"72ce9ec6-b78a-4949-a601-96bdafed47bd"]
}, Open  ]],

Cell["\<\
\:3057\:304b\:3057\:9ad8\:304f\:306a\:3063\:305f\:5229\:56de\:308a\:3067\:53d7\
\:3051\:53d6\:3063\:305f\:30af\:30fc\:30dd\:30f3\:3092\:904b\:7528\:3067\:304d\
\:307e\:3059\:304b\:3089\:3001\:6295\:8cc7\:6210\:679c\:304c\:5897\:3048\:3066\
\:ff18\:5e74\:5f8c\:306e\:58f2\:5374\:4fa1\:683c\:306e\:4f4e\:4e0b\:3068\:76f8\
\:6bba\:3059\:308b\:3053\:3068\:306b\:306a\:308a\:307e\:3059\:3002( 8 \:5e74\
\:5f8c\:3001\:ff18\:56de\:76ee\:306e\:30af\:30fc\:30dd\:30f3\:306f\:50b5\:5238\
\:58f2\:5374\:76f4\:524d\:306b\:53d7\:3051\:53d6\:308b\:306e\:3067\:3001\:904b\
\:7528\:671f\:9593\:306f\:ff10\:3001(1+r)^0=1 \:3067\:3059\:3002\:ff09\
\>", "Text",
 CellChangeTimes->{{3.650934250805192*^9, 3.650934359183419*^9}, {
  3.650934999821003*^9, 3.6509350037559566`*^9}, {3.650935115585382*^9, 
  3.650935118416163*^9}, {3.650935229226153*^9, 3.6509352697813587`*^9}, {
  3.6509375577189627`*^9, 3.6509375880078506`*^9}, {3.650937641152602*^9, 
  3.650937680627988*^9}},ExpressionUUID->"e4bef72f-6656-41ff-8d44-\
05eedcb80969"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"6", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "^", "j"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6509343857678547`*^9, 3.650934400302278*^9}, 
   3.650935009325014*^9, 3.650935124271131*^9, 3.6509376049027987`*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[102]:=",ExpressionUUID->"609e6de4-a272-4b76-aa1f-d2fc4f9d309e"],

Cell[BoxData[
 RowBox[{"6", "+", 
  RowBox[{"6", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "r"}], ")"}]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "2"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "3"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "4"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "5"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "6"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "7"]}]}]], "Output",
 CellChangeTimes->{3.650934392000492*^9, 3.650935011169139*^9, 
  3.650935125221559*^9, 3.650937605820817*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[102]=",ExpressionUUID->"bbd39bb9-fc71-46ac-8351-23b90d91e0d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"%102", " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{"r", "\[Rule]", " ", "r2"}], "}"}]}], ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.650934410731632*^9, 3.6509344203130293`*^9}, {
  3.650935018584114*^9, 3.650935020836213*^9}, {3.650935130831065*^9, 
  3.650935131206719*^9}, {3.650937609507576*^9, 3.650937609616858*^9}, {
  3.6509379304924088`*^9, 3.650937939766947*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[119]:=",ExpressionUUID->"41cc0bbe-4e6f-433c-94dd-73899e767b08"],

Cell[BoxData["55.04408700642047285877203128530434751928`8."], "Output",
 CellChangeTimes->{3.650934421091257*^9, 3.650935021672661*^9, 
  3.650935131917563*^9, 3.6509376104655724`*^9, 3.650937940448165*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[119]=",ExpressionUUID->"10a58d31-09bf-4127-a6ea-7ad9bb19f08b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"fixinc", "[", 
    RowBox[{"r2", ",", "2", ",", "6"}], "]"}], ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.650934790458253*^9, 3.650934792798071*^9}, {
  3.650934853338646*^9, 3.6509348813581133`*^9}, {3.650937689897376*^9, 
  3.650937692186541*^9}, {3.650937920468296*^9, 3.650937925772246*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[118]:=",ExpressionUUID->"10643ef3-ca1b-42b3-b78d-6485cd5e0db5"],

Cell[BoxData["104.01081890719310131707956407973725072068`8."], "Output",
 CellChangeTimes->{3.650934582612088*^9, 3.650934617522232*^9, 
  3.650934793468986*^9, 3.6509348559509373`*^9, 3.650934920161668*^9, 
  3.650935080187175*^9, 3.650937692892675*^9, 3.650937926457061*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[118]=",ExpressionUUID->"b908275a-6cc7-4ce6-8eac-7ad14c2d93d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%118", "+", "%119"}]], "Input",
 CellChangeTimes->{{3.65093458496255*^9, 3.650934623423773*^9}, {
  3.650934796474827*^9, 3.650934800878106*^9}, {3.650934861105098*^9, 
  3.6509348635335407`*^9}, {3.6509349239927073`*^9, 3.650934926837119*^9}, {
  3.650935085473529*^9, 3.6509350873151197`*^9}, {3.6509351655176897`*^9, 
  3.650935166186584*^9}, {3.6509355561061163`*^9, 3.6509355563179073`*^9}, {
  3.650937697675294*^9, 3.650937704215116*^9}, {3.650937945260929*^9, 
  3.6509379479555817`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[120]:=",ExpressionUUID->"8389bb38-9e68-4949-94f5-92e5904c6c2c"],

Cell[BoxData["159.05490591361357417585159536504159823996`8."], "Output",
 CellChangeTimes->{3.650934591653373*^9, 3.650934624044313*^9, 
  3.650934801562786*^9, 3.650934864140126*^9, 3.650934927418498*^9, 
  3.650935087668597*^9, 3.650935166854817*^9, 3.650935556980569*^9, 
  3.650937704960853*^9, 3.65093794856841*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[120]=",ExpressionUUID->"2937d6ee-c41c-4f6f-a573-a9d73cbd446e"]
}, Open  ]],

Cell["\<\
\:3053\:306e\:91d1\:984d\:3001159.05491(\:5186)\:306f\:3001\:5b89\:5168\:8cc7\
\:7523\:5229\:56de\:308a\:306b\:5909\:5316\:304c\:306a\:304b\:3063\:305f\:5834\
\:5408\:306e\:91d1\:984d,\:3000159.05424(\:5186)\:3088\:308a\:306f\:5c11\:3057\
\:591a\:3044\:3067\:3059\:304c\:307b\:307c\:540c\:7b49\:3067\:3059\:3002\:5c0f\
\:6570\:70b9\:7b2c\:ff14\:4f4d\:306e\:5024\:3092\:898b\:308b\:305f\:3081\:3001\
N[ , ] \:3067\:6841\:6570\:306e\:6307\:5b9a\:3092\:ff18\:306b\:3057\:3066\
\:3044\:307e\:3059\:3002

\:5b9f\:306f\:3001\:3053\:3046\:3057\:305f\:5229\:56de\:308a\:5909\:5316\:306b\
\:5bfe\:3057\:3066\:6700\:3082\:5909\:5316\:304c\:5c0f\:3055\:304f\:306a\:308b\
\:306e\:304c\:3001\:6295\:8cc7\:671f\:9593\:3068\:540c\:3058\:30de\:30b3\:30fc\
\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:3092\:3082\:3064\
\:50b5\:5238\:3068\:3044\:3046\:3053\:3068\:304c\:77e5\:3089\:308c\:3066\:3044\
\:307e\:3059\:3002

\:4e0a\:3068\:540c\:3058\:3053\:3068\:3092\:3001\:30af\:30fc\:30dd\:30f3\:304c\
\:ff19\:ff05\:306e12\:5e74\:50b5\:3067\:8a66\:3057\:3066\:307f\:307e\:3057\
\:3087\:3046\:3002\:30de\:30b3\:30fc\:30ec\:30fc\:306e\:30c7\:30e5\:30ec\:30fc\
\:30b7\:30e7\:30f3\:3001\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\:306b\:5909\
\:5316\:304c\:306a\:304b\:3063\:305f\:5834\:5408\:306e\:30af\:30fc\:30dd\:30f3\
\:518d\:6295\:8cc7\:6210\:679c\:3001\:5272\:5f15\:50b5\:58f2\:5374\:4fa1\:683c\
\:3001\:305d\:306e\:5408\:8a08\:3067\:3042\:308b\:6295\:8cc7\:6210\:679c\:306f\
\:6b21\:306e\:901a\:308a\:3067\:3059\:3002\
\>", "Text",
 CellChangeTimes->{{3.6509355773659563`*^9, 3.650935697386134*^9}, {
  3.650935913827805*^9, 3.650936057101446*^9}, {3.6509361501500196`*^9, 
  3.650936152755015*^9}, {3.650936195486068*^9, 3.650936244010202*^9}, {
  3.65093671118969*^9, 3.650936712909683*^9}, {3.650937982021351*^9, 
  3.650938023713449*^9}, {3.650938704056242*^9, 
  3.6509387835779257`*^9}},ExpressionUUID->"1e4ea9d8-57ef-4b73-befd-\
a4ea3b6a68f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coupon", " ", "=", "9"}], ";"}]], "Input",
 CellChangeTimes->{{3.6509363256394444`*^9, 3.650936327795583*^9}, 
   3.650936715374401*^9},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[122]:=",ExpressionUUID->"32217749-a2c5-48ca-8447-8d266ea609b6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"maturity", " ", "=", "12"}], ";"}]], "Input",
 CellChangeTimes->{{3.650936718584487*^9, 3.650936723790062*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[123]:=",ExpressionUUID->"2846ab7f-78ba-4795-9263-dfa7cee6591d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"macDuration", "[", 
   RowBox[{"r1", ",", "maturity", ",", "coupon"}], "]"}], " ", "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.650936071317008*^9, 3.650936073082829*^9}, {
   3.6509361452808437`*^9, 3.6509361463502007`*^9}, {3.650936331444377*^9, 
   3.6509363321317368`*^9}, 3.6509366268416224`*^9, {3.650936727490555*^9, 
   3.6509367293981867`*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[124]:=",ExpressionUUID->"4a55bec5-6e19-497a-ba6f-cc716aedbeb8"],

Cell[BoxData["8.603504568575916`"], "Output",
 CellChangeTimes->{3.65093607384485*^9, 3.6509361472653837`*^9, 
  3.650936332985746*^9, 3.6509366276875668`*^9, 3.650936730068676*^9, 
  3.650938433457266*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[124]=",ExpressionUUID->"e77add13-f7b9-4876-afee-b257791f04a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"coupon", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "r1"}], ")"}], "^", "j"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", "7"}], "}"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{
  3.650936161913065*^9, {3.650936335563548*^9, 3.650936336611746*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[125]:=",ExpressionUUID->"4c0374d4-4c01-4002-8af4-4ea4cb0bb987"],

Cell[BoxData["82.27266780019285`"], "Output",
 CellChangeTimes->{3.650936106439658*^9, 3.650936163110363*^9, 
  3.650936337346352*^9, 3.650938436136044*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[125]=",ExpressionUUID->"6a46dd19-596d-4147-9110-69e6bc2ca0f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"fixinc", "[", 
   RowBox[{"r1", ",", 
    RowBox[{"maturity", "-", "8"}], ",", "coupon"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.650936132609906*^9, 3.650936167128868*^9}, {
   3.650936340743433*^9, 3.6509363417321053`*^9}, 3.6509366355756617`*^9, {
   3.650936736346891*^9, 3.650936744295064*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[126]:=",ExpressionUUID->"0ce9991d-e1c6-4233-8940-626a520e97f6"],

Cell[BoxData["119.05810419504883`"], "Output",
 CellChangeTimes->{3.650936167940241*^9, 3.650936342425705*^9, 
  3.6509366363367853`*^9, 3.650936745872116*^9, 3.650938439747855*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[126]=",ExpressionUUID->"5ddf1856-9dbf-4b8e-921e-074f5199011d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "+", "%%"}]], "Input",
 CellChangeTimes->{{3.650936170805499*^9, 3.65093617378986*^9}, {
   3.6509366408872557`*^9, 3.65093664599972*^9}, 3.65093676459931*^9, {
   3.650938442335656*^9, 3.650938448167328*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[127]:=",ExpressionUUID->"b6244b73-03e4-4cc5-8bf5-c47c68a01371"],

Cell[BoxData["201.33077199524166`"], "Output",
 CellChangeTimes->{3.650936174627557*^9, 3.650936346460676*^9, 
  3.6509366480443583`*^9, 3.6509367653912*^9, 3.6509384489122562`*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[127]=",ExpressionUUID->"cb7d2492-8db1-4d59-9b20-c4cbac762290"]
}, Open  ]],

Cell["\<\
1\:5e74\:5f8c\:4ee5\:964d\:306e\:5b89\:5168\:8cc7\:7523\:5229\:56de\:308a\
\:306f 0.1 % \:9ad8\:3044\:5024\:3068\:3057\:3066\:3001\:30af\:30fc\:30dd\
\:30f3\:518d\:6295\:8cc7\:6210\:679c\:3001\:5272\:5f15\:50b5\:306e\:58f2\:5374\
\:4fa1\:683c\:3001\:305d\:306e\:5408\:8a08\:3067\:3042\:308b\:6295\:8cc7\:6210\
\:679c\:306f\:6b21\:306e\:901a\:308a\:3067\:3059\:3002\
\>", "Text",
 CellChangeTimes->{{3.65093625152323*^9, 3.6509362636496067`*^9}, {
  3.650936771892702*^9, 3.6509367844024343`*^9}, {3.650936853331279*^9, 
  3.65093691757659*^9}, {3.650938457403078*^9, 
  3.6509384726317043`*^9}},ExpressionUUID->"f2fb6a2e-a289-479a-8451-\
dc720209cae8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r2", "//", "N"}]], "Input",
 CellChangeTimes->{{3.6509362702506523`*^9, 3.650936276620525*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[128]:=",ExpressionUUID->"a14c8ef6-1845-46f0-86f1-420cd0c5cac9"],

Cell[BoxData["0.0387722`"], "Output",
 CellChangeTimes->{{3.6509362722294207`*^9, 3.650936277325899*^9}, 
   3.650938479830017*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[128]=",ExpressionUUID->"cb64dbba-1e05-492b-947e-569189430775"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"coupon", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "r2"}], ")"}], "^", "j"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", "7"}], "}"}]}], "]"}], " ", "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.65093630898884*^9, 3.650936314525107*^9}, {
  3.6509363507003403`*^9, 3.650936376819026*^9}, {3.650938492919468*^9, 
  3.650938502168985*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[129]:=",ExpressionUUID->"b53d44eb-6b99-41f3-be82-9566cd8f22eb"],

Cell[BoxData["82.56613050963071`"], "Output",
 CellChangeTimes->{3.650936377532062*^9, 3.650938503693825*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[129]=",ExpressionUUID->"162bacf4-5773-4e63-8cb1-933cb0e50369"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"fixinc", "[", 
   RowBox[{"r2", ",", 
    RowBox[{"maturity", "-", "8"}], ",", "coupon"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.65093639974277*^9, 3.6509364034031267`*^9}, 
   3.650936655031683*^9, {3.650936797669421*^9, 3.650936802902175*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[130]:=",ExpressionUUID->"359de621-1c6e-4a9e-85e1-819e1325b4fd"],

Cell[BoxData["118.64908743066106`"], "Output",
 CellChangeTimes->{3.650936404100453*^9, 3.6509366556012983`*^9, 
  3.6509368040438633`*^9, 3.650938508910033*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[130]=",ExpressionUUID->"ae1ea9a0-94aa-4230-a477-c873f117f4fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "+", "%%"}]], "Input",
 CellChangeTimes->{{3.650936406416747*^9, 3.650936407962339*^9}, {
  3.6509366636422997`*^9, 3.650936668694881*^9}, {3.6509368085473127`*^9, 
  3.650936812604628*^9}, {3.650938512535001*^9, 3.650938515350548*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->
  "In[131]:=",ExpressionUUID->"e4f7e50b-5e9a-4ac7-8e09-aa295a3a2aec"],

Cell[BoxData["201.21521794029178`"], "Output",
 CellChangeTimes->{3.650936408816189*^9, 3.650936669274152*^9, 
  3.65093681326408*^9, 3.65093851619895*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "Out[131]=",ExpressionUUID->"bd4ea269-280e-4e44-af48-753a6ae36aa3"]
}, Open  ]],

Cell[TextData[{
 "\:9055\:3044\:304c\:5c11\:6570\:7b2c\:4e00\:4f4d\:306e\:3068\:3053\:308d\
\:306b\:304d\:307e\:3059\:3002\n\n\:3053\:306e\:3088\:3046\:306b\:3001\:30c7\
\:30e5\:30ec\:30fc\:30b7\:30e7\:30f3\:306f\:91d1\:5229(\:5b89\:5168\:8cc7\
\:7523\:5229\:56de\:308a)\:304c\:5909\:5316\:3059\:308b",
 StyleBox["\:91d1\:5229\:30ea\:30b9\:30af",
  FontColor->RGBColor[1, 0, 0]],
 "\:306b\:5bfe\:5fdc\:3059\:308b\:305f\:3081\:306b\:91cd\:8981\:306a\:6307\
\:6a19\:3068\:306a\:308a\:307e\:3059\:3002\:50b5\:5238\:6295\:8cc7\:3067\:306f\
\:3001\:3053\:306e\:307b\:304b\:306b\:3001\:5229\:6255\:3044\:3084\:5143\:672c\
\:652f\:6255\:3044\:304c\:5951\:7d04\:901a\:308a\:306b\:884c\:308f\:308c\:306a\
\:3044\:304b\:3082\:3057\:308c\:306a\:3044\:3068\:3044\:3046",
 StyleBox["\:4fe1\:7528\:30ea\:30b9\:30af",
  FontColor->RGBColor[1, 0, 0]],
 "\:3001\:50b5\:5238\:306e\:53d6\:5f15\:304c\:3042\:307e\:308a\:76db\:3093\
\:3067\:306a\:3044\:305f\:3081\:3044\:3056\:58f2\:308d\:3046\:3068\:3059\:308b\
\:6642\:306b\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:3088\:308a\:4f4e\:3044\:4fa1\
\:683c\:3067\:3057\:304b\:58f2\:5374\:3067\:304d\:306a\:3044\:53ef\:80fd\:6027\
\:304c\:3042\:308b\:3068\:3044\:3046",
 StyleBox["\:6d41\:52d5\:6027\:30ea\:30b9\:30af",
  FontColor->RGBColor[1, 0, 0]],
 "\:3001\:53d7\:3051\:53d6\:3063\:305f\:30af\:30fc\:30dd\:30f3\:3084\:5143\
\:672c\:3092\:518d\:6295\:8cc7\:3059\:308b\:3068\:304d\:306e\:91d1\:5229\:304c\
\:78ba\:5b9a\:3057\:3066\:3044\:306a\:3044\:3068\:3044\:3046\:518d\:6295\:8cc7\
\:30ea\:30b9\:30af\:3001\:50b5\:5238\:306b\:3088\:3063\:3066\:306f\:5f53\:521d\
\:306e\:6e80\:671f\:3088\:308a\:524d\:306b\:501f\:308a\:624b(\:50b5\:5238\
\:767a\:884c\:8005)\:306e\:90fd\:5408\:3067\:300c\:671f\:9650\:524d\:511f\
\:9084\:300d\:3055\:308c\:3001\:4ee5\:5f8c\:306e\:30af\:30fc\:30dd\:30f3\:3092\
\:53d7\:3051\:53d6\:308c\:306a\:3044\:3001\:518d\:6295\:8cc7\:304c\:5fc5\:8981\
\:306b\:306a\:308b\:306a\:3069\:306e",
 StyleBox["\:671f\:9650\:524d\:511f\:9084\:30ea\:30b9\:30af",
  FontColor->RGBColor[1, 0, 0]],
 "\:306a\:3069\:304c\:3042\:308a\:307e\:3059\:3002\n"
}], "Text",
 CellChangeTimes->{{3.650938792649877*^9, 3.650938816290804*^9}, {
  3.650938847894788*^9, 3.650938933321075*^9}, {3.650938976455716*^9, 
  3.650939234004656*^9}},ExpressionUUID->"5ae0cf74-09c4-477e-856b-\
c03969d5f93e"]
},
ScreenStyleEnvironment->"Working",
CellGrouping->Manual,
WindowSize->{1053, 738},
WindowMargins->{{32, Automatic}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (2017\:5e744\
\:670821\:65e5)",
StyleDefinitions->"Textbook.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 169, 3, 82, "Title", "ExpressionUUID" -> \
"584aecd5-1171-4b35-9e4b-89d13d63bab1"],
Cell[751, 27, 278, 4, 43, "Subtitle", "ExpressionUUID" -> \
"49146b89-0fd6-4a21-b6a2-50d7169c913d"],
Cell[CellGroupData[{
Cell[1054, 35, 315, 5, 43, "Subsubtitle", "ExpressionUUID" -> \
"8f83d600-66b9-4baf-a1eb-a7576116a43e"],
Cell[1372, 42, 403, 6, 33, "Text", "ExpressionUUID" -> \
"7a5a17a4-7241-44f1-a783-a049eba43622"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1824, 54, 445, 10, 67, "Subsubtitle", "ExpressionUUID" -> \
"78cd9ff0-b8b5-42b0-a11c-e2ad9832e53a"],
Cell[2272, 66, 3303, 47, 245, "Text", "ExpressionUUID" -> \
"a797ffe5-d850-4fd8-a89a-474a6080b3dc"]
}, Open  ]],
Cell[5590, 116, 376, 9, 67, "Subsubtitle", "ExpressionUUID" -> \
"aff99226-5d49-488b-85aa-460adda0bbf6"],
Cell[5969, 127, 2460, 37, 209, "Text", "ExpressionUUID" -> \
"c3054fdc-7c9b-497c-bb3f-f71b7f8548cb"],
Cell[CellGroupData[{
Cell[8454, 168, 545, 16, 46, "Input", "ExpressionUUID" -> \
"0b83dfbe-2ab1-4f7e-b44a-f01b2bd89339"],
Cell[9002, 186, 451, 14, 82, "Output", "ExpressionUUID" -> \
"42da6470-806a-480b-96da-6ed9b64baad4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9490, 205, 315, 7, 43, "Input", "ExpressionUUID" -> \
"e015b132-c649-4fae-ae15-cb29188446fa"],
Cell[9808, 214, 182, 3, 59, "Output", "ExpressionUUID" -> \
"b9662df5-5b51-45b4-9ec1-83278a42c19e"]
}, Open  ]],
Cell[10005, 220, 1090, 17, 55, "Text", "ExpressionUUID" -> \
"74dd76e6-a12b-424c-963b-5b930794b216"],
Cell[CellGroupData[{
Cell[11120, 241, 594, 17, 46, "Input", "ExpressionUUID" -> \
"4f862482-1377-4c1c-8498-d51eae50f35d"],
Cell[11717, 260, 368, 10, 82, "Output", "ExpressionUUID" -> \
"39ef85e5-b892-45e0-b99c-7470561202d8"]
}, Open  ]],
Cell[12100, 273, 624, 9, 33, "Text", "ExpressionUUID" -> \
"2c14d533-1cae-4cff-be52-18ce028f1a6a"],
Cell[CellGroupData[{
Cell[12749, 286, 315, 7, 43, "Input", "ExpressionUUID" -> \
"94cf6616-bfa8-48c0-9a73-ee0296ce91a0"],
Cell[13067, 295, 178, 3, 59, "Output", "ExpressionUUID" -> \
"087f7d55-a8eb-4a06-a406-ba8e97ee21bc"]
}, Open  ]],
Cell[13260, 301, 699, 12, 33, "Text", "ExpressionUUID" -> \
"d3572ce0-cd82-41b3-b29a-dab1f7297a54"],
Cell[CellGroupData[{
Cell[13984, 317, 370, 8, 43, "Input", "ExpressionUUID" -> \
"6dbc91ab-0e12-442b-aac9-b631c73bc85d"],
Cell[14357, 327, 255, 5, 76, "Output", "ExpressionUUID" -> \
"84f7da4e-ee5d-4c0b-96fa-1102ed872223"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14649, 337, 254, 5, 43, "Input", "ExpressionUUID" -> \
"1591fc13-4a75-4fdb-bb09-53df01c295b5"],
Cell[14906, 344, 221, 3, 59, "Output", "ExpressionUUID" -> \
"3908de37-a714-426f-a19b-4885ce791458"]
}, Open  ]],
Cell[15142, 350, 770, 11, 33, "Text", "ExpressionUUID" -> \
"b82373c5-3f58-4498-90c6-9ab40bcf990d"],
Cell[CellGroupData[{
Cell[15937, 365, 424, 9, 43, "Input", "ExpressionUUID" -> \
"e538d9b1-26b7-437b-bba9-203ee6a2a2bf"],
Cell[16364, 376, 288, 6, 77, "Output", "ExpressionUUID" -> \
"fccb002b-837f-459c-8eeb-56b31fb0da8b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16689, 387, 255, 5, 43, "Input", "ExpressionUUID" -> \
"3d31d9f8-fb11-4559-8aaa-289fa03b5511"],
Cell[16947, 394, 244, 3, 59, "Output", "ExpressionUUID" -> \
"e933d2f9-bb43-435f-a5ac-b8bc89ad1429"]
}, Open  ]],
Cell[17206, 400, 1722, 28, 171, "Text", "ExpressionUUID" -> \
"6d2fa8fc-fec8-41fb-81e5-70eac2449d50"],
Cell[18931, 430, 742, 21, 46, "Input", "ExpressionUUID" -> \
"6c1664dc-c215-4fa9-86e4-562775f6f4ac"],
Cell[19676, 453, 1476, 22, 77, "Text", "ExpressionUUID" -> \
"c20871f0-f00f-4f5d-84cc-0e394d667c89"],
Cell[CellGroupData[{
Cell[21177, 479, 257, 5, 43, "Input", "ExpressionUUID" -> \
"358f316b-09c2-4212-b536-2171d74d14db"],
Cell[21437, 486, 550, 16, 82, "Output", "ExpressionUUID" -> \
"998c4cf9-777c-481d-8229-d946ec117e6e"]
}, Open  ]],
Cell[22002, 505, 866, 15, 119, "Text", "ExpressionUUID" -> \
"aa5abb01-7b1d-46c3-a570-e25f022b1b25"],
Cell[CellGroupData[{
Cell[22893, 524, 399, 10, 43, "Input", "ExpressionUUID" -> \
"e2a2d05e-e39a-417c-8b88-ab1a6f724423"],
Cell[23295, 536, 2835, 59, 374, "Output", "ExpressionUUID" -> \
"b40ae6bd-ff22-4a66-b66e-9dd0644a4f2e"]
}, Open  ]],
Cell[26145, 598, 218, 4, 33, "Text", "ExpressionUUID" -> \
"92a5e1f3-76a7-4e67-bb9d-4c70cab5dcfa"],
Cell[CellGroupData[{
Cell[26388, 606, 837, 20, 46, "Input", "ExpressionUUID" -> \
"89090a22-4170-45da-aeb9-da3fd16fbd1f"],
Cell[27228, 628, 3082, 64, 315, "Output", "ExpressionUUID" -> \
"d708f5d0-ba74-413a-889d-40cabfac71a0"]
}, Open  ]],
Cell[30325, 695, 336, 5, 33, "Text", "ExpressionUUID" -> \
"983d47c0-7bca-4911-83a2-7a872b3130d9"],
Cell[CellGroupData[{
Cell[30686, 704, 956, 24, 78, "Input", "ExpressionUUID" -> \
"46c7a0d4-52cb-4e40-a224-d19536dcaf3b"],
Cell[31645, 730, 4886, 95, 378, "Output", "ExpressionUUID" -> \
"8af03c4f-8d22-4dbb-90f5-87a24172bae9"]
}, Open  ]],
Cell[36546, 828, 1079, 19, 133, "Text", "ExpressionUUID" -> \
"19443454-51b5-4dca-af03-5e4763b70df9"],
Cell[CellGroupData[{
Cell[37650, 851, 282, 6, 43, "Input", "ExpressionUUID" -> \
"cfaf50f8-59cc-4a65-bd6f-6191d32a3ca6"],
Cell[37935, 859, 181, 3, 59, "Output", "ExpressionUUID" -> \
"8e1fdf41-82cb-44f1-9f9e-fd88679a32c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38153, 867, 283, 6, 43, "Input", "ExpressionUUID" -> \
"2bfd33a9-a532-4a4f-bf65-3ab3c15a8a7c"],
Cell[38439, 875, 181, 3, 59, "Output", "ExpressionUUID" -> \
"39a58ac3-7df4-41a5-857a-e561897ef507"]
}, Open  ]],
Cell[38635, 881, 315, 5, 33, "Text", "ExpressionUUID" -> \
"fd64a9d9-5846-497f-ad59-883856ede8e5"],
Cell[CellGroupData[{
Cell[38975, 890, 1154, 29, 78, "Input", "ExpressionUUID" -> \
"c5fa9ed8-4148-46f4-aa23-a9d5d33f1442"],
Cell[40132, 921, 8434, 156, 345, "Output", "ExpressionUUID" -> \
"c0430948-707e-4059-8856-01b23cba8146"]
}, Open  ]],
Cell[48581, 1080, 433, 9, 67, "Subsubtitle", "ExpressionUUID" -> \
"eaab67ac-e65d-4ccf-90cc-cc21834e9e9f"],
Cell[49017, 1091, 963, 17, 55, "Text", "ExpressionUUID" -> \
"95d0b6e9-15fd-4fb0-af28-70fee9841909"],
Cell[49983, 1110, 399, 10, 43, "Input", "ExpressionUUID" -> \
"53ecf488-f339-4898-a52f-ac3131230e97"],
Cell[50385, 1122, 1524, 25, 134, "Text", "ExpressionUUID" -> \
"8e86e986-78ad-4ec1-9971-0d0c8a1c0ed0"],
Cell[CellGroupData[{
Cell[51934, 1151, 302, 7, 43, "Input", "ExpressionUUID" -> \
"3e24af72-4612-4490-9e71-a993a7854567"],
Cell[52239, 1160, 552, 17, 82, "Output", "ExpressionUUID" -> \
"a11fcc33-0ac5-4298-9b42-fa925a13cd99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52828, 1182, 313, 5, 43, "Input", "ExpressionUUID" -> \
"b7b7cf77-e715-461b-9062-695d5aeff636"],
Cell[53144, 1189, 481, 13, 88, "Output", "ExpressionUUID" -> \
"a9c5c759-5a90-43c4-bb69-4618fb0de1dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53662, 1207, 755, 17, 46, "Input", "ExpressionUUID" -> \
"ec2ba183-c6f8-4376-a9b6-8a982835bc9c"],
Cell[54420, 1226, 3093, 65, 288, "Output", "ExpressionUUID" -> \
"c472726c-8c3a-4b1d-a14e-7bd9acdff8f6"]
}, Open  ]],
Cell[57528, 1294, 320, 5, 33, "Text", "ExpressionUUID" -> \
"d136acb9-bc22-44d2-8dd4-2ca555717183"],
Cell[CellGroupData[{
Cell[57873, 1303, 345, 8, 43, "Input", "ExpressionUUID" -> \
"27e79b1f-fc9f-4d71-ad93-8ca5853d3d73"],
Cell[58221, 1313, 951, 28, 88, "Output", "ExpressionUUID" -> \
"af528484-8bbc-49a0-93b9-67209a404c21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59209, 1346, 723, 16, 46, "Input", "ExpressionUUID" -> \
"1c482f07-1f34-4148-998f-4a50be0c18cf"],
Cell[59935, 1364, 3145, 65, 289, "Output", "ExpressionUUID" -> \
"aeb222e5-bd0b-4d16-bf73-e3f258456711"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63117, 1434, 677, 17, 46, "Input", "ExpressionUUID" -> \
"b2dd5384-9ec8-4bfb-8e93-06d032238667"],
Cell[63797, 1453, 4863, 95, 287, "Output", "ExpressionUUID" -> \
"bcdb94ea-ea08-4a4e-b08a-6fddb8050d4c"]
}, Open  ]],
Cell[68675, 1551, 1639, 26, 165, "Text", "ExpressionUUID" -> \
"95d9fa26-3d64-49c1-9898-2f9a57451a00"],
Cell[70317, 1579, 237, 4, 43, "Input", "ExpressionUUID" -> \
"c6084871-9602-40f5-9ef0-54499adccfd6"],
Cell[70557, 1585, 712, 20, 46, "Input", "ExpressionUUID" -> \
"d3c932bc-8c71-4978-ab91-6d732b6b829a"],
Cell[71272, 1607, 239, 4, 43, "Input", "ExpressionUUID" -> \
"c2f93d93-4b32-496d-b65f-50f92e907b4c"],
Cell[71514, 1613, 596, 14, 43, "Input", "ExpressionUUID" -> \
"c8ceac93-cfd1-4ede-a377-c6272991768a"],
Cell[CellGroupData[{
Cell[72135, 1631, 364, 7, 43, "Input", "ExpressionUUID" -> \
"9235bbb1-86cf-4c19-b5b8-89abd564718b"],
Cell[72502, 1640, 526, 15, 82, "Output", "ExpressionUUID" -> \
"3de1dbc5-1e6d-4d61-9341-ff7b1e565a39"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73065, 1660, 414, 7, 43, "Input", "ExpressionUUID" -> \
"500d033f-7d6a-4b10-ae17-c8aafd60aa91"],
Cell[73482, 1669, 645, 19, 82, "Output", "ExpressionUUID" -> \
"a3e98360-aaad-4c37-b7c1-b7eeaf85e374"]
}, Open  ]],
Cell[74142, 1691, 4338, 61, 471, "Text", "ExpressionUUID" -> \
"cf1b302e-ff57-417a-961c-59422890dafa"],
Cell[CellGroupData[{
Cell[78505, 1756, 831, 20, 46, "Input", "ExpressionUUID" -> \
"1f1ca7b8-c444-4fa3-8413-a3afdf71c0e6"],
Cell[79339, 1778, 1960, 66, 134, "Output", "ExpressionUUID" -> \
"a81a19d3-cd6f-4df2-b802-4a13e1b2ce27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81336, 1849, 1197, 29, 110, "Input", "ExpressionUUID" -> \
"8500c98d-9904-4ffa-80b1-e8c0b7c09b59"],
Cell[82536, 1880, 14680, 296, 335, "Output", "ExpressionUUID" -> \
"898ba679-7957-4b85-a4dd-5d4f300416c7"]
}, Open  ]],
Cell[97231, 2179, 2224, 33, 258, "Text", "ExpressionUUID" -> \
"6a5c75d1-ab64-4b55-98ba-02fd12b7108a"],
Cell[99458, 2214, 334, 9, 67, "Subsubtitle", "ExpressionUUID" -> \
"51a83691-e65e-4b79-b971-73976c05d3e0"],
Cell[99795, 2225, 1438, 45, 107, "Input", "ExpressionUUID" -> \
"11188bdf-8f95-4a8a-aaf9-f09850ea8df4"],
Cell[101236, 2272, 871, 15, 112, "Text", "ExpressionUUID" -> \
"5c912323-917b-4656-9c58-844b28f440ff"],
Cell[CellGroupData[{
Cell[102132, 2291, 300, 6, 43, "Input", "ExpressionUUID" -> \
"3e51a7ff-1dc6-4edf-8301-b1b1a56e3cfe"],
Cell[102435, 2299, 180, 3, 59, "Output", "ExpressionUUID" -> \
"ada4c23f-8ebc-47b5-bf38-54106abf35a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102652, 2307, 299, 6, 43, "Input", "ExpressionUUID" -> \
"e1a34ed3-3c9f-40d1-b930-b35dfb92af5c"],
Cell[102954, 2315, 177, 3, 59, "Output", "ExpressionUUID" -> \
"3ca24d97-9165-4b78-893e-75bbb5ade6c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103168, 2323, 755, 19, 78, "Input", "ExpressionUUID" -> \
"2ee219fa-5442-4eab-a583-cb3372676717"],
Cell[103926, 2344, 2501, 55, 283, "Output", "ExpressionUUID" -> \
"002e396e-4993-4bcb-90d3-876dfd55ae53"]
}, Open  ]],
Cell[106442, 2402, 2175, 35, 237, "Text", "ExpressionUUID" -> \
"ac14aaaa-c1d1-4fd3-ac4d-9cb721b3e3f2"],
Cell[108620, 2439, 1694, 25, 186, "Text", "ExpressionUUID" -> \
"1fb88659-8526-4318-9d46-d67ab281d543"],
Cell[110317, 2466, 331, 7, 43, "Input", "ExpressionUUID" -> \
"c685cffb-09bf-4b4b-bc5d-b2e1bdccd7c1"],
Cell[CellGroupData[{
Cell[110673, 2477, 230, 4, 43, "Input", "ExpressionUUID" -> \
"aa262a56-bacd-4777-967d-2da4d2ee75ad"],
Cell[110906, 2483, 210, 3, 59, "Output", "ExpressionUUID" -> \
"49eba52c-eb7d-4773-8ecc-848a7a971999"]
}, Open  ]],
Cell[111131, 2489, 502, 7, 33, "Text", "ExpressionUUID" -> \
"2b6fa172-dd6d-4d87-830e-8e257337ee7d"],
Cell[CellGroupData[{
Cell[111658, 2500, 305, 6, 43, "Input", "ExpressionUUID" -> \
"5a3e41d6-17f3-4ce2-ac1a-3b5a9dc4afeb"],
Cell[111966, 2508, 220, 3, 59, "Output", "ExpressionUUID" -> \
"192df83f-534b-4421-af8a-3630bef22064"]
}, Open  ]],
Cell[112201, 2514, 807, 14, 63, "Text", "ExpressionUUID" -> \
"88aaf4db-e20e-4e01-9d33-c097aa1fb79c"],
Cell[CellGroupData[{
Cell[113033, 2532, 322, 7, 43, "Input", "ExpressionUUID" -> \
"c56ca944-7e23-4cf5-bc23-8e0c7bd77020"],
Cell[113358, 2541, 221, 3, 59, "Output", "ExpressionUUID" -> \
"0f582d34-7cea-4a56-b304-385d7b5e2ec5"]
}, Open  ]],
Cell[113594, 2547, 1195, 19, 135, "Text", "ExpressionUUID" -> \
"b81cd1b6-d0cd-4a6b-81e2-7752453ed1a5"],
Cell[CellGroupData[{
Cell[114814, 2570, 492, 12, 43, "Input", "ExpressionUUID" -> \
"9c76f46c-9c55-4423-89a0-b4434c23c8ed"],
Cell[115309, 2584, 953, 31, 59, "Output", "ExpressionUUID" -> \
"ceb6f3c7-6eb5-4d71-a499-36ed1a8cf63e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116299, 2620, 459, 11, 43, "Input", "ExpressionUUID" -> \
"a8321fda-cf37-41ea-82ae-02937631b4d9"],
Cell[116761, 2633, 300, 5, 76, "Output", "ExpressionUUID" -> \
"5d39a2ff-c516-43cf-b571-0c786c26e38c"]
}, Open  ]],
Cell[117076, 2641, 341, 5, 33, "Text", "ExpressionUUID" -> \
"43118b3f-7127-4db1-8883-454a922363c7"],
Cell[CellGroupData[{
Cell[117442, 2650, 541, 16, 43, "Input", "ExpressionUUID" -> \
"887a9ae1-44eb-4f69-a0ca-0031b41ae830"],
Cell[117986, 2668, 276, 5, 76, "Output", "ExpressionUUID" -> \
"e502a7fe-e7a5-4daa-8e84-b01d68d6872e"]
}, Open  ]],
Cell[118277, 2676, 376, 6, 33, "Text", "ExpressionUUID" -> \
"d14b57a6-ca2f-4bc9-9101-9bd88d22092c"],
Cell[CellGroupData[{
Cell[118678, 2686, 378, 9, 43, "Input", "ExpressionUUID" -> \
"8f7f52a6-8283-4b8c-85cf-cf471a0a8349"],
Cell[119059, 2697, 276, 5, 76, "Output", "ExpressionUUID" -> \
"4895d8c7-1037-4436-80d4-db08613496f6"]
}, Open  ]],
Cell[119350, 2705, 177, 3, 33, "Text", "ExpressionUUID" -> \
"1c9ca2aa-00a5-4513-927d-b317984cb788"],
Cell[CellGroupData[{
Cell[119552, 2712, 380, 7, 43, "Input", "ExpressionUUID" -> \
"bfab4463-01b6-48fe-81cd-3563e81545ef"],
Cell[119935, 2721, 304, 6, 76, "Output", "ExpressionUUID" -> \
"ac8eefc8-4d81-4665-9559-ef02a27d3f60"]
}, Open  ]],
Cell[120254, 2730, 962, 16, 113, "Text", "ExpressionUUID" -> \
"578b8410-d327-47e9-b21a-e5de7522bf8c"],
Cell[121219, 2748, 297, 7, 54, "Input", "ExpressionUUID" -> \
"ec0fb8f3-e86e-4c95-8ae1-725a2e2b58c0"],
Cell[121519, 2757, 418, 8, 49, "Text", "ExpressionUUID" -> \
"745beaae-f8dd-4fba-9036-1c0ec1ee5037"],
Cell[CellGroupData[{
Cell[121962, 2769, 520, 11, 54, "Input", "ExpressionUUID" -> \
"ed141dc9-29a0-42e4-8350-36dd521ae3e9"],
Cell[122485, 2782, 351, 6, 103, "Output", "ExpressionUUID" -> \
"72ce9ec6-b78a-4949-a601-96bdafed47bd"]
}, Open  ]],
Cell[122851, 2791, 1025, 15, 82, "Text", "ExpressionUUID" -> \
"e4bef72f-6656-41ff-8d44-05eedcb80969"],
Cell[CellGroupData[{
Cell[123901, 2810, 494, 13, 54, "Input", "ExpressionUUID" -> \
"609e6de4-a272-4b76-aa1f-d2fc4f9d309e"],
Cell[124398, 2825, 1000, 33, 111, "Output", "ExpressionUUID" -> \
"bbd39bb9-fc71-46ac-8351-23b90d91e0d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125435, 2863, 555, 12, 54, "Input", "ExpressionUUID" -> \
"41cc0bbe-4e6f-433c-94dd-73899e767b08"],
Cell[125993, 2877, 319, 5, 103, "Output", "ExpressionUUID" -> \
"10a58d31-09bf-4127-a6ea-7ad9bb19f08b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126349, 2887, 473, 10, 54, "Input", "ExpressionUUID" -> \
"10643ef3-ca1b-42b3-b78d-6485cd5e0db5"],
Cell[126825, 2899, 389, 6, 103, "Output", "ExpressionUUID" -> \
"b908275a-6cc7-4ce6-8eac-7ad14c2d93d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127251, 2910, 634, 11, 54, "Input", "ExpressionUUID" -> \
"8389bb38-9e68-4949-94f5-92e5904c6c2c"],
Cell[127888, 2923, 433, 7, 103, "Output", "ExpressionUUID" -> \
"2937d6ee-c41c-4f6f-a573-a9d73cbd446e"]
}, Open  ]],
Cell[128336, 2933, 1961, 31, 322, "Text", "ExpressionUUID" -> \
"1e4ea9d8-57ef-4b73-befd-a4ea3b6a68f7"],
Cell[130300, 2966, 285, 7, 54, "Input", "ExpressionUUID" -> \
"32217749-a2c5-48ca-8447-8d266ea609b6"],
Cell[130588, 2975, 260, 6, 54, "Input", "ExpressionUUID" -> \
"2846ab7f-78ba-4795-9263-dfa7cee6591d"],
Cell[CellGroupData[{
Cell[130873, 2985, 505, 11, 54, "Input", "ExpressionUUID" -> \
"4a55bec5-6e19-497a-ba6f-cc716aedbeb8"],
Cell[131381, 2998, 319, 6, 103, "Output", "ExpressionUUID" -> \
"e77add13-f7b9-4876-afee-b257791f04a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131737, 3009, 482, 14, 54, "Input", "ExpressionUUID" -> \
"4c0374d4-4c01-4002-8af4-4ea4cb0bb987"],
Cell[132222, 3025, 269, 5, 103, "Output", "ExpressionUUID" -> \
"6a46dd19-596d-4147-9110-69e6bc2ca0f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132528, 3035, 464, 11, 54, "Input", "ExpressionUUID" -> \
"0ce9991d-e1c6-4233-8940-626a520e97f6"],
Cell[132995, 3048, 294, 5, 103, "Output", "ExpressionUUID" -> \
"5ddf1856-9dbf-4b8e-921e-074f5199011d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133326, 3058, 351, 7, 54, "Input", "ExpressionUUID" -> \
"b6244b73-03e4-4cc5-8bf5-c47c68a01371"],
Cell[133680, 3067, 294, 5, 103, "Output", "ExpressionUUID" -> \
"cb7d2492-8db1-4d59-9b20-c4cbac762290"]
}, Open  ]],
Cell[133989, 3075, 662, 11, 82, "Text", "ExpressionUUID" -> \
"f2fb6a2e-a289-479a-8451-dc720209cae8"],
Cell[CellGroupData[{
Cell[134676, 3090, 233, 5, 54, "Input", "ExpressionUUID" -> \
"a14c8ef6-1845-46f0-86f1-420cd0c5cac9"],
Cell[134912, 3097, 244, 5, 103, "Output", "ExpressionUUID" -> \
"cb64dbba-1e05-492b-947e-569189430775"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135193, 3107, 564, 16, 54, "Input", "ExpressionUUID" -> \
"b53d44eb-6b99-41f3-be82-9566cd8f22eb"],
Cell[135760, 3125, 222, 4, 103, "Output", "ExpressionUUID" -> \
"162bacf4-5773-4e63-8cb1-933cb0e50369"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136019, 3134, 411, 10, 54, "Input", "ExpressionUUID" -> \
"359de621-1c6e-4a9e-85e1-819e1325b4fd"],
Cell[136433, 3146, 274, 5, 103, "Output", "ExpressionUUID" -> \
"ae1ea9a0-94aa-4230-a477-c873f117f4fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136744, 3156, 378, 7, 54, "Input", "ExpressionUUID" -> \
"e4f7e50b-5e9a-4ac7-8e09-aa295a3a2aec"],
Cell[137125, 3165, 268, 5, 103, "Output", "ExpressionUUID" -> \
"bd4ea269-280e-4e44-af48-753a6ae36aa3"]
}, Open  ]],
Cell[137408, 3173, 2320, 37, 343, "Text", "ExpressionUUID" -> \
"5ae0cf74-09c4-477e-856b-c03969d5f93e"]
}
]
*)