(* 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[      4102,        135]
NotebookOptionsPosition[      3533,        112]
NotebookOutlinePosition[      3892,        128]
CellTagsIndexPosition[      3849,        125]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["M\[ADoubleDot]ng \"Geoloogid vrs nafta\"", "Subsubtitle",
 CellChangeTimes->{{3.57837322890625*^9, 3.57837324784375*^9}, {
  3.578373808390625*^9, 3.5783738238125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a11", "=", "0.6"}], ";", 
  RowBox[{"a12", "=", "0.3"}], ";", 
  RowBox[{"a21", "=", "0.4"}], ";", 
  RowBox[{"a22", "=", "0.5"}], ";"}]], "Input",
 CellChangeTimes->{{3.57837326621875*^9, 3.578373292140625*^9}, {
   3.57837383621875*^9, 3.57837385896875*^9}, {3.578374358609375*^9, 
   3.57837437121875*^9}, 3.5783744806875*^9, 3.5783745134375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a11", ",", "a12"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a21", ",", "a22"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"TableForm", "[", 
   RowBox[{"A", ",", 
    RowBox[{"TableHeadings", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<Puurivad madalal\>\"", ",", 
         "\"\<Puurivad s\[UDoubleDot]gaval\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Nafta madalal\>\"", ",", "\"\<Nafta s\[UDoubleDot]gaval\>\""}], 
        "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5783732998125*^9, 3.5783733323125*^9}, 
   3.5783733938125*^9, {3.578373442234375*^9, 3.578373511640625*^9}, {
   3.5783738719375*^9, 3.578373961796875*^9}, {3.5783743835*^9, 
   3.578374391734375*^9}}],

Cell[BoxData[
 RowBox[{"p1", "=", 
  FractionBox[
   RowBox[{"a22", "-", "a21"}], 
   RowBox[{"a11", "+", "a22", "-", "a12", "-", "a21"}]], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "madala"}], " ", "puurimise", " ", "optimaalne", " ", 
    "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]], "Input",
 CellChangeTimes->{{3.57837368478125*^9, 3.5783737191875*^9}, {
  3.578374564296875*^9, 3.5783745726875*^9}}],

Cell[BoxData[
 RowBox[{"p2", "=", " ", 
  RowBox[{"1", "-", "p1", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "madala"}], " ", "puurimise", " ", "optimaalne", " ", 
     "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]}]], "Input",
 CellChangeTimes->{{3.578373734890625*^9, 3.57837374146875*^9}, 
   3.578374582234375*^9}],

Cell[BoxData[
 RowBox[{"q1", "=", 
  FractionBox[
   RowBox[{"a22", "-", "a12"}], 
   RowBox[{"a11", "+", "a22", "-", "a12", "-", "a21"}]]}]], "Input"],

Cell[BoxData[
 RowBox[{"q2", "=", 
  RowBox[{"1", "-", "q1"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"v", "=", 
  FractionBox[
   RowBox[{"Det", "[", "A", "]"}], 
   RowBox[{"a11", "+", "a22", "-", "a12", "-", "a21"}]], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"**", "M\[ADoubleDot]ngu"}], " ", "hind"}], " ", "-", " ", 
    RowBox[{
    "nafta", " ", "leidmise", " ", "t\[OTilde]en\[ADoubleDot]osus", " ", 
     "optimaalse", " ", "segastrateegia", " ", "korral"}]}], 
   "***)"}]}]], "Input",
 CellChangeTimes->{{3.57837459175*^9, 3.57837463590625*^9}}]
}, Open  ]]
},
WindowSize->{1106, 617},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->2,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 174, 2, 56, "Subsubtitle"],
Cell[767, 27, 384, 8, 57, "Input"],
Cell[1154, 37, 877, 25, 160, "Input"],
Cell[2034, 64, 418, 10, 123, "Input"],
Cell[2455, 76, 331, 8, 57, "Input"],
Cell[2789, 86, 151, 4, 86, "Input"],
Cell[2943, 92, 74, 2, 57, "Input"],
Cell[3020, 96, 497, 13, 157, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)