(* 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[     12486,        270]
NotebookOptionsPosition[     11219,        227]
NotebookOutlinePosition[     11692,        245]
CellTagsIndexPosition[     11649,        242]
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 (cont.)", "Subsubtitle",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0.501961, 1]],

Cell["\:6700\:5f8c\:306b\:ff0c\:5229\:4ed8\:50b5\:306f\:5272\:5f15\:50b5\:306e\
\:30d1\:30c3\:30b1\:30fc\:30b8\:3067\:3042\:308b\:3068\:3044\:3046\:3053\:3068\
\:3092\:8aac\:660e\:3057\:3066\:304a\:304f\:3002", "Text"],

Cell["\<\
    \:ff11\:5e74\:6e80\:671f\:306e\:30bc\:30ed\:30fb\:30af\:30fc\:30dd\:30f3\
\:50b5,

\:3000\:ff12\:5e74\:6e80\:671f\:306e\:30bc\:30ed\:30fb\:30af\:30fc\:30dd\:30f3\
\:50b5\:ff0e\
\>", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
\:4ee5\:4e0a\:306e\:3088\:3046\:306a2\:3064\:306e\:5272\:5f15\:50b5\:304c\
\:3042\:3063\:305f\:3068\:3059\:308b\:3002\:3053\:306e\:50b5\:5238\:3092\:7d44\
\:307f\:5408\:308f\:305b\:305f\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3067\
\:ff0c\:4ee5\:4e0b\:306e\:5229\:4ed8\:50b5\:3068\:540c\:3058\:30ad\:30e3\:30c3\
\:30b7\:30e5\:30d5\:30ed\:30fc\:3092\:5f97\:308b\:306b\:306f\:3069\:3046\:3057\
\:305f\:3089\:3088\:3044\:3060\:308d\:3046\:304b\:ff1f\
\>", "Text"],

Cell["2\:5e74\:6e80\:671f\:306e\:5229\:4ed8\:50b5\:3067,\:30af-\:30dd\:30f3\
\:304c\:5e742%\:ff0c\:30af\:30fc\:30dd\:30f3\:306f\:5e741\:56de\:652f\:6255\
\:308f\:308c\:308b\:3002", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\<\
\:3053\:306e\:5229\:4ed8\:50b5\:306e\:6240\:6709\:8005\:306f\:ff0c\:984d\:9762\
100\:5186\:3042\:305f\:308a\:ff0c\:ff11\:5e74\:5f8c\:306b2\:5186\:ff0c2\:5e74\
\:5f8c\:306b102\:5186\:306e\:652f\:6255\:3044\:3092\:53d7\:3051\:308b\:3053\
\:3068\:304c\:3067\:304d\:308b\:3002\:3053\:3053\:3067\:984d\:9762100\:5186\
\:3068\:306f\:ff0c\:5229\:4ed8\:50b5\:306e\:300c\:5358\:4f4d\:300d\:306e\:3053\
\:3068\:3067\:3042\:308b\:3002\:5b9f\:969b\:306b\:306f\:ff0c\:4f8b\:3048\:3070\
\:5c0f\:53e3\:6295\:8cc7\:5bb6\:5411\:3051\:306e\:50b5\:5238\:3067\:306f\:ff0c\
100\:4e07\:5186\:306e\:984d\:9762\:306e\:50b5\:5238\:304c\:300c\:ff11\:679a\
\:300d\:3068\:3057\:3066\:53d6\:5f15\:3055\:308c\:3066\:3044\:3066\:ff0c\:984d\
\:9762100\:4e07\:5186\:6bce\:306b\:58f2\:8cb7\:3067\:304d\:308b\:3053\:3068\
\:306b\:306a\:3063\:3066\:3044\:308b\:3002\:300c100\:679a\:300d\:6301\:3063\
\:3066\:3044\:308c\:3070\:ff0c\:ff11\:5e74\:5f8c\:306b200\:4e07\:5186\:ff0c2\
\:5e74\:5f8c\:306b10,200\:4e07\:5186\:53d7\:53d6\:308c\:308b\:3068\:3044\:3046\
\:3053\:3068\:3067\:3042\:308b\:3002\
\>", "Text"],

Cell["\<\
\:3055\:3066\:ff0c\:5272\:5f15\:50b5\:3082\:984d\:9762100\:4e07\:5186\:304c\
\:300c1\:679a\:300d\:3068\:3044\:3046\:3088\:3046\:306b\:306a\:3063\:3066\
\:3044\:305f\:3068\:3057\:3088\:3046\:3002\:3059\:308b\:3068\:ff0c\:ff11\:5e74\
\:3082\:306e\:306e\:5272\:5f15\:50b5\:30922\:679a\:8cb7\:3046\:3068\:ff0c1\
\:5e74\:5f8c\:306b200\:4e07\:5186\:53d7\:3051\:3068\:308c\:308b\:30022\:5e74\
\:3082\:306e\:306e\:5272\:5f15\:50b5\:306f\:ff0c\:300c\:ff11\:679a\:300d\:3067\
2\:5e74\:5f8c\:306b100\:4e07\:5186\:53d7\:53d6\:308c\:308b\:304b\:3089\:ff0c\
102\:679a\:6301\:3063\:3066\:3044\:308c\:3070\:ff0c10,200\:4e07\:5186\:53d7\
\:53d6\:308c\:308b\:3002\:3059\:306a\:308f\:3061\:ff0c\:3053\:308c\:3089\:3092\
\:3042\:308f\:305b\:308b\:3068\:5229\:4ed8\:50b5\:3068\:540c\:3058\:30ad\:30e3\
\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\:3068\:306a\:308b\:3002\
\>", "Text"],

Cell[TextData[StyleBox["2\:5e74\:6e80\:671f\:306e\:5229\:4ed8\:50b5100\:679a \
= 1\:5e74\:3082\:306e\:5272\:5f15\:50b52\:679a + 2\:5e74\:3082\:306e\:5272\
\:5f15\:50b5102\:679a",
 FontWeight->"Bold"]], "Text",
 TextAlignment->Center],

Cell["\:306a\:306e\:3067\:3042\:308b\:3002\:3053\:3053\:3067\:300c\:6700\:5c0f\
\:53d6\:5f15\:5358\:4f4d\:300d\:306e\:3053\:3068\:3092\:3072\:3068\:307e\:305a\
\:5fd8\:308c\:308b\:3068\:ff0c", "Text",
 CellChangeTimes->{3.650712364676305*^9}],

Cell[TextData[StyleBox["2\:5e74\:6e80\:671f\:306e\:5229\:4ed8\:50b5 1\:679a \
\:306f\:ff0c 1\:5e74\:3082\:306e\:5272\:5f15\:50b50.02\:679a \:3068 2\:5e74\
\:3082\:306e\:5272\:5f15\:50b51.02\:679a \:3068\:304b\:3089\:306a\:308b\:30dd\
\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa",
 FontWeight->"Bold"]], "Text",
 TextAlignment->Center],

Cell["\<\
\:3068\:3044\:3046\:3053\:3068\:304c\:3067\:304d\:308b\:3002\:3061\:306a\:307f\
\:306b\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3068\:306f\:ff0c\:8a3c\:5238\
\:3092\:5165\:308c\:3066\:6301\:3061\:904b\:3076\:30ab\:30d0\:30f3\:304c\:8a9e\
\:6e90\:3067\:ff0c\:8a3c\:5238\:306e\:7d44\:307f\:5408\:308f\:305b\:65b9\:ff0c\
\:306a\:3044\:3057\:7d44\:307f\:5408\:308f\:305b\:305f\:308f\:305b\:305f\:7d50\
\:679c\:306e\:3053\:3068\:3092\:3055\:3059\:3002\:65e5\:5e38\:7528\:8a9e\:3067\
\:3044\:3046\:306a\:3089\:3070\:ff0c2\:5e74\:6e80\:671f\:306e\:5229\:4ed8\
\:50b5\:306f\:ff0c1\:5e74\:3082\:306e\:306e\:5272\:5f15\:50b5\:30682\:5e74\
\:3082\:306e\:306e\:5272\:5f15\:50b5\:3092\:7279\:5b9a\:306e\:6bd4\:7387\:3067\
\:7d44\:307f\:5408\:308f\:305b\:305f\:300c\:30d1\:30c3\:30b1\:30fc\:30b8\:5546\
\:54c1\:300d\:306a\:306e\:3067\:3042\:308b\:3002\
\>", "Text"],

Cell[" \:3000\:3055\:3089\:306b\:8a71\:3092\:9032\:3081\:3066\:ff0c\:5272\
\:5f15\:50b5\:306e\:5e02\:5834\:4fa1\:683c\:304c\:305d\:308c\:305e\:308c98\
\:5186\:ff0c95\:5186\:3060\:3063\:305f\:3068\:3059\:308b\:3068\:ff0c\:5229\
\:4ed8\:50b5\:306e\:4fa1\:683c\:306f", "Text",
 CellChangeTimes->{{3.650712376435155*^9, 3.650712376730906*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"98", " ", "*", " ", 
   RowBox[{"2", "/", "100"}]}], " ", "+", " ", 
  RowBox[{"95", " ", "*", " ", 
   RowBox[{"102", "/", "100"}]}]}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 FractionBox["4943", "50"]], "Output",
 CellChangeTimes->{3.650621342245865*^9, 3.65071237982205*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["98.86`"], "Output",
 CellChangeTimes->{3.6506213448931093`*^9, 3.650712383900445*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 "\:984d\:9762100\:5186\:3042\:305f\:308a,98.86\:5186\:3068\:8003\:3048\:308b\
\:3053\:3068\:306f\:81ea\:7136\:3067\:3042\:308d\:3046\:3002\n\n       \:5272\
\:5f15\:50b5\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3068\:5229\:4ed8\
\:50b5\:3068\:306f\:5168\:304f\:540c\:3058\:30ad\:30e3\:30c3\:30b7\:30e5\:30d5\
\:30ed\:30fc\:3092\:3082\:305f\:3089\:3059\:304b\:3089\:ff0c\:5272\:5f15\:50b5\
\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3092\:8cfc\:5165\:3059\:308b\
\:306e\:3068\:ff0c\:5229\:4ed8\:50b5\:3092\:8cfc\:5165\:3059\:308b\:306e\:3068\
\:3067\:306f\:ff0c\:540c\:3058\:4fa1\:683c\:306e\:306f\:305a\:3067\:306f\:306a\
\:3044\:304b\:3002\:3053\:306e\:8003\:3048\:65b9\:3092\:53d7\:3051\:5165\:308c\
\:308b\:3053\:3068\:304c\:3067\:304d\:308c\:3070\:ff0c98.86\:5186\:304c\:7406\
\:8ad6\:4fa1\:683c\:3068\:3044\:3046\:3053\:3068\:3082\:53d7\:3051\:5165\:308c\
\:3089\:308c\:308b\:3067\:3042\:308d\:3046\:3002\:540c\:3058\:3082\:306e\:306b\
\:306f\:540c\:3058\:4fa1\:683c\:304c\:3064\:304f\:3068\:3044\:3046\:8003\:3048\
\:65b9\:3092\:ff0c\:300c",
 StyleBox["\:4e00\:7269\:4e00\:4fa1\:306e\:6cd5\:5247",
  FontColor->RGBColor[1, 0, 0]],
 "\:300d\:3068\:547c\:3076\:3002\:3053\:306e\:767a\:60f3\:3067\:30c7\:30ea\
\:30d0\:30c6\:30a3\:30d6\:306e\:7406\:8ad6\:4fa1\:683c\:304c\:6c7a\:307e\:308b\
\:3068\:8003\:3048\:308b\:306e\:304c\:ff0c\:91d1\:878d\:5de5\:5b66\:306b\:3088\
\:308b\:4fa1\:683c\:4ed8\:3051\:3067\:3042\:308b\:3002\:30d6\:30e9\:30c3\:30af\
\:30fb\:30b7\:30e7\:30fc\:30eb\:30ba\:306e\:30aa\:30d7\:30b7\:30e7\:30f3\:4fa1\
\:683c\:5f0f\:3082\:ff0c\:540c\:3058\:767a\:60f3\:3067\:5c0e\:304b\:308c\:3066\
\:3044\:308b\:3002"
}], "Text",
 CellChangeTimes->{{3.6507123974317827`*^9, 3.6507124009594183`*^9}}],

Cell["\<\
\:5e02\:5834\:4fa1\:683c\:304c\:308f\:304b\:3089\:306a\:3044(\:53d6\:5f15\
\:304c\:306a\:3044\:305f\:3081\:ff0c\:5e02\:5834\:4fa1\:683c\:304c\:5b58\:5728\
\:3057\:306a\:3044\:ff09\:300c\:8a3c\:5238\:300d\:306e\:7406\:8ad6\:4fa1\:683c\
\:3092\:5f97\:308b\:306b\:306f\:ff0c\:76ee\:6a19\:3068\:3059\:308b\:300c\:8a3c\
\:5238\:300d\:3068\:5168\:304f\:540c\:3058\:3082\:306e\:3092\:4f5c\:308a\:51fa\
\:305b\:308b\:3088\:3046\:306a\:ff0c\:5e02\:5834\:4fa1\:683c\:304c\:308f\:304b\
\:3063\:3066\:3044\:308b\:300c\:30d1\:30fc\:30c4\:300d\:3092\:96c6\:3081\:3066\
\:304d\:3066\:ff0c\:300c\:30d1\:30fc\:30c4\:300d\:4ee3(\:5408\:8a08)\:3092\
\:ff0c\:5f53\:8a72\:306e\:8a3c\:5238\:306e\:7406\:8ad6\:4fa1\:683c\:3068\:3059\
\:308b\:3002\:3053\:308c\:304c\:ff0c\:91d1\:878d\:5de5\:5b66\:3067\:4e00\:822c\
\:7684\:306b\:884c\:306a\:308f\:308c\:3066\:3044\:308b\:4fa1\:683c\:4ed8\:3051\
(\:7406\:8ad6\:4fa1\:683c\:306e\:6c42\:3081\:65b9)\:3067\:3042\:308b\:3002\
\>", "Text",
 Background->RGBColor[1, 1, 0]],

Cell[TextData[{
 "\:5229\:4ed8\:50b5\:306e\:4f8b\:3067\:306f\:ff0c\:30d1\:30fc\:30c4\:304c\
\:5272\:5f15\:50b5\:3067\:30bf\:30fc\:30b2\:30c3\:30c8\:304c\:5229\:4ed8\:50b5\
\:ff0c\:7d44\:307f\:5408\:308f\:305b\:65b9\:3082\:7c21\:5358\:3060\:3063\:305f\
\:3002\:5229\:4ed8\:50b5\:3082\:901a\:5e38\:306f\:53d6\:5f15\:304c\:3042\:3063\
\:3066\:5e02\:5834\:4fa1\:683c\:304c\:5f97\:3089\:308c\:308b\:304b\:3089\:ff0c\
\:308f\:3056\:308f\:3056\:3053\:306e\:3088\:3046\:306a\:3053\:3068\:3092\:3059\
\:308b\:5fc5\:8981\:3082\:3042\:307e\:308a\:306a\:3044\:3002\:91d1\:878d\:5de5\
\:5b66\:304c\:30d3\:30b8\:30cd\:30b9\:3068\:306a\:308b\:300c\:73fe\:5834\:300d\
\:3067\:306f\:ff0c\:96c6\:3081\:306a\:3051\:308c\:3070\:306a\:3089\:306a\:3044\
\:30d1\:30fc\:30c4\:306e\:7a2e\:985e\:3082\:591a\:304f\:ff0c\:305d\:3082\:305d\
\:3082\:3069\:306e\:3088\:3046\:306b\:7d44\:307f\:3042\:308f\:305b\:308c\:3070\
\:ff0c\:76ee\:6a19\:3068\:3059\:308b\:8a3c\:5238\:3068",
 StyleBox["\:5168\:304f\:540c\:3058\:3082\:306e",
  FontWeight->"Bold"],
 "\:304c\:3067\:304d\:308b\:304b\:3082\:81ea\:660e\:3067\:306f\:306a\:304f\
\:ff0c\:3053\:308c\:3092\:8003\:3048\:51fa\:3059\:3068\:3044\:3046\:4f5c\:696d\
\:3082\:91cd\:8981\:306a\:3082\:306e\:3068\:306a\:308b\:3002"
}], "Text"],

Cell["\<\
\:6b8b\:308a\:306e\:6388\:696d\:3067\:3082\:ff0c\:300c\:30d1\:30fc\:30c4\:4ee3\
\:91d1\:304c\:7406\:8ad6\:4fa1\:683c\:300d\:3068\:3044\:3046\:8003\:3048\:65b9\
\:304c\:7e70\:308a\:8fd4\:3055\:308c\:308b\:3002\:4f55\:5ea6\:3082\:3053\:308c\
\:3089\:306b\:3075\:308c\:308b\:9593\:306b\:ff0c\:300c\:8a3c\:5238\:306e\:6570\
\:5024\:4f8b\:300d\:3092\:4f7f\:3046\:3053\:3068\:306a\:304f\:ff0c\:76f4\:611f\
\:7684\:306a\:6613\:3057\:3044\:8aac\:660e\:304c\:4eba\:306b\:3067\:304d\:308b\
\:3088\:3046\:306b\:306a\:3063\:3066\:6b32\:3057\:3044\:3002\
\>", "Text"]
}, Open  ]]
},
WindowSize->{1230, 755},
WindowMargins->{{91, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>2. Inherited,
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (2015\:5e743\
\:670824\:65e5)",
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, 136, 2, 59, "Subsubtitle"],
Cell[829, 30, 218, 2, 60, "Text"],
Cell[1050, 34, 242, 7, 168, "Text"],
Cell[1295, 43, 473, 7, 98, "Text"],
Cell[1771, 52, 227, 3, 92, "Text"],
Cell[2001, 57, 1082, 15, 250, "Text"],
Cell[3086, 74, 865, 12, 174, "Text"],
Cell[3954, 88, 233, 4, 60, "Text"],
Cell[4190, 94, 242, 3, 60, "Text"],
Cell[4435, 99, 327, 5, 98, "Text"],
Cell[4765, 106, 863, 12, 174, "Text"],
Cell[5631, 120, 339, 4, 98, "Text"],
Cell[CellGroupData[{
Cell[5995, 128, 212, 6, 56, "Input"],
Cell[6210, 136, 149, 3, 115, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6396, 144, 85, 2, 56, "Input"],
Cell[6484, 148, 133, 2, 88, "Output"]
}, Open  ]],
Cell[6632, 153, 1746, 25, 364, "Text"],
Cell[8381, 180, 1001, 14, 244, "Text"],
Cell[9385, 196, 1251, 18, 250, "Text"],
Cell[10639, 216, 564, 8, 136, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)