(* 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[     14543,        350]
NotebookOptionsPosition[     12794,        291]
NotebookOutlinePosition[     13244,        310]
CellTagsIndexPosition[     13201,        307]
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.2 Present Value", "Subsubtitle",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0.501961, 1]],

Cell["\<\
\:3000\:91d1\:878d\:306f\:ff0c\:4eca\:8cc7\:91d1\:3092\:8cb8\:3059\:304c\:5c06\
\:6765\:306f\:8fd4\:3057\:3066\:3082\:3089\:3046\:3068\:3044\:3046\:3088\:3046\
\:306b\:ff0c\:5c06\:6765\:306e\:8cc7\:91d1\:306e\:53d7\:3051\:6e21\:3057\:3092\
\:73fe\:5728\:884c\:3046\:7d04\:675f\:3067\:3042\:308b\:3002\:5c06\:6765\:8cc7\
\:91d1\:306e\:4fa1\:5024\:3092\:6bd4\:8f03\:3059\:308b\:305f\:3081\:306b\:ff0c\
\:69d8\:3005\:306a\:6761\:4ef6\:304c\:7d71\:4e00\:3059\:308b\:5fc5\:8981\:304c\
\:3042\:308b\:3002\:6b21\:306e\:4f8b\:3092\:8003\:3048\:3066\:307f\:3088\:3046\
\:3002\
\>", "Text"],

Cell["\:3000\[FilledCircle]\:3044\:307e\:3059\:3050\:ff0c\:78ba\:5b9f\:306b\
1000\:5186\:624b\:306b\:5165\:308c\:3089\:308c\:308b\:3002", "Text"],

Cell["\:3000\[FilledCircle]\:3046\:307e\:304f\:3044\:3051\:3070\:ff0c\:5348\
\:5f8c\:306b3000\:5186\:624b\:306b\:5165\:308c\:3089\:308c\:308b\:3002", \
"Text"],

Cell["\:3000\[FilledCircle]\:3046\:307e\:304f\:3044\:3051\:307020\:5e74\:5f8c\
\:306b\:ff0c1000\:4e07\:5186\:5132\:304b\:308b\:304b\:3082\:3057\:308c\:306a\
\:3044\:3002", "Text"],

Cell[TextData[{
 "\:3000\[FilledCircle]20\:5e74\:5f8c\:306b\:ff0c\:78ba\:5b9f\:306b1000*(1+r)",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["", "19"], TraditionalForm]]],
 " \:5186\:624b\:306b\:5165\:308c\:3089\:308c\:308b\:3002"
}], "Text"],

Cell["\<\
\:3000\:5c06\:6765\:30ad\:30e3\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\:306e\:78ba\
\:5b9f\:6027(\:30ea\:30b9\:30af)\:3068\:ff0c\:30ad\:30e3\:30c3\:30b7\:30e5\
\:30d5\:30ed\:30fc\:304c\:767a\:751f\:3059\:308b\:65e5\:6642\:3068\:3092\:7d71\
\:4e00\:3059\:308b\:5fc5\:8981\:304c\:3042\:308b\:3002\:3053\:308c\:3092\:884c\
\:3063\:305f\:7d50\:679c\:304c\:ff0c\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:3067\
\:3042\:308b\:3002\
\>", "Text"],

