(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     22979,        659]
NotebookOptionsPosition[     21254,        599]
NotebookOutlinePosition[     21625,        615]
CellTagsIndexPosition[     21582,        612]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Viirushaiguste leviku mudeli kostrueerimine",
 FontFamily->"Arial",
 FontSize->36]], "Title",
 CellChangeTimes->{{3.6299448889375*^9, 3.629944901375*^9}, {
  3.631777521081647*^9, 3.6317775378346047`*^9}, {3.631982184443177*^9, 
  3.6319822079212184`*^9}},
 FontFamily->"Gill Sans MT",
 FontSize->24],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Algandmed ja esialgsed oletused",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.62994501240625*^9, 3.62994502278125*^9}, {
  3.63005646728125*^9, 3.630056474578125*^9}, {3.6317775487902317`*^9, 
  3.6317775584037814`*^9}, {3.631982242428479*^9, 3.6319822441444817`*^9}, {
  3.631982615284734*^9, 3.631982621072344*^9}, {3.6319832792528753`*^9, 
  3.631983287267694*^9}, {3.6319849217295923`*^9, 3.631984937666031*^9}},
 FontFamily->"Arial",
 FontSize->18],

Cell[TextData[StyleBox["Olgu mudelis elanikkonna suuruseks \
n\[ADoubleDot]iteks 1000 inimest.",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
  3.62994593940625*^9, 3.6299459499375*^9}, {3.631982264237317*^9, 
  3.6319823354514427`*^9}},
 FontSize->14],

Cell[TextData[StyleBox["Neist olgu alghetkel  980 nakatumata  (uninfected)   \
u=980\nja 20 nakatunud (deceased).                                       d=20",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.631982381377923*^9, 3.6319826018531103`*^9}, {3.631982662100416*^9, 
   3.6319826796816473`*^9}, 3.631982809117154*^9, 3.6319828752641115`*^9},
 FontSize->18],

Cell[TextData[StyleBox["Iga p\[ADoubleDot]ev haigestugu 10% tervetest \
inimestest. Need inimesed \nsatuvad tervete inimeste hulgast haigete inimeste \
hulka.",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.631982381377923*^9, 3.6319826018531103`*^9}, {3.631982662100416*^9, 
   3.6319826796816473`*^9}, 3.631982809117154*^9, 3.6319828752641115`*^9, {
   3.6319831665364094`*^9, 3.6319832717394595`*^9}, {3.631984687379833*^9, 
   3.6319847242877226`*^9}},
 FontSize->18]
}, Closed]],

Cell[CellGroupData[{

Cell["Primitiivne mudel", "Section",
 CellChangeTimes->{{3.62994501240625*^9, 3.62994502278125*^9}, {
  3.6299575544375*^9, 3.629957567078125*^9}, {3.631777567054276*^9, 
  3.6317775750697346`*^9}, {3.631983067355771*^9, 3.6319830724831843`*^9}, {
  3.6319847752710433`*^9, 3.6319847784090495`*^9}},
 FontFamily->"Arial",
 FontSize->24],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    StyleBox["Nimi",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["Algv\[ADoubleDot]\[ADoubleDot]rtus",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"J\[ADoubleDot]rgmise", " ", "rea", " ", "kirjeldus"}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["u",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["980",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"u", "-", 
      RowBox[{"0.1", "*", "u"}]}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["d",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["20",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"d", "+", 
      RowBox[{"0.1", "*", "u"}]}],
     FontSize->24,
     FontWeight->"Bold"]}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> {}}]]]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
  3.62994593940625*^9, 3.6299459499375*^9}, {3.62995785121875*^9, 
  3.62995785634375*^9}, {3.6319834307930374`*^9, 3.631983601739043*^9}, {
  3.6319847947360888`*^9, 3.6319847992390995`*^9}},
 FontSize->18]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[CapitalUDoubleDot]ks t\[ADoubleDot]iendav oletus, \
mis muudab veidi olukorda",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.62994501240625*^9, 3.62994502278125*^9}, {
  3.63005646728125*^9, 3.630056474578125*^9}, {3.6317775487902317`*^9, 
  3.6317775584037814`*^9}, {3.631982242428479*^9, 3.6319822441444817`*^9}, {
  3.631982615284734*^9, 3.631982621072344*^9}, {3.6319832792528753`*^9, 
  3.631983287267694*^9}, {3.6319849203965893`*^9, 3.6319849537898684`*^9}},
 FontFamily->"Arial",
 FontSize->18],

