(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     24938,        689]
NotebookOptionsPosition[     18831,        534]
NotebookOutlinePosition[     19241,        552]
CellTagsIndexPosition[     19198,        549]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:6570\:7406\:30d5\:30a1\:30a4\:30ca\:30f3\:30b911", "Title",ExpressionUUID->"44aabe94-f822-4d26-b835-1cbf8a7099e6"],

Cell["11. A Risk Neutral Method(\:30ea\:30b9\:30af\:4e2d\:7acb\:5316\:6cd5)", \
"Subtitle",
 CellChangeTimes->{{3.748237120807686*^9, 
  3.7482371296160994`*^9}},ExpressionUUID->"6ba094f9-a744-4ce8-9075-\
339c75354733"],

Cell[TextData[{
 "\:30d1\:30ef\:30fc\:30dd\:30a4\:30f3\:30c8p.8\:306e\:6570\:5024\:4f8b\:3067\
\:4e0e\:3048\:308c\:305f\:682a\:5f0f\:3068\:50b5\:5238\:304b\:3089\:306a\:308b\
\:5e02\:5834\:306b\:304a\:3051\:308b\:ff0c\:72b6\:614b\:8a3c\:5238\:4fa1\:683c\
\:3092\:6c42\:3081\:308b\:3002\:305d\:306e\:305f\:3081\:306b\:ff0c\:72b6\:614b\
",
 StyleBox["\:ff11",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 "\:304c\:304a\:3053\:3063\:305f\:3068\:304d\:306b\:306e\:307f\:ff11\:5186\
\:306e\:4fa1\:5024\:3092\:6301\:3064\:8a3c\:5238\:3092\:ff0c\:682a\:5f0f\:3068\
\:50b5\:5238\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3067\:8907\:88fd\
\:3059\:308b\:3002"
}], "Text",
 CellChangeTimes->{
  3.653110638093946*^9},ExpressionUUID->"d4eb800e-586c-4cec-898b-\
42b94b364146"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"106", "x"}], " ", "+", 
       RowBox[{"100", " ", "y"}]}], "\[Equal]", " ", 
      StyleBox["1",
       FontColor->RGBColor[1, 0, 0]]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"94", " ", "x"}], " ", "+", 
       RowBox[{"100", "y"}]}], " ", "\[Equal]", " ", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"d6bf768a-f24c-4fb6-944c-a846f3473dc5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     FractionBox["1", "12"]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["47", "600"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.6531106448788033`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[1]=",ExpressionUUID->"fed41255-f4c7-42fd-948d-51ac7a66eeb5"]
}, Open  ]],

Cell["\:72b6\:614b\:8a3c\:52381\:306e(t\:ff1d0)\:306b\:304a\:3051\:308b\:4fa1\
\:683c\:306f\:ff0c\:6b21\:306e\:901a\:308a\:3002", "Text",ExpressionUUID->\
"4de054ee-209d-4fb8-b7fc-81756b2e26f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z1", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"100", " ", "x"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"10000", "/", "105"}], " ", "y"}]}], " ", "/.", " ", 
    RowBox[{"Part", "[", 
     RowBox[{"%", ",", "1"}], "]"}]}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[2]:=",ExpressionUUID->"52221a22-4ec6-4f7d-9e51-d518d54f32ca"],

Cell[BoxData[
 FractionBox["55", "63"]], "Output",
 CellChangeTimes->{3.653110654274825*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[2]=",ExpressionUUID->"fd580cec-4b40-4b18-bbd1-a0dae563d23a"]
}, Open  ]],

