(* 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[     77230,       2063]
NotebookOptionsPosition[     59812,       1635]
NotebookOutlinePosition[     60470,       1661]
CellTagsIndexPosition[     60384,       1656]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:6570\:7406\:30d5\:30a1\:30a4\:30ca\:30f3\:30b9 ", "Title",ExpressionUUID->"2136e587-9845-4f5f-ade6-8637f8526c85"],

Cell["3. Implied Forward (\:5148\:7269\:91d1\:5229)", "Subtitle",ExpressionUUID->"aa24dfd4-7384-47bb-a563-857db5cd06f4"],

Cell[TextData[StyleBox["3.1 What a YTM curve implies ?",
 FontWeight->"Bold"]], "Subsubtitle",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"cff2e786-325e-4033-8612-074f07141c2c"],

Cell[TextData[{
 "\:3000\:4eca\:65e5\:306f\:5148\:7269\:91d1\:5229( ",
 StyleBox["Implied Forward Rate",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " )\:306b\:3064\:3044\:3066\:5b66\:3076\:3002\:8a73\:3057\:3044\:8003\:3048\
\:65b9\:306f\:30d1\:30ef\:30fc\:30dd\:30a4\:30f3\:30c8\:306b\:8b72\:3063\:3066\
\:ff0c\:4eca\:56de\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:306f ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:306e\:30b3\:30de\:30f3\:30c9\:3092\:4e2d\:5fc3\:306b\:89e3\:8aac\:3059\
\:308b\:3002\n\:3000\:5272\:5f15\:50b5\:306e\:73fe\:5728\:4fa1\:683c\:304c\
\:6b21\:306e\:3088\:3046\:306b\:4e0e\:3048\:3089\:308c\:3066\:3044\:308b\:3002"
}], "Text",ExpressionUUID->"cd65603e-1b66-4f3b-9d32-82a9d90f1bca"],

Cell["\:5272\:5f15\:50b5\:73fe\:5728\:4fa1\:683c:1\:5e74\:3082\:306e \
98\:5186, 2\:5e74\:3082\:306e 96\:5186", "Text",
 TextAlignment->Center,
 Background->RGBColor[
  1, 1, 0.501961],ExpressionUUID->"40738a26-2dd4-48fe-8ce2-6716931d9532"],

Cell["\:30a4\:30fc\:30eb\:30c9\:3092\:6c42\:3081\:308b\:306b\:306f\:6b21\:306e\
\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f\:3002", "Text",
 CellChangeTimes->{{3.6507125952427597`*^9, 
  3.650712600002599*^9}},ExpressionUUID->"50125d7e-8741-4dc8-8358-\
db67f99ecd6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"98", 
      RowBox[{"(", 
       RowBox[{"1", "+", "r01"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
   RowBox[{"{", "r01", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"e27404ad-c5c0-4693-bc33-fe38bbb2574e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"r01", "\[Rule]", "0.02040816326530612`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.650697556543428*^9, 3.6507126064988203`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[1]=",ExpressionUUID->"b22d5fff-59ff-4f6d-af10-363206f0c0d9"]
}, Open  ]],

Cell[TextData[{
 "\:89e3\:3044\:305f\:7d50\:679c\:306f",
 StyleBox["\:30ea\:30b9\:30c8",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3067\:4e0e\:3048\:3089\:308c\:308b\:3002\:6ce2\:304b\:3063\:3053\:3067\
\:304f\:304f\:3063\:3066\:4e26\:3079\:305f\:3082\:306e\:304c\:30ea\:30b9\:30c8\
\:3067\:3042\:308b(MF15-2-3.nb\:53c2\:7167)\:3002\:3053\:3053\:3067\:306f\
\:ff5br01\[Rule]0.0204082}\:304c\:3072\:3068\:3064\:3060\:3051\:4e26\:3093\
\:3067\:3044\:308b\:3002\:3053\:3053(\:ff05)\:304b\:3089\:ff0c\:ff11\:756a\
\:76ee\:306b\:4e26\:3093\:3067\:3044\:308b\:3082\:306e\:3092\:3068\:308a\:3060\
\:3057\:ff0c\:53d6\:308a\:51fa\:3057\:305f\:7d50\:679c\:306b( subrule1 \:3068\
\:3044\:3046)\:300c\:540d\:524d\:300d\:3092\:3064\:3051\:308b\:305f\:3081\
\:306b\:306f\:ff0c\:6b21\:306e\:3088\:3046\:306b\:3059\:308b\:3002(\:ff05\
\:306f\:4e00\:3064\:524d\:306e\:7d50\:679c\:3092\:793a\:3059\:ff09"
}], "Text",
 CellChangeTimes->{{3.522297069482531*^9, 3.522297069978139*^9}, {
  3.650712621033692*^9, 
  3.650712621937825*^9}},ExpressionUUID->"ff70b9f5-b6c4-49fb-96e1-\
9c7f0140ae3d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule1", "=", 
  RowBox[{"Part", "[", 
   RowBox[{"%", ",", "1"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[2]:=",ExpressionUUID->"8709ec65-b8ec-4780-926c-b07206c60cd5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r01", "\[Rule]", "0.02040816326530612`"}], "}"}]], "Output",
 CellChangeTimes->{3.650697559408773*^9, 3.650712634492557*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[2]=",ExpressionUUID->"083978d0-ff4a-406e-a280-7d5de2c21789"]
}, Open  ]],

Cell["\<\
\:308f\:3056\:308f\:3056\:53d6\:308a\:51fa\:3059\:547d\:4ee4\:3092\:5b66\:3093\
\:3067\:3044\:308b\:306e\:306f\:ff0c\:30ea\:30b9\:30c8\:306b\:306f\:901a\:5e38\
\:ff0c\:8907\:6570\:306e\[CloseCurlyDoubleQuote]\:8981\:7d20\
\[CloseCurlyDoubleQuote]\:304c\:4e26\:3093\:3067\:3044\:308b\:305f\:3081\:ff0c\
\:6b32\:3057\:3044\:3082\:306e\:3092\:53d6\:308a\:51fa\:3059\:3053\:3068\:304c\
\:5fc5\:8981\:306b\:306a\:308b\:304b\:3089\:3067\:3042\:308b\:3002\:6b21\:306f\
2\:5e74\:3082\:306e\:5272\:5f15\:50b5\:306e\:30a4\:30fc\:30eb\:30c9\:306e\
\:8a08\:7b97\:3067\:3042\:308b\:3002\
\>", "Text",ExpressionUUID->"7b6e80ad-37be-4197-8a69-19e2edb75bbc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"96", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r02"}], ")"}], "^", "2"}]}], "\[Equal]", "100"}], 
    "}"}], ",", 
   RowBox[{"{", "r02", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[3]:=",ExpressionUUID->"9ef307d1-a83b-4019-9742-51b68e8afdae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r02", "\[Rule]", 
     RowBox[{"-", "2.0206207261596574`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r02", "\[Rule]", "0.02062072615965754`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.650697562230465*^9, 3.650712643404698*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[3]=",ExpressionUUID->"5d714ed8-e32e-4b2c-88c6-2cc0b69dc707"]
}, Open  ]],

Cell["\<\
2\:6b21\:65b9\:7a0b\:5f0f\:306a\:306e\:3067,\:300c\:89e3\:300d\:306f2\:3064\
\:3002\:30d7\:30e9\:30b9\:306e\:5024\:3067\:3042\:308b\:ff0c2\:3064\:3081\
\:3092\:53d6\:308a\:51fa\:3057\:3066\:ff0c\:540d\:524d\:3092\:4ed8\:3051\:3066\
\:304a\:3053\:3046(MF15-2-4.nb\:306e\:6700\:5f8c\:3092\:53c2\:7167\:306e\:3053\
\:3068\:3002)\:3002\
\>", "Text",
 CellChangeTimes->{{3.522297078795024*^9, 3.522297079466597*^9}, {
  3.650712651449677*^9, 
  3.650712656356962*^9}},ExpressionUUID->"199dbfd0-a844-4227-8eed-\
61522ec5ca1f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule2", "=", 
  RowBox[{"Part", "[", 
   RowBox[{"%", ",", "2"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[4]:=",ExpressionUUID->"5a1e57b7-9e6f-49f5-8506-41dfb62a3576"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r02", "\[Rule]", "0.02062072615965754`"}], "}"}]], "Output",
 CellChangeTimes->{3.650697565068096*^9, 3.65071264878714*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[4]=",ExpressionUUID->"b99e161d-fbb3-400c-b83a-564ba4259472"]
}, Open  ]],

Cell[TextData[{
 "\:306a\:304a, r01 \:3068\:304b r02 \:306f",
 StyleBox["\:300c",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\:30b7\:30f3\:30dc\:30eb",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\:300d",
  FontColor->RGBColor[1, 0, 0]],
 "\:3067\:3042\:308b\:3002\:ff58\:3067\:3082\:ff59\:3067\:3082(\:6700\:521d\
\:306e\:6587\:5b57\:304c\:5927\:6587\:5b57\:3067\:59cb\:307e\:3089\:306a\:3044\
\:9650\:308a\:ff0c",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:304c\:3082\:3068\:3082\:3068\:6301\:3063\:3066\:3044\:308b\:30b3\:30de\
\:30f3\:30c9\:3084\:5b9a\:6570(Pi\:306a\:3069)\:306a\:3069\:3068\:6df7\:540c\
\:3055\:308c\:306a\:3044\:306e\:3067)\:4f55\:3067\:3082\:826f\:3044\:3002\
\:3053\:3053\:3067\:306f\:6642\:70b90\:304b\:3089\:6642\:70b91\:307e\:3067\
\:306e(\:ff11\:671f\:9593\:ff09\:306e\:30a4\:30fc\:30eb\:30c9\:ff0c\:6642\
\:70b90\:304b\:3089\:6642\:70b92\:307e\:3067\:306e(2\:671f\:9593\:5206\:306e\
\:5e73\:5747)\:30a4\:30fc\:30eb\:30c9\:3068\:3044\:3046\:3064\:3082\:308a\
\:3067\:3042\:308b\:3002"
}], "Text",ExpressionUUID->"690012fd-6581-45c9-842c-7c1a0749bb7a"],

Cell[TextData[{
 "\:3055\:3066, ",
 StyleBox["ListPlot",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" ",
  FontWeight->"Bold"],
 "\:3068\:3044\:3046\:547d\:4ee4\:3092\:4f7f\:3063\:3066\:30b0\:30e9\:30d5\
\:3092\:66f8\:304f\:306b\:306f\:ff0c{x\:5ea7\:6a19\:ff0cy\:5ea7\:6a19}\:3068\
\:3044\:3046\:8981\:7d20\:3092\:3044\:304f\:3064\:304b\:4e26\:3079\:305f\:30ea\
\:30b9\:30c8\:3092\:4f5c\:3089\:306a\:3051\:308c\:3070\:306a\:3089\:306a\:3044\
\:3002\:30a4\:30fc\:30eb\:30c9\:30ab\:30fc\:30d6\:306e\:5834\:5408\:ff0c\:ff58\
\:5ea7\:6a19\:306f\:671f\:9593\:306e\:9577\:3055\:ff0cy\:5ea7\:6a19\:306f\
\:305d\:306e\:671f\:9593\:306b\:5bfe\:5fdc\:3059\:308b\:30a4\:30fc\:30eb\:30c9\
\:3067\:3042\:308b\:3002\:3053\:3053\:306e\:4f8b\:3067\:306f,\n{{1, \
0.0204082},{2 , 0.0206207}} \:3068\:3044\:3046\:30ea\:30b9\:30c8\:3092\:4f5c\
\:308a\:305f\:3044\:3002"
}], "Text",
 CellChangeTimes->{
  3.650769114850923*^9},ExpressionUUID->"87bc155e-f568-4ec7-afc8-\
3440be02b7be"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yd", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "r01"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "r02"}], "}"}]}], "}"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[5]:=",ExpressionUUID->"8306cfe8-9131-444f-9a6f-880b11c31bc0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "r01"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "r02"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.650697569722453*^9, 3.65071271643093*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[5]=",ExpressionUUID->"a7eae6ff-3402-4686-a96b-be35ef4d12cc"]
}, Open  ]],