Cell[TextData[StyleBox["Olgu mudelis elanikkonna suuruseks \
n\[ADoubleDot]iteks 1000 inimest.",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
  3.62994593940625*^9, 3.6299459499375*^9}, {3.631982264237317*^9, 
  3.6319823354514427`*^9}},
 FontSize->14],

Cell[TextData[StyleBox["Neist olgu alghetkel  980 nakatumata  (uninfected)   \
u=980\nja 20 nakatunud (deceased).                                       d=20",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.631982381377923*^9, 3.6319826018531103`*^9}, {3.631982662100416*^9, 
   3.6319826796816473`*^9}, 3.631982809117154*^9, 3.6319828752641115`*^9},
 FontSize->18],

Cell[TextData[StyleBox["Iga p\[ADoubleDot]ev haigestugu 10% tervetest \
inimestest ja selle 10% v\[OTilde]rra v\[ADoubleDot]henegu\nnakatumata \
inimeste arv ning suurenegu haigete inimeste arv.",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.631982381377923*^9, 3.6319826018531103`*^9}, {3.631982662100416*^9, 
   3.6319826796816473`*^9}, 3.631982809117154*^9, 3.6319828752641115`*^9, {
   3.6319831665364094`*^9, 3.6319832717394595`*^9}, {3.683598205896147*^9, 
   3.683598209218952*^9}},
 FontSize->18],

Cell[TextData[StyleBox["Viirushaigus kestku n\[ADoubleDot]iteks 3 p\
\[ADoubleDot]eva ja siis peaks iga p\[ADoubleDot]ev umbes \n30% haigetest \
kanduma \[UDoubleDot]le uude gruppi, mida nimetame immuunseteks.",
 FontFamily->"Arial",
 FontSize->20]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.631982381377923*^9, 3.6319826018531103`*^9}, {3.631982662100416*^9, 
   3.6319826796816473`*^9}, 3.631982809117154*^9, {3.6319828833755307`*^9, 
   3.631983003228619*^9}, 3.6319830368447*^9},
 FontSize->18]
}, Closed]],

Cell[CellGroupData[{

Cell["Lihtne mudel", "Section",
 CellChangeTimes->{{3.62994501240625*^9, 3.62994502278125*^9}, {
  3.6299575544375*^9, 3.629957567078125*^9}, {3.631777567054276*^9, 
  3.6317775750697346`*^9}, {3.631983067355771*^9, 3.6319830724831843`*^9}},
 FontFamily->"Arial",
 FontSize->24],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    StyleBox["Nimi",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["Algv\[ADoubleDot]\[ADoubleDot]rtus",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"J\[ADoubleDot]rgmise", " ", "rea", " ", "kirjeldus"}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["u",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["980",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"u", "-", 
      RowBox[{"0.1", "*", "u"}]}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["d",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["20",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"d", "+", 
      RowBox[{"0.1", "*", "u"}], "-", 
      RowBox[{"0.3", "*", "d"}]}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["i",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["0",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"i", "+", 
      RowBox[{"0.3", "*", "d"}]}],
     FontSize->24,
     FontWeight->"Bold"]}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> {}}]]]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
  3.62994593940625*^9, 3.6299459499375*^9}, {3.62995785121875*^9, 
  3.62995785634375*^9}, {3.6319834307930374`*^9, 3.631983601739043*^9}, {
  3.6328977729727554`*^9, 3.6328977729727554`*^9}},
 FontSize->18]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Lihtsa mudeli puudused",
 FontFamily->"Arial",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.62995999025*^9, 3.629959992078125*^9}, {3.629960150390625*^9, 
   3.629960153171875*^9}, {3.631983734077757*^9, 3.6319837408989735`*^9}},
 FontSize->18],

Cell[TextData[StyleBox["Haigestunute hulk on maksimaalne, aga \
p\[ADoubleDot]rast seda kaob haigus t\[ADoubleDot]ielikult.",
 FontFamily->"Arial"]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.62995999025*^9, 3.629959992078125*^9}, {3.629960150390625*^9, 
   3.629960153171875*^9}, {3.629968346828125*^9, 3.629968356421875*^9}, {
   3.631983820852563*^9, 3.63198387004548*^9}, 3.631984094962619*^9, 
   3.683598254958233*^9},
 FontSize->22],

