(* 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[     30298,        782]
NotebookOptionsPosition[     27223,        683]
NotebookOutlinePosition[     27684,        701]
CellTagsIndexPosition[     27641,        698]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

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

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

Cell["2.5  Interest-bearing Bonds and Discount Bonds ", "Subsubtitle",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0.501961, 1]],

Cell[TextData[{
 "\:3000 \:3053\:308c\:307e\:3067\:6271\:3063\:3066\:304d\:305f\:5272\:5f15\
\:50b5\:306f\:ff0c\:6e80\:671f\:304c\:6765\:308b\:307e\:3067\:300c\:5229\:5b50\
\:300d\:306e\:652f\:6255\:3044\:306f\:7121\:304b\:3063\:305f\:3002\:30af\:30fc\
\:30dd\:30f3(\:5229\:672d)\:304c\:3064\:3044\:305f\:50b5\:5238\:306f\:ff0c",
 StyleBox["\:5229\:4ed8\:50b5",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "( Interest Bearing Bonds ) \:3068\:547c\:3070\:308c\:308b\:3002\:5272\:5f15\
\:50b5\:306f\:ff0c\:30af\:30fc\:30dd\:30f3\:304c0\:306a\:306e\:3067\:ff0c\
\:30bc\:30ed\:30fb\:30af\:30fc\:30dd\:30f3\:50b5\:3068\:3082\:547c\:3070\:308c\
\:308b\:3002\:30af\:30fc\:30dd\:30f3\:306e\:300c\:5927\:304d\:3055\:300d\:306f\
\:ff0c\:984d\:9762\:306b\:5bfe\:3059\:308b\:5272\:5408\:3067\:8868\:3055\:308c\
\:ff0c\:3053\:306e\:6bd4\:7387\:3092\:300c\:5229\:7387\:300d\:3068\:547c\:3076\
\:3002"
}], "Text"],

Cell["\<\
 \:3000\:4f8b\:3048\:3070,\:3000\:511f\:9084\:671f\:9650(\:5143\:672c\:304c\
\:8fd4\:6e08\:3055\:308c\:308b\:6e80\:671f)T\:304c2\:5e74\:ff0c\:30af\:30fc\
\:30dd\:30f3\:304c\:5e742\:ff05\:ff0c\:5229\:6255\:3044\:304c\:5e742\:56de\
\:306e\:5229\:4ed8\:50b5\:3092\:8003\:3048\:308b\:3002\:3053\:306e\:5229\:4ed8\
\:50b5\:306e\:6240\:6709\:8005\:306f\:ff0c\:984d\:9762100\:5186\:306b\:5bfe\
\:3057\:3066\:ff0c\:4eca\:304b\:3089\:6570\:3048\:306f\:3058\:3081\:3066\:534a\
\:5e74\:6bce\:306b\:ff0c\:30af\:30fc\:30dd\:30f3\:3068\:4ea4\:63db\:306b1\
\:5186(\:ff1d100\[Times]0.02/2)\:3092\:53d7\:53d6\:308b\:3053\:3068\:304c\
\:3067\:304d\:308b\:30022\:5e74\:5f8c\:306e\:6e80\:671f\:65e5\:306b\:306f\
\:ff0c(\:50b5\:5238\:3068\:5f15\:304d\:63db\:3048\:306b)\:984d\:9762\:306e100\
\:5186\:3092\:53d7\:53d6\:308b\:3053\:3068\:304c\:3067\:304d\:308b\:3002\
\>", "Text"],

Cell["\<\
\:3000\:5229\:4ed8\:50b5\:306f\:8ab0\:304b(\:4f8b\:3048\:3070\:ff0c\:65e5\
\:672c\:653f\:5e9c)\:304c\:767a\:884c\:3057\:305f\:3082\:306e\:3067\:3042\
\:308a\:ff0c\:767a\:884c\:8005\:306f\:5229\:4ed8\:50b5\:3092\:5f15\:304d\:6e21\
\:3059\:304b\:308f\:308a\:306b\:ff0c(\:5229\:4ed8\:50b5\:306e\:8cfc\:5165\
\:8005\:304b\:3089)\:8cc7\:91d1\:3092\:53d7\:53d6\:308b\:3002\:4ed6\:306e\
\:50b5\:5238\:3068\:540c\:69d8\:306b\:ff0c\:5229\:4ed8\:50b5\:306e\:767a\:884c\
\:8005\:306f\:8cc7\:91d1\:3092\:501f\:308a\:305f\:3053\:3068\:306b\:306a\:308a\
\:ff0c\:5229\:4ed8\:50b5\:306e\:8cfc\:5165\:8005(\:6295\:8cc7\:5bb6)\:306f\
\:8cc7\:91d1\:3092\:8cb8\:3057\:4ed8\:3051\:305f\:3053\:3068\:306b\:306a\:308b\
\:3002\:5148\:307b\:3069\:306e\:5229\:4ed8\:50b5\:306e\:5834\:5408\:ff0c\:5229\
\:4ed8\:50b5\:3092\:8cb7\:3063\:305f\:6295\:8cc7\:5bb6\:306f,\:4eca\:304b\
\:3089,\:534a\:5e74\:5f8c\:ff0c\:ff11\:5e74\:5f8c\:ff0c\:ff11\:5e74\:534a\
\:5f8c\:ff0c2\:5e74\:5f8c\:3068\:ff0c\:5168\:90e8\:30674\:56de\:ff0c\:ff11\
\:5186\:306e\[CloseCurlyDoubleQuote]\:5229\:5b50\[CloseCurlyDoubleQuote]\:3092\
\:53d7\:53d6\:308a,\:6700\:5f8c\:306b\:65e5\:672c\:653f\:5e9c\:306b\"\:8cb8\
\:3057\:305f\"\:5143\:672c100\:5186\:306e\:8fd4\:6e08\:3092\:53d7\:3051\:308b\
\:3068\:307f\:306a\:3059\:3053\:3068\:304c\:3067\:304d\:308b\:3002\:5272\:5f15\
\:50b5\:306e\:5834\:5408\:306f\:6e80\:671f\:307e\:3067\:306e\:9593\:306b\:30af\
\:30fc\:30dd\:30f3\:5206\:306e\:300c\:5229\:5b50\:300d\:3092\:53d7\:53d6\:308b\
\:3053\:3068\:306f\:306a\:3044\:306e\:3067\:ff0c\:501f\:308a\:3066\:3044\:308b\
\:9593\:306f\:6bce\:5e74\:6c7a\:307e\:3063\:305f\:5229\:5b50\:306e\:652f\:6255\
\:3044\:304c\:3042\:308b\:3088\:3046\:306a\:501f\:5165\:308c\:3068\:306e\:985e\
\:4f3c\:6027\:304c\:306a\:3044\:3088\:3046\:306b\:898b\:3048\:308b\:304c\:ff0c\
\:50b5\:5238\:306e\:767a\:884c\:8005\:306f\:8cc7\:91d1\:3092\:300c\:501f\:308a\
\:305f\:300d\:3053\:3068\:306b\:306a\:308a\:ff0c\:50b5\:5238\:306e\:8cfc\:5165\
\:8005\:306f\:8cc7\:91d1\:3092\:300c\:8cb8\:3057\:305f\:300d\:3053\:3068\:306b\
\:306a\:308b\:3053\:3068\:306b\:6ce8\:610f\:3055\:308c\:305f\:3044\:3002\
\>", "Text",
 FontWeight->"Plain",
 FontVariations->{"CompatibilityType"->0}],

Cell["\<\
\:3000\:3055\:3066\:6295\:8cc7\:5bb6\:306e\:7acb\:5834\:304b\:3089\:3059\:308b\
\:3068\:ff0c\:50b5\:5238\:8cfc\:5165\:3068\:3044\:3046\:300c\:6295\:8cc7\:300d\
\:306b\:5bfe\:3059\:308b\:6295\:8cc7\:53ce\:76ca\:7387\:306f\:3044\:304f\:3089\
\:306b\:306a\:308b\:3067\:3042\:308d\:3046\:304b\:3002\:307e\:305a\:ff0c\:ff11\
\:5e74\:6e80\:671f\:306e\:6b21\:306e\:3088\:3046\:306a\:50b5\:5238\:306b\:3064\
\:3044\:3066\:8003\:3048\:3066\:307f\:3088\:3046\:3002\
\>", "Text"],

Cell["\:3000\:73fe\:5728\:4fa1\:683c\:304c98\:5186\:306e\:30bc\:30ed\:30fb\
\:30af\:30fc\:30dd\:30f3\:50b5\:ff0c\:ff11\:5e74\:6e80\:671f", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
98\:5186\:6295\:8cc7\:3057\:30661\:5e74\:5f8c\:306b100\:5186\:623b\:3063\:3066\
\:304f\:308b\:304b\:3089\:ff0c\:5dee\:3057\:5f15\:304d2\:5186\:306e\:53ce\
\:76ca\:3092\:3042\:3052\:305f\:3053\:3068\:306b\:306a\:308b\:3002\:4e00\:822c\
\:306e\:5546\:54c1\:306e\:5834\:5408\:ff0c\:4f8b\:3048\:30701\:672c100\:5186\
\:306e\:30a2\:30a4\:30b9\:30af\:30ea\:30fc\:30e0\:3092\:8ca9\:58f2\:3057\:3066\
100\:5186\:306e\:58f2\:308a\:4e0a\:3052\:304c\:3042\:3063\:305f\:3068\:3057\
\:3066\:3082\:ff0c100\:5186\:306f\:5229\:76ca\:3067\:306f\:306a\:3044\:3002\
\:5546\:54c1\:3092\:4ed5\:5165\:308c\:308b\:305f\:3081\:306b60\:5186\:652f\
\:6255\:3044\:ff0c\:5e97\:8217\:306e\:8cbb\:7528\:306b10\:5186\:304b\:304b\
\:308a\:ff0c\:3055\:3089\:306b\:4eba\:4ef6\:8cbb\:306725\:5186\:304b\:304b\
\:308b\:306a\:3069\:ff0c100\:5186\:306e\:58f2\:4e0a\:3052\:3092\:5f97\:308b\
\:306e\:306b\:304b\:304b\:3063\:305f\:8cbb\:7528\:3092\:5dee\:3057\:5f15\:3044\
\:305f\:5206\:304c\:ff0c(\:7a0e\:5f15\:304d\:524d)\:5229\:76ca\:3067\:3042\
\:308b\:3002\:8a3c\:5238\:6295\:8cc7\:306e\:5834\:5408\:3082\:ff0c100\:5186\
\:306e\:300c\:73fe\:91d1\:53ce\:5165\:300d\:3092\:5f97\:308b\:305f\:3081\:306b\
98\:5186\:300c\:652f\:6255\:3063\:3066\:300d\:3044\:308b\:306e\:3067\:3042\
\:308c\:3070\:ff0c\:5132\:3051\:306e\:57fa\:6e96\:3068\:3057\:3066\:306f\:ff0c\
\:3053\:308c\:3092\:5dee\:3057\:5f15\:3044\:305f2\:5186\:3092\:8003\:3048\
\:308b\:306e\:304c\:9069\:5207\:3067\:3042\:308d\:3046\:3002\:3055\:3089\:306b\
\:306f\:ff0c\:6295\:4e0b\:3059\:308b\:8cc7\:91d1\:306e\:300c\:52b9\:7387\:300d\
\:3092\:57fa\:6e96\:3068\:3059\:308b\:305f\:3081\:306b\:ff0c\:6295\:4e0b\:8cc7\
\:91d11\:5186\:3042\:305f\:308a\:3067\:3044\:304f\:3089\:306e\:53ce\:76ca\
\:3092\:4e0a\:3052\:305f\:306e\:304b\:3092\:8003\:3048\:3066\:ff0c\:300c\:6295\
\:8cc7\:53ce\:76ca\:7387\:300d\:3092\:8a08\:7b97\:3059\:308b\:3002\:3053\:306e\
\:53ce\:76ca\:300c\:7387\:300d\:306e\:8a08\:7b97\:306e\:305f\:3081\:306b\:ff0c\
\:53ce\:76ca\:984d\:3092\:6295\:4e0b\:8cc7\:91d1\:306e\:91d1\:984d\:3067\:5272\
\:308b\:3002
\
\>", "Text"],

Cell[CellGroupData[{

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

Cell[BoxData["0.02040816326530612`"], "Output",
 CellChangeTimes->{3.6506211810937777`*^9, 3.650711554412944*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 StyleBox["\:5e74",
  FontColor->RGBColor[1, 0, 0]],
 "\:7d042\:ff05\:306b\:306a\:308b\:3002\:300c\:5e74\:300d\:3068\:3044\:3046\
\:65ad\:308a\:304c\:3064\:3044\:3066\:3044\:308b\:306e\:306f\:ff0c98\:5186\
\:6295\:4e0b\:3057\:3066\:540c\:30582\:5186\:3092\:7a3c\:3050\:306e\:306b\
\:ff0c\:ff11\:5e74\:3067\:3059\:3080\:5834\:5408\:306810\:5e74\:304b\:304b\
\:308b\:5834\:5408\:3068\:3092\:6bd4\:8f03\:3059\:308b\:5834\:5408\:ff0c10\
\:5e74\:304b\:304b\:308b\:65b9\:304c\:300c\:52b9\:7387\:304c\:60aa\:3044\:300d\
\:3068\:8a00\:3046\:3053\:3068\:304c\:3067\:304d\:308b\:305f\:3081\:3067\:3042\
\:308b\:3002\:8cc7\:91d1\:52b9\:7387\:3092\:8b70\:8ad6\:3059\:308b\:305f\:3081\
\:306b\:306f\:300c\:671f\:9593\:300d\:3092\:7d71\:4e00\:3057\:3066\:304a\:304b\
\:306a\:3051\:308c\:3070\:306a\:3089\:306a\:3044\:3002(\:300c\:671f\:9593\
\:300d\:304a\:3088\:3073\:300c\:6295\:4e0b\:8cc7\:91d1\:ff11\:5186\:5f53\:305f\
\:308a\:300d\:306b\:5358\:4f4d\:3092\:305d\:308d\:3048\:305f\:3053\:3068\:306b\
\:306a\:308b\:3002)"
}], "Text"],

Cell["\<\
 \:3000\:3053\:306e\:671f\:9593\:306e\:7d71\:4e00\:3068\:3044\:3046\:3053\
\:3068\:3092\:8003\:3048\:308b\:3068\:ff0c2\:5e74\:6e80\:671f\:306e\:6b21\
\:306e\:3088\:3046\:306a\:30bc\:30ed\:30fb\:30af\:30fc\:30dd\:30f3\:50b5\:306e\
\:6295\:8cc7\:53ce\:76ca\:7387\:306f\:3044\:304f\:3089\:3068\:8a08\:7b97\:3059\
\:308b\:306e\:304c\:826f\:3044\:3067\:3042\:308d\:3046\:304b\:3002\
\>", "Text"],

Cell["\:3000\:73fe\:5728\:4fa1\:683c\:304c96\:5186\:306e\:30bc\:30ed\:30fb\
\:30af\:30fc\:30dd\:30f3\:50b5\:ff0c\:ff12\:5e74\:6e80\:671f", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
\:3000\:5f53\:521d\:306e\:6295\:8cc7\:91d1\:984d\:306f96\:5186\:3067\:ff0c2\
\:5e74\:304b\:304b\:3063\:30664\:5186\:306e\:53ce\:76ca\:3092\:4e0a\:3052\
\:3066\:3044\:308b\:3002\:3053\:308c\:306f\:ff0c1\:5e74\:3042\:305f\:308a2\
\:5186\:3067\:3042\:308b\:3002\:3068\:3059\:308b\:3068\:ff0c\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"2", "/", "96"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData["0.020833333333333332`"], "Output",
 CellChangeTimes->{3.650621184236559*^9, 3.6507115927166567`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 "\:3000\:306e\:3088\:3046\:306a\:8a08\:7b97\:3067\:ff0c1\:5e74\:5f53\:305f\
\:308a\:306e\:6295\:8cc7\:53ce\:76ca\:7387\:304c\:8a08\:7b97\:3067\:304d\:308b\
\:3002\:3053\:306e\:8a08\:7b97(2.08%)\:3092\:ff0c",
 StyleBox["\:5358\:5229\:306e\:5229\:56de\:308a",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3068\:547c\:3076\:3002"
}], "Text"],

Cell["\<\
\:3000\:3000\:5358\:5229\:3068\:3044\:3046\:8a00\:8449\:304c\:51fa\:3066\:304d\
\:305f\:3053\:3068\:304b\:3089\:3082\:308f\:304b\:308b\:3088\:3046\:306b\:ff0c\
\:3053\:306e\:8a08\:7b97\:3067\:306f1\:5e74\:76ee\:306b\:7a3c\:3044\:3060\
\:53ce\:76ca\:304c2\:5e74\:76ee\:306b\:518d\:6295\:8cc7\:3055\:308c\:308b\
\:3068\:3044\:3046\:3053\:3068\:3092\:60f3\:5b9a\:3057\:3066\:3044\:306a\:3044\
\:3002
       \:9280\:884c\:306e\:666e\:901a\:9810\:91d1\:306f\:5229\:5b50\:304c\
\:6240\:5b9a\:306e\:983b\:5ea6\:3067\:5143\:672c\:306b\:7d44\:307f\:8fbc\:307e\
\:308c\:3001\:305d\:308c\:4ee5\:5f8c\:306f\:3001\:5229\:5b50\:3067\:306f\:306a\
\:304f\:5143\:672c\:306e\:3088\:3046\:306b\:6271\:308f\:308c\:308b(\:5229\
\:5b50\:304c\:3064\:304f)\:3002\:3053\:306e\:3088\:3046\:306a\:8907\:5229\
\:306e\:8a08\:7b97\:3092\:30bc\:30ed\:30fb\:30af\:30fc\:30dd\:30f3\:50b5\:306b\
\:3064\:3044\:3066\:884c\:3046\:969b\:306b\:30012\:5e74\:76ee\:306e\:6295\
\:8cc7\:53ce\:76ca\:7387(1\:5186\:5f53\:305f\:308a\:3044\:304f\:3089\:3068\
\:3044\:3046\:8a08\:7b97\:3092\:3057\:305f\:3053\:3068\:3092\:601d\:3044\:51fa\
\:3057\:3066\:6b32\:3057\:3044)\:304c\:ff11\:5e74\:76ee\:306e\:6295\:8cc7\
\:53ce\:76ca\:7387\:3068\:540c\:3058\:5024 r \:3067\:3042\:308b\:3068\:3059\
\:308b\:3068\:ff0c\:4ee5\:4e0b\:306e\:65b9\:7a0b\:5f0f\:3092\:89e3\:3044\:3066\
\:3053\:306e\:6295\:8cc7\:53ce\:76ca\:7387\:3092\:6c42\:3081\:308b\:3053\:3068\
\:304c\:3067\:304d\:308b\:3002\
\>", "Text",
 CellChangeTimes->{{3.650711659807542*^9, 3.650711866634281*^9}, 
   3.6842771974255457`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"96", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", "2"}]}], "\[Equal]", "100"}], 
    "}"}], ",", 
   RowBox[{"{", "r", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "2.0206207261596574`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.02062072615965754`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.650621187760786*^9, 3.6507118774355793`*^9},
 Background->GrayLevel[0.85]]
}, Open  ]],

Cell[TextData[{
 "\:3000\:3000\:5f0f\:304b\:3089\:308f\:304b\:308b\:3068\:304a\:308a\:ff0c\
\:524d\:7bc0\:3067\:3059\:3067\:306b\:307f\:305f\:30a4\:30fc\:30eb\:30c9(YTM)\
\:3068\:540c\:3058\:3067\:3042\:308b\:3002",
 StyleBox["\:8907\:5229\:306e\:5229\:56de\:308a",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:3068\:306f\:ff0c\:30a4\:30fc\:30eb\:30c9\:306e\:3053\:3068\:3067\:3042\
\:308b\:3002\n\:3000\:300098 \:5186\:304c\:ff11\:5e74\:5f8c\:306b\:30de\:30a4\
\:30ca\:30b9(\:300098\:ff0a(\:ff0d2.02062))\:3068\:306a\:3063\:3066\:ff0c\
\:518d\:3073(\:ff0d2.02062)\:3092\:304b\:3051\:308b\:3068\:30d7\:30e9\:30b9\
\:306e100\:5186\:306b\:306a\:308b\:3068\:3044\:3046\:65b9\:306f\:7121\:8996\
\:3057\:3066\:ff0c\:6b63\:5024\:306e\:65b9\:3092\:5229\:56de\:308a\:3068\:3057\
\:3066\:304a\:304f\:3002"
}], "Text",
 CellChangeTimes->{{3.650621240483561*^9, 3.650621244325678*^9}, {
  3.6507119018537416`*^9, 3.650711930798849*^9}}],

Cell["\<\
\:3000
\:3000\:3067\:306f\:ff0c\:6b21\:306b\:5229\:4ed8\:50b5\:306e\:5229\:56de\:308a\
\:3092\:6c42\:3081\:3066\:307f\:3088\:3046\:3002\
\>", "Text"],

Cell["\:3000\:73fe\:5728\:4fa1\:683c\:304c98\:5186\:ff0c\:30af\:30fc\:30dd\
\:30f3\:304c3%\:306e\:5229\:4ed8\:50b5\:ff0c\:ff11\:5e74\:6e80\:671f", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
\:3053\:306e\:50b5\:5238\:306f\:ff0c\:73fe\:572898\:5186\:3092\:300c\:6295\
\:8cc7\:300d\:3059\:308b\:30681\:5e74\:5f8c\:306b\:30af\:30fc\:30dd\:30f3\
\:5206\:306e3\:5186\:3068\:5143\:672c\:306e100\:5186\:3092\:3042\:308f\:305b\
\:3066103\:5186\:306e\:73fe\:91d1\:304c\:5f97\:3089\:308c\:308b\:304b\:3089\
\:ff0c\:5358\:5229\:306e\:5229\:56de\:308a\:306f\:4ee5\:4e0b\:306e\:901a\:308a\
\:3002\
\>", "Text"],

Cell[CellGroupData[{

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

Cell[BoxData["0.05102040816326531`"], "Output",
 CellChangeTimes->{3.650621251484057*^9, 3.650711942788723*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[" \:7d04 5.1% \:3067\:3042\:308b\:3002\:30af\:30fc\:30dd\:30f3\:3092\
\:518d\:6295\:8cc7\:3059\:308b\:30c1\:30e3\:30f3\:30b9\:304c\:306a\:3044\:304b\
\:3089\:ff0c\:8907\:5229\:3067\:3082\:540c\:3058\:3067\:3042\:308b\:3002", \
"Text"],

Cell["\:3000\:73fe\:5728\:4fa1\:683c\:304c95\:5186\:ff0c\:30af\:30fc\:30dd\
\:30f3\:304c3%\:306e\:5229\:4ed8\:50b5\:ff0c2\:5e74\:6e80\:671f", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
\:6b21\:306b\:3001\:4e0a\:306e\:3088\:3046\:306a2\:5e74\:6e80\:671f\:306e\
\:5229\:4ed8\:50b5\:306e\:5229\:56de\:308a\:3092\:6c42\:3081\:3066\:304a\:3053\
\:3046\:3002\:5358\:5229\:3067\:306f\:ff0c3\:5186\:305a\:3064\:306e\:30af\
\:30fc\:30dd\:30f3\:306e\:307b\:304b\:ff0c95\:5186\:304c2\:5e74\:5f8c\:306b\
100\:5186\:306b\:306a\:308b\:305f\:3081\:306b1\:5e74\:3054\:3068\:306b \
(100-95)/2 \:5186\:305a\:3064\:5132\:3051\:3066\:3044\:308b\:3068\:898b\:306a\
\:3059\:3002(\:6bce\:5e742.5\:5186\:305a\:3064\:ff0c\:30ad\:30e3\:30d4\:30bf\
\:30eb\:30b2\:30a4\:30f3\:304c\:751f\:3058\:3066\:3044\:308b\:3002)\
\>", "Text",
 CellChangeTimes->{{3.650711967951231*^9, 3.650711969752482*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"3", "+", "3", "+", "100", "-", "95"}], ")"}], "/", "2"}], 
    ")"}], "/", "95"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData["0.05789473684210526`"], "Output",
 CellChangeTimes->{3.650621255856669*^9, 3.6507120001219*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\:3068\:306a\:3063\:3066\:ff0c\:5e74\:7d045.8\:ff05\:304c\:5358\:5229\
\:306e\:5229\:56de\:308a\:3068\:306a\:308b\:3002", "Text"],

Cell["\<\
\:8907\:5229\:3067\:5229\:56de\:308a\:3092\:8a08\:7b97\:3059\:308b\:3068\:3069\
\:3046\:306a\:308b\:304b\:3002\:30af\:30fc\:30dd\:30f3\:304c\:652f\:6255\:308f\
\:308c\:308b\:306e\:304c\:5e74\:ff11\:56de\:3067\:3042\:308b\:3068\:3059\:308b\
\:3068\:ff0c1\:5e74\:5f8c\:306b\:53d7\:53d6\:3063\:305f3\:5186\:306b\:30822\
\:5e74\:5f8c\:306b\:306f(1+r)\:3060\:3051\:5897\:3048\:3066\:3044\:308b\:3068\
\:3044\:3046\:3053\:3068\:3092\:ff0c\:8003\:616e\:3059\:308b\:3053\:3068\:306b\
\:306a\:308b\:3002\:89e3\:304f\:3079\:304d\:65b9\:7a0b\:5f0f\:306f\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"95", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", "2"}]}], " ", "\[Equal]", 
     RowBox[{"100", "+", "3", "+", " ", 
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", "r", "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "2.0255845387604126`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.05716348612883354`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.650621260014125*^9, 3.650712018338628*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\:3067\:3042\:308a\:ff0c\:7d04\:5e745.7%\:304c\:8907\:5229\:306e\:5229\
\:56de\:308a\:3067\:3042\:308b\:3002", "Text"],

Cell["\:7df4\:7fd2\:554f\:984c", "Text",
 FontWeight->"Bold"],

Cell["\<\
\:4e0a\:306e2\:5e74\:6e80\:671f\:306e\:5229\:4ed8\:50b5(\:30af\:30fc\:30dd\
\:30f3\:5e743%\:ff0c\:73fe\:5728\:4fa1\:683c95\:5186)\:304c\:ff0c\:534a\:5e74\
\:6bce\:306b\:30af\:30fc\:30dd\:30f3\:3092\:652f\:6255\:3046\:3068\:3059\:308b\
\:3068\:ff0c\:5358\:5229\:306e\:5229\:56de\:308a\:3068\:8907\:5229\:306e\:5229\
\:56de\:308a\:306f\:305d\:308c\:305e\:308c\:3044\:304f\:3089\:306b\:306a\:308b\
\:304b\:ff1f\
\>", "Text"],

Cell["\:7b54\:3048", "Text",
 FontWeight->"Bold"],

Cell["\:5358\:5229\:306f\:5148\:307b\:3069\:306e\:8a08\:7b97\:3068\:540c\:3058\
\:3002\:8907\:5229\:306f", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", "\[Rule]", "0.05679984316617879`"}], "}"}]], "Output",
 Background->GrayLevel[0.900008]],

Cell["\<\
\:3067\:3042\:308b\:3002\:3042\:3048\:3066\:89e3\:304f\:3079\:304d\:65b9\:7a0b\
\:5f0f\:3092\:8f09\:305b\:3066\:3044\:306a\:3044\:306e\:3067\:ff0c\:5404\:81ea\
\:89e3\:3044\:3066\:307f\:308b\:3088\:3046\:306b\:3002( \:3053\:3053\:3067\
\:306f\:ff0c\:4e0d\:8981\:306a\:300c\:7b54\:3048\:300d\:3082 Part[ ] \:95a2\
\:6570\:3092\:4f7f\:3063\:3066\[CloseCurlyDoubleQuote]\:6368\:3066\:3066\
\[CloseCurlyDoubleQuote]\:3044\:308b\:3002)\
\>", "Text",
 CellChangeTimes->{{3.6507120374578123`*^9, 3.650712050523691*^9}}],

Cell["\<\

\:6700\:5f8c\:306b\:ff0c\:8907\:5229\:306e\:5229\:56de\:308a\:306b\:3064\:3044\
\:3066\:ff0c\:5225\:306e\:89e3\:91c8\:3092\:4e0e\:3048\:3066\:304a\:304f\:3002\
\>", "Text"],

Cell["\:3000\:73fe\:5728\:4fa1\:683c\:304c95\:5186\:ff0c\:30af\:30fc\:30dd\
\:30f3\:304c4%\:306e\:5229\:4ed8\:50b5\:ff0c2\:5e74\:6e80\:671f", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
\:3053\:306e\:50b5\:5238\:3092\:8cfc\:5165\:3059\:308b\:3068\:ff0c\:534a\:5e74\
\:5f8c\:306b2\:5186\:ff0c1\:5e74\:5f8c\:306b2\:5186\:ff0c1\:5e74\:534a\:5f8c\
\:306b2\:5186\:ff0c2\:5e74\:5f8c\:306b100+2\:5186\:306e\:30ad\:30e3\:30c3\
\:30b7\:30e5\:30d5\:30ed\:30fc\:304c\:751f\:3058\:308b\:3002\:3053\:306e\:30ad\
\:30e3\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\:306e\:5272\:5f15\:73fe\:5728\:4fa1\
\:5024\:3092\:6c42\:3081\:3066\:307f\:3088\:3046\:3002\:5272\:5f15\:7387\:3092\
 r \:3068\:304a\:304f\:3068\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"100", "+", "2"}], ")"}], "/", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"r", "/", "2"}]}], ")"}], "^", "4"}]}], "+", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"2", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"r", "/", "2"}]}], ")"}], "^", "j"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.650712073365189*^9, 3.6507120766689463`*^9}},
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{
  FractionBox["102", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["r", "2"]}], ")"}], "4"]], "+", 
  FractionBox["2", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["r", "2"]}], ")"}], "3"]], "+", 
  FractionBox["2", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["r", "2"]}], ")"}], "2"]], "+", 
  FractionBox["2", 
   RowBox[{"1", "+", 
    FractionBox["r", "2"]}]]}]], "Output",
 CellChangeTimes->{3.650621268554331*^9, 3.650712081382482*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\<\
\:3092\:8a08\:7b97\:3059\:308b\:3053\:3068\:306b\:306a\:308b\:3002\:3053\:306e\
\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\:ff0c\:300c\:5e02\:5834\:304c\:4e0e\
\:3048\:308b\:5272\:5f15\:7387\:300d\:3092\:4f7f\:3063\:3066\:8a08\:7b97\:3057\
\:305f\:5834\:5408\:ff0c\:73fe\:5728\:306e\:50b5\:5238\:4fa1\:683c\:3068\:4e00\
\:81f4\:3059\:308b\:3002\:50b5\:5238\:3092\:8cfc\:5165\:3059\:308b\:3053\:3068\
\:3067\:5f97\:3089\:308c\:308b\:30ad\:30e3\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\
\:306e\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:304c\:ff0c\:50b5\:5238\:306e\:73fe\
\:5728\:4fa1\:683c\:3068\:4e00\:81f4\:3059\:308b\:3068\:3044\:3046\:300c\:65b9\
\:7a0b\:5f0f\:300d\:3092\:4f5c\:3063\:3066\:ff0c\:5272\:5f15\:7387\:ff52\:306b\
\:3064\:3044\:3066\:89e3\:304b\:305b\:3066\:307f\:308b\:3068\:6b21\:306e\:3088\
\:3046\:306b\:306a\:308b\:3002\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"100", "+", "2"}], ")"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"r", "/", "2"}]}], ")"}], "^", "4"}]}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"2", "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"r", "/", "2"}]}], ")"}], "^", "j"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "\[Equal]", 
     "95"}], "}"}], ",", 
   RowBox[{"{", "r", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.650621271992631*^9, 3.6506212731557207`*^9}, {
  3.650712123343705*^9, 3.6507121250247602`*^9}},
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "4.025549618324835`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "1.9997388149803685`"}], "+", 
      RowBox[{"2.0255486055363185`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "1.9997388149803685`"}], "-", 
      RowBox[{"2.0255486055363185`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.06713251144344382`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.650621274101078*^9, 3.650712128920701*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Part", "[", 
  RowBox[{"%", ",", "4"}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", "\[Rule]", "0.06713251144344382`"}], "}"}]], "Output",
 CellChangeTimes->{3.650621279246035*^9, 3.6507121334612017`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 "\:3053\:3053\:3067\:306f\:5272\:5f15\:7387\:306e\:5024\:3067\:306f\:306a\
\:304f\:ff0c\:5272\:5f15\:7387\:306e\:5024\:3092\:5f97\:308b\:305f\:3081\:306e\
\:65b9\:7a0b\:5f0f\:306b\:6ce8\:76ee\:3057\:3066\:6b32\:3057\:3044\:3002\:5f0f\
\:306e\:4e21\:8fba\:306b",
 StyleBox["(1+r/2)^4 \:3092\:304b\:3051\:308b",
  FontColor->RGBColor[1, 0.5, 0]],
 "\:3068,\:5de6\:8fba\:306f"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"100", "+", "2"}], ")"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"r", "/", "2"}]}], ")"}], "^", "4"}]}], "+", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"2", "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"r", "/", "2"}]}], ")"}], "^", "j"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ")"}], "  ", 
  StyleBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"r", "/", "2"}]}], ")"}], "^", "4"}],
   FontColor->RGBColor[1, 0.5, 0]]}]], "Input",
 CellChangeTimes->{{3.650712144210494*^9, 3.650712145948251*^9}, 
   3.6507121960643787`*^9},
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    FractionBox["102", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["r", "2"]}], ")"}], "4"]], "+", 
    FractionBox["2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["r", "2"]}], ")"}], "3"]], "+", 
    FractionBox["2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["r", "2"]}], ")"}], "2"]], "+", 
    FractionBox["2", 
     RowBox[{"1", "+", 
      FractionBox["r", "2"]}]]}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["r", "2"]}], ")"}], "4"]}]], "Output",
 CellChangeTimes->{3.650621284275745*^9, 3.650712199411224*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\:53f3\:8fba\:306f", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"95", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"r", "/", "2"}]}], ")"}], "^", "4"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{"95", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["r", "2"]}], ")"}], "4"]}]], "Output",
 CellChangeTimes->{3.6506212892575703`*^9, 3.6507122137818117`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\:3068\:306a\:3063\:3066\:ff0c\:30a4\:30fc\:30eb\:30c9(\:8907\:5229\
\:306e\:5229\:56de\:308a)\:3092\:6c42\:3081\:308b\:3068\:304d\:306b\:7528\
\:3044\:305f\:65b9\:7a0b\:5f0f\:3068\:540c\:3058\:3082\:306e\:3067\:3042\:308b\
\:3053\:3068\:304c\:898b\:3066\:3068\:308c\:308b\:3002", "Text",
 CellChangeTimes->{3.650712230845497*^9}]
}, Open  ]]
},
WindowSize->{1254, 776},
WindowMargins->{{8, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>2. Inherited,
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 18, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 66, 0, 182, "Title"],
Cell[648, 24, 39, 0, 101, "Subtitle"],
Cell[690, 26, 129, 2, 59, "Subsubtitle"],
Cell[822, 30, 910, 15, 174, "Text"],
Cell[1735, 47, 867, 12, 174, "Text"],
Cell[2605, 61, 2199, 30, 364, "Text"],
Cell[4807, 93, 478, 7, 98, "Text"],
Cell[5288, 102, 185, 2, 92, "Text"],
Cell[5476, 106, 2068, 29, 440, "Text"],
Cell[CellGroupData[{
Cell[7569, 139, 190, 7, 56, "Input"],
Cell[7762, 148, 147, 2, 88, "Output"]
}, Open  ]],
Cell[7924, 153, 1036, 16, 212, "Text"],
Cell[8963, 171, 400, 6, 98, "Text"],
Cell[9366, 179, 185, 2, 92, "Text"],
Cell[9554, 183, 312, 5, 98, "Text"],
Cell[CellGroupData[{
Cell[9891, 192, 109, 3, 56, "Input"],
Cell[10003, 197, 148, 2, 88, "Output"]
}, Open  ]],
Cell[10166, 202, 369, 8, 98, "Text"],
Cell[10538, 212, 1553, 23, 288, "Text"],
Cell[CellGroupData[{
Cell[12116, 239, 306, 11, 56, "Input"],
Cell[12425, 252, 340, 10, 88, "Output"]
}, Open  ]],
Cell[12780, 265, 939, 16, 174, "Text"],
Cell[13722, 283, 159, 4, 98, "Text"],
Cell[13884, 289, 193, 2, 92, "Text"],
Cell[14080, 293, 416, 7, 98, "Text"],
Cell[CellGroupData[{
Cell[14521, 304, 171, 5, 56, "Input"],
Cell[14695, 311, 145, 2, 88, "Output"]
}, Open  ]],
Cell[14855, 316, 239, 3, 60, "Text"],
Cell[15097, 321, 188, 2, 92, "Text"],
Cell[15288, 325, 694, 10, 136, "Text"],
Cell[CellGroupData[{
Cell[16007, 339, 239, 8, 112, "Input"],
Cell[16249, 349, 143, 2, 176, "Output"]
}, Open  ]],
Cell[16407, 354, 135, 1, 120, "Text"],
Cell[16545, 357, 566, 8, 272, "Text"],
Cell[CellGroupData[{
Cell[17136, 369, 436, 14, 112, "Input"],
Cell[17575, 385, 342, 10, 176, "Output"]
}, Open  ]],
Cell[17932, 398, 124, 1, 120, "Text"],
Cell[18059, 401, 61, 1, 120, "Text"],
Cell[18123, 404, 431, 7, 196, "Text"],
Cell[18557, 413, 49, 1, 120, "Text"],
Cell[18609, 416, 114, 1, 120, "Text"],
Cell[18726, 419, 132, 3, 176, "Output"],
Cell[18861, 424, 522, 8, 196, "Text"],
Cell[19386, 434, 183, 4, 196, "Text"],
Cell[19572, 440, 188, 2, 184, "Text"],
Cell[19763, 444, 524, 8, 272, "Text"],
Cell[CellGroupData[{
Cell[20312, 456, 574, 19, 112, "Input"],
Cell[20889, 477, 604, 21, 266, "Output"]
}, Open  ]],
Cell[21508, 501, 854, 12, 348, "Text"],
Cell[CellGroupData[{
Cell[22387, 517, 835, 26, 180, "Input"],
Cell[23225, 545, 717, 20, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23979, 570, 111, 3, 112, "Input"],
Cell[24093, 575, 198, 4, 176, "Output"]
}, Open  ]],
Cell[24306, 582, 402, 8, 196, "Text"],
Cell[CellGroupData[{
Cell[24733, 594, 830, 28, 180, "Input"],
Cell[25566, 624, 784, 27, 332, "Output"]
}, Open  ]],
Cell[26365, 654, 34, 0, 120, "Text"],
Cell[CellGroupData[{
Cell[26424, 658, 179, 6, 112, "Input"],
Cell[26606, 666, 250, 7, 266, "Output"]
}, Open  ]],
Cell[26871, 676, 336, 4, 196, "Text"]
}, Open  ]]
}
]
*)