Cell["\<\

\:3000\:4eca\:56de\:306f\:30ad\:30e3\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\:306b\
\:30ea\:30b9\:30af\:304c\:306a\:304f\:ff0c\:6642\:70b9\:3092\:3069\:3046\:7d71\
\:4e00\:3059\:308b\:304b\:3060\:3051\:3092\:8003\:3048\:3088\:3046\:3002\
\>", "Text"],

Cell["\:3000\:305d\:308c\:306b\:306f\:ff0c\:5e02\:5834\:3067\:53d6\:5f15\:3055\
\:308c\:3066\:3044\:308b\:300c\:5b89\:5168\:8cc7\:7523\:300d\:306e(\:73fe\
\:5728)\:4fa1\:683c\:3092\:7528\:3044\:308b\:3002", "Text"],

Cell["\<\
\:ff11\:5e74\:5f8c\:306b\:511f\:9084\:3055\:308c\:308b(\:6e80\:671f\:3092\
\:3080\:304b\:3048\:308b)JGB\:3067\:ff0c\:30af\:30fc\:30dd\:30f3\:304c\:306a\
\:3044\:3082\:306e\:3010\:5272\:5f15\:50b5\:3011
\:5143\:672c100\:5186\:306e\:652f\:6255\:3044\:306f\:78ba\:5b9f\:3002\:9014\
\:4e2d\:304a\:3088\:3073\:6e80\:671f\:6642\:70b9\:3067\:ff0c\:5229\:6255\:3044\
\:304c\:306a\:3044\:3002
\:73fe\:5728\:4fa1\:683c\:306f98\:5186\:3067\:3042\:308b\:3002\
\>", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\:3000\:3053\:306e\:300c\:5b89\:5168\:8cc7\:7523\:300d\:306e\:4fa1\:683c\
\:3092\:4f7f\:3063\:3066\:ff0c", "Text"],

Cell["\:3000\[FilledCircle]\:ff11\:5e74\:5f8c\:306b\:ff0c\:78ba\:5b9f\:306b\
200 \:4e07\:5186 ", "Text"],

Cell["\:3068\:3044\:3046\:30ad\:30e3\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\:306e\
\:73fe\:5728\:4fa1\:5024\:3092\:6c42\:3081\:3066\:307f\:3088\:3046\:3002", \
"Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2000000", " ", 
  FractionBox["98", "100"]}]], "Input",
 CellChangeTimes->{{3.650709952594942*^9, 3.650709994316708*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[2]:="],

Cell[BoxData["1960000"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620674322941*^9, 3.650709859114458*^9, 
  3.650709995901823*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[2]="]
}, Open  ]],

Cell["\<\
1 \:5e74\:5f8c\:306e100\:5186\:304c\:73fe\:572898\:5186\:ff0c100\:4e07\:5186\
\:306f98\:4e07\:5186\:ff0c1\:5e74\:5f8c\:306e200\:4e07\:5186\:306f\:73fe\:5728\
196\:4e07\:5186\:3068\:3044\:3046\:308f\:3051\:3060\:3002\:3053\:308c\:3092\
\:ff0c\:300c1\:5e74\:5f8c\:306e200\:4e07\:5186\:306e\:5272\:5f15\:73fe\:5728\
\:4fa1\:5024\:306f196\:4e07\:5186\:300d\:3068\:3044\:3046\:3088\:3046\:306b\
\:8868\:73fe\:3059\:308b\:3002\
\>", "Text"],

Cell["\<\
\:3000\:5272\:5f15\:3068\:3044\:3046\:306e\:306f\:ff0c\:5c06\:6765\:306e200\
\:4e07\:5186\:304c\:73fe\:5728\:306e\:4fa1\:5024\:306b\:63db\:7b97\:3059\:308b\
\:3068\:ff0c\:5024\:304c\:4e0b\:304c\:308b\:3053\:3068\:3092\:6307\:3059\:3002\
\:5b9a\:4fa1\:ff15\:4e07\:5186\:306e\:5546\:54c1\:3092\:ff12\:5272\:5f15\:306e\
4\:4e07\:5186\:3067\:8cb7\:3046\:3068\:304b\:3044\:3046\:5834\:5408\:3068\
\:540c\:3058\:3067\:ff0c\:82f1\:8a9e\:3067\:306f discount \:3067\:3042\:308b\
\:3002\
\>", "Text"],

Cell["\<\
\:3000\:73fe\:5728\:4fa1\:5024\:306e\:3046\:3061\:300c\:4fa1\:5024\:300d\:306e\
\:90e8\:5206\:306f\:ff0c\:5e02\:5834\:3067\:53d6\:5f15\:3055\:308c\:3066\:3044\
\:308bJGB\:4fa1\:683c\:3092\:4f7f\:3063\:305f\:63db\:7b97\:3092\:3057\:305f\
\:3068\:3053\:308d\:304b\:3089\:751f\:3058\:3066\:3044\:308b\:3002\:5e02\:5834\
\:3067\:306f\:ff0c1\:5e74\:5f8c\:306b100\:5186\:306e(\:91d1\:92ad)\:4fa1\:5024\
\:3092\:6301\:3064\:3082\:306e\:3092\:ff0c\:73fe\:5728\:306f98\:5186\:3067\
\:53d6\:5f15\:3057\:3066\:3044\:308b\:308f\:3051\:3067\:ff0c\:4f8b\:3048\:3070\
\:3053\:306e\:8a3c\:5238\:306e\:8cb7\:624b\:306f\:ff0c1\:5e74\:5f8c\:306e100\
\:5186\:306b\:ff0c\:73fe\:5728\:306f98\:5186\:306e\:4fa1\:5024\:3092\:8a8d\
\:3081\:3066\:3044\:308b\:306e\:3067\:ff0c98\:5186\:3092\:652f\:6255\:3063\
\:3066\:3053\:306e\:8a3c\:5238\:3092\:624b\:306b\:5165\:308c\:3066\:3044\:308b\
\:3002\:3059\:306a\:308f\:3061\:ff0c\:5e02\:5834\:4fa1\:683c\:306f\:5e02\:5834\
\:53c2\:52a0\:8005\:304c\:8a8d\:3081\:305f\:4fa1\:5024(\:306e\:91d1\:92ad\
\:3067\:8868\:73fe\:3057\:305f\:6570\:5024)\:3092\:8868\:3057\:3066\:3044\
\:308b\:3002\
\>", "Text"],

Cell["\<\

\:3000\:3067\:306f\:5fdc\:7528\:554f\:984c\:3002\
\>", "Text"],

Cell["\:3000\[FilledCircle]1\:5e74\:5f8c100\:4e07\:5186\:ff0c2\:5e74\:5f8c100\
\:4e07\:5186\:306e\:ff0c\:3068\:3082\:306b\:78ba\:5b9f\:306a\:30ad\:30e3\:30c3\
\:30b7\:30e5\:30d5\:30ed\:30fc\:306e\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\
\:3044\:304f\:3089\:304b\:ff1f", "Text"],

Cell["\:3000196\:4e07\:5186\:3068\:8003\:3048\:305f\:4eba\:306f\:ff0c\:4f55\
\:4eba\:3044\:308b\:304b\:ff1f", "Text"],

Cell["\<\
\:30001\:5e74\:5f8c\:306e\:78ba\:5b9f\:306a200\:4e07\:5186\:306e\:5272\:5f15\
\:73fe\:5728\:4fa1\:5024\:306f196\:4e07\:5186\:3060\:3063\:305f\:3002\:300c\
\:ff11\:5e74\:5f8c\:306e\:78ba\:5b9f\:306a200\:4e07\:5186\:300d\:3068\:ff0c\
\:300c1\:5e74\:5f8c\:306b\:78ba\:5b9f\:306a100\:4e07\:5186\:30d7\:30e9\:30b9\
\:3082\:30461\:5e74\:5f8c\:306b\:78ba\:5b9f\:306a100\:4e07\:5186\:300d\:3068\
\:306f\:ff0c\:73fe\:5728\:304b\:3089\:898b\:3066\:540c\:3058\:4fa1\:5024\:3067\
\:3042\:308b\:3068\:5e02\:5834\:304c\:8a8d\:3081\:3066\:3044\:308b\:306a\:3089\
\:ff0c196\:4e07\:5186\:3068\:3044\:3046\:7b54\:3048\:306f\:6b63\:3057\:3044\
\:3053\:3068\:306b\:306a\:308b\:3002\:3057\:304b\:3057\:ff0c\:5e02\:5834\:304c\
\:3069\:3046\:8a55\:4fa1\:3057\:3066\:3044\:308b\:304b\:306f\:ff0c\:5e02\:5834\
\:4fa1\:683c\:3092\:77e5\:3089\:306a\:3051\:308c\:3070\:306a\:3089\:306a\:3044\
\:3002\
\>", "Text"],

Cell["\<\
\:3000\:6b63\:3057\:3044\:5024\:3092\:5f97\:308b\:306b\:306f\:ff0c2\:5e74\
\:5f8c\:306b\:511f\:9084\:3055\:308c\:308b\:5272\:5f15\:50b5\:306e\:5e02\:5834\
\:4fa1\:683c\:304c\:3044\:304f\:3089\:304b\:ff0c\:3059\:306a\:308f\:3061\:ff0c\
\:6b21\:306e\:3088\:3046\:306a\:5e02\:5834\:30c7\:30fc\:30bf\:304c\:306a\:3044\
\:3068\:ff0c\:73fe\:5728\:4fa1\:5024\:306f\:8a08\:7b97\:3067\:304d\:306a\:3044\
\:3002\
\>", "Text"],

Cell["\<\
\:ff12\:5e74\:5f8c\:306b\:511f\:9084\:3055\:308c\:308b(\:6e80\:671f\:3092\
\:3080\:304b\:3048\:308b)JGB\:3067\:ff0c\:30af\:30fc\:30dd\:30f3\:304c\:306a\
\:3044\:3082\:306e\:3010\:5272\:5f15\:50b5\:3011
\:5143\:672c100\:5186\:306e\:652f\:6255\:3044\:306f\:78ba\:5b9f\:3002\:9014\
\:4e2d\:304a\:3088\:3073\:6e80\:671f\:6642\:70b9\:3067\:ff0c\:5229\:6255\:3044\
\:304c\:306a\:3044\:3002
\:73fe\:5728\:4fa1\:683c\:306f96\:5186\:3067\:3042\:308b\:3002\
\>", "Text",
 Background->RGBColor[1, 1, 0.501961]],

Cell["\:3000\:3053\:306e\:5e02\:5834\:4fa1\:683c(\:30c7\:30fc\:30bf)\:3092\
\:7528\:3044\:308b\:3068\:ff0c1\:5e74\:5f8c\:306e100\:4e07\:5186\:30682\:5e74\
\:5f8c\:306e100\:4e07\:5186\:306e\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f\
\:6b21\:306e\:3088\:3046\:306b\:6c42\:3081\:3089\:308c\:308b\:3002", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1000000", "*", 
   FractionBox["98", "100"]}], "+", 
  RowBox[{"1000000", "*", 
   FractionBox["96", "100"]}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[3]:="],

Cell[BoxData["1940000"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620679241541*^9, 3.650710014880681*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[3]="]
}, Open  ]],

Cell["\:5272\:5f15\:73fe\:5728\:4fa1\:5024\:306f194\:4e07\:5186\:3067\:3042\
\:308b\:3002 ", "Text"],

Cell["\:3000\:5ff5\:306e\:305f\:3081\:ff0c\:3082\:3046\:4e00\:3064\:ff0c\:5fdc\
\:7528\:554f\:984c\:3002", "Text"],

Cell["\:3000\[FilledCircle]1\:5e74\:5f8c\:306b80\:4e07\:5186\:ff0c2\:5e74\
\:5f8c\:306b350\:4e07\:5186\:306e\:ff0c\:3068\:3082\:306b\:78ba\:5b9f\:306a\
\:30ad\:30e3\:30c3\:30b7\:30e5\:30d5\:30ed\:30fc\:306e\:5272\:5f15\:73fe\:5728\
\:4fa1\:5024\:306f", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"800000", "*", 
   FractionBox["98", "100"]}], "+", 
  RowBox[{"3500000", "*", 
   FractionBox["96", "100"]}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[4]:="],

Cell[BoxData["4144000"], "Output",
 CellFrame->True,
 CellChangeTimes->{3.650620683633937*^9, 3.65071001865343*^9},
 Background->GrayLevel[0.833326],
 CellLabel->"Out[4]="]
}, Open  ]],