Cell["\:3068\:3084\:3063\:305f\:306e\:3067\:306f,  r01 \:3084 r02 \
\:306f\:ff62\:6570\:5024\:ff63\:3092\:6301\:3063\:3066\:3044\:306a\:3044\:306e\
\:3067\:671f\:5f85\:3057\:305f\:7d50\:679c\:306b\:306a\:3089\:306a\:3044\:3002\
\:7f6e\:304d\:63db\:3048\:30eb\:30fc\:30eb", "Text",ExpressionUUID->"184e8bcb-\
cd4e-467b-a454-253ac0869d4f"],

Cell[CellGroupData[{

Cell[BoxData["subrule1"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[6]:=",ExpressionUUID->"8793bc2b-060e-4538-8800-080298542150"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r01", "\[Rule]", "0.02040816326530612`"}], "}"}]], "Output",
 CellChangeTimes->{3.650697572780698*^9, 3.650712727756809*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[6]=",ExpressionUUID->"a59b7144-b6ef-446a-aa43-c061a91a069a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["subrule2"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[7]:=",ExpressionUUID->"30452b0e-e3ef-40ef-bb0f-ae626bc43cc3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r02", "\[Rule]", "0.02062072615965754`"}], "}"}]], "Output",
 CellChangeTimes->{3.6506975763912888`*^9, 3.6507127303509827`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[7]=",ExpressionUUID->"59db1377-2573-4c8f-ac20-a412e4969755"]
}, Open  ]],

Cell[TextData[{
 "\:3092 yield \:306b",
 StyleBox["\:9069\:7528",
  FontColor->RGBColor[1, 0, 1]],
 "\:3057\:3066\:ff0cyield \:306er01\:3084r02\:3092\:7f6e\:304d\:63db\:3048\
\:30eb\:30fc\:30eb\:306b\:5f93\:3063\:3066\:7f6e\:304d\:63db\:3048\:308c\:3070\
\:ff0c\:671b\:3093\:3067\:3044\:305f\:30ea\:30b9\:30c8\:304c\:5f97\:3089\:308c\
\:308b\:3002"
}], "Text",ExpressionUUID->"99242612-ea31-4822-abd3-2b58f0a2e44c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yd", " ", "/.", " ", "subrule1"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[8]:=",ExpressionUUID->"0214e13a-5fe0-4391-a1a9-3cc03eb515ee"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0.02040816326530612`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "r02"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.65069758105696*^9, 3.6507127362646303`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[8]=",ExpressionUUID->"1edb62ad-0a1d-4d2f-903c-1b6f0a2da55d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yields", "=", 
  RowBox[{"%", " ", "/.", " ", "subrule2"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[9]:=",ExpressionUUID->"7220d8a7-4bb1-4815-86a3-5bdbf83f514c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0.02040816326530612`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.02062072615965754`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.650697583478059*^9, 3.6507127399491177`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[9]=",ExpressionUUID->"f517cf08-71f3-4d44-b6f7-6b18af636222"]
}, Open  ]],

Cell["\<\
MF15-2-4.nb \
\:3067\:306f\:ff0c\:3053\:308c\:3092\:4e00\:6c17\:306b\:304a\:3053\:306a\:3063\
\:305f\:3002\:3053\:3053\:3067\:306f\:ff0c\:30b7\:30f3\:30dc\:30eb\:304c\:306a\
\:3089\:3093\:3060\:307e\:307e\:306e\:30ea\:30b9\:30c8yd\:3092\:4e00\:65e6\
\:4f5c\:3063\:3066\:304b\:3089\:ff0c\:7f6e\:304d\:63db\:3048\:30eb\:30fc\:30eb\
\:3092\:9069\:7528\:3057\:305f\:30ea\:30b9\:30c8\:306byields \:3068\:3044\
\:3046\:30b7\:30f3\:30dc\:30eb\:3092\:5272\:308a\:5f53\:3066\:305f\:306e\:3067\
\:3042\:308b\:3002\
\>", "Text",
 CellChangeTimes->{{3.522297088934643*^9, 3.522297089430443*^9}, {
  3.650697591779956*^9, 3.650697599167005*^9}, {3.650769140107527*^9, 
  3.650769141331676*^9}},ExpressionUUID->"c558e062-2eab-48d6-9137-\
f924b14effef"],

Cell[TextData[{
 "\:306a\:304a, \" / .\" \:306f\:ff0c\:5b9f\:306f\:95a2\:6570 ReplaceAll \
\:3068\:3044\:3046\:95a2\:6570\:3092\:7565\:8a18\:3057\:305f\:3082\:306e\:3067\
\:3042\:308b\:3002\:3053\:306e\:95a2\:6570\:3092\:4f7f\:3063\:3066\:ff0c",
 StyleBox["ReplaceAll[ \:7f6e\:304d\:63db\:3048\:308b\:5bfe\:8c61, \:7f6e\
\:304d\:63db\:3048\:30eb\:30fc\:30eb ]",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]],
 "\:3068\:3084\:308b\:3068\:ff0c\:7f6e\:304d\:63db\:3048\:304c\:5b9f\:884c\
\:3055\:308c\:308b\:3002\:7565\:8a18\:306e\:5834\:5408\:3068\:3001\:5f97\:3089\
\:308c\:308b\:7d50\:679c\:306f\:540c\:3058\:3002"
}], "Text",
 CellChangeTimes->{{3.6507691739000797`*^9, 3.6507692242733994`*^9}, {
  3.6507699439242983`*^9, 
  3.650769995922018*^9}},ExpressionUUID->"ffa6ceb0-6eeb-45cc-84b6-\
372bc88bbec7"],

Cell[CellGroupData[{

Cell[BoxData["yd"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[10]:=",ExpressionUUID->"0d1d0f87-29ae-4bba-9a4d-d50c7e2fea72"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "r01"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "r02"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.650697613006743*^9, 3.650712752939959*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[10]=",ExpressionUUID->"3bc30ec8-59be-4888-a803-b8e545bf79f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplaceAll", "[", 
  RowBox[{"yd", ",", "subrule1"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[11]:=",ExpressionUUID->"ff7ffad0-b361-4d0d-b53f-dba9000c239b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0.02040816326530612`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "r02"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.650697615747776*^9, 3.6507127560164137`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[11]=",ExpressionUUID->"c0c5d48c-0a64-4ffd-9933-86e88b993730"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplaceAll", "[", 
  RowBox[{"%", ",", "subrule2"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[12]:=",ExpressionUUID->"6a45e777-1887-42ac-abef-44a155d6e2f2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0.02040816326530612`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.02062072615965754`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.650697618355722*^9, 3.650712758572896*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[12]=",ExpressionUUID->"beb4257a-8c06-4d77-a459-6b0c227b2f0f"]
}, Open  ]],

Cell["\:3067\:306f\:6700\:5f8c\:306b,\:30b0\:30e9\:30d5\:3092\:66f8\:3044\
\:3066\:304a\:304f\:3002", "Text",ExpressionUUID->"af47da5a-b235-4768-97ac-\
26b620428fa2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yields", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "0.0204082"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "0.0206207"}], "}"}]}], "}"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[13]:=",ExpressionUUID->"17915241-bad1-4360-8308-c43f1b1867a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0.0204082`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.0206207`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6507127626098757`*^9},
 Background->GrayLevel[0.85],
 CellLabel->"Out[13]=",ExpressionUUID->"4cef8d64-1c80-4e59-a52b-1e7ea8cb7898"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fig1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"yields", ",", 
    StyleBox[
     RowBox[{"Joined", "\[Rule]", "True"}],
     FontColor->RGBColor[1, 0, 1]], 
    StyleBox[",",
     FontColor->RGBColor[1, 0, 1]], 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.5`", ",", "2.5`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.0202`", ",", "0.0208`"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0.5`", ",", "0.0202`"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\:6e80\:671f(\:5e74)\>\"", ",", "\"\<\:5229\:56de\:308a(%)\>\""}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0.8`", ",", "0.5`"}], "]"}], ",", 
       RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[14]:=",ExpressionUUID->"84efe323-6ed7-49ab-9a93-a8b5af4d3617"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0.8, 0.5], PointSize[0.012833333333333334`], 
     AbsoluteThickness[2], LineBox[{{1., 0.0204082}, {2., 0.0206207}}]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\:6e80\:671f(\:5e74)\"", TraditionalForm], 
    FormBox["\"\:5229\:56de\:308a(%)\"", TraditionalForm]},
  AxesOrigin->{0.5, 0.0202},
  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->{},
  PlotRange->{{0.5, 2.5}, {0.0202, 0.0208}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.65069763358922*^9, 3.6507127676041822`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"2028a2e3-2937-4cf9-a334-9a0642393077"]
}, Open  ]],

Cell[TextData[{
 "\:3000\:30ea\:30b9\:30c8\:3067\:4e0e\:3048\:305f\:70b9\:3092\:30d7\:30ed\
\:30c3\:30c8\:3057\:ff0c\:305d\:306e\:70b9\:3092\:3064\:306a\:3050\:3088\:3046\
\:306b\:300c",
 StyleBox["Joined -> True",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]],
 " \:300d\:3068\:3044\:3046\:30aa\:30d7\:30b7\:30e7\:30f3\:3092\:6307\:5b9a\
\:3057\:3066\:3044\:308b\:3002\:3053\:308c\:3092\:306f\:305a\:3059\:3068\:ff0c\
\:6b21\:306e\:3068\:304a\:308a\:3002"
}], "Text",
 CellChangeTimes->{{3.522296971364545*^9, 
  3.5222969723069677`*^9}},ExpressionUUID->"44a66803-5d4f-4c18-9479-\
149a0b184079"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"yields", ",", 
   StyleBox[
    RowBox[{"Joined", "\[Rule]", "False"}],
    FontColor->RGBColor[1, 0, 1]], 
   StyleBox[",",
    FontColor->RGBColor[1, 0, 1]], 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.5`", ",", "2.5`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0202`", ",", "0.0208`"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.5`", ",", "0.0202`"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\:6e80\:671f(\:5e74)\>\"", ",", "\"\<\:5229\:56de\:308a(%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0.8`", ",", "0.5`"}], "]"}], ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[15]:=",ExpressionUUID->"0d3b5dbc-e2c2-4e3a-9d11-97c0d0e3dffa"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0, 0.8, 0.5], PointSize[0.012833333333333334`], 
     AbsoluteThickness[2], 
     PointBox[{{1., 0.0204082}, {2., 0.0206207}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\:6e80\:671f(\:5e74)\"", TraditionalForm], 
    FormBox["\"\:5229\:56de\:308a(%)\"", TraditionalForm]},
  AxesOrigin->{0.5, 0.0202},
  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->{},
  PlotRange->{{0.5, 2.5}, {0.0202, 0.0208}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650697647209228*^9, 3.650712830306834*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"6ee96282-c7bc-42f0-a570-a3875f9e024c"]
}, Open  ]],

