(* 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[     28690,        876]
NotebookOptionsPosition[     25644,        774]
NotebookOutlinePosition[     26088,        791]
CellTagsIndexPosition[     26045,        788]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

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

Cell["9. A Complete Market", "Subtitle",
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[StyleBox["9.2 What are the state-contingent claims ?",
 FontWeight->"Bold"]], "Subsubtitle",
 FontSlant->"Italic",
 FontColor->RGBColor[0, 0.501961, 1]],

Cell["\<\
\:4e00\:671f\:9593\:30e2\:30c7\:30eb\:3092\:8003\:3048\:ff0c\:72b6\:614b\:306e\
\:6570 S \:3068\:5c06\:6765\:306e\:30da\:30a4\:30aa\:30d5\:304c\:4e00\:6b21\
\:72ec\:7acb\:306a\:8a3c\:5238\:6570 L \:304c\:7b49\:3057\:3044\:5b8c\:5099\
\:5e02\:5834\:3092\:4eee\:5b9a\:3057\:3088\:3046\:3002\:3053\:3053\:3067\:306f\
\:ff0c
\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\
\:3000\:3000\:3000S\:3000\:ff1d\:3000L\:3000\:ff1d\:3000\:ff4e
\:3068\:3057\:3066\:304a\:304f\:3002\
\>", "Text"],

Cell["\<\
\:72b6\:614b\:8a3c\:5238\:3068\:306f\:ff0c\:5c06\:6765\:306b\:304a\:3044\:3066\
\:3042\:308b\:7279\:5b9a\:306e\:72b6\:614b\:304c\:751f\:3058\:305f\:3068\:304d\
1\:5186\:ff0c\:305d\:308c\:4ee5\:5916\:306e\:72b6\:614b\:306b\:306a\:3063\
\:305f\:3068\:304d\:306f0\:5186\:3068\:306a\:308b\:8a3c\:5238\:3067\:3042\
\:308b\:3002\:72b6\:614b\:306e\:6570\:3060\:3051\:72b6\:614b\:8a3c\:5238\:304c\
\:5b58\:5728\:3059\:308b\:304b\:3089\:ff0c\:ff4e\:7a2e\:985e\:306e\:72b6\:614b\
\:8a3c\:5238\:304c\:3042\:308b\:3053\:3068\:306b\:306a\:308b\:3002\
\>", "Text"],

Cell["\<\
\:5177\:4f53\:7684\:306b n=3 \:306e\:5834\:5408\:3092\:307f\:3066\:304a\:304f\
\:3002
\:3000\:30a4\:30e1\:30fc\:30b8\:3068\:3057\:3066\:306f\:ff0c\:5c06\:6765\:ff0c\
\:666f\:6c17\:304c\:3088\:3044\:72b6\:614b\:ff08 \:72b6\:614b\:ff11\:ff09 \
\:ff0c\:666f\:6c17\:304c\:307b\:3069\:307b\:3069\:306e\:72b6\:614b\:ff08\:72b6\
\:614b\:ff12\:ff09\:ff0c\:666f\:6c17\:304c\:60aa\:3044\:72b6\:614b\:ff08\:72b6\
\:614b\:ff13\:ff09\:3068\:3044\:3046\:ff13\:901a\:308a\:306e\:72b6\:614b\:304c\
\:3042\:308b\:3002\:8a3c\:5238\:306e\:5c06\:6765\:306e\:30da\:30a4\:30aa\:30d5\
\:3092\:ff0c\:6b21\:306e\:3088\:3046\:306b\:66f8\:304f\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "\:72b6\:614b1\:3067\:306e\:30da\:30a4\:30aa\:30d5", ",", 
    "\:72b6\:614b2\:3067\:306e\:30da\:30a4\:30aa\:30d5", ",", 
    "\:72b6\:614b3\:3067\:306e\:30da\:30a4\:30aa\:30d5"}], "}"}], "//", 
  "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"\:72b6\:614b1\:3067\:306e\:30da\:30a4\:30aa\:30d5"},
      {"\:72b6\:614b2\:3067\:306e\:30da\:30a4\:30aa\:30d5"},
      {"\:72b6\:614b3\:3067\:306e\:30da\:30a4\:30aa\:30d5"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell["\<\
\:666f\:6c17\:304c\:826f\:3051\:308c\:3070\:300020,000 \:5186\:ff0c\:666f\
\:6c17\:304c\:307b\:3069\:307b\:3069\:306a\:3089 15,000\:5186\:ff0c\:666f\
\:6c17\:304c\:60aa\:3051\:308c\:3070 8,000\:5186\:3068\:3044\:3046 \:682a\
\:5f0fA\:306e\:5834\:5408\:306f\:ff0c\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"20000", ",", "15000", ",", "8000"}], "}"}], "//", 
  "MatrixForm"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"20000"},
      {"15000"},
      {"8000"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.396104870769926*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\:3068\:3044\:3046\:611f\:3058\:3067\:3042\:308b.", "Text"],

Cell["\:3055\:3066,\:72b6\:614b1,\:3059\:306a\:308f\:3061\:666f\:6c17\:304c\
\:826f\:3051\:308c\:30701\:5186,\:305d\:308c\:4ee5\:5916\:3067\:306f0\:5186\
\:3068\:3044\:3046\:72b6\:614b\:8a3c\:5238\:306e\:5834\:5408\:306f,", "Text"],

Cell[CellGroupData[{

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

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"1"},
      {"0"},
      {"0"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.3961048763779907`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\:3053\:308c\:3092\:8a3c\:5238e1\:3068\:547c\:307c\:3046.", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell["\<\
\:540c\:3058\:3088\:3046\:306b,\:72b6\:614b2\:306e\:3068\:304d\:306b1\:5186,\
\:305d\:308c\:4ee5\:5916\:3067\:306f0\:5186\:3068\:306a\:308b\:8a3c\:5238\
\:3092 e2\:ff0c\:72b6\:614b\:ff13\:306e\:3068\:304d\:306b\:ff11\:5186\:ff0c\
\:305d\:308c\:4ee5\:5916\:3067\:306f0\:5186\:3068\:306a\:308b\:8a3c\:5238\
\:3092e3 \:3068\:547c\:3076\:3002\:3053\:308c\:3089\:306f\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"e2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";", " ", 
  RowBox[{"e3", " ", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ";"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell["\<\
\:3055\:3066\:3053\:3053\:3067,\:682a\:5f0fA\:3068\:540c\:3058\:30da\:30a4\
\:30aa\:30d5\:304c\:5b9f\:73fe\:3059\:308b\:3088\:3046\:306b,\:72b6\:614b\
\:8a3c\:52383\:3064\:3092\:4f7f\:3063\:305f\:30dd-\:30c8\:30d5\:30a9\:30ea\
\:30aa\:3092\:4f5c\:3063\:3066\:307f\:3088\:3046\:3002\:72b6\:614b\:ff11\:304c\
\:751f\:3058\:305f\:3068\:304d\:ff0c\:682a\:5f0fA\:306f20,000\:5186\:306a\
\:306e\:3067\:ff0ce1 \:309220,000\:679a\:6301\:3064\:3068\:3057\:3088\:3046\
\:3002\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"20000", " ", "*", " ", "e1"}], " ", "//", "MatrixForm"}]], "Input",\

 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"20000"},
      {"0"},
      {"0"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.396104887584104*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\<\
\:72b6\:614b2\:3084\:72b6\:614b\:ff13\:304c\:8d77\:3053\:3063\:305f\:3068\
\:304d\:ff0ce1 \:3057\:304b\:6301\:3063\:3066\:3044\:306a\:3051\:308c\:3070\
\:ff0c\:4e0a\:306b\:3042\:308b\:3088\:3046\:306b0\:5186\:306b\:306a\:3063\
\:3066\:3057\:307e\:3046\:3002\:305d\:3053\:3067\:ff0c\:3055\:3089\:306b\:ff0c\
 e2 \:309215,000\:679a\:ff0ce3 \
\:30928,000\:679a\:6301\:3064\:3053\:3068\:306b\:3059\:308b\:3068\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"20000", "*", " ", "e1"}], " ", "+", " ", 
   RowBox[{"15000", "*", "e2"}], " ", "+", " ", 
   RowBox[{"8000", "*", " ", "e3"}]}], " ", "//", "MatrixForm"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"20000"},
      {"15000"},
      {"8000"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.3961048910891438`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 "\:3068\:306a\:3063\:3066,\:682a\:5f0fA\:3068\:30da\:30a4\:30aa\:30d5\:304c\
\:5168\:304f\:540c\:3058\:306b\:306a\:308b\:3002\n\n",
 StyleBox["\:3053\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3068\:682a\
\:5f0fA\:3068\:306f\:5c06\:6765\:306e\:72b6\:614b\:304c\:3069\:308c\:306b\
\:306a\:3063\:3066\:3082\:5fc5\:305a\:540c\:3058\:30da\:30a4\:30aa\:30d5\:3068\
\:306a\:308b\:306e\:3067\:ff0c\:7d4c\:6e08\:7684\:306b\:306f\:540c\:3058\:8a3c\
\:5238\:3068\:898b\:306a\:3059\:3053\:3068\:304c\:3067\:304d\:308b\:3002",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 "\n\n\:3053\:308c\:306f\:ff0c\:6b21\:306e\:3088\:3046\:306a\:300c\:6570\:5024\
\[Times]\:30d9\:30af\:30c8\:30eb\:300d\:3068\:305d\:308c\:3089\:306e\:8db3\
\:3057\:7b97\:3068\:3044\:3046\:8a08\:7b97\:304b\:3089\:5f97\:3089\:308c\:305f\
\:3082\:306e\:3068\:8003\:3048\:308b\:3053\:3068\:304c\:51fa\:6765\:308b\:3002"
}], "Text",
 CellChangeTimes->{3.522376871697547*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"20000", "*", " ", 
   RowBox[{"MatrixForm", "[", "e1", "]"}]}], "+", 
  RowBox[{"15000", "*", " ", 
   RowBox[{"MatrixForm", "[", "e2", "]"}]}], "+", 
  RowBox[{"8000", "*", 
   RowBox[{"MatrixForm", "[", "e3", "]"}]}]}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"8000", " ", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"0"},
        {"0"},
        {"1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "+", 
  RowBox[{"15000", " ", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"0"},
        {"1"},
        {"0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "+", 
  RowBox[{"20000", " ", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"1"},
        {"0"},
        {"0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}]}]], "Output",
 CellChangeTimes->{3.396104894213637*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 "\n",
 StyleBox["\:4e00\:822c\:306b\:ff0c\:5404\:72b6\:614b\:306b\:304a\:3051\:308b\
\:30da\:30a4\:30aa\:30d5\:304c c1, c2, c3 \
\:3068\:3044\:3046\:8a3c\:5238\:306e\:5834\:5408\:ff0c",
  FontSize->14]
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"c1", ",", "c2", ",", "c3"}], "}"}], "//", "MatrixForm"}]], "Input",\

 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"c1"},
      {"c2"},
      {"c3"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.396104896697208*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[TextData[{
 StyleBox["\:3053\:306e\:8a3c\:5238\:306f\:ff0c\:72b6\:614b\:8a3c\:5238 e1 \
\:3092c1\:679a\:ff0c\:72b6\:614b\:8a3c\:5238 e2 \:3092 c2 \:679a\:ff0c\:72b6\
\:614b\:8a3c\:5238 e3 \:3092 c3 \:679a\:7d44\:307f\:5408\:308f\:305b\:305f\
\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3068\:540c\:3058\:30da\:30a4\:30aa\
\:30d5\:3092\:3082\:3064\:3002\n\n\:3059\:306a\:308f\:3061\:ff0c",
  FontSize->14],
 StyleBox["\:4e00\:822c\:306e",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\:8a3c\:5238\:306f\:72b6\:614b\:8a3c\:5238\:304b\:3089\:4f5c\:3063\
\:305f\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3068\:307f\:306a\:3059\:3053\
\:3068\:304c\:3067\:304d\:308b",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\:306e\:3067\:3042\:308b\:3002",
  FontSize->14]
}], "Text",
 CellChangeTimes->{{3.522376954773806*^9, 3.5223770027845078`*^9}, 
   3.5223770505817738`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c1", "*", " ", 
    RowBox[{"MatrixForm", "[", "e1", "]"}]}], "+", 
   RowBox[{"c2", "*", " ", 
    RowBox[{"MatrixForm", "[", "e2", "]"}]}], "+", 
   RowBox[{"c3", "*", 
    RowBox[{"MatrixForm", "[", "e3", "]"}]}]}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"c1", " ", "e1"}], "+", 
     RowBox[{"c2", " ", "e2"}], " ", "+", " ", 
     RowBox[{"c3", " ", "e3"}]}], " ", "//", "MatrixForm"}], ")"}]}]], "Input",\

 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c3", " ", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"0"},
         {"0"},
         {"1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}], "+", 
   RowBox[{"c2", " ", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"0"},
         {"1"},
         {"0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}], "+", 
   RowBox[{"c1", " ", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"1"},
         {"0"},
         {"0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}]}], "\[Equal]", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", 
    TagBox[GridBox[{
       {"c1"},
       {"c2"},
       {"c3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     Column], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]}]], "Output",
 CellChangeTimes->{3.396104901083515*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\<\

\:3053\:3053\:3067\:682a\:5f0fA\:306e\:4f8b\:306b\:623b\:3063\:3066\:ff0c

\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:3000\:72b6\:614b\:8a3c\:5238\:306e\
\:73fe\:5728\:4fa1\:683c\:304c\:4e0e\:3048\:3089\:308c\:3066\:3044\:305f\:3068\
\:304d\:ff0c\:682a\:5f0fA\:306e\:73fe\:5728\:4fa1\:683c\:306f\:3044\:304f\
\:3089\:304b

\:3068\:3044\:3046\:554f\:984c\:3092\:8003\:3048\:3066\:307f\:3088\:3046\:3002\
\>", "Text"],

Cell[" \:72b6\:614b\:8a3c\:5238\:306e\:4fa1\:683c\:3092\:ff0c\:ff50\:ff11\
\:ff0c\:ff50\:ff12\:ff0c\:ff50\:ff13\:3068\:66f8\:304f\:3002\:3053\:3053\:3067\
\:306f\:ff0c", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"2", "/", "10"}]}], ";", 
  RowBox[{"p2", "=", 
   RowBox[{"3", "/", "10"}]}], ";", 
  RowBox[{"p3", "=", 
   RowBox[{"4", "/", "10"}]}], ";"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell["\:3068\:3057\:3066\:304a\:3053\:3046.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%8", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.396104925909213*^9, 3.396104926460005*^9}},
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"20000"},
      {"15000"},
      {"8000"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.3961049272511425`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\<\
\:3092\:5f97\:308b\:305f\:3081\:306b,\:72b6\:614b\:8a3c\:5238\:3092\:305d\
\:308c\:305e\:308c,20000\:679a,15000\:679a,8000\:679a\:7d44\:307f\:5408\:308f\
\:305b\:3066\:300c\:8cb7\:3063\:3066\:3044\:308b\:300d\:308f\:3051\:3060\:304b\
\:3089\:ff0c\:3053\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:306e\:73fe\
\:5728\:4fa1\:683c\:306f\:ff0c\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"20000", "*", "p1"}], " ", "+", " ", 
  RowBox[{"15000", "*", "p2"}], " ", "+", " ", 
  RowBox[{"8000", "*", "p3", " "}]}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

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

Cell["\<\
\:3067\:3042\:308b\:3002\:3053\:306e\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\
\:3068\:682a\:5f0fA\:3068\:306f\:540c\:3058\:7d4c\:6e08\:4fa1\:5024\:3092\
\:5c06\:6765\:6642\:70b9\:306b\:304a\:3044\:3066\:6301\:3064\:306e\:3067\:ff0c\
\:73fe\:5728\:6642\:70b9\:306b\:304a\:3051\:308b\:4fa1\:5024\:3082\:540c\:3058\
\:306b\:306a\:308b\:3068\:8003\:3048\:308b\:3053\:3068\:304c\:51fa\:6765\:308b\
\:3002\:4e00\:7269\:4e00\:4fa1\:306e\:6cd5\:5247\:304c\:6210\:308a\:7acb\:3063\
\:3066\:3044\:308c\:3070\:ff0c\:5fc5\:305a\:540c\:3058\:306b\:306a\:308b\:3002\
\:5f93\:3063\:3066\:ff0c\:682a\:5f0fA\:306e\:73fe\:5728\:4fa1\:5024\:306f\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData["%"], "Input",
 FontColor->RGBColor[0, 0, 1]],

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

Cell["\:5186\:3067\:3042\:308b.", "Text"],

Cell[TextData[{
 "\n\:307e\:305f\:ff0c",
 StyleBox["\:5404\:72b6\:614b\:306b\:304a\:3051\:308b\:30da\:30a4\:30aa\:30d5\
\:304c c1, c2, c3 \
\:3068\:3044\:3046\:4e00\:822c\:7684\:306a\:8a3c\:5238\:306e\:5834\:5408\:ff0c\
\:305d\:306e\:73fe\:5728\:4fa1\:5024\:306f",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]]
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c1", "*", "p1"}], " ", "+", " ", 
  RowBox[{"c2", "*", "p2"}], " ", "+", " ", 
  RowBox[{"c3", "*", "p3", " "}]}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{
  FractionBox["c1", "5"], "+", 
  FractionBox[
   RowBox[{"3", " ", "c2"}], "10"], "+", 
  FractionBox[
   RowBox[{"2", " ", "c3"}], "5"]}]], "Output",
 CellChangeTimes->{3.3961049374958735`*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell["\<\
\:5186\:3067\:3042\:308b\:3002
\:3000\:3000\:ff50\:ff11\:ff0c\:ff50\:ff12\:ff0c\:ff50\:ff13\:306e\:5024\:304c\
\:4f8b\:3068\:3057\:3066\:3042\:3052\:305f\:6570\:5024\:3067\:306a\:3044\:4e00\
\:822c\:306e\:5834\:5408\:ff0c\:3053\:308c\:3089\:306e\:30b7\:30f3\:30dc\:30eb\
\:306b\:5272\:308a\:5f53\:3066\:3089\:308c\:3066\:3044\:305f\:6570\:5024\:3092\
\:89e3\:653e\:3057\:3066\:304a\:304f\:3002\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"p1", "=."}], ";", 
  RowBox[{"p2", "=."}], ";", 
  RowBox[{"p3", "=."}], ";"}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[StyleBox["\:4e00\:822c\:306e\:8a3c\:5238\:306f\:ff0c\:72b6\:614b\
\:8a3c\:5238e1\:304cc1\:679a\:ff0ce2\:304cc2\:679a\:ff0ce3\:304cc3\:679a\:3068\
\:3044\:3046\:30dd\:30fc\:30c8\:30d5\:30a9\:30ea\:30aa\:3068\:540c\:3058\:306a\
\:306e\:3067\:ff0c\:8a3c\:5238\:306e\:73fe\:5728\:4fa1\:683c\:306f\:30dd\:30fc\
\:30c8\:30d5\:30a9\:30ea\:30aa\:306e\:73fe\:5728\:4fa1\:683c\:3068\:3057\:3066\
\:6b21\:306e\:3088\:3046\:306b\:8a08\:7b97\:3067\:304d\:308b\:3002\:ff08\:5404\
\:72b6\:614b\:8a3c\:5238\:306e\:679a\:6570\[Times]\:73fe\:5728\:4fa1\:5024\
\:3092\:3059\:3079\:3066\:306e\:72b6\:614b\:8a3c\:5238\:306b\:95a2\:3057\:3066\
\:5408\:8a08\:3057\:305f\:3082\:306e\:ff09",
 FontSize->14,
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.522377181528821*^9, 3.52237730687342*^9}},
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c1", "*", "p1"}], " ", "+", " ", 
  RowBox[{"c2", "*", "p2"}], " ", "+", " ", 
  RowBox[{"c3", "*", "p3", " "}]}]], "Input",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"c1", " ", "p1"}], "+", 
  RowBox[{"c2", " ", "p2"}], "+", 
  RowBox[{"c3", " ", "p3"}]}]], "Output",
 CellChangeTimes->{3.396104953699173*^9},
 Background->GrayLevel[0.900008]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"c1", " ", "*", "p1"}], "+", 
   RowBox[{"c2", "*", " ", "p2"}], "+", 
   RowBox[{"c3", "*", " ", "p3"}]}],
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{{3.396104963162781*^9, 3.396104967048368*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"c1", " ", "p1"}], "+", 
  RowBox[{"c2", " ", "p2"}], "+", 
  RowBox[{"c3", " ", "p3"}]}]], "Output",
 CellChangeTimes->{{3.396104956593334*^9, 3.3961049684403696`*^9}}]
}, Open  ]],

Cell["\:5186\:3068\:306a\:308b\:3053\:3068\:3082\:ff0c\:5bb9\:6613\:306b\:7406\
\:89e3\:3055\:308c\:308b\:3067\:3042\:308d\:3046\:3002", "Text"]
}, Open  ]]
},
WindowSize->{945, 681},
WindowMargins->{{Automatic, 112}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
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[567, 22, 66, 0, 92, "Title"],
Cell[636, 24, 71, 1, 51, "Subtitle"],
Cell[710, 27, 166, 3, 30, "Subsubtitle"],
Cell[879, 32, 524, 9, 68, "Text"],
Cell[1406, 43, 560, 8, 49, "Text"],
Cell[1969, 53, 640, 10, 68, "Text"],
Cell[CellGroupData[{
Cell[2634, 67, 277, 7, 35, "Input"],
Cell[2914, 76, 782, 20, 69, "Output"]
}, Open  ]],
Cell[3711, 99, 286, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[4022, 108, 161, 5, 28, "Input"],
Cell[4186, 115, 725, 22, 79, "Output"]
}, Open  ]],
Cell[4926, 140, 65, 0, 30, "Text"],
Cell[4994, 142, 231, 2, 30, "Text"],
Cell[CellGroupData[{
Cell[5250, 148, 147, 4, 28, "Input"],
Cell[5400, 154, 716, 22, 79, "Output"]
}, Open  ]],
Cell[6131, 179, 73, 0, 30, "Text"],
Cell[6207, 181, 158, 5, 28, "Input"],
Cell[6368, 188, 386, 6, 49, "Text"],
Cell[6757, 196, 271, 8, 28, "Input"],
Cell[7031, 206, 489, 8, 49, "Text"],
Cell[CellGroupData[{
Cell[7545, 218, 135, 4, 28, "Input"],
Cell[7683, 224, 718, 22, 79, "Output"]
}, Open  ]],
Cell[8416, 249, 429, 7, 49, "Text"],
Cell[CellGroupData[{
Cell[8870, 260, 244, 6, 28, "Input"],
Cell[9117, 268, 727, 22, 79, "Output"]
}, Open  ]],
Cell[9859, 293, 956, 15, 125, "Text"],
Cell[CellGroupData[{
Cell[10840, 312, 297, 8, 28, "Input"],
Cell[11140, 322, 2166, 66, 79, "Output"]
}, Open  ]],
Cell[13321, 391, 230, 6, 49, "Text"],
Cell[CellGroupData[{
Cell[13576, 401, 152, 5, 28, "Input"],
Cell[13731, 408, 717, 22, 79, "Output"]
}, Open  ]],
Cell[14463, 433, 922, 20, 87, "Text"],
Cell[CellGroupData[{
Cell[15410, 457, 518, 16, 28, "Input"],
Cell[15931, 475, 2917, 90, 79, "Output"]
}, Open  ]],
Cell[18863, 568, 427, 10, 125, "Text"],
Cell[19293, 580, 177, 2, 30, "Text"],
Cell[19473, 584, 242, 8, 28, "Input"],
Cell[19718, 594, 53, 0, 30, "Text"],
Cell[CellGroupData[{
Cell[19796, 598, 157, 3, 28, "Input"],
Cell[19956, 603, 727, 22, 79, "Output"]
}, Open  ]],
Cell[20698, 628, 368, 6, 49, "Text"],
Cell[CellGroupData[{
Cell[21091, 638, 198, 5, 28, "Input"],
Cell[21292, 645, 110, 2, 44, "Output"]
}, Open  ]],
Cell[21417, 650, 652, 9, 49, "Text"],
Cell[CellGroupData[{
Cell[22094, 663, 58, 1, 28, "Input"],
Cell[22155, 666, 110, 2, 44, "Output"]
}, Open  ]],
Cell[22280, 671, 41, 0, 30, "Text"],
Cell[22324, 673, 324, 8, 49, "Text"],
Cell[CellGroupData[{
Cell[22673, 685, 190, 5, 28, "Input"],
Cell[22866, 692, 253, 8, 64, "Output"]
}, Open  ]],
Cell[23134, 703, 417, 7, 49, "Text"],
Cell[23554, 712, 155, 5, 28, "Input"],
Cell[23712, 719, 822, 12, 49, "Text"],
Cell[CellGroupData[{
Cell[24559, 735, 190, 5, 28, "Input"],
Cell[24752, 742, 211, 6, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25000, 753, 263, 7, 28, "Input"],
Cell[25266, 762, 203, 5, 28, "Output"]
}, Open  ]],
Cell[25484, 770, 144, 1, 30, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)