Cell["\<\
\:3067\:3042\:308b\:3002\:3053\:308c\:3060\:3051\:306e\:8cc7\:91d1\:3092\:4f7f\
\:3063\:3066\:ff0c1\:5e74\:6e80\:671f\:306e\:5272\:5f15\:50b5\:30928000\:679a\
\:ff0c2\:5e74\:6e80\:671f\:306e\:5272\:5f15\:50b5\:309235000\:679a\:8cb7\:3046\
\:3068\:ff0c1\:5e74\:5f8c\:306b\:78ba\:5b9f\:306b\:511f\:9084\:3055\:308c\
\:308b80\:4e07\:5186\:ff0c2\:5e74\:5f8c\:306b\:78ba\:5b9f\:306b\:511f\:9084\
\:3055\:308c\:308b350\:4e07\:5186\:3092\:624b\:306b\:3059\:308b\:3053\:3068\
\:304c\:3067\:304d\:308b\:3002

\:ff08\:305f\:3060\:3057\:3053\:3053\:306e\:300c\:679a\:300d\:6570\:306e\:8a08\
\:7b97\:306f\:ff0c\:5272\:5f15\:50b5\:ff11\:679a\:306e\:984d\:9762\:304c100\
\:5186\:306e\:5834\:5408\:3067\:3042\:308b\:3002\:73fe\:5b9f\:306b\:306f\:ff0c\
\:5272\:5f15\:50b5\:ff11\:679a\:306f\:305d\:306e\:984d\:9762\:304c100\:4e07\
\:5186\:3084\:ff11\:5104\:5186\:306a\:3069\:3068\:3044\:3046\:3053\:3068\:304c\
\:591a\:304f\:ff0c1\:679a\:304c100\:5186\:306e\:50b5\:5238\:306f\:73fe\:5b9f\
\:306e\:5e02\:5834\:3067\:306f\:898b\:3089\:308c\:306a\:3044\:3002\:50b5\:5238\
1\:679a\:306e\:984d\:9762\:306f\:5238\:9762\:91d1\:984d\:306a\:3069\:3068\
\:3082\:547c\:3070\:308c\:308b\:30021/10\:679a\:306a\:3069\:ff0c\:300c\:ff11\
\:679a\:4ee5\:4e0b\:300d\:306e\:50b5\:5238\:3092\:58f2\:8cb7\:3059\:308b\:3053\
\:3068\:306f\:3067\:304d\:306a\:3044\:306e\:3067\:ff0c\:ff11\:679a\:304c\:6700\
\:5c0f\:53d6\:5f15\:5358\:4f4d\:3068\:306a\:308b\:3002\:307e\:305f\:ff0c\:6700\
\:5c0f\:53d6\:5f15\:5358\:4f4d\:304c\:ff11\:679a\:306e\:8a3c\:5238\:3067\:ff0c\
\:305d\:306e\:7406\:8ad6\:4fa1\:683c\:304c\:ff11\:679a\:3042\:305f\:308a58.\
6735\:5186\:3068\:3044\:3046\:5834\:5408\:ff0c\:ff11\:5186\:4ee5\:4e0b\:306e\
\:90e8\:5206\:306f\:3069\:3046\:8003\:3048\:305f\:3089\:3044\:3044\:306e\:304b\
\:3068\:3044\:3046\:554f\:984c\:304c\:751f\:3058\:308b\:3002\:4fa1\:683c\:304c\
6.333333\:30fb\:30fb\:30fb\:3068\:3044\:3046\:5834\:5408\:ff0c\:5c0f\:6570\
\:70b9\:4ee5\:4e0b\:4f55\:6841\:307e\:3067\:8a08\:7b97\:3059\:308b\:306e\:304b\
\:3068\:3044\:3046\:554f\:984c\:3082\:3042\:308b\:3002\:3053\:306e\:6388\:696d\
\:3067\:306f\:ff0c\:3053\:3046\:3057\:305f\:73fe\:5b9f\:7684\:306a\:554f\:984c\
\:306f\:3055\:3057\:304a\:3044\:3066\:304a\:304f\:3002\:ff09\
\>", "Text",
 CellChangeTimes->{{3.650710040541939*^9, 3.650710040862439*^9}, {
  3.650710204817779*^9, 3.650710334065147*^9}}]
}, Open  ]]
},
WindowSize->{1260, 756},
WindowMargins->{{Automatic, 69}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification:>2. Inherited,
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (2015\:5e743\
\:670824\:65e5)",
StyleDefinitions->"Textbook.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 66, 0, 109, "Title"],
Cell[648, 24, 39, 0, 57, "Subtitle"],
Cell[690, 26, 99, 2, 57, "Subsubtitle"],
Cell[792, 30, 590, 9, 71, "Text"],
Cell[1385, 41, 145, 1, 43, "Text"],
Cell[1533, 44, 159, 2, 43, "Text"],
Cell[1695, 48, 179, 2, 43, "Text"],
Cell[1877, 52, 241, 6, 44, "Text"],
Cell[2121, 60, 438, 7, 71, "Text"],
Cell[2562, 69, 257, 5, 77, "Text"],
Cell[2822, 76, 214, 2, 43, "Text"],
Cell[3039, 80, 509, 9, 148, "Text"],
Cell[3551, 91, 120, 1, 43, "Text"],
Cell[3674, 94, 104, 1, 43, "Text"],
Cell[3781, 97, 164, 2, 43, "Text"],
Cell[CellGroupData[{
Cell[3970, 103, 199, 5, 83, "Input"],
Cell[4172, 110, 198, 5, 94, "Output"]
}, Open  ]],
Cell[4385, 118, 444, 7, 71, "Text"],
Cell[4832, 127, 500, 8, 71, "Text"],
Cell[5335, 137, 1129, 16, 128, "Text"],
Cell[6467, 155, 73, 3, 77, "Text"],
Cell[6543, 160, 279, 3, 43, "Text"],
Cell[6825, 165, 117, 1, 43, "Text"],
Cell[6945, 168, 895, 13, 127, "Text"],
Cell[7843, 183, 425, 7, 71, "Text"],
Cell[8271, 192, 509, 9, 148, "Text"],
Cell[8783, 203, 308, 3, 69, "Text"],
Cell[CellGroupData[{
Cell[9116, 210, 211, 7, 83, "Input"],
Cell[9330, 219, 173, 4, 94, "Output"]
}, Open  ]],
Cell[9518, 226, 100, 1, 43, "Text"],
Cell[9621, 229, 114, 1, 43, "Text"],
Cell[9738, 232, 260, 3, 43, "Text"],
Cell[CellGroupData[{
Cell[10023, 239, 210, 7, 83, "Input"],
Cell[10236, 248, 172, 4, 94, "Output"]
}, Open  ]],
Cell[10423, 255, 2355, 33, 286, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)