Cell[TextData[{
 "\:3000\:70b9\:306f\:63cf\:753b\:3055\:308c\:3066\:3044\:308b\:304c\:5c0f\
\:3055\:304f\:3066\:898b\:3065\:3089\:3044\:3002\:56f3\:306e\:30a8\:30ea\:30a2\
\:3092\:30af\:30ea\:30c3\:30af\:3057\:ff0c\:51fa\:3066\:304d\:305f\:300c\:67a0\
\:300d\:306e\:7aef\:306e\:307b\:3046\:3092\:3064\:307e\:3093\:3067\:5927\:304d\
\:304f\:3057\:305f\:306e\:304c\:4e0a\:306e\:56f3\:3002\:3053\:308c\:3060\:3051\
\:5927\:304d\:304f\:3057\:3066\:3082\:307e\:3060\:898b\:3065\:3089\:3044\:3002\
\:70b9\:3092\:5927\:304d\:304f\:3059\:308b\:305f\:3081\:ff0c",
 StyleBox["PointSize",
  FontColor->RGBColor[1, 0, 1]],
 "\:3068\:3044\:3046\:30aa\:30d7\:30b7\:30e7\:30f3\:3092\:6307\:5b9a\:3057\
\:305f\:3089\:6b21\:306e\:3068\:304a\:308a\:3002"
}], "Text",ExpressionUUID->"7ace0a70-1c9d-445b-bd34-55c7b7c6ea4e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fig2", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"yields", ",", 
    RowBox[{"Joined", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.5`", ",", "2.5`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.0202`", ",", "0.0208`"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0.5`", ",", "0.0202`"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\:6e80\:671f(\:5e74)\>\"", ",", "\"\<\:5229\:56de\:308a(%)\>\""}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
       RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
       RowBox[{"PointSize", "[", "0.04`", "]"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[16]:=",ExpressionUUID->"7ea810da-3a6d-4944-b2e5-08c9f0797118"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.04], AbsoluteThickness[2], 
     PointBox[{{1., 0.0204082}, {2., 0.0206207}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\:6e80\:671f(\:5e74)\"", TraditionalForm], 
    FormBox["\"\:5229\:56de\:308a(%)\"", TraditionalForm]},
  AxesOrigin->{0.5, 0.0202},
  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->{},
  PlotRange->{{0.5, 2.5}, {0.0202, 0.0208}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650697654349422*^9, 3.65071283748076*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"6c06ad86-ac40-419d-8c7e-7afd5961fafc"]
}, Open  ]],

Cell["\:70b9\:304c\:8d64\:306a\:306e\:306f\:ff0c\:63cf\:753b\:5bfe\:8c61\:306e\
\:8272\:3092\:ff0cRGBColor\:306e\:6570\:5024\:3067\:5909\:3048\:305f\:3002\
\:8d64\:ff0c\:7dd1\:ff0c\:9752\:306e\:914d\:5206\:3092\:ff0c\:8d64100\:ff05\
\:306b\:3057\:3066\:3042\:308b\:3002", "Text",ExpressionUUID->"ae3e26e8-54ac-\
47b9-87b9-84cb5f8d1f19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"fig1", ",", "fig2"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[17]:=",ExpressionUUID->"8cc16bbc-8e19-4dd3-9bf6-33bbf5595a14"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0, 0.8, 0.5], PointSize[0.012833333333333334`], 
      AbsoluteThickness[2], 
      LineBox[{{1., 0.0204082}, {2., 0.0206207}}]}}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.04], AbsoluteThickness[2], 
      PointBox[{{1., 0.0204082}, {2., 0.0206207}}]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\:6e80\:671f(\:5e74)\"", TraditionalForm], 
    FormBox["\"\:5229\:56de\:308a(%)\"", TraditionalForm]},
  AxesOrigin->{0.5, 0.0202},
  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->{},
  PlotRange->{{0.5, 2.5}, {0.0202, 0.0208}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.650697659112668*^9, 3.650712853008586*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"f860adc7-5fa4-492e-b3d7-db388061e83e"]
}, Open  ]],

Cell[TextData[{
 "\:5148\:307b\:3069\:ff0c\:30b0\:30e9\:30d5\:306b fig1, fig2  \:3068\:3044\
\:3046\:30b7\:30f3\:30dc\:30eb\:3092\:3064\:3051\:3066\:304a\:3044\:305f\:306e\
\:3067\:ff0c\:540c\:6642\:306b",
 StyleBox["\:91cd\:306d\:3066\:518d\:63cf\:753b",
  FontColor->RGBColor[1, 0, 1]],
 "\:3055\:305b\:308b\:3053\:3068\:3067\:ff0c\:70b9\:306e\:90e8\:5206\:3068\
\:3064\:306a\:3044\:3067\:3044\:308b\:90e8\:5206\:306e\:8272\:304c\:9055\:3046\
\:30b0\:30e9\:30d5\:3092\:3048\:308b\:3053\:3068\:304c\:3067\:304d\:305f\:3002\
\:30b7\:30f3\:30dc\:30eb\:3092\:3064\:3051\:3066\:304a\:304b\:306a\:304f\:3066\
\:3082\:ff0cOut[22]:=, Out[23]:= \:306a\:3069\:3068\:3044\:3046\:ff0c\:756a\
\:53f7\:3092\:3064\:304b\:3063\:3066 Show[%23,%22]\:3068\:3057\:3066\:3082\
\:540c\:3058\:7d50\:679c\:304c\:3048\:3089\:308c\:308b\:3002"
}], "Text",ExpressionUUID->"bd3517a8-1470-4022-b309-71babf6c3bdc"],

Cell[CellGroupData[{

Cell[TextData[{
 "\n3.2  ",
 StyleBox["What is an Implied Forward rate ?",
  FontWeight->"Bold"],
 "  "
}], "Subsubtitle",
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"f448f0f6-0f46-47b3-b51e-fe4afbbe1762"],

Cell["\:30d1\:30ef-\:30dd\:30a4\:30f3\:30c87\:30da\:30fc\:30b8\:3067\:300c\
\:8a66\:3057\:3066\:300d\:3044\:308b\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:306f\
\:4ee5\:4e0b\:306e\:3068\:304a\:308a\:3002", "Text",
 CellChangeTimes->{
  3.650770015388116*^9},ExpressionUUID->"beb39d3f-7d77-41ee-bc86-\
209942eb1b0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"100", "*", 
     RowBox[{"96", "/", "98"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "f"}], ")"}]}], "\[Equal]", "100"}], ",", "f"}], 
  "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[18]:=",ExpressionUUID->"ceb0447d-09bc-4b02-b0ca-6e202453cc44"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    FractionBox["1", "48"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.650697693669423*^9, 3.650712872724531*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[18]=",ExpressionUUID->"442c9f00-68c4-4adb-b3dd-004defa322b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[19]:=",ExpressionUUID->"df798ebb-42c5-45e0-8180-f71350722a8a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", "0.020833333333333332`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.650698131173202*^9, 3.65071287513516*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[19]=",ExpressionUUID->"4b774c7c-fb71-4e75-a253-e24da9c9e3d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Part", "[", 
  RowBox[{"%", ",", "1"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[20]:=",ExpressionUUID->"a99541fe-692c-47b5-a6cd-8a626f0ac8be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"f", "\[Rule]", "0.020833333333333332`"}], "}"}]], "Output",
 CellChangeTimes->{3.650698134309189*^9, 3.650712877887164*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[20]=",ExpressionUUID->"ea58b8b3-9f3c-4455-82e7-ddb66500ce7a"]
}, Open  ]],

Cell["\:7f6e\:304d\:63db\:3048\:30eb\:30fc\:30eb\:306f\:30eb\:30fc\:30eb\:3067\
\:3042\:3063\:3066\:ff0c\:30eb\:30fc\:30eb\:3092\:5b9f\:884c\:3057\:305f\:308f\
\:3051\:3067\:306f\:306a\:3044\:304b\:3089\:ff0c\:30b7\:30f3\:30dc\:30eb\:ff46\
\:306f\:305d\:306e\:307e\:307e\:3002", "Text",
 CellChangeTimes->{
  3.650712882555154*^9},ExpressionUUID->"05942ee5-ab85-4cdf-9cea-\
739d17fdc85d"],

