(* 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[      4884,        150]
NotebookOptionsPosition[      4313,        127]
NotebookOutlinePosition[      4672,        143]
CellTagsIndexPosition[      4629,        140]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
M\[ADoubleDot]ng \"Serena Williams vrs Venus Williams\"\
\>", "Subsubtitle",
 CellChangeTimes->{{3.57837322890625*^9, 3.57837324784375*^9}, {
  3.578373808390625*^9, 3.5783738238125*^9}, {3.57837564384375*^9, 
  3.578375660875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a11", "=", "0.5"}], ";", 
  RowBox[{"a12", "=", "0.8"}], ";", 
  RowBox[{"a21", "=", "0.9"}], ";", 
  RowBox[{"a22", "=", "0.2"}], ";"}]], "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, {
   3.57837537371875*^9, 3.5783753844375*^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[{"\"\<Serena DL\>\"", ",", "\"\<Serena CC\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Venus DL\>\"", ",", "\"\<Venus CC\>\""}], "}"}]}], 
      "}"}]}]}], "]"}]}]], "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}, {3.578375409515625*^9, 3.578375427296875*^9}, {
   3.57837570284375*^9, 3.5783757198125*^9}}],

Cell[BoxData[
 RowBox[{"p1", "=", 
  FractionBox[
   RowBox[{"a22", "-", "a21"}], 
   RowBox[{"a11", "+", "a22", "-", "a12", "-", "a21"}]], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "Serena"}], " ", "k\[ADoubleDot]igu", " ", "DL", " ", 
    "valiku", " ", "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]], "Input",
 CellChangeTimes->{{3.57837368478125*^9, 3.5783737191875*^9}, {
  3.578374564296875*^9, 3.5783745726875*^9}, {3.578375502875*^9, 
  3.57837551428125*^9}}],

Cell[BoxData[
 RowBox[{"p2", "=", " ", 
  RowBox[{"1", "-", "p1", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "Serena"}], " ", "k\[ADoubleDot]igu", " ", "CC", " ", 
     "valiku", " ", "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]}]], "Input",\

 CellChangeTimes->{{3.578373734890625*^9, 3.57837374146875*^9}, 
   3.578374582234375*^9, {3.5783755276875*^9, 3.578375532671875*^9}}],

Cell[BoxData[
 RowBox[{"q1", "=", 
  FractionBox[
   RowBox[{"a22", "-", "a12"}], 
   RowBox[{"a11", "+", "a22", "-", "a12", "-", "a21"}]], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "Venuse"}], " ", "k\[ADoubleDot]igu", " ", "DL", " ", 
    "valiku", " ", "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]], "Input",
 CellChangeTimes->{{3.57837555175*^9, 3.578375556265625*^9}}],

Cell[BoxData[
 RowBox[{"q2", "=", 
  RowBox[{"1", "-", "q1", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "Venuse"}], " ", "k\[ADoubleDot]igu", " ", "CC", " ", 
     "valiku", " ", "t\[OTilde]en\[ADoubleDot]osus"}], "***)"}]}]}]], "Input",\

 CellChangeTimes->{{3.578375578390625*^9, 3.578375585734375*^9}}],

Cell[BoxData[
 RowBox[{"v", "=", 
  FractionBox[
   RowBox[{"Det", "[", "A", "]"}], 
   RowBox[{"a11", "+", "a22", "-", "a12", "-", "a21"}]], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "Serena"}], " ", "v\[OTilde]idu", " ", 
    "t\[OTilde]en\[ADoubleDot]osus", " ", "m\[OTilde]lema", " ", "optimaalse",
     "  ", "k\[ADoubleDot]ikude", " ", "valiku", " ", "puhul"}], 
   "***)"}]}]], "Input",
 CellChangeTimes->{{3.57837459175*^9, 3.57837463590625*^9}, {
  3.57837559371875*^9, 3.57837563275*^9}, {3.606713827984375*^9, 
  3.606713843828125*^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, 242, 5, 56, "Subsubtitle"],
Cell[835, 30, 431, 9, 57, "Input"],
Cell[1269, 41, 892, 23, 126, "Input"],
Cell[2164, 66, 478, 11, 86, "Input"],
Cell[2645, 79, 392, 9, 57, "Input"],
Cell[3040, 90, 380, 9, 86, "Input"],
Cell[3423, 101, 313, 8, 57, "Input"],
Cell[3739, 111, 558, 13, 123, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)