Cell[TextData[StyleBox["K\[OTilde]ik PEAVAD korra haiguse l\[ADoubleDot]bi p\
\[OTilde]dema.\nHaigestunute arv kasvab  0.1*u v\[OTilde]rra ja kahaneb 0.3*d \
v\[OTilde]rra, \nseega s\[OTilde]ltub ainult haiguse kestusest ja tervete \
inimeste arvust. ",
 FontFamily->"Arial"]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.62995999025*^9, 3.629959992078125*^9}, {3.629960150390625*^9, 
   3.629960153171875*^9}, {3.629968346828125*^9, 3.629968356421875*^9}, {
   3.631983820852563*^9, 3.6319840422472897`*^9}, 3.6319868470095425`*^9, 
   3.683598263897049*^9},
 FontSize->22],

Cell[TextData[StyleBox["Haigestunute arv peab s\[OTilde]ltuma nii haigete \
inimeste arvust kui ka tervete \ninimeste arvust, samuti  sellest, kui mitu \
kontakti haigestunud inimestega \np\[ADoubleDot]evas toimub ja kui suur on t\
\[OTilde]en\[ADoubleDot]osus, et haigus kandub edasi kontakti puhul.",
 FontFamily->"Arial"]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.62995999025*^9, 3.629959992078125*^9}, {3.629960150390625*^9, 
   3.629960153171875*^9}, {3.629968346828125*^9, 3.629968356421875*^9}, {
   3.631983820852563*^9, 3.6319840422472897`*^9}, {3.631984074083967*^9, 
   3.6319841196682777`*^9}, {3.631984159508773*^9, 3.631984268526231*^9}},
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Reaalsusele veidi paremini vastav Reedi-Frosti mudel",
 FontFamily->"Arial"]], "Section",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
   3.62994604709375*^9, 3.6299460715*^9}, 3.62994610928125*^9, {
   3.629946241375*^9, 3.629946247203125*^9}, {3.62997133659375*^9, 
   3.629971353578125*^9}, {3.631984372616481*^9, 3.6319843815889015`*^9}, {
   3.6319850283776474`*^9, 3.6319850301670513`*^9}, {3.63198663509877*^9, 
   3.6319866406991796`*^9}},
 FontSize->24],

