(* 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[      3656,        124]
NotebookOptionsPosition[      3091,        101]
NotebookOutlinePosition[      3450,        117]
CellTagsIndexPosition[      3407,        114]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Saia ja puruvanaga kala p\[UDoubleDot]\[UDoubleDot]des", "Subsubtitle",
 CellChangeTimes->{{3.57837322890625*^9, 3.57837324784375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a11", "=", "3"}], ";", 
  RowBox[{"a12", "=", "6"}], ";", 
  RowBox[{"a21", "=", "5"}], ";", 
  RowBox[{"a22", "=", "4"}], ";"}]], "Input",
 CellChangeTimes->{{3.57837326621875*^9, 3.578373292140625*^9}, {
   3.578375129640625*^9, 3.578375131859375*^9}, 3.57837518090625*^9, {
   3.606113754046875*^9, 3.606113762515625*^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[{"\"\<sai\>\"", ",", "\"\<t\[OTilde]ugud\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<suured kalad\>\"", ",", "\"\<v\[ADoubleDot]iksed kalad\>\""}], 
        "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5783732998125*^9, 3.5783733323125*^9}, 
   3.5783733938125*^9, {3.578373442234375*^9, 3.578373511640625*^9}}],

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

Cell[BoxData[
 RowBox[{"p2", "=", " ", 
  RowBox[{"1", "-", "p1", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "t\[OTilde]ukude"}], " ", "valiku", " ", 
     "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]}]], "Input",
 CellChangeTimes->{{3.578373734890625*^9, 3.57837374146875*^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[{"**", " ", "V\[OTilde]imalik"}], " ", "kalasaak", " ", 
    "segaplaani", " ", "korral"}], "***)"}]}]], "Input",
 CellChangeTimes->{{3.578374670359375*^9, 3.578374699046875*^9}}]
}, Open  ]]
},
WindowSize->{1272, 683},
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, 141, 1, 56, "Subsubtitle"],
Cell[734, 26, 360, 8, 57, "Input"],
Cell[1097, 36, 737, 21, 126, "Input"],
Cell[1837, 59, 347, 9, 86, "Input"],
Cell[2187, 70, 292, 7, 57, "Input"],
Cell[2482, 79, 151, 4, 86, "Input"],
Cell[2636, 85, 74, 2, 57, "Input"],
Cell[2713, 89, 362, 9, 86, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)