Cell[TextData[{
 "\:72b6\:614b",
 StyleBox["\:ff12",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 "\:304c\:304a\:3053\:3063\:305f\:3068\:304d\:306b\:ff11\:5186\:306e\:4fa1\
\:5024\:3092\:6301\:3064\:8a3c\:5238\:3092\:ff0c\:682a\:5f0f\:3068\:50b5\:5238\
\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3067\:8907\:88fd\:3059\:308b\
\:3002"
}], "Text",
 CellChangeTimes->{{3.748237226892345*^9, 
  3.748237228469372*^9}},ExpressionUUID->"cd804dbb-e348-462d-b1cd-\
62f1617a99e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"106", "x"}], " ", "+", 
       RowBox[{"100", " ", "y"}]}], " ", "\[Equal]", "0"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"94", "x"}], "+", 
       RowBox[{"100", "y"}]}], " ", "\[Equal]", 
      StyleBox["1",
       FontColor->RGBColor[1, 0, 0]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[3]:=",ExpressionUUID->"14a6e9f4-c1e2-474c-b85c-f13d03958f61"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", "12"]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     FractionBox["53", "600"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.653110658037191*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[3]=",ExpressionUUID->"59a8eb07-be9a-466d-867b-8059da703fb6"]
}, Open  ]],

Cell["\:72b6\:614b\:8a3c\:52382\:306e(t\:ff1d0)\:306b\:304a\:3051\:308b\:4fa1\
\:683c\:306f\:ff0c\:6b21\:306e\:901a\:308a\:3002", "Text",ExpressionUUID->\
"25d75d22-cc07-432e-939f-2aac0963ab54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z2", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"100", "x"}], " ", "+", 
     RowBox[{
      RowBox[{"10000", "/", "105"}], "y"}]}], " ", "/.", " ", 
    RowBox[{"Part", "[", 
     RowBox[{"%", ",", "1"}], "]"}]}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[4]:=",ExpressionUUID->"dbaa3914-01ea-43aa-ac83-0fe064156b5b"],

Cell[BoxData[
 FractionBox["5", "63"]], "Output",
 CellChangeTimes->{3.653110661273292*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[4]=",ExpressionUUID->"17bd5ff9-c445-420d-8a0e-a226659aedcd"]
}, Open  ]],