Cell[CellGroupData[{

Cell[TextData[StyleBox["T\[ADoubleDot]iendavad oletused ja t\[OTilde]en\
\[ADoubleDot]osusteoreetiline arutelu",
 FontSize->24,
 FontWeight->"Bold",
 FontVariations->{"Underline"->True}]], "Subsection",
 CellChangeTimes->{{3.62997139146875*^9, 3.629971424125*^9}, {
   3.62997171865625*^9, 3.629971724140625*^9}, {3.630024281359375*^9, 
   3.63002428525*^9}, {3.6300245801875*^9, 3.63002459871875*^9}, 
   3.630024805125*^9, {3.631984463373496*^9, 3.6319845787397723`*^9}, {
   3.631985071309949*^9, 3.6319850802335696`*^9}, 3.631985203058263*^9, {
   3.631985911935359*^9, 3.6319859240117893`*^9}},
 FontSize->18],

Cell[TextData[{
 StyleBox["Oletame, et iga inimene suhtleb p\[ADoubleDot]evas veel ",
  FontSize->24],
 StyleBox["9",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[" inimesega.\nKui terve kohtab haiget, siis on t\[OTilde]en\
\[ADoubleDot]osus, et et tervele haigus \[UDoubleDot]le kandub, \
v\[OTilde]rdne ",
  FontSize->24],
 StyleBox["8% ",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["-ga.",
  FontSize->24]
}], "Subsubsection",
 CellChangeTimes->{{3.62997139146875*^9, 3.629971424125*^9}, {
   3.62997171865625*^9, 3.629971724140625*^9}, {3.630024281359375*^9, 
   3.63002428525*^9}, {3.6300245801875*^9, 3.63002459871875*^9}, 
   3.630024805125*^9, {3.631984463373496*^9, 3.6319845787397723`*^9}, {
   3.631985071309949*^9, 3.6319850802335696`*^9}, {3.6319852229769115`*^9, 
   3.6319852248599153`*^9}, 3.6319856470187283`*^9},
 FontSize->18],

Cell[TextData[{
 StyleBox["Olgu Peeter selle elanikkonna \[UDoubleDot]ks, veel \
mittehaigestunud isik. Peeter kohtub inimestega iga p\[ADoubleDot]ev. \n    T\
\[OTilde]en\[ADoubleDot]osus, et ta kohtub haigestunud inimesega, on  ",
  FontSize->24],
 StyleBox["d/999.",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[" \n    T\[OTilde]en\[ADoubleDot]osus, et Peeter saab nakkuse \
sellelt kohtumiselt on  ",
  FontSize->24],
 StyleBox["d/999*0.08",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[".\n    T\[OTilde]en\[ADoubleDot]osus, et Peeter ei saa nakkust \
sellelt inimeselt on  ",
  FontSize->24],
 StyleBox["(",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["1",
  FontFamily->"Arial Narrow",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["- d/999*0.08)",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["\n Oletame, et Peeteril on ",
  FontSize->24],
 StyleBox["9",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[" kohtumist p\[ADoubleDot]evas. \n    \
T\[OTilde]en\[ADoubleDot]osus, et Peeter ei haigestu p\[ADoubleDot]rast \
\[UDoubleDot]htki sellist kohtumist, on ",
  FontSize->24],
 StyleBox["(",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["1",
  FontFamily->"Arial Narrow",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["- d/999*0.08)^9",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[".\n    T\[OTilde]en\[ADoubleDot]osus, et Peeter saab nakkuse ",
  FontSize->24],
 StyleBox["v\[ADoubleDot]hemalt \[UDoubleDot]helt",
  FontSize->24,
  FontSlant->"Italic"],
 StyleBox[" 9-st kohtumisest, on ",
  FontSize->24],
 StyleBox["(",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["1",
  FontFamily->"Arial Narrow",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["-(",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["1",
  FontFamily->"Arial Narrow",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["-d/999*0.08)^9)",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["\nPeeter pole ainus mittehaigestunud inimene.\nSeega kasvab \
haigestunud inimeste arv ",
  FontSize->24],
 StyleBox["u*(",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["1",
  FontFamily->"Arial Narrow",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["-(",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["1",
  FontFamily->"Arial Narrow",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["-d/999*0.08)^9)",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[" v\[OTilde]rra.\nSamav\[OTilde]rra v\[ADoubleDot]heneb tervete \
inimeste arv.",
  FontSize->24]
}], "Subsubsection",
 CellChangeTimes->{{3.62997139146875*^9, 3.629971424125*^9}, {
   3.62997171865625*^9, 3.629971724140625*^9}, {3.630024281359375*^9, 
   3.63002428525*^9}, {3.6300245801875*^9, 3.63002459871875*^9}, 
   3.630024805125*^9, {3.631984463373496*^9, 3.6319845787397723`*^9}, {
   3.6319853902887144`*^9, 3.6319853953879275`*^9}, {3.631985448782054*^9, 
   3.631985460576683*^9}, {3.631985494818364*^9, 3.6319854977847705`*^9}, {
   3.631985609137637*^9, 3.6319856125870447`*^9}, {3.6319856937946405`*^9, 
   3.6319856959428453`*^9}, {3.6319857387639465`*^9, 
   3.6319857485041695`*^9}, {3.6319857919066744`*^9, 3.6319858489388103`*^9}, 
   3.631985878994481*^9, {3.683598298279509*^9, 3.6835983373575773`*^9}},
 FontSize->18]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Reedi-Frosti mudel", "Section",
 CellChangeTimes->{{3.62994501240625*^9, 3.62994502278125*^9}, {
   3.6299575544375*^9, 3.629957567078125*^9}, {3.631777567054276*^9, 
   3.6317775750697346`*^9}, {3.631983067355771*^9, 3.6319830724831843`*^9}, 
   3.631986103677219*^9, {3.631986234007065*^9, 3.6319862418694787`*^9}, 
   3.631986611745529*^9},
 FontFamily->"Arial",
 FontSize->24],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    StyleBox["Nimi",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["Algv\[ADoubleDot]\[ADoubleDot]rtus",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"J\[ADoubleDot]rgmise", " ", "rea", " ", "kirjeldus"}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["u",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["980",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"u", "-", 
      RowBox[{"u", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"d", "/", "999"}], "*", "0.08"}]}], ")"}], "^", "9"}]}], 
        ")"}]}]}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["d",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["20",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"d", "+", 
      RowBox[{"u", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"d", "/", "999"}], "*", "0.08"}]}], ")"}], "^", "9"}]}], 
        ")"}]}], "-", 
      RowBox[{"0.30", "*", "d"}]}],
     FontSize->24,
     FontWeight->"Bold"]},
   {
    StyleBox["i",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox["0",
     FontSize->24,
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"i", "+", 
      RowBox[{"0.3", "*", "d"}]}],
     FontSize->24,
     FontWeight->"Bold"]}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> {}}]]]], "Subsection",
 CellChangeTimes->{{3.62994524665625*^9, 3.62994525453125*^9}, {
  3.62994593940625*^9, 3.6299459499375*^9}, {3.62995785121875*^9, 
  3.62995785634375*^9}, {3.6319834307930374`*^9, 3.631983601739043*^9}, {
  3.631986041874669*^9, 3.631986065371526*^9}, {3.6319870313550663`*^9, 
  3.6319870313550663`*^9}, {3.6328978042820106`*^9, 3.6328978042820106`*^9}},
 FontSize->18]
}, Closed]],

Cell[CellGroupData[{

Cell["Selle Reedi-Frosti mudeli puudused", "Section",
 CellChangeTimes->{{3.62994501240625*^9, 3.62994502278125*^9}, {
   3.6299575544375*^9, 3.629957567078125*^9}, {3.631777567054276*^9, 
   3.6317775750697346`*^9}, {3.631983067355771*^9, 3.6319830724831843`*^9}, 
   3.631986103677219*^9, {3.631986234007065*^9, 3.6319862418694787`*^9}, {
   3.631986279543545*^9, 3.631986281961549*^9}, {3.631986315049207*^9, 
   3.631986319598816*^9}},
 FontFamily->"Arial",
 FontSize->24],

Cell[TextData[StyleBox["Parameetrid v\[OTilde]iksid olla muudetavad \
(nakatumist\[OTilde]en\[ADoubleDot]osus, kontaktide arv, haiguse kestus jne)",
 FontSize->22]], "Subsection",
 CellChangeTimes->{{3.62997139146875*^9, 3.629971424125*^9}, {
   3.62997171865625*^9, 3.629971724140625*^9}, {3.629971883765625*^9, 
   3.629971888875*^9}, {3.6299721699375*^9, 3.629972196171875*^9}, {
   3.629972236609375*^9, 3.629972248125*^9}, {3.630023107140625*^9, 
   3.6300231135625*^9}, {3.630026149171875*^9, 3.630026151578125*^9}, 
   3.6300685393125*^9, {3.6319863522506733`*^9, 3.631986420765993*^9}},
 FontSize->24],

Cell[TextData[StyleBox["Immuunsus ei ole midagi p\[UDoubleDot]sivat, ajaga \
immuunsus kahaneb.",
 FontSize->22]], "Subsection",
 CellChangeTimes->{{3.62997139146875*^9, 3.629971424125*^9}, {
   3.62997171865625*^9, 3.629971724140625*^9}, {3.629971883765625*^9, 
   3.629971888875*^9}, {3.6299721699375*^9, 3.629972196171875*^9}, {
   3.629972236609375*^9, 3.629972248125*^9}, {3.630023107140625*^9, 
   3.6300231135625*^9}, {3.630026149171875*^9, 3.630026151578125*^9}, 
   3.6300685393125*^9, {3.6319863522506733`*^9, 3.631986420765993*^9}, {
   3.6319864635568686`*^9, 3.6319865016209354`*^9}},
 FontSize->24]
}, Closed]]
}, Open  ]]
},
WindowSize->{1358, 647},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (32-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 324, 7, 100, "Title"],
Cell[CellGroupData[{
Cell[928, 33, 483, 8, 73, "Section"],
Cell[1414, 43, 325, 7, 66, "Subsection"],
Cell[1742, 52, 505, 8, 90, "Subsection"],
Cell[2250, 62, 613, 11, 90, "Subsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2900, 78, 336, 6, 55, "Section"],
Cell[3239, 86, 1254, 44, 163, "Subsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[4530, 135, 533, 9, 55, "Section"],
Cell[5066, 146, 325, 7, 66, "Subsection"],
Cell[5394, 155, 505, 8, 90, "Subsection"],
Cell[5902, 165, 647, 11, 90, "Subsection"],
Cell[6552, 178, 606, 10, 90, "Subsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[7195, 193, 278, 5, 55, "Section"],
Cell[7476, 200, 1545, 57, 205, "Subsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[9058, 262, 386, 7, 55, "Section"],
Cell[9447, 271, 546, 9, 71, "Subsection"],
Cell[9996, 282, 679, 11, 141, "Subsection"],
Cell[10678, 295, 776, 11, 141, "Subsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[11491, 311, 506, 8, 55, "Section"],
Cell[CellGroupData[{
Cell[12022, 323, 614, 11, 83, "Subsection"],
Cell[12639, 336, 865, 22, 126, "Subsubsection"],
Cell[13507, 360, 3438, 110, 547, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[16994, 476, 386, 7, 55, "Section"],
Cell[17383, 485, 2103, 74, 212, "Subsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[19523, 564, 476, 8, 55, "Section"],
Cell[20002, 574, 609, 9, 80, "Subsection"],
Cell[20614, 585, 612, 10, 66, "Subsection"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)