Cell[CellGroupData[{

Cell[BoxData["f"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[21]:=",ExpressionUUID->"558321c7-0682-4e19-9188-363b0aff2a42"],

Cell[BoxData["f"], "Output",
 CellChangeTimes->{3.6506981400885057`*^9, 3.650712886374563*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[21]=",ExpressionUUID->"2e12d8d1-7ac3-4b17-b897-f676fc54c086"]
}, Open  ]],

Cell["\:7f6e\:304d\:63db\:3048\:3092\:5b9f\:884c\:3059\:308b\:3068\:ff0c\:7f6e\
\:304d\:63db\:3048\:305f\:7d50\:679c\:3092\:8868\:793a\:3059\:308b\:3002", \
"Text",ExpressionUUID->"a54ebb62-5600-49a1-9c10-69d1087cea1d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", " ", "/.", " ", "%%"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[22]:=",ExpressionUUID->"9b1e78ed-b02c-43e4-9d94-cf48e72738cf"],

Cell[BoxData["0.020833333333333332`"], "Output",
 CellChangeTimes->{3.650698145053939*^9, 3.6507128896461067`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[22]=",ExpressionUUID->"b6f8a88f-91b0-4c8e-8a40-6bae201116f4"]
}, Open  ]],

Cell["\<\
\:ff46\:304c\:5024\:3092\:6301\:3063\:305f\:3088\:3046\:306b\:932f\:899a\:3059\
\:308b\:304b\:3082\:3057\:308c\:306a\:3044\:304c\:ff0c\:4e0a\:306f\:7f6e\:304d\
\:63db\:3048\:305f\:7d50\:679c\:306e\:8868\:793a\:3002\:30b7\:30f3\:30dc\:30eb\
\:306f\:540d\:524d\:306e\:3088\:3046\:306a\:3082\:306e\:306a\:306e\:3067\:ff0c\
 f \:306e\:307e\:307e\:3002\
\>", "Text",ExpressionUUID->"6129aab4-fd37-41c1-84a5-d983a06168bb"],

Cell[CellGroupData[{

Cell[BoxData["f"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[23]:=",ExpressionUUID->"2b577ff2-663b-45fa-ab7b-a259ef3a450c"],

Cell[BoxData["f"], "Output",
 CellChangeTimes->{3.650698152137803*^9, 3.650712893501678*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[23]=",ExpressionUUID->"10e8936b-a6c6-4e6a-a290-c3df4784d4ef"]
}, Open  ]],

Cell["\:6570\:5024\:8a08\:7b97\:30bd\:30d5\:30c8(\:901a\:5e38\:306e\:30bd\
\:30d5\:30c8)\:306e\:3088\:3046\:306b\:ff0c\:30b7\:30f3\:30dc\:30eb\:306b\
\:6570\:5024\:3092\:5272\:308a\:5f53\:3066\:308b\:3068\:ff0c", "Text",Expressi\
onUUID->"7224bc02-23f8-49f5-b46d-4f5ada658285"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", "3.2"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[24]:=",ExpressionUUID->"4f732364-443f-4d7d-a387-9ff00c43615d"],

Cell[BoxData["3.2`"], "Output",
 CellChangeTimes->{3.6506981574388313`*^9, 3.650712897329135*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[24]=",ExpressionUUID->"66c2229b-3894-4df4-9151-efd713352432"]
}, Open  ]],

Cell["\:30b7\:30f3\:30dc\:30eb\:ff46\:306b\:5272\:308a\:5f53\:3066\:3089\:308c\
\:305f\:300c\:4e2d\:8eab\:300d\:3092\:8fd4\:3057\:3066\:304f\:308b\:3002", \
"Text",ExpressionUUID->"cecdf170-64b7-4fc2-bcf2-e9b5de669b99"],

Cell[CellGroupData[{

Cell[BoxData["f"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[25]:=",ExpressionUUID->"decc8f04-f99a-4c40-af8f-9d4772cf3e40"],

Cell[BoxData["3.2`"], "Output",
 CellChangeTimes->{3.6506981607142487`*^9, 3.6507129023912697`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[25]=",ExpressionUUID->"dffbdfa0-b94d-4b05-9309-3fc2f12ef0cb"]
}, Open  ]],

Cell["\:30b7\:30f3\:30dc\:30eb\:3092 0.45  \:3068\:3044\:3046\:6570\:5024\
\:306b\:5909\:3048\:3066\:307f\:3066\:3082", "Text",ExpressionUUID->"b95d621c-\
052d-4132-a242-2e8c4835325a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{"f", " ", "\[Rule]", " ", "0.45"}], "}"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[26]:=",ExpressionUUID->"f9966d41-cadb-47e8-aee7-7c8e75b5cbaf"],

Cell[BoxData["0.45`"], "Output",
 CellChangeTimes->{3.65069816869248*^9, 3.6507129062092657`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[26]=",ExpressionUUID->"0a1b81f9-ee38-4837-9ff9-3fe142817963"]
}, Open  ]],

Cell["\:5225\:306e\:30b7\:30f3\:30dc\:30eb\:306b\:5909\:3048\:3066\:3082", \
"Text",ExpressionUUID->"949bf3f9-2152-4062-ad0b-3e299d0e2bb8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{"f", " ", "\[Rule]", " ", "zwer"}], "}"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[27]:=",ExpressionUUID->"f8e10ee1-db10-47c2-becf-b8b24e1615de"],

Cell[BoxData["zwer"], "Output",
 CellChangeTimes->{3.65069817340884*^9, 3.650712909520739*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[27]=",ExpressionUUID->"6fff14f8-1707-4bf8-9720-f910e1b89365"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["f"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[28]:=",ExpressionUUID->"19d5d421-84e5-4935-a3c1-52f830fc81fa"],

Cell[BoxData["3.2`"], "Output",
 CellChangeTimes->{3.650698177089066*^9, 3.650712912023272*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[28]=",ExpressionUUID->"4247b7e9-bb40-46e9-ba04-7b965b556f00"]
}, Open  ]],

Cell[TextData[{
 "\:3044\:3063\:305f\:3093\:3064\:304f\:3063\:305f\:30b7\:30f3\:30dc\:30eb f \
\:306f ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "\:306e\:306a\:304b\:3067\:751f\:304d\:305f\:307e\:307e\:3067\:3042\:308b\
\:3002\:305d\:3057\:3066\:5272\:308a\:5f53\:3066\:3089\:308c\:305f\:5024\:3092\
\:30ad\:30fc\:30d7\:3057\:3066\:3044\:308b\:3002\:5024\:3092\:6d88\:3059\:306b\
\:306f \".\" \:3092\:5272\:308a\:5f53\:3066\:308b\:3002"
}], "Text",ExpressionUUID->"d69cc1c1-b57d-4562-a9fc-b438796374a6"],

Cell[BoxData[
 RowBox[{"f", " ", "=."}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[29]:=",ExpressionUUID->"815df5a9-16c2-45bf-96c1-8399b8207382"],

Cell["\:3042\:308b\:3044\:306f", "Text",ExpressionUUID->"e60f6de9-dcd9-4652-b48e-f4a7a51ea8a6"],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[30]:=",ExpressionUUID->"7c616e9c-23bf-4ffe-90b4-9a4248ad73e2"],

Cell["\:30b7\:30f3\:30dc\:30eb\:ff46\:306f\:ff0c\:307e\:3060 Mathematica \
\:306e\:306a\:304b\:3067\:751f\:304d\:305f\:307e\:307e\:3067\:3042\:308b\:3002\
", "Text",ExpressionUUID->"64081d15-cefb-417b-bac4-fc7d3bcf3d54"],

Cell[CellGroupData[{

Cell[BoxData["f"], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[31]:=",ExpressionUUID->"e7bf2300-a792-4161-b282-dc7a7f0e42a0"],

Cell[BoxData["f"], "Output",
 CellChangeTimes->{3.6506981917560596`*^9, 3.650712929982966*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[31]=",ExpressionUUID->"0b90a41e-a965-4188-b3ea-9f898b7fcb9a"]
}, Open  ]],

Cell["\<\
\:4e2d\:8eab\:306f\:4e0a\:306e Clear \:95a2\:6570\:3067\:6d88\:3055\:308c\
\:3066\:3057\:307e\:3063\:305f\:304c\:3001\:4e2d\:8eab\:3092\:5165\:308c\:308b\
\:7bb1\:3001\:30b7\:30f3\:30dc\:30eb\:305d\:306e\:3082\:306e\:306f\:6d88\:3048\
\:3066\:3044\:306a\:3044\:3002\
\>", "Text",
 CellChangeTimes->{{3.650712940801646*^9, 
  3.6507130213375587`*^9}},ExpressionUUID->"d7f4aa45-5777-432e-bca9-\
d6c831af25a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[32]:=",ExpressionUUID->"fc82949a-5bc5-4f03-9159-fdbd3c3e0ed1"],

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.650713024680882*^9},
 CellTags->
  "Info3650745424-7540298",ExpressionUUID->"f8e24a75-bd0a-4c0b-bae9-\
33c30b9c3d18"]
}, Open  ]],

Cell["\<\
\:4e0a\:306e\:554f\:3044\:5408\:308f\:305b\:306b\:5bfe\:3059\:308b\:7b54\:3048\
\:3070\:3001\:30b0\:30ed\:30fc\:30d0\:30eb\:3068\:3044\:3046\:300c\:5834\:6240\
\:300d\:306b\:7bb1(\:30b7\:30f3\:30dc\:30eb)\:304c\:7f6e\:304b\:308c\:3066\
\:3044\:308b\:3053\:3068\:3092\:793a\:3057\:3066\:3044\:308b\:3002\:30b7\:30f3\
\:30dc\:30eb\:305d\:306e\:3082\:306e\:3092\:6d88\:3059\:306b\:306f\:ff0c\
\>", "Text",
 CellChangeTimes->{{3.650713043740151*^9, 
  3.650713101154887*^9}},ExpressionUUID->"7b23cf60-a09b-4d42-9791-\
e01de849ee3c"],

Cell[BoxData[
 RowBox[{"Remove", "[", "f", "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[33]:=",ExpressionUUID->"196d91bc-f713-43db-9b0b-f98750f2763b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[34]:=",ExpressionUUID->"2d0f3ec3-caf3-4b63-bd7b-b46c04c876d1"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Information", "::", "notfound"}], "MessageName"], ":", 
  " ", "\<\"\:30b7\:30f3\:30dc\:30eb\[NoBreak]\\!\\(\\\"f\\\"\\)\[NoBreak]\
\:304c\:898b\:4ed8\:304b\:308a\:307e\:305b\:3093\:ff0e \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/notfound\\\", \
ButtonNote -> \\\"Information::notfound\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.650698201066119*^9, 3.6507131108294*^9},
 Background->GrayLevel[0.900008],
 CellLabel->
  "\:8a55\:4fa1\:4e2d\:ff1aIn[34]:=",ExpressionUUID->"4ee7fe80-0c59-49ee-b292-\
8fd4fc6a3212"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\n",
 StyleBox["3.3  Relation between Implied Forward Rates and Yields to Maturity",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.501961, 1]]
}], "Subsubtitle",
 CellChangeTimes->{{3.7475557377569323`*^9, 
  3.747555739152615*^9}},ExpressionUUID->"4a896eeb-c152-47b9-92eb-\
ad2664a8e7a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "r01", "]"}], ";", 
  RowBox[{"Clear", "[", "r02", "]"}], ";"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[36]:=",ExpressionUUID->"10197490-1e46-471e-a569-2d7f15a49b2c"],

Cell["\:30a4\:30fc\:30eb\:30c9\:3068 Implied  Forward \
\:306e\:95a2\:4fc2\:3092\:78ba\:8a8d\:3059\:308b\:305f\:3081\:ff0c\:3053\:308c\
\:3089\:3092\:8a08\:7b97\:3057\:3066\:304a\:304f\:3002", "Text",
 CellChangeTimes->{3.65071316925975*^9, 
  3.747555749120409*^9},ExpressionUUID->"5e937c81-450e-46a3-b0c4-\
7a09b19fce4a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule1", "=", 
  RowBox[{"Part", "[", 
   RowBox[{
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"98", 
         RowBox[{"(", 
          RowBox[{"1", "+", "r01"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
      RowBox[{"{", "r01", "}"}]}], "]"}], ",", "1"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[37]:=",ExpressionUUID->"eb99ac70-b975-43f2-8ff5-699994845a05"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r01", "\[Rule]", "0.02040816326530612`"}], "}"}]], "Output",
 CellChangeTimes->{3.6506982097990427`*^9, 3.650713173265656*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[37]=",ExpressionUUID->"d6358922-d774-450f-8eb1-1f97b2eefa46"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule2", "=", 
  RowBox[{"Part", "[", 
   RowBox[{
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"96", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "r02"}], ")"}], "^", "2"}]}], "\[Equal]", 
        "100"}], "}"}], ",", 
      RowBox[{"{", "r02", "}"}]}], "]"}], ",", "2"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[38]:=",ExpressionUUID->"8a8001c3-cef2-43de-b230-9dce3b01a20f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r02", "\[Rule]", "0.02062072615965754`"}], "}"}]], "Output",
 CellChangeTimes->{3.650698212633068*^9, 3.650713178366722*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[38]=",ExpressionUUID->"3cab4440-a84f-4511-b320-d0134b13fb8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule3", "=", 
  RowBox[{"Part", "[", 
   RowBox[{
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"100", "*", 
         RowBox[{"96", "/", "98"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "+", "f12"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
      RowBox[{"{", "f12", "}"}]}], "]"}], ",", "1"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[39]:=",ExpressionUUID->"68751871-a278-4025-9365-7f47428fe82b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"f12", "\[Rule]", "0.020833333333333336`"}], "}"}]], "Output",
 CellChangeTimes->{3.650698215130228*^9, 3.6507131825565443`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[39]=",ExpressionUUID->"a7578a6b-c622-4207-a6b0-4fe1d388efcd"]
}, Open  ]],

Cell["\<\
\:30b9\:30da\:30fc\:30b9\:3092\:7a7a\:3051\:308b\:3068\:639b\:3051\:7b97\:306b\
\:306a\:308b\:3002\:3060\:304c\:3053\:308c\:3092\:5370\:5237\:3059\:308b\:3068\
 10096 \:3068\:3044\:3046\:6570\:5b57\:306a\:306e\:304b100*96\:3068\:3044\
\:3046\:639b\:3051\:7b97\:306a\:306e\:304b\:5224\:5225\:3057\:304c\:305f\:304f\
\:306a\:308b\:306e\:3067*\:3092\:4f7f\:3063\:305f\:3002\:30b9\:30da\:30fc\
\:30b9\:3092\:7a7a\:3051\:305f\:8a08\:7b97\:306f\:6b21\:306e\:3068\:304a\:308a\
(\:6700\:8fd1\:306ever. \:3067\:306f\[Times]\:304c\:88dc\:5145\:3055\:308c\
\:308b)\:3002\
\>", "Text",
 CellChangeTimes->{
  3.650713188627871*^9, {3.6507700477086563`*^9, 3.6507700549088097`*^9}, {
   3.650770088446569*^9, 
   3.650770114348228*^9}},ExpressionUUID->"777dde00-47e0-4e72-871d-\
a7bd339fbd2a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Part", "[", 
  RowBox[{
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"100", " ", 
        RowBox[{"96", "/", "98"}], 
        RowBox[{"(", 
         RowBox[{"1", "+", "f12"}], ")"}]}], "\[Equal]", "100"}], "}"}], ",", 
     RowBox[{"{", "f12", "}"}]}], "]"}], ",", "1"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[40]:=",ExpressionUUID->"a0f6ede4-eaeb-4896-8b68-dc780b695a2c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"f12", "\[Rule]", "0.020833333333333336`"}], "}"}]], "Output",
 CellChangeTimes->{3.650698218743836*^9, 3.650713203250739*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[40]=",ExpressionUUID->"fb1af732-0e0c-447e-8ec9-e24c23e5d247"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"98", " ", "*", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r01"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"1", "+", "f12"}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[41]:=",ExpressionUUID->"bf115b0f-d67a-4964-a6ae-7e94b13984cb"],

Cell[BoxData[
 RowBox[{"98", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "f12"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r01"}], ")"}]}]], "Output",
 CellChangeTimes->{3.650698221696918*^9, 3.6507132201921186`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[41]=",ExpressionUUID->"fa5255f0-fbcb-4323-bcc9-2404e7ed42e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"%", " ", "/.", " ", "subrule1"}], " ", "/.", " ", 
  "subrule3"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[42]:=",ExpressionUUID->"c0cfed3e-8d9a-4ed4-82dd-a6aa831b42db"],

Cell[BoxData["102.08333333333333`"], "Output",
 CellChangeTimes->{3.650698224526093*^9, 3.6507132236707277`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[42]=",ExpressionUUID->"0994e0f8-ce0f-41c3-9b49-426229558b0c"]
}, Open  ]],

Cell["\<\
2 \:5e74\:76ee\:306b100\:3092\:8d85\:3048\:305f\:306e\:306f\:ff0c\:ff11\:5e74\
\:3082\:306e\:3092\:ff11\:679a(\:984d\:9762100\:5186\:5206)\:3092\:8cb7\:3046\
\:3068\:3044\:3046\:ff0c98\:5186\:306e\:6295\:8cc7\:3092\:3057\:305f\:304b\
\:3089\:300296/98 \:679a\:306796\:5186\:306e\:6295\:8cc7\:3092\:3057\:3066\
\:3044\:308c\:3070\:ff0c2\:5e74\:5f8c\:306b\:306f100\:5186\:3068\:306a\:308b\
\:3002\
\>", "Text",ExpressionUUID->"24ee7508-cfa8-4c6a-8deb-bc74ffe06a18"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"96", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r01"}], ")"}], 
  RowBox[{"(", 
   RowBox[{"1", "+", "f12"}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[43]:=",ExpressionUUID->"c3880fb9-babf-4ea9-8945-c4184cb42a7d"],

Cell[BoxData[
 RowBox[{"96", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "f12"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r01"}], ")"}]}]], "Output",
 CellChangeTimes->{3.6506982275225677`*^9, 3.650713240871295*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[43]=",ExpressionUUID->"0b88ec6f-5573-443c-b83f-a8b3813b9e4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"%", " ", "/.", " ", "subrule1"}], " ", "/.", " ", 
  "subrule3"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[44]:=",ExpressionUUID->"cce1abd2-011e-4bcd-be44-ecd767ca599d"],

Cell[BoxData["100.`"], "Output",
 CellChangeTimes->{3.6506982305688963`*^9, 3.6507132438497047`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[44]=",ExpressionUUID->"93ff7f84-058e-4bbf-a3e5-b5335ff34022"]
}, Open  ]],

Cell["2\:5e74\:3082\:306e1\:679a(\:984d\:9762100\:5186\:5206)\:309296\:5186\
\:3067\:8cb7\:3048\:3070\:ff0c2\:5e74\:5f8c\:306b\:306f100\:5186\:306b\:306a\
\:308b\:ff08 r02 \:306f\:ff0c\:305d\:3046\:306a\:308b\:3088\:3046\:306b\:8a08\
\:7b97\:3057\:305f )\:3002", "Text",
 CellChangeTimes->{
  3.650770133499968*^9},ExpressionUUID->"b9c1aa06-c4f3-4933-82e7-\
5a477bb37b08"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"96", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "r02"}], ")"}], "^", "2"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[45]:=",ExpressionUUID->"28cf53fb-1fba-42bb-9f9b-7a78083afea0"],

Cell[BoxData[
 RowBox[{"96", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "r02"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.650698235389203*^9, 3.650713250438848*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[45]=",ExpressionUUID->"9d4292df-2e7f-4a0a-9b2e-ac36c0b9d651"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", " ", "/.", " ", "subrule2"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[46]:=",ExpressionUUID->"ae03d393-88dc-408a-8383-89699755e617"],

Cell[BoxData["100.`"], "Output",
 CellChangeTimes->{3.6506982385088463`*^9, 3.650713253815894*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[46]=",ExpressionUUID->"29ce0fe1-db07-4069-bad6-e52f0f9041f9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

3.4  Let's calculate Implied Forwards\
\>", "Subsubtitle",
 CellChangeTimes->{3.747555773523796*^9},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"ec723b94-8ca6-46e4-9318-8a9da79c7809"],

Cell["\:30d1\:30ef\:30fc\:30dd\:30a4\:30f3\:30c8\:306e\:7df4\:7fd2\:554f\:984c\
(p.10)\:306e\:56de\:7b54\:4f8b", "Text",
 CellChangeTimes->{
  3.65076928438373*^9},ExpressionUUID->"6ae17923-4d4c-49cd-ad4a-ef43279eac43"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"94.2", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r03"}], ")"}], "^", "3"}]}], "\[Equal]", "100"}], 
    "}"}], ",", 
   RowBox[{"{", "r03", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[47]:=",ExpressionUUID->"fbf25036-8647-4b2e-9685-30697d192305"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r03", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "1.5100581641444115`"}], "-", 
      RowBox[{"0.8834466551134257`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r03", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "1.5100581641444115`"}], "+", 
      RowBox[{"0.8834466551134257`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r03", "\[Rule]", "0.020116328288821598`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.650698257805101*^9, 3.65071327390057*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[47]=",ExpressionUUID->"7b384da1-ba8f-47a1-8291-897e57eda6d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule4", " ", "=", " ", 
  RowBox[{"Part", "[", 
   RowBox[{"%", ",", "3"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[48]:=",ExpressionUUID->"c3c06b95-dd6a-4ddf-b41b-a2139a6fcf43"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r03", "\[Rule]", "0.020116328288821598`"}], "}"}]], "Output",
 CellChangeTimes->{3.650698261078088*^9, 3.650713276993249*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[48]=",ExpressionUUID->"5f436eec-8210-45c0-8bf5-3201ef5d5e39"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"94.2", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "r02"}], ")"}], "^", "2"}], 
     RowBox[{"(", 
      RowBox[{"1", "+", "f23"}], ")"}]}], "\[Equal]", "100"}], ",", 
   RowBox[{"{", "f23", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[49]:=",ExpressionUUID->"3dfb32ca-fcce-411b-ab35-e7a675b3f77f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f23", "\[Rule]", 
    FractionBox[
     RowBox[{"0.010615711252653927`", " ", 
      RowBox[{"(", 
       RowBox[{"100.`", "\[VeryThinSpace]", "-", 
        RowBox[{"94.2`", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1.`", "\[VeryThinSpace]", "+", "r02"}], ")"}], "2"]}]}], 
       ")"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`", "\[VeryThinSpace]", "+", "r02"}], ")"}], "2"]]}], "}"}],
   "}"}]], "Output",
 CellChangeTimes->{3.6506982637447643`*^9, 3.650713279726397*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[49]=",ExpressionUUID->"8361ec61-6698-49cb-a76f-92b86613d2f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Part", "[", 
  RowBox[{
   RowBox[{"%", " ", "/.", " ", "subrule2"}], ",", "1"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[50]:=",ExpressionUUID->"d48285c1-296d-4b78-bb1f-b50bdc4f3778"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"f23", "\[Rule]", "0.019108280254776924`"}], "}"}]], "Output",
 CellChangeTimes->{3.6506982668276463`*^9, 3.650713289265132*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[50]=",ExpressionUUID->"b492ccff-5f15-49d5-9226-da7280724c21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"94.2", 
        RowBox[{"(", 
         RowBox[{"1", "+", "r01"}], ")"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "f13"}], ")"}], "^", "2"}]}], "\[Equal]", "100"}],
       ",", "subrule1"}], "]"}], "}"}], ",", 
   RowBox[{"{", "f13", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[51]:=",ExpressionUUID->"1cc9b999-a231-45c1-830b-bd73e0847fba"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f13", "\[Rule]", 
     RowBox[{"-", "2.0199704421011844`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f13", "\[Rule]", "0.019970442101184083`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.650698269897337*^9, 3.650713293379752*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[51]=",ExpressionUUID->"4c2b08c4-2162-4a33-b0b5-c49e832bab23"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"subrule5", " ", "=", " ", 
  RowBox[{"Part", "[", 
   RowBox[{"%", ",", "2"}], "]"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[52]:=",ExpressionUUID->"216d6e57-65e8-42c3-ade4-34a01d47754c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"f13", "\[Rule]", "0.019970442101184083`"}], "}"}]], "Output",
 CellChangeTimes->{3.650698273618333*^9, 3.650713297441132*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[52]=",ExpressionUUID->"69093916-064e-410b-a7e6-e4dab9270fcc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

3.5  Closer Look at Implied Forwards. Who buys short maturity bonds ?  Who \
buys long maturity bonds? \
\>", "Subsubtitle",
 CellChangeTimes->{{3.747555805484329*^9, 3.747555818766304*^9}, {
  3.7475558681305943`*^9, 3.747555869818589*^9}},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"82db0042-8e9e-4feb-960e-2d4e672b906a"],

Cell["\:30d1\:30ef\:30fc\:30dd\:30a4\:30f3\:30c8\:3092\:3088\:304f\:8aad\:3093\
\:3067\:7406\:89e3\:3057\:3066\:304f\:3060\:3055\:3044.", "Text",
 CellChangeTimes->{{3.6507133102033253`*^9, 
  3.6507133148808317`*^9}},ExpressionUUID->"3798b7b4-f66c-4ec4-b7e6-\
e7e18c24a471"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\n3.6  How to write Japanese in a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook ?"
}], "Subsubtitle",
 CellChangeTimes->{{3.6507693141602707`*^9, 3.6507693332445602`*^9}},
 FontWeight->"Bold",
 FontColor->RGBColor[
  0, 0.501961, 1],ExpressionUUID->"80458064-f194-47ad-81c2-f0746185ed05"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"\:6587\:7ae0\:3092\:305d\:306e\:307e\:307e\:66f8\:3044\:3066", ",", 
   RowBox[{"SHIFT", "+", "ENTER\:3092\:3053\:3053\:308d\:307f\:308b\:3068"}]}],
  FontColor->RGBColor[0, 0, 1]]], "Input",
 EmphasizeSyntaxErrors->True,
 CellLabel->"In[1]:=",ExpressionUUID->"5b874790-f549-42de-933e-afcf2a385b86"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Syntax", "::", "tsntxi"}], "MessageName"], ":", 
  " ", "\<\"\\\"\[NoBreak]\\!\\(\:6587\:7ae0\:3092\:305d\:306e\:307e\:307e\
\:66f8\:3044\:3066, \\(\\(SHIFT + ENTER\:3092\:3053\:3053\:308d\:307f\:308b\
\:3068\\)\\)\\)\[NoBreak]\\\"\:306f\:4e0d\:5b8c\:5168\:3067\:3059\:ff0e\:8ffd\
\:52a0\:5165\:529b\:3057\:306a\:3051\:308c\:3070\:306a\:308a\:307e\:305b\:3093\
\:ff0e\[NoBreak]\\!\\(\\\"\\\"\\)\[NoBreak]\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.650769370837524*^9},
 Background->GrayLevel[0.85],
 CellLabel->
  "\:8a55\:4fa1\:4e2d\:ff1aIn[1]:=",ExpressionUUID->"cf708632-7f96-4920-9a16-\
b7ad17a367e3"]
}, Open  ]],

Cell[TextData[{
 "\:3068\:3044\:3063\:305f\:3088\:3046\:306a\:30a8\:30e9\:30fc\:304c\:8fd4\
\:3055\:308c\:308b\:3002",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:306f\:3069\:306e\:3088\:3046\:306b\[CloseCurlyDoubleQuote]\:8a08\:7b97\
\[CloseCurlyDoubleQuote]\:51e6\:7406\:3092\:3057\:3066\:3044\:3044\:306e\:304b\
\:308f\:304b\:3089\:305a\:ff0c\:300c\:6587\:6cd5\:30a8\:30e9\:30fc\:300d\:ff1d\
\:81ea\:5206\:306b\:306f\:7406\:89e3\:3067\:304d\:306a\:3044\:ff0c\:3068\:3044\
\:3046\:3002"
}], "Text",
 CellChangeTimes->{
  3.65076940765653*^9},ExpressionUUID->"4c4b4401-a7ea-4dcd-b519-337d317d69bf"],

Cell[BoxData[
 RowBox[{"\:539f\:59cb\:7684\:306a\:5bfe\:51e6\:6cd5\:306f", "\:ff0c", 
  RowBox[{
  "SHIFT\:ff0bENTER\:3067Mathematica", " ", "\:306b\:9001\:3089\:305a"}], 
  "\:ff0c", 
  "\:305d\:306e\:307e\:307e\:306b\:3057\:3066\:3057\:307e\:3046\:3053\:3068\
\:3067\:3042\:308b", "\:3002"}]], "Input",ExpressionUUID->"7b8d51c8-9b4b-4c0d-\
909a-d046333f39ca"],

Cell["\<\
\:4e0a\:306e\:4f8b\:300c\:539f\:59cb\:7684\:306a\:5bfe\:51e6\:6cd5\:306f\:30fb\
\:30fb\:30fb\:30fb\:300d\:304c\:305d\:308c\:3092\:884c\:3063\:305f\:7d50\:679c\
\:3067\:3042\:308b\:3002\:4e00\:756a\:4e0b\:306b\:30ab\:30fc\:30bd\:30eb\:3092\
\:6301\:3063\:3066\:304d\:3066\:5165\:529b\:3057\:59cb\:3081\:308b\:3068\:ff0c\
\:6b21\:306e\:30bb\:30eb\:304c\:3067\:304d\:3066\:ff0c\:4ee5\:5f8c\:306e\:4f5c\
\:696d\:304c\:7d9a\:3051\:3089\:308c\:308b\:3002\
\>", "Text",ExpressionUUID->"4f2e540b-688e-4279-9477-30058f29d06f"],

Cell[TextData[{
 "\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:306e\:53f3\:7aef\:306b\:306f\:533a\
\:5207\:308a\:3092\:793a\:3059\:7e26\:7dda\:304c\:5f15\:304b\:308c\:3066\:3044\
\:308b\:3002\:4e00\:533a\:5207\:308a\:3092[",
 StyleBox["\:30bb\:30eb",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "]\:3068\:3044\:3046\:3002\:30bb\:30eb\:306f\:30c7\:30d5\:30a9\:30eb\:30c8\
\:3067\:306f\:300cInput\:300d\:3068\:3044\:3046\:30b9\:30bf\:30a4\:30eb\:306b\
\:306a\:3063\:3066\:3044\:308b\:3002\:3053\:308c\:3092",
 StyleBox["\:300cText\:300d\:30b9\:30bf\:30a4\:30eb\:306b\:5909\:3048\:308c\
\:3070\:ff0cSHIFT+ENTER\:3092\:4f7f\:3063\:3066\:3082\:4f7f\:308f\:306a\:304f\
\:3066\:3082\:ff0c\:30a8\:30e9\:30fc\:3068\:306a\:3089\:306a\:3044\:3002",
  FontColor->RGBColor[1, 0, 0]],
 "\:5909\:66f4\:3057\:305f\:3044\:30bb\:30eb\:3092\:9078\:629e(\:53f3\:7aef\
\:306e\:7e26\:68d2\:3092\:30de\:30a6\:30b9\:306e\:5de6\:30af\:30ea\:30c3\:30af\
)\:3057\:3066\:ff0c\:30c8\:30c3\:30d7\:30e1\:30cb\:30e5\:30fc\:304b\:3089\
\:ff0c\:300c\:66f8\:5f0f\:300d\:300c\:30b9\:30bf\:30a4\:30eb\:300d\:300cText\
\:300d\:3078\:3068\:305f\:3069\:3063\:3066\:300cText\:300d\:3092\:30af\:30ea\
\:30c3\:30af\:3059\:308c\:3070\:30b9\:30bf\:30a4\:30eb\:3092\:5909\:66f4\:3067\
\:304d\:308b\:3002\:3053\:306e\:30d7\:30eb\:30c0\:30a6\:30f3\:30e1\:30cb\:30e5\
\:30fc\:306b\:66f8\:3044\:3066\:3042\:308b\:3088\:3046\:306b\:ff0c\:30bb\:30eb\
\:3092\:9078\:629e\:3057\:305f\:5f8c\:ff0c",
 StyleBox["ALT\:30ad\:30fc\:3068\:ff17\:30ad\:30fc",
  FontColor->RGBColor[1, 0, 1]],
 "\:3092\:540c\:6642\:306b\:62bc\:3057\:3066\:3082\:540c\:3058\:3067\:3042\
\:308b\:3002\:3042\:308b\:3044\:306f\:ff0c\:30bb\:30eb\:3092\:9078\:629e(\
\:53f3\:7aef\:306e\:7e26\:68d2\:3092\:30de\:30a6\:30b9\:306e\:5de6\:30af\:30ea\
\:30c3\:30af)\:3057\:305f\:3042\:3068\:3067\:ff0c\:30de\:30a6\:30b9\:3092\
\:53f3\:30af\:30ea\:30c3\:30af\:3059\:308c\:3070\:ff0c\:300c\:30b9\:30bf\:30a4\
\:30eb\:300d\:3068\:3044\:3046\:9805\:76ee\:304c\:9078\:629e\:3067\:304d\:308b\
\:3002\n\n\:3053\:306e\:6587\:7ae0\:306e\:66f8\:304b\:308c\:3066\:3044\:308b\
\:30bb\:30eb\:306e\:30b9\:30bf\:30a4\:30eb\:306f\:ff0cText\:306b\:306a\:3063\
\:3066\:3044\:308b\:3053\:3068\:304c\:78ba\:8a8d\:3067\:304d\:308b\:3002\:4e0a\
\:306e\:592a\:6587\:5b57\:3067\:66f8\:304b\:308c\:3066\:3044\:308b\:ff0c\:300c\
\:539f\:59cb\:7684\:306a\:5bfe\:51e6\:6cd5\:306f\:30fb\:30fb\:30fb\:300d\:3068\
\:3044\:3046\:30bb\:30eb\:306e\:30b9\:30bf\:30a4\:30eb\:306f\:ff0cInput \
\:306b\:306a\:3063\:3066\:3044\:308b\:3002"
}], "Text",
 CellChangeTimes->{{3.65076942903308*^9, 3.650769437682679*^9}, {
  3.650769478007235*^9, 3.6507694846306973`*^9}, {3.650769616197071*^9, 
  3.650769661961319*^9}, {3.650769707601364*^9, 
  3.650769773843992*^9}},ExpressionUUID->"a42b6095-f16e-4e0d-bc64-\
a116b75bcb69"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1240, 768},
WindowMargins->{{Automatic, 11}, {Automatic, 35}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification:>2. Inherited,
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 21, \
2017)",
StyleDefinitions->"Textbook.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3650745424-7540298"->{
  Cell[37174, 1003, 178, 4, 
  91, "Print", "ExpressionUUID" -> "f8e24a75-bd0a-4c0b-bae9-33c30b9c3d18",
   CellTags->"Info3650745424-7540298"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3650745424-7540298", 60216, 1649}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 121, 0, 109, "Title", "ExpressionUUID" -> \
"2136e587-9845-4f5f-ade6-8637f8526c85"],
Cell[703, 24, 120, 0, 61, "Subtitle", "ExpressionUUID" -> \
"aa24dfd4-7384-47bb-a563-857db5cd06f4"],
Cell[826, 26, 190, 3, 57, "Subsubtitle", "ExpressionUUID" -> \
"cff2e786-325e-4033-8612-074f07141c2c"],
Cell[1019, 31, 736, 13, 108, "Text", "ExpressionUUID" -> \
"cd65603e-1b66-4f3b-9d32-82a9d90f1bca"],
Cell[1758, 46, 240, 4, 75, "Text", "ExpressionUUID" -> \
"40738a26-2dd4-48fe-8ce2-6716931d9532"],
Cell[2001, 52, 260, 4, 43, "Text", "ExpressionUUID" -> \
"50125d7e-8741-4dc8-8358-db67f99ecd6a"],
Cell[CellGroupData[{
Cell[2286, 60, 354, 10, 55, "Input", "ExpressionUUID" -> \
"e27404ad-c5c0-4693-bc33-fe38bbb2574e"],
Cell[2643, 72, 302, 6, 99, "Output", "ExpressionUUID" -> \
"b22d5fff-59ff-4f6d-af10-363206f0c0d9"]
}, Open  ]],
Cell[2960, 81, 1090, 19, 101, "Text", "ExpressionUUID" -> \
"ff70b9f5-b6c4-49fb-96e1-9c7f0140ae3d"],
Cell[CellGroupData[{
Cell[4075, 104, 220, 5, 55, "Input", "ExpressionUUID" -> \
"8709ec65-b8ec-4780-926c-b07206c60cd5"],
Cell[4298, 111, 276, 5, 99, "Output", "ExpressionUUID" -> \
"083978d0-ff4a-406e-a280-7d5de2c21789"]
}, Open  ]],
Cell[4589, 119, 652, 9, 71, "Text", "ExpressionUUID" -> \
"7b6e80ad-37be-4197-8a69-19e2edb75bbc"],
Cell[CellGroupData[{
Cell[5266, 132, 388, 12, 55, "Input", "ExpressionUUID" -> \
"9ef307d1-a83b-4019-9742-51b68e8afdae"],
Cell[5657, 146, 424, 11, 99, "Output", "ExpressionUUID" -> \
"5d714ed8-e32e-4b2c-88c6-2cc0b69dc707"]
}, Open  ]],
Cell[6096, 160, 530, 10, 71, "Text", "ExpressionUUID" -> \
"199dbfd0-a844-4227-8eed-61522ec5ca1f"],
Cell[CellGroupData[{
Cell[6651, 174, 220, 5, 55, "Input", "ExpressionUUID" -> \
"5a1e57b7-9e6f-49f5-8506-41dfb62a3576"],
Cell[6874, 181, 275, 5, 99, "Output", "ExpressionUUID" -> \
"b99e161d-fbb3-400c-b83a-564ba4259472"]
}, Open  ]],
Cell[7164, 189, 1114, 22, 101, "Text", "ExpressionUUID" -> \
"690012fd-6581-45c9-842c-7c1a0749bb7a"],
Cell[8281, 213, 986, 20, 137, "Text", "ExpressionUUID" -> \
"87bc155e-f568-4ec7-afc8-3440be02b7be"],
Cell[CellGroupData[{
Cell[9292, 237, 322, 9, 55, "Input", "ExpressionUUID" -> \
"8306cfe8-9131-444f-9a6f-880b11c31bc0"],
Cell[9617, 248, 350, 9, 99, "Output", "ExpressionUUID" -> \
"a7eae6ff-3402-4686-a96b-be35ef4d12cc"]
}, Open  ]],
Cell[9982, 260, 337, 4, 43, "Text", "ExpressionUUID" -> \
"184e8bcb-cd4e-467b-a454-253ac0869d4f"],
Cell[CellGroupData[{
Cell[10344, 268, 143, 2, 55, "Input", "ExpressionUUID" -> \
"8793bc2b-060e-4538-8800-080298542150"],
Cell[10490, 272, 276, 5, 99, "Output", "ExpressionUUID" -> \
"a59b7144-b6ef-446a-aa43-c061a91a069a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10803, 282, 143, 2, 55, "Input", "ExpressionUUID" -> \
"30452b0e-e3ef-40ef-bb0f-ae626bc43cc3"],
Cell[10949, 286, 280, 5, 99, "Output", "ExpressionUUID" -> \
"59db1377-2573-4c8f-ac20-a412e4969755"]
}, Open  ]],
Cell[11244, 294, 415, 8, 69, "Text", "ExpressionUUID" -> \
"99242612-ea31-4822-abd3-2b58f0a2e44c"],
Cell[CellGroupData[{
Cell[11684, 306, 177, 3, 55, "Input", "ExpressionUUID" -> \
"0214e13a-5fe0-4391-a1a9-3cc03eb515ee"],
Cell[11864, 311, 369, 9, 99, "Output", "ExpressionUUID" -> \
"1edb62ad-0a1d-4d2f-903c-1b6f0a2da55d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12270, 325, 204, 4, 55, "Input", "ExpressionUUID" -> \
"7220d8a7-4bb1-4815-86a3-5bdbf83f514c"],
Cell[12477, 331, 387, 9, 99, "Output", "ExpressionUUID" -> \
"f517cf08-71f3-4d44-b6f7-6b18af636222"]
}, Open  ]],
Cell[12879, 343, 748, 13, 71, "Text", "ExpressionUUID" -> \
"c558e062-2eab-48d6-9137-f924b14effef"],
Cell[13630, 358, 815, 15, 72, "Text", "ExpressionUUID" -> \
"ffa6ceb0-6eeb-45cc-84b6-372bc88bbec7"],
Cell[CellGroupData[{
Cell[14470, 377, 138, 2, 77, "Input", "ExpressionUUID" -> \
"0d1d0f87-29ae-4bba-9a4d-d50c7e2fea72"],
Cell[14611, 381, 352, 9, 99, "Output", "ExpressionUUID" -> \
"3bc30ec8-59be-4888-a803-b8e545bf79f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15000, 395, 204, 4, 77, "Input", "ExpressionUUID" -> \
"ff7ffad0-b361-4d0d-b53f-dba9000c239b"],
Cell[15207, 401, 371, 9, 99, "Output", "ExpressionUUID" -> \
"c0c5d48c-0a64-4ffd-9933-86e88b993730"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15615, 415, 203, 4, 77, "Input", "ExpressionUUID" -> \
"6a45e777-1887-42ac-abef-44a155d6e2f2"],
Cell[15821, 421, 386, 9, 99, "Output", "ExpressionUUID" -> \
"beb4257a-8c06-4d77-a459-6b0c227b2f0f"]
}, Open  ]],
Cell[16222, 433, 166, 2, 43, "Text", "ExpressionUUID" -> \
"af47da5a-b235-4768-97ac-26b620428fa2"],
Cell[CellGroupData[{
Cell[16413, 439, 329, 9, 77, "Input", "ExpressionUUID" -> \
"17915241-bad1-4360-8308-c43f1b1867a5"],
Cell[16745, 450, 342, 9, 99, "Output", "ExpressionUUID" -> \
"4cef8d64-1c80-4e59-a52b-1e7ea8cb7898"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17124, 464, 1123, 32, 206, "Input", "ExpressionUUID" -> \
"84efe323-6ed7-49ab-9a93-a8b5af4d3617"],
Cell[18250, 498, 1004, 23, 433, "Output", "ExpressionUUID" -> \
"2028a2e3-2937-4cf9-a334-9a0642393077"]
}, Open  ]],
Cell[19269, 524, 604, 13, 72, "Text", "ExpressionUUID" -> \
"44a66803-5d4f-4c18-9479-149a0b184079"],
Cell[CellGroupData[{
Cell[19898, 541, 1070, 31, 206, "Input", "ExpressionUUID" -> \
"0d3b5dbc-e2c2-4e3a-9d11-97c0d0e3dffa"],
Cell[20971, 574, 1010, 24, 433, "Output", "ExpressionUUID" -> \
"6ee96282-c7bc-42f0-a570-a3875f9e024c"]
}, Open  ]],
Cell[21996, 601, 803, 12, 100, "Text", "ExpressionUUID" -> \
"7ace0a70-1c9d-445b-bd34-55c7b7c6ea4e"],
Cell[CellGroupData[{
Cell[22824, 617, 1072, 29, 206, "Input", "ExpressionUUID" -> \
"7ea810da-3a6d-4944-b2e5-08c9f0797118"],
Cell[23899, 648, 982, 23, 433, "Output", "ExpressionUUID" -> \
"6c06ad86-ac40-419d-8c7e-7afd5961fafc"]
}, Open  ]],
Cell[24896, 674, 336, 4, 43, "Text", "ExpressionUUID" -> \
"ae3e26e8-54ac-47b9-87b9-84cb5f8d1f19"],
Cell[CellGroupData[{
Cell[25257, 682, 196, 4, 77, "Input", "ExpressionUUID" -> \
"8cc16bbc-8e19-4dd3-9bf6-33bbf5595a14"],
Cell[25456, 688, 1153, 26, 433, "Output", "ExpressionUUID" -> \
"f860adc7-5fa4-492e-b3d7-db388061e83e"]
}, Open  ]],
Cell[26624, 717, 886, 13, 100, "Text", "ExpressionUUID" -> \
"bd3517a8-1470-4022-b309-71babf6c3bdc"],
Cell[CellGroupData[{
Cell[27535, 734, 239, 8, 88, "Subsubtitle", "ExpressionUUID" -> \
"f448f0f6-0f46-47b3-b51e-fe4afbbe1762"],
Cell[27777, 744, 310, 5, 43, "Text", "ExpressionUUID" -> \
"beb39d3f-7d77-41ee-bc86-209942eb1b0b"],
Cell[CellGroupData[{
Cell[28112, 753, 345, 10, 77, "Input", "ExpressionUUID" -> \
"ceb0447d-09bc-4b02-b0ca-6e202453cc44"],
Cell[28460, 765, 304, 7, 121, "Output", "ExpressionUUID" -> \
"442c9f00-68c4-4adb-b3dd-004defa322b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28801, 777, 164, 3, 77, "Input", "ExpressionUUID" -> \
"df798ebb-42c5-45e0-8180-f71350722a8a"],
Cell[28968, 782, 299, 6, 99, "Output", "ExpressionUUID" -> \
"4b774c7c-fb71-4e75-a253-e24da9c9e3d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29304, 793, 190, 4, 77, "Input", "ExpressionUUID" -> \
"a99541fe-692c-47b5-a6cd-8a626f0ac8be"],
Cell[29497, 799, 276, 5, 99, "Output", "ExpressionUUID" -> \
"ea58b8b3-9f3c-4455-82e7-ddb66500ce7a"]
}, Open  ]],
Cell[29788, 807, 388, 6, 43, "Text", "ExpressionUUID" -> \
"05942ee5-ab85-4cdf-9cea-739d17fdc85d"],
Cell[CellGroupData[{
Cell[30201, 817, 137, 2, 77, "Input", "ExpressionUUID" -> \
"558321c7-0682-4e19-9188-363b0aff2a42"],
Cell[30341, 821, 207, 3, 99, "Output", "ExpressionUUID" -> \
"2e12d8d1-7ac3-4b17-b897-f676fc54c086"]
}, Open  ]],
Cell[30563, 827, 219, 2, 43, "Text", "ExpressionUUID" -> \
"a54ebb62-5600-49a1-9c10-69d1087cea1d"],
Cell[CellGroupData[{
Cell[30807, 833, 171, 3, 77, "Input", "ExpressionUUID" -> \
"9b1e78ed-b02c-43e4-9d94-cf48e72738cf"],
Cell[30981, 838, 227, 3, 99, "Output", "ExpressionUUID" -> \
"b6f8a88f-91b0-4c8e-8a40-6bae201116f4"]
}, Open  ]],
Cell[31223, 844, 426, 6, 70, "Text", "ExpressionUUID" -> \
"6129aab4-fd37-41c1-84a5-d983a06168bb"],
Cell[CellGroupData[{
Cell[31674, 854, 137, 2, 77, "Input", "ExpressionUUID" -> \
"2b577ff2-663b-45fa-ab7b-a259ef3a450c"],
Cell[31814, 858, 205, 3, 99, "Output", "ExpressionUUID" -> \
"10e8936b-a6c6-4e6a-a290-c3df4784d4ef"]
}, Open  ]],
Cell[32034, 864, 277, 3, 43, "Text", "ExpressionUUID" -> \
"7224bc02-23f8-49f5-b46d-4f5ada658285"],
Cell[CellGroupData[{
Cell[32336, 871, 161, 3, 77, "Input", "ExpressionUUID" -> \
"4f732364-443f-4d7d-a387-9ff00c43615d"],
Cell[32500, 876, 210, 3, 99, "Output", "ExpressionUUID" -> \
"66c2229b-3894-4df4-9151-efd713352432"]
}, Open  ]],
Cell[32725, 882, 219, 2, 43, "Text", "ExpressionUUID" -> \
"cecdf170-64b7-4fc2-bcf2-e9b5de669b99"],
Cell[CellGroupData[{
Cell[32969, 888, 137, 2, 77, "Input", "ExpressionUUID" -> \
"decc8f04-f99a-4c40-af8f-9d4772cf3e40"],
Cell[33109, 892, 212, 3, 99, "Output", "ExpressionUUID" -> \
"dffbdfa0-b94d-4b05-9309-3fc2f12ef0cb"]
}, Open  ]],
Cell[33336, 898, 184, 2, 43, "Text", "ExpressionUUID" -> \
"b95d621c-052d-4132-a242-2e8c4835325a"],
Cell[CellGroupData[{
Cell[33545, 904, 236, 5, 77, "Input", "ExpressionUUID" -> \
"f9966d41-cadb-47e8-aee7-7c8e75b5cbaf"],
Cell[33784, 911, 210, 3, 99, "Output", "ExpressionUUID" -> \
"0a1b81f9-ee38-4837-9ff9-3fe142817963"]
}, Open  ]],
Cell[34009, 917, 139, 1, 43, "Text", "ExpressionUUID" -> \
"949bf3f9-2152-4062-ad0b-3e299d0e2bb8"],
Cell[CellGroupData[{
Cell[34173, 922, 236, 5, 77, "Input", "ExpressionUUID" -> \
"f8e10ee1-db10-47c2-becf-b8b24e1615de"],
Cell[34412, 929, 207, 3, 99, "Output", "ExpressionUUID" -> \
"6fff14f8-1707-4bf8-9720-f910e1b89365"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34656, 937, 137, 2, 77, "Input", "ExpressionUUID" -> \
"19d5d421-84e5-4935-a3c1-52f830fc81fa"],
Cell[34796, 941, 208, 3, 99, "Output", "ExpressionUUID" -> \
"4247b7e9-bb40-46e9-ba04-7b965b556f00"]
}, Open  ]],
Cell[35019, 947, 514, 9, 71, "Text", "ExpressionUUID" -> \
"d69cc1c1-b57d-4562-a9fc-b438796374a6"],
Cell[35536, 958, 160, 3, 77, "Input", "ExpressionUUID" -> \
"815df5a9-16c2-45bf-96c1-8399b8207382"],
Cell[35699, 963, 95, 0, 42, "Text", "ExpressionUUID" -> \
"e60f6de9-dcd9-4652-b48e-f4a7a51ea8a6"],
Cell[35797, 965, 168, 3, 77, "Input", "ExpressionUUID" -> \
"7c616e9c-23bf-4ffe-90b4-9a4248ad73e2"],
Cell[35968, 970, 220, 2, 43, "Text", "ExpressionUUID" -> \
"64081d15-cefb-417b-bac4-fc7d3bcf3d54"],
Cell[CellGroupData[{
Cell[36213, 976, 137, 2, 77, "Input", "ExpressionUUID" -> \
"e7bf2300-a792-4161-b282-dc7a7f0e42a0"],
Cell[36353, 980, 207, 3, 99, "Output", "ExpressionUUID" -> \
"0b90a41e-a965-4188-b3ea-9f898b7fcb9a"]
}, Open  ]],
Cell[36575, 986, 417, 8, 43, "Text", "ExpressionUUID" -> \
"d7f4aa45-5777-432e-bca9-d6c831af25a7"],
Cell[CellGroupData[{
Cell[37017, 998, 154, 3, 77, "Input", "ExpressionUUID" -> \
"fc82949a-5bc5-4f03-9159-fdbd3c3e0ed1"],
Cell[37174, 1003, 178, 4, 91, "Print", "ExpressionUUID" -> \
"f8e24a75-bd0a-4c0b-bae9-33c30b9c3d18",
 CellTags->"Info3650745424-7540298"]
}, Open  ]],
Cell[37367, 1010, 538, 9, 72, "Text", "ExpressionUUID" -> \
"7b23cf60-a09b-4d42-9791-e01de849ee3c"],
Cell[37908, 1021, 169, 3, 77, "Input", "ExpressionUUID" -> \
"196d91bc-f713-43db-9b0b-f98750f2763b"],
Cell[CellGroupData[{
Cell[38102, 1028, 154, 3, 77, "Input", "ExpressionUUID" -> \
"2d0f3ec3-caf3-4b63-bd7b-b46c04c876d1"],
Cell[38259, 1033, 667, 13, 83, "Message", "ExpressionUUID" -> \
"4ee7fe80-0c59-49ee-b292-8fd4fc6a3212"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[38975, 1052, 310, 8, 88, "Subsubtitle", "ExpressionUUID" -> \
"4a896eeb-c152-47b9-92eb-ad2664a8e7a4"],
Cell[39288, 1062, 232, 5, 77, "Input", "ExpressionUUID" -> \
"10197490-1e46-471e-a569-2d7f15a49b2c"],
Cell[39523, 1069, 323, 5, 43, "Text", "ExpressionUUID" -> \
"5e937c81-450e-46a3-b0c4-7a09b19fce4a"],
Cell[CellGroupData[{
Cell[39871, 1078, 463, 13, 77, "Input", "ExpressionUUID" -> \
"eb99ac70-b975-43f2-8ff5-699994845a05"],
Cell[40337, 1093, 279, 5, 99, "Output", "ExpressionUUID" -> \
"d6358922-d774-450f-8eb1-1f97b2eefa46"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40653, 1103, 504, 15, 77, "Input", "ExpressionUUID" -> \
"8a8001c3-cef2-43de-b230-9dce3b01a20f"],
Cell[41160, 1120, 277, 5, 99, "Output", "ExpressionUUID" -> \
"3cab4440-a84f-4511-b320-d0134b13fb8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41474, 1130, 511, 14, 77, "Input", "ExpressionUUID" -> \
"68751871-a278-4025-9365-7f47428fe82b"],
Cell[41988, 1146, 280, 5, 99, "Output", "ExpressionUUID" -> \
"a7578a6b-c622-4207-a6b0-4fe1d388efcd"]
}, Open  ]],
Cell[42283, 1154, 789, 14, 71, "Text", "ExpressionUUID" -> \
"777dde00-47e0-4e72-871d-a7bd339fbd2a"],
Cell[CellGroupData[{
Cell[43097, 1172, 466, 13, 77, "Input", "ExpressionUUID" -> \
"a0f6ede4-eaeb-4896-8b68-dc780b695a2c"],
Cell[43566, 1187, 278, 5, 99, "Output", "ExpressionUUID" -> \
"fb1af732-0e0c-447e-8ec9-e24c23e5d247"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43881, 1197, 273, 7, 77, "Input", "ExpressionUUID" -> \
"bf115b0f-d67a-4964-a6ae-7e94b13984cb"],
Cell[44157, 1206, 338, 8, 99, "Output", "ExpressionUUID" -> \
"fa5255f0-fbcb-4323-bcc9-2404e7ed42e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44532, 1219, 221, 5, 77, "Input", "ExpressionUUID" -> \
"c0cfed3e-8d9a-4ed4-82dd-a6aa831b42db"],
Cell[44756, 1226, 225, 3, 99, "Output", "ExpressionUUID" -> \
"0994e0f8-ce0f-41c3-9b49-426229558b0c"]
}, Open  ]],
Cell[44996, 1232, 473, 7, 72, "Text", "ExpressionUUID" -> \
"24ee7508-cfa8-4c6a-8deb-bc74ffe06a18"],
Cell[CellGroupData[{
Cell[45494, 1243, 263, 7, 77, "Input", "ExpressionUUID" -> \
"c3880fb9-babf-4ea9-8945-c4184cb42a7d"],
Cell[45760, 1252, 338, 8, 99, "Output", "ExpressionUUID" -> \
"0b88ec6f-5573-443c-b83f-a8b3813b9e4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46135, 1265, 221, 5, 77, "Input", "ExpressionUUID" -> \
"cce1abd2-011e-4bcd-be44-ecd767ca599d"],
Cell[46359, 1272, 213, 3, 99, "Output", "ExpressionUUID" -> \
"93ff7f84-058e-4bbf-a3e5-b5335ff34022"]
}, Open  ]],
Cell[46587, 1278, 372, 6, 43, "Text", "ExpressionUUID" -> \
"b9c1aa06-c4f3-4933-82e7-5a477bb37b08"],
Cell[CellGroupData[{
Cell[46984, 1288, 234, 6, 77, "Input", "ExpressionUUID" -> \
"28cf53fb-1fba-42bb-9f9b-7a78083afea0"],
Cell[47221, 1296, 303, 7, 99, "Output", "ExpressionUUID" -> \
"9d4292df-2e7f-4a0a-9b2e-ac36c0b9d651"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47561, 1308, 177, 3, 77, "Input", "ExpressionUUID" -> \
"ae03d393-88dc-408a-8383-89699755e617"],
Cell[47741, 1313, 211, 3, 99, "Output", "ExpressionUUID" -> \
"29ce0fe1-db07-4069-bad6-e52f0f9041f9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48001, 1322, 228, 7, 88, "Subsubtitle", "ExpressionUUID" -> \
"ec723b94-8ca6-46e4-9318-8a9da79c7809"],
Cell[48232, 1331, 219, 3, 43, "Text", "ExpressionUUID" -> \
"6ae17923-4d4c-49cd-ad4a-ef43279eac43"],
Cell[CellGroupData[{
Cell[48476, 1338, 391, 12, 77, "Input", "ExpressionUUID" -> \
"fbf25036-8647-4b2e-9685-30697d192305"],
Cell[48870, 1352, 699, 18, 138, "Output", "ExpressionUUID" -> \
"7b384da1-ba8f-47a1-8291-897e57eda6d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49606, 1375, 231, 5, 77, "Input", "ExpressionUUID" -> \
"c3c06b95-dd6a-4ddf-b41b-a2139a6fcf43"],
Cell[49840, 1382, 278, 5, 99, "Output", "ExpressionUUID" -> \
"5f436eec-8210-45c0-8bf5-3201ef5d5e39"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50155, 1392, 422, 12, 77, "Input", "ExpressionUUID" -> \
"3dfb32ca-fcce-411b-ab35-e7a675b3f77f"],
Cell[50580, 1406, 700, 19, 136, "Output", "ExpressionUUID" -> \
"8361ec61-6698-49cb-a76f-92b86613d2f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51317, 1430, 232, 5, 77, "Input", "ExpressionUUID" -> \
"d48285c1-296d-4b78-bb1f-b50bdc4f3778"],
Cell[51552, 1437, 280, 5, 99, "Output", "ExpressionUUID" -> \
"b492ccff-5f15-49d5-9226-da7280724c21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51869, 1447, 541, 16, 77, "Input", "ExpressionUUID" -> \
"1cc9b999-a231-45c1-830b-bd73e0847fba"],
Cell[52413, 1465, 426, 11, 99, "Output", "ExpressionUUID" -> \
"4c2b08c4-2162-4a33-b0b5-c49e832bab23"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52876, 1481, 231, 5, 77, "Input", "ExpressionUUID" -> \
"216d6e57-65e8-42c3-ade4-34a01d47754c"],
Cell[53110, 1488, 278, 5, 99, "Output", "ExpressionUUID" -> \
"69093916-064e-410b-a7e6-e4dab9270fcc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[53437, 1499, 369, 9, 119, "Subsubtitle", "ExpressionUUID" -> \
"82db0042-8e9e-4feb-960e-2d4e672b906a"],
Cell[53809, 1510, 275, 4, 43, "Text", "ExpressionUUID" -> \
"3798b7b4-f66c-4ec4-b7e6-e7e18c24a471"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54121, 1519, 324, 9, 88, "Subsubtitle", "ExpressionUUID" -> \
"80458064-f194-47ad-81c2-f0746185ed05"],
Cell[CellGroupData[{
Cell[54470, 1532, 335, 6, 55, "Input", "ExpressionUUID" -> \
"5b874790-f549-42de-933e-afcf2a385b86"],
Cell[54808, 1540, 658, 13, 115, "Message", "ExpressionUUID" -> \
"cf708632-7f96-4920-9a16-b7ad17a367e3"]
}, Open  ]],
Cell[55481, 1556, 609, 12, 72, "Text", "ExpressionUUID" -> \
"4c4b4401-a7ea-4dcd-b519-337d317d69bf"],
Cell[56093, 1570, 361, 7, 94, "Input", "ExpressionUUID" -> \
"7b8d51c8-9b4b-4c0d-909a-d046333f39ca"],
Cell[56457, 1579, 527, 7, 71, "Text", "ExpressionUUID" -> \
"4f2e540b-688e-4279-9477-30058f29d06f"],
Cell[56987, 1588, 2797, 43, 315, "Text", "ExpressionUUID" -> \
"a42b6095-f16e-4e0d-bc64-a116b75bcb69"]
}, Open  ]]
}, Open  ]]
}
]
*)