Cell["\:72b6\:614b1\:3068\:72b6\:614b2\:304c\:751f\:3058\:308b\:78ba\:7387\
\:306f,\:30d1\:30ef-\:30dd\:30a4\:30f3\:30c8\:3067\:4e0e\:3048\:305f\:3068\
\:304a\:308a.", "Text",ExpressionUUID->"0c231a1e-7040-4820-9674-c8d524611576"],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", " ", "=", " ", 
   RowBox[{"1", "/", "3"}]}], ";", 
  RowBox[{"q2", "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[5]:=",ExpressionUUID->"f15ca9d6-2afc-4fe1-b65a-f86027e70cf2"],

Cell["\:78ba\:7387\:5909\:6570 m \:306f, \
\:72b6\:614b\:4fa1\:683cz\:3092\:78ba\:7387q\:3067\:5272\:3063\:305f\:3082\
\:306e\:3060\:304b\:3089,\:6b21\:306e\:3088\:3046\:306b\:306a\:308b.", "Text",\
ExpressionUUID->"35dbc74c-6034-46c0-9f2c-92aef31cc154"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m1", " ", "=", " ", 
  RowBox[{"z1", " ", "/", " ", "q1"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[6]:=",ExpressionUUID->"1974e387-afa1-4c3f-9be9-b7aeee45fbc7"],

Cell[BoxData[
 FractionBox["55", "21"]], "Output",
 CellChangeTimes->{3.65311067009557*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[6]=",ExpressionUUID->"b584d4cc-25bd-406e-983c-a566e1c9116e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m2", " ", "=", " ", 
  RowBox[{"z2", "/", "q2"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[7]:=",ExpressionUUID->"dd8f6246-8d67-40a8-a0bb-3db0ef5ee517"],

Cell[BoxData[
 FractionBox["5", "42"]], "Output",
 CellChangeTimes->{3.6531106723961887`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[7]=",ExpressionUUID->"4d7e02c9-9ad0-45da-acc6-490a26c30948"]
}, Open  ]],

Cell["\:5c06\:6765(t=1)\:306b\:304a\:3044\:30661\:5186\:306e\:4fa1\:5024\:3092\
\:6301\:3064\:7121\:30ea\:30b9\:30af\:8cc7\:7523\:306e\:73fe\:5728\:4fa1\:683c\
\:306f\:ff0c\:72b6\:614b\:8a3c\:5238\:3092\:4e00\:679a\:305a\:3064\:8cb7\:3046\
\:3068\:8003\:3048\:308b\:3068\:ff0c", "Text",ExpressionUUID->"1363aebe-4bc2-\
43c1-916d-6b761fa7709a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z1", "+", "z2"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[8]:=",ExpressionUUID->"fabb21c2-623f-4291-acdb-f8a92c2b79e9"],

Cell[BoxData[
 FractionBox["20", "21"]], "Output",
 CellChangeTimes->{3.653110677011423*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[8]=",ExpressionUUID->"50cfe66e-a602-47d6-bd37-46dafc93987c"]
}, Open  ]],

Cell["\:6b21\:306e\:3088\:3046\:306b\:8a08\:7b97\:3057\:3066\:3082,m\:306e\
\:5b9a\:7fa9\:304b\:3089\:540c\:3058\:7d50\:679c\:3092\:5f97\:308b.", "Text",E\
xpressionUUID->"c0ca0cda-3503-4aa0-8cb4-cba8d40d0550"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"m1", " ", "q1"}], " ", "+", " ", 
  RowBox[{"m2", " ", "q2"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[9]:=",ExpressionUUID->"b8b4c60f-5136-4ec9-bcbb-689610be6dd0"],

Cell[BoxData[
 FractionBox["20", "21"]], "Output",
 CellChangeTimes->{3.653110680982506*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[9]=",ExpressionUUID->"16d09821-11c0-4d4f-bd7e-bc250a2ed41a"]
}, Open  ]],

Cell[TextData[{
 "\:7121\:30ea\:30b9\:30af\:8cc7\:7523\:306e\:53ce\:76ca\:7387 ",
 StyleBox["r",
  FontWeight->"Bold"],
 " \:306f"
}], "Text",ExpressionUUID->"e52fccc4-74d7-481e-bf3f-1e08d41a326f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r", "=", " ", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"z1", " ", "+", " ", "z2"}], ")"}]}], "-", "1"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[10]:=",ExpressionUUID->"34aea1c7-ecf8-4988-ab77-e11d93dd2c8e"],

Cell[BoxData[
 FractionBox["1", "20"]], "Output",
 CellChangeTimes->{3.653110684586585*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[10]=",ExpressionUUID->"fa55a33d-eb17-48e5-83fd-395de8b24b7f"]
}, Open  ]],

Cell[TextData[{
 "\n",
 StyleBox["\:30ea\:30b9\:30af\:4e2d\:7acb\:78ba\:7387",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]],
 "\:3092 pi1, pi2 \
\:3068\:66f8\:304f\:3068\:3059\:308b\:3068\:ff0c\:3053\:308c\:3089\:306f\:30d1\
\:30ef\:30fc\:30dd\:30a4\:30f3\:30c8 p.9 \:306e\:5b9a\:7fa9\:304b\:3089\:6b21\
\:306e\:3088\:3046\:306b\:8a08\:7b97\:3055\:308c\:308b\:3002\n"
}], "Text",
 CellChangeTimes->{{3.6531107962079144`*^9, 
  3.65311079663949*^9}},ExpressionUUID->"98d8a509-edbf-496d-b7d9-\
53dcb757228a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pi1", " ", "=", " ", 
  RowBox[{"z1", " ", "/", 
   RowBox[{"(", 
    RowBox[{"z1", " ", "+", "z2"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.653110782502859*^9, 3.653110784512591*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[11]:=",ExpressionUUID->"29ba6dc9-fdfc-4b4e-b3e4-9b1cf272d4c7"],

Cell[BoxData[
 FractionBox["11", "12"]], "Output",
 CellChangeTimes->{3.6531107870853167`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[11]=",ExpressionUUID->"a43165f5-c5ec-4fa0-91a7-04c50f14ab0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pi2", " ", "=", " ", 
  RowBox[{"z2", " ", "/", 
   RowBox[{"(", 
    RowBox[{"z1", "+", "z2"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.6531107903037786`*^9, 3.653110791751974*^9}},
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[12]:=",ExpressionUUID->"cfcb6790-ac54-4749-9de3-1c596d354f9d"],

Cell[BoxData[
 FractionBox["1", "12"]], "Output",
 CellChangeTimes->{3.653110792484406*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[12]=",ExpressionUUID->"07caf85b-e72b-432b-a4ff-95b3decb75af"]
}, Open  ]],

Cell[TextData[{
 "\n\:5b9a\:7fa9 (\:306a\:3044\:3057\:8a08\:7b97\:65b9\:6cd5) \:304b\:3089\
\:5f53\:7136\:3067\:3042\:308b\:304c\:3001\:5408\:8a08\:304c1\:3068\:306a\
\:308b\:6b63\:306e\:6570\:5024\:304c\:4e8c\:3064\:5f97\:3089\:308c\:305f\:3002\
\n\n\:3000\:30ea\:30b9\:30af\:4e2d\:7acb\:5316\:6cd5\:306b\:5f93\:3063\:3066\
\:8a3c\:5238\:4fa1\:683c\:3092\:6c42\:3081\:3066\:307f\:3088\:3046\:3002\n\n  \
 \:307e\:305a",
 StyleBox["\:691c\:7b97\:306e\:305f\:3081\:682a\:5f0f\:306e\:4fa1\:683c\:3092\
\:8a08\:7b97",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0.5, 0]],
 "\:3059\:308b\:3002100\:306b\:306a\:308b\:3060\:308d\:3046\:304b\:3002\:ff08\
\:682a\:5f0f\:3068\:50b5\:5238\:306f\:4fa1\:683c\:304c\:308f\:304b\:3063\:3066\
\:3044\:308b\:306e\:3067\:ff0c\:308f\:3056\:308f\:3056\:30ea\:30b9\:30af\:4e2d\
\:7acb\:5316\:6cd5\:3067\:8a08\:7b97\:3059\:308b\:5fc5\:8981\:306f\:306a\:3044\
\:306e\:3060\:304c\:ff0c\:8a08\:7b97\:65b9\:6cd5\:306e\:660e\:793a\:3068\:691c\
\:7b97\:306e\:305f\:3081\:3053\:308c\:3092\:304a\:3053\:306a\:3046\:3002)\n   \
\n\:3000\:307e\:305a\:ff0c\:305d\:308c\:305e\:308c\:306e\:72b6\:614b\:306b\
\:304a\:3051\:308b\:8a3c\:5238\:4fa1\:5024\:306b\:30ea\:30b9\:30af\:4e2d\:7acb\
\:78ba\:7387\:3092\:304b\:3051\:3066\:305d\:306e\:5408\:8a08\:3092\:53d6\:308b\
\:3053\:3068\:3067\:ff0c\:671f\:5f85\:5024\:3092\:51fa\:3059\:3002\:305d\:308c\
\:3092\:5b89\:5168\:8cc7\:7523\:306e\:53ce\:76ca\:7387 (=105/100) \
\:3067\:5272\:308b\:3002"
}], "Text",
 CellChangeTimes->{{3.6531108093836117`*^9, 3.6531108278316813`*^9}, {
  3.748237315373302*^9, 
  3.7482373653551617`*^9}},ExpressionUUID->"4957b3ab-6ae7-4407-a78e-\
80eac551350f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"pi1", " ", "*", "106"}], " ", "+", " ", 
    RowBox[{"pi2", " ", "*", "94"}]}], " ", ")"}], "/", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r"}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[13]:=",ExpressionUUID->"09f3b043-2e78-43b0-a0fc-ae7b86a7e36d"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.653110832232244*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[13]=",ExpressionUUID->"b88f76c4-a750-42f2-857a-b517c0f563c3"]
}, Open  ]],

Cell[TextData[{
 "\n\:3000\:6b21\:306b\:3001\:72b6\:614b1\:304c\:304a\:3053\:3063\:305f\:3068\
\:304dK=102 \:3067\:6a29\:5229\:884c\:4f7f\:3055\:308c,\:72b6\:614b2\:304c\
\:304a\:3053\:3063\:305f\:3068\:304d\:306f\:6a29\:5229\:884c\:4f7f\:304c\:306a\
\:3055\:308c\:306a\:3044",
 StyleBox["\:30b3\:30fc\:30eb\:30aa\:30d7\:30b7\:30e7\:30f3\:306b\:3064\:3044\
\:3066\:3001\:305d\:306e\:4fa1\:5024\:3092\:8a08\:7b97",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0.5, 0]],
 "\:3057\:3066\:307f\:3088\:3046\:3002\n\:3000\:30b3\:30fc\:30eb\:30aa\:30d7\
\:30b7\:30e7\:30f3\:306e\:ff0c\:300c\:30ea\:30b9\:30af\:4e2d\:7acb\:78ba\:7387\
\:300d\:3092\:7528\:3044\:305f\:671f\:5f85\:5024\:306f\:6b21\:306e\:901a\:308a\
\:3002t=1\:6642\:70b9\:306b\:304a\:3044\:3066\:3001\:30aa\:30d7\:30b7\:30e7\
\:30f3\:306f\:6a29\:5229\:884c\:4f7f\:3059\:308b\:3068(106-102)\:5186\:3001\
\:6a29\:5229\:884c\:4f7f\:3057\:306a\:3051\:308c\:30700\:5186\:306e\:4fa1\
\:5024\:3092\:6301\:3064\:306e\:3067\:3001\:305d\:308c\:305e\:308c\:306e\:78ba\
\:7387\:3092\:304b\:3051\:3066\:5408\:8a08\:3059\:308b\:3068\:671f\:5f85\:5024\
\:304c\:5f97\:3089\:308c\:308b\:3002"
}], "Text",
 CellChangeTimes->{
  3.7482374140548363`*^9, {3.748237456510557*^9, 3.748237581934279*^9}, {
   3.748237669224443*^9, 
   3.748237711050293*^9}},ExpressionUUID->"5d2ce82b-8171-45ce-964d-\
4b45b4a57642"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"pi1", " ", "*", " ", 
   RowBox[{"(", 
    RowBox[{"106", "-", "102"}], ")"}]}], " ", "+", " ", 
  RowBox[{"pi2", " ", "*", " ", "0"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[14]:=",ExpressionUUID->"049dad8d-2559-4f8b-a463-62876cd797ad"],

Cell[BoxData[
 FractionBox["11", "3"]], "Output",
 CellChangeTimes->{3.653110835965027*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[14]=",ExpressionUUID->"cc69b6ba-f41e-4566-af4a-93649c325057"]
}, Open  ]],

Cell["\:3053\:308c\:3092\:5b89\:5168\:8cc7\:7523\:53ce\:76ca\:7387\:3067\:5272\
\:308a\:5f15\:304f\:3068( %  \:306f\:3072\:3068\:3064\:524d\:306e\:7d50\:679c\
\:3092\:793a\:3059\:ff09", "Text",ExpressionUUID->"9d63ab7d-3beb-4238-a58b-\
3c42f057ebbd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r"}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[15]:=",ExpressionUUID->"f2aa2dd7-388b-4b4e-b0db-f9871e92a26b"],

Cell[BoxData[
 FractionBox["220", "63"]], "Output",
 CellChangeTimes->{3.653110841469509*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[15]=",ExpressionUUID->"97db6c3a-72c2-4542-91ec-e791b789424c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[16]:=",ExpressionUUID->"ff7f705a-d789-4293-bdf9-3f7868fe8bde"],

Cell[BoxData["3.492063492063492`"], "Output",
 CellChangeTimes->{3.653110844557893*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[16]=",ExpressionUUID->"0788b4c0-0fd5-47b5-8995-0c7d1bcbc456"]
}, Open  ]],

Cell[TextData[{
 "\:30b3\:30fc\:30eb\:30fb\:30aa\:30d7\:30b7\:30e7\:30f3\:306e\:4fa1\:5024\
\:304c\:8a08\:7b97\:3055\:308c\:305f\:3002 \n\n\:6700\:5f8c\:306b\:3001",
 StyleBox["\:30d1\:30ef\:30fc\:30dd\:30a4\:30f3\:30c8 p.15 \:8a08\:7b97\:4f8b \
2 \:306e\:30aa\:30d7\:30b7\:30e7\:30f3",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0.5, 0]],
 "\:306b\:3064\:3044\:3066\:ff0c\:4fa1\:5024\:3092\:8a08\:7b97\:3057\:3066\
\:304a\:304f\:3002\:300c\:30ea\:30b9\:30af\:4e2d\:7acb\:78ba\:7387\:300d\:3092\
\:7528\:3044\:305f\:671f\:5f85\:5024\:3092, \:5b89\:5168\:8cc7\:7523\:53ce\
\:76ca\:7387\:3067\:5272\:308a\:5f15\:304f\:3068"
}], "Text",
 CellChangeTimes->{{3.653110860848633*^9, 3.653110865938552*^9}, {
  3.748237595858356*^9, 3.748237663610488*^9}, {3.748237869270461*^9, 
  3.748237878668765*^9}},ExpressionUUID->"0cbf7e80-895a-4f41-9085-\
2991aa9660b3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"pi1", " ", "*", " ", "11136"}], "  ", "+", "  ", 
    RowBox[{"pi2", " ", "*", "8736"}]}], "  ", ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"1", "+", "r"}], ")"}]}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[17]:=",ExpressionUUID->"a823203b-8048-49c1-aeec-bd9193f7921e"],

Cell[BoxData[
 FractionBox["218720", "21"]], "Output",
 CellChangeTimes->{3.6531109308331423`*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[17]=",ExpressionUUID->"fa24fcf3-e82f-4bab-a554-8f4ecc0ea07d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 FontColor->RGBColor[0, 0, 1],
 CellLabel->"In[18]:=",ExpressionUUID->"26abd0b0-9a1f-4282-b3f9-b0bddc661958"],

Cell[BoxData["10415.238095238095`"], "Output",
 CellChangeTimes->{3.653110933320986*^9},
 Background->GrayLevel[0.900008],
 CellLabel->"Out[18]=",ExpressionUUID->"f295a177-7818-4a65-8f9d-a5a13c1ca910"]
}, Open  ]],

Cell["\:4ee5\:524d\:6c42\:3081\:305f\:3082\:306e(MF18-7-1a.nb, C1=S1\:ff3e\
\:ff12 - B1\:306e\:5834\:5408)\:3068\:ff0c\:6570\:5024\:306f\:4e00\:81f4\:3057\
\:3066\:3044\:308b\:3002", "Text",
 CellChangeTimes->{{3.6531110044031553`*^9, 3.6531110129366493`*^9}, {
  3.748237821470686*^9, 
  3.7482378378033533`*^9}},ExpressionUUID->"73f0d5cf-cf97-4bb9-a16d-\
92c55dabd4fc"]
}, Open  ]]
},
WindowSize->{862, 756},
WindowMargins->{{162, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
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->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 122, 0, 55, "Title", "ExpressionUUID" -> \
"44aabe94-f822-4d26-b835-1cbf8a7099e6"],
Cell[692, 24, 219, 4, 31, "Subtitle", "ExpressionUUID" -> \
"6ba094f9-a744-4ce8-9075-339c75354733"],
Cell[914, 30, 782, 16, 36, "Text", "ExpressionUUID" -> \
"d4eb800e-586c-4cec-898b-42b94b364146"],
Cell[CellGroupData[{
Cell[1721, 50, 596, 18, 28, "Input", "ExpressionUUID" -> \
"d6bf768a-f24c-4fb6-944c-a846f3473dc5"],
Cell[2320, 70, 389, 11, 55, "Output", "ExpressionUUID" -> \
"fed41255-f4c7-42fd-948d-51ac7a66eeb5"]
}, Open  ]],
Cell[2724, 84, 194, 2, 22, "Text", "ExpressionUUID" -> \
"4de054ee-209d-4fb8-b7fc-81756b2e26f6"],
Cell[CellGroupData[{
Cell[2943, 90, 398, 11, 28, "Input", "ExpressionUUID" -> \
"52221a22-4ec6-4f7d-9e51-d518d54f32ca"],
Cell[3344, 103, 204, 4, 55, "Output", "ExpressionUUID" -> \
"fd580cec-4b40-4b18-bbd1-a0dae563d23a"]
}, Open  ]],
Cell[3563, 110, 512, 13, 22, "Text", "ExpressionUUID" -> \
"cd804dbb-e348-462d-b1cd-62f1617a99e2"],
Cell[CellGroupData[{
Cell[4100, 127, 586, 18, 28, "Input", "ExpressionUUID" -> \
"14a6e9f4-c1e2-474c-b85c-f13d03958f61"],
Cell[4689, 147, 387, 11, 55, "Output", "ExpressionUUID" -> \
"59a8eb07-be9a-466d-867b-8059da703fb6"]
}, Open  ]],
Cell[5091, 161, 194, 2, 22, "Text", "ExpressionUUID" -> \
"25d75d22-cc07-432e-939f-2aac0963ab54"],
Cell[CellGroupData[{
Cell[5310, 167, 388, 11, 28, "Input", "ExpressionUUID" -> \
"dbaa3914-01ea-43aa-ac83-0fe064156b5b"],
Cell[5701, 180, 203, 4, 55, "Output", "ExpressionUUID" -> \
"17bd5ff9-c445-420d-8a0e-a226659aedcd"]
}, Open  ]],
Cell[5919, 187, 230, 2, 22, "Text", "ExpressionUUID" -> \
"0c231a1e-7040-4820-9674-c8d524611576"],
Cell[6152, 191, 269, 7, 28, "Input", "ExpressionUUID" -> \
"f15ca9d6-2afc-4fe1-b65a-f86027e70cf2"],
Cell[6424, 200, 254, 3, 22, "Text", "ExpressionUUID" -> \
"35dbc74c-6034-46c0-9f2c-92aef31cc154"],
Cell[CellGroupData[{
Cell[6703, 207, 204, 4, 28, "Input", "ExpressionUUID" -> \
"1974e387-afa1-4c3f-9be9-b7aeee45fbc7"],
Cell[6910, 213, 203, 4, 55, "Output", "ExpressionUUID" -> \
"b584d4cc-25bd-406e-983c-a566e1c9116e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7150, 222, 194, 4, 28, "Input", "ExpressionUUID" -> \
"dd8f6246-8d67-40a8-a0bb-3db0ef5ee517"],
Cell[7347, 228, 205, 4, 55, "Output", "ExpressionUUID" -> \
"4d7e02c9-9ad0-45da-acc6-490a26c30948"]
}, Open  ]],
Cell[7567, 235, 343, 4, 22, "Text", "ExpressionUUID" -> \
"1363aebe-4bc2-43c1-916d-6b761fa7709a"],
Cell[CellGroupData[{
Cell[7935, 243, 160, 3, 28, "Input", "ExpressionUUID" -> \
"fabb21c2-623f-4291-acdb-f8a92c2b79e9"],
Cell[8098, 248, 204, 4, 55, "Output", "ExpressionUUID" -> \
"50cfe66e-a602-47d6-bd37-46dafc93987c"]
}, Open  ]],
Cell[8317, 255, 210, 2, 22, "Text", "ExpressionUUID" -> \
"c0ca0cda-3503-4aa0-8cb4-cba8d40d0550"],
Cell[CellGroupData[{
Cell[8552, 261, 218, 5, 28, "Input", "ExpressionUUID" -> \
"b8b4c60f-5136-4ec9-bcbb-689610be6dd0"],
Cell[8773, 268, 204, 4, 55, "Output", "ExpressionUUID" -> \
"16d09821-11c0-4d4f-bd7e-bc250a2ed41a"]
}, Open  ]],
Cell[8992, 275, 197, 5, 22, "Text", "ExpressionUUID" -> \
"e52fccc4-74d7-481e-bf3f-1e08d41a326f"],
Cell[CellGroupData[{
Cell[9214, 284, 274, 7, 28, "Input", "ExpressionUUID" -> \
"34aea1c7-ecf8-4988-ab77-e11d93dd2c8e"],
Cell[9491, 293, 204, 4, 55, "Output", "ExpressionUUID" -> \
"fa55a33d-eb17-48e5-83fd-395de8b24b7f"]
}, Open  ]],
Cell[9710, 300, 515, 12, 64, "Text", "ExpressionUUID" -> \
"98d8a509-edbf-496d-b7d9-53dcb757228a"],
Cell[CellGroupData[{
Cell[10250, 316, 322, 7, 28, "Input", "ExpressionUUID" -> \
"29ba6dc9-fdfc-4b4e-b3e4-9b1cf272d4c7"],
Cell[10575, 325, 207, 4, 55, "Output", "ExpressionUUID" -> \
"a43165f5-c5ec-4fa0-91a7-04c50f14ab0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10819, 334, 319, 7, 28, "Input", "ExpressionUUID" -> \
"cfcb6790-ac54-4749-9de3-1c596d354f9d"],
Cell[11141, 343, 204, 4, 55, "Output", "ExpressionUUID" -> \
"07caf85b-e72b-432b-a4ff-95b3decb75af"]
}, Open  ]],
Cell[11360, 350, 1653, 27, 200, "Text", "ExpressionUUID" -> \
"4957b3ab-6ae7-4407-a78e-80eac551350f"],
Cell[CellGroupData[{
Cell[13038, 381, 340, 9, 28, "Input", "ExpressionUUID" -> \
"09f3b043-2e78-43b0-a0fc-ae7b86a7e36d"],
Cell[13381, 392, 185, 3, 39, "Output", "ExpressionUUID" -> \
"b88f76c4-a750-42f2-857a-b517c0f563c3"]
}, Open  ]],
Cell[13581, 398, 1351, 23, 93, "Text", "ExpressionUUID" -> \
"5d2ce82b-8171-45ce-964d-4b45b4a57642"],
Cell[CellGroupData[{
Cell[14957, 425, 292, 7, 28, "Input", "ExpressionUUID" -> \
"049dad8d-2559-4f8b-a463-62876cd797ad"],
Cell[15252, 434, 204, 4, 55, "Output", "ExpressionUUID" -> \
"cc69b6ba-f41e-4566-af4a-93649c325057"]
}, Open  ]],
Cell[15471, 441, 250, 3, 22, "Text", "ExpressionUUID" -> \
"9d63ab7d-3beb-4238-a58b-3c42f057ebbd"],
Cell[CellGroupData[{
Cell[15746, 448, 206, 5, 28, "Input", "ExpressionUUID" -> \
"f2aa2dd7-388b-4b4e-b0db-f9871e92a26b"],
Cell[15955, 455, 206, 4, 55, "Output", "ExpressionUUID" -> \
"97db6c3a-72c2-4542-91ec-e791b789424c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16198, 464, 164, 3, 28, "Input", "ExpressionUUID" -> \
"ff7f705a-d789-4293-bdf9-3f7868fe8bde"],
Cell[16365, 469, 200, 3, 39, "Output", "ExpressionUUID" -> \
"0788b4c0-0fd5-47b5-8995-0c7d1bcbc456"]
}, Open  ]],
Cell[16580, 475, 858, 15, 78, "Text", "ExpressionUUID" -> \
"0cbf7e80-895a-4f41-9085-2991aa9660b3"],
Cell[CellGroupData[{
Cell[17463, 494, 347, 9, 28, "Input", "ExpressionUUID" -> \
"a823203b-8048-49c1-aeec-bd9193f7921e"],
Cell[17813, 505, 211, 4, 55, "Output", "ExpressionUUID" -> \
"fa24fcf3-e82f-4bab-a554-8f4ecc0ea07d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18061, 514, 164, 3, 28, "Input", "ExpressionUUID" -> \
"26abd0b0-9a1f-4282-b3f9-b0bddc661958"],
Cell[18228, 519, 201, 3, 39, "Output", "ExpressionUUID" -> \
"f295a177-7818-4a65-8f9d-a5a13c1ca910"]
}, Open  ]],
Cell[18444, 525, 371, 6, 22, "Text", "ExpressionUUID" -> \
"73f0d5cf-cf97-4bb9-a16d-92c55dabd4fc"]
}, Open  ]]
}
]
*)