(* 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[      2708,        106]
NotebookOptionsPosition[      2182,         84]
NotebookOutlinePosition[      2541,        100]
CellTagsIndexPosition[      2498,         97]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Kahe vaktsiiniga kahe viiruset\[UDoubleDot]ve vastu\
\>", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a11", "=", 
   FractionBox["17", "20"]}], ";", 
  RowBox[{"a12", "=", 
   FractionBox["7", "10"]}], ";", 
  RowBox[{"a21", "=", 
   FractionBox["6", "10"]}], ";", 
  RowBox[{"a22", "=", 
   FractionBox["9", "10"]}], ";"}]], "Input"],

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[{"\"\<vaktsiin 1\>\"", ",", "\"\<vaktsiin 2\>\""}], "}"}], ",",
        
       RowBox[{"{", 
        RowBox[{
        "\"\<t\[UDoubleDot]vi 1\>\"", ",", "\"\<t\[UDoubleDot]vi 2\>\""}], 
        "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.606713603296875*^9, 3.60671360796875*^9}}],

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

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"}]]}]], "Input"]
}, 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, 82, 2, 56, "Subsubtitle"],
Cell[675, 27, 267, 9, 86, "Input"],
Cell[945, 38, 680, 21, 160, "Input"],
Cell[1628, 61, 151, 4, 86, "Input"],
Cell[1782, 67, 151, 4, 86, "Input"],
Cell[1936, 73, 74, 2, 57, "Input"],
Cell[2013, 77, 153, 4, 86, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)