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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[   1876735,      37483]
NotebookOptionsPosition[   1835721,      36864]
NotebookOutlinePosition[   1836218,      36883]
CellTagsIndexPosition[   1836175,      36880]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Epidemiological Models for  COVID-19. Application to Spain prediction\
\>", "Title",
 CellChangeTimes->{{3.7923123501743193`*^9, 3.7923123715733337`*^9}, {
  3.7939485054610243`*^9, 3.7939485294186106`*^9}, {3.7939759871373577`*^9, 
  3.7939759950123854`*^9}, {3.7943846683092504`*^9, 3.794384672873835*^9}, {
  3.7946445980521994`*^9, 3.7946445984164343`*^9}, {3.7948861508535614`*^9, 
  3.7948861513614645`*^9}, {3.795059663421817*^9, 3.795059663923224*^9}, {
  3.7953205608936973`*^9, 
  3.7953205861383047`*^9}},ExpressionUUID->"eaf95af9-27df-4816-aa31-\
76f05f0b15c0"],

Cell["\<\
Guillermo S\[AAcute]nchez, Juan M. Rodr\[IAcute]guez D\[IAcute]az, Jes\
\[UAcute]s L. Fidalgo . \
\>", "Author",
 CellChangeTimes->{{3.792876117360289*^9, 3.7928761526216288`*^9}, {
   3.792919958645753*^9, 3.792919958797267*^9}, {3.7939485776022797`*^9, 
   3.7939486111938515`*^9}, {3.7940339238550396`*^9, 
   3.7940339351948404`*^9}, {3.7940342329216456`*^9, 
   3.7940342738675404`*^9}, {3.794384702041641*^9, 3.7943847027082567`*^9}, {
   3.794472091745128*^9, 3.794472092195923*^9}, {3.794554906450611*^9, 
   3.794554912169262*^9}, {3.794644583709612*^9, 3.7946445898023*^9}, {
   3.7946550914850793`*^9, 3.7946550920883875`*^9}, {3.7948005478938274`*^9, 
   3.7948005635351243`*^9}, {3.794804315879011*^9, 3.794804320162406*^9}, {
   3.7948079190351734`*^9, 3.7948079193161435`*^9}, {3.794834954799553*^9, 
   3.7948349622473316`*^9}, {3.7948841599063187`*^9, 
   3.7948841710329075`*^9}, {3.794888464972209*^9, 3.794888468566042*^9}, {
   3.794891027742714*^9, 3.794891035122764*^9}, {3.794892084676155*^9, 
   3.7948920867909036`*^9}, {3.7948959473695292`*^9, 3.794895950620632*^9}, {
   3.7949012320985775`*^9, 3.7949012373172207`*^9}, {3.794920288652337*^9, 
   3.7949202956658115`*^9}, {3.7949268628702745`*^9, 3.794926868012559*^9}, {
   3.7949766345093403`*^9, 3.794976639370721*^9}, {3.7950597200521145`*^9, 
   3.7950597209645433`*^9}, {3.795151850993823*^9, 3.7951518523910885`*^9}, {
   3.7952331498142624`*^9, 3.795233150268075*^9}, {3.7953157541535063`*^9, 
   3.7953157546254063`*^9}, {3.7953205113046117`*^9, 3.7953205567766623`*^9}, 
   3.7953211755601563`*^9},ExpressionUUID->"92597376-7ce2-47eb-8add-\
11ff8bccf552"],

Cell[TextData[ButtonBox["http://diarium.usal.es/guillermo/mathematica/\
modelizacion-covid-19/",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://diarium.usal.es/guillermo/mathematica/modelizacion-covid-19/"],
    None},
 ButtonNote->
  "http://diarium.usal.es/guillermo/mathematica/modelizacion-covid-19/"]], \
"Text",
 CellChangeTimes->{{3.795321241516058*^9, 
  3.795321262271841*^9}},ExpressionUUID->"490c8d54-8bae-40d2-ad55-\
372b85131e5d"],

Cell["Updated :", "Item",
 CellChangeTimes->{{3.795321177936613*^9, 
  3.7953211985316315`*^9}},ExpressionUUID->"954471e2-c574-4923-b2b7-\
ff96854c8110"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateObject", "[", "]"}]], "Input",
 CellChangeTimes->{{3.7949764667842984`*^9, 3.7949764710511503`*^9}, {
   3.7949765597871113`*^9, 3.7949765774950953`*^9}, 3.7949766106710825`*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"8ee74037-186c-4e50-9e9c-39319f89fc27"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"\"Wed 8 Apr 2020 09:20:35\"", 
     StyleBox[
      RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
        StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
      FontColor -> GrayLevel[0.5]]}], 
   RowBox[{"DateObject", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{
          "2020", ",", "4", ",", "8", ",", "9", ",", "20", ",", 
           "35.1696967`9.298743516716677"}], "}"}], ",", "\"Instant\"", ",", 
       "\"Gregorian\"", ",", "2.`"}], "]"}]},
  "DateObject",
  Editable->False]], "Output",
 CellChangeTimes->{3.794976615828722*^9, 3.7949859110603485`*^9, 
  3.7950104141173487`*^9, 3.7950597057769604`*^9, 3.7950874073274527`*^9, 
  3.7951486015440493`*^9, 3.7951518405672674`*^9, 3.795154240492998*^9, 
  3.795157195820448*^9, 3.7951591913609457`*^9, 3.795233154749442*^9, 
  3.79526069313813*^9, 3.7953157580682545`*^9, 3.795319235215669*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"92b12661-7742-4dc9-8df0-c5bf5f80da1a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Introducci\[OAcute]n", "Section",
 CellChangeTimes->{{3.792312404508266*^9, 3.792312406580225*^9}, {
  3.7953204355209646`*^9, 3.795320436308607*^9}, {3.7953207485918417`*^9, 
  3.7953207494926004`*^9}},ExpressionUUID->"8b75c487-07b1-48e9-b3f3-\
ffb602fa4631"],

Cell[TextData[{
 "Este documento sirve de base para la realizaci\[OAcute]n de predicciones \
realizadas por el DOE USAL como contribuci\[OAcute]n a ",
 ButtonBox["http://matematicas.uclm.es/cemat/covid19/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://matematicas.uclm.es/cemat/covid19/"], None},
  ButtonNote->"http://matematicas.uclm.es/cemat/covid19/"]
}], "Text",
 CellChangeTimes->{{3.794033456336549*^9, 3.794033500712623*^9}, {
  3.794033584189886*^9, 3.7940336956341977`*^9}, {3.794384689585354*^9, 
  3.79438469209039*^9}, {3.7943848114737253`*^9, 3.7943848427056885`*^9}, {
  3.7945549930443225`*^9, 3.7945549962633495`*^9}, {3.795320445150815*^9, 
  3.7953205052070713`*^9}, {3.7953206161313457`*^9, 
  3.7953206436641455`*^9}},ExpressionUUID->"080fa5f7-0b1c-4a4c-a368-\
5bd62c3c0c2c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "@", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.793138151449808*^9, 3.793138214424975*^9}, {
  3.7944039194158115`*^9, 3.7944039199556775`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"5b363478-0b32-4bbb-8b70-327ce7ecc93a"],

Cell["Nosotros utilizamos Mathematica", "Text",
 CellChangeTimes->{{3.795320674869462*^9, 
  3.795320728679598*^9}},ExpressionUUID->"938dbb3d-4926-415f-b34a-\
7a4638866abc"],

Cell[TextData[{
 "Recursos sobre COVID-29 con Mathematica: ",
 ButtonBox["https://community.wolfram.com/groups/-/m/t/1872608",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://community.wolfram.com/groups/-/m/t/1872608"], None},
  ButtonNote->"https://community.wolfram.com/groups/-/m/t/1872608"]
}], "Item",
 CellChangeTimes->{{3.79447194128531*^9, 3.794471975507897*^9}, {
  3.794472053225839*^9, 3.7944720876383085`*^9}, {3.794975863128545*^9, 
  3.7949759319491076`*^9}},ExpressionUUID->"e3b93ec8-9373-48b4-b7c2-\
0d865ff9d5ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell["COVID en el Mundo", "Section",
 CellChangeTimes->{{3.7949175404617224`*^9, 
  3.794917556776309*^9}},ExpressionUUID->"3d785454-0c47-4edf-ba3f-\
79c15bdd1bd6"],

Cell[TextData[{
 "The Johns Hopkins University data are available from the Wolfram Data \
Repository, and are described at ",
 ButtonBox["https://www.wolframcloud.com/obj/resourcesystem/published/\
DataRepository/resources/Epidemic-Data-for-Novel-Coronavirus-COVID-19",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.wolframcloud.com/obj/resourcesystem/published/\
DataRepository/resources/Epidemic-Data-for-Novel-Coronavirus-COVID-19"], None},
  ButtonNote->
   "https://www.wolframcloud.com/obj/resourcesystem/published/DataRepository/\
resources/Epidemic-Data-for-Novel-Coronavirus-COVID-19"]
}], "Item",
 CellChangeTimes->{{3.791749231190363*^9, 3.791749242238349*^9}, {
  3.792343271028222*^9, 3.7923432718217573`*^9}, {3.792604448206852*^9, 
  3.792604480013967*^9}, {3.792604523129162*^9, 3.7926045346356907`*^9}, {
  3.7926045651303596`*^9, 
  3.7926045721388693`*^9}},ExpressionUUID->"15198c46-b371-4b50-8a64-\
f4bfcfdae97d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"covid19Data", "=", 
   RowBox[{
   "ResourceData", "[", 
    "\"\<Epidemic Data for Novel Coronavirus COVID-19\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7926007046019697`*^9, 3.7926007151812553`*^9}, 
   3.794917648856044*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"ed40dc68-99cd-45a6-9ed3-b764da523a6d"],

Cell[TextData[{
 "The function ",
 Cell[BoxData[
  FormBox[
   StyleBox["fitDataWDR", "Code"], TraditionalForm]],ExpressionUUID->
  "b9bc3779-91ea-45ca-a2da-1d483099dfc7"],
 "provides convenient access to the data for modeling"
}], "Item",
 CellChangeTimes->{{3.7923434309490223`*^9, 3.79234345243746*^9}, {
   3.79268572414809*^9, 3.792685735532597*^9}, {3.792686193649024*^9, 
   3.792686193649066*^9}, {3.792876365872123*^9, 3.792876380006578*^9}, {
   3.7928764934120293`*^9, 3.792876493413371*^9}, 
   3.7949179081230946`*^9},ExpressionUUID->"894237f7-48e5-48f0-87f4-\
e466b472a629"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "fitDataWDR"}]], "Input",
 CellChangeTimes->{{3.7926857087366133`*^9, 3.792685709574087*^9}, 
   3.7926861952252607`*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"22b5a605-c416-407c-bed8-82883548b3f5"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"fitDataWDR[locale, startDate] gives data for \
infected, recovered, and dead relative to the given date for the onset of \
infection for the given locale, either an administrative division or a \
country. For reference, cases were first reported on 31 Dec 2019.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False, False, False, False, 
                False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Definitions\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Definitions", "Tooltip"]& ], GridBox[{
                    {
                    RowBox[{
                    RowBox[{"fitDataWDR", "[", 
                    RowBox[{
                    RowBox[{"locale", ":", 
                    RowBox[{
                    RowBox[{"Entity", "[", 
                    RowBox[{"\<\"AdministrativeDivision\"\>", ",", "_"}], 
                    "]"}], "|", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\<\"Country\"\>", ",", "_"}], "]"}]}]}], ",", 
                    "date0_", ",", 
                    RowBox[{"opts", ":", 
                    RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    "covid19Data", ",", "confirmed", ",", "recovered", ",", 
                    "dead", ",", "correctionQ", ",", "dateRange"}], "}"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"covid19Data", "=", 
                    RowBox[{
                    "ResourceData", 
                    "[", "\<\"Epidemic Data for Novel Coronavirus \
COVID-19\"\>", "]"}]}], ";", 
                    RowBox[{"Switch", "[", 
                    RowBox[{"locale", ",", "\[IndentingNewLine]", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\<\"AdministrativeDivision\"\>", ",", "_"}], 
                    "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    RowBox[{"covid19Data", "[", 
                    RowBox[{"All", ",", "\<\"AdministrativeDivision\"\>"}], 
                    "]"}], ",", "locale"}], "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"fitDataWDR", "::", "locnf"}], "MessageName"], 
                    ",", "locale"}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\<\"Country\"\>", ",", "_"}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    RowBox[{"covid19Data", "[", 
                    RowBox[{"All", ",", "\<\"Country\"\>"}], "]"}], ",", 
                    "locale"}], "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"fitDataWDR", "::", "locnf"}], "MessageName"], 
                    ",", "locale"}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}]}], 
                    "]"}], ";", 
                    RowBox[{"correctionQ", "=", 
                    RowBox[{
                    "OptionValue", "[", "\<\"makeCorrectionForHubei\"\>", 
                    "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"MatchQ", "[", 
                    RowBox[{"correctionQ", ",", 
                    RowBox[{"Except", "[", 
                    RowBox[{"True", "|", "False"}], "]"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"fitDataWDR", "::", "opttf"}], "MessageName"], 
                    ",", "\<\"makeCorrectionForHubei\"\>", ",", 
                    "correctionQ"}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
                    RowBox[{"dateRange", "=", 
                    RowBox[{"OptionValue", "[", "\<\"dateRange\"\>", "]"}]}], 
                    ";", 
                    RowBox[{"dateRange", "=", 
                    RowBox[{"Switch", "[", 
                    RowBox[{
                    "dateRange", ",", "\[IndentingNewLine]", "All", ",", 
                    RowBox[{
                    RowBox[{"covid19Data", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "\<\"ConfirmedCases\"\>"}], 
                    "\[RightDoubleBracket]"}], "/@", 
                    RowBox[{"{", 
                    RowBox[{"\<\"FirstDate\"\>", ",", "\<\"LastDate\"\>"}], 
                    "}"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"_", ",", "_"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"dateRange", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Quiet", "[", 
                    RowBox[{"DateObject", "[", 
                    RowBox[{"#1", ",", "\<\"Instant\"\>"}], "]"}], "]"}], 
                    "&"}], ")"}], "/@", 
                    RowBox[{"(", 
                    RowBox[{"dateRange", "//.", "\[VeryThinSpace]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"All", ",", "b_"}], "}"}], "\[RuleDelayed]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"covid19Data", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "\<\"ConfirmedCases\"\>"}], 
                    "\[RightDoubleBracket]"}], "[", "\<\"FirstDate\"\>", 
                    "]"}], ",", "b"}], "}"}]}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"a_", ",", "All"}], "}"}], "\[RuleDelayed]", 
                    RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"covid19Data", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "\<\"ConfirmedCases\"\>"}], 
                    "\[RightDoubleBracket]"}], "[", "\<\"LastDate\"\>", 
                    "]"}]}], "}"}]}]}], "}"}]}], ")"}]}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"MatchQ", "[", 
                    RowBox[{"dateRange", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", "__", "}"}], ",", "_String", ",", "_String", 
                    ",", "_Real"}], "]"}], ",", 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", "__", "}"}], ",", "_String", ",", "_String", 
                    ",", "_Real"}], "]"}]}], "}"}]}], "]"}], ",", "dateRange",
                     ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"fitDataWDR", "::", "optvg"}], "MessageName"], 
                    ",", "\<\"dateRange\"\>", ",", 
                    RowBox[{"OptionValue", "[", "\<\"dateRange\"\>", "]"}], 
                    ",", "\<\"All or a list of two dates\"\>"}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}]}], ",",
                     "\[IndentingNewLine]", "_", ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"fitDataWDR", "::", "optvg"}], "MessageName"], 
                    ",", "\<\"dateRange\"\>", ",", 
                    RowBox[{"OptionValue", "[", "\<\"dateRange\"\>", "]"}], 
                    ",", "\<\"All or a list of two dates\"\>"}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}]}], ";", 
                    RowBox[{"Switch", "[", 
                    RowBox[{"locale", ",", "\[IndentingNewLine]", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\<\"AdministrativeDivision\"\>", ",", "_"}], 
                    "]"}], ",", 
                    RowBox[{
                    RowBox[{"confirmed", "=", 
                    RowBox[{"covid19Data", "[", 
                    RowBox[{
                    RowBox[{"SelectFirst", "[", 
                    RowBox[{
                    RowBox[{"#AdministrativeDivision", "\[Equal]", "locale"}],
                     "&"}], "]"}], ",", "\<\"ConfirmedCases\"\>"}], "]"}]}], 
                    ";", 
                    RowBox[{"recovered", "=", 
                    RowBox[{"covid19Data", "[", 
                    RowBox[{
                    RowBox[{"SelectFirst", "[", 
                    RowBox[{
                    RowBox[{"#AdministrativeDivision", "\[Equal]", "locale"}],
                     "&"}], "]"}], ",", "\<\"RecoveredCases\"\>"}], "]"}]}], 
                    ";", 
                    RowBox[{"dead", "=", 
                    RowBox[{"covid19Data", "[", 
                    RowBox[{
                    RowBox[{"SelectFirst", "[", 
                    RowBox[{
                    RowBox[{"#AdministrativeDivision", "\[Equal]", "locale"}],
                     "&"}], "]"}], ",", "\<\"Deaths\"\>"}], "]"}]}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\<\"Country\"\>", ",", "_"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"confirmed", "=", 
                    RowBox[{"Plus", "@@", 
                    RowBox[{"Normal", "[", 
                    RowBox[{"covid19Data", "[", 
                    RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"#Country", "\[Equal]", "locale"}], "&"}], "]"}], 
                    ",", "\<\"ConfirmedCases\"\>"}], "]"}], "]"}]}]}], ";", 
                    RowBox[{"recovered", "=", 
                    RowBox[{"Plus", "@@", 
                    RowBox[{"Normal", "[", 
                    RowBox[{"covid19Data", "[", 
                    RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"#Country", "\[Equal]", "locale"}], "&"}], "]"}], 
                    ",", "\<\"RecoveredCases\"\>"}], "]"}], "]"}]}]}], ";", 
                    RowBox[{"dead", "=", 
                    RowBox[{"Plus", "@@", 
                    RowBox[{"Normal", "[", 
                    RowBox[{"covid19Data", "[", 
                    RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"#Country", "\[Equal]", "locale"}], "&"}], "]"}], 
                    ",", "\<\"Deaths\"\>"}], "]"}], "]"}]}]}]}]}], "]"}], ";", 
                    RowBox[{"confirmed", "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"correctionQ", "&&", 
                    RowBox[{"MatchQ", "[", 
                    RowBox[{"locale", ",", 
                    RowBox[{
                    TemplateBox[{"\"Hubei, China\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"AdministrativeDivision\"", ",", 
                    RowBox[{"{", 
                    RowBox[{"\"Hubei\"", ",", "\"China\""}], "}"}]}], "]"}], 
                    "\"Entity[\\\"AdministrativeDivision\\\", {\\\"Hubei\\\", \
\\\"China\\\"}]\"", "\"administrative division\""},
                    "Entity"], "|", 
                    TemplateBox[{"\"China\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"China\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"China\\\"]\"", 
                    "\"country\""},
                    "Entity"]}]}], "]"}]}], ",", 
                    RowBox[{"TimeSeries", "[", 
                    RowBox[{"Apply", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#1", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#1", "\[GreaterEqual]", 
                    RowBox[{"DateObject", "[", 
                    RowBox[{"\<\"13 Feb 2020\"\>", ",", "\<\"Instant\"\>"}], 
                    "]"}]}], ",", 
                    RowBox[{"#2", "-", "13332"}], ",", "#2"}], "]"}]}], "}"}],
                     "&"}], ",", 
                    RowBox[{"Normal", "[", "confirmed", "]"}], ",", 
                    RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", 
                    "confirmed"}], "]"}]}], ";", 
                    RowBox[{"confirmed", "=", 
                    RowBox[{"TimeSeriesWindow", "[", 
                    RowBox[{"confirmed", ",", "dateRange"}], "]"}]}], ";", 
                    RowBox[{"recovered", "=", 
                    RowBox[{"TimeSeriesWindow", "[", 
                    RowBox[{"recovered", ",", "dateRange"}], "]"}]}], ";", 
                    RowBox[{"dead", "=", 
                    RowBox[{"TimeSeriesWindow", "[", 
                    RowBox[{"dead", ",", "dateRange"}], "]"}]}], ";", 
                    RowBox[{"Map", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"QuantityMagnitude", "[", 
                    RowBox[{"DateDifference", "[", 
                    RowBox[{"date0", ",", 
                    RowBox[{"First", "[", "#1", "]"}], ",", "\<\"Day\"\>"}], 
                    "]"}], "]"}], ",", 
                    RowBox[{"Last", "[", "#1", "]"}]}], "}"}], "&"}], ",", 
                    RowBox[{"Normal", "/@", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"confirmed", "-", 
                    RowBox[{"(", 
                    RowBox[{"recovered", "+", "dead"}], ")"}]}], ",", 
                    "recovered", ",", "dead"}], "}"}]}], ",", 
                    RowBox[{"{", "2", "}"}]}], "]"}]}]}], "]"}]}]}
                    },
                    DefaultBaseStyle->"Column",
                    GridBoxAlignment->{"Columns" -> {{Left}}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    
                    RowBox[{"\<\"makeCorrectionForHubei\"\>", "\[Rule]", 
                    "False"}], ",", 
                    RowBox[{"\<\"dateRange\"\>", "\[Rule]", "All"}]}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Global`fitDataWDR\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->6], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"fitDataWDR[locale, startDate] gives data for \
infected, recovered, and dead relative to the given date for the onset of \
infection for the given locale, either an administrative division or a \
country. For reference, cases were first reported on 31 Dec 2019.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{14., {4., 10.}}], True->
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{14., {4., 10.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[
   Association[
   "ObjectType" -> "Symbol", "Usage" -> 
    "fitDataWDR[locale, startDate] gives data for infected, recovered, and \
dead relative to the given date for the onset of infection for the given \
locale, either an administrative division or a country. For reference, cases \
were first reported on 31 Dec 2019.", "Documentation" -> None, "OwnValues" -> 
    None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, $CellContext`fitDataWDR, {$CellContext`fitDataWDR[
         Pattern[$CellContext`locale, 
          Alternatives[
           Entity["AdministrativeDivision", 
            Blank[]], 
           Entity["Country", 
            Blank[]]]], 
         Pattern[$CellContext`date0, 
          Blank[]], 
         Pattern[$CellContext`opts, 
          OptionsPattern[]]] :> 
       Module[{$CellContext`covid19Data, $CellContext`confirmed, \
$CellContext`recovered, $CellContext`dead, $CellContext`correctionQ, \
$CellContext`dateRange}, $CellContext`covid19Data = 
          ResourceData["Epidemic Data for Novel Coronavirus COVID-19"]; 
         Switch[$CellContext`locale, 
           Entity["AdministrativeDivision", 
            Blank[]], 
           If[
            Not[
             MemberQ[
              $CellContext`covid19Data[
              All, "AdministrativeDivision"], $CellContext`locale]], Message[
              
              MessageName[$CellContext`fitDataWDR, 
               "locnf"], $CellContext`locale]; Return[$Failed]], 
           Entity["Country", 
            Blank[]], 
           If[
            Not[
             MemberQ[
              $CellContext`covid19Data[All, "Country"], $CellContext`locale]],
             Message[
              
              MessageName[$CellContext`fitDataWDR, 
               "locnf"], $CellContext`locale]; 
            Return[$Failed]]]; $CellContext`correctionQ = 
          OptionValue["makeCorrectionForHubei"]; If[
           MatchQ[$CellContext`correctionQ, 
            Except[
             Alternatives[True, False]]], Message[
             MessageName[$CellContext`fitDataWDR, "opttf"], 
             "makeCorrectionForHubei", $CellContext`correctionQ]; 
           Return[$Failed]]; $CellContext`dateRange = 
          OptionValue["dateRange"]; $CellContext`dateRange = 
          Switch[$CellContext`dateRange, All, 
            Map[
             Part[$CellContext`covid19Data, 1, "ConfirmedCases"], {
             "FirstDate", "LastDate"}], {
             Blank[], 
             Blank[]}, $CellContext`dateRange = Map[Quiet[
                DateObject[#, "Instant"]]& , 
               ReplaceRepeated[$CellContext`dateRange, {{All, 
                   Pattern[$CellContext`b, 
                    Blank[]]} :> {
                   Part[$CellContext`covid19Data, 1, "ConfirmedCases"][
                   "FirstDate"], $CellContext`b}, {
                   Pattern[$CellContext`a, 
                    Blank[]], All} :> {$CellContext`a, 
                   Part[$CellContext`covid19Data, 1, "ConfirmedCases"][
                   "LastDate"]}}]]; If[
              MatchQ[$CellContext`dateRange, {
                DateObject[{
                  BlankSequence[]}, 
                 Blank[String], 
                 Blank[String], 
                 Blank[Real]], 
                DateObject[{
                  BlankSequence[]}, 
                 Blank[String], 
                 Blank[String], 
                 Blank[Real]]}], $CellContext`dateRange, Message[
                MessageName[$CellContext`fitDataWDR, "optvg"], "dateRange", 
                OptionValue["dateRange"], "All or a list of two dates"]; 
              Return[$Failed]], 
            Blank[], Message[
              MessageName[$CellContext`fitDataWDR, "optvg"], "dateRange", 
              OptionValue["dateRange"], "All or a list of two dates"]; 
            Return[$Failed]]; Switch[$CellContext`locale, 
           Entity["AdministrativeDivision", 
            Blank[]], $CellContext`confirmed = $CellContext`covid19Data[
              SelectFirst[
              Slot["AdministrativeDivision"] == $CellContext`locale& ], 
              "ConfirmedCases"]; $CellContext`recovered = \
$CellContext`covid19Data[
              SelectFirst[
              Slot["AdministrativeDivision"] == $CellContext`locale& ], 
              "RecoveredCases"]; $CellContext`dead = $CellContext`covid19Data[
              SelectFirst[
              Slot["AdministrativeDivision"] == $CellContext`locale& ], 
              "Deaths"], 
           Entity["Country", 
            Blank[]], $CellContext`confirmed = Apply[Plus, 
              Normal[
               $CellContext`covid19Data[
                Select[Slot["Country"] == $CellContext`locale& ], 
                "ConfirmedCases"]]]; $CellContext`recovered = Apply[Plus, 
              Normal[
               $CellContext`covid19Data[
                Select[Slot["Country"] == $CellContext`locale& ], 
                "RecoveredCases"]]]; $CellContext`dead = Apply[Plus, 
              Normal[
               $CellContext`covid19Data[
                Select[Slot["Country"] == $CellContext`locale& ], 
                "Deaths"]]]]; $CellContext`confirmed = If[
            And[$CellContext`correctionQ, 
             MatchQ[$CellContext`locale, 
              Alternatives[
               Entity["AdministrativeDivision", {"Hubei", "China"}], 
               Entity["Country", "China"]]]], 
            TimeSeries[
             Apply[{#, 
               
               If[# >= DateObject["13 Feb 2020", "Instant"], #2 - 
                13332, #2]}& , 
              Normal[$CellContext`confirmed], {
              1}]], $CellContext`confirmed]; $CellContext`confirmed = 
          TimeSeriesWindow[$CellContext`confirmed, $CellContext`dateRange]; \
$CellContext`recovered = 
          TimeSeriesWindow[$CellContext`recovered, $CellContext`dateRange]; \
$CellContext`dead = 
          TimeSeriesWindow[$CellContext`dead, $CellContext`dateRange]; Map[{
            QuantityMagnitude[
             DateDifference[$CellContext`date0, 
              First[#], "Day"]], 
            Last[#]}& , 
           Map[
           Normal, {$CellContext`confirmed - ($CellContext`recovered + \
$CellContext`dead), $CellContext`recovered, $CellContext`dead}], {2}]]}], 
    "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, 
    "FormatValues" -> None, 
    "Options" -> {"makeCorrectionForHubei" -> False, "dateRange" -> All}, 
    "Attributes" -> {}, "FullName" -> "Global`fitDataWDR"], False]]], "Output",
 CellChangeTimes->{3.792685710709119*^9, 3.7926863640763817`*^9, 
  3.793782039540737*^9, 3.794741364514184*^9, 3.7949176962577667`*^9, 
  3.7949178831804295`*^9, 3.7949182500726223`*^9, 3.794920899452104*^9, 
  3.794975126412793*^9, 3.794977649867279*^9, 3.7950125457946157`*^9, 
  3.795059714160144*^9, 3.795146764762809*^9, 3.795152034865063*^9, 
  3.795153629333542*^9, 3.795157198929838*^9, 3.795230686715813*^9, 
  3.7953154364470162`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"93a6b267-34d5-46e4-98ca-e0f92b1a7a2c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"fitDataWDR", "[", 
    RowBox[{
     NamespaceBox["LinguisticAssistant",
      DynamicModuleBox[{Typeset`query$$ = "Spain", Typeset`boxes$$ = 
       TemplateBox[{"\"Spain\"", 
         RowBox[{"Entity", "[", 
           RowBox[{"\"Country\"", ",", "\"Spain\""}], "]"}], 
         "\"Entity[\\\"Country\\\", \\\"Spain\\\"]\"", "\"country\""}, 
        "Entity"], Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {}, 
       Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
       "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 
        1.1092868`7.496588838612159, "Messages" -> {}}}, 
       DynamicBox[ToBoxes[
         AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
          Dynamic[Typeset`query$$], 
          Dynamic[Typeset`boxes$$], 
          Dynamic[Typeset`allassumptions$$], 
          Dynamic[Typeset`assumptions$$], 
          Dynamic[Typeset`open$$], 
          Dynamic[Typeset`querystate$$]], StandardForm],
        ImageSizeCache->{167., {10.5, 22.5}},
        TrackedSymbols:>{
         Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, 
          Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
       DynamicModuleValues:>{},
       UndoTrackedVariables:>{Typeset`open$$}],
      BaseStyle->{"Deploy"},
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True], ",", "\"\<1 March 2020\>\""}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Spain\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<time (d)\>\"", ",", "\"\<# individuals\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<confirmed\>\"", "-", 
       RowBox[{"(", 
        RowBox[{"\"\<recovered\>\"", "+", "\"\<dead\>\""}], ")"}]}], ",", 
      "\"\<recovered\>\"", ",", "\"\<dead\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.791975536101718*^9, 3.791975548804297*^9}, {
   3.79225259353281*^9, 3.7922526106249027`*^9}, {3.792253368029546*^9, 
   3.7922533707044*^9}, {3.7923436392530727`*^9, 3.792343707830724*^9}, {
   3.7923439832430773`*^9, 3.7923440130934677`*^9}, {3.792347009356336*^9, 
   3.7923470105914383`*^9}, 3.7925998549910583`*^9, 3.792603829976989*^9, 
   3.792686201830826*^9, {3.794918274342774*^9, 3.794918336698283*^9}, {
   3.794918789283743*^9, 3.794918789719244*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"ecccc27e-48f6-4322-903e-18cf8db5de41"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               DiskBox[{0, 0}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.9, 0.36, 0.054], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.272]], CompressedData["
1:eJxdzFtIk3EYx/E3NVEM22xbDltstr3Zihd3Ptp+WtCBIjOKDMSS1lUnsV2Z
JFFSoF2MVZAFsYtVRCIljRHVOxIkBEssoS5KSKWLSC9WpIUm+DxB/x88Fx++
8FhazjRE8yVJ8i7diqXLk3g1qvTfwoJDgoOCA4L9gn2CvYI96kxgfqFOmY4s
2y3YJdgp2CG4WrCO/JOsUff4LqS/KPlYdpG6v9uxueByAVlSe8dL5lKeEvLs
S+03nWHWUMpdit5J5bXf1XKPpM+mGhX9Gu7Yubv74+NGHf/H9tsTZZmrerIG
nbFILigbyDrYikcOK1NryeXIDifDR7vKyetQ3LpXM5U1ks0YPjV4cbCvglwJ
6Vpv2c2EiWxFV6bWdKt9PVmGfK4/YfznKvQsHJjRL5rJdiSNo5OLuyzkLdhW
NaB2DLAVHCzsO5kOVJKr8dQyaVVibAdyhW0/sqNsJ5zWwCd70wayC7lD8c/1
cbYbDZqheOsftgcPtfdj424r2QvXaf/z0utsH1b/fvv6yBjbj+nooxsffDZy
AOfr3a+udLCDePY+NF/Rzw7B/7XFEXzHDkN2me2/cuwaNGszb4ZMMnkrxk6M
9DyoY0dw3Lpj38pmNrDpxcQ9Wxu5E3gytypZdIl7LTZ+b4ofS8j4C9GMw+0=

         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.365248, 0.427802, 0.758297], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.72]], CompressedData["
1:eJxdz08og3EYwPEXF/Jvq9lesZltDWuWjY13/uwZJ7WoWSk3E0LLDrut9Jb8
KzsoJ8rBEOKgEGnsosYFycpK4eAisZxsWVae3+V56jl8+tZTT7V30j2cx3Gc
Jbs52c3l2Jiin0Iq02l6c/zbSGwgriXWE+uINcRq4kpinlhGLCHOJ+aIvy5I
50h3kA7kPrGEWEbMw2q88GfLWgj4H7EaJmIn5/enzBpiHdzuRRam4zK0nrgW
vD1125miMrQBcmTz35lfHm0kNsFz7F3qU5SjG2BRVRy9i1SgzdDnPpC7kswW
mOSvptYLKtGN4Ku5jiiDSnQThMc+B0Y3VWgrzCZ6BxXjVWgbiEcj6zNtanQz
fLxF/MEgcwvYxJs5aX01WoAdT7rReMxsh/3xRHi3W4NuBYNzKVT6wNwGdiEt
7TJr0e3glwvJwwBzB7yu7AecZ8wOWF67nBNKdGgA1+P8Rv8QWgTYVgq+py3W
neARtanQiw7+APf56DQ=
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.945109, 0.593901, 0.], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.16]], CompressedData["
1:eJxTTMoPSmVmYGBQBGJGIGZigAMHBhTA4fDe8tc/J71n9hC+gAM389qqV5M/
QvkiDsa9b787HvgJ5Us4iIVu3b0xmwlqjoxDVf2vg9mr2KB8BQdlr2nXolZw
QflKDkc/8wdHFfJA+SoOPMKHygte8kP5ag6f/+2KbGIXgPI1HHQ+9K3b3i8M
5Ws5WGTZG/WKi0L5OlD7xKB8PYdIJYsFN8LEoXwDB3+ZhB0mspJQvqFDj6L1
4Z97YHwjB55+2+y9j6SgfGOHw7UrtJefkYbyTRx6jm4MXfxcBso3dfBp2t6Q
+FoWyjdzeDP7b0Xwbzko39xBK85C8PQheSjfwiH8tgajQ7oClG/pkDpDOsn5
MIxv5VB8wU1mn5gilG/tsNKn9O+cFBjfxuHlw8R/pctgfFsH1uYVJh+ewfh2
DiUZy/f5iylB+fYOS+rrTfy8YXwHB9GJ5eWmtVB+g4PD72U/uxYshck7OpS/
YTx77JiSAwBL7YEn
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {{0}, {}}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, -0.8834914609605747}, 
     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{
        FormBox["\"# individuals\"", TraditionalForm], None}, {
        FormBox["\"time (d)\"", TraditionalForm], None}}, FrameStyle -> 
     Automatic, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {{0}, {}}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"Spain\"", TraditionalForm], 
     PlotRange -> {{-29., 34.}, {-0.8834914609605747, 11.289806913343524`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"\"confirmed\"", "-", "\"dead\"", "-", "\"recovered\""}], 
       "\"recovered\"", "\"dead\""}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.945109, 0.593901, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.945109, 0.593901, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.945109, 0.593901, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}]}], "}"}]}],
            ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.791975550083145*^9, 3.7919755765809097`*^9}, {
   3.792252603322236*^9, 3.792252611726225*^9}, 3.792253371771038*^9, 
   3.7923431576615877`*^9, {3.792343684724164*^9, 3.79234371049962*^9}, 
   3.7923440159457493`*^9, 3.792347012125573*^9, 3.792416367053817*^9, {
   3.792599844329463*^9, 3.792599856726313*^9}, 3.7926038403389463`*^9, 
   3.792604018717017*^9, 3.792604098825665*^9, 3.792683025503953*^9, 
   3.792686369914762*^9, 3.792876507255279*^9, 3.7937820402773156`*^9, 
   3.7947413651547995`*^9, {3.7949183143097115`*^9, 3.794918341882016*^9}, 
   3.794918791694216*^9, 3.794920900334598*^9, 3.7949751273652472`*^9, 
   3.794977650445793*^9, 3.7950125467078066`*^9, 3.795059714958787*^9, 
   3.795146765481533*^9, 3.7951520354580355`*^9, 3.795153629986943*^9, 
   3.7951571995606627`*^9, 3.795230687419182*^9, 3.7953154376665106`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"7b669fb4-57ee-41d3-8bc4-28b1bf9153a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"fitDataWDR", "[", 
    RowBox[{
     NamespaceBox["LinguisticAssistant",
      DynamicModuleBox[{Typeset`query$$ = "Italy", Typeset`boxes$$ = 
       TemplateBox[{"\"Italy\"", 
         RowBox[{"Entity", "[", 
           RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}], 
         "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"", "\"country\""}, 
        "Entity"], Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {}, 
       Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
       "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 
        0.8611809`7.386639382603077, "Messages" -> {}}}, 
       DynamicBox[ToBoxes[
         AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
          Dynamic[Typeset`query$$], 
          Dynamic[Typeset`boxes$$], 
          Dynamic[Typeset`allassumptions$$], 
          Dynamic[Typeset`assumptions$$], 
          Dynamic[Typeset`open$$], 
          Dynamic[Typeset`querystate$$]], StandardForm],
        ImageSizeCache->{154., {10.5, 22.5}},
        TrackedSymbols:>{
         Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, 
          Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
       DynamicModuleValues:>{},
       UndoTrackedVariables:>{Typeset`open$$}],
      BaseStyle->{"Deploy"},
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True], ",", "\"\<1 March 2020\>\""}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Italy\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<time (d)\>\"", ",", "\"\<# individuals\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<confirmed\>\"", "-", 
       RowBox[{"(", 
        RowBox[{"\"\<recovered\>\"", "+", "\"\<dead\>\""}], ")"}]}], ",", 
      "\"\<recovered\>\"", ",", "\"\<dead\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.791975536101718*^9, 3.791975548804297*^9}, {
   3.79225259353281*^9, 3.7922526106249027`*^9}, {3.792253368029546*^9, 
   3.7922533707044*^9}, {3.7923436392530727`*^9, 3.792343707830724*^9}, {
   3.7923439832430773`*^9, 3.7923440130934677`*^9}, {3.792347009356336*^9, 
   3.7923470105914383`*^9}, 3.7925998549910583`*^9, 3.792603829976989*^9, 
   3.792686201830826*^9, {3.794918274342774*^9, 3.794918336698283*^9}, 
   3.7949184076656027`*^9, 3.794918438241144*^9, {3.794918488626342*^9, 
   3.7949184972067037`*^9}, {3.794918742247835*^9, 3.7949187489463005`*^9}, 
   3.7949188030497985`*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"f2a33c21-ffc1-4722-8904-fcd6137c08c2"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               DiskBox[{0, 0}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.9, 0.36, 0.054], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.272]], CompressedData["
1:eJxdz11Ik2EUB/B3umqopKu11po2t/W6yZqbc5vzYzuKXkRhYbJoREGxJDVd
CdUWhpEVKyljoCEZdBFetBkj2izKnqRPpIsuKoQ+IDclLctg5Qdlgs+5eQ78
L378L845uQdaaj2pHMdVLEWwlBQOx0F+2Of/VRrGncsuZ1zGuJRxCWM742LG
NpKeGvZPBmeorYwtjIsYmxkXMjYxNjI2MNYzzmesZcwz1jBWEf1d4Urr5VWw
bCXx6V7MeXZkUStIb82Z+bE0CbWMJFZ0/471rKOWkD1t09WdSSl1FpmIhUym
Ohm1iBBj4JD34gZqjgh7B/cF38upfz42v6ruanq3EXtO5vB0LbZmY+/cz2ff
zsvMwR6Czxp2v02gRfDaJ26buL4J94P4oVvlNSvxPuh0d4/euYSWwZRg9FdK
Zi7+Bz3xqD/vPFoJNbq5T6dm0SrYVhVNxnUqag18XzN8ND2A5hlrIeI+m/HE
rqbOhz/qhXH/VbQeQoqwa+Qj2gD3vzTzT9drqI2wWj4QVbnQJjg41mgYuIAu
hMqkWvTtDdoMtxwL0is5m6mLoKB++65ILdoCwi1D9dJ2tBWabJGCv/1oGxi3
JqwNI+hi2OuIxU5Ooe0wdOxBYFbMU5fA4a8u11oLuhRavNFB3050GaRpOxZv
NKLLIRwP9U0eRzvgxMzLDME5tBNu8hKl8BoawFT3ebqjn7odQNH84cije9hX
wGl5a9Xwcx7+A2ZCGBM=
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.365248, 0.427802, 0.758297], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.72]], CompressedData["
1:eJxTTMoPSmVmYGDQBmJGIGZigAGFAwwoQObAe8tf/5z0ntlD+BJo8iJofIED
3Mxrq15N/ghVz3FgycnFZdwlfA5QBQdynCbs5VsI43/Yj8pnYGh6ktT7ZI0g
TN5e97l0AxeLCEzeoel4eOwvHxifw8FsZVCsV7UYlC/gsHuR3JwaKQkoX8SB
0Up753lOSShfwsH5vZd6UzOML+Mw/cjZpSG7YXwFh2WyrH2Xw6SgfCU0vopD
Z8TemLnnpKF8NTS+hgOzkmy9pZgslK/l8KTa0OxIqByUr+OQ/876ynNWeShf
z+HjweexPGthfAMHl10HI/U+wfiGDlOkzYL3zVSA8o0crrzbEPnnNIxvjMY3
ceA9VuHjlKMI5Zs6eLzvdbyyDcY3c1j68fCdPZdhfHMHg4h2sae8SlC+hcP8
d/orP3jC+JYOarcust2qhfGtHBz2XxTTnAXjWzs8WntvsvZNGN/Goe3xmnKT
zzC+rcPxyw+mqOspQ/l2DktvOTJMD4bx7R0k0ywd9pfB+A4OeU9Pf69ZAOU3
ODhkW692izoBk3d0iOb79rP8ubIDAPRwpHc=
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.945109, 0.593901, 0.], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.16]], CompressedData["
1:eJxTTMoPSmVmYGDQAWJGIGZigAGlAwwoQOHAe8tf/5z0ntlD+DIHuJnXVr2a
/BHKlzgQHmW0rkjpP5QvckAsdOvujdlMDhC+wIHaeZf3iD1khvI5DlTV/zqY
vYoNymc4sHFd/hS9aA4o/8N++X9nT1t84ILJM3zj3dn4x5QHJm/vuXLdKtU5
/DB5h+KN6zsDqgRh5jtEu+/n+rVBCGa/Q9Sn22aqf4WhfBGHg8otGgxKolC+
hEO8mS3b3bMwvowD75c5L73niEP5Cg4zfFSCOHoloHwlh/0bvXu4TklC+SoO
LNorDDnuS0H5amh8DYffP7XqBCbLQPlaDhwpj6YuFZeF8nUcSi9rnu1ikIPy
9RxefLzFpL8VxjdwaG1il+L1lYfyDR380k33//4H4xs53I06NUvCRQHKN3Y4
nsgvsmgWjG/iUMclcKn/G4xv6iC7+s+1GHNFKN/MYZPcBP11OTC+uUOf4EO5
vcthfAuH6kYnsdk3YHxLhxXdWq9Z2ZWgfCuHJULMvIG2ML61Q5235617OTC+
jcPs0hp+qUkwvq3DLddvWzy3w/h2DvOt2or+3ILx7R2M2dMeiv+A8R0cPHYZ
zropogzhNzg4bPjBFOxpAOUzODpM/l5e1+Cu7AAA5yqm2A==
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {{0}, {}}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, -0.8911913482180885}, 
     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{
        FormBox["\"# individuals\"", TraditionalForm], None}, {
        FormBox["\"time (d)\"", TraditionalForm], None}}, FrameStyle -> 
     Automatic, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {{0}, {}}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"Italy\"", TraditionalForm], 
     PlotRange -> {{-30., 34.}, {-0.8911913482180885, 11.388200892496794`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"\"confirmed\"", "-", "\"dead\"", "-", "\"recovered\""}], 
       "\"recovered\"", "\"dead\""}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.945109, 0.593901, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.945109, 0.593901, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.945109, 0.593901, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}]}], "}"}]}],
            ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7949184447960987`*^9, 3.7949184665121174`*^9}, 
   3.79491850489252*^9, 3.7949185627465696`*^9, 3.7949188252505755`*^9, 
   3.794920901400749*^9, 3.794975128429636*^9, 3.794977651211013*^9, 
   3.795012548075578*^9, 3.795059716023096*^9, 3.795146766200392*^9, 
   3.795152036016543*^9, 3.795153630626235*^9, 3.795157200150113*^9, 
   3.795230688106495*^9, 3.795315438870764*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"ffa0c006-268c-48a9-89c2-effa620c9fcf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"fitDataWDR", "[", 
    RowBox[{
     RowBox[{"Entity", "[", 
      RowBox[{"\"\<Country\>\"", ",", " ", "\"\<France\>\""}], "]"}], ",", 
     "\"\<1 March 2020\>\""}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<France\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<time (d)\>\"", ",", "\"\<# individuals\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<confirmed\>\"", "-", 
       RowBox[{"(", 
        RowBox[{"\"\<recovered\>\"", "+", "\"\<dead\>\""}], ")"}]}], ",", 
      "\"\<recovered\>\"", ",", "\"\<dead\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.791975536101718*^9, 3.791975548804297*^9}, {
   3.79225259353281*^9, 3.7922526106249027`*^9}, {3.792253368029546*^9, 
   3.7922533707044*^9}, {3.7923436392530727`*^9, 3.792343707830724*^9}, {
   3.7923439832430773`*^9, 3.7923440130934677`*^9}, {3.792347009356336*^9, 
   3.7923470105914383`*^9}, 3.7925998549910583`*^9, 3.792603829976989*^9, 
   3.792686201830826*^9, {3.794918274342774*^9, 3.794918336698283*^9}, 
   3.7949184076656027`*^9, 3.794918438241144*^9, {3.794918488626342*^9, 
   3.7949184972067037`*^9}, {3.794918589518172*^9, 3.79491859723239*^9}, {
   3.794918754799348*^9, 3.7949187577021885`*^9}, 3.7949188066244783`*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"a60479a2-7eba-41ee-92e6-667d35e49a81"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               DiskBox[{0, 0}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.9, 0.36, 0.054], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.272]], CompressedData["
1:eJxd0V1Ik1EYwPFXl6LNYtJoRtO2NccYutzmNvduc88WLjKlMCFIIdcHjboI
dhPVRfMiF8WCGMybPqj1gS69UGISRS8UIQi5JmwuokQpSJM+oMnWsIQ956Ln
wHPxO38Oh8NRHj/Xc0rEcdy+jSnbmHIOV9AjfLcV1j36L67ShkcQi8YuLkd+
lhx0/2+OOAh4PocdBFN4dc0t5NEu4nZip1Cu0BXE8SLaQWwn5oltxG3EVmKL
0GW9nFjSi6BkM3ErsYnYiO8vQxuIW4j1wpGjxvGA6i/e30SsI9YSa4jVxCpi
BbGcuI5YSv5fQv6nCl2N7+GEvb1FS4V3K/rHS++Lr2fgXS3r3PXww8Yx0TbW
XbenHH2RcSnrkKkMZep/MVdBYkZWURzYjpbA6lD16JWrMrQUmkPdIyMzO9B1
kI6IJpI9O9FyyM1NH7ywzqyAQYsu1LlfjlYB/+HzDeV8PVoNzsKK71GqAa0h
1kJyIbTpcL8CrYMDyz6/7xVzEySiE78X3zDroe+T/yYXVqJbQBZ9Mv0+w2yA
W/74bM0eFdoIKVk623WN2QQp7TB/epa5FZKPfbuat+xGm+Hj6z/20TXWrXDn
vMwciLLeBguXVipjb5ltcDa+uFktVqN5yNVmhw95me3QG0xn70eZHfCtoyFw
8gGzEyRDNf2GeeZ2mJrsu3dX04h2weBcZul5JzNA94l84JkbHQSQH8t3WAZY
d0Msxj/lbRr4B25fMyU=
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.365248, 0.427802, 0.758297], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.72]], CompressedData["
1:eJxdyTFIAmEYxvHPbsgth0MOk7g7RQ6RwzPjOjPv7SiCioYIaYwgoiGKHJyi
pqK5IVpyaXCSdMgl6KClva0hCqGlIYcoEokEvy/weeAZfvy1jd2VTYkxlu09
0PsQE8v4H07n1zPf3L4tcBpscn9xp8BJsAFOgONgHayCo2AFLPtL9mGzZUrU
dwgcBDNw++7g8vE2/Prf2aDbLnQadBAcAstgBRwFq2AdHAcnwAY4CU6BTXAa
bIEz4HFwFjxBP/bq9/vDGLdNI/NnsxFL5Z4kVuva56fCDl1H1r2SpHHnqFmu
11qLwlPgPDl7N6Wre+Fpeg6/FP1P4QLNFU8aW8s6t0uaUd3ZvhAmquSO97tP
3EdEdbnT8JQY7zOkBEbXhhdi9AfDIeui
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.945109, 0.593901, 0.], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.16]], CompressedData["
1:eJxdzk0ogwEYB/CXVyaLsU02hg1bWuuNsS/GHlwcHESyfBUjJ0lMmkLKYfnY
YcrH0cVBkhQizEcoORClyEUcOJjlY4SoPe/B89T/8Ovf8/SomjsqW1mGYfR/
CftLOMMP52P+jY5YS5xFrCHOJE4nVhIriGXEUuI435Pl86eEu7eFHEXMEPu3
Sc+Q3iZkF1wP3me+h1D/xt8njoNwpfZTOP+FlkJoPwzwfyg3DazecixaAbrl
iEjjuACtJE6H07WLl8ugEJ0Jzo0KqzkYi9YQZ0HX0qK7whWP1sJWvXonVShG
64g5qA1cGdXfEnQ2cQ6xHk5K7fK7YAI6Fxo8uumbDhk6D3rbPWZnlRxtgJa9
lZzRmCS0EU7b9svkgmS0CTb83ZMZrAJthsBZkbf6gLcFRobaJf1bKeh8sE4Y
jndbUtEF0DClGZv74m0Fn6Ox096Thi6Ex/VhtkagRBdBYt35q7uatw0Om0TS
2RneAKJok+iDU4U8COB43yxY9KCZYggcecV91yr4BY/fqJc=
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {{0}, {}}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, -0.869559534081115}, 
     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{
        FormBox["\"# individuals\"", TraditionalForm], None}, {
        FormBox["\"time (d)\"", TraditionalForm], None}}, FrameStyle -> 
     Automatic, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {{0}, {}}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"France\"", TraditionalForm], 
     PlotRange -> {{-37., 34.}, {-0.869559534081115, 11.111776030929667`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"\"confirmed\"", "-", "\"dead\"", "-", "\"recovered\""}], 
       "\"recovered\"", "\"dead\""}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.945109, 0.593901, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.945109, 0.593901, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.945109, 0.593901, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}]}], "}"}]}],
            ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7949186013343925`*^9, 3.79491882643799*^9, 
  3.7949209023120627`*^9, 3.7949751294835863`*^9, 3.7949776518673306`*^9, 
  3.795012549044082*^9, 3.795059717161959*^9, 3.7951467667471714`*^9, 
  3.7951520366029477`*^9, 3.7951536311987023`*^9, 3.7951572007621717`*^9, 
  3.795230688637659*^9, 3.7953154398811903`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"fd2d7cd5-7425-404b-90c3-1c60cba3c762"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"fitDataWDR", "[", 
    RowBox[{
     RowBox[{"Entity", "[", 
      RowBox[{"\"\<Country\>\"", ",", " ", "\"\<Germany\>\""}], "]"}], ",", 
     "\"\<1 March 2020\>\""}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Germany\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<time (d)\>\"", ",", "\"\<# individuals\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<confirmed\>\"", "-", 
       RowBox[{"(", 
        RowBox[{"\"\<recovered\>\"", "+", "\"\<dead\>\""}], ")"}]}], ",", 
      "\"\<recovered\>\"", ",", "\"\<dead\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.791975536101718*^9, 3.791975548804297*^9}, {
   3.79225259353281*^9, 3.7922526106249027`*^9}, {3.792253368029546*^9, 
   3.7922533707044*^9}, {3.7923436392530727`*^9, 3.792343707830724*^9}, {
   3.7923439832430773`*^9, 3.7923440130934677`*^9}, {3.792347009356336*^9, 
   3.7923470105914383`*^9}, 3.7925998549910583`*^9, 3.792603829976989*^9, 
   3.792686201830826*^9, {3.794918274342774*^9, 3.794918336698283*^9}, 
   3.7949184076656027`*^9, 3.794918438241144*^9, {3.794918488626342*^9, 
   3.7949184972067037`*^9}, {3.794918589518172*^9, 3.794918625306155*^9}, {
   3.794918768030038*^9, 3.79491877085992*^9}, 3.794918810296816*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"71acd089-7100-401e-a5a2-3ad141fd712a"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               DiskBox[{0, 0}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.9, 0.36, 0.054], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.272]], CompressedData["
1:eJxd0X9IU1EUB/DndFEOYdl4rlw1l25SYzj3Q+fc3plWRGCmJERQpFJYw6RJ
EJZkhBCxjLK2YlhUTskoMhg1F3mxBhGSxkCLQhrFCGHoGC4WMhM8F+IeOH98
7vdyOZxb1NLReCKb47g9q5212iKOloNw/1cPkAXL30yNLiWsHbAWGNuJ4Xr8
j4Ok0TbS+dQqvHzEwZqrCd8UCI06RWgr6b4fecNHs9FVjC2MKxlXkAa3fldO
bw7azNhEhkOz/EeFGG1kbMD516HLGevJ9n11Fn6E3i9jrGOsZbyTcSmzLzXj
YsYqdAytZKxgLGcsI5LsZ13z/Qm0lNnfeuKbkaSHTBI0R5wfXr+NBKkXxwvl
P3/fvCWlOeeNurPmEvk0Fz41H04kv26iORzolF7whGX0fdDMNTw8J+bRUhjo
Vpz098vRMniRzu9TxTej5dDh+jXVPrgFrYCxvD575FUhWgmpvODlZZMCrYJ6
TyA2KduKLoaW0eZASrMNrYZM60DG10NdCueTNudYq5L+D0wvHfPXzFBr4fa0
++7++iK0DkpcD075J6jL4OhK6myhoELr4c4RfoPjM3U5hL/ndkdgB9oAbY36
e7vfUxtBVHu1aWmZ2gQjPunBd+ZitBm+Tbrmb1yhroDTe5XDG73UlTAYFOnI
LLUF6uQaeVlBCboKhMC1ifBxaiuoptq/8F7qange/dEFIWobPEnykdxxaju0
eQ4FYhFqAVYeFywuJKgBLpniTp9EveYegDNxi+miFs05wOjvDYtr1fAP7kcn
Zw==
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.365248, 0.427802, 0.758297], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.72]], CompressedData["
1:eJxTTMoPSmVmYGAwAWJGIGZigAHDAwwowACNr4fG10Hja6HxNQ7Uzru8R+wh
swOEr4bGV0HjKx1Yvvu62CkZVihfAY0vg8aXQOOLoPEFDsh7+FqKrYLxOQ68
t/z1z0mPDcpnQON/2I8mz4Amb48m74DK50DjC6DxRRyq6n8dzF4F40s4tE3M
tqqWZ4f5D42vgMZXQuOrOBj3vv3ueIATFr5ofA2HHKcJe/kW8kH5Wmh8HTS+
noOuoMbHWRcFoHwDNL6hw1Ir4xPL5wpB+UYOMc3GUTdewPjGDn7FAtXTjopA
+SYO8Wa2bHfPikL5pg5Z5nl8DaFiUL6Zg5jj45w1ZRJQvrlDt+e6KGVtBSjf
wsHtmsoN5kgY39LBTpE5vNRTEcq3ciifqi2dNxvGt3aw3RazN0xcCcq3cTAw
Wxoz1xHGt3UItb3JFcmqDOXbOVxKEt3cFg/j2zvYSFju0VkD4zs4TFvV8KeV
UwXCb3BwWFCrkslnAeUzODrMYb6/aneMigMAYVS3pg==
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.945109, 0.593901, 0.], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.16]], CompressedData["
1:eJxTTMoPSmVmYGCQBmJGIGZigAEFh/eWv/456T2zh/CV0PgqDtzMa6teTf4I
5auh8TUcwqOM1hUp/YfytaDyjA4Qvo6Dj3n99sd6zFC+nkNV/a+D2avYoHwD
h586k2qW53BC+YYOyl7TrkWt4ILyjRycQ/6YsbrxQfnGDrqCGh9nXRSA8k0c
rqR+49TYKQjlmzrM3L+8PFRHCMo3c3g5rchxrb0wlG/uEMMh1TDDUgTKt3DQ
irY4us9fFMq3dNh5OnJbeKQYlG/lEKlkseBGmDiUb+1wrGRiRb6HBJRv4+Av
k7DDRFYSyrd1kJDaqN78AMa3c3CPsVfomCMF5ds7/BdqmqPhIw3lOzjkS5ys
W8QpA+E3ODhIus+vDpwF5TM4OqxwPHz0mKSsAwC6a2Xm
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {{0}, {}}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, -0.8710563599313608}, 
     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{
        FormBox["\"# individuals\"", TraditionalForm], None}, {
        FormBox["\"time (d)\"", TraditionalForm], None}}, FrameStyle -> 
     Automatic, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {{0}, {}}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"Germany\"", TraditionalForm], 
     PlotRange -> {{-34., 34.}, {-0.8710563599313608, 11.13090340858853}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"\"confirmed\"", "-", "\"dead\"", "-", "\"recovered\""}], 
       "\"recovered\"", "\"dead\""}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.945109, 0.593901, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.945109, 0.593901, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.945109, 0.593901, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}]}], "}"}]}],
            ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.794918629141181*^9, 3.794918775078853*^9, 
  3.7949188274374285`*^9, 3.7949209030369387`*^9, 3.7949751305335894`*^9, 
  3.794977652539375*^9, 3.795012549884438*^9, 3.795059718327942*^9, 
  3.7951467673413143`*^9, 3.7951520371245823`*^9, 3.79515363182403*^9, 
  3.795157201350082*^9, 3.795230689231474*^9, 3.7953154407894855`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"ad3fd403-a224-4f86-b594-935b72523584"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Importaci\[OAcute]n de datos de Espa\[NTilde]a por comunidades", \
"Section",
 CellChangeTimes->{{3.794403368676326*^9, 3.7944033750047555`*^9}, 
   3.794403408421184*^9, {3.794409442000571*^9, 3.794409442902828*^9}, {
   3.794919152061494*^9, 
   3.794919160171037*^9}},ExpressionUUID->"d668d555-8d3c-424b-b57d-\
f4dd11c5d031"],

Cell[CellGroupData[{

Cell["Castilla y Le\[OAcute]n descarga desde la JCyL", "Subsection",
 CellChangeTimes->{{3.7950599521549425`*^9, 3.795059993944854*^9}, {
  3.7951468313729277`*^9, 
  3.7951468367942033`*^9}},ExpressionUUID->"f861be97-8aac-4fe6-981e-\
00840b19fc68"],

Cell[TextData[{
 "La informaci\[OAcute]n de CyL mas detallada se pueden encontrar en : ",
 ButtonBox["https://analisis.datosabiertos.jcyl.es/explore/?sort=modified&\
refine.keyword=COVID-19",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://analisis.datosabiertos.jcyl.es/explore/?sort=modified&refine.\
keyword=COVID-19"], None},
  ButtonNote->
   "https://analisis.datosabiertos.jcyl.es/explore/?sort=modified&refine.\
keyword=COVID-19"]
}], "Text",
 CellChangeTimes->{{3.7950645094922094`*^9, 
  3.7950645660080194`*^9}},ExpressionUUID->"19ce19d6-0c44-459c-9a05-\
bc2061a040a4"],

Cell["\<\
Importamos los datos en csv pero usan como separador \[OpenCurlyDoubleQuote];\
\[CloseCurlyDoubleQuote] es necesario convertirlo en \[OpenCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]\
\>", "Text",
 CellChangeTimes->{{3.795067677070953*^9, 3.7950677466806335`*^9}, 
   3.7951470104664783`*^9},ExpressionUUID->"d0cec62f-5f0a-4853-b6d4-\
0b46e5617256"],

Cell[CellGroupData[{

Cell["Situaci\[OAcute]n hospitalaria", "Subsubsection",
 CellChangeTimes->{{3.795147076685314*^9, 3.795147095341671*^9}, {
  3.795147144013258*^9, 3.795147148825565*^9}, {3.7951472137751904`*^9, 
  3.7951472232171707`*^9}},ExpressionUUID->"9b9a72a2-aebd-4c27-b0e5-\
4b69323b86c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datosHospitalesCL", "=", 
  RowBox[{
  "SemanticImport", "[", 
   "\"\<https://analisis.datosabiertos.jcyl.es/explore/dataset/situacion-de-\
hospitalizados-por-coronavirus-en-castilla-y-leon/download/?format=csv&\
timezone=Europe/Madrid&lang=es&use_labels_for_header=true&csv_separator=,\>\"\
", "]"}]}]], "Input",
 CellChangeTimes->{{3.7950837574038076`*^9, 3.795083757404807*^9}, {
  3.795084981555069*^9, 3.7950850011191535`*^9}, {3.795315485284979*^9, 
  3.795315490224086*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"8f7afe46-36cf-487d-904e-6202bbaf7104"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
    Association["InitialData" -> {
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 6, "hospitalizados_uci" -> 0, "altas" -> 2,
         "fallecimientos" -> 0, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 32, "hospitalizados_uci" -> 6, "altas" -> 
        3, "fallecimientos" -> 4, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 20, "hospitalizados_uci" -> 5, "altas" -> 
        0, "fallecimientos" -> 0, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 16, "hospitalizados_uci" -> 3, "altas" -> 
        0, "fallecimientos" -> 0, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 15, "hospitalizados_uci" -> 4, "altas" -> 
        0, "fallecimientos" -> 1, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 25, "hospitalizados_uci" -> 1, "altas" -> 
        2, "fallecimientos" -> 2, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 4, "hospitalizados_uci" -> 0, "altas" -> 4,
         "fallecimientos" -> 0, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 61, "hospitalizados_uci" -> 22, "altas" -> 
        10, "fallecimientos" -> 8, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 36, "hospitalizados_uci" -> 7, "altas" -> 
        3, "fallecimientos" -> 5, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 15, "hospitalizados_uci" -> 1, "altas" -> 
        1, "fallecimientos" -> 0, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 29, "hospitalizados_uci" -> 8, "altas" -> 
        0, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 2, "hospitalizados_uci" -> 0, "altas" -> 1,
         "fallecimientos" -> 0, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 15, "hospitalizados_uci" -> 6, "altas" -> 
        1, "fallecimientos" -> 1, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 53, "hospitalizados_uci" -> 6, "altas" -> 
        3, "fallecimientos" -> 5, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 94, "hospitalizados_uci" -> 7, "altas" -> 
        10, "fallecimientos" -> 13, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 49, "hospitalizados_uci" -> 4, "altas" -> 
        14, "fallecimientos" -> 7, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 121, "hospitalizados_uci" -> 12, "altas" -> 
        13, "fallecimientos" -> 15, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 42, "hospitalizados_uci" -> 13, "altas" -> 
        4, "fallecimientos" -> 4, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 10, "hospitalizados_uci" -> 0, "altas" -> 
        8, "fallecimientos" -> 2, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 18, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 1, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 13, "hospitalizados_uci" -> 5, "altas" -> 
        0, "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 38, "hospitalizados_uci" -> 11, "altas" -> 
        4, "fallecimientos" -> 3, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 105, "hospitalizados_uci" -> 37, "altas" -> 
        21, "fallecimientos" -> 14, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 25, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 2, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 135, "hospitalizados_uci" -> 12, "altas" -> 
        16, "fallecimientos" -> 20, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 49, "hospitalizados_uci" -> 9, "altas" -> 
        2, "fallecimientos" -> 0, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        37, "hospitalizados_uci" -> 7, "altas" -> 8, "fallecimientos" -> 11, 
        "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 62, "hospitalizados_uci" -> 15, "altas" -> 
        7, "fallecimientos" -> 7, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 9, "hospitalizados_uci" -> 0, "altas" -> 3,
         "fallecimientos" -> 1, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 91, "hospitalizados_uci" -> 12, "altas" -> 
        7, "fallecimientos" -> 6, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 89, "hospitalizados_uci" -> 5, "altas" -> 
        23, "fallecimientos" -> 15, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 123, "hospitalizados_uci" -> 45, "altas" -> 
        30, "fallecimientos" -> 18, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 15, "hospitalizados_uci" -> 0, "altas" -> 
        11, "fallecimientos" -> 2, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 194, "hospitalizados_uci" -> 22, "altas" -> 
        42, "fallecimientos" -> 38, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 78, "hospitalizados_uci" -> 18, "altas" -> 
        10, "fallecimientos" -> 9, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 125, "hospitalizados_uci" -> 16, "altas" -> 
        9, "fallecimientos" -> 6, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 49, "hospitalizados_uci" -> 10, "altas" -> 
        11, "fallecimientos" -> 6, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 88, "hospitalizados_uci" -> 7, "altas" -> 
        36, "fallecimientos" -> 21, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 14, "hospitalizados_uci" -> 0, "altas" -> 
        14, "fallecimientos" -> 3, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 114, "hospitalizados_uci" -> 20, "altas" -> 
        16, "fallecimientos" -> 12, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 49, "hospitalizados_uci" -> 10, "altas" -> 
        16, "fallecimientos" -> 8, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 82, "hospitalizados_uci" -> 7, "altas" -> 
        53, "fallecimientos" -> 27, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 170, "hospitalizados_uci" -> 48, "altas" -> 
        52, "fallecimientos" -> 24, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 21, "hospitalizados_uci" -> 0, "altas" -> 
        15, "fallecimientos" -> 3, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 245, "hospitalizados_uci" -> 32, "altas" -> 
        73, "fallecimientos" -> 54, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 181, "hospitalizados_uci" -> 22, "altas" -> 
        62, "fallecimientos" -> 37, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        80, "hospitalizados_uci" -> 14, "altas" -> 32, "fallecimientos" -> 16,
         "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 139, "hospitalizados_uci" -> 21, "altas" -> 
        24, "fallecimientos" -> 17, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 17, "hospitalizados_uci" -> 0, "altas" -> 
        5, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 20, "hospitalizados_uci" -> 0, "altas" -> 
        19, "fallecimientos" -> 6, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 171, "hospitalizados_uci" -> 27, "altas" -> 
        34, "fallecimientos" -> 22, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 128, "hospitalizados_uci" -> 11, "altas" -> 
        78, "fallecimientos" -> 38, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 337, "hospitalizados_uci" -> 32, "altas" -> 
        85, "fallecimientos" -> 63, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 209, "hospitalizados_uci" -> 34, "altas" -> 
        63, "fallecimientos" -> 18, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 333, "hospitalizados_uci" -> 47, "altas" -> 
        157, "fallecimientos" -> 99, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 211, "hospitalizados_uci" -> 42, "altas" -> 
        46, "fallecimientos" -> 28, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 96, "hospitalizados_uci" -> 12, "altas" -> 
        30, "fallecimientos" -> 18, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 22, "hospitalizados_uci" -> 0, "altas" -> 
        24, "fallecimientos" -> 7, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 45, "hospitalizados_uci" -> 0, "altas" -> 
        9, "fallecimientos" -> 10, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 374, "hospitalizados_uci" -> 43, "altas" -> 
        118, "fallecimientos" -> 81, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 87, "hospitalizados_uci" -> 11, "altas" -> 
        21, "fallecimientos" -> 8, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 226, "hospitalizados_uci" -> 37, "altas" -> 
        86, "fallecimientos" -> 33, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 22, "hospitalizados_uci" -> 0, "altas" -> 
        30, "fallecimientos" -> 8, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 368, "hospitalizados_uci" -> 44, "altas" -> 
        150, "fallecimientos" -> 91, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 115, "hospitalizados_uci" -> 21, "altas" -> 
        42, "fallecimientos" -> 18, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        118, "hospitalizados_uci" -> 19, "altas" -> 87, "fallecimientos" -> 
        44, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 28, "hospitalizados_uci" -> 0, "altas" -> 
        10, "fallecimientos" -> 4, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 240, "hospitalizados_uci" -> 39, "altas" -> 
        112, "fallecimientos" -> 39, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 100, "hospitalizados_uci" -> 14, "altas" -> 
        43, "fallecimientos" -> 23, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 179, "hospitalizados_uci" -> 55, "altas" -> 
        191, "fallecimientos" -> 51, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 42, "hospitalizados_uci" -> 0, "altas" -> 
        26, "fallecimientos" -> 16, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 95, "hospitalizados_uci" -> 13, "altas" -> 
        34, "fallecimientos" -> 11, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 308, "hospitalizados_uci" -> 23, "altas" -> 
        210, "fallecimientos" -> 81, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 97, "hospitalizados_uci" -> 14, "altas" -> 
        51, "fallecimientos" -> 25, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 24, "hospitalizados_uci" -> 0, "altas" -> 
        36, "fallecimientos" -> 10, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 79, "hospitalizados_uci" -> 12, "altas" -> 
        56, "fallecimientos" -> 18, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 37, "hospitalizados_uci" -> 0, "altas" -> 
        36, "fallecimientos" -> 20, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        155, "hospitalizados_uci" -> 20, "altas" -> 111, "fallecimientos" -> 
        49, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 25, "hospitalizados_uci" -> 0, "altas" -> 
        41, "fallecimientos" -> 11, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 39, "hospitalizados_uci" -> 0, "altas" -> 
        40, "fallecimientos" -> 21, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 316, "hospitalizados_uci" -> 39, "altas" -> 
        319, "fallecimientos" -> 137, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 109, "hospitalizados_uci" -> 19, "altas" -> 
        104, "fallecimientos" -> 31, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        137, "hospitalizados_uci" -> 19, "altas" -> 136, "fallecimientos" -> 
        52, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 248, "hospitalizados_uci" -> 52, "altas" -> 
        173, "fallecimientos" -> 60, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 157, "hospitalizados_uci" -> 51, "altas" -> 
        244, "fallecimientos" -> 58, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 70, "hospitalizados_uci" -> 11, "altas" -> 
        80, "fallecimientos" -> 22, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 361, "hospitalizados_uci" -> 56, "altas" -> 
        366, "fallecimientos" -> 194, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 155, "hospitalizados_uci" -> 53, "altas" -> 
        265, "fallecimientos" -> 69, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 26, "hospitalizados_uci" -> 0, "altas" -> 
        45, "fallecimientos" -> 13, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 251, "hospitalizados_uci" -> 39, "altas" -> 
        413, "fallecimientos" -> 162, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 118, "hospitalizados_uci" -> 19, "altas" -> 
        114, "fallecimientos" -> 39, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 239, "hospitalizados_uci" -> 22, "altas" -> 
        361, "fallecimientos" -> 109, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 103, "hospitalizados_uci" -> 12, "altas" -> 
        100, "fallecimientos" -> 38, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 179, "hospitalizados_uci" -> 13, "altas" -> 
        253, "fallecimientos" -> 83, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 68, "hospitalizados_uci" -> 11, "altas" -> 
        100, "fallecimientos" -> 26, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 228, "hospitalizados_uci" -> 24, "altas" -> 
        387, "fallecimientos" -> 115, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 239, "hospitalizados_uci" -> 50, "altas" -> 
        228, "fallecimientos" -> 77, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 24, "hospitalizados_uci" -> 1, "altas" -> 
        1, "fallecimientos" -> 1, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 5, "hospitalizados_uci" -> 1, "altas" -> 0,
         "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 44, "hospitalizados_uci" -> 4, "altas" -> 
        4, "fallecimientos" -> 8, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        15, "hospitalizados_uci" -> 5, "altas" -> 4, "fallecimientos" -> 4, 
        "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 2, "hospitalizados_uci" -> 0, "altas" -> 0,
         "fallecimientos" -> 0, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 71, "hospitalizados_uci" -> 5, "altas" -> 
        8, "fallecimientos" -> 12, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        23, "hospitalizados_uci" -> 6, "altas" -> 4, "fallecimientos" -> 5, 
        "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 71, "hospitalizados_uci" -> 26, "altas" -> 
        16, "fallecimientos" -> 11, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 7, "hospitalizados_uci" -> 0, "altas" -> 5,
         "fallecimientos" -> 0, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 13, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 1, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 19, "hospitalizados_uci" -> 3, "altas" -> 
        1, "fallecimientos" -> 0, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 46, "hospitalizados_uci" -> 9, "altas" -> 
        6, "fallecimientos" -> 10, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 2, "hospitalizados_uci" -> 0, "altas" -> 2,
         "fallecimientos" -> 1, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 33, "hospitalizados_uci" -> 8, "altas" -> 
        1, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 32, "hospitalizados_uci" -> 6, "altas" -> 
        2, "fallecimientos" -> 1, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 84, "hospitalizados_uci" -> 28, "altas" -> 
        20, "fallecimientos" -> 12, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 11, "hospitalizados_uci" -> 3, "altas" -> 
        0, "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 46, "hospitalizados_uci" -> 9, "altas" -> 
        9, "fallecimientos" -> 13, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        39, "hospitalizados_uci" -> 7, "altas" -> 5, "fallecimientos" -> 6, 
        "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 56, "hospitalizados_uci" -> 8, "altas" -> 
        6, "fallecimientos" -> 5, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 35, "hospitalizados_uci" -> 8, "altas" -> 
        3, "fallecimientos" -> 2, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 30, "hospitalizados_uci" -> 6, "altas" -> 
        2, "fallecimientos" -> 0, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 147, "hospitalizados_uci" -> 14, "altas" -> 
        20, "fallecimientos" -> 21, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 79, "hospitalizados_uci" -> 8, "altas" -> 
        14, "fallecimientos" -> 20, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 48, "hospitalizados_uci" -> 14, "altas" -> 
        5, "fallecimientos" -> 5, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 65, "hospitalizados_uci" -> 10, "altas" -> 
        7, "fallecimientos" -> 5, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 11, "hospitalizados_uci" -> 0, "altas" -> 
        8, "fallecimientos" -> 2, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 182, "hospitalizados_uci" -> 15, "altas" -> 
        22, "fallecimientos" -> 24, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 72, "hospitalizados_uci" -> 10, "altas" -> 
        24, "fallecimientos" -> 23, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 28, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 4, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 164, "hospitalizados_uci" -> 14, "altas" -> 
        20, "fallecimientos" -> 24, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 23, "hospitalizados_uci" -> 7, "altas" -> 
        1, "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 42, "hospitalizados_uci" -> 10, "altas" -> 
        5, "fallecimientos" -> 1, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 81, "hospitalizados_uci" -> 12, "altas" -> 
        32, "fallecimientos" -> 27, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        53, "hospitalizados_uci" -> 11, "altas" -> 14, "fallecimientos" -> 13,
         "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 149, "hospitalizados_uci" -> 48, "altas" -> 
        41, "fallecimientos" -> 20, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 225, "hospitalizados_uci" -> 21, "altas" -> 
        30, "fallecimientos" -> 31, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 43, "hospitalizados_uci" -> 7, "altas" -> 
        1, "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 218, "hospitalizados_uci" -> 27, "altas" -> 
        57, "fallecimientos" -> 46, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        61, "hospitalizados_uci" -> 14, "altas" -> 19, "fallecimientos" -> 14,
         "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 12, "hospitalizados_uci" -> 0, "altas" -> 
        5, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 36, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 5, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 241, "hospitalizados_uci" -> 25, "altas" -> 
        46, "fallecimientos" -> 44, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 57, "hospitalizados_uci" -> 7, "altas" -> 
        2, "fallecimientos" -> 2, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 68, "hospitalizados_uci" -> 14, "altas" -> 
        14, "fallecimientos" -> 5, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 42, "hospitalizados_uci" -> 0, "altas" -> 
        1, "fallecimientos" -> 5, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 68, "hospitalizados_uci" -> 8, "altas" -> 
        3, "fallecimientos" -> 2, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 273, "hospitalizados_uci" -> 33, "altas" -> 
        97, "fallecimientos" -> 70, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 185, "hospitalizados_uci" -> 25, "altas" -> 
        92, "fallecimientos" -> 44, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 195, "hospitalizados_uci" -> 33, "altas" -> 
        43, "fallecimientos" -> 15, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 191, "hospitalizados_uci" -> 49, "altas" -> 
        92, "fallecimientos" -> 30, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 48, "hospitalizados_uci" -> 0, "altas" -> 
        4, "fallecimientos" -> 6, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 341, "hospitalizados_uci" -> 40, "altas" -> 
        131, "fallecimientos" -> 84, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 19, "hospitalizados_uci" -> 1, "altas" -> 
        9, "fallecimientos" -> 3, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 87, "hospitalizados_uci" -> 11, "altas" -> 
        27, "fallecimientos" -> 16, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 204, "hospitalizados_uci" -> 52, "altas" -> 
        109, "fallecimientos" -> 34, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 48, "hospitalizados_uci" -> 0, "altas" -> 
        5, "fallecimientos" -> 8, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 83, "hospitalizados_uci" -> 10, "altas" -> 
        15, "fallecimientos" -> 5, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        120, "hospitalizados_uci" -> 20, "altas" -> 61, "fallecimientos" -> 
        30, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 196, "hospitalizados_uci" -> 52, "altas" -> 
        143, "fallecimientos" -> 44, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 112, "hospitalizados_uci" -> 19, "altas" -> 
        33, "fallecimientos" -> 18, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 319, "hospitalizados_uci" -> 51, "altas" -> 
        181, "fallecimientos" -> 110, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 312, "hospitalizados_uci" -> 23, "altas" -> 
        156, "fallecimientos" -> 69, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 216, "hospitalizados_uci" -> 44, "altas" -> 
        50, "fallecimientos" -> 30, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 43, "hospitalizados_uci" -> 0, "altas" -> 
        18, "fallecimientos" -> 13, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 96, "hospitalizados_uci" -> 11, "altas" -> 
        26, "fallecimientos" -> 9, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 348, "hospitalizados_uci" -> 53, "altas" -> 
        209, "fallecimientos" -> 123, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 26, "hospitalizados_uci" -> 0, "altas" -> 
        33, "fallecimientos" -> 10, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 379, "hospitalizados_uci" -> 42, "altas" -> 
        182, "fallecimientos" -> 97, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 351, "hospitalizados_uci" -> 54, "altas" -> 
        235, "fallecimientos" -> 135, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 231, "hospitalizados_uci" -> 53, "altas" -> 
        89, "fallecimientos" -> 37, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 192, "hospitalizados_uci" -> 42, "altas" -> 
        159, "fallecimientos" -> 47, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 161, "hospitalizados_uci" -> 16, "altas" -> 
        151, "fallecimientos" -> 64, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 39, "hospitalizados_uci" -> 0, "altas" -> 
        32, "fallecimientos" -> 19, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 317, "hospitalizados_uci" -> 24, "altas" -> 
        235, "fallecimientos" -> 88, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        154, "hospitalizados_uci" -> 22, "altas" -> 95, "fallecimientos" -> 
        46, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 101, "hospitalizados_uci" -> 15, "altas" -> 
        61, "fallecimientos" -> 28, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 176, "hospitalizados_uci" -> 15, "altas" -> 
        170, "fallecimientos" -> 66, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 176, "hospitalizados_uci" -> 54, "altas" -> 
        222, "fallecimientos" -> 61, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 104, "hospitalizados_uci" -> 18, "altas" -> 
        85, "fallecimientos" -> 29, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 244, "hospitalizados_uci" -> 52, "altas" -> 
        140, "fallecimientos" -> 53, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 33, "hospitalizados_uci" -> 0, "altas" -> 
        19, "fallecimientos" -> 6, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 169, "hospitalizados_uci" -> 51, "altas" -> 
        222, "fallecimientos" -> 55, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 67, "hospitalizados_uci" -> 11, "altas" -> 
        79, "fallecimientos" -> 22, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 33, "hospitalizados_uci" -> 0, "altas" -> 
        22, "fallecimientos" -> 7, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 112, "hospitalizados_uci" -> 12, "altas" -> 
        83, "fallecimientos" -> 35, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 187, "hospitalizados_uci" -> 15, "altas" -> 
        214, "fallecimientos" -> 73, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 156, "hospitalizados_uci" -> 53, "altas" -> 
        254, "fallecimientos" -> 65, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 25, "hospitalizados_uci" -> 0, "altas" -> 
        43, "fallecimientos" -> 11, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 110, "hospitalizados_uci" -> 19, "altas" -> 
        111, "fallecimientos" -> 36, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 241, "hospitalizados_uci" -> 22, "altas" -> 
        340, "fallecimientos" -> 107, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 246, "hospitalizados_uci" -> 52, "altas" -> 
        186, "fallecimientos" -> 65, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 38, "hospitalizados_uci" -> 0, "altas" -> 
        23, "fallecimientos" -> 8, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 162, "hospitalizados_uci" -> 48, "altas" -> 
        256, "fallecimientos" -> 60, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 108, "hospitalizados_uci" -> 12, "altas" -> 
        93, "fallecimientos" -> 37, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 197, "hospitalizados_uci" -> 13, "altas" -> 
        225, "fallecimientos" -> 79, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 72, "hospitalizados_uci" -> 11, "altas" -> 
        85, "fallecimientos" -> 24, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 352, "hospitalizados_uci" -> 53, "altas" -> 
        402, "fallecimientos" -> 209, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        114, "hospitalizados_uci" -> 21, "altas" -> 164, "fallecimientos" -> 
        64, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 258, "hospitalizados_uci" -> 53, "altas" -> 
        195, "fallecimientos" -> 73, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 161, "hospitalizados_uci" -> 49, "altas" -> 
        266, "fallecimientos" -> 63, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 151, "hospitalizados_uci" -> 53, "altas" -> 
        284, "fallecimientos" -> 71, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 28, "hospitalizados_uci" -> 0, "altas" -> 
        48, "fallecimientos" -> 14, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 36, "hospitalizados_uci" -> 0, "altas" -> 
        55, "fallecimientos" -> 35, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 214, "hospitalizados_uci" -> 41, "altas" -> 
        464, "fallecimientos" -> 170, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 108, "hospitalizados_uci" -> 18, "altas" -> 
        126, "fallecimientos" -> 41, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 341, "hospitalizados_uci" -> 50, "altas" -> 
        439, "fallecimientos" -> 217, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        113, "hospitalizados_uci" -> 21, "altas" -> 172, "fallecimientos" -> 
        64, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 36, "hospitalizados_uci" -> 1, "altas" -> 
        30, "fallecimientos" -> 10, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 8, "hospitalizados_uci" -> 0, "altas" -> 0,
         "fallecimientos" -> 0, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 53, "hospitalizados_uci" -> 19, "altas" -> 
        9, "fallecimientos" -> 5, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 7, "hospitalizados_uci" -> 1, "altas" -> 1,
         "fallecimientos" -> 0, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 34, "hospitalizados_uci" -> 5, "altas" -> 
        3, "fallecimientos" -> 6, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 7, "hospitalizados_uci" -> 0, "altas" -> 0,
         "fallecimientos" -> 0, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 8, "hospitalizados_uci" -> 1, "altas" -> 0,
         "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 50, "hospitalizados_uci" -> 6, "altas" -> 
        3, "fallecimientos" -> 7, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 24, "hospitalizados_uci" -> 6, "altas" -> 
        0, "fallecimientos" -> 1, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 40, "hospitalizados_uci" -> 3, "altas" -> 
        4, "fallecimientos" -> 4, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 10, "hospitalizados_uci" -> 1, "altas" -> 
        0, "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        29, "hospitalizados_uci" -> 7, "altas" -> 4, "fallecimientos" -> 5, 
        "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 41, "hospitalizados_uci" -> 9, "altas" -> 
        0, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 7, "hospitalizados_uci" -> 0, "altas" -> 7,
         "fallecimientos" -> 1, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 17, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 1, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 67, "hospitalizados_uci" -> 9, "altas" -> 
        3, "fallecimientos" -> 7, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 25, "hospitalizados_uci" -> 5, "altas" -> 
        2, "fallecimientos" -> 0, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 4, "hospitalizados_uci" -> 0, "altas" -> 3,
         "fallecimientos" -> 1, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 59, "hospitalizados_uci" -> 4, "altas" -> 
        16, "fallecimientos" -> 9, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Burgos", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 95, "hospitalizados_uci" -> 30, "altas" -> 
        20, "fallecimientos" -> 13, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario de Le\[OAcute]n", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 93, "hospitalizados_uci" -> 10, "altas" -> 
        10, "fallecimientos" -> 14, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        39, "hospitalizados_uci" -> 8, "altas" -> 8, "fallecimientos" -> 8, 
        "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 6, "hospitalizados_uci" -> 0, "altas" -> 3,
         "fallecimientos" -> 1, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 83, "hospitalizados_uci" -> 4, "altas" -> 
        17, "fallecimientos" -> 10, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 16, "hospitalizados_uci" -> 6, "altas" -> 
        0, "fallecimientos" -> 0, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 43, "hospitalizados_uci" -> 10, "altas" -> 
        5, "fallecimientos" -> 4, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 10, "hospitalizados_uci" -> 0, "altas" -> 
        5, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 30, "hospitalizados_uci" -> 0, "altas" -> 
        0, "fallecimientos" -> 5, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 56, "hospitalizados_uci" -> 14, "altas" -> 
        11, "fallecimientos" -> 3, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 90, "hospitalizados_uci" -> 14, "altas" -> 
        47, "fallecimientos" -> 34, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 164, "hospitalizados_uci" -> 20, "altas" -> 
        15, "fallecimientos" -> 7, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 176, "hospitalizados_uci" -> 27, "altas" -> 
        21, "fallecimientos" -> 8, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 50, "hospitalizados_uci" -> 11, "altas" -> 
        24, "fallecimientos" -> 9, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 137, "hospitalizados_uci" -> 9, "altas" -> 
        63, "fallecimientos" -> 33, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 181, "hospitalizados_uci" -> 49, "altas" -> 
        75, "fallecimientos" -> 28, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 300, "hospitalizados_uci" -> 26, "altas" -> 
        66, "fallecimientos" -> 53, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 73, "hospitalizados_uci" -> 14, "altas" -> 
        20, "fallecimientos" -> 9, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        91, "hospitalizados_uci" -> 13, "altas" -> 39, "fallecimientos" -> 20,
         "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 19, "hospitalizados_uci" -> 0, "altas" -> 
        6, "fallecimientos" -> 2, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 59, "hospitalizados_uci" -> 12, "altas" -> 
        27, "fallecimientos" -> 12, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 21, "hospitalizados_uci" -> 0, "altas" -> 
        21, "fallecimientos" -> 6, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 70, "hospitalizados_uci" -> 8, "altas" -> 
        14, "fallecimientos" -> 4, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 82, "hospitalizados_uci" -> 14, "altas" -> 
        26, "fallecimientos" -> 11, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 297, "hospitalizados_uci" -> 22, "altas" -> 
        111, "fallecimientos" -> 51, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        105, "hospitalizados_uci" -> 17, "altas" -> 49, "fallecimientos" -> 
        26, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 195, "hospitalizados_uci" -> 39, "altas" -> 
        42, "fallecimientos" -> 24, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 133, "hospitalizados_uci" -> 12, "altas" -> 
        82, "fallecimientos" -> 41, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 22, "hospitalizados_uci" -> 0, "altas" -> 
        23, "fallecimientos" -> 7, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 366, "hospitalizados_uci" -> 34, "altas" -> 
        103, "fallecimientos" -> 72, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 102, "hospitalizados_uci" -> 17, "altas" -> 
        28, "fallecimientos" -> 13, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 292, "hospitalizados_uci" -> 23, "altas" -> 
        131, "fallecimientos" -> 58, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 18, "hospitalizados_uci" -> 1, "altas" -> 
        9, "fallecimientos" -> 3, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 205, "hospitalizados_uci" -> 37, "altas" -> 
        72, "fallecimientos" -> 26, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 133, "hospitalizados_uci" -> 12, "altas" -> 
        91, "fallecimientos" -> 46, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        112, "hospitalizados_uci" -> 19, "altas" -> 71, "fallecimientos" -> 
        37, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 23, "hospitalizados_uci" -> 1, "altas" -> 
        9, "fallecimientos" -> 3, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 99, "hospitalizados_uci" -> 14, "altas" -> 
        36, "fallecimientos" -> 20, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 144, "hospitalizados_uci" -> 16, "altas" -> 
        111, "fallecimientos" -> 54, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 185, "hospitalizados_uci" -> 55, "altas" -> 
        167, "fallecimientos" -> 48, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 310, "hospitalizados_uci" -> 23, "altas" -> 
        189, "fallecimientos" -> 77, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 230, "hospitalizados_uci" -> 50, "altas" -> 
        65, "fallecimientos" -> 34, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 164, "hospitalizados_uci" -> 17, "altas" -> 
        132, "fallecimientos" -> 59, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 120, "hospitalizados_uci" -> 20, "altas" -> 
        52, "fallecimientos" -> 23, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        148, "hospitalizados_uci" -> 20, "altas" -> 90, "fallecimientos" -> 
        44, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 24, "hospitalizados_uci" -> 0, "altas" -> 
        14, "fallecimientos" -> 5, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 175, "hospitalizados_uci" -> 55, "altas" -> 
        209, "fallecimientos" -> 57, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 379, "hospitalizados_uci" -> 40, "altas" -> 
        220, "fallecimientos" -> 109, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Palencia", 
        "provincia" -> Entity["City", {"Palencia", "Palencia", "Spain"}], 
        "hospitalizados_planta" -> 129, "hospitalizados_uci" -> 20, "altas" -> 
        59, "fallecimientos" -> 24, "codigo_ine" -> 34120], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 358, "hospitalizados_uci" -> 53, "altas" -> 
        272, "fallecimientos" -> 155, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 231, "hospitalizados_uci" -> 50, "altas" -> 
        120, "fallecimientos" -> 48, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 31, "hospitalizados_uci" -> 0, "altas" -> 
        17, "fallecimientos" -> 6, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 180, "hospitalizados_uci" -> 46, "altas" -> 
        196, "fallecimientos" -> 51, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santiago Ap\[OAcute]stol", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 26, "hospitalizados_uci" -> 0, "altas" -> 
        38, "fallecimientos" -> 11, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 353, "hospitalizados_uci" -> 38, "altas" -> 
        267, "fallecimientos" -> 123, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital El Bierzo", "provincia" -> 
        Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 68, "hospitalizados_uci" -> 11, "altas" -> 
        72, "fallecimientos" -> 21, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 382, "hospitalizados_uci" -> 54, "altas" -> 
        301, "fallecimientos" -> 167, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 290, "hospitalizados_uci" -> 24, "altas" -> 
        271, "fallecimientos" -> 95, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 103, "hospitalizados_uci" -> 11, "altas" -> 
        67, "fallecimientos" -> 30, "codigo_ine" -> 49275], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de \[CapitalAAcute]vila", 
        "provincia" -> Missing["Unrecognized", "\[CapitalATilde]\.81vila"], 
        "hospitalizados_planta" -> 178, "hospitalizados_uci" -> 15, "altas" -> 
        205, "fallecimientos" -> 69, "codigo_ine" -> 5019], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Burgos", 
        "provincia" -> Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 167, "hospitalizados_uci" -> 55, "altas" -> 
        242, "fallecimientos" -> 64, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Salamanca", 
        "provincia" -> Entity["City", {"Salamanca", "Salamanca", "Spain"}], 
        "hospitalizados_planta" -> 372, "hospitalizados_uci" -> 55, "altas" -> 
        332, "fallecimientos" -> 178, "codigo_ine" -> 37274], 
       Association[
       "fecha" -> DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Segovia", "provincia" -> 
        Entity["City", {"Segovia", "Segovia", "Spain"}], 
        "hospitalizados_planta" -> 263, "hospitalizados_uci" -> 23, "altas" -> 
        311, "fallecimientos" -> 102, "codigo_ine" -> 40004], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 41, "hospitalizados_uci" -> 0, "altas" -> 
        46, "fallecimientos" -> 27, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial Universitario de Le\[OAcute]n", 
        "provincia" -> Missing["Unrecognized", "Le\[CapitalATilde]\.b3n"], 
        "hospitalizados_planta" -> 278, "hospitalizados_uci" -> 40, "altas" -> 
        372, "fallecimientos" -> 153, "codigo_ine" -> 24089], 
       Association[
       "fecha" -> DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Soria", "provincia" -> 
        Entity["City", {"Soria", "Soria", "Spain"}], "hospitalizados_planta" -> 
        137, "hospitalizados_uci" -> 20, "altas" -> 149, "fallecimientos" -> 
        61, "codigo_ine" -> 42173], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Santos Reyes", "provincia" -> 
        Entity["City", {"Burgos", "Burgos", "Spain"}], 
        "hospitalizados_planta" -> 40, "hospitalizados_uci" -> 0, "altas" -> 
        50, "fallecimientos" -> 31, "codigo_ine" -> 9059], 
       Association[
       "fecha" -> DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital de Medina del Campo", "provincia" -> 
        Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 37, "hospitalizados_uci" -> 1, "altas" -> 
        26, "fallecimientos" -> 9, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Hospital Universitario R\[IAcute]o Hortega", 
        "provincia" -> Entity["City", {"Valladolid", "Valladolid", "Spain"}], 
        "hospitalizados_planta" -> 148, "hospitalizados_uci" -> 48, "altas" -> 
        295, "fallecimientos" -> 66, "codigo_ine" -> 47186], 
       Association[
       "fecha" -> DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.], 
        "hospital" -> "Complejo Asistencial de Zamora", "provincia" -> 
        Entity["City", {"Zamora", "Zamora", "Spain"}], 
        "hospitalizados_planta" -> 103, "hospitalizados_uci" -> 12, "altas" -> 
        107, "fallecimientos" -> 39, "codigo_ine" -> 49275]}, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[
       Association[{All, "fecha"} -> 1, {All, "hospital"} -> 
        1, {All, "provincia"} -> 1, {All, "hospitalizados_planta"} -> 
        1, {All, "hospitalizados_uci"} -> 1, {All, "altas"} -> 
        1, {All, "fallecimientos"} -> 1, {All, "codigo_ine"} -> 1], 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[
           Association[
           "fecha" -> TypeSystem`PackageScope`AtomShape[75], "hospital" -> 
            TypeSystem`PackageScope`AtomShape[451.20000000000005`], 
            "provincia" -> TypeSystem`PackageScope`AtomShape[90], 
            "hospitalizados_planta" -> TypeSystem`PackageScope`AtomShape[34], 
            "hospitalizados_uci" -> TypeSystem`PackageScope`AtomShape[34], 
            "altas" -> TypeSystem`PackageScope`AtomShape[34], 
            "fallecimientos" -> TypeSystem`PackageScope`AtomShape[34], 
            "codigo_ine" -> TypeSystem`PackageScope`AtomShape[34]]], 
          DirectedInfinity[1], 8, {All}]], 20, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{
        "fecha", "hospital", "provincia", "hospitalizados_planta", 
         "hospitalizados_uci", "altas", "fallecimientos", "codigo_ine"}, {
         TypeSystem`Atom[DateObject], 
         TypeSystem`Atom[String], 
         TypeSystem`Atom[
          Entity["City"]], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer]}], 294], "Meta" -> 
     Association["ID" -> 224137361108550], "RowTarget" -> 20, "ColumnTarget" -> 
     10, "Shape" -> TypeSystem`PackageScope`HeaderShape[
       Association[{All, "fecha"} -> 1, {All, "hospital"} -> 
        1, {All, "provincia"} -> 1, {All, "hospitalizados_planta"} -> 
        1, {All, "hospitalizados_uci"} -> 1, {All, "altas"} -> 
        1, {All, "fallecimientos"} -> 1, {All, "codigo_ine"} -> 1], 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[
           Association[
           "fecha" -> TypeSystem`PackageScope`AtomShape[75], "hospital" -> 
            TypeSystem`PackageScope`AtomShape[451.20000000000005`], 
            "provincia" -> TypeSystem`PackageScope`AtomShape[90], 
            "hospitalizados_planta" -> TypeSystem`PackageScope`AtomShape[34], 
            "hospitalizados_uci" -> TypeSystem`PackageScope`AtomShape[34], 
            "altas" -> TypeSystem`PackageScope`AtomShape[34], 
            "fallecimientos" -> TypeSystem`PackageScope`AtomShape[34], 
            "codigo_ine" -> TypeSystem`PackageScope`AtomShape[34]]], 
          DirectedInfinity[1], 8, {All}]], 20, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{
        "fecha", "hospital", "provincia", "hospitalizados_planta", 
         "hospitalizados_uci", "altas", "fallecimientos", "codigo_ine"}, {
         TypeSystem`Atom[DateObject], 
         TypeSystem`Atom[String], 
         TypeSystem`Atom[
          Entity["City"]], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer]}], 294], "Path" -> {}, "BaseIndices" -> {}, 
     "DisplayedRowCount" -> 20, "DisplayedColumnCount" -> 8, "DataRowCount" -> 
     294, "DataColumnCount" -> 8, "SortPaths" -> {}, "SortDirections" -> {}, 
     "HiddenItemsMap" -> Null, "UpdateType" -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["fecha", 
                    Style[
                    "fecha", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "fecha"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "fecha"}, "ColumnHeader", True], "Mouse"], " ", ""}], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["hospital", 
                    Style[
                    "hospital", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "hospital"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "hospital"}, "ColumnHeader", True], "Mouse"], " ", 
                ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["provincia", 
                    Style[
                    "provincia", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "provincia"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "provincia"}, "ColumnHeader", True], "Mouse"], " ", 
                ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["hospitalizados_planta", 
                    Style[
                    "hospitalizados_planta", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "hospitalizados_planta"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "hospitalizados_planta"}, "ColumnHeader", True], 
                 "Mouse"], " ", ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["hospitalizados_uci", 
                    Style[
                    "hospitalizados_uci", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "hospitalizados_uci"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "hospitalizados_uci"}, "ColumnHeader", True], "Mouse"],
                 " ", ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["altas", 
                    Style[
                    "altas", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "altas"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "altas"}, "ColumnHeader", True], "Mouse"], " ", ""}], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["fallecimientos", 
                    Style[
                    "fallecimientos", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "fallecimientos"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "fallecimientos"}, "ColumnHeader", True], "Mouse"], 
                " ", ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["codigo_ine", 
                    Style[
                    "codigo_ine", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "codigo_ine"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "codigo_ine"}, "ColumnHeader", True], "Mouse"], " ", 
                ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Wed 18 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Santiago Ap\[OAcute]stol", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Burgos\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9059"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Wed 18 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Universitario de Le\[OAcute]n", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               Style["-", 
                GrayLevel[0.85]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["32"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["24089"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Wed 18 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
              "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Valladolid\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["47186"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Wed 18 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Universitario R\[IAcute]o Hortega", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Valladolid\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["16"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["47186"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Wed 18 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial de Zamora", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Zamora\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["49275"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial de \[CapitalAAcute]vila", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               Style["-", 
                GrayLevel[0.85]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["25"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5019"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Santiago Ap\[OAcute]stol", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Burgos\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9059"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Universitario de Burgos", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Burgos\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["61"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["22"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["10"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9059"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Universitario de Le\[OAcute]n", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               Style["-", 
                GrayLevel[0.85]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["36"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["7"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["24089"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial Universitario de Palencia", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Palencia\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["34120"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
              "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Valladolid\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["29"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["47186"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital de Medina del Campo", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Valladolid\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["47186"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial de Zamora", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Zamora\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["49275"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Fri 20 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Universitario de Le\[OAcute]n", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               Style["-", 
                GrayLevel[0.85]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["53"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["24089"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Fri 20 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial Universitario de Salamanca", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Salamanca\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["94"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["7"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["10"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["13"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["37274"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Sat 21 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial de \[CapitalAAcute]vila", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               Style["-", 
                GrayLevel[0.85]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["49"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["14"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["7"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5019"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Sat 21 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Complejo Asistencial Universitario de Salamanca", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Salamanca\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["121"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["12"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["13"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["37274"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Sat 21 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
              "Hospital Cl\[IAcute]nico Universitario de Valladolid", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Valladolid\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["42"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["13"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["47186"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Sun 22 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Santiago Ap\[OAcute]stol", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Burgos\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["10"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9059"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Sun 22 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["fecha"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hospital Santos Reyes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["hospital"]}, "Item", False], "Mouse"], 
              ImageSize -> {{451.20000000000005`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["\"Burgos\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["provincia"]}, "Item", False], "Mouse"], 
              ImageSize -> {{90, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["18"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9059"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["codigo_ine"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Deploy[
              Pane[
               Row[{
                 Spacer[2], 
                 Style[
                  Row[{
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ - 20 
                    If[True, 294, 1], {1, 294 - -20 + 1}], Appearance -> 
                    None], 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ - 20 
                    If[False, 294, 1], {1, 294 - -20 + 1}], Appearance -> 
                    None], " ", 
                    Style[
                    Mouseover[
                    Row[{"rows ", 1, "\[Dash]", 20, " of ", 
                    Style[
                    294, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, 
                    BaseStyle -> {
                    FontSize -> 8., FontColor -> 
                    RGBColor[
                    0.5098039215686274, 0.5098039215686274, 
                    0.5098039215686274]}], 
                    Row[{"rows ", 1, "\[Dash]", 20, " of ", 
                    Style[
                    294, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, 
                    BaseStyle -> {
                    FontSize -> 8., FontColor -> 
                    RGBColor[
                    0.5098039215686274, 0.5098039215686274, 
                    0.5098039215686274]}]], ContextMenu -> {
                    MenuItem["Hide", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 1, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 10 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 10, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 30 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 30, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 100 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 100, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show All", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 100000000, {}]], MenuEvaluator -> Automatic]}], 
                    " ", 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, {
                    9, 9}]}, ImageSize -> (1 -> 1), 
                    ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> 
                    Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, {
                    9, 9}]}, ImageSize -> (1 -> 1), 
                    ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> 
                    Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 
                    20 If[False, 294, 1], {1, 294 - 20 + 1}], Appearance -> 
                    None], 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 
                    20 If[True, 294, 1], {1, 294 - 20 + 1}], Appearance -> 
                    None]}], ContextMenu -> {}], 
                 Graphics[{
                   RGBColor[
                   0.8196078431372549, 0.8196078431372549, 
                    0.8196078431372549], 
                   Line[{{0, 0}, {0, 19}}]}, ImageSize -> (1 -> 1), 
                  ImagePadding -> {{0, 0}, {0, 0}}, BaselinePosition -> 
                  Scaled[0.35]]}], ImageMargins -> {{0, -1}, {-1, 1}}]], 
             Background -> 
             RGBColor[
              0.9764705882352941, 0.9764705882352941, 0.9764705882352941], 
             Alignment -> {Left, Top}], SpanFromLeft, SpanFromLeft, 
            SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, 
            SpanFromLeft}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    StringJoin["Show ", 
                    Which[
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    ToString[
                    ReplaceAll[
                    Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], Key[
                    Pattern[TypeSystem`NestedGrid`PackagePrivate`x, 
                    Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""]], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    StringJoin["Hide ", 
                    Which[
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    ToString[
                    ReplaceAll[
                    Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], Key[
                    Pattern[TypeSystem`NestedGrid`PackagePrivate`x, 
                    Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""]], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic]}]]]]], FontFamily -> 
            "Verdana", FontSize -> 12}, Spacings -> {0, 0}, Alignment -> Left,
           Dividers -> All, FrameStyle -> GrayLevel[0.7490196078431373], 
          BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
         LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, 
         ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         If[GeneralUtilities`$DebugMode, 
          Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
            TypeSystem`NestedGrid`PackagePrivate`formatState[
            TypeSystem`NestedGrid`PackagePrivate`$state$$, 
             TypeSystem`NestedGrid`PackagePrivate`$path$$, 
             TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
             TypeSystem`NestedGrid`PackagePrivate`$hPos$$]}], 
          TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[
     Framed[
      Dynamic[
       Replace[
       TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
        TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
           Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
           Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
            Blank[]]] :> (
          Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
           TypeSystem`NestedGrid`PackagePrivate`path$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
           TypeSystem`NestedGrid`PackagePrivate`pathType$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
           TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
           TypeSystem`NestedGrid`PackagePrivate`localHold[
            TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
          TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
           TypeSystem`NestedGrid`PackagePrivate`path$, 
            TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
         Spacer[10], Blank[] :> Spacer[10]}], 
       TrackedSymbols :> {
        TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], FrameStyle -> 
      None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, 
      ImageSize -> {Automatic, 15}], FontSize -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       1, "Path" -> TypeSystem`NestedGrid`PackagePrivate`$path$$, "Grid" -> 
        TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[
         TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        TypeSystem`NestedGrid`PackagePrivate`$state$$, "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        TypeSystem`NestedGrid`PackagePrivate`$topBar$$, "BottomBar" -> 
        TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[
         TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]], StandardForm],
      ImageSizeCache->{1459., {392.5, 400.5}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{1459., {392.5, 400.5}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>
     Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]; 
      Needs["Dataset`"]; 
      TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = CreateUUID[]],
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.7950837709638634`*^9, 3.7950850060565658`*^9, 
  3.795093295843504*^9, 3.7951467716690865`*^9, 3.7951520375524483`*^9, 
  3.7951536351053066`*^9, 3.7951562811634097`*^9, 3.795157204204181*^9, 
  3.7952306924502134`*^9, 3.7952448064033957`*^9, 3.795262329939793*^9, 
  3.7953154447480493`*^9, 3.7953154944092226`*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"4af868b7-9124-473b-8009-abe8608f448d"]
}, Open  ]],

Cell["\<\
Sumamos los totales por d\[IAcute]a y mostramos la informaci\[OAcute]n que \
nos interesa\
\>", "Item",
 CellChangeTimes->{{3.795146893014333*^9, 3.7951469126313286`*^9}, {
  3.795315505655513*^9, 
  3.795315522083269*^9}},ExpressionUUID->"3b3adb0a-f0ce-46b4-a2b8-\
8e63d28cf68e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datosHospitalesCL1", "=", 
   RowBox[{"GroupBy", "[", 
    RowBox[{"datosHospitalesCL", ",", "First", ",", "Total"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.7950851751843014`*^9, {3.7950855429397583`*^9, 3.7950855715103955`*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"33b40183-6caf-4065-bba1-6dbb8ee233ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datosHospitalesCL2", "=", 
  RowBox[{"datosHospitalesCL1", "[", 
   RowBox[{"All", ",", 
    RowBox[{"4", ";;", "7"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7950855852752705`*^9, 3.795085616304172*^9}, {
  3.795085656070853*^9, 3.7950856987462425`*^9}, {3.7950857373434734`*^9, 
  3.7950857412713313`*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"899ad48c-dfdc-4898-9ac6-59168e4878cc"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
    Association[
    "InitialData" -> 
     Association[
      DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 281, "hospitalizados_uci" -> 54, "altas" -> 
         27, "fallecimientos" -> 29], 
       DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 370, "hospitalizados_uci" -> 69, "altas" -> 
         37, "fallecimientos" -> 43], 
       DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 490, "hospitalizados_uci" -> 85, "altas" -> 
         54, "fallecimientos" -> 55], 
       DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 603, "hospitalizados_uci" -> 106, "altas" -> 
         89, "fallecimientos" -> 74], 
       DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 740, "hospitalizados_uci" -> 120, "altas" -> 
         117, "fallecimientos" -> 102], 
       DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 920, "hospitalizados_uci" -> 137, "altas" -> 
         140, "fallecimientos" -> 124], 
       DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 1074, "hospitalizados_uci" -> 170, "altas" -> 
         213, "fallecimientos" -> 165], 
       DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 1313, "hospitalizados_uci" -> 202, "altas" -> 
         308, "fallecimientos" -> 206], 
       DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 1563, "hospitalizados_uci" -> 228, "altas" -> 
         423, "fallecimientos" -> 253], 
       DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 1814, "hospitalizados_uci" -> 249, "altas" -> 
         585, "fallecimientos" -> 321], 
       DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2130, "hospitalizados_uci" -> 278, "altas" -> 
         752, "fallecimientos" -> 380], 
       DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2233, "hospitalizados_uci" -> 307, "altas" -> 
         871, "fallecimientos" -> 442], 
       DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2276, "hospitalizados_uci" -> 326, "altas" -> 
         1028, "fallecimientos" -> 516], 
       DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2347, "hospitalizados_uci" -> 345, "altas" -> 
         1259, "fallecimientos" -> 585], 
       DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2356, "hospitalizados_uci" -> 353, "altas" -> 
         1498, "fallecimientos" -> 641], 
       DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2358, "hospitalizados_uci" -> 353, "altas" -> 
         1759, "fallecimientos" -> 723], 
       DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2316, "hospitalizados_uci" -> 348, "altas" -> 
         2021, "fallecimientos" -> 786], 
       DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2223, "hospitalizados_uci" -> 351, "altas" -> 
         2331, "fallecimientos" -> 847], 
       DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2160, "hospitalizados_uci" -> 348, "altas" -> 
         2533, "fallecimientos" -> 919], 
       DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 2123, "hospitalizados_uci" -> 346, "altas" -> 
         2711, "fallecimientos" -> 982], 
       DateObject[{2020, 4, 7}, "Day", "Gregorian", 2.] -> 
       Association[
        "hospitalizados_planta" -> 1992, "hospitalizados_uci" -> 342, "altas" -> 
         2988, "fallecimientos" -> 1028]], "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[
       Association[{All, 
          TypeSystem`PackageScope`KeyDummy[1]} -> 
        1, {All, "hospitalizados_planta"} -> 1, {All, "hospitalizados_uci"} -> 
        1, {All, "altas"} -> 1, {All, "fallecimientos"} -> 1], 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`KeyValueShape[
          TypeSystem`PackageScope`AtomShape[75], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`RowShape[
            Association[
            "hospitalizados_planta" -> TypeSystem`PackageScope`AtomShape[34], 
             "hospitalizados_uci" -> TypeSystem`PackageScope`AtomShape[34], 
             "altas" -> TypeSystem`PackageScope`AtomShape[34], 
             "fallecimientos" -> TypeSystem`PackageScope`AtomShape[34]]], 
           DirectedInfinity[1], 4, {All}]]], 20, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Assoc[
       TypeSystem`Atom[DateObject], 
       TypeSystem`Struct[{
        "hospitalizados_planta", "hospitalizados_uci", "altas", 
         "fallecimientos"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer]}], 21], "Meta" -> 
     Association["ID" -> 224145951043196], "RowTarget" -> 20, "ColumnTarget" -> 
     10, "Shape" -> TypeSystem`PackageScope`HeaderShape[
       Association[{All, 
          TypeSystem`PackageScope`KeyDummy[1]} -> 
        1, {All, "hospitalizados_planta"} -> 1, {All, "hospitalizados_uci"} -> 
        1, {All, "altas"} -> 1, {All, "fallecimientos"} -> 1], 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`KeyValueShape[
          TypeSystem`PackageScope`AtomShape[75], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`RowShape[
            Association[
            "hospitalizados_planta" -> TypeSystem`PackageScope`AtomShape[34], 
             "hospitalizados_uci" -> TypeSystem`PackageScope`AtomShape[34], 
             "altas" -> TypeSystem`PackageScope`AtomShape[34], 
             "fallecimientos" -> TypeSystem`PackageScope`AtomShape[34]]], 
           DirectedInfinity[1], 4, {All}]]], 20, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Assoc[
       TypeSystem`Atom[DateObject], 
       TypeSystem`Struct[{
        "hospitalizados_planta", "hospitalizados_uci", "altas", 
         "fallecimientos"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer]}], 21], "Path" -> {}, "BaseIndices" -> {}, 
     "DisplayedRowCount" -> 20, "DisplayedColumnCount" -> 4, "DataRowCount" -> 
     21, "DataColumnCount" -> 4, "SortPaths" -> {}, "SortDirections" -> {}, 
     "HiddenItemsMap" -> Null, "UpdateType" -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 2, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               Mouseover[
                
                Graphics[{}, ImageSize -> 6, BaselinePosition -> 
                 Scaled[-0.15]], 
                Graphics[{
                  GrayLevel[0.6], 
                  
                  Polygon[{{2^Rational[-1, 2], -2^Rational[-1, 2]}, {
                    2^Rational[-1, 2], 2^
                    Rational[-1, 2]}, {-2^Rational[-1, 2], 2^
                    Rational[-1, 2]}, {-2^Rational[-1, 2], -2^
                    Rational[-1, 2]}}]}, ImageSize -> 6, BaselinePosition -> 
                 Scaled[-0.15]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, Keys}, "KeyDummy", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["hospitalizados_planta", 
                    Style[
                    "hospitalizados_planta", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "hospitalizados_planta"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "hospitalizados_planta"}, "ColumnHeader", True], 
                 "Mouse"], " ", ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["hospitalizados_uci", 
                    Style[
                    "hospitalizados_uci", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "hospitalizados_uci"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "hospitalizados_uci"}, "ColumnHeader", True], "Mouse"],
                 " ", ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["altas", 
                    Style[
                    "altas", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "altas"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "altas"}, "ColumnHeader", True], "Mouse"], " ", ""}], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Row[{
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover["fallecimientos", 
                    Style[
                    "fallecimientos", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                    All, "fallecimientos"}, 1]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                  TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                  All, "fallecimientos"}, "ColumnHeader", True], "Mouse"], 
                " ", ""}], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Wed 18 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Wed 18 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["281"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["54"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["27"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["29"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 18}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Thu 19 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Thu 19 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["370"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["69"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["37"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["43"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 19}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Fri 20 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Fri 20 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["490"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["85"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["54"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["55"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 20}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Sat 21 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Sat 21 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["603"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["106"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["89"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["74"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 21}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Sun 22 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Sun 22 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["740"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["120"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["117"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["102"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 22}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Mon 23 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Mon 23 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["920"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["137"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["140"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["124"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 23}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Tue 24 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Tue 24 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1074"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["170"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["213"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["165"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 24}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Wed 25 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Wed 25 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1313"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["202"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["308"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["206"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 25}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Thu 26 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Thu 26 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1563"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["228"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["423"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["253"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 26}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Fri 27 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Fri 27 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1814"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["249"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["585"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["321"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 27}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Sat 28 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Sat 28 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2130"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["278"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["752"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["380"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 28}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Sun 29 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Sun 29 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2233"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["307"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["871"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["442"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 29}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Mon 30 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Mon 30 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2276"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["326"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1028"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["516"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 30}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Tue 31 Mar 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Tue 31 Mar 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2347"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["345"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1259"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["585"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 3, 31}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Wed 1 Apr 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Wed 1 Apr 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2356"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["353"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1498"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["641"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 1}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Thu 2 Apr 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Thu 2 Apr 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2358"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["353"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1759"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["723"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 2}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Fri 3 Apr 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Fri 3 Apr 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2316"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["348"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2021"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["786"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 3}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Sat 4 Apr 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Sat 4 Apr 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2223"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["351"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2331"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["847"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 4}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Sun 5 Apr 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Sun 5 Apr 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2160"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["348"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2533"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["919"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 5}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  RawBoxes[
                   StyleBox["\"Mon 6 Apr 2020\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                  Style[
                   RawBoxes[
                    StyleBox[
                    "\"Mon 6 Apr 2020\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                TypeSystem`NestedGrid`PackagePrivate`updateState[
                 TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                  TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                  TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                   TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   Key[
                    DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.]]}, 1]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.]]}, 
                "RowHeader", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2123"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_planta"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["346"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.]], 
                 Key["hospitalizados_uci"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2711"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.]], 
                 Key["altas"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["982"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                 Key[
                  DateObject[{2020, 4, 6}, "Day", "Gregorian", 2.]], 
                 Key["fallecimientos"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Deploy[
              Pane[
               Row[{
                 Spacer[2], 
                 Style[
                  Row[{
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ - 20 
                    If[True, 21, 1], {1, 21 - -20 + 1}], Appearance -> None], 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ - 20 
                    If[False, 21, 1], {1, 21 - -20 + 1}], Appearance -> None],
                     " ", 
                    Style[
                    Mouseover[
                    Row[{"rows ", 1, "\[Dash]", 20, " of ", 
                    Style[
                    21, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, 
                    BaseStyle -> {
                    FontSize -> 8., FontColor -> 
                    RGBColor[
                    0.5098039215686274, 0.5098039215686274, 
                    0.5098039215686274]}], 
                    Row[{"rows ", 1, "\[Dash]", 20, " of ", 
                    Style[
                    21, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, 
                    BaseStyle -> {
                    FontSize -> 8., FontColor -> 
                    RGBColor[
                    0.5098039215686274, 0.5098039215686274, 
                    0.5098039215686274]}]], ContextMenu -> {
                    MenuItem["Hide", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 1, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 10 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 10, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 30 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 30, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 100 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 100, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show All", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 100000000, {}]], MenuEvaluator -> Automatic]}], 
                    " ", 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, {
                    9, 9}]}, ImageSize -> (1 -> 1), 
                    ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> 
                    Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, {
                    9, 9}]}, ImageSize -> (1 -> 1), 
                    ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> 
                    Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 
                    20 If[False, 21, 1], {1, 21 - 20 + 1}], Appearance -> 
                    None], 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 
                    20 If[True, 21, 1], {1, 21 - 20 + 1}], Appearance -> 
                    None]}], ContextMenu -> {}], 
                 Graphics[{
                   RGBColor[
                   0.8196078431372549, 0.8196078431372549, 
                    0.8196078431372549], 
                   Line[{{0, 0}, {0, 19}}]}, ImageSize -> (1 -> 1), 
                  ImagePadding -> {{0, 0}, {0, 0}}, BaselinePosition -> 
                  Scaled[0.35]]}], ImageMargins -> {{0, -1}, {-1, 1}}]], 
             Background -> 
             RGBColor[
              0.9764705882352941, 0.9764705882352941, 0.9764705882352941], 
             Alignment -> {Left, Top}], SpanFromLeft, SpanFromLeft, 
            SpanFromLeft, SpanFromLeft}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    StringJoin["Show ", 
                    Which[
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    ToString[
                    ReplaceAll[
                    Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], Key[
                    Pattern[TypeSystem`NestedGrid`PackagePrivate`x, 
                    Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""]], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    StringJoin["Hide ", 
                    Which[
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    ToString[
                    ReplaceAll[
                    Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], Key[
                    Pattern[TypeSystem`NestedGrid`PackagePrivate`x, 
                    Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""]], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic]}]]]]], FontFamily -> 
            "Verdana", FontSize -> 12}, Spacings -> {0, 0}, Alignment -> Left,
           Dividers -> All, FrameStyle -> GrayLevel[0.7490196078431373], 
          BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
         LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, 
         ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         If[GeneralUtilities`$DebugMode, 
          Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
            TypeSystem`NestedGrid`PackagePrivate`formatState[
            TypeSystem`NestedGrid`PackagePrivate`$state$$, 
             TypeSystem`NestedGrid`PackagePrivate`$path$$, 
             TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
             TypeSystem`NestedGrid`PackagePrivate`$hPos$$]}], 
          TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[
     Framed[
      Dynamic[
       Replace[
       TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
        TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
           Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
           Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
            Blank[]]] :> (
          Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
           TypeSystem`NestedGrid`PackagePrivate`path$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
           TypeSystem`NestedGrid`PackagePrivate`pathType$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
           TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
           TypeSystem`NestedGrid`PackagePrivate`localHold[
            TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
          TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
           TypeSystem`NestedGrid`PackagePrivate`path$, 
            TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
         Spacer[10], Blank[] :> Spacer[10]}], 
       TrackedSymbols :> {
        TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], FrameStyle -> 
      None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, 
      ImageSize -> {Automatic, 15}], FontSize -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       1, "Path" -> TypeSystem`NestedGrid`PackagePrivate`$path$$, "Grid" -> 
        TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[
         TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        TypeSystem`NestedGrid`PackagePrivate`$state$$, "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        TypeSystem`NestedGrid`PackagePrivate`$topBar$$, "BottomBar" -> 
        TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[
         TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]], StandardForm],
      ImageSizeCache->{783., {392.5, 400.5}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{783., {392.5, 400.5}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>
     Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]; 
      Needs["Dataset`"]; 
      TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = CreateUUID[]],
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.7950856212011304`*^9, {3.795085663930474*^9, 3.7950857019335704`*^9}, 
   3.7950857441941366`*^9, 3.7950932972877817`*^9, 3.795146771858224*^9, 
   3.7951520376873956`*^9, 3.7951536352658787`*^9, 3.7951562814029007`*^9, 
   3.7951572043876915`*^9, 3.795230692654421*^9, 3.7952448074346113`*^9, 
   3.7952623309721193`*^9, 3.7953154467306194`*^9, 3.795315548023732*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"79dd86be-b9e7-4f52-ab18-e2385bd0e098"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "hosplanta", ",", "hospuci", ",", " ", "hospfall", ",", "  ", 
     "hospaltas"}], "}"}], " ", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"datosHospitalesCL2", "[", 
       RowBox[{"All", ",", " ", "#"}], "]"}], "&"}], ",", 
     RowBox[{"{", " ", 
      RowBox[{
      "\"\<hospitalizados_planta\>\"", ",", "\"\<hospitalizados_uci\>\"", 
       ",", "\"\<fallecimientos\>\"", ",", "\"\<altas\>\""}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7950866383642173`*^9, 3.795086764508121*^9}, {
   3.795086794776987*^9, 3.7950868895652146`*^9}, 3.7951469776854696`*^9, {
   3.7953155845752745`*^9, 
   3.795315726464409*^9}},ExpressionUUID->"0082ee01-57b9-4109-b59e-\
404e9d0461eb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListStepPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "hosplanta", ",", "hospuci", ",", " ", "hospfall", ",", "  ", 
     "hospaltas"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<hospplanta\>\"", ",", "\"\<uci\>\"", ",", "\"\<fallecidos\>\"", 
      ",", "\"\<altas\>\""}], "}"}]}], ",", 
   RowBox[{"ScalingFunctions", "\[Rule]", "\"\<Log\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.795086467458856*^9, 3.7950865531103*^9}, 
   3.795086909615508*^9, {3.795086967469475*^9, 3.795086987348993*^9}, 
   3.7950871059812965`*^9, 3.7950873739773245`*^9},
 CellLabel->
  "In[116]:=",ExpressionUUID->"1ed3adca-c60d-4008-9bd4-f666bb5ad2c2"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQDQQJNc5vHK3UNtxY0yvmAORPWIaFn8n3IyR3uTiI
f+ACFv62659NhI5LgPgffmHhb55UpzdhtiSIr6DqgslfHnp9i2muFIgf4I+F
/1+oaY6GjzSI31CJhR95QZJ/6Sswf8NibPyGLTYpO2RA/AdnsfDvJBR8vZsl
C+IL/MDCj12ZEB3HLAfiOyi5YvLFDq0qOL8czC/wwcL3NjR+q3UDzF9QhoW/
8wT7x02vwfwLC7Dw47b/n6rOLQ/iM5zGwt9fy/lciB/MN/iKha82MSL8I4Sf
IO+GyV8gO5mt6y/YvgmeWPguCz+GTroM5h8oxsLvcaq6qbgNzP8wFwuf49WL
5oIlYL7CCSz8f79We1skg/kBn5D4AAJi+ps=
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQDQQJNc5vHHmED5UXvOR3APInLMPC3y01Ze7O9wIg
/oELWPhci3/EuR0VBPE//MLCn5z6YXLMciEQX0HVBZN/stLFJkVNGMQP8MfC
n9twtYp/HZjfUImF7/Hq+j6+bhEQf8NiLPx8xt9tq6xFQfwHZ7Hwr2rkJC7b
DuYL/MDCd1Hl07kvKAbiOyi5YvIDgr5Jr28C8wt8sPDXWC855vUCzF9QhoW/
UyYy94SqOIh/YQEWPkddv/SpeDCf4TQWfo/VvzTncjDf4Ct+foK8Gybf71zA
keUZYP4ETyz8go5ZHwsLwfwDxVj4SOo/zMXCP3pw8Y0DSWC+wgks/EgliwU3
wsD8gE9IfACGiPap
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.945109, 0.593901, 0.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQDQQJNc5vHOX/nT1t8YHLAcifsAwLX/CNiNgHMT4Q
/8AFLPzP/3ZFNrELgPgffmHhy67+cy3GXBDEV1B1weTvPd5+/0e9EIgf4I+F
r6nC/uS7uzCI31CJhb/VPu1HTY4IiL9hMRa+VrTF0X3+oiD+g7NY+PNKV9wy
UBID8QV+YOHLdWSt/CIqDuI7KLli8uO99zjsOQTmF/hg4Sv7loY1xEqA+AvK
sPDdXUsymf+A+RcWYOH/XvXqQnuNJIjPcBoLP9TmVorKLTDf4CsWvmOuqlVm
qBSInyDvhslPDli749sqMH+CJxb+o7PcyQ3fwfwDxVj4R4WyW7i9pcHxPRcL
/+wBBbaPfWC+wgks/B453gMX94L5AZ+Q+AD2gfeZ
          "]]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.645957, 0.253192, 0.685109], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQDQQJNc5vHCe0MO+4H8vlAORPWIaFv/e41TuNxzwg
/oELWPg8wofKC17yg/gffmHhf+taJx77RRDEV1B1weSvc38fVM4jDOIH+GPh
x3W4vbQ9AuY3VGLh94hfmPStUBTE37AYC3/7AS73+a/FQPwHZ7HwH/yUC20y
kADxBX5g4f9e9epCe40kiO+g5IrJD57qOn1drRSIX+CDhR92/QCbrIg0iL+g
DAu/R473wMW9YP6FBVj4njvKWJJ7ZUB8htNY+Pqq2mLx9rIgvsFXLHz+9+Y2
1x+D+Qnybpj8lHeXlFiL5MDx7YmF/6uaIUGNRR4c38VY+K/UJBMdIsH8D3Ox
8CckHMk6PQ/MVziBhe/4y9rVlFEBHN+fkPgAQfnxuw==
          "]]}}, {{
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.945109, 0.593901, 0.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.645957, 0.253192, 0.685109], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}}, {{
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.945109, 0.593901, 0.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.645957, 0.253192, 0.685109], 
          CapForm["Butt"], 
          AbsoluteThickness[
          1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.945109, 0.593901, 0.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {
         Directive[
          PointSize[0.009166666666666668], 
          RGBColor[0.645957, 0.253192, 0.685109], 
          CapForm["Butt"], 
          AbsoluteThickness[
          1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
{}}}, {{}, {{{
         Directive[
          Opacity[0]], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQQJNc5vHK3UNtxY0yvmAORPWAbkZ/L9CMldLg7i
H7gA5G+7/tlE6LgEiP/hF5C/eVKd3oTZkiC+gqrLG8flode3mOZKgfgB/kD+
f6GmORo+0iB+QyWQH3lBkn/pKzB/w2IQv2GLTcoOGRD/wVkg/05Cwde7WbIg
vsAPID92ZUJ0HLMciO+g5PrGUezQqoLzy8H8Ah8g39vQ+K3WDTB/QRmQv/ME
+8dNr8H8CwuA/Ljt/6eqc8uD+Ayngfz9tZzPhfjBfIOvQL7axIjwjxB+grzb
G8cFspPZuv6C9U/wBPJdFn4MnXQZzD9QDOT3OFXdVNwG5n+YC+RzvHrRXLAE
zFc4AeT/+7Xa2yJZzgEAscd98A==
          "]]}, {
         Directive[
          Opacity[0]], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQQJNc5vHHmED5UXvOR3APInLAPyd0tNmbvzvQCI
f+ACkM+1+Eec21FBEP/DLyB/cuqHyTHLhUB8BVWXN44nK11sUtSEQfwAfyB/
bsPVKv51YH5DJZDv8er6Pr5uERB/w2IgP5/xd9sqa1EQ/8FZIP+qRk7isu1g
vsAPIN9FlU/nvqAYiO+g5PrGMSDom/T6JjC/wAfIX2O95JjXCzB/QRmQv1Mm
MveEqjiIf2EBkM9R1y99Kh7MZzgN5PdY/UtzLgfzDb6i8hPk3d44+p0LOLI8
A8yf4AnkF3TM+lhYCOYfKEaV/zAXyD96cPGNA0lgvsIJID9SyWLBjTBxBwBT
gHv3
          "]]}, {
         Directive[
          Opacity[0]], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQQJNc5vHOX/nT1t8YHLAcifsAzIF3wjIvZBjA/E
P3AByP/8b1dkE7sAiP/hF5Avu/rPtRhzQRBfQdXljePe4+33f9QLgfgB/kC+
pgr7k+/uwiB+QyWQv9U+7UdNjgiIv2ExkK8VbXF0n78oiP/gLJA/r3TFLQMl
MRBf4AeQL9eRtfKLqDiI76Dk+sYx3nuPw55DYH6BD5Cv7Fsa1hArAeIvKAPy
3V1LMpn/gPkXFgD5v1e9utBeIwniM5wG8kNtbqWo3ALzDb4C+Y65qlaZoVIg
foK82xvH5IC1O76tAvMneAL5j85yJzd8B/MPFAP5R4WyW7i9pcH+nwvknz2g
wPaxD8xXOAHk98jxHri4V9oBAK8GfG8=
          "]]}, {
         Directive[
          Opacity[0]], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQQJNc5vHCe0MO+4H8vlAORPWAbk7z1u9U7jMQ+I
f+ACkM8jfKi84CU/iP/hF5D/rWudeOwXQRBfQdXljeM69/dB5TzCIH6AP5Af
1+H20vYImN9QCeT3iF+Y9K1QFMTfsBjI336Ay33+azEQ/8FZIP/BT7nQJgMJ
EF/gB5D/e9WrC+01kiC+g5LrG8fgqa7T19VKgfgFPkB+2PUDbLIi0iD+gjIg
v0eO98DFvWD+hQVAvueOMpbkXhkQn+E0kK+vqi0Wby8L4ht8BfL535vbXH8M
5ifIu71xTHl3SYm1SA7sf08g/1c1Q4IaizzY/8VA/is1yUSHSDD/w1wgf0LC
kazT88B8hRNAvuMva1dTRgUHAIn6eYA=
          "]]}}, {{
         Directive[
          Opacity[0]]}, {
         Directive[
          Opacity[0]]}, {
         Directive[
          Opacity[0]]}, {
         Directive[
          Opacity[0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
         Directive[
          Opacity[0]]}, {
         Directive[
          Opacity[0]]}, {
         Directive[
          Opacity[0]]}, {
         Directive[
          Opacity[
          0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
{}}}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, DisplayFunction -> Identity, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {3.7934784*^9, 3.034363383768308}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic, 
     FrameTicks -> {{Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
        Charting`DateTicksFunction[Automatic, DateTicksFormat -> {Automatic}], 
        Charting`DateTicksFunction[
        Automatic, DateTicksFormat -> {Automatic}, "TickLabels" -> None]}}, 
     GridLines -> {{0.}, {}}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "NoShowPlotTheme" -> Automatic, "OptimizePlotMarkers" -> True, 
       "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{3.7934784*^9, 3.7952928*^9}, {3.034363383768308, 
      8.002359546252707}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {{}, Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"hospplanta\"", "\"uci\"", "\"fallecidos\"", "\"altas\""},
       "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.945109, 0.593901, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.945109, 0.593901, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.945109, 0.593901, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.430638, 0.16879466666666665`, 0.45673933333333333`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.645957`", ",", "0.253192`", ",", "0.685109`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.645957, 0.253192, 0.685109]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.645957, 0.253192, 0.685109], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.795086363607788*^9, {3.7950864900200896`*^9, 3.795086500227167*^9}, {
   3.795086540291026*^9, 3.7950865563986945`*^9}, 3.7950869115624423`*^9, 
   3.7950869913076134`*^9, 3.7950871093071404`*^9, 3.795087378046818*^9, 
   3.795093298931534*^9, 3.7951467723253546`*^9, 3.7951520378320074`*^9, 
   3.7951536354473953`*^9, 3.795156281795846*^9, 3.795157204598101*^9, 
   3.795230692856521*^9, 3.7952448079661617`*^9, 3.79526233165073*^9, 
   3.795315447442734*^9, 3.7953157368323216`*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"04b7eb3f-9ca8-4ef9-8798-3a3ef9b990b2"]
}, Open  ]],

Cell["Otra forma alternativa", "Item",
 CellChangeTimes->{{3.7950859586573305`*^9, 
  3.795085971648487*^9}},ExpressionUUID->"143578f3-42a7-45ca-8b8d-\
ad8473b4a57b"],

Cell["\<\
hopistalizadosCyL = \
Import[\"https://analisis.datosabiertos.jcyl.es/explore/dataset/situacion-de-\
hospitalizados-por-coronavirus-en-castilla-y-leon/download/?format=csv&\
timezone=Europe/Madrid&lang=es&use_labels_for_header=true&csv_separator=%3B\",\
 \"Table\", \"FieldSeparators\" -> \";\", \"CurrencyTokens\" -> None];\
\>", "Text",
 CellChangeTimes->{{3.795064647602208*^9, 3.795064742321024*^9}, {
   3.7950648076800857`*^9, 3.795064815664931*^9}, {3.795064946367861*^9, 
   3.7950649545706525`*^9}, 3.795064997539997*^9, {3.7950673522900333`*^9, 
   3.7950673979458694`*^9}, 3.7950676440860662`*^9, {3.7950678602426195`*^9, 
   3.7950678769874287`*^9}, 3.795067982648627*^9, 3.7950680472586217`*^9, {
   3.79507136930501*^9, 3.795071382399208*^9}, 3.795154866544327*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"afa8d250-087b-49f1-9ece-ca263d33346f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hopistalizadosCyL", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<https://analisis.datosabiertos.jcyl.es/explore/dataset/situacion-de-\
hospitalizados-por-coronavirus-en-castilla-y-leon/download/?format=csv&\
timezone=Europe/Madrid&lang=es&use_labels_for_header=true&csv_separator=,\>\"\
", ",", " ", "\"\<csv\>\""}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7951543661529465`*^9, 3.79515442150583*^9}, {
  3.795154535073241*^9, 3.7951545510658226`*^9}, {3.795154885449708*^9, 
  3.7951548905984344`*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"dc2efab4-6520-487e-b51f-af4aede0ce44"],

Cell["Nos interesa la siguiente informaci\[OAcute]n", "Item",
 CellChangeTimes->{{3.795315975966234*^9, 
  3.7953159929910035`*^9}},ExpressionUUID->"d9ef1b6b-cb66-448b-b37a-\
36fddacc59e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cabeceraCL", "=", 
  RowBox[{
   RowBox[{"First", "[", "hopistalizadosCyL", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"4", ";;", "7"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.795004098457733*^9, 3.7950041911804657`*^9}, 
   3.7950042487272096`*^9, {3.79500433449594*^9, 3.795004360541274*^9}, 
   3.7950679650982413`*^9, {3.795071438070801*^9, 3.7950714463680687`*^9}, {
   3.7950715328153157`*^9, 3.7950715456804476`*^9}, {3.7953159231367455`*^9, 
   3.795315946869769*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"bcf67bcc-553f-45ea-9f11-18fd36532b09"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"hospitalizados_planta\"\>", ",", "\<\"hospitalizados_uci\"\>", 
   ",", "\<\"altas\"\>", ",", "\<\"fallecimientos\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.795004124414548*^9, 3.7950041490551243`*^9}, {
   3.7950041828673143`*^9, 3.795004195414585*^9}, 3.7950042523528175`*^9, 
   3.795004307633343*^9, 3.795004363909187*^9, 3.7950046554877796`*^9, 
   3.795007690757368*^9, 3.7950077252631965`*^9, 3.7950097334246187`*^9, 
   3.7950102066853175`*^9, 3.7950125501040516`*^9, 3.7950597187669244`*^9, 
   3.795060785905471*^9, 3.795067968711212*^9, 3.7950680018047967`*^9, 
   3.7950680549142404`*^9, 3.7950713909452057`*^9, 3.7950714493047066`*^9, 
   3.795071551101858*^9, 3.7950748550405617`*^9, 3.7950759835587053`*^9, 
   3.795087549167962*^9, 3.7950932995521975`*^9, 3.795146773138239*^9, 
   3.7951520384822397`*^9, 3.7951536363419743`*^9, 3.795154916888496*^9, 
   3.7951562826291094`*^9, 3.7951572053042135`*^9, 3.795230693856523*^9, 
   3.795244808809635*^9, 3.7952601815908723`*^9, 3.7952623329886136`*^9, 
   3.7953154481703076`*^9, 3.7953157828870068`*^9, 3.795315858722727*^9, 
   3.7953159475014*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"bdc42ac4-8b36-4206-822c-cd14aa38e01a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dataCL", "=", 
   RowBox[{"Normal", "[", 
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{"GroupBy", "[", 
       RowBox[{
        RowBox[{"Rest", "[", "hopistalizadosCyL", "]"}], ",", " ", "First", 
        ",", " ", "Total"}], "]"}], ",", "All", ",", 
      RowBox[{"{", " ", 
       RowBox[{"4", ",", " ", "7"}], "}"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7952344315618663`*^9, 3.795234485993531*^9}, {
   3.7952450160755463`*^9, 3.79524506896136*^9}, {3.7952451299508543`*^9, 
   3.7952452069197993`*^9}, {3.7952452540913877`*^9, 3.795245278639773*^9}, {
   3.795245314950717*^9, 3.795245417263156*^9}, {3.795245456857172*^9, 
   3.7952455080917225`*^9}, {3.795245586888198*^9, 3.795245614231855*^9}, {
   3.795245664780652*^9, 3.795245677919572*^9}, {3.7952593176227837`*^9, 
   3.795259323060383*^9}, {3.795259380936314*^9, 3.795259384310376*^9}, 
   3.7952595220755997`*^9, 3.795259802310464*^9, 3.7952599655288706`*^9, {
   3.795260341435543*^9, 3.795260395794059*^9}, {3.7952604962319717`*^9, 
   3.795260497263231*^9}, 3.795260666373044*^9, {3.7953167806295404`*^9, 
   3.79531678662932*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"388e83cd-5bf4-4825-bf26-ef807f152a7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fechasCL1", "=", 
   RowBox[{"dataCL", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795259831700576*^9, 3.7952598586071243`*^9}, {
   3.795259904387761*^9, 3.7952599120755186`*^9}, {3.7952604397318296`*^9, 
   3.7952604636853027`*^9}, {3.795260500654312*^9, 3.795260501482342*^9}, 
   3.7952606732627172`*^9},
 CellLabel->
  "In[162]:=",ExpressionUUID->"5c48292a-c75f-4475-b349-75dd8bc0f78e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datosCL1A", " ", "=", " ", 
   RowBox[{"fechasCL1", "/.", "dataCL"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795259982998127*^9, 3.7952599999356613`*^9}, {
   3.7952605156694555`*^9, 3.7952605451541348`*^9}, 3.7952606812941957`*^9, {
   3.7952607376225786`*^9, 3.795260738779315*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"2c6a749c-be43-4247-b51c-8060d9870d9c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "hospplantaCL", ",", " ", "hospuuciCL", ",", " ", "altasCL", ",", " ", 
     "fallCL"}], "}"}], "=", 
   RowBox[{"Transpose", "[", "datosCL1A", " ", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.79526222212978*^9, 3.795262306924718*^9}, {
   3.7952623387083764`*^9, 3.795262369546254*^9}, 3.795262634698028*^9},
 CellLabel->
  "In[164]:=",ExpressionUUID->"4f226b15-69c1-4e82-a9fc-756540b01690"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"datosCL1A", " ", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"fechasCL1", ",", "cabeceraCL"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7952605749503665`*^9, 3.795260646481991*^9}, {
   3.795315877352827*^9, 3.7953158788732996`*^9}, 3.7953159614196205`*^9},
 CellLabel->
  "In[165]:=",ExpressionUUID->"ee9fe475-178b-4a13-b982-82a29bd9ce25"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"hospitalizados_planta\"\>",
       HoldForm], 
      TagBox["\<\"hospitalizados_uci\"\>",
       HoldForm], 
      TagBox["\<\"altas\"\>",
       HoldForm], 
      TagBox["\<\"fallecimientos\"\>",
       HoldForm]},
     {
      TagBox["\<\"2020-03-18\"\>",
       HoldForm], "281", "54", "27", "29"},
     {
      TagBox["\<\"2020-03-19\"\>",
       HoldForm], "370", "69", "37", "43"},
     {
      TagBox["\<\"2020-03-20\"\>",
       HoldForm], "490", "85", "54", "55"},
     {
      TagBox["\<\"2020-03-21\"\>",
       HoldForm], "603", "106", "89", "74"},
     {
      TagBox["\<\"2020-03-22\"\>",
       HoldForm], "740", "120", "117", "102"},
     {
      TagBox["\<\"2020-03-23\"\>",
       HoldForm], "920", "137", "140", "124"},
     {
      TagBox["\<\"2020-03-24\"\>",
       HoldForm], "1074", "170", "213", "165"},
     {
      TagBox["\<\"2020-03-25\"\>",
       HoldForm], "1313", "202", "308", "206"},
     {
      TagBox["\<\"2020-03-26\"\>",
       HoldForm], "1563", "228", "423", "253"},
     {
      TagBox["\<\"2020-03-27\"\>",
       HoldForm], "1814", "249", "585", "321"},
     {
      TagBox["\<\"2020-03-28\"\>",
       HoldForm], "2130", "278", "752", "380"},
     {
      TagBox["\<\"2020-03-29\"\>",
       HoldForm], "2233", "307", "871", "442"},
     {
      TagBox["\<\"2020-03-30\"\>",
       HoldForm], "2276", "326", "1028", "516"},
     {
      TagBox["\<\"2020-03-31\"\>",
       HoldForm], "2347", "345", "1259", "585"},
     {
      TagBox["\<\"2020-04-01\"\>",
       HoldForm], "2356", "353", "1498", "641"},
     {
      TagBox["\<\"2020-04-02\"\>",
       HoldForm], "2358", "353", "1759", "723"},
     {
      TagBox["\<\"2020-04-03\"\>",
       HoldForm], "2316", "348", "2021", "786"},
     {
      TagBox["\<\"2020-04-04\"\>",
       HoldForm], "2223", "351", "2331", "847"},
     {
      TagBox["\<\"2020-04-05\"\>",
       HoldForm], "2160", "348", "2533", "919"},
     {
      TagBox["\<\"2020-04-06\"\>",
       HoldForm], "2123", "346", "2711", "982"},
     {
      TagBox["\<\"2020-04-07\"\>",
       HoldForm], "1992", "342", "2988", "1028"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, 
      "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "2020-03-18", "2020-03-19", "2020-03-20", "2020-03-21", "2020-03-22", 
       "2020-03-23", "2020-03-24", "2020-03-25", "2020-03-26", "2020-03-27", 
       "2020-03-28", "2020-03-29", "2020-03-30", "2020-03-31", "2020-04-01", 
       "2020-04-02", "2020-04-03", "2020-04-04", "2020-04-05", "2020-04-06", 
       "2020-04-07"}, {
      "hospitalizados_planta", "hospitalizados_uci", "altas", 
       "fallecimientos"}}]]]], "Output",
 CellChangeTimes->{
  3.7952606500266867`*^9, 3.795260749950426*^9, 3.7953154482388973`*^9, 
   3.7953157830549126`*^9, {3.7953158588846493`*^9, 3.7953158879191976`*^9}, 
   3.7953159667573977`*^9, 3.795316794561375*^9},
 CellLabel->
  "Out[165]//TableForm=",ExpressionUUID->"6420feba-dd44-4afb-bc1c-\
8dc3820eec7f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Situaci\[OAcute]n epidemiol\[OAcute]gica por provincias", \
"Subsubsection",
 CellChangeTimes->{{3.795147076685314*^9, 3.795147095341671*^9}, {
  3.795147144013258*^9, 3.795147148825565*^9}, {3.795148571560577*^9, 
  3.7951485723882723`*^9}},ExpressionUUID->"34cf2e47-4ffc-4f32-bcb5-\
ebde27367fc0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datosCL2", "=", 
   RowBox[{
   "Import", "[", 
    "\"\<https://analisis.datosabiertos.jcyl.es/explore/dataset/situacion-\
epidemiologica-coronavirus-en-castilla-y-leon/download/?format=csv&timezone=\
Europe/Madrid&lang=es&use_labels_for_header=true&csv_separator=,\>\"", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7951483865758076`*^9, 3.7951484061850567`*^9}, {
  3.7952337334008865`*^9, 3.795233738639965*^9}, {3.795233771063933*^9, 
  3.7952337895923433`*^9}, {3.795234357043157*^9, 3.795234362687929*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"eb642e71-5a1d-4651-8ad8-cffe04068806"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cabeceraCL2", "=", " ", 
  RowBox[{
   RowBox[{"First", "[", "datosCL2", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"3", ";;", "6"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7952338074259863`*^9, 3.7952338294997215`*^9}, {
  3.795316045800086*^9, 3.7953160751209674`*^9}, {3.7953161713202524`*^9, 
  3.795316171625591*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"2de54345-9b49-4bfd-b1ad-e8760100681c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"casos_confirmados\"\>", ",", "\<\"nuevos_positivos\"\>", 
   ",", "\<\"altas\"\>", ",", "\<\"fallecimientos\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7952338301904297`*^9, 3.7952343916401577`*^9, 3.7952449382005434`*^9, 
   3.795259158465802*^9, 3.7952594631848555`*^9, 3.795259557637772*^9, 
   3.7952596082547836`*^9, 3.7952596569971175`*^9, 3.7952607714192524`*^9, 
   3.7952625496816645`*^9, 3.795262966242238*^9, 3.795315449917118*^9, {
   3.795316059360945*^9, 3.795316103899081*^9}, 3.7953161832409163`*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"c5a9f086-39fa-4058-9ba0-3a7bc69c16ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"datosCL2A", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{
     RowBox[{"Normal", "[", 
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"GroupBy", "[", " ", 
         RowBox[{
          RowBox[{"Rest", "[", "datosCL2", "]"}], ",", " ", "First", ",", " ",
           "Total"}], "]"}], ",", "All", ",", 
        RowBox[{"{", " ", 
         RowBox[{"3", ",", " ", "6"}], "}"}]}], "]"}], "]"}], ",", "5"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7952344315618663`*^9, 3.795234485993531*^9}, {
   3.7952450160755463`*^9, 3.79524506896136*^9}, {3.7952451299508543`*^9, 
   3.7952452069197993`*^9}, {3.7952452540913877`*^9, 3.795245278639773*^9}, {
   3.795245314950717*^9, 3.795245417263156*^9}, {3.795245456857172*^9, 
   3.7952455080917225`*^9}, {3.795245586888198*^9, 3.795245614231855*^9}, {
   3.795245664780652*^9, 3.795245677919572*^9}, {3.7952593176227837`*^9, 
   3.795259323060383*^9}, {3.795259380936314*^9, 3.795259384310376*^9}, 
   3.7952595220755997`*^9, 3.795259802310464*^9, 3.7952599655288706`*^9, {
   3.795262950355999*^9, 3.7952629850229297`*^9}, {3.7953167536745343`*^9, 
   3.7953167596967134`*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"87dc7ae6-b6ec-4e88-89ee-ef1a9c450058"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fechasCL2", "=", 
   RowBox[{"datosCL2A", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795259831700576*^9, 3.7952598586071243`*^9}, {
  3.795259904387761*^9, 3.7952599120755186`*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"c54d7853-07c7-44e3-aa8b-4a8cedf72b54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datosCL2B", " ", "=", " ", 
   RowBox[{"fechasCL2", "/.", "datosCL2A"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795259982998127*^9, 3.7952599999356613`*^9}, 
   3.7952607155130534`*^9},
 CellLabel->
  "In[159]:=",ExpressionUUID->"d8c9386c-69f0-4371-9c42-911e6265167e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"datosCL2B", " ", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"fechasCL2", ",", "cabeceraCL2"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7952605749503665`*^9, 3.795260646481991*^9}, {
   3.795315877352827*^9, 3.7953158788732996`*^9}, 3.7953159614196205`*^9, {
   3.7953161457566876`*^9, 3.795316180312843*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"7e2d2dbd-6aca-471f-8276-ed003f2d5463"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"casos_confirmados\"\>",
       HoldForm], 
      TagBox["\<\"nuevos_positivos\"\>",
       HoldForm], 
      TagBox["\<\"altas\"\>",
       HoldForm], 
      TagBox["\<\"fallecimientos\"\>",
       HoldForm]},
     {
      TagBox["\<\"2020-03-18\"\>",
       HoldForm], "668", "237", "27", "29"},
     {
      TagBox["\<\"2020-03-19\"\>",
       HoldForm], "868", "200", "37", "43"},
     {
      TagBox["\<\"2020-03-20\"\>",
       HoldForm], "1147", "279", "54", "55"},
     {
      TagBox["\<\"2020-03-21\"\>",
       HoldForm], "1466", "319", "89", "74"},
     {
      TagBox["\<\"2020-03-22\"\>",
       HoldForm], "1744", "278", "117", "102"},
     {
      TagBox["\<\"2020-03-23\"\>",
       HoldForm], "2055", "311", "140", "124"},
     {
      TagBox["\<\"2020-03-24\"\>",
       HoldForm], "2460", "405", "221", "166"},
     {
      TagBox["\<\"2020-03-25\"\>",
       HoldForm], "2940", "480", "308", "206"},
     {
      TagBox["\<\"2020-03-26\"\>",
       HoldForm], "3488", "548", "423", "253"},
     {
      TagBox["\<\"2020-03-27\"\>",
       HoldForm], "4132", "644", "585", "321"},
     {
      TagBox["\<\"2020-03-28\"\>",
       HoldForm], "4791", "659", "752", "380"},
     {
      TagBox["\<\"2020-03-29\"\>",
       HoldForm], "5414", "623", "871", "442"},
     {
      TagBox["\<\"2020-03-30\"\>",
       HoldForm], "5801", "387", "1028", "516"},
     {
      TagBox["\<\"2020-03-31\"\>",
       HoldForm], "6211", "410", "1259", "585"},
     {
      TagBox["\<\"2020-04-01\"\>",
       HoldForm], "6847", "636", "1498", "641"},
     {
      TagBox["\<\"2020-04-02\"\>",
       HoldForm], "7355", "508", "1759", "723"},
     {
      TagBox["\<\"2020-04-03\"\>",
       HoldForm], "7875", "520", "2021", "786"},
     {
      TagBox["\<\"2020-04-04\"\>",
       HoldForm], "8332", "457", "2331", "847"},
     {
      TagBox["\<\"2020-04-05\"\>",
       HoldForm], "8749", "417", "2533", "919"},
     {
      TagBox["\<\"2020-04-06\"\>",
       HoldForm], "9116", "367", "2711", "982"},
     {
      TagBox["\<\"2020-04-07\"\>",
       HoldForm], "9581", "465", "2988", "1028"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, 
      "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "2020-03-18", "2020-03-19", "2020-03-20", "2020-03-21", "2020-03-22", 
       "2020-03-23", "2020-03-24", "2020-03-25", "2020-03-26", "2020-03-27", 
       "2020-03-28", "2020-03-29", "2020-03-30", "2020-03-31", "2020-04-01", 
       "2020-04-02", "2020-04-03", "2020-04-04", "2020-04-05", "2020-04-06", 
       "2020-04-07"}, {
      "casos_confirmados", "nuevos_positivos", "altas", 
       "fallecimientos"}}]]]], "Output",
 CellChangeTimes->{3.7953161959631805`*^9, 3.795316766692938*^9},
 CellLabel->
  "Out[160]//TableForm=",ExpressionUUID->"eca0169f-e17e-49fc-93a7-\
93be050396a9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "casosCL", ",", " ", "nuevosCL", ",", " ", "altasCL1", ",", " ", 
     "fallCL1"}], "}"}], "=", 
   RowBox[{"Transpose", "[", "datosCL2B", " ", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.79526222212978*^9, 3.795262306924718*^9}, {
   3.7952623387083764`*^9, 3.795262369546254*^9}, {3.795262449290964*^9, 
   3.795262503963407*^9}, 3.7952626558437667`*^9},
 CellLabel->
  "In[147]:=",ExpressionUUID->"afd69859-3522-4e27-bf1f-14de10b95ea6"],

Cell["\<\
Se presentan todos los datos de CL, es necesario empezar el 18 de marzo pues \
es el primer d\[IAcute]a del que se dispone datos para todos los campos,  los \
campos altas y fallecimientos se muestran por duplicado aunque tienen \
distintos origines, se ve que los datos coinciden en consecuencia los \
fallecimientos son todos hospitalarios lo mismo que las altas. En el \
hospitalizados est\[AAcute]n sumados los de planta y los de UCI\
\>", "Item",
 CellChangeTimes->{{3.795263198695006*^9, 3.7952633653883953`*^9}, {
  3.795263439237645*^9, 3.7952634564954987`*^9}, {3.795316214038922*^9, 
  3.7953162323310375`*^9}},ExpressionUUID->"e1f4b8c3-d328-4fbf-8c9f-\
aa795d8ec64f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"casosCL", ",", " ", "nuevosCL", ",", " ", 
      RowBox[{"hospplantaCL", "+", "hospuuciCL"}], ",", " ", "hospuuciCL", 
      ",", "altasCL", ",", "  ", "altasCL1", ",", "fallCL", ",", "  ", 
      "fallCL1"}], "}"}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"fechasCL2", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<casos\>\"", ",", "\"\<nuevos\>\"", ",", "\"\<Hospitalizados\>\"", 
        ",", "\"\<UCI\>\"", ",", "\"\<altas\\n hospitalarias\>\"", ",", 
        "\"\<altas\>\"", ",", "\"\<fallecimientos\\n hospitalarios\>\"", ",", 
        "\"\<fallecimientos\>\""}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.795259946326968*^9, 3.795259952497883*^9}, {
   3.795260012419567*^9, 3.795260023669447*^9}, {3.79526005954425*^9, 
   3.795260109482232*^9}, {3.7952625817823305`*^9, 3.7952626130685654`*^9}, 
   3.795262645604787*^9, {3.795262687569544*^9, 3.795262718437954*^9}, {
   3.795262752728608*^9, 3.795262809722292*^9}, {3.7952630751500397`*^9, 
   3.795263138048572*^9}, {3.795263370418291*^9, 3.7952634303732853`*^9}, {
   3.79531631629055*^9, 3.795316326002096*^9}, {3.7953163717027416`*^9, 
   3.795316491313659*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"bd3bedf2-82dd-4e00-83e0-0e0884b247d3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"casos\"\>",
       HoldForm], 
      TagBox["\<\"nuevos\"\>",
       HoldForm], 
      TagBox["\<\"Hospitalizados\"\>",
       HoldForm], 
      TagBox["\<\"UCI\"\>",
       HoldForm], 
      TagBox["\<\"altas\\n hospitalarias\"\>",
       HoldForm], 
      TagBox["\<\"altas\"\>",
       HoldForm], 
      TagBox["\<\"fallecimientos\\n hospitalarios\"\>",
       HoldForm], 
      TagBox["\<\"fallecimientos\"\>",
       HoldForm]},
     {
      TagBox["\<\"2020-03-18\"\>",
       HoldForm], "668", "237", "335", "54", "27", "27", "29", "29"},
     {
      TagBox["\<\"2020-03-19\"\>",
       HoldForm], "868", "200", "439", "69", "37", "37", "43", "43"},
     {
      TagBox["\<\"2020-03-20\"\>",
       HoldForm], "1147", "279", "575", "85", "54", "54", "55", "55"},
     {
      TagBox["\<\"2020-03-21\"\>",
       HoldForm], "1466", "319", "709", "106", "89", "89", "74", "74"},
     {
      TagBox["\<\"2020-03-22\"\>",
       HoldForm], "1744", "278", "860", "120", "117", "117", "102", "102"},
     {
      TagBox["\<\"2020-03-23\"\>",
       HoldForm], "2055", "311", "1057", "137", "140", "140", "124", "124"},
     {
      TagBox["\<\"2020-03-24\"\>",
       HoldForm], "2460", "405", "1244", "170", "213", "221", "165", "166"},
     {
      TagBox["\<\"2020-03-25\"\>",
       HoldForm], "2940", "480", "1515", "202", "308", "308", "206", "206"},
     {
      TagBox["\<\"2020-03-26\"\>",
       HoldForm], "3488", "548", "1791", "228", "423", "423", "253", "253"},
     {
      TagBox["\<\"2020-03-27\"\>",
       HoldForm], "4132", "644", "2063", "249", "585", "585", "321", "321"},
     {
      TagBox["\<\"2020-03-28\"\>",
       HoldForm], "4791", "659", "2408", "278", "752", "752", "380", "380"},
     {
      TagBox["\<\"2020-03-29\"\>",
       HoldForm], "5414", "623", "2540", "307", "871", "871", "442", "442"},
     {
      TagBox["\<\"2020-03-30\"\>",
       HoldForm], "5801", "387", "2602", "326", "1028", "1028", "516", "516"},
     {
      TagBox["\<\"2020-03-31\"\>",
       HoldForm], "6211", "410", "2692", "345", "1259", "1259", "585", "585"},
     {
      TagBox["\<\"2020-04-01\"\>",
       HoldForm], "6847", "636", "2709", "353", "1498", "1498", "641", "641"},
     {
      TagBox["\<\"2020-04-02\"\>",
       HoldForm], "7355", "508", "2711", "353", "1759", "1759", "723", "723"},
     {
      TagBox["\<\"2020-04-03\"\>",
       HoldForm], "7875", "520", "2664", "348", "2021", "2021", "786", "786"},
     {
      TagBox["\<\"2020-04-04\"\>",
       HoldForm], "8332", "457", "2574", "351", "2331", "2331", "847", "847"},
     {
      TagBox["\<\"2020-04-05\"\>",
       HoldForm], "8749", "417", "2508", "348", "2533", "2533", "919", "919"},
     {
      TagBox["\<\"2020-04-06\"\>",
       HoldForm], "9116", "367", "2469", "346", "2711", "2711", "982", "982"},
     {
      TagBox["\<\"2020-04-07\"\>",
       HoldForm], "9581", "465", "2334", "342", "2988", "2988", "1028", "1028"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, 
      "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "2020-03-18", "2020-03-19", "2020-03-20", "2020-03-21", "2020-03-22", 
       "2020-03-23", "2020-03-24", "2020-03-25", "2020-03-26", "2020-03-27", 
       "2020-03-28", "2020-03-29", "2020-03-30", "2020-03-31", "2020-04-01", 
       "2020-04-02", "2020-04-03", "2020-04-04", "2020-04-05", "2020-04-06", 
       "2020-04-07"}, {
      "casos", "nuevos", "Hospitalizados", "UCI", "altas\n hospitalarias", 
       "altas", "fallecimientos\n hospitalarios", 
       "fallecimientos"}}]]]], "Output",
 CellChangeTimes->{3.7953164947290087`*^9},
 CellLabel->
  "Out[152]//TableForm=",ExpressionUUID->"74004b71-c34b-4be0-991c-\
b5ed5d72f4fc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Datos para algunas comunidades, descargados desde el Instituto Carlos III \
\>", "Subsection",
 CellChangeTimes->{{3.7948849534704866`*^9, 3.7948849658155313`*^9}, {
  3.795061141797544*^9, 3.7950611640366793`*^9}, {3.7950612572476807`*^9, 
  3.7950612689329023`*^9}},ExpressionUUID->"172cce2d-11e9-46e1-95d3-\
3e1b43ce0df3"],

Cell[CellGroupData[{

Cell["Descarga", "Subsubsection",
 CellChangeTimes->{{3.79506121403703*^9, 
  3.795061228926075*^9}},ExpressionUUID->"18ede96d-fc1c-48d5-884f-\
6c0c336e727c"],

Cell["\<\
Importamos los datos (desde el Instituto Carlos III y eliminamos la \
\[UAcute]ltima fila pues corresponde a comentarios\
\>", "Item",
 CellChangeTimes->{{3.7944073163153477`*^9, 3.794407342825556*^9}, 
   3.7944096327501264`*^9, {3.794409729671829*^9, 3.794409741215234*^9}, {
   3.794409999673752*^9, 3.7944100110152907`*^9}, {3.794554983466367*^9, 
   3.7945549850604258`*^9}},ExpressionUUID->"517915ab-45f7-4781-a27a-\
a1d60333ff79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datoscomunidades", "=", 
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Drop", "[", 
      RowBox[{
       RowBox[{
       "Import", "[", 
        "\"\<https://covid19.isciii.es/resources/serie_historica_acumulados.\
csv\>\"", "]"}], ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", " ", "All", ",", " ", "7"}], "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.79440963447413*^9, 3.794409704032516*^9}, 
   3.794469593481701*^9, 3.7952310075395412`*^9, {3.7952327740444565`*^9, 
   3.7952327825925426`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"4f79356d-999b-4e7a-9961-bfd5532483ef"],

Cell["\<\
El fichero descargado contiene las siguientes notas:
El objetivo de los datos que se publican en esta web es saber el \
n\[UAcute]mero de casos acumulados a la fecha y que por tanto no se puede \
deducir que la diferencia entre un d\[IAcute]a y el anterior es el \
n\[UAcute]mero de casos nuevos ya que esos casos pueden haber sido \
recuperados de fechas anteriores. Cualquier inferencia que se haga sobre las \
diferencias de un d\[IAcute]a para otro deben hacerse con precauci\[OAcute]n \
y son \[UAcute]nicamente la responsabilidad el autor. Los datos de estas \
comunidades son datos de prevalencia (personas ingresadas a fecha de hoy). No \
reflejan el total de personas que han sido hospitalizadas o ingresadas en UCI\
\[NonBreakingSpace] a lo largo del periodo de \
notificaci\[OAcute]n(CL-CM-MD-VC-MC)\
\>", "Text",
 CellChangeTimes->{{3.794894622658693*^9, 3.7948946383725643`*^9}, {
  3.7948946888508644`*^9, 3.7948947259317455`*^9}, {3.7952328512218037`*^9, 
  3.7952328773335876`*^9}, {3.795232926900148*^9, 3.7952329501672316`*^9}},
 FontSize->9,
 FontColor->GrayLevel[
  0],ExpressionUUID->"17b3242f-13b9-4533-85ee-184bba571001"],

Cell[TextData[{
 StyleBox["El Ministerio de Sanidad, en sus ",
  FontSize->9],
 StyleBox[ButtonBox["informes diarios",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.mscbs.gob.es/en/profesionales/saludPublica/ccayes/\
alertasActual/nCov-China/documentos/Actualizacion_67_COVID-19.pdf"], None},
  ButtonNote->
   "https://www.mscbs.gob.es/en/profesionales/saludPublica/ccayes/\
alertasActual/nCov-China/documentos/Actualizacion_67_COVID-19.pdf"],
  FontSize->9],
 StyleBox[", distingue: \[OpenCurlyDoubleQuote]Casos que han precisado \
hospitalizaci\[OAcute]n\[CloseCurlyDoubleQuote] y \
\[OpenCurlyDoubleQuote]Casos que han ingresado en UCI\[CloseCurlyDoubleQuote] \
e incluye una nota en la que indica que (referido a  Comunidades de Galicia, \
Castilla-La Mancha, Castilla y Le\[OAcute]n, Comunidad Valenciana y la \
Comunidad de Madrid) \[OpenCurlyDoubleQuote]Los datos de estas comunidades \
son datos de prevalencia (personas ingresadas a fecha de hoy). No reflejan el \
total de personas que han sido hospitalizadas o ingresadas en UCI a lo largo \
del periodo de notificaci\[OAcute]n\[CloseCurlyDoubleQuote].",
  FontSize->9]
}], "Text",
 CellChangeTimes->{{3.795175594801242*^9, 3.7951756244035563`*^9}, {
   3.7951769016396494`*^9, 3.7951770878538933`*^9}, {3.795177127259617*^9, 
   3.795177175877243*^9}, 
   3.79517721156346*^9},ExpressionUUID->"15436f38-20a8-4e8b-915c-\
9c4f4233ce5f"],

Cell["\<\
Extraemos la primera fila (o sublista) donde se muestran los nombres de los \
campos, que la usaremos mas adelante\
\>", "Item",
 CellChangeTimes->{{3.794405903277684*^9, 3.7944059642298083`*^9}, {
  3.794405996134569*^9, 
  3.7944060448262777`*^9}},ExpressionUUID->"92310b9d-b3b2-463a-8414-\
b56b11333a55"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cabecera", "=", 
  RowBox[{"First", "[", "datoscomunidades", "]"}]}]], "Input",
 CellChangeTimes->{{3.7944058502421703`*^9, 3.7944058957608504`*^9}, {
   3.7944059793082504`*^9, 3.7944059831515584`*^9}, 3.794407758031926*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"0991c59a-6e96-45f2-a5cf-391f966206e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"CCAA Codigo ISO\"\>", ",", "\<\"Fecha\"\>", 
   ",", "\<\"Casos\"\>", ",", "\<\"Hospitalizados\"\>", ",", "\<\"UCI\"\>", 
   ",", "\<\"Fallecidos\"\>", ",", "\<\"Recuperados\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.7944058636906013`*^9, 3.794405899457203*^9}, 
   3.7944059839251146`*^9, 3.794406048830201*^9, 3.7944073067574987`*^9, 
   3.794407477583006*^9, 3.794407759051868*^9, 3.7944684736691923`*^9, 
   3.794485411497013*^9, 3.7945539722471943`*^9, 3.79464498014478*^9, 
   3.7946782939360914`*^9, 3.79475111075008*^9, 3.7948028177373133`*^9, 
   3.7948845351755295`*^9, 3.7948874084715853`*^9, 3.7948886331291995`*^9, 
   3.7948948395645657`*^9, 3.7948970371206684`*^9, 3.7949012319616556`*^9, 
   3.794918881451749*^9, 3.7949209034248037`*^9, 3.79497516771025*^9, 
   3.7949776531017065`*^9, 3.7949801884610415`*^9, 3.7949851551636844`*^9, 
   3.7949873519813976`*^9, 3.795012550844254*^9, 3.7950597194558353`*^9, 
   3.795061275105172*^9, 3.7950878212482977`*^9, 3.795093536607355*^9, 
   3.7951467736534967`*^9, 3.7951520396319075`*^9, 3.7951536374667034`*^9, 
   3.7951558959158297`*^9, 3.795157206619711*^9, 3.795231017934903*^9, 
   3.795232794658079*^9, 3.7952330436225295`*^9, 3.7952609656689343`*^9, 
   3.795315450183504*^9, 3.7953181067890453`*^9, 3.7953184125843167`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"3ed846ba-c01e-4fe6-ac07-8a1a11a1580f"]
}, Open  ]],

Cell["\<\
Nos quedamos con los datos a partir del d\[IAcute]a 15 de marzo y agrupamos \
por CC AA\
\>", "Item",
 CellChangeTimes->{{3.794405903277684*^9, 3.7944059642298083`*^9}, {
  3.794405996134569*^9, 3.7944060448262777`*^9}, {3.795317042796352*^9, 
  3.795317065084014*^9}, {3.795317432076589*^9, 
  3.795317442042232*^9}},ExpressionUUID->"b309760b-f463-47cb-b17b-\
a67f9c8a1d1f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"agrupadosCCAA", "=", 
   RowBox[{"Normal", "[", 
    RowBox[{"GroupBy", "[", 
     RowBox[{
      RowBox[{"Drop", "[", 
       RowBox[{"datoscomunidades", ",", "457"}], "]"}], ",", " ", "First"}], 
     "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7953171304804225`*^9, 3.7953171584931927`*^9}, {
   3.7953172208956103`*^9, 3.795317260151993*^9}, {3.7953173378002343`*^9, 
   3.7953173570923615`*^9}, 3.79531739338382*^9, {3.7953185619860325`*^9, 
   3.795318564860325*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"b1eed990-03ee-4f92-add5-3443daad5874"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"idemccaa", "=", 
  RowBox[{"agrupadosCCAA", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.795317546739376*^9, 3.795317644298768*^9}, {
  3.7953176811194277`*^9, 3.795317692294653*^9}, {3.795317899959406*^9, 
  3.795317947675068*^9}, {3.795318134885825*^9, 3.795318143323908*^9}, {
  3.795318192410527*^9, 3.7953182224477615`*^9}, {3.7953187382337365`*^9, 
  3.7953187411063814`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"26fd89c8-f605-4a67-a059-3f785087c192"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"AN\"\>", ",", "\<\"AR\"\>", ",", "\<\"AS\"\>", 
   ",", "\<\"IB\"\>", ",", "\<\"CN\"\>", ",", "\<\"CB\"\>", ",", "\<\"CM\"\>",
    ",", "\<\"CL\"\>", ",", "\<\"CT\"\>", ",", "\<\"CE\"\>", 
   ",", "\<\"VC\"\>", ",", "\<\"EX\"\>", ",", "\<\"GA\"\>", ",", "\<\"MD\"\>",
    ",", "\<\"ME\"\>", ",", "\<\"MC\"\>", ",", "\<\"NC\"\>", 
   ",", "\<\"PV\"\>", ",", "\<\"RI\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.7953182399355597`*^9, 3.795318412854495*^9, 
  3.7953187467301636`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"6b277510-0b4e-42d8-93bf-e89bc505b69a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"datosCCAA", "=", 
   RowBox[{"idemccaa", "/.", "agrupadosCCAA"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795318624755249*^9, 3.7953186948453565`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"55b9dfaf-e519-40d7-bac4-e22cdb15c0f2"],

Cell["Extraemos los datos de cada CCAA", "Item",
 CellChangeTimes->{{3.795319210984972*^9, 
  3.795319227485769*^9}},ExpressionUUID->"258f40a3-da4d-4b7b-82df-\
89d476930a5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "datosAN", ",", "datosAR", ",", "datosAS", ",", "datosIB", ",", "datosCN",
      ",", "datosCB", ",", "datosCM", ",", "datosCL", ",", "datosCT", ",", 
     "datosCE", ",", "datosVC", ",", "datosEX", ",", "datosGA", ",", 
     "datosMD", ",", "datosME", ",", "datosMC", ",", "datosNC", ",", 
     "datosPV", ",", "datosRI"}], "}"}], "=", "datosCCAA"}], ";"}]], "Input",
 CellChangeTimes->{{3.795318799210702*^9, 3.7953188094179716`*^9}, {
  3.795318872116516*^9, 3.795318882340272*^9}, {3.7953189248962264`*^9, 
  3.795319008209677*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"23b46a90-8b18-468a-ae8d-08a974d990d9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "ca", ",", " ", "fecha", ",", " ", "casosCM", ",", " ", "hospCM", ",", " ",
     "uciCM", ",", " ", "falCM", ",", " ", "recCM"}], "}"}], "=", 
  RowBox[{"Transpose", "[", "datosMD", "]"}]}]], "Input",
 CellChangeTimes->{{3.794405548084453*^9, 3.7944056094203176`*^9}, {
   3.7944061108958597`*^9, 3.7944062018336363`*^9}, 3.794406277380012*^9, {
   3.794406420854807*^9, 3.7944064831791563`*^9}, {3.7944079162420263`*^9, 
   3.794407917918667*^9}, {3.7944079883231635`*^9, 3.794407998042019*^9}, {
   3.7944090012249947`*^9, 3.794409063567608*^9}, {3.794409213870904*^9, 
   3.7944092179660835`*^9}, {3.7944712530603666`*^9, 3.7944712638257227`*^9}, 
   3.7944854314978914`*^9, {3.794985108122178*^9, 3.794985110161791*^9}, {
   3.7949851668022017`*^9, 3.7949851671773973`*^9}, {3.7949873227829356`*^9, 
   3.7949873231850276`*^9}, 3.7952310281695743`*^9, 3.795232808647704*^9, {
   3.795318493653583*^9, 3.795318587519005*^9}, 3.7953187199000487`*^9, {
   3.795318772077252*^9, 3.7953187733707333`*^9}, 3.7953190238060384`*^9, {
   3.7953190653939357`*^9, 3.7953191000598173`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"90068a3e-0abe-4a66-ada6-fa7e1ff7551c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", ",", "\<\"MD\"\>", 
     ",", "\<\"MD\"\>", ",", "\<\"MD\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"15/03/2020\"\>", ",", "\<\"16/03/2020\"\>", 
     ",", "\<\"17/03/2020\"\>", ",", "\<\"18/03/2020\"\>", 
     ",", "\<\"19/03/2020\"\>", ",", "\<\"20/03/2020\"\>", 
     ",", "\<\"21/03/2020\"\>", ",", "\<\"22/03/2020\"\>", 
     ",", "\<\"23/03/2020\"\>", ",", "\<\"24/03/2020\"\>", 
     ",", "\<\"25/03/2020\"\>", ",", "\<\"26/03/2020\"\>", 
     ",", "\<\"27/03/2020\"\>", ",", "\<\"28/03/2020\"\>", 
     ",", "\<\"29/03/2020\"\>", ",", "\<\"30/03/2020\"\>", 
     ",", "\<\"31/03/2020\"\>", ",", "\<\"01/04/2020\"\>", 
     ",", "\<\"02/04/2020\"\>", ",", "\<\"03/04/2020\"\>", 
     ",", "\<\"04/04/2020\"\>", ",", "\<\"05/04/2020\"\>", 
     ",", "\<\"6/4/2020\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "4165", ",", "4871", ",", "5637", ",", "6777", ",", "7165", ",", "8921", 
     ",", "9702", ",", "10575", ",", "12352", ",", "14597", ",", "17166", ",",
      "19243", ",", "21520", ",", "22677", ",", "24090", ",", "27509", ",", 
     "29840", ",", "32155", ",", "34188", ",", "36249", ",", "37584", ",", 
     "38723", ",", "40469"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "2337", ",", "3710", ",", "3778", ",", "5168", ",", "6338", ",", "7388", 
     ",", "8441", ",", "9561", ",", "10443", ",", "11153", ",", "12440", ",", 
     "13580", ",", "14211", ",", "14454", ",", "14917", ",", "15140", ",", 
     "15227", ",", "15227", ",", "15050", ",", "14741", ",", "14551", ",", 
     "14501", ",", "13950"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "253", ",", "340", ",", "491", ",", "590", ",", "678", ",", "767", ",", 
     "834", ",", "942", ",", "1050", ",", "1150", ",", "1221", ",", "1312", 
     ",", "1404", ",", "1429", ",", "1460", ",", "1514", ",", "1514", ",", 
     "1528", ",", "1506", ",", "1498", ",", "1499", ",", "1510", ",", 
     "1494"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "213", ",", "355", ",", "390", ",", "498", ",", "628", ",", "804", ",", 
     "1021", ",", "1263", ",", "1535", ",", "1825", ",", "2090", ",", "2412", 
     ",", "2757", ",", "3082", ",", "3392", ",", "3603", ",", "3865", ",", 
     "4175", ",", "4483", ",", "4723", ",", "4941", ",", "5136", ",", 
     "5371"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "474", ",", "951", ",", "951", ",", "941", ",", "1186", ",", "1542", ",", 
     "1899", ",", "2063", ",", "2291", ",", "3031", ",", "3882", ",", "5044", 
     ",", "6326", ",", "7491", ",", "8301", ",", "9330", ",", "10827", ",", 
     "12400", ",", "13850", ",", "15362", ",", "16543", ",", "17322", ",", 
     "18410"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7953185538284864`*^9, 3.79531859165963*^9, {3.795318723478456*^9, 
   3.7953187468660917`*^9}, 3.795318778818639*^9, 3.7953190265399837`*^9, {
   3.7953190771494055`*^9, 3.7953191030509653`*^9}},
 CellLabel->"Out[35]=",ExpressionUUID->"44c7babc-c758-4488-aed2-4267382c71ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "ca", ",", " ", "fechaCL", ",", " ", "casosCL", ",", " ", "hospCL", ",", 
     " ", "uciCL", ",", " ", "falCL", ",", " ", "recCL"}], "}"}], "=", 
   RowBox[{"Transpose", "[", "datosCL", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7944696378572598`*^9, 3.7944697932631426`*^9}, 
   3.7944701159142942`*^9, {3.7944709357793913`*^9, 3.794470967731902*^9}, {
   3.794471073325579*^9, 3.7944710822008724`*^9}, {3.794471418325869*^9, 
   3.794471422450756*^9}, {3.794645125139123*^9, 3.794645128099622*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"18cc4956-a963-4ed4-b6c3-0cc1188eed73"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "ca", ",", " ", "fecha", ",", " ", "casosAN", ",", " ", "hospAN", ",", 
     " ", "uciAN", ",", " ", "falAN", ",", " ", "recAN"}], "}"}], "=", 
   RowBox[{"Transpose", "[", "datosAN", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7944696378572598`*^9, 3.7944697932631426`*^9}, 
   3.7944701159142942`*^9, {3.7944713810914745`*^9, 3.794471386825901*^9}, {
   3.79455466993523*^9, 3.7945546897322793`*^9}, {3.794645182152859*^9, 
   3.7946451843974743`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"d843cb97-c6cf-48ab-9531-c2c8c532b87e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rango", "=", 
  RowBox[{"Range", "[", 
   RowBox[{"15", ",", 
    RowBox[{
     RowBox[{"Length", "[", "casosCM", "]"}], "+", "15", "-", "1"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.794985600649344*^9, 3.7949856028744545`*^9}, {
  3.7949873619811068`*^9, 3.7949873655758686`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"6d3abe49-c91a-4b65-a85c-759a909ff805"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 
   "35", ",", "36", ",", "37"}], "}"}]], "Output",
 CellChangeTimes->{{3.7949855945039487`*^9, 3.794985606472463*^9}, {
   3.794987352096337*^9, 3.794987367959193*^9}, 3.795012551022888*^9, 
   3.7950597196893063`*^9, 3.795061275309167*^9, 3.795087821446166*^9, 
   3.795093536769084*^9, 3.795146773747467*^9, 3.795152039709699*^9, 
   3.795153637599348*^9, 3.7951558961392317`*^9, 3.7951572067413855`*^9, 
   3.795233044562542*^9, 3.7952609658721404`*^9, 3.795315450318927*^9, 
   3.7953191721456566`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"41215d26-9293-46f4-8a12-96b3bd126ce2"]
}, Open  ]],

Cell["Convertimos la fecha a formato ISO", "Item",
 CellChangeTimes->{{3.794471476013296*^9, 3.7944714941231456`*^9}, {
  3.7948850348673787`*^9, 
  3.794885049505124*^9}},ExpressionUUID->"c3aaba25-e7b2-4214-a551-\
0a48ffcc48d5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"date", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"DateList", "[", 
      RowBox[{"{", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Day\>\"", ",", "\"\<Month\>\"", ",", "\"\<Year\>\""}], 
         "}"}]}], "}"}], "]"}], "&"}], ",", " ", "fecha"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.794470272379655*^9, 3.7944702811693587`*^9}, {
   3.79447032932535*^9, 3.7944703858566113`*^9}, {3.794470420966855*^9, 
   3.794470522575287*^9}, {3.7944707068882136`*^9, 3.7944707140293655`*^9}, {
   3.7944707636226206`*^9, 3.794470777731891*^9}, {3.7944708887167015`*^9, 
   3.794470891506929*^9}, {3.794471460513508*^9, 3.794471461841683*^9}, 
   3.794885038702877*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"6401e669-5ad8-4541-af01-84e3b4cbf984"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "15", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "16", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "17", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "18", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "19", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "20", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "21", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "22", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "23", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "24", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "25", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "26", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "27", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "28", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "29", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "30", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "3", ",", "31", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "4", ",", "1", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "4", ",", "2", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "4", ",", "3", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "4", ",", "4", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "4", ",", "5", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "4", ",", "6", ",", "0", ",", "0", ",", "0.`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.794885039588729*^9, 3.7948874085653133`*^9, 3.7948886332470455`*^9, 
   3.79489483966726*^9, 3.794897037248595*^9, 3.7949012321195793`*^9, 
   3.7949188815815187`*^9, 3.794920903562741*^9, 3.794975167821186*^9, 
   3.79497765322671*^9, 3.7949801885864477`*^9, {3.794985155345564*^9, 
   3.7949851761368413`*^9}, 3.7949873521503153`*^9, 3.7950125510971737`*^9, 
   3.7950597198042407`*^9, 3.79506127540819*^9, 3.795087821549117*^9, 
   3.7950935368510385`*^9, 3.7951467737941074`*^9, 3.795152039761562*^9, 
   3.795153637653205*^9, 3.79515589624748*^9, 3.795157206809204*^9, 
   3.7952330446632714`*^9, 3.795260965966074*^9, 3.7953154504288692`*^9, 
   3.795319183318014*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"ec338827-285b-47b3-ae3e-842a5b972188"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Madrid", "Subsubsection",
 CellChangeTimes->{{3.794885100006323*^9, 
  3.7948851076430874`*^9}},ExpressionUUID->"3545a414-4e1d-4299-ae16-\
154369d75401"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "infectadosCM", ",", " ", "hospitalizadosCM", ",", " ", "muertosCM", ",", 
     " ", "recuperadosCM"}], "}"}], "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"rango", ",", "#"}], "}"}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "casosCM", ",", " ", "hospCM", ",", " ", "falCM", ",", " ", "recCM"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795319298396603*^9, 3.795319426921879*^9}, 
   3.795319525429316*^9},ExpressionUUID->"61800f95-e5d7-4425-847f-\
9d354dba52c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"datosMD", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", "cabecera"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7944074547258606`*^9, 3.794407492213555*^9}, {
   3.7944075295653424`*^9, 3.7944075547388425`*^9}, {3.7944075954680576`*^9, 
   3.794407602263613*^9}, 3.794407645328954*^9, {3.794407681016902*^9, 
   3.794407733642121*^9}, {3.7944092453355045`*^9, 3.7944092470126867`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"c347f7ee-56b9-47ed-bbd8-9f6ecabc29f0"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"CCAA Codigo ISO\"\>",
       HoldForm], 
      TagBox["\<\"Fecha\"\>",
       HoldForm], 
      TagBox["\<\"Casos\"\>",
       HoldForm], 
      TagBox["\<\"Hospitalizados\"\>",
       HoldForm], 
      TagBox["\<\"UCI\"\>",
       HoldForm], 
      TagBox["\<\"Fallecidos\"\>",
       HoldForm], 
      TagBox["\<\"Recuperados\"\>",
       HoldForm]},
     {"\<\"MD\"\>", "\<\"15/03/2020\"\>", "4165", "2337", "253", "213", "474"},
     {"\<\"MD\"\>", "\<\"16/03/2020\"\>", "4871", "3710", "340", "355", "951"},
     {"\<\"MD\"\>", "\<\"17/03/2020\"\>", "5637", "3778", "491", "390", "951"},
     {"\<\"MD\"\>", "\<\"18/03/2020\"\>", "6777", "5168", "590", "498", "941"},
     {"\<\"MD\"\>", "\<\"19/03/2020\"\>", "7165", "6338", "678", "628", 
      "1186"},
     {"\<\"MD\"\>", "\<\"20/03/2020\"\>", "8921", "7388", "767", "804", 
      "1542"},
     {"\<\"MD\"\>", "\<\"21/03/2020\"\>", "9702", "8441", "834", "1021", 
      "1899"},
     {"\<\"MD\"\>", "\<\"22/03/2020\"\>", "10575", "9561", "942", "1263", 
      "2063"},
     {"\<\"MD\"\>", "\<\"23/03/2020\"\>", "12352", "10443", "1050", "1535", 
      "2291"},
     {"\<\"MD\"\>", "\<\"24/03/2020\"\>", "14597", "11153", "1150", "1825", 
      "3031"},
     {"\<\"MD\"\>", "\<\"25/03/2020\"\>", "17166", "12440", "1221", "2090", 
      "3882"},
     {"\<\"MD\"\>", "\<\"26/03/2020\"\>", "19243", "13580", "1312", "2412", 
      "5044"},
     {"\<\"MD\"\>", "\<\"27/03/2020\"\>", "21520", "14211", "1404", "2757", 
      "6326"},
     {"\<\"MD\"\>", "\<\"28/03/2020\"\>", "22677", "14454", "1429", "3082", 
      "7491"},
     {"\<\"MD\"\>", "\<\"29/03/2020\"\>", "24090", "14917", "1460", "3392", 
      "8301"},
     {"\<\"MD\"\>", "\<\"30/03/2020\"\>", "27509", "15140", "1514", "3603", 
      "9330"},
     {"\<\"MD\"\>", "\<\"31/03/2020\"\>", "29840", "15227", "1514", "3865", 
      "10827"},
     {"\<\"MD\"\>", "\<\"01/04/2020\"\>", "32155", "15227", "1528", "4175", 
      "12400"},
     {"\<\"MD\"\>", "\<\"02/04/2020\"\>", "34188", "15050", "1506", "4483", 
      "13850"},
     {"\<\"MD\"\>", "\<\"03/04/2020\"\>", "36249", "14741", "1498", "4723", 
      "15362"},
     {"\<\"MD\"\>", "\<\"04/04/2020\"\>", "37584", "14551", "1499", "4941", 
      "16543"},
     {"\<\"MD\"\>", "\<\"05/04/2020\"\>", "38723", "14501", "1510", "5136", 
      "17322"},
     {"\<\"MD\"\>", "\<\"6/4/2020\"\>", "40469", "13950", "1494", "5371", 
      "18410"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"CCAA Codigo ISO", "Fecha", "Casos", "Hospitalizados", "UCI", 
       "Fallecidos", "Recuperados"}}]]]], "Output",
 CellChangeTimes->{3.794409250956419*^9, 3.794468473822191*^9, 
  3.794471331499031*^9, 3.794485411653366*^9, 3.7945539723254256`*^9, 
  3.794644989995909*^9, 3.7946782940142016`*^9, 3.794751110830035*^9, 
  3.7948028177841773`*^9, 3.794884535360445*^9, 3.7948874086278286`*^9, 
  3.7948886333240757`*^9, 3.794894847245936*^9, 3.7948970373583975`*^9, 
  3.7949012322105136`*^9, 3.794918881681769*^9, 3.79492090370658*^9, 
  3.794975167893145*^9, 3.7949776533361044`*^9, 3.7949801886332703`*^9, 
  3.794985244495099*^9, 3.7949853108100076`*^9, 3.794987352244251*^9, 
  3.7950125511743145`*^9, 3.7950597199381638`*^9, 3.795061275501934*^9, 
  3.7950878216530476`*^9, 3.7950935369449835`*^9, 3.7951467738409753`*^9, 
  3.7951520397705374`*^9, 3.795153637709056*^9, 3.795155896260415*^9, 
  3.795157206879047*^9, 3.7952330580816436`*^9, 3.795260966059684*^9, 
  3.7953154504458704`*^9, 3.7953192512518773`*^9},
 CellLabel->
  "Out[41]//TableForm=",ExpressionUUID->"a1b3c44b-0c09-487f-97ca-\
cad87374183c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "casosCM", ",", " ", "hospCM", ",", " ", "uciCM", ",", " ", "falCM", ",", 
     " ", "recCM"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"cabecera", "[", 
     RowBox[{"[", 
      RowBox[{"3", ";;", "7"}], "]"}], "]"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7944698256231337`*^9, 3.7944698573728046`*^9}, 
   3.794469906669803*^9, 3.794470003029024*^9, {3.7944700700736723`*^9, 
   3.7944700980605745`*^9}, {3.794470135262927*^9, 3.7944701526229477`*^9}, 
   3.794471175153716*^9, {3.794645013960082*^9, 3.7946450143470645`*^9}, 
   3.7946450614936085`*^9, {3.794751049419784*^9, 3.794751088816367*^9}, 
   3.7948846826575894`*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"263adb99-9bf9-4a6a-a6c0-197c384c9d77"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7KVfcNy2X63gABVwuNrwrT77N4zP4cC7Veet
kZsilC/gIGr0WqJhCYwv4uCTfySM8SCML+GwMuxCoI2hEpQv43DKgz3DJAbG
V3CwfdC1IrADxldyeF2zqfjGdRhfxeHEr2fmkbrKUL6ag5yU8MvIBhhfw8FF
Z1fLlV0wvpbDP1UPRvEvML6Ow6lWY+7nfCpQvp5D7u3NR2/qwvgGDisdY3XP
FsL4hg77k9Xki2bD+EYOzz4kTt18EMY3dlizKVNP/CGMb+LQ/M7oIP9/GN/U
obOfw2CKoCqUb+bw6Bx70l0FGN/cwa1v659Cc1UHAIsoWE0=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7Bs+lLicYJN3gAo47Nbfc4+lQAHK53Dwy3Zr
CayE8QUcVKP3Ge6UVITyRRw2empxmTXB+BIORy5Nm7DpAowv49Dqxyr2WkQJ
yldwsHkR0bM1BMZXcrh1UsbzcSOMr+Lw637goQmLYXw1B4Pbhz9W3YbxNRy0
X4lWxnMoQ/laDt+zVrctkIfxdRw0TnFf89OA8fUczuavmlxsAeMbOGydHdXK
4wDjGzocDOnv/e0E4xuh8Y0drHvNOP/bwPgmDtFTV7yMN4LxTR3OtB1p3q0N
45s5rNp2IfKHJoxv7tA6adc9JTFlBwBo4Vk4
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7OeVrrhloCTmABVwaDPcLnc9QBzK53Dor3Rc
pnFSAsoXcGC+svC6XasklC/iEMO9L2K2sBSUL+Gw8H08/4uJML6Mg/DkhbtW
PofxFRxiJyypi06RhvKVHAye8i5ruAzjqzhceL4vaoWBDJSv5uDu0PGRIQ/G
13CI2aXcNGc7jK/l8EYsciPTXxhfxyH1SWOuKL8slK/nsF7xTgG/Koxv4PCg
55aOgxeMb4jGN3IocTsltjYYxjd2eKwZH3LZBcY3cdBX1RaLt4fxTR2q043Y
+BxgfDOHe6uE1nS5w/jmDq5rZ2gtspF1AAB+OFMJ
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7HvEL0z6VijqABVwELNSKOKpFYfyORzKNspN
Cr0L4ws4NOW87V5+XQLKF3G4Me2GveZRSShfwiHnwUR/tUNSUL6Mg1W5xrxL
26ShfAUHzjtb+hdNkIHylRx+zpvvEh0hC+WrODR8k9Dv55SD8tUcjs+fsyd1
Coyv4aCnaPtOQV0eytdy6AgWU2bbAOPrOBhJ/lAXFFSA8vUcnqQss1R2gvEN
HGIEjnNxJsL4hg7zZ0vP/9kC4xs5/PEL061aA+MbO0Rs9Vj0+gKMb+Lgsu6i
8/zXML6pQ8/2+5t2MilC+WYO3ZeKRbrFYHxzB1f+Ur1iXUUHAEG4VH8=
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7EssrTqEl0o4QAUc4n/M1JLIk4byOdD4Ag6f
Yn7wuybD+CIO/8ozjlkEyED5Eg6CEjf/McfKQvkyDg2fv+1xMpKD8hUc2I6F
you2w/hKDk0bpr3P+QTjqzisY+UXauNQgPLVHHzOPr5n0Q7jazj4Bci99+RV
hPK1HDg3fVhs2wjj6zhwla/xPHkdxtdzmL6M8X0UjxKUb+AQbGL1UN8Dxjd0
+JSpUJgwBcY3cphvc+/8lZswvrFDYcHTZ8VCylC+icPk7+V1De4wvqnDFDbD
2pxcGN/MITOxce3vFhjf3CFwqouKzhJlBwCs1lTD
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {0.5416666666666667, 4.950684688739668}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.5416666666666667, 23.}, {4.950684688739668, 
      10.608291527903145`}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Casos\"", "\"Hospitalizados\"", "\"UCI\"", "\"Fallecidos\"", 
       "\"Recuperados\""}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7944698342784853`*^9, 3.7944698582003317`*^9}, 
   3.794470006153781*^9, {3.794470075215928*^9, 3.79447014851326*^9}, 
   3.7944701886068773`*^9, 3.794471178153549*^9, {3.794471368327249*^9, 
   3.7944713938100324`*^9}, 3.7944854119033155`*^9, 3.794553972653328*^9, 
   3.79464501782022*^9, 3.7946450648951006`*^9, 3.7947511112667937`*^9, 
   3.794802817987544*^9, 3.794884535686764*^9, 3.794884686789133*^9, 
   3.7948874088639755`*^9, 3.794888633629004*^9, 3.794894847440924*^9, 
   3.794897038561782*^9, 3.794901232411398*^9, 3.7949188818510494`*^9, 
   3.7949209039121532`*^9, 3.7949751680460863`*^9, 3.7949776535019517`*^9, 
   3.794980188789467*^9, {3.7949852447063484`*^9, 3.79498526616271*^9}, 
   3.794985311002646*^9, 3.794987352592067*^9, 3.7950125513461947`*^9, 
   3.795059720143158*^9, 3.795061275796585*^9, 3.7950878220178547`*^9, 
   3.795093537183629*^9, 3.7951467739723983`*^9, 3.795152039915287*^9, 
   3.7951536378317547`*^9, 3.7951558964987783`*^9, 3.7951572070226345`*^9, 
   3.795233058395804*^9, 3.795260966306449*^9, 3.795315450631749*^9, 
   3.7953192515769978`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"96f461e2-f35b-4a52-94d6-d68796c85442"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Differences", "[", "casosCM", "]"}], ",", " ", 
   RowBox[{"Filling", "->", "Axis"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.794554305810109*^9, 3.7945543366559935`*^9}, {
  3.7945543723568635`*^9, 3.7945543738413815`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"35744e65-5f2e-4c9a-8bf6-50c89ea667fe"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt0ssKAVEAxvHJynLSJGkWSJKkcZuFjcnK2iMoZcfSEyBWJBsLl6w8gCew
koUH8BAeweX7TvLt7Zw6/ftNp86Z00m2e61OyLKsxnO+inGvv2MPA35A7yM6
jF5ntI0GA9pB+ys6hnbHtIs2p3QCPZn1KXSypdNoZE9n0NqGzqJnsz6HOnM6
Ty/pAno80B7q7+giGjUu8XxruozGzf4V9Lagq+jF3I+PNs3/8X4/I/hmWGyL
HXFM7IoT4pQ4Lc6Is+KcOC8uiD1xUVwSl8UVcVXsi//v950fvN8HxZdWQA==

    "], {{{}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{23, 1}],
        LineBox[{24, 2}], LineBox[{25, 3}], LineBox[{26, 4}], 
       LineBox[{27, 5}], LineBox[{28, 6}], LineBox[{29, 7}], LineBox[{30, 8}],
        LineBox[{31, 9}], LineBox[{32, 10}], LineBox[{33, 11}], 
       LineBox[{34, 12}], LineBox[{35, 13}], LineBox[{36, 14}], 
       LineBox[{37, 15}], LineBox[{38, 16}], LineBox[{39, 17}], 
       LineBox[{40, 18}], LineBox[{41, 19}], LineBox[{42, 20}], 
       LineBox[{43, 21}], LineBox[{44, 22}]}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 
       60, 61, 62, 63, 64, 65, 66}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 22.}, {0, 3419.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.794554536856673*^9, 3.7946451770804863`*^9, 3.794802819268678*^9, 
   3.794802901268587*^9, 3.79488740893678*^9, 3.79488863445453*^9, 
   3.794894847613312*^9, 3.7948970386627235`*^9, 3.7949012325253325`*^9, 
   3.794918881929173*^9, 3.7949209040190907`*^9, 3.794975168135008*^9, 
   3.794977653583754*^9, 3.794980188898628*^9, {3.7949852448575225`*^9, 
   3.7949852663922253`*^9}, 3.7949853112133656`*^9, 3.79498735290989*^9, 
   3.795012551439922*^9, 3.795059720277087*^9, 3.795061275999687*^9, 
   3.7950878221397805`*^9, 3.7950935373256865`*^9, 3.795146774034234*^9, 
   3.7951520399761553`*^9, 3.795153637901568*^9, 3.795155896712208*^9, 
   3.7951572071024203`*^9, 3.795233058478583*^9, 3.795260966413193*^9, 
   3.7953154507666793`*^9, 3.7953192517868633`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"b8b38348-efb1-4da7-aebf-ac0d2d1dbbe5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Castilla Le\[OAcute]n", "Subsubsection",
 CellChangeTimes->{{3.794885100006323*^9, 
  3.7948851283418894`*^9}},ExpressionUUID->"2a38b17d-117d-4110-a9e5-\
125bd53cc42a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "infectadosCL", ",", " ", "hospitalizadosCL", ",", " ", "muertosCL", ",", 
     " ", "recuperadosCL"}], "}"}], "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"rango", ",", "#"}], "}"}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "casosCL", ",", " ", "hospCL", ",", " ", "falCL", ",", " ", "recCL"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795319298396603*^9, 3.795319426921879*^9}, 
   3.795319525429316*^9, {3.7953196336734324`*^9, 
   3.7953196738145432`*^9}},ExpressionUUID->"7c6850c7-67ed-4030-b5e5-\
00b508d8d46a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"datosCL", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", "cabecera"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.7944092401052036`*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"aef433af-1412-4cf8-adce-8fa016f59df1"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"CCAA Codigo ISO\"\>",
       HoldForm], 
      TagBox["\<\"Fecha\"\>",
       HoldForm], 
      TagBox["\<\"Casos\"\>",
       HoldForm], 
      TagBox["\<\"Hospitalizados\"\>",
       HoldForm], 
      TagBox["\<\"UCI\"\>",
       HoldForm], 
      TagBox["\<\"Fallecidos\"\>",
       HoldForm], 
      TagBox["\<\"Recuperados\"\>",
       HoldForm]},
     {"\<\"CL\"\>", "\<\"15/03/2020\"\>", "292", "45", "8", "6", "5"},
     {"\<\"CL\"\>", "\<\"16/03/2020\"\>", "431", "95", "24", "12", "5"},
     {"\<\"CL\"\>", "\<\"17/03/2020\"\>", "668", "219", "43", "22", "5"},
     {"\<\"CL\"\>", "\<\"18/03/2020\"\>", "868", "281", "54", "29", "27"},
     {"\<\"CL\"\>", "\<\"19/03/2020\"\>", "1147", "370", "69", "43", "37"},
     {"\<\"CL\"\>", "\<\"20/03/2020\"\>", "1466", "575", "85", "55", "54"},
     {"\<\"CL\"\>", "\<\"21/03/2020\"\>", "1744", "709", "106", "74", "89"},
     {"\<\"CL\"\>", "\<\"22/03/2020\"\>", "2055", "860", "120", "102", "117"},
     {"\<\"CL\"\>", "\<\"23/03/2020\"\>", "2460", "1057", "137", "124", "140"},
     {"\<\"CL\"\>", "\<\"24/03/2020\"\>", "2940", "1244", "170", "165", "213"},
     {"\<\"CL\"\>", "\<\"25/03/2020\"\>", "3488", "1515", "202", "206", "308"},
     {"\<\"CL\"\>", "\<\"26/03/2020\"\>", "4132", "1791", "228", "252", "423"},
     {"\<\"CL\"\>", "\<\"27/03/2020\"\>", "4791", "2063", "249", "321", "585"},
     {"\<\"CL\"\>", "\<\"28/03/2020\"\>", "5414", "2408", "278", "380", "752"},
     {"\<\"CL\"\>", "\<\"29/03/2020\"\>", "5801", "2540", "307", "442", "871"},
     {"\<\"CL\"\>", "\<\"30/03/2020\"\>", "6211", "2601", "325", "516", 
      "1028"},
     {"\<\"CL\"\>", "\<\"31/03/2020\"\>", "6847", "2692", "345", "585", 
      "1259"},
     {"\<\"CL\"\>", "\<\"01/04/2020\"\>", "7355", "2709", "353", "641", 
      "1498"},
     {"\<\"CL\"\>", "\<\"02/04/2020\"\>", "7875", "2711", "355", "723", 
      "1759"},
     {"\<\"CL\"\>", "\<\"03/04/2020\"\>", "8332", "2664", "348", "786", 
      "2021"},
     {"\<\"CL\"\>", "\<\"04/04/2020\"\>", "8749", "2574", "351", "847", 
      "2331"},
     {"\<\"CL\"\>", "\<\"05/04/2020\"\>", "9116", "2508", "348", "919", 
      "2533"},
     {"\<\"CL\"\>", "\<\"6/4/2020\"\>", "9581", "5180", "346", "982", "2711"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"CCAA Codigo ISO", "Fecha", "Casos", "Hospitalizados", "UCI", 
       "Fallecidos", "Recuperados"}}]]]], "Output",
 CellChangeTimes->{
  3.7944684738879375`*^9, 3.794471335966054*^9, 3.794485411700122*^9, 
   3.7945539723722143`*^9, 3.7946449942034206`*^9, 3.794678294076724*^9, 
   3.7947511108969955`*^9, 3.7948028178154197`*^9, 3.7948845354211764`*^9, 
   3.7948874091437907`*^9, 3.7948886348345914`*^9, 3.7948948480132437`*^9, 
   3.794897038889593*^9, 3.7949012329165*^9, 3.794918882183176*^9, 
   3.7949209044118657`*^9, 3.794975168404852*^9, 3.7949776537905793`*^9, 
   3.7949801891329346`*^9, {3.7949852450414124`*^9, 3.7949852667020316`*^9}, 
   3.7949853115711555`*^9, 3.794985533639715*^9, 3.7949873534130816`*^9, 
   3.7950125517055273`*^9, 3.795059720823926*^9, 3.795061276609021*^9, 
   3.7950878225895157`*^9, 3.7950935377883115`*^9, 3.7951467742629614`*^9, 
   3.7951520401795793`*^9, 3.7951536381030264`*^9, 3.7951558970662603`*^9, 
   3.795157207351755*^9, 3.795233058736892*^9, 3.79526096698164*^9, 
   3.7953154508426375`*^9},
 CellLabel->
  "Out[96]//TableForm=",ExpressionUUID->"2b436c87-ac07-4c0c-8f48-\
84a2ec29a266"]
}, Open  ]],

Cell["\<\
Esta informaci\[OAcute]n nos debe permitir ajustar par\[AAcute]metros del \
modelo\
\>", "Text",
 CellChangeTimes->{{3.794409400074648*^9, 3.794409423538514*^9}, {
  3.794410032931716*^9, 
  3.794410034032153*^9}},ExpressionUUID->"c226a2c2-7b68-47d0-914b-\
544cdfd34394"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "casosCL", ",", " ", "hospCL", ",", " ", "uciCL", ",", " ", "falCL"}], 
    "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"cabecera", "[", 
     RowBox[{"[", 
      RowBox[{"3", ";;", "7"}], "]"}], "]"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7944698256231337`*^9, 3.7944698573728046`*^9}, 
   3.794469906669803*^9, 3.794470003029024*^9, {3.7944700700736723`*^9, 
   3.7944700980605745`*^9}, {3.794470135262927*^9, 3.7944701526229477`*^9}, {
   3.794471089091529*^9, 3.794471100999598*^9}, {3.794471149731741*^9, 
   3.79447115850737*^9}, {3.7946450461387653`*^9, 3.794645046657251*^9}, {
   3.7947512870689163`*^9, 3.7947512875393972`*^9}, 3.794884698791543*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"e76b90bf-4b39-4132-bcf5-1f9758674d38"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7JP2Pfj0b4uYA1TAofPP5WsbnSWgfA6HW6kl
ciksUlC+gMP+XZP7pwhIQ/kiDj0/U2f/1pWB8iUcplRN7HTSlIXyZRz+FdYZ
Cd2G8RUc1qjUTJdqloPylRw2dejU+1nLQ/kqDtvj64yvfoTx1Rzm3dHzzA1Q
gPI1HG5+PGamuxzG13LglAh8/+ETjK/j8OO/QUyHoSKUr+eQGVl782EIjG/g
YD3B9vuNchjf0OHwtH0Mh1fC+EYOl6v0T6efg/GNHRgXZm1M/AjjmzhEOHs1
OfMpQfmmDt9Or2xzUYfxzRxyBXPr/WxgfHOHOkuHwuOhSg4AZPdbKw==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7JecXFzGXcLnABVweLznb4O2uRCUz+GwsuDs
xYw+UShfwMFKbcONNb1iUL6IQybfj5Dc5eJQvoTDpAX3f93PkoTyZRxC62+E
JztKQfkKDhfTj3hIsktD+UoOL6cdqfS7BeOrOFzlXssq2ygD5as5OMQdcn7r
JQvlazhw+78L8/0G42s5sB0LlRdtl4PydRwiHplcy1WVh/L1HLgVpC4Jx8D4
Bg7/GQL/J5TA+IYO9gmV26dPh/GNHFT63n7mnAfjGztMSDiSdRrON3GQ2y14
5VEPjG/qMEmrr29jJoxv5lB9RNtWwh/GN3eQ/2Zo8FJK0QEA3jRW8g==
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7ItXW9tvWsTgABVw+KkzqWZ5DieUz+Eg+EZE
7IMYH5Qv4MAjfKi84CU/lC/isFtqytyd7wWgfAkHrsU/4tyOCkL5Mg6TUz9M
jlkuBOUrOJysdLFJUROG8pUc5jZcreJfB+OrOHi8ur6Pr1sEyldzyGf83bbK
WhTK13C4qpGTuGw7jK/l4KLKp3NfUAzK13EICPomvb4JxtdzWGO95JjXCxjf
wOFQT7/gYiVxKN/QgaOuX/pUPIxv5NBj9S/NuRzGN3YQs1Io4qmF8U0c/M4F
HFmeAeObOhR0zPpYWAjjm6HJmzscPbj4xoEkcQcASLNWlg==
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.645957, 0.253192, 0.685109], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7JkUtH5xr/5jDxVwqJ13eY/YQ2YHCJfD4cRR
2/KSXRxQvoCD/L+zpy0+cEH5Ig6Cb0TEPojxQfkSDp//7YpsYheA8mUcZFf/
uRZjLgjlKzjsPd5+/0e9EJSv5KCpwv7ku7swlK/isNU+7UdNjgiUr+agFW1x
dJ+/KJSv4TB92cIVSnJiUL6Wg1xH1sovouJQvo5DvPcehz2HYHw9B2Xf0rCG
WAko38DB3bUkk/kPjG/o8HvVqwvtNZJQvpFDqM2tFJVbML6xg2OuqlVmqBSU
b+KQHLB2x7dVML6pw6Oz3MkN32F8M4ejQtkt3N7SUL65w9kDCmwf+6QdAOxp
WU8=
         "]]}}, {{
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               DiskBox[{0, 0}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.9, 0.36, 0.054], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.272]], CompressedData["
1:eJxTTMoPSmVmYGAQB2JGIGZigIEP9kn7Hnz6t0XMASrg0Pnn8rWNzhJQPofD
rdQSuRQWKShfwGH/rsn9UwSkoXwRh56fqbN/68pA+RIOU6omdjppykL5Mg7/
CuuMhG7D+AoOa1Rqpks1y0H5Sg6bOnTq/azloXwVh+3xdcZXP8L4ag7z7uh5
5gYoQPkaDjc/HjPTXQ7jazlwSgS+//AJxtdx+PHfIKbDUBHK13PIjKy9+TAE
xjdwsJ5g+/1GOYxv6HB42j6GwythfCOHy1X6p9PPwfjGDowLszYmfoTxTRwi
nL2anPmUoHxTh2+nV7a5qMP4Zg65grn1fjYwvrlDnaVD4fFQJQcAbvtbLQ==

         "]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.365248, 0.427802, 0.758297], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.72]], CompressedData["
1:eJxTTMoPSmVmYGAQB2JGIGZigIEP9ktOLi7jLuFzgAo4PN7zt0HbXAjK53BY
WXD2YkafKJQv4GCltuHGml4xKF/EIZPvR0jucnEoX8Jh0oL7v+5nSUL5Mg6h
9TfCkx2loHwFh4vpRzwk2aWhfCWHl9OOVPrdgvFVHK5yr2WVbZSB8tUcHOIO
Ob/1koXyNRy4/d+F+X6D8bUc2I6Fyou2y0H5Og4Rj0yu5arKQ/l6DtwKUpeE
Y2B8A4f/DIH/E0pgfEMH+4TK7dOnw/hGDip9bz9zzoPxjR0mJBzJOg3nmzjI
7Ra88qgHxjd1mKTV17cxE8Y3c6g+om0r4Q/jmzvIfzM0eCml6AAA6DhW9A==

         "]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.945109, 0.593901, 0.], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.16]], CompressedData["
1:eJxTTMoPSmVmYGAQB2JGIGZigIEP9sWrre03LWJwgAo4/NSZVLM8hxPK53AQ
fCMi9kGMD8oXcOARPlRe8JIfyhdx2C01Ze7O9wJQvoQD1+IfcW5HBaF8GYfJ
qR8mxywXgvIVHE5WutikqAlD+UoOcxuuVvGvg/FVHDxeXd/H1y0C5as55DP+
bltlLQrlazhc1chJXLYdxtdycFHl07kvKAbl6zgEBH2TXt8E4+s5rLFecszr
BYxv4HCop19wsZI4lG/owFHXL30qHsY3cuix+pfmXA7jGzuIWSkU8dTC+CYO
fucCjizPgPFNHQo6Zn0sLITxzdDkzR2OHlx840CSuAMAUrdWmA==
         "]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.645957, 0.253192, 0.685109], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[
                
                NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                  1, 1 - 3^Rational[1, 2]}}, {{0, 
                  1}, {-1, -0.7320508075688772}, {
                  1, -0.7320508075688772}}]]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.645957, 0.253192, 0.685109], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[7.6]], CompressedData["
1:eJxTTMoPSmVmYGAQB2JGIGZigIEP9kwKWr+4V/+xhwo41M67vEfsIbMDhMvh
cOKobXnJLg4oX8BB/t/Z0xYfuKB8EQfBNyJiH8T4oHwJh8//dkU2sQtA+TIO
sqv/XIsxF4TyFRz2Hm+//6NeCMpXctBUYX/y3V0Yyldx2Gqf9qMmRwTKV3PQ
irY4us9fFMrXcJi+bOEKJTkxKF/LQa4ja+UXUXEoX8ch3nuPw55DML6eg7Jv
aVhDrASUb+Dg7lqSyfwHxjd0+L3q1YX2Gkko38gh1OZWisotGN/YwTFX1Soz
VArKN3FIDli749sqGN/U4dFZ7uSG7zC+mcNRoewWbm9pKN/c4ewBBbaPfdIO
APZtWVE=
         "]]}}, {{
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.645957, 0.253192, 0.685109], 
         CapForm["Butt"], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.645957, 0.253192, 0.685109], 
         CapForm["Butt"], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
{}}}, {DisplayFunction -> Identity, GridLines -> {{0}, {}}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {0.5416666666666667, 1.214563000150762}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic, 
     FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {{0}, {}}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.5416666666666667, 23.}, {1.214563000150762, 
      9.167537249650874}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Casos\"", "\"Hospitalizados\"", "\"UCI\"", "\"Fallecidos\"", 
       "\"Recuperados\""}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.272}, {20, 6.272}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.72}, {20, 6.72}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 8.16}, {20, 8.16}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 7.6}, {20, 7.6}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.945109, 0.593901, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.945109, 0.593901, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.945109, 0.593901, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.645957, 0.253192, 0.685109], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.430638, 0.16879466666666665`, 0.45673933333333333`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.645957`", ",", "0.253192`", ",", "0.685109`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.645957, 0.253192, 0.685109]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.645957, 0.253192, 0.685109], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7944698342784853`*^9, 3.7944698582003317`*^9}, 
   3.794470006153781*^9, {3.794470075215928*^9, 3.79447014851326*^9}, 
   3.7944701886068773`*^9, 3.7944711051065645`*^9, 3.7944711615752544`*^9, 
   3.794471427169199*^9, 3.7944854122783813`*^9, 3.794553973262726*^9, 
   3.7946451341582527`*^9, {3.7947512829116983`*^9, 3.7947512908909187`*^9}, 
   3.7948028186906185`*^9, {3.794884704927335*^9, 3.794884713568753*^9}, 
   3.7948874092685895`*^9, 3.7948886350311375`*^9, 3.794894848184784*^9, 
   3.7948970390372295`*^9, 3.794901233122381*^9, 3.7949188823146935`*^9, 
   3.7949209045677767`*^9, 3.794975168557779*^9, 3.794977653914282*^9, 
   3.7949801892735014`*^9, 3.794985245173337*^9, 3.7949853117710314`*^9, 
   3.794985533852975*^9, 3.7949873536681433`*^9, 3.795012551861767*^9, 
   3.7950597210426626`*^9, 3.79506127676527*^9, 3.795087822750432*^9, 
   3.795093538048335*^9, 3.7951467743878155`*^9, 3.7951520403381824`*^9, 
   3.7951536382137337`*^9, 3.795155897240795*^9, 3.795157207537259*^9, 
   3.7952330588585668`*^9, 3.7952609673395095`*^9, 3.795315450990543*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"3b9bc3ad-24a8-4162-96c6-da357af82bd3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListPlot", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"date", ",", " ", "casosCL"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.794470804154174*^9, 3.794470839147479*^9}, {
  3.7944708732942343`*^9, 3.794470877263491*^9}, {3.794470990466914*^9, 
  3.794470995060071*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"695b4aa8-23c6-41e5-a6bb-37295d65afe2"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], CapForm["Butt"], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQQX/jq9cQSzHIocQJSGM5T/oQrENwiC8R+0gPgJ
NTC+QjeIP2EZjP9mIoh/4AKM/2IaiP/hF4zvMBvEV1B1gfL5FoD4Af4wvsVi
EL+hEsb/sQzE37AYxndYDeI/OAvjq2wA8QV+wPjbN4H4DkquUL7aVhC/wAfG
X7kNxF9QBuM77wDxLyyA8ffvAvv/NIy/ew/Y/19h/MP7wP6Xd4Py3Q6A/e8J
5TeIHQT7vxgmfw7M/zAXJr/tkAMA6DRcIA==
       "]]}}, 
    {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
     AbsoluteThickness[1.6], CapForm["Butt"]}, {
     {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], CapForm["Butt"]}, {}}, {
     {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], CapForm["Butt"]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{3.7932192*^9, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Automatic,
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`DateTicksFunction[Automatic, DateTicksFormat -> {Automatic}], 
      Charting`DateTicksFunction[
      Automatic, DateTicksFormat -> {Automatic}, "TickLabels" -> None]}}, {{
     Automatic, Automatic}, {{{3.7933056*^9, 
        FormBox[
         StyleBox["\"Mar 16\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7939104*^9, 
        FormBox[
         StyleBox["\"Mar 23\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7945152*^9, 
        FormBox[
         StyleBox["\"Mar 30\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.79512*^9, 
        FormBox[
         StyleBox["\"Apr 06\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7957248*^9, 
        FormBox[
         StyleBox["\"Apr 13\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7933056*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.793392*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7934784*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7935648*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7936512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7937376*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.793824*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7939104*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7939104*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7939968*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7940832*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7941696*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.794256*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7943424*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7944288*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7945152*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7945152*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7946016*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.794688*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7947744*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7948608*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7949472*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7950336*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.79512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.79512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7952064*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7952928*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7953792*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7954656*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.795552*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7956384*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7957248*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}}, {{3.7933056*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7939104*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7945152*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.79512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7957248*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.7933056*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.793392*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7934784*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7935648*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7936512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7937376*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.793824*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7939104*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7939104*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7939968*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7940832*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7941696*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.794256*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7943424*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7944288*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7945152*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7945152*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7946016*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.794688*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7947744*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7948608*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7949472*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7950336*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.79512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.79512*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7952064*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7952928*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7953792*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7954656*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.795552*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7956384*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}, {3.7957248*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.009722222222222222, 0.}, 
        Directive[]}}}}],
  GridLines->{{0.}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "NoShowPlotTheme" -> "Scientific", "OptimizePlotMarkers" -> True, 
    "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{3.7932192*^9, 3.79512*^9}, {0, 9581.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{{}, Automatic}]], "Output",
 CellChangeTimes->{3.7944708445444374`*^9, 3.7944708808096724`*^9, 
  3.7944710034819193`*^9, 3.7944714340287304`*^9, 3.794485412340812*^9, 
  3.794553973340813*^9, 3.794645142202149*^9, 3.7948028188625097`*^9, 
  3.794884731813306*^9, 3.794887409362439*^9, 3.7948886351740565`*^9, 
  3.7948948482795305`*^9, 3.7948970391911387`*^9, 3.794901233271305*^9, 
  3.7949188824996057`*^9, 3.794920904699701*^9, 3.7949751686976953`*^9, 
  3.794977654024012*^9, 3.79498018946111*^9, 3.7949852453902025`*^9, 
  3.794985311997904*^9, 3.794985534055372*^9, 3.794987353948988*^9, 
  3.795012551986758*^9, 3.7950597212427588`*^9, 3.795061276890253*^9, 
  3.7950878229473248`*^9, 3.7950935381534247`*^9, 3.7951467744347095`*^9, 
  3.7951520404249525`*^9, 3.795153638285544*^9, 3.7951558974043574`*^9, 
  3.7951572076200376`*^9, 3.795233058979244*^9, 3.7952609675160656`*^9, 
  3.7953154511084757`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"fc58e8df-373b-4e77-a50f-4a97b47dda4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Differences", "[", "casosCL", "]"}], ",", " ", 
   RowBox[{"Filling", "->", "Axis"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.794554305810109*^9, 3.7945543366559935`*^9}, {
  3.7945543723568635`*^9, 3.7945543738413815`*^9}, {3.7945545328569946`*^9, 
  3.7945545332317424`*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"3e55f8c2-2f5b-464c-b51b-f13edb4b7206"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, {}, {}, 
     {RGBColor[0.9, 0.36, 0.054], Opacity[0.3], 
      LineBox[{{1., 0.}, {1., 139.}}], LineBox[{{2., 0.}, {2., 237.}}], 
      LineBox[{{3., 0.}, {3., 200.}}], LineBox[{{4., 0.}, {4., 279.}}], 
      LineBox[{{5., 0.}, {5., 319.}}], LineBox[{{6., 0.}, {6., 278.}}], 
      LineBox[{{7., 0.}, {7., 311.}}], LineBox[{{8., 0.}, {8., 405.}}], 
      LineBox[{{9., 0.}, {9., 480.}}], LineBox[{{10., 0.}, {10., 548.}}], 
      LineBox[{{11., 0.}, {11., 644.}}], LineBox[{{12., 0.}, {12., 659.}}], 
      LineBox[{{13., 0.}, {13., 623.}}], LineBox[{{14., 0.}, {14., 387.}}], 
      LineBox[{{15., 0.}, {15., 410.}}], LineBox[{{16., 0.}, {16., 636.}}], 
      LineBox[{{17., 0.}, {17., 508.}}], LineBox[{{18., 0.}, {18., 520.}}], 
      LineBox[{{19., 0.}, {19., 457.}}], LineBox[{{20., 0.}, {20., 417.}}], 
      LineBox[{{21., 0.}, {21., 367.}}], LineBox[{{22., 0.}, {22., 465.}}]}}, 
    {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
     AbsoluteThickness[1.6], CapForm["Butt"], 
     GeometricTransformationBox[InsetBox[
       FormBox[
        StyleBox[
         GraphicsBox[
          {EdgeForm[None], DiskBox[{0, 0}]}],
         StripOnInput->False,
         GraphicsBoxOptions->{DefaultBaseStyle->Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.9, 0.36, 0.054], 
           CapForm["Butt"], 
           AbsoluteThickness[1.6]]}],
        TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZigIEP9mAqIdEBKgChF+RC+RxQOhNKC0DogkIo
XwRCfyiG8iUgdAJMXgaqHiavAKEDKqF8JShdB6VVILRCI5SvBuW3QPkaEHoG
jK8FoSuaoXwdCG1QAeXrQf0Ds88AQj+AqTeE0AfqoXwjCO3QAOUbQ+gJNVC+
CYQWqILyTSH0hzIo3wwqX+sAAGRMJDA=
      "]]}, {
     {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], CapForm["Butt"]}, {}}, {
     {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], CapForm["Butt"]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.5625000000000001, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0.5625000000000001, 22.}, {0, 659.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.794554317552303*^9, 3.794554337450584*^9}, 
   3.794554374809707*^9, 3.7945544886222563`*^9, 3.794554536918984*^9, 
   3.794645177171524*^9, 3.7948028193623576`*^9, 3.7948029013626027`*^9, 
   3.794887409409261*^9, 3.794888635226026*^9, 3.794894848401235*^9, 
   3.7948970392271194`*^9, 3.794901233340766*^9, 3.7949188825842447`*^9, 
   3.7949209047306843`*^9, 3.794975168805622*^9, 3.794977654055197*^9, 
   3.7949801896646204`*^9, 3.794985245486148*^9, 3.7949853121908007`*^9, 
   3.7949855342033014`*^9, 3.7949873541187677`*^9, 3.7950125521598663`*^9, 
   3.79505972127474*^9, 3.7950612769996195`*^9, 3.7950878230292873`*^9, 
   3.795093538320418*^9, 3.795146774497175*^9, 3.795152040468836*^9, 
   3.7951536383274045`*^9, 3.795155897457217*^9, 3.7951572077038136`*^9, 
   3.7952330590301085`*^9, 3.795260967559743*^9, 3.7953154511404576`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"6078b2f6-85d8-4c3e-9f49-aeb87fc2128d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Andaluc\[IAcute]a (el criterio es distinto a las comunidades anteriores, aqui \
los datos de hospitalizados y UCI con los acumulados)\
\>", "Subsubsection",
 CellChangeTimes->{{3.794885100006323*^9, 3.7948851283418894`*^9}, {
  3.794885268877404*^9, 3.794885272863205*^9}, {3.7948858450266953`*^9, 
  3.79488584596091*^9}, {3.79523308375375*^9, 3.795233121371827*^9}, {
  3.795319724215495*^9, 
  3.7953197250482707`*^9}},ExpressionUUID->"6f76c464-5e7f-4c62-9841-\
3bbfbcfd4752"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "infectadosAN", ",", " ", "hospitalizadosAN", ",", " ", "muertosAN", ",", 
     " ", "recuperadosAN"}], "}"}], "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"rango", ",", "#"}], "}"}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "casosAN", ",", " ", "hospAN", ",", " ", "falAN", ",", " ", "recAN"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.795319298396603*^9, 3.795319426921879*^9}, 
   3.795319525429316*^9, {3.7953196336734324`*^9, 3.7953196738145432`*^9}, {
   3.7953197327216015`*^9, 3.795319759834984*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"26f02257-9284-45f7-8b08-063a732eff13"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"datosAN", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", "cabecera"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7944074547258606`*^9, 3.794407492213555*^9}, {
   3.7944075295653424`*^9, 3.7944075547388425`*^9}, {3.7944075954680576`*^9, 
   3.794407602263613*^9}, 3.794407645328954*^9, {3.794407681016902*^9, 
   3.794407733642121*^9}, {3.7944092453355045`*^9, 3.7944092470126867`*^9}, {
   3.7948033919727383`*^9, 3.794803399737665*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"ea5b1428-ba81-4ff9-85ea-ff1bab524e7a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"CCAA Codigo ISO\"\>",
       HoldForm], 
      TagBox["\<\"Fecha\"\>",
       HoldForm], 
      TagBox["\<\"Casos\"\>",
       HoldForm], 
      TagBox["\<\"Hospitalizados\"\>",
       HoldForm], 
      TagBox["\<\"UCI\"\>",
       HoldForm], 
      TagBox["\<\"Fallecidos\"\>",
       HoldForm], 
      TagBox["\<\"Recuperados\"\>",
       HoldForm]},
     {"\<\"AN\"\>", "\<\"15/03/2020\"\>", "554", "197", "11", "7", "0"},
     {"\<\"AN\"\>", "\<\"16/03/2020\"\>", "683", "229", "13", "11", "0"},
     {"\<\"AN\"\>", "\<\"17/03/2020\"\>", "859", "319", "21", "19", "38"},
     {"\<\"AN\"\>", "\<\"18/03/2020\"\>", "1008", "384", "25", "23", "33"},
     {"\<\"AN\"\>", "\<\"19/03/2020\"\>", "1287", "501", "38", "30", "36"},
     {"\<\"AN\"\>", "\<\"20/03/2020\"\>", "1515", "605", "53", "40", "36"},
     {"\<\"AN\"\>", "\<\"21/03/2020\"\>", "1725", "724", "55", "47", "38"},
     {"\<\"AN\"\>", "\<\"22/03/2020\"\>", "1961", "865", "77", "58", "50"},
     {"\<\"AN\"\>", "\<\"23/03/2020\"\>", "2471", "1132", "102", "87", "66"},
     {"\<\"AN\"\>", "\<\"24/03/2020\"\>", "3010", "1433", "116", "113", "71"},
     {"\<\"AN\"\>", "\<\"25/03/2020\"\>", "3406", "1626", "134", "134", "77"},
     {"\<\"AN\"\>", "\<\"26/03/2020\"\>", "3793", "1843", "148", "144", "92"},
     {"\<\"AN\"\>", "\<\"27/03/2020\"\>", "4277", "2106", "172", "175", "139"},
     {"\<\"AN\"\>", "\<\"28/03/2020\"\>", "4682", "2294", "201", "207", "148"},
     {"\<\"AN\"\>", "\<\"29/03/2020\"\>", "5405", "2671", "216", "236", "155"},
     {"\<\"AN\"\>", "\<\"30/03/2020\"\>", "5818", "2867", "235", "248", "160"},
     {"\<\"AN\"\>", "\<\"31/03/2020\"\>", "6392", "3147", "260", "308", "182"},
     {"\<\"AN\"\>", "\<\"01/04/2020\"\>", "6972", "3444", "280", "343", "228"},
     {"\<\"AN\"\>", "\<\"02/04/2020\"\>", "7374", "3673", "338", "376", "258"},
     {"\<\"AN\"\>", "\<\"03/04/2020\"\>", "7869", "3896", "364", "426", "463"},
     {"\<\"AN\"\>", "\<\"04/04/2020\"\>", "8301", "4107", "474", "470", "665"},
     {"\<\"AN\"\>", "\<\"05/04/2020\"\>", "8581", "4227", "489", "491", "798"},
     {"\<\"AN\"\>", "\<\"6/4/2020\"\>", "8767", "4335", "499", "528", "900"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"CCAA Codigo ISO", "Fecha", "Casos", "Hospitalizados", "UCI", 
       "Fallecidos", "Recuperados"}}]]]], "Output",
 CellChangeTimes->{{3.7948034030830555`*^9, 3.7948034120186987`*^9}, 
   3.794803872393796*^9, 3.7948070794872775`*^9, 3.794885756751875*^9, 
   3.794887409674787*^9, 3.7948886354648905`*^9, 3.7948948486725817`*^9, 
   3.794897039473976*^9, 3.7949012337151484`*^9, 3.794918882931901*^9, 
   3.7949209050485*^9, 3.7949751691094484`*^9, 3.794977654351838*^9, 
   3.79498018991421*^9, 3.7949852457749963`*^9, 3.7949873545370436`*^9, 
   3.7950125524254737`*^9, 3.795059721871499*^9, 3.795061277405845*^9, 
   3.7950878234020505`*^9, 3.7950935387668486`*^9, 3.7951467746848235`*^9, 
   3.795152040707196*^9, 3.79515363854582*^9, 3.7951558979469075`*^9, 
   3.795157207902283*^9, 3.7952330594556575`*^9, 3.7952609680127907`*^9, 
   3.795315451319355*^9, 3.7953197648011665`*^9},
 CellLabel->
  "Out[55]//TableForm=",ExpressionUUID->"050f00bb-4802-4f20-92a2-\
91a6028763f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "casosAN", ",", " ", "hospAN", ",", " ", "uciAN", ",", " ", "falAN", ",", 
     " ", "recAN"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"cabecera", "[", 
     RowBox[{"[", 
      RowBox[{"3", ";;", "7"}], "]"}], "]"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7944698256231337`*^9, 3.7944698573728046`*^9}, 
   3.794469906669803*^9, 3.794470003029024*^9, {3.7944700700736723`*^9, 
   3.7944700980605745`*^9}, {3.794470135262927*^9, 3.7944701526229477`*^9}, {
   3.794471089091529*^9, 3.794471100999598*^9}, {3.794471149731741*^9, 
   3.79447115850737*^9}, {3.794554762318516*^9, 3.794554774390254*^9}, {
   3.7946451899754148`*^9, 3.7946452096378126`*^9}, {3.79475134599772*^9, 
   3.7947513464448833`*^9}, 3.7948857881366253`*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"7e223273-75ea-4ac1-8ac4-d443b788b33d"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7D2lrlw85iLpABVwaKx8W64oLQXlczisZz3r
+YJVGsoXcBA2TcjYvBLGF3EIebxO7+ViGShfwsEh7pDzWy9ZKF/GIeRh18xb
52F8BQeTJr3VGsFyUL6Sg9LFLqEH9vJQvorD1NsWp76xKED5ag5Pss6K27vA
+BoOHA31jyOqYXwth95XZW+u7oDxdRxa/bdUaDyH8fUcLkSFea0zUITyDRzM
E9+lJobB+IYOL48Z8vS1wfhGDtpL13izbYbxjR0+nT7zeed5GN/EIUcw5dTf
DzC+qcP0ZYzvo3iUoHwzh8SQLN1wWRjf3OGpy9OXgRpKDgBayVmt
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7A8qt2gwKIk6QAUcDnt8nqe4B8bncNg6a5lj
H784lC/gUGJ8zLb0LIwv4qAokfj37F0JKF/CYeasKtMv8yShfBmHZbKsfZfD
pKB8BYfLd/d/4+CVhvKVHKw8Lx5vUJCB8lUcfKp79T8JykL5ag5sFbOuhEyG
8TUc+pY+554jLAflazkUCqh+MJkD4+s4nHRw/X34M4yv55By4PneSf3yUL6B
Q8aTW0xiN2B8Q4f8yI59B6QVoHwjh39348LeesL4xg6TDvySe5wF45s4TDVv
2y7QCeObOjiwFB8TXALjmzkccpk8+8ImGN/c4ejEgPzd+xUcALjCWlY=
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7H3M67c/1mN2gAo4BPYYarO0skD5HA4b1+VP
0YvmgPIFHIx73353PMAJ5Ys4rHA8fPSYJC+UL+Gw2kYpQ+MwP5Qv4/D5367I
JnYBKF/BwcbIp50vQRDKV3LYe7z9/o96IShfxaG7d6nqWmZhKF/NITuCPTB5
Ooyv4RD16baZ6l8YX8uhheXkKY7pIlC+jsOHwMv9U81EoXw9B6YZ8397NMD4
Bg4rbh+eOvcajG/o8HF7ULCynRiUb+Qw57yqJ1sXjG/s0H9ZoPuMlziUb+Jg
9fpxw/ppML6pQ4mlVYfwUgko38zBTkx1za8jML65Q+buCZlbb0o4AABJBlem

         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEf7MOjjNYVKf23hwo4+JjXb3+sx+wA4XI46Gxm
YTPrY4fyBRw+bL74t1aUE8oXcZh9jfvnMlNuKF/CgbfIyPpyEy+UL+Ow7cME
famzfFC+goOv27GjT2wFoHwlh0v2k1jE7wpC+SoOMc3GUTdeCEH5ag7ZEeyB
ydOFoXwNh9p5l/eIPYTxtRwMYpuX710hAuXrONRG29tsCRGF8vUcvm5v3fnt
Foxv4JCe/cz5AK8YlG/osP0Al/v81zC+kcPBw0uZrkWKQ/nGDqJ+aebPtsP4
Jg6n4tZ/2mcuAeWbOjxTWvw1dQ6Mb+bQX+m4TOMkjG/ukPDz+c9eYUkHAIYf
WoM=
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEcDiscDx89JsnrAOELOFzccfXLjR/cUL6IA5OC
1i/u1TxQvgQaXwZNv4LDeuk12y9580P5Sg7LlL1umRwSgPJVHE5eU/nym0cQ
yldzsDHyaedLgPE1HEoylu/zFxOC8rUchLjF9zzbIwzl6zhEfbptpvoXxtdz
+PXDeVG5jgiUb+DQdDw89pcPjG/o8Gcxi+LzCzC+kcNVjZzEZdtFoXxjB85/
UzitzcSgfBOHGT4qQRy9ElC+qUNlcJfOif+SUL6Zg26F5NqqXVJQvrnD7Gvc
P5eZSjsAAC0fT6A=
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {0.5416666666666667, 1.3877249554281579`}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.5416666666666667, 23.}, {1.3877249554281579`, 
      9.078749951588586}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Casos\"", "\"Hospitalizados\"", "\"UCI\"", "\"Fallecidos\"", 
       "\"Recuperados\""}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7944698342784853`*^9, 3.7944698582003317`*^9}, 
   3.794470006153781*^9, {3.794470075215928*^9, 3.79447014851326*^9}, 
   3.7944701886068773`*^9, 3.7944711051065645`*^9, 3.7944711615752544`*^9, 
   3.794471427169199*^9, 3.7944854122783813`*^9, 3.794553973262726*^9, 
   3.7945547771534023`*^9, {3.794645199019038*^9, 3.7946452148250957`*^9}, {
   3.794751342234547*^9, 3.7947513497952037`*^9}, 3.7948028194874244`*^9, 
   3.79480290920631*^9, 3.7948036072690134`*^9, 3.7948038725030284`*^9, 
   3.794807079721836*^9, 3.7948857569760156`*^9, 3.794885792492382*^9, 
   3.794887409815468*^9, 3.7948886356960554`*^9, 3.794894848854068*^9, 
   3.7948970398407707`*^9, 3.794901233983985*^9, 3.794918883116821*^9, 
   3.7949209052593803`*^9, 3.7949751692883453`*^9, 3.7949776545095243`*^9, 
   3.794980190101689*^9, 3.7949852459228973`*^9, 3.794985716089882*^9, 
   3.794987354757916*^9, 3.7950125526129637`*^9, 3.795059722405487*^9, 
   3.7950612776515226`*^9, 3.795087823593946*^9, 3.7950935390539274`*^9, 
   3.7951467748252897`*^9, 3.7951520408358264`*^9, 3.7951536386844754`*^9, 
   3.795155898169386*^9, 3.7951572080548744`*^9, 3.795233059601269*^9, 
   3.79526096816896*^9, 3.7953154514882593`*^9, 3.795319792751466*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"0a1410e8-918f-4c77-a015-948b9c76ca1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Differences", "[", "casosAN", "]"}], ",", " ", 
   RowBox[{"Filling", "->", "Axis"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.794554305810109*^9, 3.7945543366559935`*^9}, {
  3.7945543723568635`*^9, 3.7945543738413815`*^9}, {3.7945545328569946`*^9, 
  3.7945545332317424`*^9}, {3.7945547948259196`*^9, 3.7945547968882866`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"b501faf9-d9e8-4919-aab6-5f5480903a84"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt0jsKwkAUheFgZZkihUWKGEIIEiTv1uAKxBWIoIIoaqcIGlO4BkuX4hIs
LV1CluDjnkE8taUD4efLDMkwTHO46I9qmqZ1n8+rMqrOO9Ygxwt0jNal5yGs
S5cr2JAWM7ghzaewifk5bEnve9iW3grYkV7WsCsNlD18fwe3pL0N7EtPR7gt
var5QFod4FBqlXAEq/Ux1qv/JegWTaWFOo8M+5vAON/PyL9ZJ+tkg9wgm2SL
bJMdskv2yC2yT26TA3JIjsgxOSGn5Iz8v7+yrRL+3f19AC4JUTA=
    "], {{{}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{23, 1}],
        LineBox[{24, 2}], LineBox[{25, 3}], LineBox[{26, 4}], 
       LineBox[{27, 5}], LineBox[{28, 6}], LineBox[{29, 7}], LineBox[{30, 8}],
        LineBox[{31, 9}], LineBox[{32, 10}], LineBox[{33, 11}], 
       LineBox[{34, 12}], LineBox[{35, 13}], LineBox[{36, 14}], 
       LineBox[{37, 15}], LineBox[{38, 16}], LineBox[{39, 17}], 
       LineBox[{40, 18}], LineBox[{41, 19}], LineBox[{42, 20}], 
       LineBox[{43, 21}], LineBox[{44, 22}]}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 
       60, 61, 62, 63, 64, 65, 66}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 22.}, {0, 723.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.794554317552303*^9, 3.794554337450584*^9}, 
   3.794554374809707*^9, 3.7945544886222563`*^9, 3.794554536918984*^9, 
   3.794554801075323*^9, {3.7946451991177797`*^9, 3.7946452149187927`*^9}, 
   3.7947514384848247`*^9, 3.7948028196282206`*^9, 3.794802909346714*^9, {
   3.794803619534316*^9, 3.7948036264875555`*^9}, 3.7948038726435747`*^9, 
   3.7948070798466935`*^9, 3.794885757199675*^9, 3.794887409884182*^9, 
   3.7948886358149867`*^9, 3.794894848962777*^9, 3.7948970399227285`*^9, 
   3.7949012341269026`*^9, 3.7949188831858516`*^9, 3.7949209053793616`*^9, 
   3.7949751694722404`*^9, 3.794977654602277*^9, 3.794980190179989*^9, 
   3.7949852461087904`*^9, 3.7949857163076468`*^9, 3.7949873549789314`*^9, 
   3.7950125526910796`*^9, 3.7950597226242228`*^9, 3.7950612777515697`*^9, 
   3.7950878237078753`*^9, 3.7950935391765213`*^9, 3.795146774890996*^9, 
   3.795152040907662*^9, 3.7951536387512975`*^9, 3.795155898289093*^9, 
   3.7951572081346617`*^9, 3.7952330596820526`*^9, 3.7952609682629223`*^9, 
   3.795315451559228*^9, 3.7953197929656725`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"064f9381-26ec-4dc2-94c5-108e65713457"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Modelos  compartimentales en epidemiolog\[IAcute]a ", "Section",
 CellChangeTimes->{{3.7939744125283127`*^9, 3.7939744377531843`*^9}, {
  3.793974614111277*^9, 3.7939746152779245`*^9}, {3.7947289782685404`*^9, 
  3.794728979172186*^9}, {3.7949188602087555`*^9, 
  3.7949188610934486`*^9}},ExpressionUUID->"3c25c37e-4721-45c8-99af-\
48641bc49e0d"],

Cell["\<\
Los modelos compartimentales tienen numerosas aplicaciones. En epidemiolog\
\[IAcute]a podemos modelar un proceso epidemiol\[OAcute]gico por \
compartimentos donde cada compartimento representa un estado de salud, Las \
conexiones entre compartimentos indican la direcci\[OAcute]n y la tasa de \
cambio de un estado de salud a otro. \
\>", "Text",
 CellChangeTimes->{{3.79472895214106*^9, 
  3.7947289584104905`*^9}},ExpressionUUID->"8f12376d-ed05-4b1c-b9c3-\
81c329b91c61"],

Cell[CellGroupData[{

Cell["Notaci\[OAcute]n", "Subsubsection",
 CellChangeTimes->{{3.7947274848423843`*^9, 
  3.7947274947260075`*^9}},ExpressionUUID->"db2f7ce0-52b2-4db8-be06-\
9808a5d7625a"],

Cell[CellGroupData[{

Cell["t : tiempo en d\[IAcute]as, desde el inicio de la epidemia.", \
"ItemParagraph",
 CellChangeTimes->{{3.7947281459233246`*^9, 3.7947281823430195`*^9}, {
  3.794728229278939*^9, 
  3.794728258395691*^9}},ExpressionUUID->"8bdc7651-064f-4849-9818-\
66dcbb93e0c7"],

Cell["S  \tIndividuos susceptibles de contagiarse.", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.794727521986002*^9}, {3.794728062957691*^9, 
   3.7947281184667573`*^9}, 
   3.794729586851708*^9},ExpressionUUID->"ebc26541-a578-4364-90c4-\
46f8afd68c47"],

Cell["I \tIndividuos infectados.", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282783298807`*^9, 
   3.7947282783298807`*^9}, {3.79472951770914*^9, 3.79472951770914*^9}, {
   3.79472959108372*^9, 
   3.794729591732977*^9}},ExpressionUUID->"94e52491-3e31-4f7f-a241-\
3de4dbed486a"],

Cell["\<\
\[ScriptCapitalE] \t(del ingl\[EAcute]s exposed), Individuos que portan la \
enfermedad pero aun no muestran s\[IAcute]ntomas (Incubaci\[OAcute]n) \
\>", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282783298807`*^9, 
   3.7947282783298807`*^9}, {3.794729519873355*^9, 3.7947295831633725`*^9}, {
   3.7947515639334946`*^9, 
   3.794751566700184*^9}},ExpressionUUID->"e7da9f63-0224-447b-93c0-\
999e6b9d9a27"],

Cell["R \tIndividuos recuperados", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282795711393`*^9, 3.794728302829447*^9}, 
   3.7947296693823786`*^9},ExpressionUUID->"23f2a3ba-ffc6-45b3-a37d-\
effc538792a6"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
  "5af0480f-deb8-4d23-aea2-054c345d18de"],
 " \tTasa de contagios (probabilidad de que una persona enferme al estar en \
contacto con un infectado); ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1", "/", "\[Beta]"}], TraditionalForm]],ExpressionUUID->
  "9c65d477-39a9-428e-a178-2390fdbf7313"],
 "  es el tiempo promedio en que cada infectado trasmite la enfermedad a \
otra. (Ej.: \[Beta] = 1/2 significa que cada infectado trasmite la enfermedad \
a una persona cada dos d\[IAcute]as)"
}], "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275192391524`*^9}, {3.794728321822303*^9, 
   3.794728321824323*^9}, {3.794728413510762*^9, 3.7947284289696693`*^9}, {
   3.7947284733399296`*^9, 3.79472854921021*^9}, {3.7947285848962803`*^9, 
   3.7947286571421003`*^9}},ExpressionUUID->"a549df8f-f596-4b9d-bdd9-\
8ccdec68944b"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Lambda]", "[", "t", "]"}], TraditionalForm]],ExpressionUUID->
  "19538b26-9fc2-40cc-8089-31a0f77fb6a6"],
 " es la fuerza de la infecci\[OAcute]n (",
 StyleBox["force of infection",
  FontSlant->"Italic"],
 ") que es dependiente del tiempo. Tiene en cuenta que durante el periodo que \
un individuo infecta, su \[OpenCurlyDoubleQuote]capacidad de \
infecci\[OAcute]n varia\[CloseCurlyDoubleQuote].   "
}], "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275192391524`*^9}, {3.794729614662984*^9, 
   3.7947297034493637`*^9}},ExpressionUUID->"765b3fa1-03ed-4531-9024-\
8eb6a1144d93"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["\[Gamma]", TraditionalForm]],ExpressionUUID->
  "65f66f24-eb54-4d5d-8c48-3ab6dcd7cbcf"],
 " \tTasa de recuperaci\[OAcute]n; 1/\[Gamma] es  la duraci\[OAcute]n media \
de la infecci\[OAcute]n;   (Ej.: \[Gamma] = 1/14  significa que un infectado \
se recupera en 14 d\[IAcute]as)"
}], "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275192391524`*^9}, {3.794728321822303*^9, 
   3.794728321824323*^9}, {3.794728413510762*^9, 3.7947284314673567`*^9}, {
   3.7947287716024227`*^9, 
   3.794728906873157*^9}},ExpressionUUID->"cee6aa64-646a-4b02-a9aa-\
31a871854d51"],

Cell["\<\
\[Zeta]\tTasa de incubaci\[OAcute]n. 1/ \[Zeta] es la duraci\[OAcute]n media \
de la incubaci\[OAcute]n. (Ej.: \[Zeta]  = 1/7  significa que el periodo d e \
incubaci\[OAcute]n es de 7 d\[IAcute]as)\
\>", "ItemParagraph",
 CellChangeTimes->{{3.794729195020359*^9, 3.794729217690321*^9}, 
   3.7947292601924953`*^9, {3.794729386085451*^9, 3.7947294822495594`*^9}, 
   3.794739849217879*^9},ExpressionUUID->"fcc62f44-0fae-4e96-9a93-\
e719adc54daa"]
}, Open  ]],

Cell["\[ScriptCapitalN] - Poblaci\[OAcute]n total.", "Text",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, {
   3.7947283864431014`*^9, 3.7947283864440994`*^9}, 
   3.794739833587926*^9},ExpressionUUID->"589414cd-26c1-45df-af99-\
a5fb145f61df"],

Cell[CellGroupData[{

Cell["No usados por ahora", "SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 3.794728671796794*^9}, 
   3.794739845811675*^9, {3.794740977093619*^9, 
   3.7947409886398892`*^9}},ExpressionUUID->"7732dbce-8b87-4161-8bb6-\
da9f37f2ee97"],

Cell["\<\
\[Mu] - Tasa promedio de defunciones (probabilidad de que un individuo \
infectado muera debido a la enfermedad).\
\>", "SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 
   3.794728671796794*^9}},ExpressionUUID->"a957ea1c-4926-4516-a49e-\
6b58c4ef5cf9"],

Cell["\<\
f - Tasa promedio de p\[EAcute]rdida de inmunidad en individuos recobrados.\
\>", "SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 
   3.7947286811960506`*^9}},ExpressionUUID->"00b249b1-5aa7-450f-9ab9-\
1389ace475fd"],

Cell["1/\[CurlyEpsilon] Tiempo promedio de incubaci\[OAcute]n.", \
"SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 
   3.794728685742792*^9}},ExpressionUUID->"e5f7c781-243f-41dd-8242-\
edb1740beab2"],

Cell["B - Tasa promedio de nacimientos.", "SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 
   3.794728690242441*^9}},ExpressionUUID->"cccbbb45-3d12-4e90-9f22-\
04f3605cf1f3"],

Cell["M - Infantes con inmunidad pasiva.", "SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 
   3.7947286937570963`*^9}},ExpressionUUID->"b3adf7a6-9a72-4f54-be3e-\
0aa7d8bce0cc"],

Cell["\[Delta] - Tiempo promedio de inmunidad temporal.", "SubitemParagraph",
 CellChangeTimes->{{3.7947283489354963`*^9, 3.7947283549183598`*^9}, 
   3.794728406102586*^9, {3.794728666412639*^9, 
   3.794728680610628*^9}},ExpressionUUID->"26b395e7-cae0-40cd-88b8-\
b68da96455d0"]
}, Open  ]],

Cell[TextData[{
 "Como ejemplo de modelo complejo puede verse: ",
 ButtonBox["https://community.wolfram.com/groups/-/m/t/1897377",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://community.wolfram.com/groups/-/m/t/1897377"], None},
  ButtonNote->"https://community.wolfram.com/groups/-/m/t/1897377"]
}], "Text",
 CellChangeTimes->{{3.7949763316383104`*^9, 3.794976342994096*^9}, {
  3.7949763984808435`*^9, 
  3.7949764374686146`*^9}},ExpressionUUID->"93b8db31-d033-445b-8455-\
34f61565e2c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Modelo 1: SIR", "Subsection",
 CellChangeTimes->{{3.7947289266864376`*^9, 3.7947289340357847`*^9}, {
  3.7947289901457586`*^9, 3.794728991541278*^9}, {3.794741016733353*^9, 
  3.7947410181708126`*^9}, {3.794800208878688*^9, 3.794800218253324*^9}, {
  3.79488763259756*^9, 
  3.7948876380123053`*^9}},ExpressionUUID->"e9d40eea-e100-4ab7-a627-\
baed324963a4"],

Cell["\<\
Un modelo muy simple  es el SIR. En su versi\[OAcute]n mas simple \
est\[AAcute] formado por tres compartimentos que representan tres \
situaciones: (S) susceptible (de ser infectado), (I) infectado y (R) \
recuperados. \
\>", "Text",
 CellChangeTimes->{{3.79231910072692*^9, 3.7923194334203997`*^9}, {
   3.792319468937729*^9, 3.792319574576517*^9}, {3.792319852287475*^9, 
   3.792319862039835*^9}, {3.7923232773701687`*^9, 3.792323303233726*^9}, {
   3.7939486404481773`*^9, 3.7939486599962435`*^9}, 3.793948711255379*^9, {
   3.7939487597327647`*^9, 3.793948922121851*^9}, {3.7939489534653254`*^9, 
   3.793949145045515*^9}, {3.793949201328123*^9, 3.7939492160621433`*^9}, {
   3.793949983137082*^9, 3.7939500012778893`*^9}, {3.793950447887076*^9, 
   3.793950487871528*^9}, {3.794318302706772*^9, 3.7943183283798184`*^9}, 
   3.7943184008321257`*^9, {3.7943188664560723`*^9, 3.7943188724588604`*^9}, {
   3.7944877775601215`*^9, 3.7944878058728094`*^9}, {3.7947274302059107`*^9, 
   3.794727460468359*^9}, 
   3.7947289482784405`*^9},ExpressionUUID->"e606173a-66e4-422f-9b3c-\
633c8ea3df27"],

Cell["Esquem\[AAcute]ticamente lo podemos representar como se muestra:", \
"Item",
 CellChangeTimes->{{3.793949373636854*^9, 3.7939494150401564`*^9}, 
   3.7943190281602044`*^9, 
   3.7944878104977837`*^9},ExpressionUUID->"8f530a16-4823-4350-8e2b-\
fcd157559e15"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\[ScriptCapitalS]", 
      OverscriptBox["\[RightArrow]", 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}]], "\[ScriptCapitalI]"}], 
     "\"\<infection\>\""},
    {
     RowBox[{"\[ScriptCapitalI]", 
      OverscriptBox["\[RightArrow]", "\[Gamma]"], "\[ScriptCapitalR]"}], 
     "\"\<recovery\>\""}
   },
   AutoDelete->False,
   BaseStyle->{18},
   GridBoxAlignment->{"Columns" -> {Center, Left}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{3}}}],
  "Grid"]], "Text",
 CellChangeTimes->{{3.7937961843204465`*^9, 3.7937962101730595`*^9}, 
   3.793797403313322*^9, 3.793799021621637*^9, 
   3.794472756307598*^9},ExpressionUUID->"2ab04dfe-295d-4d7b-a1cc-\
23b8f628a520"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalI]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalR]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
       CompartmentalModeling`Private`$R[1][$CellContext`\[Gamma]], 
       CompartmentalModeling`Private`$R[
       2][$CellContext`\[Beta] $CellContext`\[Lambda][$CellContext`t]]}, {{{1,
        4}, {4, 2}, {3, 5}, {5, 1}}, Null}, {
      BaseStyle -> {18}, 
       GraphLayout -> {
        "LayeredDigraphEmbedding", "RootVertex" -> 
         CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
         "Orientation" -> Left}, ImageSize -> 450, PerformanceGoal -> 
       "Quality", VertexShapeFunction -> {
         CompartmentalModeling`Private`vsf[{18}]}}]], Typeset`boxes, 
    Typeset`boxes$s2d = GraphicsGroupBox[{{
       Arrowheads[Medium], 
       Directive[
        Opacity[0.7], 
        Hue[0.6, 0.7, 0.5]], 
       Directive[], 
       ArrowBox[{
         DynamicLocation["VertexID$1", Automatic, Center], 
         DynamicLocation["VertexID$4", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$3", Automatic, Center], 
         DynamicLocation["VertexID$5", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$4", Automatic, Center], 
         DynamicLocation["VertexID$2", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$5", Automatic, Center], 
         DynamicLocation["VertexID$1", Automatic, Center]}]}, {
       Directive[
        Hue[0.6, 0.2, 0.8], 
        EdgeForm[
         Directive[
          GrayLevel[0], 
          Opacity[0.7]]]], 
       Directive[], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalI]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-1.9999999999999993`, 
         5.3589794058235685`*^-8}], "DynamicName", BoxID -> "VertexID$1"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalR]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {0., 0.}], 
        "DynamicName", BoxID -> "VertexID$2"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalS]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-3.9999999999999987`, 
         1.0717958811647137`*^-7}], "DynamicName", BoxID -> "VertexID$3"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Gamma]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-0.9999999999999997, 
         2.6794897029117842`*^-8}], "DynamicName", BoxID -> "VertexID$4"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox[
             RowBox[{"\[Beta]", " ", 
               RowBox[{"\[Lambda]", "(", "t", ")"}]}], 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-2.999999999999999, 
         8.038469108735353*^-8}], "DynamicName", BoxID -> 
        "VertexID$5"]}}], $CellContext`flag}, 
    TagBox[
     DynamicBox[GraphComputation`NetworkGraphicsBox[
      3, Typeset`graph, Typeset`boxes, $CellContext`flag], {
      CachedValue :> Typeset`boxes, SingleEvaluation -> True, 
       SynchronousUpdating -> False, TrackedSymbols :> {$CellContext`flag}},
      ImageSizeCache->{{-9.237055564881302*^-14, 630.}, {-26.20001601798945, 
       17.99999999999999}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False,
    UnsavedVariables:>{$CellContext`flag}]],
  BaseStyle->{18},
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->450]], "Text",
 CellChangeTimes->{{3.792407289968094*^9, 3.7924072985194483`*^9}, 
   3.792591613556972*^9, 3.793138465843472*^9, 3.7937820087323027`*^9, {
   3.7937961850890136`*^9, 3.7937962103899155`*^9}, 3.7937974037550735`*^9, 
   3.7937990220136557`*^9, 
   3.79447275632539*^9},ExpressionUUID->"83ec79b4-590d-482f-9e84-\
524430afd8be"],

Cell[TextData[{
 "Una versi\[OAcute]n muy simple de este modelo consiste en sustituir ",
 StyleBox["S",
  FontSlant->"Italic"],
 ", ",
 StyleBox["I",
  FontSlant->"Italic"],
 ", and ",
 StyleBox["R",
  FontSlant->"Italic"],
 "  por las variables  ",
 StyleBox["s",
  FontSlant->"Italic"],
 ", ",
 StyleBox["i",
  FontSlant->"Italic"],
 ", y ",
 StyleBox["r ",
  FontSlant->"Italic"],
 "que varian entre 0 y 1 (que representa toda la poblaci\[OAcute]n).\n\n\
Inicialmente suponemos que casi toda la poblaci\[OAcute]n es susceptible de \
contagio (es decir s(0)=casi 1), ira disminuyendo con el tiempo al extenderse \
la infecci\[OAcute]n. La poblaci\[OAcute]n infectada sera en t= 0 casi 0, \
(i(0) casi 0), igualmente al inicio no habr\[AAcute] nadie recuperado \
(r(0)=0) . En cualquier instante debe cumplirse que ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"s", " ", "+", " ", "i", " ", "+", " ", "r"}], " ", "=", " ", 
    "1"}], TraditionalForm]],ExpressionUUID->
  "d614b751-152c-4f80-a556-8dc609fa1d4a"],
 ". Se supone que cada individuo infectado transmite su enfermedad a ",
 StyleBox["b",
  FontSlant->"Italic"],
 " individuos nuevos cada d\[IAcute]a, mientras mayor sea b mas \
r\[AAcute]pidamente se expandir\[AAcute]  la enfermedad,\nk representa la \
fracci\[OAcute]n de la poblaci\[OAcute]n infectada que se recupera cada d\
\[IAcute]a (Por ejemplo, si la enfermedad dura 7 d\[IAcute]as, entonces ",
 StyleBox["k",
  FontSlant->"Italic"],
 " es 1/7)."
}], "Text",
 CellChangeTimes->{{3.794235210698183*^9, 3.7942353217665167`*^9}, 
   3.794318181136691*^9, {3.794318455127245*^9, 3.7943184651633005`*^9}, {
   3.794318622527749*^9, 3.7943188616092553`*^9}, {3.7943190427198477`*^9, 
   3.794319067447603*^9}, {3.7943191062656446`*^9, 3.7943193838300157`*^9}, {
   3.7943194633451815`*^9, 3.794319532717281*^9}, {3.79431964902378*^9, 
   3.794319684072754*^9}, {3.7943197472592974`*^9, 3.7943197815510015`*^9}, {
   3.7944877625292454`*^9, 
   3.794487768566781*^9}},ExpressionUUID->"ff10024e-ab83-4932-86a9-\
70833686925f"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"t", ",", "s", ",", "i", ",", "r", ",", " ", "b", ",", " ", "k"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7942353476609*^9, 3.7942353585054855`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"5c18e97a-3635-438a-a606-b492e8597865"],

Cell["\<\
La primera ecuaci\[OAcute]n describe c\[OAcute]mo la poblaci\[OAcute]n \
susceptible cambia con el tiempo.  Debido a que comenzamos con una poblaci\
\[OAcute]n susceptible de 1 que disminuye con el tiempo, podemos suponer que \
la tasa de cambio ser\[AAcute] negativa.  Adem\[AAcute]s, la tasa de cambio \
es proporcional al n\[UAcute]mero de contactos b (m\[AAcute]s contactos \
disminuye la poblaci\[OAcute]n susceptible m\[AAcute]s r\[AAcute]pido). Adem\
\[AAcute]s, la tasa de cambio es proporcional a la poblaci\[OAcute]n que en \
cada momento es susceptible de ser infectada (pero no con la \
poblaci\[OAcute]n recuperada):\
\>", "Text",
 CellChangeTimes->{{3.7942352404329185`*^9, 3.794235241387252*^9}, {
   3.7942353792457705`*^9, 3.7942353970038176`*^9}, 3.7943197874211454`*^9, {
   3.794319824539838*^9, 3.7943198388347316`*^9}, {3.794319898776432*^9, 
   3.7943199396163597`*^9}},ExpressionUUID->"4149d1aa-85cd-4d1c-b266-\
4fb92fdffae0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"equationS", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "b"}], " ", 
     RowBox[{"s", "[", "t", "]"}], " ", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.79431996738804*^9},
 CellLabel->
  "In[142]:=",ExpressionUUID->"5fc70f0c-cea9-4554-b4b3-c2d6ae8efcbe"],

Cell["\<\
La segunda ecuaci\[OAcute]n describe c\[OAcute]mo la poblaci\[OAcute]n \
infectada cambia con el tiempo.  El lado derecho tiene dos t\[EAcute]rminos:  \
 El primero corresponde al lado derecho de la ecuaci\[OAcute]n anterior \
cambiada de signo que representa el aumento de la poblaci\[OAcute]n infectada \
(si lo pensamos como un compartimento es flujo del compartimento s que entre \
en el i) , el segundo t\[EAcute]rmino  representa la disminuci\[OAcute]n \
(signo -) de casos infectados (personas que se recuperan):\
\>", "Text",
 CellChangeTimes->{{3.794235410145506*^9, 3.794235422878668*^9}, {
  3.7943200265734615`*^9, 3.794320062751255*^9}, {3.794320095207489*^9, 
  3.794320113115156*^9}, {3.794320146058708*^9, 3.794320243980959*^9}, {
  3.7943202875188828`*^9, 
  3.7943203413556423`*^9}},ExpressionUUID->"9999b3e1-6add-4f72-aff3-\
a2af12bfb1c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"equationI", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"b", " ", 
      RowBox[{"s", "[", "t", "]"}], 
      RowBox[{"i", "[", "t", "]"}]}], "-", 
     RowBox[{"k", " ", 
      RowBox[{"i", "[", "t", "]"}]}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7943203559015956`*^9, 3.7943203575636625`*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"fafb36c0-e4dd-4b19-8d98-19f197ee8edd"],

Cell["\<\
La \[UAcute]ltima ecuaci\[OAcute]n representa las personas (la \
fracci\[OAcute]n del total) que se recuperan (en t\[EAcute]rminos \
compartimentales es el  flujo del compartimento i al compartimento s)\
\>", "Text",
 CellChangeTimes->{{3.794235445004771*^9, 3.7942354499039783`*^9}, {
  3.794320371216025*^9, 3.7943205418145185`*^9}, {3.7944877328251667`*^9, 
  3.794487757029321*^9}},ExpressionUUID->"e2e2584a-99d8-4dfe-b926-\
4adc7c9056ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"equationR", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"r", "'"}], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"k", " ", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.794320546257417*^9},
 CellLabel->
  "In[144]:=",ExpressionUUID->"ea8f49f7-970b-45c0-a349-2adfe48b09ce"],

Cell[TextData[{
 "Vamos a resolver la ecuaci\[OAcute]n diferencial  para b = 1/2 (cada \
infectado trasmite la enfermedad a una persona cada dos d\[IAcute]as)  y k = \
1/14 (esto es: suponemos que un infectado se recupera en 14 dias y durante \
ese tiempo puede contagiar la enfermedad). Ademas supondremos \
s[0]\[Equal]0.9999, i[0]\[Equal]0.0001,r[0]\[Equal]0.0000.  Al emplear un m\
\[EAcute]todo num\[EAcute]rico  ",
 ButtonBox["NDSolve",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/NDSolve"],
 "  para resolverla hemos de especificar el tiempo que analizados. Suponemos \
t = 100."
}], "Text",
 CellChangeTimes->{{3.7942354803994927`*^9, 3.794235508244566*^9}, {
  3.7943211686498737`*^9, 3.7943215096076756`*^9}, {3.794321931176882*^9, 
  3.7943220031107197`*^9}},ExpressionUUID->"c4f69326-c3e1-4dbe-8daa-\
ad7f672320d6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solution", " ", "=", " ", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"b", "=", "0.5"}], ",", 
      RowBox[{"k", "=", 
       RowBox[{"1", "/", "14.0"}]}]}], "}"}], " ", ",", " ", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{"equationS", ",", "equationI", ",", "equationR", ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "0.9999"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "0.0001"}], ",", 
        RowBox[{
         RowBox[{"r", "[", "0", "]"}], "\[Equal]", "0.0000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", " ", "r", ",", " ", "i"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "100"}], "}"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.794235609475312*^9, 3.7942356259456778`*^9}, {
   3.794321017980266*^9, 3.794321087997219*^9}, 3.7943211328444424`*^9, 
   3.7943790875743327`*^9, {3.7943794154964705`*^9, 3.794379419403472*^9}, {
   3.7943807975351315`*^9, 3.7943808006768775`*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"cbff123c-9f41-4118-b512-f643b422966e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"s", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{
          PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD6vAd1ILv/vP0XRMWw0
Ffo/hGJ24zb+7z8FZS60Bi4LQLp4RMAJ/O8/aslGZ8wwFECukLXr0/fvP8qC
eNpvqRpAVnObnojv7z8VebNxPtcgQGVght7/3O8/IB09Xc4dJED1+75Mk7nv
PykcpROTqidAMLD4br1q7z9wLA79xCYrQLV9UGagy+4/EKmJTQBnLkCK44Um
XK3tP1jAcTS49jBAg3bcKRl16z9V4qf19JsyQJfzCpmrDOg/8YxeUOg4NEBo
8haNEXXjPwxlhBD2+DVAoOIV7C/H2z9VczOECJs3QPRUZr6ykNI/Hq9RXTVg
OUAdNGCnsqTGP4Vz8M8YHTtAQ5Lo0Vpquz8Zbhj2ALw8QHVdNU8oYrE/LZav
gQN+PkBdSRivn9ulPzj6Z2AFEUBAD2ID2JZanT8ZwK8ylvRAQGbKCtHl15M/
Scq3UQLUQUAC9kOH8huMP49vhMpwpEJA1QGHzeEPhT+Vqwh2bIZDQLUM+urf
2H8/soJRe2pZRECqyZhGUDx5Px6eWs1DKEVAco9S2+KTdD9KUBtSqghGQNSy
6k5t5XA/jZ2gMBPaRkCZz/AEr7FsP4+B3UEJvUdArYrOccqDaD/hqdqf2ptI
QJqV1GEXYmU/SW2cV65rSUD/yOq0yhdjP3HHFUIPTUpAzs4mP6IeYT+wvFOG
ch9LQK4JWPw1SF8/PvZRF7HtS0CmalX9PuhcP4zGB9t8zUxAdX661u/JWj/w
MYL4Sp5NQNzrRYkbJ1k/FDS0SKaATkCABrfvjqxXP0/RqvIDVE9A3WNtTj2E
Vj9t2bB0nhFQQNOeJ79XjVU/khVoiQGCUEBTl4BOpqlUP0KfAcvl6lBAtgqO
eFr0Uz9S9PalkFxRQK5ZoUMZTFM/imtMJynMUUDDAJRDw75SP00whNVCNFJA
N8GxadRMUj9wwBcdI6VSQB1At8nR4VE/H56NkYQOU0DPLlalJYtRP/WdY6zT
dVNAQ262bcxAUT8raZVg6eVTQN5yzqpc+lA/7IGpQYBOVEAOSlme7MBQPw1m
Gbzdv1RAwngmP3WKUD9WbOncKC9VQOEgeXbPW1A/KsCbKvWWVUCzg/XdlDVQ
P17fqRGIB1ZAWBgtFSIRUD8dTJolnHBWQCR7G7Bx5k8/PITm0nbiVkAjkaLV
bq1PP4PekiY/UldAVdffhV18Tz9VhiGniLpXQBnbryz7U08/h/kLwZgrWEC9
pqASWy1PP0W62AcqlVhAZudE+owNTz8+GeT4//9YQENMCugL8U4/Klq5Ng==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$47314#1"]& ]}}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 100.}, {0., 0.9998999999152626}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD6vAd1ILv/vP0XRMWw0
Ffo/hGJ24zb+7z8FZS60Bi4LQLp4RMAJ/O8/aslGZ8wwFECukLXr0/fvP8qC
eNpvqRpAVnObnojv7z8VebNxPtcgQGVght7/3O8/IB09Xc4dJED1+75Mk7nv
PykcpROTqidAMLD4br1q7z9wLA79xCYrQLV9UGagy+4/EKmJTQBnLkCK44Um
XK3tP1jAcTS49jBAg3bcKRl16z9V4qf19JsyQJfzCpmrDOg/8YxeUOg4NEBo
8haNEXXjPwxlhBD2+DVAoOIV7C/H2z9VczOECJs3QPRUZr6ykNI/Hq9RXTVg
OUAdNGCnsqTGP4Vz8M8YHTtAQ5Lo0Vpquz8Zbhj2ALw8QHVdNU8oYrE/LZav
gQN+PkBdSRivn9ulPzj6Z2AFEUBAD2ID2JZanT8ZwK8ylvRAQGbKCtHl15M/
Scq3UQLUQUAC9kOH8huMP49vhMpwpEJA1QGHzeEPhT+Vqwh2bIZDQLUM+urf
2H8/soJRe2pZRECqyZhGUDx5Px6eWs1DKEVAco9S2+KTdD9KUBtSqghGQNSy
6k5t5XA/jZ2gMBPaRkCZz/AEr7FsP4+B3UEJvUdArYrOccqDaD/hqdqf2ptI
QJqV1GEXYmU/SW2cV65rSUD/yOq0yhdjP3HHFUIPTUpAzs4mP6IeYT+wvFOG
ch9LQK4JWPw1SF8/PvZRF7HtS0CmalX9PuhcP4zGB9t8zUxAdX661u/JWj/w
MYL4Sp5NQNzrRYkbJ1k/FDS0SKaATkCABrfvjqxXP0/RqvIDVE9A3WNtTj2E
Vj9t2bB0nhFQQNOeJ79XjVU/khVoiQGCUEBTl4BOpqlUP0KfAcvl6lBAtgqO
eFr0Uz9S9PalkFxRQK5ZoUMZTFM/imtMJynMUUDDAJRDw75SP00whNVCNFJA
N8GxadRMUj9wwBcdI6VSQB1At8nR4VE/H56NkYQOU0DPLlalJYtRP/WdY6zT
dVNAQ262bcxAUT8raZVg6eVTQN5yzqpc+lA/7IGpQYBOVEAOSlme7MBQPw1m
Gbzdv1RAwngmP3WKUD9WbOncKC9VQOEgeXbPW1A/KsCbKvWWVUCzg/XdlDVQ
P17fqRGIB1ZAWBgtFSIRUD8dTJolnHBWQCR7G7Bx5k8/PITm0nbiVkAjkaLV
bq1PP4PekiY/UldAVdffhV18Tz9VhiGniLpXQBnbryz7U08/h/kLwZgrWEC9
pqASWy1PP0W62AcqlVhAZudE+owNTz8+GeT4//9YQENMCugL8U4/Klq5Ng==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$47314#1"]& ]}}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 100.}, {0., 0.9998999999152626}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel"],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 100.}}, {
       5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
        "], CompressedData["
1:eJwNx3c41YsfAGC3yB4hoyFZUfpFTlbcz0nZ0UFGZZeQpHRESkiuSLLKFRWS
ETIyk+/HzSySyzluQiRHVudLlFl+/nmf593h7mft8QcHB4fQGjK5Yyb/WyUh
X/2pjJYmH7ZNqlL2rP2QLVdqnw0fTutqy6iuXSU46FXmRT5MNou9tmntIw3n
yD2fBHD/zfaWld8kaGZlPU6JEEYxCdP3n9de+FC3NV5jIy668hjlrP2nX2BK
zilx9OkbyHdZ++K/U76M3VL4k2r+g3/tIwc868Ryt2JM+efavF8k9HMnK0cu
y+In2V4nkbXzpHPeCxdWRHnTcC+bFRJS1Lhi9GV24bD2nY3eyySIX+RMyFVX
Q8fCH1eNlkgYHON3ixanYFoUbc+nBRKCR/l4kaWNNwwOplf9JOFV+D65NFkq
eplf9GPPkuD9Kcn99ZfDWDTiXGc9TULnc4qgr6A59r28VJkzSYK6Xgb3jxtW
WKEXnPSARYKc9F7qi3w7fF3WEdoyQAI9kcuKQXPCnnN3NfK7SbB+WST/67s7
tp70H77XTMKs4s15nWAvrB9YvcusJiHsepW2keF5rJhizTNzSdii77sU+MIf
g/UOSX5IJEFMWNz4h3ggUrz3tc4GkVB25knZxUvX0K7GylXkOAm+qU+AHh6O
jSoPXverk0ATCuR+HhqJK3aEuuwyG4biLbzcOW6j+lJJNW8zG0KiPs8syMbj
aEBOfsVfbPCQ3BCkoZmElKvjzRXmbKjRuDRxgec+ur41WSfHwwa2QSi3PiUV
1avfUGdefoPshhMSJzEdHaTn3vOf+gaX4+iEsH0GKkloXaCtToHHy1QX1/As
ZPkX1bpmT8Ezhb2TFJ9sVF8R0N1HnYIgPfnezIAcfLNTQVC9axLoamofox7l
Ia0p+ifz+CRcX1Deljb8DEOCZJQKeyZgy8h3DdAvwkS5TU/tTSagufJsqE9e
MR6aLZFLfz4OX1LfjVsKlaJY3EnGKd5xqCqzFrlgUoaWSgVczQ5j0FphSPqH
vEBB1vygwMOv8NXQyDsrtxw7BFZGanpGIVkn7TSrvgIPuUklR+0aBXFmoatI
aiVOKkmUiQSxgJ4XqFrmVIWGg5soSzgCOm3e27z4q9FMcubIuvUjIHlrx59S
j6vRf/R6y6+DX8DSSyZIWKIGLdPfXGGEDAPzga/StvM1+OJjxdhf9z+D/4aZ
kacFNfihhWD1Fg0BZ7G0bkltDSbsdH7CiBkEpzPiMSqPajDbeXvD47oBuE/h
czQ7VoOdCk4n5ef74MqjoS3hQ9U4PxZQr6X7EQ606+w3N6rGqrghkfPRH6Db
4/YFjpgqLPyd9nXd1x6Y6BIouVdSiWkqTVHMY0zIFFMIcsQKTB9siT3F6AaZ
r5POjbXlOBxy2aBp+l84yKfFHrB4gR0WfFlH1DqhLoXoiWSUYgk9Myei4h00
MvZ6+j8swbB+1TFH3TaIaWP6rWM+R67Broi97FbQ45SMsw8txAQjJcUr75vh
0VDXgBz1GZInLZvM+xuhaat7KO/WPCzaZdXhI9oAT2wDl0EiB8+7eXSe9fsH
9g2VytWqZeOxgNjQ96oIxT5figM4svBAvKmh8XAt/NHpEDqzPgMduHnY9j+q
ofRbOcPgUjq6X1qdv+lYCafDjlzu10/Fa9T2vi9C5TC2mSWx3+0+5kvHOlM4
y2B+oHHTjp4kZJwzbpmklEB7/G1J7XsJKMrz33QrUQgJl1urE9PjcG63gQff
nXxgZ25r0yiIwVWjBDq1MQeS3xHkNYMoPMh466pqlw3SCjfuBNBuIkuTSAjQ
zILehWkDiaZw1D0eEuh/IgPsSrzrQxRCsTOsXvPrxYdg0HU9U93+Ks4VWB1T
TH4AsVLWkYMCQfjCbPhVnmUK/JbIKj/sRMflQK1M6q1k0Cm+2ltgeRH1kzJL
3XYnwhCrWz81yheNErx1vJXiYdlT2jvf1BvlCIHKBmYsZDibZXS/8sAnZb9e
MXujoWfscVruP+64KpPzMMgwCuj6x3X//tMVJfYHn4jkiQTbAybUCn1HvMrl
69hhcQNoXEaeLtr2GHFKUu6IYBjITODn97o2WMvWzw5zvAYtrWoUUV4apms4
KS/qXoFc21an5kkz9Fwdsdz492XgjLBcaKgzwgRh/d2HHOnARyP0E2wO4QXv
xa5Zuj/oPo+MaLxJxaoPPtk23ReAGBA8see0Hg6Pm9f8qXoeAgiv4rAMLeRU
Xq8bdNgHzOVVimQ7NXAD9eylhC4v2PB8++v2WjWMVt46pll/BsQK6nL06Kpo
8+6Z+bfl09C+Llky1l4Z93N7jIwGnoIG75KphhkFzDQSFdyp4g4q+141KcrI
4VEHRclPG9ygM2lF1jNsO+56+es3xcwFzt+dMO35IY2UerpFLocTfMmPFNmb
vAmbNnt+F5Y6Ce+G349EiIlittZlPueQ4wBTbzM/XRdCSc+Ouv4dDiBQ6qd8
e5gXLTrjosSW7MAltF3SWGoDRjQ94V5YsQUXQaHdPnPrUF3UOdBB3hbI/sUz
GbYcyHTLbX2rcgzyfOnapr1LxJypMZ3X0QbUMl2rr+3/SXyMnc5zKrWGRdX1
lhZXvhOsEym1QvLW0N2Z+4z5mU3cmu+6PlBgBXnNJqoBk+PE1vLxiqfGVmAh
Nlq5m8kiVrq15TfP0iDdb8bUw3+YeLlz4b/EAhroMMzNLQ4OEj2ad9Y3OdPg
6YxEvad5L5FHUpMiZGkgckKUtjOaQZjGV3zr6DsKnLVj/YerOglFvgWWTfRR
eCfKzZ9i2EbI9U8orhgeBYmqvkIb02Yipm2unE/qKKTUbgsJHntNROPBUf4Z
S6AOWzuqCtUT/weQblAz
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"r", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{
          PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD4AIH56Yp+qPUXRMWw0
Ffo/Lqggroms8T4FZS60Bi4LQHswJMPivQw/aslGZ8wwFED4RB0H6dAgP8qC
eNpvqRpAYlJDq73mMT8VebNxPtcgQOba4UM0k0M/IB09Xc4dJEDbDCsMaflT
PykcpROTqidA5iterAlnZT9wLA79xCYrQIgy2yG8ZHY/EKmJTQBnLkD/7cIN
pgSGP1jAcTS49jBAOg+T6LVhlj9V4qf19JsyQOmBzAtH4qQ/8YxeUOg4NECQ
ZenD7TCyPwxlhBD2+DVAzsvncCqFvj9VczOECJs3QHcCbgDioMY/Hq9RXTVg
OUDZdD/cCazPP4Vz8M8YHTtAo1gGi8Rs1D8Zbhj2ALw8QGc5ylkbl9g/LZav
gQN+PkD4oT2CXtXcPzj6Z2AFEUBA4pmZG8s84D8ZwK8ylvRAQCTOTvwFB+I/
Scq3UQLUQUA6XE7irZrjP49vhMpwpEJA9AIcuXPs5D+Vqwh2bIZDQEgq71a/
M+Y/soJRe2pZREB+xAilEETnPx6eWs1DKEVAySLgN9wy6D9KUBtSqghGQP8t
mqKLGek/jZ2gMBPaRkD4uJga8NjpP4+B3UEJvUdA0PR01SiR6j/hqdqf2ptI
QKfCTygbMes/SW2cV65rSUDV7OTZrrXrP3HHFUIPTUpAc+Z64lk17D+wvFOG
ch9LQEP7uU0Qn+w/PvZRF7HtS0AgrViVdvvsP4zGB9t8zUxAPx2rnodU7T/w
MYL4Sp5NQKqkLwxHnu0/FDS0SKaATkAukA3PLuXtP0/RqvIDVE9AlO6VFtkf
7j9t2bB0nhFQQP5nb2QUU+4/khVoiQGCUED9Ft5rZoTuP0KfAcvl6lBAvE6Y
Azet7j9S9PalkFxRQJneRyJp1O4/imtMJynMUUB2+BWMYfbuP00whNVCNFJA
PjPgSYAS7z9wwBcdI6VSQOPQVPKKLe8/H56NkYQOU0CiS9mf6UPvP/WdY6zT
dVNAgw/ey3JX7z8raZVg6eVTQBw24wxDau8/7IGpQYBOVEA3XRCW1HnvPw1m
Gbzdv1RA2l05jsmI7z9WbOncKC9VQOI1X1rAle8/KsCbKvWWVUBr59nEe6Dv
P17fqRGIB1ZAm9jb786q7z8dTJolnHBWQHtLAZJZs+8/PITm0nbiVkDHgE1h
jLvvP4PekiY/UldAU8fmoqbC7z9VhiGniLpXQBFhP2yHyO8/h/kLwZgrWEAi
K5vLLc7vP0W62AcqlVhA9YTjCdrS7z8+GeT4//9YQKMyBTMO1+8/sMXCUQ==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$47366#1"]& ]}}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 100.}, {0., 0.9950018879404364}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD4AIH56Yp+qPUXRMWw0
Ffo/Lqggroms8T4FZS60Bi4LQHswJMPivQw/aslGZ8wwFED4RB0H6dAgP8qC
eNpvqRpAYlJDq73mMT8VebNxPtcgQOba4UM0k0M/IB09Xc4dJEDbDCsMaflT
PykcpROTqidA5iterAlnZT9wLA79xCYrQIgy2yG8ZHY/EKmJTQBnLkD/7cIN
pgSGP1jAcTS49jBAOg+T6LVhlj9V4qf19JsyQOmBzAtH4qQ/8YxeUOg4NECQ
ZenD7TCyPwxlhBD2+DVAzsvncCqFvj9VczOECJs3QHcCbgDioMY/Hq9RXTVg
OUDZdD/cCazPP4Vz8M8YHTtAo1gGi8Rs1D8Zbhj2ALw8QGc5ylkbl9g/LZav
gQN+PkD4oT2CXtXcPzj6Z2AFEUBA4pmZG8s84D8ZwK8ylvRAQCTOTvwFB+I/
Scq3UQLUQUA6XE7irZrjP49vhMpwpEJA9AIcuXPs5D+Vqwh2bIZDQEgq71a/
M+Y/soJRe2pZREB+xAilEETnPx6eWs1DKEVAySLgN9wy6D9KUBtSqghGQP8t
mqKLGek/jZ2gMBPaRkD4uJga8NjpP4+B3UEJvUdA0PR01SiR6j/hqdqf2ptI
QKfCTygbMes/SW2cV65rSUDV7OTZrrXrP3HHFUIPTUpAc+Z64lk17D+wvFOG
ch9LQEP7uU0Qn+w/PvZRF7HtS0AgrViVdvvsP4zGB9t8zUxAPx2rnodU7T/w
MYL4Sp5NQKqkLwxHnu0/FDS0SKaATkAukA3PLuXtP0/RqvIDVE9AlO6VFtkf
7j9t2bB0nhFQQP5nb2QUU+4/khVoiQGCUED9Ft5rZoTuP0KfAcvl6lBAvE6Y
Azet7j9S9PalkFxRQJneRyJp1O4/imtMJynMUUB2+BWMYfbuP00whNVCNFJA
PjPgSYAS7z9wwBcdI6VSQOPQVPKKLe8/H56NkYQOU0CiS9mf6UPvP/WdY6zT
dVNAgw/ey3JX7z8raZVg6eVTQBw24wxDau8/7IGpQYBOVEA3XRCW1HnvPw1m
Gbzdv1RA2l05jsmI7z9WbOncKC9VQOI1X1rAle8/KsCbKvWWVUBr59nEe6Dv
P17fqRGIB1ZAm9jb786q7z8dTJolnHBWQHtLAZJZs+8/PITm0nbiVkDHgE1h
jLvvP4PekiY/UldAU8fmoqbC7z9VhiGniLpXQBFhP2yHyO8/h/kLwZgrWEAi
K5vLLc7vP0W62AcqlVhA9YTjCdrS7z8+GeT4//9YQKMyBTMO1+8/sMXCUQ==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$47366#1"]& ]}}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 100.}, {0., 0.9950018879404364}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel"],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 100.}}, {
       5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
        "], CompressedData["
1:eJwtyWk41IsCx3FKogWhXYQQUUpk/f9uWYZQHCFKQiVkl0IlypKtiMjYDSlL
lmkj6oTIsQ0KhRlLkmXGFsZS597nud8XnzdfcXv3vy5ycnBw8P2P/3ejfCkt
4VcvUdQt5PuxxptQfSu+8frWPoIRu9F1tuUOIXSkZf62Wh/hYTwqu+70W2JG
sjreLZBBfNZaU/zoeCPBE7H9QvqqAUL4oD6H7tfPRIxVi7H500FCyK6JUe82
SIwZy/ganfhBBLl0OTwImSBib84UKWeOEXbrd5SWV84Sws5yw9fPTxKbeY2T
EjuWiM/656tWO88QhweDzWhnVsOeRlNiCi0Ql6xjAyRE1uHmTdeCrp4VYm3k
eWGG1iYkiBUvRd5dhQd2mRLb3beg7YBXH+c8Nwr0pHqC6SKol1+ZyfDfAKno
VS0+ZyQxYv/R7YO3IMquqVeVVsgieHLPYuXIVhBWh38c/6MIz6obedNsUdxr
IVEOWqlgPu+3uqTAHvgqhmfHkLRQOl709/SSLDglA+1zdmsjdUkmw7dNESEX
LQxnWPqIVqOq7/2oDO5WxUen1E2g1rnsN71PE0PFJfNbFU9hHVnabM7rKLZ3
NOikbbUCl8HzydFkXUQbbfGqkLWFtbMZl+Hb4zCw6R3ZZuGAZQWByvIwE9h1
rL6rtOgIWp5OjtKVU+ARKhPRe+GKc45zNaTDVtC1qnT7yfDC2fiixpd0W/wn
PW3/XLMvbH1tzw7IOaBBwUZpOSwAyW5fKvZxOaLW+MA2lflASPoF7upKcsZw
XIqpYGQw3vTyTmiXuOGSn8Cf3lsh2FP1xdCxyBNpkmdvMYbC8ThEnVRp7oMC
qge3e2MU2kLn/qmzuIZ8UsexZqUH4JGrqzYR9MfCurvX/6jEQbYm3VFA6CYS
b449W/GJh+zIJZLT/ttICLKias08gkK1v5YbOwgjk6UHXV49RsmEZlXv2B00
8hmKWNWlINM18mAYdyik0rilrwlnIEPvS0CuQTjyPf+Z4J7KhOBoLrOOGoEA
HtN6reVs8LvyqRXpRWMfT61Nn2oubuxyc9NcuQ9eL6W9AU/zQPLTOlTmHIsi
m9oyze5nOJTp/sKMEodzFvdpCQcK8crS0q1m+CE825NLAwufg77Y9PKyYgK6
2zgO0GVLYF9X1e4Z+Agrzvl3XGNL8W7Zof47LRGexEDe/Y1UsJvzpfOkHsNv
piU8buAFyq/4ZJwuToaUTP5V8/ZXONPTX0CopODAT5dQO/obbL5gE9lYlool
1it7Du638JW384yTSoeaTLwJ9KrAfmI1tE8nA7qDf835nXyProq610njGeDd
7CJtF/Y3lHfQRj9FZKKir1tMsOEDXMiXuYp3ZYHjUx3l9ZYa3Dul13iVkoUX
0U6B3ldqETelGhkkmo05vZAIkaN1aCrw6JotyAbrfB1jm8QntGSXiTVJUvBb
WL32BbUBShKOZJY3BYMuf4xZRo24WN32pJZKQcv39Z3kn03wIY35jw5TINJN
V0m/1wJTdmXqrvU5KNzgnjSX0AqTIS+6qkQOjL3L79c60iCvEy8no5CDowNR
AfVqbfjl0Z/VI5+Dhq6v3otoh9CptQX7RXMw4aBZIqLbgascmpJmnDl4SuQk
ROh/xgKdMbupiwIy/8ws1eALXFMWGFspFLg0pmbu1u+EdWeAzdQlCvT7zRsu
aHfBzHsVP48EBS9XpnVkNbqRWsOUyfqSDUFd2pz2qa/w30RMCfllQ1+7XGHJ
8RuqNi2+Zm3OhlPs2fc8vj1wtNQuDS/KwrQon7DqrV7wBK47x6mThVzLD1EO
t/swda6a07QzEz0aFvpeN+gwl33SrO+UCYPO+wL71Bj4vTTTkrSYge3N5EWu
EgZIG1YcOyIzkG7gw1FxvB/kj0nTkrPpGAge2rSF3g//UeGZ+vY00GUuhO11
GwCbHUWbf5WK+nIL53ULAzgqO7rzbWYK4q5a8nXdGESQ91mf3lgypMO3TBUv
D4LC3CI4EZ4M12d/2l9eG8Lvvb+emIQ9hqL14uqNzCEkJvooGUYnoXKNMuXF
g+/wEM2h+xxKhDgzgt9abhjLA2yx3h8JWFqb9O5yxTBuZRUWOxXG447Fo+YT
Oj8QID8U1Rr8ELoS48O+tT+geHpfda5jHEoSGu/pYwQTVDmSy5lYHOZujpcp
HcHTQoOBGJsHmH5uO+ct+hOyHZy8s19j0HJyeFg87ScinazWKmRHwZ37l0y6
8CgSugLbGuIi8PAE4/n94FF0rDZ2cHgSDvdpR7Xokf/+EpGl1L5Q8Eykk2VI
Y0iMbmSrqoTgZPMx5e9pY/hcM3l4Y8Ed1MLJXntyDPFcn9r5iWCEMiwXXmqM
o3Ugg9ts9DYumX/Lqk0bR1p2dEOq5S30XlDdmTI/jmXyAadO5QA0VVCF9EgT
EPAJ6VC+dB2mUmQnaswEeJp+zFxlXEV/YGHRu+YJuMi/nhZN9YYQhRQkx8PE
bVXdAc8ETzAvJpdkazCRaGj0qCzUHWwn/yP1Tkwo5cnTXx+7giAy6QxvJhNv
PNKCdKwuI+orlzillYn8Vkq7+OIFeE5vE3vCZoJ6sanESNAeJnXFxUsiLPQ5
W9OKJGxBdBvzumiwwJWiXCLVZo0MQWlyljkLZkOxscE7LHF5r973I1dYkFzp
v5s7bIYgDduq/EAWRMVUTK33mKL88c6K8XgWdvnY7xY5aoSYg+crPXJZKIlR
Lv2mT4KlgPhqBpUFBXbxY0NFbYQOTWnUvmfBrrqzkcgAUorvvolrYKHgW+EG
Or86Agwqx0/QWLgnqEBT0FKBT66+El8nC0b0BwlrFg/hX2biIS4=
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"i", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{
          PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5IVosq5DYaP0XRMWw0
Ffo/4qkTZDdcKj8FZS60Bi4LQFaq1YNBGjw/aslGZ8wwFECU+PXnFnxMP8qC
eNpvqRpAwn9IXhN1XD8VebNxPtcgQCklp2hUG24/IB09Xc4dJEB7Qndd/zd+
PykcpROTqidAfmm81uH2jz9wLA79xCYrQGG+vBZieaA/EKmJTQBnLkD6CzEU
FKmvP1jAcTS49jBAHIj3Nsm+vj9V4qf19JsyQCkR4di/lMo/8YxeUOg4NEDM
wdd0oYnUPwxlhBD2+DVAayqwd4WX3D9VczOECJs3QOdUsSBuD+E/Hq9RXTVg
OUDDFRjf0GviP4Vz8M8YHTtAZ8E/YFJc4j8Zbhj2ALw8QJ43NEktiOE/LZav
gQN+PkBtqu/DljfgPzj6Z2AFEUBAGpZMW8Cw3T8ZwK8ylvRAQA63Uap1tNo/
Scq3UQLUQUDXJymnxOnXP49vhMpwpEJABcJbf5l+1T+Vqwh2bIZDQDnDddId
GdM/soJRe2pZREDZE9R07RLRPx6eWs1DKEVAXeCkCfCPzj9KUBtSqghGQGfy
HwumEss/jZ2gMBPaRkDfWInZeCnIP4+B3UEJvUdAlfJkgE1ZxT/hqdqf2ptI
QBWjOQEL5sI/SW2cV65rSUCOoZht5dzAP3HHFUIPTUpA/pUv2jvMvT+wvFOG
ch9LQMzFPrpciro/PvZRF7HtS0BkQUVZqrC3P4zGB9t8zUxAICxMS5vwtD/w
MYL4Sp5NQBPDXTArqbI/FDS0SKaATkCJotRL13ewP0/RqvIDVE9A3KstrExO
rT9t2bB0nhFQQF5DEPtOIqo/khVoiQGCUEC0i6oPTBSnP0KfAcvl6lBAJKS2
8uyMpD9S9PalkFxRQOwLZRENH6I/imtMJynMUUDh2IMk8QOgP00whNVCNFJA
wnxefSmLnD9wwBcdI6VSQCRwypiEMJk/H56NkYQOU0BIKYGqGWqWP/WdY6zT
dVNARqlivZn9kz8raZVg6eVTQNFV7Jj4p5E/7IGpQYBOVEAJih3ovHKPPw1m
Gbzdv1RAc7vDyU28iz9WbOncKC9VQDxkY3lvhIg/KsCbKvWWVUDBdcctXNqF
P17fqRGIB1ZAMjdkxh9Kgz8dTJolnHBWQFpqq2Q0K4E/PITm0nbiVkCsS4t+
IUR+P4PekiY/UldAQl3g2yK9ej9VhiGniLpXQMV9uXrK0Xc/h/kLwZgrWEDu
WxbQbgN1P0W62AcqlVhAjer0bkmxcj8+GeT4//9YQJRmZQDFmnA/fuewcw==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$47418#1"]& ]}}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 100.}, {0., 0.575661121111516}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5IVosq5DYaP0XRMWw0
Ffo/4qkTZDdcKj8FZS60Bi4LQFaq1YNBGjw/aslGZ8wwFECU+PXnFnxMP8qC
eNpvqRpAwn9IXhN1XD8VebNxPtcgQCklp2hUG24/IB09Xc4dJEB7Qndd/zd+
PykcpROTqidAfmm81uH2jz9wLA79xCYrQGG+vBZieaA/EKmJTQBnLkD6CzEU
FKmvP1jAcTS49jBAHIj3Nsm+vj9V4qf19JsyQCkR4di/lMo/8YxeUOg4NEDM
wdd0oYnUPwxlhBD2+DVAayqwd4WX3D9VczOECJs3QOdUsSBuD+E/Hq9RXTVg
OUDDFRjf0GviP4Vz8M8YHTtAZ8E/YFJc4j8Zbhj2ALw8QJ43NEktiOE/LZav
gQN+PkBtqu/DljfgPzj6Z2AFEUBAGpZMW8Cw3T8ZwK8ylvRAQA63Uap1tNo/
Scq3UQLUQUDXJymnxOnXP49vhMpwpEJABcJbf5l+1T+Vqwh2bIZDQDnDddId
GdM/soJRe2pZREDZE9R07RLRPx6eWs1DKEVAXeCkCfCPzj9KUBtSqghGQGfy
HwumEss/jZ2gMBPaRkDfWInZeCnIP4+B3UEJvUdAlfJkgE1ZxT/hqdqf2ptI
QBWjOQEL5sI/SW2cV65rSUCOoZht5dzAP3HHFUIPTUpA/pUv2jvMvT+wvFOG
ch9LQMzFPrpciro/PvZRF7HtS0BkQUVZqrC3P4zGB9t8zUxAICxMS5vwtD/w
MYL4Sp5NQBPDXTArqbI/FDS0SKaATkCJotRL13ewP0/RqvIDVE9A3KstrExO
rT9t2bB0nhFQQF5DEPtOIqo/khVoiQGCUEC0i6oPTBSnP0KfAcvl6lBAJKS2
8uyMpD9S9PalkFxRQOwLZRENH6I/imtMJynMUUDh2IMk8QOgP00whNVCNFJA
wnxefSmLnD9wwBcdI6VSQCRwypiEMJk/H56NkYQOU0BIKYGqGWqWP/WdY6zT
dVNARqlivZn9kz8raZVg6eVTQNFV7Jj4p5E/7IGpQYBOVEAJih3ovHKPPw1m
Gbzdv1RAc7vDyU28iz9WbOncKC9VQDxkY3lvhIg/KsCbKvWWVUDBdcctXNqF
P17fqRGIB1ZAMjdkxh9Kgz8dTJolnHBWQFpqq2Q0K4E/PITm0nbiVkCsS4t+
IUR+P4PekiY/UldAQl3g2yK9ej9VhiGniLpXQMV9uXrK0Xc/h/kLwZgrWEDu
WxbQbgN1P0W62AcqlVhAjer0bkmxcj8+GeT4//9YQJRmZQDFmnA/fuewcw==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$47418#1"]& ]}}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 100.}, {0., 0.575661121111516}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel"],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 100.}}, {
       5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
        "], CompressedData["
1:eJwNk2k4FGoDhi0RQos6HEYd0eIUHxJa9BAixxLKWokoQx2krEcp60R2kX3P
zowlJG+UpHAsfcg2ZhRp0Ee0SX39ea7rvq77x/3nkXF0N3fm5uLiEv01CjoU
DltNEraNba4hPvwIUZpRop2URJO0Q/JsLD9eerv9OHFFEgYJ1zM8S/jh2cVn
IsqkYPrbIUPzZgHMKX5toIdsQw3Sn33gWYfrEenHDqjK4KMTt2bnPyKoSpnk
MJzkcCCMITDmtxHi3esoggq7oe8oWl/+YDOELpYvfyzaC/uc0eDlaAlQmQO+
g9+VELYa40CjSCO0JkI4eeN+jDrc7uYV2Y59j3QL1WUOYjrI52qu407cdol9
vrpPCzrDFNm9rXsg6/xtjYKELt7mau4o3q+MtvenHW05BpjQinzvarkfwqWp
k9Y7TuCxa3WRXv4hdLJy2ko4J2GjZZpXMqWN5VhqBEPSDjziO+oVFfUhv6fJ
SjbaATu6g7RY3CZ4p2tO92+6gKhDX6dVXS3w6Vr5kKXHZdxJWClSo9gg+fl4
90URL8jss6JoHDwHw3d6OX6FvhCO1C16uOQE7ho5HhXadTQPzuVFvKMiypej
GT19C98srNIluTygKzH/uNUpHM9zaFNuj7zw3U6xIXwuCqp29rzBZr6YtjUI
LR+PQ6HAp6SR6UBoO8vNNIvcxXntIdEdNrdg9iL0EplMw6nmB9Fua8KxgUap
DG3LhqNyqdEBn0gsruxlFsjmI/54JFfFqVhsOO/Y3aR3H0m6T6ZO1cbDZL+w
vtRICdTXjtM2n01CydlsL9WFCkhtdtZpsUjBSFWCB99LOsIDJPdUpaThmIZf
xrxbDcT793eKKmRhyZIZx99TByrq+t7vzkGzlI9ZhUcDPur8pxP9ubBly+7V
MGuCq7dlxFx8PqSvpY0HXSWo1n9xB06FmCem3I5/t6Ci6PxT/aNFYIptN6jT
ewL7kbXVHTtLcDmysdRTqw1bcwtUVYXKYMjZ+lHxbDs4JStyFZPlKJWDz1BG
B4x79E8cLK5Eq3zlu8TVl9C45Tvy7X4VDP7Hk9vg342jI+tSNC7Q8SzOUrvD
tAftsye8Vj7Qca49h8Wh9iK0j7WB24kBwemgHLvbfbhpVPfBmDBQl34mNbiy
H5oDyh2HfjJw2lp8Q/HgK2yl8vHflalGu7rq9o9cAxC/30qplqtGg/G5KGPb
Qehy+ptifvmhheKD3pVDmFdnRf9RwYDMOP+K+eprWIloXlRTZsCuQEVuQmsE
/jN08vb2r57ewB4jn1EEvqiWd2uugnPBOd11mWPIHC2lr2ZV4snUjB2LMQ5P
ut4nNVo5ljf6CCxVM0EVotsF6JRi0Zezadp0Ag193HI6w0V4WtZiQ2+cQMlo
pspam0KYucsetlRnofbiKm/7fC7GuDq8LbJYsBRPkAoUykKitGCB51sWSkQX
nN/fuYfpuauLe7eyYbiBP9ZPKxEvTQzkRQzZkP5YYVTjEI0tvj/eNVDZUM2w
4NryKgQV7KutC4FsFD3x+xnS7YPKgGjdW+FssBQdKZKyZxCq9oeo9i8+J7HI
pxRiTxbXyAy4+LMho7ON1T7nS3jT65t3O7DR0xIVE7YcTFrsLz1Yr8nG9fzf
/2z1u02e0cKmEtez4V2f/5eFUCx5GPdgn9gwC50Jm/LLL8WTXVG869szWKgU
0BL4cDmRRCZkvOmyY8Hji5mGsMRd8mmWdm1BkIXyafGw8bxkkv6wu1W5egIh
5s5RegMpZDg3IuWB9QTWGNyf7Xt4jwSHDdnzfGaCZ9Ziud0+lfiz+Fq6NJjw
0RZl/9aZSr5JNLrAdxxJU/sUrgimEfvjV90i68ZwSSdC3XlbGhE+HlxbvTQK
t/iCeY/NaUTM4LhX1vIIRrQ82vpGU0n9Ldk+06/DKPtR+106KJUIJUsPfOEa
hmZgX/GatanEauFhcojIaxz9/mw+zPcema7IbsvZNoSKXRZcOsMpRJKH4/6v
+iBoC7lb65VSyG5/sYQLlgM4wV2SHXgjmSz6qXflBPwXbDEPpnvHXXIyiqG7
0+gVpJqVZuabk0iGy+sbrD/7YftmTEapJpH89eXI9SbxPiwkud4ZKksgu8eV
r3tv6kX3zLLNldJ44r1rdpYu2QOJNy559fQ48vCxF1mx78bl1sOPuh/HEqaU
kmhjXifcuez+6WXEkMusM7Skny9wyFk5s+/zHSIVd5PaLtqBZNlxbvmpSJL3
WueGp1Y7AmJ+6zq+RCO1FPo37/g2OPEfXg2RiSCFbeTIC56nmGm8KdB1KYww
ss1GPWNaEaX5d8fwqxBSqXI+JlKtBYq8R3Ycsw4mVe7GNWmzBC/FGIeTl28S
qd5wo42pj1A8c1bDvDSILJ2R31IS1Qj7r86ezz4EEln+tTTKvw9wMnSuLIzp
T46Exm53t6lFmOri02lpX1L5/fvBi79+raSer+abd414tKeLB8jTIWh8cdSG
6kVuGhw3DW+rwM2sLSe1qZ5EIZiycyypFA5i2TOsg+6E4pH51KGxCORx7BlH
7ktkq4j2spRJAZjhCh/iZF2ImvSG/DHbXFDXqw7XdTmRjGLzo/zZWbC1Vxa3
nXMgg9kKP6yPpOGwFN9OzpuzRLfY6seETzK8hcaemWTakqMbmVBRT8ReCbmD
Q/OWRO/C2tpeahx0JU0aW1osyICUikjmzzsw7H/P+zufGUnj3E/5Uh+BA8fY
J0JFjcjVG5H7H9uH4Ac16XzHNn2yFDdhcPRFEOp3fV4/JqpDrB+Z3FYvC8Ch
2pbMaiqImPX7+skub2jKnXQ2mjxAxkuaDCOueWHToMroaXE1MhbzZvxpqgci
DgwdnnmtQv4PvY0kYQ==
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7943790882523813`*^9, 3.794379423224893*^9, 
  3.794380804686846*^9, 3.7943840237504406`*^9, 3.7944726553722873`*^9, 
  3.7945539694815197`*^9, 3.7946450895397916`*^9, 3.794802840846741*^9, 
  3.7948371428713226`*^9, 3.794844726624629*^9, 3.7948531725370717`*^9, 
  3.794884193352146*^9, 3.7948874521424265`*^9, 3.794894860598074*^9, 
  3.794897040397365*^9, 3.7949012527148247`*^9, 3.794918934964027*^9, 
  3.794920905941806*^9, 3.7949755575108566`*^9, 3.7949776549298058`*^9, 
  3.7949857559481506`*^9, 3.7950125530035563`*^9, 3.7950597234053173`*^9, 
  3.7951572085027447`*^9, 3.7953198307525043`*^9, 3.79531996722933*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"7c42d628-e333-4dbb-9625-d793e462497f"]
}, Open  ]],

Cell["Ahora podemos representar la soluci\[OAcute]n como sigue:", "Text",
 CellChangeTimes->{{3.794235656600557*^9, 3.7942356916900153`*^9}, {
  3.7943220181854067`*^9, 
  3.794322036096486*^9}},ExpressionUUID->"0fce0521-29e5-4c92-84c6-\
50fdeeb3355a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"sols", ",", "solr", ",", "soli"}], "}"}], "=", 
  RowBox[{"First", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"s", ",", " ", "r", ",", " ", "i"}], "}"}], "/.", "solution"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7943791397828255`*^9, 3.794379166022421*^9}, {
  3.7943793385819373`*^9, 3.7943793780920477`*^9}, {3.7943794412529993`*^9, 
  3.794379528008448*^9}, {3.7943799315312047`*^9, 3.7943799611798353`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"c0f17eb8-0da6-4317-97a2-a7dd4b5325e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD6vAd1ILv/vP0XRMWw0
Ffo/hGJ24zb+7z8FZS60Bi4LQLp4RMAJ/O8/aslGZ8wwFECukLXr0/fvP8qC
eNpvqRpAVnObnojv7z8VebNxPtcgQGVght7/3O8/IB09Xc4dJED1+75Mk7nv
PykcpROTqidAMLD4br1q7z9wLA79xCYrQLV9UGagy+4/EKmJTQBnLkCK44Um
XK3tP1jAcTS49jBAg3bcKRl16z9V4qf19JsyQJfzCpmrDOg/8YxeUOg4NEBo
8haNEXXjPwxlhBD2+DVAoOIV7C/H2z9VczOECJs3QPRUZr6ykNI/Hq9RXTVg
OUAdNGCnsqTGP4Vz8M8YHTtAQ5Lo0Vpquz8Zbhj2ALw8QHVdNU8oYrE/LZav
gQN+PkBdSRivn9ulPzj6Z2AFEUBAD2ID2JZanT8ZwK8ylvRAQGbKCtHl15M/
Scq3UQLUQUAC9kOH8huMP49vhMpwpEJA1QGHzeEPhT+Vqwh2bIZDQLUM+urf
2H8/soJRe2pZRECqyZhGUDx5Px6eWs1DKEVAco9S2+KTdD9KUBtSqghGQNSy
6k5t5XA/jZ2gMBPaRkCZz/AEr7FsP4+B3UEJvUdArYrOccqDaD/hqdqf2ptI
QJqV1GEXYmU/SW2cV65rSUD/yOq0yhdjP3HHFUIPTUpAzs4mP6IeYT+wvFOG
ch9LQK4JWPw1SF8/PvZRF7HtS0CmalX9PuhcP4zGB9t8zUxAdX661u/JWj/w
MYL4Sp5NQNzrRYkbJ1k/FDS0SKaATkCABrfvjqxXP0/RqvIDVE9A3WNtTj2E
Vj9t2bB0nhFQQNOeJ79XjVU/khVoiQGCUEBTl4BOpqlUP0KfAcvl6lBAtgqO
eFr0Uz9S9PalkFxRQK5ZoUMZTFM/imtMJynMUUDDAJRDw75SP00whNVCNFJA
N8GxadRMUj9wwBcdI6VSQB1At8nR4VE/H56NkYQOU0DPLlalJYtRP/WdY6zT
dVNAQ262bcxAUT8raZVg6eVTQN5yzqpc+lA/7IGpQYBOVEAOSlme7MBQPw1m
Gbzdv1RAwngmP3WKUD9WbOncKC9VQOEgeXbPW1A/KsCbKvWWVUCzg/XdlDVQ
P17fqRGIB1ZAWBgtFSIRUD8dTJolnHBWQCR7G7Bx5k8/PITm0nbiVkAjkaLV
bq1PP4PekiY/UldAVdffhV18Tz9VhiGniLpXQBnbryz7U08/h/kLwZgrWEC9
pqASWy1PP0W62AcqlVhAZudE+owNTz8+GeT4//9YQENMCugL8U4/Klq5Ng==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47470#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9998999999152626}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD6vAd1ILv/vP0XRMWw0
Ffo/hGJ24zb+7z8FZS60Bi4LQLp4RMAJ/O8/aslGZ8wwFECukLXr0/fvP8qC
eNpvqRpAVnObnojv7z8VebNxPtcgQGVght7/3O8/IB09Xc4dJED1+75Mk7nv
PykcpROTqidAMLD4br1q7z9wLA79xCYrQLV9UGagy+4/EKmJTQBnLkCK44Um
XK3tP1jAcTS49jBAg3bcKRl16z9V4qf19JsyQJfzCpmrDOg/8YxeUOg4NEBo
8haNEXXjPwxlhBD2+DVAoOIV7C/H2z9VczOECJs3QPRUZr6ykNI/Hq9RXTVg
OUAdNGCnsqTGP4Vz8M8YHTtAQ5Lo0Vpquz8Zbhj2ALw8QHVdNU8oYrE/LZav
gQN+PkBdSRivn9ulPzj6Z2AFEUBAD2ID2JZanT8ZwK8ylvRAQGbKCtHl15M/
Scq3UQLUQUAC9kOH8huMP49vhMpwpEJA1QGHzeEPhT+Vqwh2bIZDQLUM+urf
2H8/soJRe2pZRECqyZhGUDx5Px6eWs1DKEVAco9S2+KTdD9KUBtSqghGQNSy
6k5t5XA/jZ2gMBPaRkCZz/AEr7FsP4+B3UEJvUdArYrOccqDaD/hqdqf2ptI
QJqV1GEXYmU/SW2cV65rSUD/yOq0yhdjP3HHFUIPTUpAzs4mP6IeYT+wvFOG
ch9LQK4JWPw1SF8/PvZRF7HtS0CmalX9PuhcP4zGB9t8zUxAdX661u/JWj/w
MYL4Sp5NQNzrRYkbJ1k/FDS0SKaATkCABrfvjqxXP0/RqvIDVE9A3WNtTj2E
Vj9t2bB0nhFQQNOeJ79XjVU/khVoiQGCUEBTl4BOpqlUP0KfAcvl6lBAtgqO
eFr0Uz9S9PalkFxRQK5ZoUMZTFM/imtMJynMUUDDAJRDw75SP00whNVCNFJA
N8GxadRMUj9wwBcdI6VSQB1At8nR4VE/H56NkYQOU0DPLlalJYtRP/WdY6zT
dVNAQ262bcxAUT8raZVg6eVTQN5yzqpc+lA/7IGpQYBOVEAOSlme7MBQPw1m
Gbzdv1RAwngmP3WKUD9WbOncKC9VQOEgeXbPW1A/KsCbKvWWVUCzg/XdlDVQ
P17fqRGIB1ZAWBgtFSIRUD8dTJolnHBWQCR7G7Bx5k8/PITm0nbiVkAjkaLV
bq1PP4PekiY/UldAVdffhV18Tz9VhiGniLpXQBnbryz7U08/h/kLwZgrWEC9
pqASWy1PP0W62AcqlVhAZudE+owNTz8+GeT4//9YQENMCugL8U4/Klq5Ng==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47470#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9998999999152626}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0., 100.}}, {
     5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
      "], CompressedData["
1:eJwNx3c41YsfAGC3yB4hoyFZUfpFTlbcz0nZ0UFGZZeQpHRESkiuSLLKFRWS
ETIyk+/HzSySyzluQiRHVudLlFl+/nmf593h7mft8QcHB4fQGjK5Yyb/WyUh
X/2pjJYmH7ZNqlL2rP2QLVdqnw0fTutqy6iuXSU46FXmRT5MNou9tmntIw3n
yD2fBHD/zfaWld8kaGZlPU6JEEYxCdP3n9de+FC3NV5jIy668hjlrP2nX2BK
zilx9OkbyHdZ++K/U76M3VL4k2r+g3/tIwc868Ryt2JM+efavF8k9HMnK0cu
y+In2V4nkbXzpHPeCxdWRHnTcC+bFRJS1Lhi9GV24bD2nY3eyySIX+RMyFVX
Q8fCH1eNlkgYHON3ixanYFoUbc+nBRKCR/l4kaWNNwwOplf9JOFV+D65NFkq
eplf9GPPkuD9Kcn99ZfDWDTiXGc9TULnc4qgr6A59r28VJkzSYK6Xgb3jxtW
WKEXnPSARYKc9F7qi3w7fF3WEdoyQAI9kcuKQXPCnnN3NfK7SbB+WST/67s7
tp70H77XTMKs4s15nWAvrB9YvcusJiHsepW2keF5rJhizTNzSdii77sU+MIf
g/UOSX5IJEFMWNz4h3ggUrz3tc4GkVB25knZxUvX0K7GylXkOAm+qU+AHh6O
jSoPXverk0ATCuR+HhqJK3aEuuwyG4biLbzcOW6j+lJJNW8zG0KiPs8syMbj
aEBOfsVfbPCQ3BCkoZmElKvjzRXmbKjRuDRxgec+ur41WSfHwwa2QSi3PiUV
1avfUGdefoPshhMSJzEdHaTn3vOf+gaX4+iEsH0GKkloXaCtToHHy1QX1/As
ZPkX1bpmT8Ezhb2TFJ9sVF8R0N1HnYIgPfnezIAcfLNTQVC9axLoamofox7l
Ia0p+ifz+CRcX1Deljb8DEOCZJQKeyZgy8h3DdAvwkS5TU/tTSagufJsqE9e
MR6aLZFLfz4OX1LfjVsKlaJY3EnGKd5xqCqzFrlgUoaWSgVczQ5j0FphSPqH
vEBB1vygwMOv8NXQyDsrtxw7BFZGanpGIVkn7TSrvgIPuUklR+0aBXFmoatI
aiVOKkmUiQSxgJ4XqFrmVIWGg5soSzgCOm3e27z4q9FMcubIuvUjIHlrx59S
j6vRf/R6y6+DX8DSSyZIWKIGLdPfXGGEDAPzga/StvM1+OJjxdhf9z+D/4aZ
kacFNfihhWD1Fg0BZ7G0bkltDSbsdH7CiBkEpzPiMSqPajDbeXvD47oBuE/h
czQ7VoOdCk4n5ef74MqjoS3hQ9U4PxZQr6X7EQ606+w3N6rGqrghkfPRH6Db
4/YFjpgqLPyd9nXd1x6Y6BIouVdSiWkqTVHMY0zIFFMIcsQKTB9siT3F6AaZ
r5POjbXlOBxy2aBp+l84yKfFHrB4gR0WfFlH1DqhLoXoiWSUYgk9Myei4h00
MvZ6+j8swbB+1TFH3TaIaWP6rWM+R67Broi97FbQ45SMsw8txAQjJcUr75vh
0VDXgBz1GZInLZvM+xuhaat7KO/WPCzaZdXhI9oAT2wDl0EiB8+7eXSe9fsH
9g2VytWqZeOxgNjQ96oIxT5figM4svBAvKmh8XAt/NHpEDqzPgMduHnY9j+q
ofRbOcPgUjq6X1qdv+lYCafDjlzu10/Fa9T2vi9C5TC2mSWx3+0+5kvHOlM4
y2B+oHHTjp4kZJwzbpmklEB7/G1J7XsJKMrz33QrUQgJl1urE9PjcG63gQff
nXxgZ25r0yiIwVWjBDq1MQeS3xHkNYMoPMh466pqlw3SCjfuBNBuIkuTSAjQ
zILehWkDiaZw1D0eEuh/IgPsSrzrQxRCsTOsXvPrxYdg0HU9U93+Ks4VWB1T
TH4AsVLWkYMCQfjCbPhVnmUK/JbIKj/sRMflQK1M6q1k0Cm+2ltgeRH1kzJL
3XYnwhCrWz81yheNErx1vJXiYdlT2jvf1BvlCIHKBmYsZDibZXS/8sAnZb9e
MXujoWfscVruP+64KpPzMMgwCuj6x3X//tMVJfYHn4jkiQTbAybUCn1HvMrl
69hhcQNoXEaeLtr2GHFKUu6IYBjITODn97o2WMvWzw5zvAYtrWoUUV4apms4
KS/qXoFc21an5kkz9Fwdsdz492XgjLBcaKgzwgRh/d2HHOnARyP0E2wO4QXv
xa5Zuj/oPo+MaLxJxaoPPtk23ReAGBA8see0Hg6Pm9f8qXoeAgiv4rAMLeRU
Xq8bdNgHzOVVimQ7NXAD9eylhC4v2PB8++v2WjWMVt46pll/BsQK6nL06Kpo
8+6Z+bfl09C+Llky1l4Z93N7jIwGnoIG75KphhkFzDQSFdyp4g4q+141KcrI
4VEHRclPG9ygM2lF1jNsO+56+es3xcwFzt+dMO35IY2UerpFLocTfMmPFNmb
vAmbNnt+F5Y6Ce+G349EiIlittZlPueQ4wBTbzM/XRdCSc+Ouv4dDiBQ6qd8
e5gXLTrjosSW7MAltF3SWGoDRjQ94V5YsQUXQaHdPnPrUF3UOdBB3hbI/sUz
GbYcyHTLbX2rcgzyfOnapr1LxJypMZ3X0QbUMl2rr+3/SXyMnc5zKrWGRdX1
lhZXvhOsEym1QvLW0N2Z+4z5mU3cmu+6PlBgBXnNJqoBk+PE1vLxiqfGVmAh
Nlq5m8kiVrq15TfP0iDdb8bUw3+YeLlz4b/EAhroMMzNLQ4OEj2ad9Y3OdPg
6YxEvad5L5FHUpMiZGkgckKUtjOaQZjGV3zr6DsKnLVj/YerOglFvgWWTfRR
eCfKzZ9i2EbI9U8orhgeBYmqvkIb02Yipm2unE/qKKTUbgsJHntNROPBUf4Z
S6AOWzuqCtUT/weQblAz
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD4AIH56Yp+qPUXRMWw0
Ffo/Lqggroms8T4FZS60Bi4LQHswJMPivQw/aslGZ8wwFED4RB0H6dAgP8qC
eNpvqRpAYlJDq73mMT8VebNxPtcgQOba4UM0k0M/IB09Xc4dJEDbDCsMaflT
PykcpROTqidA5iterAlnZT9wLA79xCYrQIgy2yG8ZHY/EKmJTQBnLkD/7cIN
pgSGP1jAcTS49jBAOg+T6LVhlj9V4qf19JsyQOmBzAtH4qQ/8YxeUOg4NECQ
ZenD7TCyPwxlhBD2+DVAzsvncCqFvj9VczOECJs3QHcCbgDioMY/Hq9RXTVg
OUDZdD/cCazPP4Vz8M8YHTtAo1gGi8Rs1D8Zbhj2ALw8QGc5ylkbl9g/LZav
gQN+PkD4oT2CXtXcPzj6Z2AFEUBA4pmZG8s84D8ZwK8ylvRAQCTOTvwFB+I/
Scq3UQLUQUA6XE7irZrjP49vhMpwpEJA9AIcuXPs5D+Vqwh2bIZDQEgq71a/
M+Y/soJRe2pZREB+xAilEETnPx6eWs1DKEVAySLgN9wy6D9KUBtSqghGQP8t
mqKLGek/jZ2gMBPaRkD4uJga8NjpP4+B3UEJvUdA0PR01SiR6j/hqdqf2ptI
QKfCTygbMes/SW2cV65rSUDV7OTZrrXrP3HHFUIPTUpAc+Z64lk17D+wvFOG
ch9LQEP7uU0Qn+w/PvZRF7HtS0AgrViVdvvsP4zGB9t8zUxAPx2rnodU7T/w
MYL4Sp5NQKqkLwxHnu0/FDS0SKaATkAukA3PLuXtP0/RqvIDVE9AlO6VFtkf
7j9t2bB0nhFQQP5nb2QUU+4/khVoiQGCUED9Ft5rZoTuP0KfAcvl6lBAvE6Y
Azet7j9S9PalkFxRQJneRyJp1O4/imtMJynMUUB2+BWMYfbuP00whNVCNFJA
PjPgSYAS7z9wwBcdI6VSQOPQVPKKLe8/H56NkYQOU0CiS9mf6UPvP/WdY6zT
dVNAgw/ey3JX7z8raZVg6eVTQBw24wxDau8/7IGpQYBOVEA3XRCW1HnvPw1m
Gbzdv1RA2l05jsmI7z9WbOncKC9VQOI1X1rAle8/KsCbKvWWVUBr59nEe6Dv
P17fqRGIB1ZAm9jb786q7z8dTJolnHBWQHtLAZJZs+8/PITm0nbiVkDHgE1h
jLvvP4PekiY/UldAU8fmoqbC7z9VhiGniLpXQBFhP2yHyO8/h/kLwZgrWEAi
K5vLLc7vP0W62AcqlVhA9YTjCdrS7z8+GeT4//9YQKMyBTMO1+8/sMXCUQ==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47522#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9950018879404364}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD4AIH56Yp+qPUXRMWw0
Ffo/Lqggroms8T4FZS60Bi4LQHswJMPivQw/aslGZ8wwFED4RB0H6dAgP8qC
eNpvqRpAYlJDq73mMT8VebNxPtcgQOba4UM0k0M/IB09Xc4dJEDbDCsMaflT
PykcpROTqidA5iterAlnZT9wLA79xCYrQIgy2yG8ZHY/EKmJTQBnLkD/7cIN
pgSGP1jAcTS49jBAOg+T6LVhlj9V4qf19JsyQOmBzAtH4qQ/8YxeUOg4NECQ
ZenD7TCyPwxlhBD2+DVAzsvncCqFvj9VczOECJs3QHcCbgDioMY/Hq9RXTVg
OUDZdD/cCazPP4Vz8M8YHTtAo1gGi8Rs1D8Zbhj2ALw8QGc5ylkbl9g/LZav
gQN+PkD4oT2CXtXcPzj6Z2AFEUBA4pmZG8s84D8ZwK8ylvRAQCTOTvwFB+I/
Scq3UQLUQUA6XE7irZrjP49vhMpwpEJA9AIcuXPs5D+Vqwh2bIZDQEgq71a/
M+Y/soJRe2pZREB+xAilEETnPx6eWs1DKEVAySLgN9wy6D9KUBtSqghGQP8t
mqKLGek/jZ2gMBPaRkD4uJga8NjpP4+B3UEJvUdA0PR01SiR6j/hqdqf2ptI
QKfCTygbMes/SW2cV65rSUDV7OTZrrXrP3HHFUIPTUpAc+Z64lk17D+wvFOG
ch9LQEP7uU0Qn+w/PvZRF7HtS0AgrViVdvvsP4zGB9t8zUxAPx2rnodU7T/w
MYL4Sp5NQKqkLwxHnu0/FDS0SKaATkAukA3PLuXtP0/RqvIDVE9AlO6VFtkf
7j9t2bB0nhFQQP5nb2QUU+4/khVoiQGCUED9Ft5rZoTuP0KfAcvl6lBAvE6Y
Azet7j9S9PalkFxRQJneRyJp1O4/imtMJynMUUB2+BWMYfbuP00whNVCNFJA
PjPgSYAS7z9wwBcdI6VSQOPQVPKKLe8/H56NkYQOU0CiS9mf6UPvP/WdY6zT
dVNAgw/ey3JX7z8raZVg6eVTQBw24wxDau8/7IGpQYBOVEA3XRCW1HnvPw1m
Gbzdv1RA2l05jsmI7z9WbOncKC9VQOI1X1rAle8/KsCbKvWWVUBr59nEe6Dv
P17fqRGIB1ZAm9jb786q7z8dTJolnHBWQHtLAZJZs+8/PITm0nbiVkDHgE1h
jLvvP4PekiY/UldAU8fmoqbC7z9VhiGniLpXQBFhP2yHyO8/h/kLwZgrWEAi
K5vLLc7vP0W62AcqlVhA9YTjCdrS7z8+GeT4//9YQKMyBTMO1+8/sMXCUQ==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47522#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9950018879404364}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0., 100.}}, {
     5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
      "], CompressedData["
1:eJwtyWk41IsCx3FKogWhXYQQUUpk/f9uWYZQHCFKQiVkl0IlypKtiMjYDSlL
lmkj6oTIsQ0KhRlLkmXGFsZS597nud8XnzdfcXv3vy5ycnBw8P2P/3ejfCkt
4VcvUdQt5PuxxptQfSu+8frWPoIRu9F1tuUOIXSkZf62Wh/hYTwqu+70W2JG
sjreLZBBfNZaU/zoeCPBE7H9QvqqAUL4oD6H7tfPRIxVi7H500FCyK6JUe82
SIwZy/ganfhBBLl0OTwImSBib84UKWeOEXbrd5SWV84Sws5yw9fPTxKbeY2T
EjuWiM/656tWO88QhweDzWhnVsOeRlNiCi0Ql6xjAyRE1uHmTdeCrp4VYm3k
eWGG1iYkiBUvRd5dhQd2mRLb3beg7YBXH+c8Nwr0pHqC6SKol1+ZyfDfAKno
VS0+ZyQxYv/R7YO3IMquqVeVVsgieHLPYuXIVhBWh38c/6MIz6obedNsUdxr
IVEOWqlgPu+3uqTAHvgqhmfHkLRQOl709/SSLDglA+1zdmsjdUkmw7dNESEX
LQxnWPqIVqOq7/2oDO5WxUen1E2g1rnsN71PE0PFJfNbFU9hHVnabM7rKLZ3
NOikbbUCl8HzydFkXUQbbfGqkLWFtbMZl+Hb4zCw6R3ZZuGAZQWByvIwE9h1
rL6rtOgIWp5OjtKVU+ARKhPRe+GKc45zNaTDVtC1qnT7yfDC2fiixpd0W/wn
PW3/XLMvbH1tzw7IOaBBwUZpOSwAyW5fKvZxOaLW+MA2lflASPoF7upKcsZw
XIqpYGQw3vTyTmiXuOGSn8Cf3lsh2FP1xdCxyBNpkmdvMYbC8ThEnVRp7oMC
qge3e2MU2kLn/qmzuIZ8UsexZqUH4JGrqzYR9MfCurvX/6jEQbYm3VFA6CYS
b449W/GJh+zIJZLT/ttICLKias08gkK1v5YbOwgjk6UHXV49RsmEZlXv2B00
8hmKWNWlINM18mAYdyik0rilrwlnIEPvS0CuQTjyPf+Z4J7KhOBoLrOOGoEA
HtN6reVs8LvyqRXpRWMfT61Nn2oubuxyc9NcuQ9eL6W9AU/zQPLTOlTmHIsi
m9oyze5nOJTp/sKMEodzFvdpCQcK8crS0q1m+CE825NLAwufg77Y9PKyYgK6
2zgO0GVLYF9X1e4Z+Agrzvl3XGNL8W7Zof47LRGexEDe/Y1UsJvzpfOkHsNv
piU8buAFyq/4ZJwuToaUTP5V8/ZXONPTX0CopODAT5dQO/obbL5gE9lYlool
1it7Du638JW384yTSoeaTLwJ9KrAfmI1tE8nA7qDf835nXyProq610njGeDd
7CJtF/Y3lHfQRj9FZKKir1tMsOEDXMiXuYp3ZYHjUx3l9ZYa3Dul13iVkoUX
0U6B3ldqETelGhkkmo05vZAIkaN1aCrw6JotyAbrfB1jm8QntGSXiTVJUvBb
WL32BbUBShKOZJY3BYMuf4xZRo24WN32pJZKQcv39Z3kn03wIY35jw5TINJN
V0m/1wJTdmXqrvU5KNzgnjSX0AqTIS+6qkQOjL3L79c60iCvEy8no5CDowNR
AfVqbfjl0Z/VI5+Dhq6v3otoh9CptQX7RXMw4aBZIqLbgascmpJmnDl4SuQk
ROh/xgKdMbupiwIy/8ws1eALXFMWGFspFLg0pmbu1u+EdWeAzdQlCvT7zRsu
aHfBzHsVP48EBS9XpnVkNbqRWsOUyfqSDUFd2pz2qa/w30RMCfllQ1+7XGHJ
8RuqNi2+Zm3OhlPs2fc8vj1wtNQuDS/KwrQon7DqrV7wBK47x6mThVzLD1EO
t/swda6a07QzEz0aFvpeN+gwl33SrO+UCYPO+wL71Bj4vTTTkrSYge3N5EWu
EgZIG1YcOyIzkG7gw1FxvB/kj0nTkrPpGAge2rSF3g//UeGZ+vY00GUuhO11
GwCbHUWbf5WK+nIL53ULAzgqO7rzbWYK4q5a8nXdGESQ91mf3lgypMO3TBUv
D4LC3CI4EZ4M12d/2l9eG8Lvvb+emIQ9hqL14uqNzCEkJvooGUYnoXKNMuXF
g+/wEM2h+xxKhDgzgt9abhjLA2yx3h8JWFqb9O5yxTBuZRUWOxXG447Fo+YT
Oj8QID8U1Rr8ELoS48O+tT+geHpfda5jHEoSGu/pYwQTVDmSy5lYHOZujpcp
HcHTQoOBGJsHmH5uO+ct+hOyHZy8s19j0HJyeFg87ScinazWKmRHwZ37l0y6
8CgSugLbGuIi8PAE4/n94FF0rDZ2cHgSDvdpR7Xokf/+EpGl1L5Q8Eykk2VI
Y0iMbmSrqoTgZPMx5e9pY/hcM3l4Y8Ed1MLJXntyDPFcn9r5iWCEMiwXXmqM
o3Ugg9ts9DYumX/Lqk0bR1p2dEOq5S30XlDdmTI/jmXyAadO5QA0VVCF9EgT
EPAJ6VC+dB2mUmQnaswEeJp+zFxlXEV/YGHRu+YJuMi/nhZN9YYQhRQkx8PE
bVXdAc8ETzAvJpdkazCRaGj0qCzUHWwn/yP1Tkwo5cnTXx+7giAy6QxvJhNv
PNKCdKwuI+orlzillYn8Vkq7+OIFeE5vE3vCZoJ6sanESNAeJnXFxUsiLPQ5
W9OKJGxBdBvzumiwwJWiXCLVZo0MQWlyljkLZkOxscE7LHF5r973I1dYkFzp
v5s7bIYgDduq/EAWRMVUTK33mKL88c6K8XgWdvnY7xY5aoSYg+crPXJZKIlR
Lv2mT4KlgPhqBpUFBXbxY0NFbYQOTWnUvmfBrrqzkcgAUorvvolrYKHgW+EG
Or86Agwqx0/QWLgnqEBT0FKBT66+El8nC0b0BwlrFg/hX2biIS4=
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5IVosq5DYaP0XRMWw0
Ffo/4qkTZDdcKj8FZS60Bi4LQFaq1YNBGjw/aslGZ8wwFECU+PXnFnxMP8qC
eNpvqRpAwn9IXhN1XD8VebNxPtcgQCklp2hUG24/IB09Xc4dJEB7Qndd/zd+
PykcpROTqidAfmm81uH2jz9wLA79xCYrQGG+vBZieaA/EKmJTQBnLkD6CzEU
FKmvP1jAcTS49jBAHIj3Nsm+vj9V4qf19JsyQCkR4di/lMo/8YxeUOg4NEDM
wdd0oYnUPwxlhBD2+DVAayqwd4WX3D9VczOECJs3QOdUsSBuD+E/Hq9RXTVg
OUDDFRjf0GviP4Vz8M8YHTtAZ8E/YFJc4j8Zbhj2ALw8QJ43NEktiOE/LZav
gQN+PkBtqu/DljfgPzj6Z2AFEUBAGpZMW8Cw3T8ZwK8ylvRAQA63Uap1tNo/
Scq3UQLUQUDXJymnxOnXP49vhMpwpEJABcJbf5l+1T+Vqwh2bIZDQDnDddId
GdM/soJRe2pZREDZE9R07RLRPx6eWs1DKEVAXeCkCfCPzj9KUBtSqghGQGfy
HwumEss/jZ2gMBPaRkDfWInZeCnIP4+B3UEJvUdAlfJkgE1ZxT/hqdqf2ptI
QBWjOQEL5sI/SW2cV65rSUCOoZht5dzAP3HHFUIPTUpA/pUv2jvMvT+wvFOG
ch9LQMzFPrpciro/PvZRF7HtS0BkQUVZqrC3P4zGB9t8zUxAICxMS5vwtD/w
MYL4Sp5NQBPDXTArqbI/FDS0SKaATkCJotRL13ewP0/RqvIDVE9A3KstrExO
rT9t2bB0nhFQQF5DEPtOIqo/khVoiQGCUEC0i6oPTBSnP0KfAcvl6lBAJKS2
8uyMpD9S9PalkFxRQOwLZRENH6I/imtMJynMUUDh2IMk8QOgP00whNVCNFJA
wnxefSmLnD9wwBcdI6VSQCRwypiEMJk/H56NkYQOU0BIKYGqGWqWP/WdY6zT
dVNARqlivZn9kz8raZVg6eVTQNFV7Jj4p5E/7IGpQYBOVEAJih3ovHKPPw1m
Gbzdv1RAc7vDyU28iz9WbOncKC9VQDxkY3lvhIg/KsCbKvWWVUDBdcctXNqF
P17fqRGIB1ZAMjdkxh9Kgz8dTJolnHBWQFpqq2Q0K4E/PITm0nbiVkCsS4t+
IUR+P4PekiY/UldAQl3g2yK9ej9VhiGniLpXQMV9uXrK0Xc/h/kLwZgrWEDu
WxbQbgN1P0W62AcqlVhAjer0bkmxcj8+GeT4//9YQJRmZQDFmnA/fuewcw==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47574#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.575661121111516}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5IVosq5DYaP0XRMWw0
Ffo/4qkTZDdcKj8FZS60Bi4LQFaq1YNBGjw/aslGZ8wwFECU+PXnFnxMP8qC
eNpvqRpAwn9IXhN1XD8VebNxPtcgQCklp2hUG24/IB09Xc4dJEB7Qndd/zd+
PykcpROTqidAfmm81uH2jz9wLA79xCYrQGG+vBZieaA/EKmJTQBnLkD6CzEU
FKmvP1jAcTS49jBAHIj3Nsm+vj9V4qf19JsyQCkR4di/lMo/8YxeUOg4NEDM
wdd0oYnUPwxlhBD2+DVAayqwd4WX3D9VczOECJs3QOdUsSBuD+E/Hq9RXTVg
OUDDFRjf0GviP4Vz8M8YHTtAZ8E/YFJc4j8Zbhj2ALw8QJ43NEktiOE/LZav
gQN+PkBtqu/DljfgPzj6Z2AFEUBAGpZMW8Cw3T8ZwK8ylvRAQA63Uap1tNo/
Scq3UQLUQUDXJymnxOnXP49vhMpwpEJABcJbf5l+1T+Vqwh2bIZDQDnDddId
GdM/soJRe2pZREDZE9R07RLRPx6eWs1DKEVAXeCkCfCPzj9KUBtSqghGQGfy
HwumEss/jZ2gMBPaRkDfWInZeCnIP4+B3UEJvUdAlfJkgE1ZxT/hqdqf2ptI
QBWjOQEL5sI/SW2cV65rSUCOoZht5dzAP3HHFUIPTUpA/pUv2jvMvT+wvFOG
ch9LQMzFPrpciro/PvZRF7HtS0BkQUVZqrC3P4zGB9t8zUxAICxMS5vwtD/w
MYL4Sp5NQBPDXTArqbI/FDS0SKaATkCJotRL13ewP0/RqvIDVE9A3KstrExO
rT9t2bB0nhFQQF5DEPtOIqo/khVoiQGCUEC0i6oPTBSnP0KfAcvl6lBAJKS2
8uyMpD9S9PalkFxRQOwLZRENH6I/imtMJynMUUDh2IMk8QOgP00whNVCNFJA
wnxefSmLnD9wwBcdI6VSQCRwypiEMJk/H56NkYQOU0BIKYGqGWqWP/WdY6zT
dVNARqlivZn9kz8raZVg6eVTQNFV7Jj4p5E/7IGpQYBOVEAJih3ovHKPPw1m
Gbzdv1RAc7vDyU28iz9WbOncKC9VQDxkY3lvhIg/KsCbKvWWVUDBdcctXNqF
P17fqRGIB1ZAMjdkxh9Kgz8dTJolnHBWQFpqq2Q0K4E/PITm0nbiVkCsS4t+
IUR+P4PekiY/UldAQl3g2yK9ej9VhiGniLpXQMV9uXrK0Xc/h/kLwZgrWEDu
WxbQbgN1P0W62AcqlVhAjer0bkmxcj8+GeT4//9YQJRmZQDFmnA/fuewcw==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47574#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.575661121111516}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0., 100.}}, {
     5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
      "], CompressedData["
1:eJwNk2k4FGoDhi0RQos6HEYd0eIUHxJa9BAixxLKWokoQx2krEcp60R2kX3P
zowlJG+UpHAsfcg2ZhRp0Ee0SX39ea7rvq77x/3nkXF0N3fm5uLiEv01CjoU
DltNEraNba4hPvwIUZpRop2URJO0Q/JsLD9eerv9OHFFEgYJ1zM8S/jh2cVn
IsqkYPrbIUPzZgHMKX5toIdsQw3Sn33gWYfrEenHDqjK4KMTt2bnPyKoSpnk
MJzkcCCMITDmtxHi3esoggq7oe8oWl/+YDOELpYvfyzaC/uc0eDlaAlQmQO+
g9+VELYa40CjSCO0JkI4eeN+jDrc7uYV2Y59j3QL1WUOYjrI52qu407cdol9
vrpPCzrDFNm9rXsg6/xtjYKELt7mau4o3q+MtvenHW05BpjQinzvarkfwqWp
k9Y7TuCxa3WRXv4hdLJy2ko4J2GjZZpXMqWN5VhqBEPSDjziO+oVFfUhv6fJ
SjbaATu6g7RY3CZ4p2tO92+6gKhDX6dVXS3w6Vr5kKXHZdxJWClSo9gg+fl4
90URL8jss6JoHDwHw3d6OX6FvhCO1C16uOQE7ho5HhXadTQPzuVFvKMiypej
GT19C98srNIluTygKzH/uNUpHM9zaFNuj7zw3U6xIXwuCqp29rzBZr6YtjUI
LR+PQ6HAp6SR6UBoO8vNNIvcxXntIdEdNrdg9iL0EplMw6nmB9Fua8KxgUap
DG3LhqNyqdEBn0gsruxlFsjmI/54JFfFqVhsOO/Y3aR3H0m6T6ZO1cbDZL+w
vtRICdTXjtM2n01CydlsL9WFCkhtdtZpsUjBSFWCB99LOsIDJPdUpaThmIZf
xrxbDcT793eKKmRhyZIZx99TByrq+t7vzkGzlI9ZhUcDPur8pxP9ubBly+7V
MGuCq7dlxFx8PqSvpY0HXSWo1n9xB06FmCem3I5/t6Ci6PxT/aNFYIptN6jT
ewL7kbXVHTtLcDmysdRTqw1bcwtUVYXKYMjZ+lHxbDs4JStyFZPlKJWDz1BG
B4x79E8cLK5Eq3zlu8TVl9C45Tvy7X4VDP7Hk9vg342jI+tSNC7Q8SzOUrvD
tAftsye8Vj7Qca49h8Wh9iK0j7WB24kBwemgHLvbfbhpVPfBmDBQl34mNbiy
H5oDyh2HfjJw2lp8Q/HgK2yl8vHflalGu7rq9o9cAxC/30qplqtGg/G5KGPb
Qehy+ptifvmhheKD3pVDmFdnRf9RwYDMOP+K+eprWIloXlRTZsCuQEVuQmsE
/jN08vb2r57ewB4jn1EEvqiWd2uugnPBOd11mWPIHC2lr2ZV4snUjB2LMQ5P
ut4nNVo5ljf6CCxVM0EVotsF6JRi0Zezadp0Ag193HI6w0V4WtZiQ2+cQMlo
pspam0KYucsetlRnofbiKm/7fC7GuDq8LbJYsBRPkAoUykKitGCB51sWSkQX
nN/fuYfpuauLe7eyYbiBP9ZPKxEvTQzkRQzZkP5YYVTjEI0tvj/eNVDZUM2w
4NryKgQV7KutC4FsFD3x+xnS7YPKgGjdW+FssBQdKZKyZxCq9oeo9i8+J7HI
pxRiTxbXyAy4+LMho7ON1T7nS3jT65t3O7DR0xIVE7YcTFrsLz1Yr8nG9fzf
/2z1u02e0cKmEtez4V2f/5eFUCx5GPdgn9gwC50Jm/LLL8WTXVG869szWKgU
0BL4cDmRRCZkvOmyY8Hji5mGsMRd8mmWdm1BkIXyafGw8bxkkv6wu1W5egIh
5s5RegMpZDg3IuWB9QTWGNyf7Xt4jwSHDdnzfGaCZ9Ziud0+lfiz+Fq6NJjw
0RZl/9aZSr5JNLrAdxxJU/sUrgimEfvjV90i68ZwSSdC3XlbGhE+HlxbvTQK
t/iCeY/NaUTM4LhX1vIIRrQ82vpGU0n9Ldk+06/DKPtR+106KJUIJUsPfOEa
hmZgX/GatanEauFhcojIaxz9/mw+zPcema7IbsvZNoSKXRZcOsMpRJKH4/6v
+iBoC7lb65VSyG5/sYQLlgM4wV2SHXgjmSz6qXflBPwXbDEPpnvHXXIyiqG7
0+gVpJqVZuabk0iGy+sbrD/7YftmTEapJpH89eXI9SbxPiwkud4ZKksgu8eV
r3tv6kX3zLLNldJ44r1rdpYu2QOJNy559fQ48vCxF1mx78bl1sOPuh/HEqaU
kmhjXifcuez+6WXEkMusM7Skny9wyFk5s+/zHSIVd5PaLtqBZNlxbvmpSJL3
WueGp1Y7AmJ+6zq+RCO1FPo37/g2OPEfXg2RiSCFbeTIC56nmGm8KdB1KYww
ss1GPWNaEaX5d8fwqxBSqXI+JlKtBYq8R3Ycsw4mVe7GNWmzBC/FGIeTl28S
qd5wo42pj1A8c1bDvDSILJ2R31IS1Qj7r86ezz4EEln+tTTKvw9wMnSuLIzp
T46Exm53t6lFmOri02lpX1L5/fvBi79+raSer+abd414tKeLB8jTIWh8cdSG
6kVuGhw3DW+rwM2sLSe1qZ5EIZiycyypFA5i2TOsg+6E4pH51KGxCORx7BlH
7ktkq4j2spRJAZjhCh/iZF2ImvSG/DHbXFDXqw7XdTmRjGLzo/zZWbC1Vxa3
nXMgg9kKP6yPpOGwFN9OzpuzRLfY6seETzK8hcaemWTakqMbmVBRT8ReCbmD
Q/OWRO/C2tpeahx0JU0aW1osyICUikjmzzsw7H/P+zufGUnj3E/5Uh+BA8fY
J0JFjcjVG5H7H9uH4Ac16XzHNn2yFDdhcPRFEOp3fV4/JqpDrB+Z3FYvC8Ch
2pbMaiqImPX7+skub2jKnXQ2mjxAxkuaDCOueWHToMroaXE1MhbzZvxpqgci
DgwdnnmtQv4PvY0kYQ==
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7943791600260396`*^9, 3.794379166924174*^9}, 
   3.7943792608132668`*^9, {3.7943794944747314`*^9, 3.794379528899602*^9}, {
   3.7943799645358114`*^9, 3.7943799903033104`*^9}, 3.794380816197791*^9, 
   3.794384023889348*^9, 3.7944726554971294`*^9, 3.7945539695754924`*^9, 
   3.7946450896140347`*^9, 3.794802840893607*^9, 3.7948371429616623`*^9, 
   3.7948447267375927`*^9, 3.794853172662737*^9, 3.7948841934771404`*^9, 
   3.7948874522393684`*^9, 3.794894860670879*^9, 3.7948970405498543`*^9, 
   3.794901252827532*^9, 3.7949189350902643`*^9, 3.794920906019929*^9, 
   3.794975557597262*^9, 3.7949776550235367`*^9, 3.7949857560436177`*^9, 
   3.7950125531448936`*^9, 3.795059723577181*^9, 3.7951572085895133`*^9, 
   3.7953198308494473`*^9, 3.7953199673165584`*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"7b8cc58d-cc59-4b45-9807-fc78fb35c21f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"sols", "[", "t", "]"}], ",", 
     RowBox[{"soli", "[", "t", "]"}], ",", 
     RowBox[{"solr", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.01"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red", ",", "Green"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7942357222488227`*^9, 3.79423573626546*^9}, {
  3.794379970842098*^9, 3.7943799861917686`*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"5af89866-e408-4dd9-9cc7-33062fb05274"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Hc8Vo8XB3BkhkJCkaxkZfRF9jn2fsx4kOzskZFdUpGRKElKKAkNW1ay
QkuhUqEQkvVIZER+9/fXfb1f93Pvuffcc4+ga6ClBw0VFdUmNRXV/49Clzfv
3uZv1VAp+GIgvUWBJ4zi+/298iBiYHm7JOHWiMeFYl5lYLa+0XaQcKfsSU96
r2dwX7+HTZBwd2qfwbLnW1gp0hLeRfiFyrn6Wc9vcIM2/e/SPwo8UNt1WqFs
BAIvr/1dIPxr0D0vtHQUIhVfzM8SPr2XcWwx/zsc+JzzYJzw9eskT8qlH7AZ
m3y6n/DLjMGTU54UKIs9bPmY8MXsrBdX5RZg2TnEvYSwlBfY/1e2AEe8JzwK
CQczZEQHl/4C4YUMhRzC/3Tlmxfyf8PAzTHqC4R52qO05y6tQLaMMp8t4cYr
wu9TmVfB4FY/vQXh466v3aWSVsF8tnnIiHAhNX+C7/k18GiONtQgLIet3T+j
/kLimOJ+EcJGTxlIk55bkL6bIXZmkzi/5brMtbAFc+6Hyd8Jpwo49QirUeFu
Xs/dg4RDXRvCrDuocKerjfxLwjqTQR0176nxpL7MWhHhsblhl4jlbbhTR0XR
nvDHtJSadGVa7H8av2FG+KWMMlNJLC32asjl6hKuPJlZ/pmODkve3veVJXx2
2WhLhYseN4dMpWkJC2w+ubWpyIjWh3d23d2gAOdtj4Xd0Yz4bSuMkkWYEXbp
SD9jRIOS4qkkwpS4gJnj+kzo3frZKJBwM+0BlRbb7chosa3pCGFHlisD8REs
KPcgtLj5LwXMH4HkzSYWFNuZnPiYsA5p7nQVFSsiTaDkbcJS6Qai4xdZcTA7
pjmG8MaurVDdGzvwdK/iuiLhN6yKTLSObBij60u5vU6BPmOO7J4YNlypTmdM
JfwpaV70xi021NZnGo0gPE53X0d6iA1DfrW8tiC8sckdR3ZgR53m3lNUhCXm
1/48tONAk4okJfM1CshKfbwQHsmBHaerB5QIK/pUcmrd4MAXF8dFBQlrTfoc
HvjEgW6Djr0LqxSw+zroT03ehb2F7cqphC/2PB0/asOJfq8D9SpXKJDGkhMi
cIoTb4dRO14jnGl0imbmGid+y49giyCc1yktEPeBE+teMRmqEa5tznMotd6N
3ddsh5/9ocDE47N9/yy50P/m92OVyxSYnnV0eRHMhZbx67lphBckVBauXuHC
cMez7j6EN4oWWcX7uDBawShagDBnnpuhlQU3Cpk9KUhYIp7/sm7LfTMedGl8
ekz5NwXijKpL+gJ4MCxeePsOws10wlc3L/FgOLO66NgiBVRiqE5YveZBk42M
OxcJ/+fdyLxlsAddL/4K6flFARFtOVsbrb346tZqg+oCBVz/5eFZl72YwS/l
Tk84v36HxMO4vago7+/wjkIBPtnZDepne3H/ox5xV8K7992/80iVF6/0s/yL
macA/QrfPK0CH65+99C5NEvMR2XKgIw1H8q0DNwwJhzvv95iH8KHthFynEyE
/30fuFpewYd3vC38z85QYOXdFeVj0vvQjyrnuOc0BaZKGS9UHeRHg3ySPd0U
BURPhAd81eNHpomwlOofFHAXnLRlOsGPIhouj10Jj1xvl3Aq5Mdle2xqnKTA
5/On320X3I/AqHnTeYICHjLrrHKsAuhge3df8BgFTAYT7/HwCyDTc2sVesLy
ibvVqWQE8MOOi2+zRylA+03W7625AGrEPTCtH6HAnTTPl/6ZApg75EX14ysF
vs29TyjlFURVmljzhS/Evrzhyn9FShAdVh4aexN+rLtQE6kuiPFHDhwf+Uzs
v1zmCQMnQaQaWH7Y/Ynop6mW9o87guimayR99iMxjw/LtoQlhPBd6OeslF4K
IFn9OrOqEJ57vb1y7B0FxGhfSf82FkLNN/5+RwivOkw6tvkLocX3lZzPPRTI
Yt7X5FwhhJu7ToxvvaJAv09yRK6SMPZEqFm+fk6BBi4etguGwpgCphJrHcT7
tN2772cvjF+YGViFCQfvbf2oGiOMR1nuPvdvowDbyxX5L8+E8f2OhhfDzRQw
Fff4xaUvgh+X6k35n1BgPSWscdhGBLecHmqK1VKgeP7ChcITIvjAn4dapobo
X3XRnsMJIlijOFtzuIqorzGlafpcBF9Ne7ewlxHf09r3yjntAxgcvC1PpIgC
72ujjxlZHcBaWT72P4XEftuTKsrudgAVxPSvt9+lwNDXhw234w/gCboXJZYF
FLjqPT9W33oABYzk/OEWBajOnPxvAUQxo7knRz+D6P/o2c1aM1FU/Hl9uf8y
BRx0rnTFOoniEvPjBIc04n9lqnJgPiOKJhPO24+lUMAvc+mcaLMoXsjW6BG4
QMxPSfj7Y2oHcSDzwXppOAUSWC7eFjY5iPc43u/4HkbMS2C217TDQeSICift
DqVAunz9Rnj0QfSWvkntFUQBvWfrIlcbDiLZ0Ji9w4vY3+9jw14oiWE1z8o9
XTLRrwvurmOGYgj/rYlNHaXAbUVjs7/2Yog/+ezjrSiQnM0jfihWDItWE81y
SRRwO1Y1lN4qhgLHRHR8dIj9MD6lTTYSx2fnbDT0pCmw/dpb2ZMO4si3Ynnv
qCTRD73afcl+4vgiSbDfXowCs/fPrTSmiWPXDbplXSEKPPflf7C/XxxBPTfg
5m4KnPptxfHDQQKvnE/iF1mfB79Cla0tPwlcOTync+bPPLgeFZzlOS2Bge38
lDeL80B6Mv/cKF8CX7wyFNedmYeD0UmRj8clMEnL6lHW4Dx8onk2EuYviSwB
d4sK6uehp+rem7TTkijzsfG8YM08dLinNty/LIkZUXxqV8rnoaLTLvNzhSRK
85RG696fh+TkJX31P5Low5AvMH91HlQ5JMpoz0hhXsPmOX4f4n7U9i/eXCZ8
26m8zH0enH8lfc/Kl8LzDZ1WMk7zcP7dT27xNik8c0NGfc2KyKeVxJnSHcLJ
2BioVCPyzOKWWSmHsIlmjiZ1+zwsrpP9nG4dQlGBZ39ntxHXT19MEHt0CCPC
ahSVN+eg5MVUQ0PPIVxJrc+6QpmDxcRi4W/s0jjsIrKq1T8H52nFlg9mS+OZ
vOxJ76w54Fqy3fmrWBpbFIc5PNLmoPh7onhDvTRy+SXSGiTMwZu2H44mg9L4
5ue4VUcYkT97vzOIXwY/uX5xT7ci6m2KZtcXyuB122tsOtvnQG3OpjK+RgbX
1uLq8qnmoGco4bVxpwxmlDhfHv0zC4uNk1Rff8jg3yy/Hzu+zwK/er/82d2y
+FLnNxdHwyx4/r2Se48sizKRceFJrrOQSZptj3SWxcWsFZMPtrPQUqA7beol
i82/9y3Qmc4Cj8Gq4p9wWXw1qfqL88gsdGc6vtO7Lot/7P7YTjDNgri02Lap
D7L43b1nUKp0BmzOnhVvGpZFLaP1uMrcGYh//8UsfUIW9dx2nNubMQNfoi7d
UlqWxctSX3dlhM9ActeiQhKnHN7amVjEqT0DM85PvSSs5FBDQMHP4f008FRz
Xf5nL4cdYUUHV59Pgw5DUE2fqxzWy74ICHsyDbceCdFEB8th0uFAMnvONJis
J958lSGHnD+s7r52nIZHVy17/N7JoU+tXaD2t58Q2PnjvzLTw7hu+SiC9eUU
tOBDXymbw3iK9qoib+0UsDUG3S05fhiDE97XbbszBeVlaxyFgYfxqgRLpEfk
FCxmMy9mZxzGT9I39waKTsEpX5ny+A+HkVpia6wl8gfEsIVL2Tj+h52VpL0M
DJOQbE9/YNNPHouCr5116h0DDVmWPz9D5dGL/8Fho7ox+EXH0fUxRh55Rjqv
SuSNAblin3d5qjzynQoI7fEbgwOMCo/cHsrjyRtOARUMY9BS46bwckYeDad2
yhxTG4U/bK26130UsOmpUAWf0TconezkOh+sgOnX7alPcn8Dx6bXP4KiFLCA
O3ajb/wrdHh+SjJKVsD5FAP2jjNfIaOZ8mazRAGHm4IuhNcOg5Qfv437TwWk
PrXbglZsCNy6ok/IeSlizmDvsLLQZ3BXEyX9CVTERxxRjixLn+BExTuFxnBF
9L7s3cnQ+Qm8bh6g001UxNIYavEYn08QEPj2LrlIEaWMTkv41wxAFLfw6Jlx
RZy4I5m/ZPURrni+dOhxPoKPdG6V8z/ph8yhUO2rXkfQTFVbjv9yP1yz2C9J
DjqC+83rR4969kO2auj66JkjKF799HEATz/c3sl/Y/n2Eay70E9tEtsHpU9O
fuQbPoIdZJGu7xa90Mqwx8LXTglzYVQ8ldQDk3eljT67KKF7YglnLkMPsKCO
tr6PEm7LK6BWbn0D5IhABeFoJax1EddmV3wDlKnnewZvKeHXy9tsVEVfw76X
wWNGI0pIf2cXyAq8BK0TFwfrppRw3agovmf0BXjR3H4v+ksJ14RG9BfvvoBq
lRedNDTKmJpDiegWfwHGD/Y/aBBWxtWc5dIC1W6ITH0dIuGpjBzto4cvhHfC
bbExv+xAZeTZ1+SqotkJHR0rHvQRyljObd3uy9wJbJtC5LGLyljE73YUC57D
ff9ItZxSZaTU+4bk9nXAB5Io3fZ5ZYz9ZrAj0bgd5Njjsn6GqiD33oKurvQW
aGAcEOuKUcGDJn0+2r4toEUl3Vh4XgWtdhof4NJrAWvK4DenTBWc1HHNjll7
BqfeHBH/WKWC+WUxJTuGmqEpidLYtqiC8+fOn//8rAl0z+qR8tdVsE38Uuue
M03QE5E7EkujiqfuX2z+rdEE3zyN6ZQ5VHHmTOhkYEsj0OjdJ5XJqeLkgP2e
Ey8bwIDGafRmkCoGqEnWKa/VQe9aTUhkhCoWtVpKx7fWgf0vFnrbOFWMOfhq
xDy5DnxHGiQ40lVxIXfYJ2ZfHaQ1c4VeLFPFoM5lkVnDJ/A+qoc+bF4VlYEH
ZBpqwPm3uhTJTw2rVu9ulC1UAisH1bv3oWoYzH9RTaajEhpk20IcYtXwQ8W/
vSLZlcAZoNfolaaGrOyNL701K6F7imR0rpzIR/2iaN2oANmvTl51S2qY9sRB
SdqxHIY3BFlgUw3/JDwmRR8ph2Te8bLndOrYN3quSZKjHMbJXit9XOpoqzjG
5ZFRBtn9QQlzSuqYHMCYHhH6GKhenC0UilVH2p3Kzc+PPYRHP7QNSi6oY0Di
1uwQ30Owp6eflUlTx6i4Q7U3hx9AtXbyf+p56kjXcV+SyeUBeDVfabNtVcdP
6n7SIYGl8K7q7kgqnQYKDvJcpSkphoLbz/lWLmkghTdNZ+/5e3DrmNTA0SwN
FOARFP5ocw+y917NqL6tgZK83EgrcQ/Sspzpg8s0ULmUT6eytxCi0v5SZt9p
IIuk9/Rh0UKwPC3XPrYLMMjcsKZr7A6YqmXHavIBLv51VOJtugMG6/+O5IsA
5i6rUHqu3QGNU68fOioABrd8rrI0ugOSAZ5Zn2wAj0gWf3n8pABoj+d699wA
zN6eQPvzTj5s8dKKHLoD+JG1Ofnl2XxY/+zzNaUUUDP68M5N53xYOKpkZdgI
yC1hl2ohkA9Dpv1qHUOAjXq123R08+DLbVrG4Z2IaXkTJU4+uVCVpjLYZ4kY
Zr8r7dKeHHC9uYOuwQaRVsYne2TmBnAUj0kX2CNe4/yjmd18A4Jak+MDXYnz
3y1b5TxugNTSF3GWYERl9ZLrv2uzodAuOkI3A3HQZ8fAd9/rYHXC7I7UNcTV
Q8UsHDrXgSZE+PWuG4hsKfsPZ/FdB+fUV/vH8hG7Tqfq5/ZkAd8z3q7T5YjJ
QyIRGYpZkCnStLvuLaLz7+ger93XQFsuHfL6ESGEwfPmYiYsqrt7JwwgXtho
+8L9LhPMbVmeWn9DHIZc0kxKJrAkH3P/NY/49MDMtyn6TDhP2aiU2KGJQl+m
91UxXYXQBnXzXBNNPJnKRFHTyIAa+y6az+aaeHb3xSwZwQz4s25ew3lUEwMV
C/JdaTMgUtV9b6qjJiqpJuolvkqH003J41EBmjguc7y57lg6JDYPRJDTNTEC
JW2cOS9D93EXycxMTZSOrqNrGk2D7VvTw2+zNbGaZTD0QlkapMI/Lf0CTSwe
n7RwNEmD9BYRVsVKTbRWNtDflnIJctpOFux6r4mVUcxP1HhTYdD1r5XZJ03U
2De9d2U+Bfi2XaBPGSLqK5njzvYUuK2d7UszoYmPdlSbHfVLgbsdzQq/ljXR
O2eMSqA9GR52Mr/s4dbCMwLrbLNxSfDs5b3FJActTI3fkhk+kgiVPO9Oxjpp
YddNjcRN7kQoPLG+EOSmhdwRHst2qwmQTGNGsfXVQmstMZHn9QlgrbI6cyBa
C91uVEraQgJMlxhNtOZo4S+Z4+Mb1heAM4kysPZZCx/9/plPe/8c0A/ssZ0b
1sLZubCTzZfOwZqIzseRUS1coRneVRR6Dr62ZL/v+qmFIbr6uKl1DkpWNXuv
rWkh/d2Boy2j8aDhlflSbo82Vp2yTdE6GA/e+spPvcnaOPhri/bT2ziYF9vz
vOKYNjoLc+XM1MdB8Pa112vO2qhUX3FcrDAOYt7UDSV5a2Ndsv8Cb2QcpFsp
bZREaWPBrvspIyJxUOt0RHX6ljZ6Bb9a2M9wBmgiFOp9RrXx2NHAbQO1MZBo
t7u1ckIbH6X3/KXKjAEW1eXu9Z/aWERvyu99MgZ2/6v+lLyojUJ5HoW/pGJA
7Lz8auk2HdRLe1/6sSgazNL/OzJzQAcLlBacku5Fwa1iuRpfHx30+aJiRH4V
Ad2f3brzAnTQDWgvjZZFwNL2rMH+YB0sNGedyM6MAGP/dWq1aB20s70Rln48
Atbl2kksqTr4jK0m9sZSONg1Wk89fKSDe3YMWXaKhQNXTzjv/IIORqeSrQ+X
hYHWVom00LIOXhAsj/qUHQYBskOaNms6KOSjkH4nPgw6r6BXM7Uu3v31NbjA
JgzCbJlq0jh0Me2LXqwWVRi8H8khycjr4tVlGHxvFwoZv5+eDQrXRU2TxITT
IiEQ0JfucixaF1GA1ef4rhAwqXDTNDiji0Ev5kdsaEKAPpCJWiBRF19N8HxI
HwmGmGnruLdZRD2S2Zzw7WA4MTpzWrpWFy+VsHTn7wsGtbd7YmaXdHGNIthP
kToJex7POnxa1cUK9fafV/lPwp/UZ6odG7poEBTRbsx2EiqMPP7epNVDji0h
2T+/g0C0szzKmFMPSZmb/+SagoD9qX5k6X96mPvH/Zm4eRBMload8grWw8rA
bWP3tgeCzb5/X4tP6eFp7ZwVx4UAeH45Qf9nlB6GBka1q34MgMLQ6zw+5/Rw
RqfM0fNOALhq1Df4Zuqhy16u+lNqAfC1d+NfQK0eVnTzFKuF+8OH1XOJYet6
2NWn8HaIzg90fFkWav7pIevpK9X9FF+oHs4k/6HRx52l7pSpz75wpe2eeDiz
Pt6yz0j0f+wL5qldryL49DF2TUjuM9kXXu9nZovR0Ef1+Y5rrFU+0KF3JTs+
Xh9P3iMV1kV7w8SJxjdRCfooy2aLZB9voE8cpwlJ1sfMhFJzVjtvMOhS9He7
oo/lvEuaTxS94bX+oKbOHX3kvXQsg/63F/QbiMzQtelj+tbBxrBALxgzqlVP
ojbA4IDiz+9OecI232/BZ+kMMJWvVPi7pyeIpDAWRzIZ4GWSuAKDnSeceGXP
4cNugI4tL/C8qidMG29NGgkaoK93zRqJ2hMWTQzSWTQNsKdfT3Jn+gmgNvsy
djnOAAXarhldr/eA7uajwqHnDfAM++uexYcekC7d60a+aIBMAq+uHMv3AIEd
3eMC6cT9hj0u2id6AL6pmazIM8DK1K9zm0c9IM44Y7q/2QAHc0Za3i27A5WB
wSL3pgE+TZLQPQDu0P2k/fAGlSH22jrXCcu7Q/pBCBmhNcT2TEdxaXF3EGBQ
XCpmMcTq4ez2E7vcATuF/yjzGeKiWgy7x5QbxOlsrTmoGiJzg9bHxEw3oNKs
pc6PNEQv867KtSVXsNf58fJTrCEuLGUyJk27QrU+TyZ7vCH6Xr9sKjLiCl6k
KNFzyYZ4rdbN9fQrV+h10DA+cdMQWePmx5vvuMKdU52ZUk8N8YxlV52rlSvo
PPx4sJ7KCG8mMD/taHKB22UMv37RGiFvQlFFZZULrFYqNUgwGSFbf3RpaakL
PKzPMbnFboRnBVaD67JdYHfX8ZNnhIzwLrfkpGGYC0yOTjbo6hihyRTXJSVZ
F7jIvWLal2iElQm7VaYeOkNmd/f3thQjlDsn4HD+njPkReZEVl02wm93Gb8c
vO0MtYPq9zKvGyHTPXx7/rIzTOSd37C5b4Q+c9TF14KdQUuM48FgpxEyv3HI
ZlZxhg2lQ4wTdMa4Y31Dc88tJ2Cc/pf7gckYU+9LDTNcdoJdN9/918lqjDm9
vOzb4p1AYjPE6f5uY/yq+fkfv5cT2LU21HofMMYahtj9M/JOUGto4DGvY4wH
mVzed787DkH2bm0r54yxhGlaHtmPw4686RG1i8Y4xH2q6THtcXj4/eTW2VRj
bLdY55ZYdYQffnFqLNeI+rsdmfS/OcLxM7m1AkXG+PZU8Xaex45gUjhQatht
jIyBqrKMJEcQmze+epPFBKf2+xlVZB2D0bPE0FwzQd3mtSU0cABRrh1pQTdM
cJsP27E8DQfwKf3xpCDXBOWdEnvpFRxgqS+HmbbIBIVm9esWBB2AUYS6qrvW
BMflOnVkNuxBuvMNteUnE2RgK/Awq7SHqO2eee68pujNvPl7UMQeOK/e+JJU
YIrp0+K8EoJ2sP3Drt7ge6YobVNZR7/XDqi407ocSkxx3+MA058cdjCXE199
qMIUT2V46bbQ2kHnHd+03hZTbJK8/6Z6igwRlepae0ZMsXzwjFxVBRmGe0dL
ivlJqHlF4NOQPhmK2CQiu26SMHJ55kD5OVuQnrRbpc0nIe+RHHuXWFt40pgU
rlVIwsNPaxl5wm2h+8TPsKcPSagcslV/zccWppuKg6ueknD6klxPr4UtHPI+
6Jf3jYQsdWLF+oK2UN0q4hQubIZj5ZuWNB020Bq8X/fgAzO0K+tnu8ttA+vL
lHS+MjO8yKY2+o3DBuQjW4bYq8xw4i6ds8AOGyg+4xK60WCGDdkVdg9pbSA9
9e7d3pdmuK95eIDy6yg4Fx2kiZk2Q7Y9H0yE3hyFrdnrTlOc5mjMkL2yP+Eo
3BbI51O3Nkf/QGmdD9RHYUeyXPchG3Nk5S0WXNu0hjO/20L4yebYV3Gyd/+6
NTh3TrzccjDH1KdMeWGL1iDkJxnZ5maOP7hGq7S+W0PRk9oP+iHmeH7vq3fO
z63hMelNmuUVc/xZdlotN8UansasU3m9M8fY4QjmnP3W8KdsciG+zxzLVES/
7OWzBtnvfSO5782xY5jX9jaPNRQaPmjp/2SO537+Z/WI3RqSuY7Fwag5ZrW5
cs9sswab8qdbXIvmKPaBZ/r7lBVQvsf9e77LAn+b9KY0VluBoDHDhrCtBWoM
PXdMsrIC+Q/afXvtLHDnxgP1j+ZWoOcUV8zuYIECIq82REhW4BOyZr113AK5
BHR3dRtYQfXNmUdfTlggzRveaBENIj/71injlAVaiy3RKYgT+UvZ7f+uWWCI
ueWFB1RE/q14yuf3Fhjb/pbjTrUlpAu33lv/aIFlJ478J1lpCb7h5Bbezxb4
4Fi+QG2ZJQjtT1x2HLZAKVrW472llnA5YNxpbMICFemb1PcVWIIPa578zB8L
ZPvb4MKUZgkCxpxfN3gs8cCbS53i3paQ2vlPVsDREiXU2WxAxBKuhvz0cR6y
xJfnX8nMVlpAzG7+nUJ2VhhEK2kYbW0BJeJ0L0NHrJBvaoIzY9Mc6Jeo97Qe
t8azae1c9+rM4b5sxenbP6zRRnxDgCPSHMRdS0mb/kdROwOH9+qYw6BhfeXR
maNYzqjZ93aPOfTdjToEITaY7D2iwjRhBqtVFmpCizYo+aSJRqLIDLbqgmsS
AmxRqFPq7FyQGRjL6unGLNti47i0/BEwgy5HGW/fEDKWHPjubMptBhxuXo25
YWS8Vs40f5/LDI57FbC+CydjV7rvBA3hP8G7KuVjyJiIw+wNnGYgcnFlffM8
GRWnHewPcZhBXOWz1PQsMiq9Hgs6yGoGKgzm5TX1ZBRfX5v13GYGCSxJNFON
ZBSRv6r9lsYMetnbrPc2k/EB6G8oEvbik1873UbG6Ya/VxiozeC6HI+WwSsy
fuuJJD36R4Ilh5H+L0NkvNE32bF9nQToskeU9RsZPY9U8UeskSDlhGUEjJJx
XDL548QqCYROdvAVTpAxvMrKqW2FBBYJxR7+82RsfKHUc2aZBLdSRp/kLZDx
uZI6+8ISCabS927vWyTjZS6dcmfCcTdTHyuukHGR9Si19m8SvM5/TuW9RkbS
/uHK6kUScBf9s7z5l4xLaW7PRAm7Pjhy780m0S/yfdEbv0jwuDxoZWuLjMUR
nlPMhP8HRtDgDg==
       "]]},
     Annotation[#, "Charting`Private`Tag$47628#1"]& ], 
    TagBox[
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3k01d0XxpEp8b4lCSHz3EWZ7jXsnSlkLlwhQmaZZxWSKalQyFxEZEgo
FIlUQr2FCuF+k1DJkJQMP7+/zvqss86wn72e56wj7OxneZKBjo7Ok56O7v+j
yKW1mwWC7VoqUg+9J1T44D6r9F5fj0K4Pyc+2HeJD9rDq0ukPGrg74PbVb3T
fNClEODO7NEGykO8p0KL98Dz1DcGS+6vgG3f3+DIvQLwgnKu6Zv7GBQtN2kZ
7hOCSo2dZ5RrxoGR9P2+oKsQzA+7FgZX0OCPVlpjda4QnOFjJRaKPkHGHK/u
OrswZGWZuv+4+AU6ZIRCLvwWhu4rwwFT7j/ggBQ/vfUvUUjKvvYiQ3EOPGvE
T38ni4GcBxw7UDMHq1U+4d5nxCCQ5UpUYMU87HZvfSnOJg7rekqtc0WLsODJ
4TclJwE8HZE63y8uQ+bs5bNWN6SgJV20P3XbbyjRY7TrWJKC4849rnLJv8Fd
c3LY2EgaSugFE7zj/4Dv0GH59l/SoIjtz6cj/4LwsV9PMxxkwegRi+mk+wa4
ilpxariRQHHDeYl7bgMY0lpezwyQIFXIsU9Ugw7Pjp4LVDokD8HOzSFHO+nw
9+I2TpvdCqA76d/Z0E+PPRj43zSrIhDfP54IX9qCgw/iXHD3ARhMu9BwmcyI
N6Qnwh0cDkC3PHnr7dOMmNV31iG65ADUBWTWfmBiwnekmwu9ykoQu2S0QeFm
RpWg41/FTiqD0Nr9vDUVVmwU1uSVXFEFroKTc7uiWHFE1nunsqUasMJOXVIb
K+5nO1+bUKkGP2JOfT1+aCvqunNeZ3YmQyujOOWxDRsaKLpYL49SwIE9/V1c
ODsOk/2/iAhogXkVyOY+ZMfLt/fSNV3QAl3T72fu0XHgVqPGiYm/WiB32UBi
IokDz6/3PN9JA1jduRGsl/MPtmsoWNwfQ+jlUNnK6LAd1QQMdy1OacObw5zZ
fdHbce1Acm6btA68T56VyMnbjilbgt56euvABFOZLmlkOzqFNpg6z+vA6tru
GKrdDhw5Ym6myqoHMrN/ft2x5cQg+dorbq6HQEFu8HxYBCdWnd5KulB/CFS8
6ri0czhRJ5Bttp3JALQnvfa/e8+JRUnOvkGVBmA7OuxLT92Jkc7UbENGI0jq
ezRhZc2FQ3TvZHx/GEMa+/UgoVAu1Js13JdsaQKZRqEMX69y4UtW5qHfjSZQ
2EUSihngwtXob3ET50yhsbXQruLoLnSpp4ge2G0On6tj36xbcuMbJwkn/s8W
MPPN4cSLQG6c5+W3dhKxhDkZylxGOjeyu5ibhzpZwuqtBQ7pN9y4uJ8jS3TM
ErgKXQyPWOzGD7e3WL2ZPALal/Qel5nxoGWzztiGsDXEGNXffnOKBxlaao+B
jzW0MolmrF3kwVu9/7wIu28NlGg6tyM9PCjzVU2CZm4DBzxbtm0Y8OKYTUzY
0iUqiOko2lhr8+EqaXmvsLYdOK8XYuwJPtzzZfVZcr4dFDX9I3Mnhg+5dl40
El2xA36Fb6v0bXx4I00saqXRHnYJlN2oUt+DUancvfVwHJiX+WcZlfmxe39+
ac5zJ9Ctu/BO/ig/Ut2yf4zQnYA435XHx4L4ccYlaXSYfALWP73LqL3Lj5Sv
WZG7qk/A8ut0sj1JAL327nBrLXSGqQrW8/ckBZHkP6PjWOEKEm5hp0b1BVGo
ZJXv+g9XcBWetNnqJog1K09tHiqfhPGsDhnHEkG03nLb7knnSfgQf+Y1m/Be
tLxVSic26wYn5Vc4FDmEMJTwbmQP8ATj4cRSHkEhNHIZZQjv9QSlxF2adPJC
eJDXOGS/rBcwjin4vDIXwqeSZj5lM15wI8292zdTCF999mXkivSBse/9CRV7
hDGt2GNAfswPunKcBdPlhFHd2ZHfS9ofqvXmGiI0hZHlVrsvh6s/nMnf9tnA
URj9taqd3w77A7+Jts6XG8J4iIVMqR0IANs7NRuiMiKYnSutabYUBEjVzNqm
LoLVe26mF2oGgxTjS9LiYRFUL8s3/5kQDL/tJh2e+IrgiwwBs2b+ELi2TeCh
010RzCs/YyVqFQpvvVLC89VEsa+E/b/21XBo5ubZft5QFP/xft4vZhMBN56U
lvkcE0XWBe/il3UREMjXPqgeLYru36/VLvtGwvbuZaWhNlEcN2hwNfsZBSbS
J+e5D4kha7Nsu6zeWVi5ENLy0VoMA3O5NkKqz0L57PnzJW5iKDVh7HGJPQYY
62/x7k8Qw7dDb1PNImKgWWvqoMlTMVyzY7f1s4sFiaPe6ed0xLF58MeMlu45
6G+Msjc6Io4MX9nMl+LPQSxvqsQOF3EcqNJhius6ByOjd5oL4sTRV6VyWNo4
HjI8Z4mmdnEc35Wfs8X5PNCdDTgwBxKoRPoS6dycCNW02LVGMwm0vey59d3W
JLDTTX922lECy4z1t1gcS4LGrffstp2VQHfi9C6X9STwyfx5TqJVAiOmZpud
jqTAh9th/fYakmgRNnmo+8BFSGBPKhA1lkRf09i3ylcvgpJftseMnSS6vK61
GVu+CJeVmlbDoiSxR+Ln5OrjNNBvWxHLaJbEzn2pKt6Kl6Gu/3TICzUp/Mq8
56HlzytQft7VmTCUQiJ6j+RvpXQoUDls9veYFGa/kRCOCU2HlGwe6X2npRBv
W1jqrqaDi/29kcvtUtj5rih7iTMTuCamdKhG0ojdpqQWv2vAdvWVQoCdNN40
Cx9heHwN6PQbBVJ8pPEn2+hJpx1Z8K3s3HJLmjSe+fpn3vt+Fjz1Fqzc+1Ya
l3oadPftyIHQxSOcX+xk8Njw+djc9VzwKaFsbPjI4GzJcCCdcx44Wwl/4zkj
g9+K4z/f78oD0/uzT42KZDDvwWSafGY+SEYlR1RPyODumaS6ZiiE9wxt4yG+
sjiofpwp/lQx9N0r7U07I4vku36VfZXF0Oma2lx2SRbrma6zT04Xw90u28wP
d2WRmZHrTrzHDUhJ+XlI85csFh7P5nzqdxPUOWVqGM/KofHfibXQ8lLooz/2
oveSHBZEjRtZLpSC03zyp2tFcnjtU3sGr+YtiH89vVv6iRyKnKjYHjpwC/rS
bseYMO1DeH/3650d5eC0Tdry2oV9uNX5mpR9cwUsrFB9HPP24Wen+hFZrkqI
n0lKkKrah6v7z5vt8KuE2y+mmpv79mHIL/rTUlJ3YCGxXHRsBwlJITVmA2VV
EM8otSSZTULbAmHtbr9a4P5p8+98OQl1s7klmW/VQvmnROnmJhLWKx6X/jRS
C71PvjgYD5PQXDZCPMH4LnDHlnX5C8rjw/REm6wDdXB7TSK7qUQe5wdOLQqK
1IPGd+u6uAZ5fNKh4s/lUg99Iwk9h7vk8YP9lGV7ST0stEzSjX6RxzsMSjn6
Mg0gqPlWKXaXAvoYebGJaTWC+9/0/FKqAq52N7KZpjyATNNvHRFOCugVdMdA
5M0DeFysN2PioYBOCy0Py/iagMfgt8qvMAVkiK5V7K5qgueZDq/1sxQw0eZs
dMJIM0iTpLZMDSgg1zHunBz7R2AdGyv98KMCkqStF6drHkFc/5DZ5c8KaFgr
n/N7SysMRV7MU1tSQP998b5Hqlsh5dmCcjKXIkre+2/zSX0MX50eecgcUcT6
J3L0O0Lbgaee+9L6sc15z0qB3tJ20GXxb3jjrIgPfmdofRtoh7wqEYaoQEW8
Y6vdd0T1CRivJOa+vKKIZa/8p1+sP4GqDMs+n9eKWFCvv4ta1Al+XV8O1Jjs
R0GBdoNt+57DY7zjLWe9H7nUTV7sPvUctrf437x9fD+mMLOUXal5DrU1fzhL
/Paj2YxhY/eBF7CQvW0h+8p+vMaxJKJ1sBtCveVr4wb2Y2FfuZCdXw9Ebw+T
s3Y4gOPLVvd5k15DyjFm8TUfJQyu+Wb1Km4AtBTYf00HK2G2cNZ8e/kAzDNx
PhuMVsJytm919/oGgHpXwLM2VQlfJPIkXeYbBHFW5SqXO0rIjrIUzrpBeNzg
otz9VQkLNV/+Nhx7B7+2t+tleSlj+WC5nLLsEFRMdnHHByrj+khmALPZEDg8
7PniH6mMhpOsrxoCh6DT/X2yUYoy6rVGsFQ2DcGV1h+9a7eVUZNv21C/3jDI
+Qhau04rI/3NpBGq9Qi4PItyU/RQwQe1G2htOQquGhKmv/xUUOio9mqZ3yi4
3X2t3BKmgo49e3Iep46CR644k16iCqqa1wnqdo3CKb9XN6m3VFDK/8fieZUx
iNwtSjs7oYIen07SupjGITq197nuNxXcu7cvOJlzHE7Th9du/amCxmEx07J7
xyHma8/ZjC2qWFmX1vOv2jgktIUKlomoYkXB72lTj3FId++263NSxbaAWfdL
T8YhcyRYJ8NDFe0m6qqgdxyuWuyVpfqr4nBX4K/ed+OQrR68QjurisU/qKfi
v41Dwb+COUsFm+vtvzJRuWhQFP88pvmWKm4bvh+wLECD4j+BHmerVfHEvHtu
sCQNSj49U93aqopPdwows1JoUHE/YJD/oyp+0FkxzXCgwR05/lbahCo+O9lz
VciNBlXFXaW3vqmiqOmp+xdO0aD2wp4QhVVVrBHSq/17hgaNjk936u5Rw3fp
atE6BTRoZ+G18LZVQy8zruGzgzSYvEky+nBCDU10xZajPtKAHXV1Dnmp4cfc
BWmLCRpQw/2URaPUMHOxxTZxngY/pp7yDuepYbjdhIckGwFc54c5DUvV8Feb
QdTcvwRQhOe33a9SQ49Ijy8ZuwhIsOVfT29Vwy3UxWAvIQIEugMJo3E1tItY
zbVTIkDbLWn4wZQaVknGZq6qEeDBUNAvMa+GxUHXfSM0CainvOhiYCCjMf3Z
yyz6BAwNjrb5s5Fxw7bzIK8RAXRBPx+McpIxUqu5hMWUgMOVeyubRcm4J4nT
K8qKAP9DyiVScmT0jF05SG9LwLVPRvnXlMgo7e3S6GpPALEn9FKgHhlN1Doc
nzoTwPrgQtK4CRmHa4Ct4yQBpKPFsabWZJRDA41CDwIiUnuCZNzJ+FTmoORP
XwIKpAifbD8ycoarHvf1J6Czc/kkczgZq5+Y7eoKJGDGicMxOIaMYadoF9aD
Cdi+JkIlkjbrGdOh3x1GgEqOmoX5FTJujeir/zeCAHtlU6PWHDKmFb7/PBVJ
QJlvhMb1CjKuc71+pHmGgJ6tl5RZ75FRXY/+c9NZAhZKS0ihLWQcNDO/sDuW
AB7tZsmJDjI+T0tcsI4jQGv0lZBlDxmZ7QPsw88R4Br5mfdxPxmTd7xni44n
IIX7LyfpIxkNtiaA83kCauu2s+d9JiM5X09DNoGAAVMJJrZZMh6VpGm/2+SV
GfX1sF9kvEIvetUtkQChRIvlz+tkdHRQDvmwyfqi7nNHWCh4mvhXQiGJAJ+2
6On2fynIq7ZvxmuT0+3SCXkeCtY/o2dM2eQHy2XD+UIUfLlC33hxk0czHvVv
k6bgKOWGdugmb1F42xuhSEGfeetvOpss1TPV9YVMwcXEzKVfm+eZeqy3WWlT
8Kf7q6JLmxzMyNXUYURBslamwj+bfL1Iuk7xCAWTFzmmAjfv/1gDKgvtKLhl
+p+trZv1Tr4/WsLhSkEjL86BH5t6sId45Uf5UJCuI+Mi6yYr7oi5Nh1Mweda
/wSzburXzPpO6lk0Bf8uDR/dsqmvNh2ppSSegine7SzTMQS8XI43iUuloPrM
XPv/+3P0x/CYYyYF+x/mPQjZ7N/I5P5AzTwK7iUtCwmcJuDkaDLjnhIK0pL2
K9RGERDaqyo9eI+CpR0iPNfDCdjoTGu510LBj7J3bOdDCUh6+NnkSgcFj6uT
diqHEJBTmRFo/JaCZpo2zXEBBDxM/tHyZIGCOQYfTml4EqAXq29atELBJrdO
pjU3AvrC88dPM6ijJbNgVaUrAWPuh5nInOo4ud3qz1tHAhj0y0xrFNURqrMX
rDb9c0FzfTyVrI76K8TpVMtNvytbBXkdVEf+vSnFdWYEiIttyRa3UMddwrSA
PkMCDBgcabn+m/sfsgg13PTvf38agiLC1ZFO88EWBgoBx+bZmW1i1NG1SPZW
pQoB3uPNMpyX1VHYtWj4jTwBaa3cwUk16njeM5cIESagP7KPOWRWHfM7Y3cr
MxDgECieY/lLHZdSGW7uXN/ML89oWYV1dTTq0fj9+Q8Nlqky5l85NPBaX0Gx
22Ze8akm5JzYp4EHHjjZj4zRwGlRU87URwMNppxYHjbTgIOT7nV/sAa+FdMu
iW2gQbPCkyC70xpIaLi2qdfSgOuUfotHmgZydsjIpJXS4PmUqdG5Wg0M/L7r
Xe0lGiiMOno8+KmBYvfVmjmdaUD3IrZE5LQmOt04nuFEt5nvBU/5ly9q4UtX
IOXJjMO9NMrwG0tEARnbQ6/+G4HgZk3zfOODKPj+H32Lqx+grbt0IdlOG6er
TUwiLAbB8xD5kSdVBzN5NKx2XnkLeeWKDd5eujjKU2bs/vU1XFl8FOsfpoc8
56+eZjDshcmKkFCPQH0cWL1oo3j5BXTqp2fHxR1Cc2/XS31sXUBvNkRcijFA
o5Xn4dOkDqA72EhfFGGIjJPzmistjyFp97LJm0QjVLC3siz98BD8j7k8WT53
GIV0plqD+JuAFqvkCleNMXp3xYfYnAbgysgZSi42wbZ7jd/zi+rg1naZiGe5
psj0bJujMLkW2gP36klWmuELQ92kpO+VUCBUxK951BwpkWnO/IfK4VH0Cp3H
a3P0/Ess+kiXgvBhllVRGwuM5+0VWKPcgPpX0hc+9Fugn3iWw4mmQkjtWlcQ
crBEZQXF0NFDuZARNO3lNGKJLXzCxa/vZkH0LsF/RWyP4MfMA48/3ciE29JM
3cHjR5DOSrHVseMKMP+k520/fhTb9j4L2PYpDcoU7p4p+HIUQ+Lu9h1OSQFp
5wrTNV8rbNOhdKiPJsCwYVOd1VcrzMozE/gyeQ7e3IzcB0HW+NDLu8RJMBZ+
37PQEFmwxrpKw86G1tOw8SCwIeGUDUqvHhMZmY6Awwr6etFLNsi97GHHbB4K
zxzkPb2DqNg88+dLvXsQcLp4tOSHULF75fdmLgXBcY9ijtdhVBx1Clm4YhYE
vwJ31ilFU5HvXPRSqmoQiCUtr6zFU7Hae9x2hCUIYuraUi9foyKvLK1n5HYg
UFjMaxuaqPjD8gOhtxiw+Z9MZphqoWLnqyOJPFMB8N+OJ0f5WqnoqL0usjAS
AB78Sn/OPKHic/sIUnNXAGQp8mgbvKSiWp0Yf/71APhpN/52aISK5Zr7z1Xo
BACe4JXgGKNi8HfDyzNqAXDBzTIcaFQkiBlTRVIAiAR08pd8pmLcwvFXb3gC
wCKh/KTvLBUr5mRdTs76Q94F2v3COSru4a2IG/rkD1OX+djeLFCRU35UwfqD
P8TkplarLFMxPWxd8kSnP/QUPaXz/ENFnn5lj7kmf9h9a90y9y8VRQKbxBNq
/MG5UrW0d42KdyZJ9iKl/lBd67+8sbHJXeosT6/7w/8AXARTFQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$47628#2"]& ], 
    TagBox[
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1mc4FY4XB/CrCKHsEcnIuNfmUtY9J1kpsl00FLJHKIXskZU9QiFC9qwQ
oiGKJNUvbREVrggl4+//6jyf5/m+OM9zXnyP6Gkfc+ctBAKBmY5A+P8US1kr
uS7cTSHUK/DtZazXvsNE3OPlWgiEPM7XH0qTKd0XakulXeuA6ZwLa9PwNcpj
xbMu21y7YJx888L4vlrKk6Rhw0WX53Bp5Hy8MWMXpU8jqnXa5RN8nr+y5+7J
IUqVFleoat1neOsT/FU1+gXl1zunwoDKL/DdV787u3qYErqLaWy+6CuYbwT2
0zG/ouTkmLjQkieh4ufGyZBfbyn9ae/OTrnQwNPkiq+X4Rjlcm52X4bSHFxI
qnvWvDpGkXUFO5W6OQhQXN/p2PSV4seYFuxX+QsGty5ZcEhPUNb1yJ1zRQvA
62Tun60wReF/EHRwJnkZSpaob7w7Zynt6eIjSSx/oLzbv2mpgEY5cfqZk2z8
H2AVKKtUhzlKKZ1wrEf0X2gu8y7bL/GLooTdT74H/YPgNuaTj7cuUIw6GE2+
uWzAb9aUsfydyxSljdOLvHMbsGhYY5BaukxJEjk5KK5FwI3X1h8rNP9QAk63
nbN8SMDC8+q1jr5/KbrffB+2jNDheJa43tPf/yhjMx9OXVjcikre38y97xLg
9ZXEllR1emRncI9f4KGDfgV15luX6DFP1fjhUAAdNJ7NrH/LwID5Jqvny9S2
QMSi0YYG7zZ8tHtATu/pVhBZu1OwpsaEhI0It63ajMB93XmOJ5gJ6/pqxy82
MgITcOnKdzFh73CMWRGRCWjh3j9PGDCjax5nF/duZuikl9C4b7MdW0+UXtAV
YIHjrOlvIi+wovKOxqtPPXeCaQ3I5N9jxWMeBR0kAjvomsyENhHY8Nncx6R1
I3aQTTWUHL/Mhq136g99+coOq1wbAXpXd+Bdf5OCdTFOGGBTY6Y/zo4spYwz
F0e5YfgwZ+5gCDvuSeFj+6XIA//Fz0peLWBHrqwwzdTLPDDOUK4r/54dv2+V
9LTS5IXVNb5wqj0H7vrTbOxRxwek2b9L1bacmMRupdX2ahcoyr6OCbzIicNp
7zbqUBDU3Bu5da5yorV2xjpXjSDofHNXfvMfJ5rZhL3dnyAEth/fedFRufBX
x40nQdbCcHmwY9zKmhs51T/YjO8WhSusef4i57lx3idUhcVBFDKNzm/5mcWN
cTNv2XhKRKHwsbxI+CtuPJiQbvNBRgxudxbaV1ry4PmpAc80Q3GYqI0YXjfn
RU4F3kcmDRLwY/r4qT4/XiwRXCnbvVUS5kgacxnpvJgafNOFwVoSVsvm2YjD
vPiwm1IqvyEJ3IWOhyzM+DDp2tyY2Ulp0EnRu19+lB//E5YlqdrJQLhR861h
b37UGTWfP90hA50M4hlryfzYJzH87YOoLGiEEM5YPOPHwN/+tQOzsqDi1s6y
YSiA3uKBMjxX5WHvQSUba51dWPdbq71EQAlOrxdixKldmP6FL+yOtRIUte4g
VYfvQncWkmdOphIIKU6v0nXtQsEX9Nd7OZWBZ3f5jRpNQTyqw+ysJaAC25aF
ZulVhfBK5VLJTjNV0G1MfKNgKYRWlpqPDhWoQqTXyn07fyFMkFoJC5tShfWv
bzLqG4RQ4epC4fcoNVgeSlc/Jr8bTSr8N/h698FUJVNMk5QwRmtWeqhEaoDk
mUDvj/rCKJE1f+HlRw1wEv1mw3xGGP2ZP+2r1NKEzzkPSCdLhZGZ8nkPy6om
vI0OHdouugcLRlLnGRK0wVlhhU2JTQQFWRdyrf0RjryLu8kvLILFpn7Fag0I
5DgebYKCCC4YZm7/Q0Og/6To+dxUBG3deopkfA/AjSsu/V6ZIji1/MqoNlgH
Ps2MxFYKiuLrFMvb69268PjqaeF0WVE8HivlFr5TD2r15louaosi91PuNcET
ehB6jWXC8KQo9uxU5mpY1wMhY52DkzdE0VpTjOGRsQHYVtdtiJPEkDz+qZ4k
ZQRI1c5h0RTDKr4W0LxsBNL0T+UXDovhq0cfHlT9MII/9t+O93iJ4bJobHl3
02HIZtl9z6FBDLt629otbIzhpXvChWv7xTH0xTsdywBTaOPlZ485JI77KCc5
+RtM4UbPzXJPO3FMjd7veWfWFPx2db/WDBHHG8WJy1meZsDev0we7RLHL6ps
f+X9zcGY6PyL12Aveni5xLXUWsJK4rn2D9Z7sTZzprJ00RIqZmNiSs/sRWJC
R1KkthXQN5cJKMfuRdfuhft8Q1bQRpk6YPxoL+Yn9TrS09mApKVHetRBCcxx
Kyjuz7SFkdvBx4wsJNAUDAxUpm0hQiBJksNRAr1J6Qbdunbw/mN12/VICUyN
yk89/tcOMtxmx1q7JXCQK2qI6ewxIISdVZkDSaz2PpR4+9pJqP0SsXb7qCR2
xPvq1NI7gL1ueu+lk5JI/25UV1XTAW4zN9mzhEminYz4IbdKB/DM/B0l2SmJ
5aNVr2rTTsHbW4Ejx7SksPrIC/L7GEeIZb18XfyIFFqJTX0QeOIIZJ9c1x/2
Uri/podIZnGCVHLramCwFH5aJfRtz3QC/a6VvRltUpv3tSJk1TtD48ilc337
pbGJd6f0Qz5XqIhxOj12SBqr380N8Pi6wnW1w0f/2UnjNrnPb0v7XCEhl58o
d0kamTmCJpLD3cDxWNP71G5pdBC/xrtz3R24x6cOUo2IeHiOYd+Upjdsz3qu
eNaeiGsu+n0HK72BoH97d4InEc98jqkj7vKB6fKo5fYrRNz/Mdu9at0HHnkI
V+15SUQmuYTrGTO+cH7BgnPSnoQsRpItkQt+4FmqsbHhSULjX8sd9vv94bSV
6DR/KAn9uhNHpUP9weTO7COjok2rh+2pYQ0AqeD4i7XjJIzk0kzqVD0H/23p
+nzOSwaDBG2iWNsDYbDp5sCVUBkknczRf8J+AR46JbWVp8jgWvx8UoPLBWh4
bJv5tkEGvz6x6BcSuAgJCb8NtJdk0NlaXbA3IQg0OUl19GGymP16hWNbzSUY
pLPrG0iRxTcvZS9m8YSCw6/4r9lFsuhXnBEaHxYK0UPf+Yg9sti47/NYvU0Y
DF65FW7MIIfXJQT87iWFgwML0Tw7UQ639znfuOIfCfMrVM+TBXJI73/mGkdz
JET/uBwrXSOH7K+Tub0WI+FW31Rb26AcRk9lHr8bFAXzcRXinzjk8VQz8e50
SjRE00svSuXK42+5p4bkyVjg/W2z81eFPOpfWduZoBYHFV/jiG2t8mjqpZIx
ERsHAz2Tx4+8k8d65dXRVtJl4I0of+wrrIB1zSQ22bB4uLUmmdtaqoAkDxWg
P5EEWjPWjZEtCijixHJCvisJBt/HPjv8WAENW9JT00STYb79G+HjpAJKyWrY
c/xIBmHtl+QIHkWkBr2n2SakgMu/9Gs3qYp4oJZnIjcmDTJNph9cdFBEOUt7
ysC9NLhfrPfD2FURn3aaMZf8TgN+wz9qS4GKeEutm0P9TDo8yTw+pJ+jiGTH
fTs1zTKAKC+9deqVIrr9eyu6bpAF1hERxHsfFHEH1wkupoQsiBwZPZo6oYiy
rwPUB55lwWhQcsH+RUX0v0scTLHMhoTeedV4biU0808d2uuVAz8dOlxJFkqY
P7bos/3hVeBv5k1Zt1NCrfVXu9M580CX0bdl+LQScotrKM+dyoOCGrEtwX5K
GPtlW7ja1nw4shKX/zRNCS2KVg8JmRZATYb5oOeQEs4kZ7i/4C4En8eTKnXG
yjhvL2n+r/IG3MdqD1lrZaQ+yzs7M3ED2Nt9S26dUMZ7ofmvL4mWQH3dX85S
H2VMr+HJvpRXAvO5LPO5acqo/P5CP09mKZz3UKiPfKWMQRLuxjFlZfB4YmFy
44MySuetDL38WQZ8Dnf3XPqmjHsm1SWGlMrhruWBlMBlZWw8mNT6qqsc/mpb
eHsKqODNQ/pjsuMVEMIeKGt9XAXvcjsX3TepgmcJmk4vnVVQ8GX6waOFVbCb
gVBg6q2CW83j1HPnqqDz72WWw2EquIeOsco+qxoIX/N+QLEKRqaRjrRN1kBU
S2cFcUIFVZ5xRUpR6yHBbpvEmicZV6uL8x+7NQFFkXXpewB5s6+MSsvymuAX
A2fv6xAyFo7wZ79/2gTUht1u9Ulk/KNA0jJSaAYJJtUax2oyHiBbl8qsNMP9
FkfV/p9kJPdalC4V3oYl9m69HHdVdK19cfkuqQ0ce4PPKLmqoe3ksZ5PvN3g
pCVpsuSjho7KcUdy9nfDmYYh1fZANfQ2XEQfu25wzZdg0ItTQ80zub5h17vB
2+d5CbVMDS0T9z4QkO6BID7xL2Hjapgly6HxDx9Auku//aDDPiyvY9uIjnsE
3YwCZh62+7E1csAtwKYflDjCs78HaKDrIic5sWEYHBa0ZU08tVBHiWfefvAN
FF9/JLScTMEpP5qd7sp7aLqi8W7YHFFoaIx2+PFnCGjTNr125AAmGoSfc64a
g67+m/Px9joYSro67hg0Dm4G6h1u1IM4vWC8qPZ7AgoqlFo83HVxdI3vVgt1
EtIWOiJ8A/VQJDXZ8XzcFHyrPHfe1U8f7S5p0H8P+Q4P9dNzIyMNMC47smTI
8QfQHR0dSwk3xBqZqO1Jwj+BcOA2XdHFQ6jYNXSetfMnXOZbNh6OM8JFSrCX
sOU0+No59ixHHcarkUxTrgPT8CWC7ARZR5CMpqUyMAPcGVdH44uNMStTs8a+
cAbK2EkXe/NNUDqNZVVgZga6/fboSVUdxRSzhZuCarNwXaRISNvSFIl0qkfZ
zs5CR8gKwXXIFD9y3XO0LZkF0cOMq+I2Zhh6OMCtbHgWmp8TE9+OmOHyR+bS
0T+zkPR4XVHkuDk6eZdM1wrRIMP/u7vDe3P05PhEn6tOgxAe4Z1ithb4bsC2
lGJOg1tEhv6AzxbouiVa/YwbDbb9phPoPmGJnRE1YXwhNChXbAi9PmmJE+3N
BnnJNCCerjRZ87LC6vPRW50LaPDuUGuj1U8rZCsuDrapoMFwSZAc+FsjJW+P
ZnITDf40mWmJzVtjaMcS89V7NNi469cS622Db9ftWE0f0uCwor5eyKINHhML
kUh9SoPe4wpuHv5UdH75psf9BQ04HV3br52j4o3Eat6oTZ9wLWYbCqTiibZT
9vmbXvLjaiSHULEmJfXO003vvby8shZNReWKxXaZYRqEN3YlpWZTcYU+YXVq
0xqMpvUtrVT8tAPyqCO0zX8ifstUOxVz/EUEfTb9gqPHclcnFet+rSTHbNpV
iPw3tIeK9iadhxo3naPEr2P4lIoy/AG7WF7R4Lf955ej76k4cspQum3TeEpA
ku3TZr7rzbPnm048Y34BvlCxKW7acWLTYmcfCpVObO7n1efG/poGZrEVzl6z
VJwT0H/lvOmCxC93CueoGHVsaUfwpqdSd20fnqdikbKfZuqmw/OTatWWqfii
hubZtulnRY8Ibn+pyP1hi9/zTfOVrZvn/6OiVjO9+/imT1ftuzmwRkWHP2uW
fzddW++7vLFBxVzvZeUdb2jwP+2TkHI=
       "]]},
     Annotation[#, "Charting`Private`Tag$47628#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 99.99999795918367}, {0, 1.01}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7942357543495216`*^9, 3.7943211518510747`*^9, 
  3.794379018220403*^9, 3.794379545248373*^9, 3.7943799906112967`*^9, 
  3.7943808164573975`*^9, 3.794384024038122*^9, 3.794472655637871*^9, 
  3.7945539696845393`*^9, 3.794645089676219*^9, 3.7948028409561176`*^9, 
  3.794837143364023*^9, 3.794844726812564*^9, 3.794853172769451*^9, 
  3.7948841936021423`*^9, 3.79488745233856*^9, 3.7948948607426867`*^9, 
  3.794897040668702*^9, 3.7949012529280386`*^9, 3.794918935176858*^9, 
  3.794920906129294*^9, 3.794975557691987*^9, 3.7949776551488523`*^9, 
  3.7949857561231613`*^9, 3.795012553223014*^9, 3.7950597237021728`*^9, 
  3.7951572087241697`*^9, 3.7953198309775753`*^9, 3.795319967409492*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"f237b234-88ac-4084-8c8a-de1e1550b3d2"]
}, Open  ]],

Cell["\<\
Ahora vamos construir un modelo que  la soluci\[OAcute]n en funci\[OAcute]n \
de b y k.\
\>", "Text",
 CellChangeTimes->{{3.794322055431429*^9, 3.7943221037124586`*^9}, {
  3.7943795978976965`*^9, 
  3.7943796072995586`*^9}},ExpressionUUID->"3ac8e470-0e56-40b4-b466-\
6f54fc564841"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sirmodel1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"-", "b"}], " ", 
       RowBox[{"s", "[", "t", "]"}], " ", 
       RowBox[{"i", "[", "t", "]"}]}]}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"b", " ", 
        RowBox[{"s", "[", "t", "]"}], 
        RowBox[{"i", "[", "t", "]"}]}], "-", 
       RowBox[{"k", " ", 
        RowBox[{"i", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"r", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"k", " ", 
       RowBox[{"i", "[", "t", "]"}]}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.794322812543733*^9, 3.7943228803363223`*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"4513ab5e-f765-41bf-ae32-021d07d39726"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solucion1", "=", 
  RowBox[{"ParametricNDSolve", "[", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{"sirmodel1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "0.9999"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "0.0001"}], ",", 
        RowBox[{
         RowBox[{"r", "[", "0", "]"}], "\[Equal]", "0.0000"}]}], "}"}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"s", ",", " ", "i", ",", " ", "r"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
    RowBox[{"{", " ", 
     RowBox[{"b", ",", " ", "k"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.792145347285343*^9, {3.792145859494135*^9, 3.792145860934304*^9}, 
   3.792159172996607*^9, 3.7922495027605352`*^9, 3.792328894028928*^9, {
   3.7923459125259132`*^9, 3.7923459817560787`*^9}, {3.7923493003095913`*^9, 
   3.792349308508486*^9}, {3.792395076171653*^9, 3.792395089793461*^9}, {
   3.792399532090517*^9, 3.792399532776864*^9}, {3.7924015378174677`*^9, 
   3.7924016009497147`*^9}, {3.7924019007673473`*^9, 3.792401915620026*^9}, 
   3.793977901793704*^9, 3.7939779758762503`*^9, 3.7939780291217375`*^9, {
   3.793978064395561*^9, 3.7939780653405266`*^9}, {3.7939781346219454`*^9, 
   3.7939782380905294`*^9}, {3.7939782891999907`*^9, 
   3.7939783042779737`*^9}, {3.7939783409590826`*^9, 
   3.7939783931790867`*^9}, {3.793978428496972*^9, 3.7939784307623577`*^9}, {
   3.7939784880434275`*^9, 3.793978531574893*^9}, {3.793978563122068*^9, 
   3.793978573277742*^9}, 3.7943229095911336`*^9, {3.794322947526682*^9, 
   3.7943230088035183`*^9}, {3.7943790392432446`*^9, 
   3.7943790416819067`*^9}, {3.794380047839616*^9, 3.7943800510342627`*^9}},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[149]:=",ExpressionUUID->"6b14ecd2-0477-45be-bc8d-41ac94bc2746"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"s", "\[Rule]", 
    TagBox[
     TemplateBox[{
       RowBox[{
         StyleBox[
          TagBox["ParametricFunction", "SummaryHead"], 
          "NonInterpretableSummary"], 
         StyleBox["[", "NonInterpretableSummary"], 
         DynamicModuleBox[{
          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
          TemplateBox[{
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                   AspectRatio -> 1, Axes -> {False, False}, 
                   AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
                   Background -> GrayLevel[0.93], 
                   BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> 
                   Identity, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                   Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                   FrameTicks -> {{None, None}, {None, None}}, 
                   GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                   LabelStyle -> {FontFamily -> "Arial"}, 
                   Method -> {"ScalingFunctions" -> None}, 
                   PlotRange -> {All, All}, PlotRangeClipping -> True, 
                   PlotRangePadding -> {Automatic, Automatic}, 
                   Ticks -> {Automatic, Automatic}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["s", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], True -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                   AspectRatio -> 1, Axes -> {False, False}, 
                   AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
                   Background -> GrayLevel[0.93], 
                   BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> 
                   Identity, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                   Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                   FrameTicks -> {{None, None}, {None, None}}, 
                   GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                   LabelStyle -> {FontFamily -> "Arial"}, 
                   Method -> {"ScalingFunctions" -> None}, 
                   PlotRange -> {All, All}, PlotRangeClipping -> True, 
                   PlotRangePadding -> {Automatic, Automatic}, 
                   Ticks -> {Automatic, Automatic}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["s", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"i", ",", "r", ",", "s"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}]}, 
             Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
           "SummaryPanel"], DynamicModuleValues :> {}], 
         StyleBox["]", "NonInterpretableSummary"]}]},
      "CopyTag",
      DisplayFunction->(#& ),
      InterpretationFunction->("ParametricFunction[<>]"& )],
     False,
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"i", "\[Rule]", 
    TagBox[
     TemplateBox[{
       RowBox[{
         StyleBox[
          TagBox["ParametricFunction", "SummaryHead"], 
          "NonInterpretableSummary"], 
         StyleBox["[", "NonInterpretableSummary"], 
         DynamicModuleBox[{
          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
          TemplateBox[{
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                   AspectRatio -> 1, Axes -> {False, False}, 
                   AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
                   Background -> GrayLevel[0.93], 
                   BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> 
                   Identity, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                   Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                   FrameTicks -> {{None, None}, {None, None}}, 
                   GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                   LabelStyle -> {FontFamily -> "Arial"}, 
                   Method -> {"ScalingFunctions" -> None}, 
                   PlotRange -> {All, All}, PlotRangeClipping -> True, 
                   PlotRangePadding -> {Automatic, Automatic}, 
                   Ticks -> {Automatic, Automatic}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["i", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], True -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                   AspectRatio -> 1, Axes -> {False, False}, 
                   AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
                   Background -> GrayLevel[0.93], 
                   BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> 
                   Identity, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                   Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                   FrameTicks -> {{None, None}, {None, None}}, 
                   GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                   LabelStyle -> {FontFamily -> "Arial"}, 
                   Method -> {"ScalingFunctions" -> None}, 
                   PlotRange -> {All, All}, PlotRangeClipping -> True, 
                   PlotRangePadding -> {Automatic, Automatic}, 
                   Ticks -> {Automatic, Automatic}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["i", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"i", ",", "r", ",", "s"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}]}, 
             Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
           "SummaryPanel"], DynamicModuleValues :> {}], 
         StyleBox["]", "NonInterpretableSummary"]}]},
      "CopyTag",
      DisplayFunction->(#& ),
      InterpretationFunction->("ParametricFunction[<>]"& )],
     False,
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"r", "\[Rule]", 
    TagBox[
     TemplateBox[{
       RowBox[{
         StyleBox[
          TagBox["ParametricFunction", "SummaryHead"], 
          "NonInterpretableSummary"], 
         StyleBox["[", "NonInterpretableSummary"], 
         DynamicModuleBox[{
          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
          TemplateBox[{
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                   AspectRatio -> 1, Axes -> {False, False}, 
                   AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
                   Background -> GrayLevel[0.93], 
                   BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> 
                   Identity, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                   Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                   FrameTicks -> {{None, None}, {None, None}}, 
                   GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                   LabelStyle -> {FontFamily -> "Arial"}, 
                   Method -> {"ScalingFunctions" -> None}, 
                   PlotRange -> {All, All}, PlotRangeClipping -> True, 
                   PlotRangePadding -> {Automatic, Automatic}, 
                   Ticks -> {Automatic, Automatic}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["r", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], True -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                   AspectRatio -> 1, Axes -> {False, False}, 
                   AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
                   Background -> GrayLevel[0.93], 
                   BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> 
                   Identity, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                   Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                   FrameTicks -> {{None, None}, {None, None}}, 
                   GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                   LabelStyle -> {FontFamily -> "Arial"}, 
                   Method -> {"ScalingFunctions" -> None}, 
                   PlotRange -> {All, All}, PlotRangeClipping -> True, 
                   PlotRangePadding -> {Automatic, Automatic}, 
                   Ticks -> {Automatic, Automatic}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["r", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"i", ",", "r", ",", "s"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}]}, 
             Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
           "SummaryPanel"], DynamicModuleValues :> {}], 
         StyleBox["]", "NonInterpretableSummary"]}]},
      "CopyTag",
      DisplayFunction->(#& ),
      InterpretationFunction->("ParametricFunction[<>]"& )],
     False,
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}]}], "}"}]], "Output",
 CellChangeTimes->{3.794379018361019*^9, 3.79438005624761*^9, 
  3.794380133197117*^9, 3.7943840241943617`*^9, 3.7944037391572413`*^9, 
  3.7944726557318087`*^9, 3.794485357278285*^9, 3.794553969778492*^9, 
  3.7946450897543364`*^9, 3.794802841002954*^9, 3.7948371435309277`*^9, 
  3.7948447269515247`*^9, 3.794853172933052*^9, 3.7948841938052497`*^9, 
  3.7948874524403763`*^9, 3.7948948608244677`*^9, 3.794897040774642*^9, 
  3.7949012530046263`*^9, 3.794918935279787*^9, 3.794920906285532*^9, 
  3.7949755577629414`*^9, 3.7949776556155443`*^9, 3.794985756226117*^9, 
  3.795012553332381*^9, 3.7950597238427887`*^9, 3.7951572088338757`*^9, 
  3.7953198310465374`*^9, 3.7953199675034513`*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"8e2627ce-0609-4dd9-890f-17dae65dedeb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"sols1", ",", "solr1", ",", "soli1"}], "}"}], "=", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"s", ",", " ", "r", ",", " ", "i"}], "}"}], "/.", 
   "solucion1"}]}]], "Input",
 CellChangeTimes->{{3.7943800278098745`*^9, 3.794380032945263*^9}, 
   3.7943800630979195`*^9, {3.7943801172507505`*^9, 3.7943801433224535`*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"43b19b33-f816-454c-b2f2-f2845781a1de"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    TemplateBox[{
      RowBox[{
        StyleBox[
         TagBox["ParametricFunction", "SummaryHead"], 
         "NonInterpretableSummary"], 
        StyleBox["[", "NonInterpretableSummary"], 
        DynamicModuleBox[{
         Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
         TemplateBox[{
           PaneSelectorBox[{False -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                   ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                   None, Evaluator -> Automatic, Method -> "Preemptive"], 
                  Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                  AspectRatio -> 1, Axes -> {False, False}, 
                  AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                  GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                  DisplayFunction -> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  LabelStyle -> {FontFamily -> "Arial"}, 
                  Method -> {"ScalingFunctions" -> None}, 
                  PlotRange -> {All, All}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {Automatic, Automatic}, 
                  Ticks -> {Automatic, Automatic}], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["s", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}], True -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                   ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                   None, Evaluator -> Automatic, Method -> "Preemptive"], 
                  Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                  AspectRatio -> 1, Axes -> {False, False}, 
                  AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                  GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                  DisplayFunction -> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  LabelStyle -> {FontFamily -> "Arial"}, 
                  Method -> {"ScalingFunctions" -> None}, 
                  PlotRange -> {All, All}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {Automatic, Automatic}, 
                  Ticks -> {Automatic, Automatic}], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["s", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"i", ",", "r", ",", "s"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}]}, 
            Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
          "SummaryPanel"], DynamicModuleValues :> {}], 
        StyleBox["]", "NonInterpretableSummary"]}]},
     "CopyTag",
     DisplayFunction->(#& ),
     InterpretationFunction->("ParametricFunction[<>]"& )],
    False,
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   TagBox[
    TemplateBox[{
      RowBox[{
        StyleBox[
         TagBox["ParametricFunction", "SummaryHead"], 
         "NonInterpretableSummary"], 
        StyleBox["[", "NonInterpretableSummary"], 
        DynamicModuleBox[{
         Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
         TemplateBox[{
           PaneSelectorBox[{False -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                   ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                   None, Evaluator -> Automatic, Method -> "Preemptive"], 
                  Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                  AspectRatio -> 1, Axes -> {False, False}, 
                  AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                  GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                  DisplayFunction -> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  LabelStyle -> {FontFamily -> "Arial"}, 
                  Method -> {"ScalingFunctions" -> None}, 
                  PlotRange -> {All, All}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {Automatic, Automatic}, 
                  Ticks -> {Automatic, Automatic}], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["r", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}], True -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                   ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                   None, Evaluator -> Automatic, Method -> "Preemptive"], 
                  Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                  AspectRatio -> 1, Axes -> {False, False}, 
                  AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                  GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                  DisplayFunction -> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  LabelStyle -> {FontFamily -> "Arial"}, 
                  Method -> {"ScalingFunctions" -> None}, 
                  PlotRange -> {All, All}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {Automatic, Automatic}, 
                  Ticks -> {Automatic, Automatic}], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["r", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"i", ",", "r", ",", "s"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}]}, 
            Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
          "SummaryPanel"], DynamicModuleValues :> {}], 
        StyleBox["]", "NonInterpretableSummary"]}]},
     "CopyTag",
     DisplayFunction->(#& ),
     InterpretationFunction->("ParametricFunction[<>]"& )],
    False,
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   TagBox[
    TemplateBox[{
      RowBox[{
        StyleBox[
         TagBox["ParametricFunction", "SummaryHead"], 
         "NonInterpretableSummary"], 
        StyleBox["[", "NonInterpretableSummary"], 
        DynamicModuleBox[{
         Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
         TemplateBox[{
           PaneSelectorBox[{False -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                   ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                   None, Evaluator -> Automatic, Method -> "Preemptive"], 
                  Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                  AspectRatio -> 1, Axes -> {False, False}, 
                  AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                  GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                  DisplayFunction -> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  LabelStyle -> {FontFamily -> "Arial"}, 
                  Method -> {"ScalingFunctions" -> None}, 
                  PlotRange -> {All, All}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {Automatic, Automatic}, 
                  Ticks -> {Automatic, Automatic}], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["i", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}], True -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                   ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                   None, Evaluator -> Automatic, Method -> "Preemptive"], 
                  Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 GraphicsBox[{{}, {}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                    0.0874367476365131, 0.08197166587636243}, {
                    0.18222810297558026`, 0.1358255024317191}, {
                    0.27073779576926765`, 0.13315455086535802`}, {
                    0.3575112797365835, 0.08143316377978886}, {
                    0.4516394623155443, -0.007347854733426912}, {
                    0.5394859823491253, -0.08816932746972758}, {
                    0.6346872009943513, -0.13787329990112937`}, {
                    0.7281522108132057, -0.12816574147938434`}, {
                    0.8153355580866803, -0.07001063326902106}, {
                    0.9098736039718, 0.02121659675083076}, {
                    0.9999999090909091, 0.10024804094746914`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                    0.0874367476365131, 0.08090369567458766}, {
                    0.18222810297558026`, 0.12746559200130417`}, {
                    0.27073779576926765`, 0.1116266937044405}, {
                    0.3575112797365835, 0.046963725126600256`}, {
                    0.4516394623155443, -0.04509050859182233}, {
                    0.5394859823491253, -0.11115559892361665`}, {
                    0.6346872009943513, -0.12642564594664163`}, {
                    0.7281522108132057, -0.07740196037964171}, {
                    0.8153355580866803, 0.004179083230780074}, {
                    0.9098736039718, 0.08937493944143977}, {
                    0.9999999090909091, 0.12834702174618903`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                    0.0874367476365131, 0.07984396759533968}, {
                    0.18222810297558026`, 0.11939549826670079`}, {
                    0.27073779576926765`, 0.09184904274707059}, {
                    0.3575112797365835, 0.017913117173780694`}, {
                    0.4516394623155443, -0.07109962300031061}, {
                    0.5394859823491253, -0.11717052830989395`}, {
                    0.6346872009943513, -0.09879571259704382}, {
                    0.7281522108132057, -0.022693471356141894`}, {
                    0.8153355580866803, 0.06128703302641453}, {
                    0.9098736039718, 0.11605625481609519`}, {
                    0.9999999090909091, 0.10415981267620744`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                    0.0874367476365131, 0.07879243663407876}, {
                    0.18222810297558026`, 0.1116081822210312}, {
                    0.27073779576926765`, 0.07372482040530459}, {
                    0.3575112797365835, -0.006267252216927747}, {
                    0.4516394623155443, -0.08743897872291118}, {
                    0.5394859823491253, -0.11109134853087661`}, {
                    0.6346872009943513, -0.06371549528296311}, {
                    0.7281522108132057, 0.02544576624054603}, {
                    0.8153355580866803, 0.09464282937855747}, {
                    0.9098736039718, 0.10731931496853601`}, {
                    0.9999999090909091, 0.0516787429232188}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                    0.0874367476365131, 0.07774905743802465}, {
                    0.18222810297558026`, 0.10409673959866513`}, {
                    0.27073779576926765`, 0.05716133039337165}, {
                    0.3575112797365835, -0.026084496726167965`}, {
                    0.4516394623155443, -0.09591154799603378}, {
                    0.5394859823491253, -0.09685594593277226}, {
                    0.6346872009943513, -0.02730376120671303}, {
                    0.7281522108132057, 0.061646715198529656`}, {
                    0.8153355580866803, 0.1046634148537508}, {0.9098736039718,
                     0.07509702498429204}, {
                    0.9999999090909091, -0.006536873471333553}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    Opacity[1.], 
                    
                    LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                    0.0874367476365131, 0.07671378556951527}, {
                    0.18222810297558026`, 0.09685439581479163}, {
                    0.27073779576926765`, 0.042069810325321415`}, {
                    0.3575112797365835, -0.042006785469922474`}, {
                    0.4516394623155443, -0.09808544986431629}, {
                    0.5394859823491253, -0.07760167026270944}, {
                    0.6346872009943513, 0.0063643674428021085`}, {
                    0.7281522108132057, 0.08405712128907425}, {
                    0.8153355580866803, 0.09555213349985489}, {
                    0.9098736039718, 0.03202960165577907}, {
                    0.9999999090909091, -0.054402034659985464`}}]}}, 
                  AspectRatio -> 1, Axes -> {False, False}, 
                  AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                  GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                  DisplayFunction -> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                  LabelStyle -> {FontFamily -> "Arial"}, 
                  Method -> {"ScalingFunctions" -> None}, 
                  PlotRange -> {All, All}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {Automatic, Automatic}, 
                  Ticks -> {Automatic, Automatic}], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["i", HoldForm], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"b", ",", "k"}], "}"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"i", ",", "r", ",", "s"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}]}, 
            Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
          "SummaryPanel"], DynamicModuleValues :> {}], 
        StyleBox["]", "NonInterpretableSummary"]}]},
     "CopyTag",
     DisplayFunction->(#& ),
     InterpretationFunction->("ParametricFunction[<>]"& )],
    False,
    Editable->False,
    SelectWithContents->True,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7943801011323423`*^9, {3.794380133395297*^9, 3.7943801464499626`*^9}, 
   3.7943840243662252`*^9, 3.7944037392978563`*^9, 3.794472655872163*^9, 
   3.794485361543982*^9, 3.7945539698721414`*^9, 3.7946450898168325`*^9, 
   3.7948028410498447`*^9, 3.794837143666172*^9, 3.7948447270424786`*^9, 
   3.794853173113531*^9, 3.7948841939614887`*^9, 3.7948874525497503`*^9, 
   3.794894860890803*^9, 3.794897040846603*^9, 3.7949012530954256`*^9, 
   3.7949189353579063`*^9, 3.7949209063904076`*^9, 3.7949755578439054`*^9, 
   3.794977655710292*^9, 3.7949857562940636`*^9, 3.7950125534105*^9, 
   3.7950597241270475`*^9, 3.795157208917652*^9, 3.7953198311344943`*^9, 
   3.7953199675824013`*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"cd9ed153-5297-4c99-926d-4aeb1d831c58"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.794380274112294*^9, 3.7943802808002615`*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"8778ce4c-68d2-488b-869b-baf97ed9d6df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"sols1", "[", 
       RowBox[{"0.5", ",", " ", 
        RowBox[{"1", "/", "14"}]}], "]"}], "[", "t", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"solr1", "[", 
       RowBox[{"0.5", ",", " ", 
        RowBox[{"1", "/", "14"}]}], "]"}], "[", "t", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"soli1", "[", 
       RowBox[{"0.5", ",", " ", 
        RowBox[{"1", "/", "14"}]}], "]"}], "[", "t", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red", ",", "Green"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.794380208150543*^9, 3.794380228102027*^9}, {
  3.794380264320429*^9, 3.794380421397479*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"06150ceb-b0ee-428b-8107-59172658acfa"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Hc8Vo8XB3BkhkJCkaxkZfRF9jn2fsx4kOzskZFdUpGRKElKKAkNW1ay
QkuhUqEQkvVIZER+9/fXfb1f93Pvuffcc4+ga6ClBw0VFdUmNRXV/49Clzfv
3uZv1VAp+GIgvUWBJ4zi+/298iBiYHm7JOHWiMeFYl5lYLa+0XaQcKfsSU96
r2dwX7+HTZBwd2qfwbLnW1gp0hLeRfiFyrn6Wc9vcIM2/e/SPwo8UNt1WqFs
BAIvr/1dIPxr0D0vtHQUIhVfzM8SPr2XcWwx/zsc+JzzYJzw9eskT8qlH7AZ
m3y6n/DLjMGTU54UKIs9bPmY8MXsrBdX5RZg2TnEvYSwlBfY/1e2AEe8JzwK
CQczZEQHl/4C4YUMhRzC/3Tlmxfyf8PAzTHqC4R52qO05y6tQLaMMp8t4cYr
wu9TmVfB4FY/vQXh466v3aWSVsF8tnnIiHAhNX+C7/k18GiONtQgLIet3T+j
/kLimOJ+EcJGTxlIk55bkL6bIXZmkzi/5brMtbAFc+6Hyd8Jpwo49QirUeFu
Xs/dg4RDXRvCrDuocKerjfxLwjqTQR0176nxpL7MWhHhsblhl4jlbbhTR0XR
nvDHtJSadGVa7H8av2FG+KWMMlNJLC32asjl6hKuPJlZ/pmODkve3veVJXx2
2WhLhYseN4dMpWkJC2w+ubWpyIjWh3d23d2gAOdtj4Xd0Yz4bSuMkkWYEXbp
SD9jRIOS4qkkwpS4gJnj+kzo3frZKJBwM+0BlRbb7chosa3pCGFHlisD8REs
KPcgtLj5LwXMH4HkzSYWFNuZnPiYsA5p7nQVFSsiTaDkbcJS6Qai4xdZcTA7
pjmG8MaurVDdGzvwdK/iuiLhN6yKTLSObBij60u5vU6BPmOO7J4YNlypTmdM
JfwpaV70xi021NZnGo0gPE53X0d6iA1DfrW8tiC8sckdR3ZgR53m3lNUhCXm
1/48tONAk4okJfM1CshKfbwQHsmBHaerB5QIK/pUcmrd4MAXF8dFBQlrTfoc
HvjEgW6Djr0LqxSw+zroT03ehb2F7cqphC/2PB0/asOJfq8D9SpXKJDGkhMi
cIoTb4dRO14jnGl0imbmGid+y49giyCc1yktEPeBE+teMRmqEa5tznMotd6N
3ddsh5/9ocDE47N9/yy50P/m92OVyxSYnnV0eRHMhZbx67lphBckVBauXuHC
cMez7j6EN4oWWcX7uDBawShagDBnnpuhlQU3Cpk9KUhYIp7/sm7LfTMedGl8
ekz5NwXijKpL+gJ4MCxeePsOws10wlc3L/FgOLO66NgiBVRiqE5YveZBk42M
OxcJ/+fdyLxlsAddL/4K6flFARFtOVsbrb346tZqg+oCBVz/5eFZl72YwS/l
Tk84v36HxMO4vago7+/wjkIBPtnZDepne3H/ox5xV8K7992/80iVF6/0s/yL
macA/QrfPK0CH65+99C5NEvMR2XKgIw1H8q0DNwwJhzvv95iH8KHthFynEyE
/30fuFpewYd3vC38z85QYOXdFeVj0vvQjyrnuOc0BaZKGS9UHeRHg3ySPd0U
BURPhAd81eNHpomwlOofFHAXnLRlOsGPIhouj10Jj1xvl3Aq5Mdle2xqnKTA
5/On320X3I/AqHnTeYICHjLrrHKsAuhge3df8BgFTAYT7/HwCyDTc2sVesLy
ibvVqWQE8MOOi2+zRylA+03W7625AGrEPTCtH6HAnTTPl/6ZApg75EX14ysF
vs29TyjlFURVmljzhS/Evrzhyn9FShAdVh4aexN+rLtQE6kuiPFHDhwf+Uzs
v1zmCQMnQaQaWH7Y/Ynop6mW9o87guimayR99iMxjw/LtoQlhPBd6OeslF4K
IFn9OrOqEJ57vb1y7B0FxGhfSf82FkLNN/5+RwivOkw6tvkLocX3lZzPPRTI
Yt7X5FwhhJu7ToxvvaJAv09yRK6SMPZEqFm+fk6BBi4etguGwpgCphJrHcT7
tN2772cvjF+YGViFCQfvbf2oGiOMR1nuPvdvowDbyxX5L8+E8f2OhhfDzRQw
Fff4xaUvgh+X6k35n1BgPSWscdhGBLecHmqK1VKgeP7ChcITIvjAn4dapobo
X3XRnsMJIlijOFtzuIqorzGlafpcBF9Ne7ewlxHf09r3yjntAxgcvC1PpIgC
72ujjxlZHcBaWT72P4XEftuTKsrudgAVxPSvt9+lwNDXhw234w/gCboXJZYF
FLjqPT9W33oABYzk/OEWBajOnPxvAUQxo7knRz+D6P/o2c1aM1FU/Hl9uf8y
BRx0rnTFOoniEvPjBIc04n9lqnJgPiOKJhPO24+lUMAvc+mcaLMoXsjW6BG4
QMxPSfj7Y2oHcSDzwXppOAUSWC7eFjY5iPc43u/4HkbMS2C217TDQeSICift
DqVAunz9Rnj0QfSWvkntFUQBvWfrIlcbDiLZ0Ji9w4vY3+9jw14oiWE1z8o9
XTLRrwvurmOGYgj/rYlNHaXAbUVjs7/2Yog/+ezjrSiQnM0jfihWDItWE81y
SRRwO1Y1lN4qhgLHRHR8dIj9MD6lTTYSx2fnbDT0pCmw/dpb2ZMO4si3Ynnv
qCTRD73afcl+4vgiSbDfXowCs/fPrTSmiWPXDbplXSEKPPflf7C/XxxBPTfg
5m4KnPptxfHDQQKvnE/iF1mfB79Cla0tPwlcOTync+bPPLgeFZzlOS2Bge38
lDeL80B6Mv/cKF8CX7wyFNedmYeD0UmRj8clMEnL6lHW4Dx8onk2EuYviSwB
d4sK6uehp+rem7TTkijzsfG8YM08dLinNty/LIkZUXxqV8rnoaLTLvNzhSRK
85RG696fh+TkJX31P5Low5AvMH91HlQ5JMpoz0hhXsPmOX4f4n7U9i/eXCZ8
26m8zH0enH8lfc/Kl8LzDZ1WMk7zcP7dT27xNik8c0NGfc2KyKeVxJnSHcLJ
2BioVCPyzOKWWSmHsIlmjiZ1+zwsrpP9nG4dQlGBZ39ntxHXT19MEHt0CCPC
ahSVN+eg5MVUQ0PPIVxJrc+6QpmDxcRi4W/s0jjsIrKq1T8H52nFlg9mS+OZ
vOxJ76w54Fqy3fmrWBpbFIc5PNLmoPh7onhDvTRy+SXSGiTMwZu2H44mg9L4
5ue4VUcYkT97vzOIXwY/uX5xT7ci6m2KZtcXyuB122tsOtvnQG3OpjK+RgbX
1uLq8qnmoGco4bVxpwxmlDhfHv0zC4uNk1Rff8jg3yy/Hzu+zwK/er/82d2y
+FLnNxdHwyx4/r2Se48sizKRceFJrrOQSZptj3SWxcWsFZMPtrPQUqA7beol
i82/9y3Qmc4Cj8Gq4p9wWXw1qfqL88gsdGc6vtO7Lot/7P7YTjDNgri02Lap
D7L43b1nUKp0BmzOnhVvGpZFLaP1uMrcGYh//8UsfUIW9dx2nNubMQNfoi7d
UlqWxctSX3dlhM9ActeiQhKnHN7amVjEqT0DM85PvSSs5FBDQMHP4f008FRz
Xf5nL4cdYUUHV59Pgw5DUE2fqxzWy74ICHsyDbceCdFEB8th0uFAMnvONJis
J958lSGHnD+s7r52nIZHVy17/N7JoU+tXaD2t58Q2PnjvzLTw7hu+SiC9eUU
tOBDXymbw3iK9qoib+0UsDUG3S05fhiDE97XbbszBeVlaxyFgYfxqgRLpEfk
FCxmMy9mZxzGT9I39waKTsEpX5ny+A+HkVpia6wl8gfEsIVL2Tj+h52VpL0M
DJOQbE9/YNNPHouCr5116h0DDVmWPz9D5dGL/8Fho7ox+EXH0fUxRh55Rjqv
SuSNAblin3d5qjzynQoI7fEbgwOMCo/cHsrjyRtOARUMY9BS46bwckYeDad2
yhxTG4U/bK26130UsOmpUAWf0TconezkOh+sgOnX7alPcn8Dx6bXP4KiFLCA
O3ajb/wrdHh+SjJKVsD5FAP2jjNfIaOZ8mazRAGHm4IuhNcOg5Qfv437TwWk
PrXbglZsCNy6ok/IeSlizmDvsLLQZ3BXEyX9CVTERxxRjixLn+BExTuFxnBF
9L7s3cnQ+Qm8bh6g001UxNIYavEYn08QEPj2LrlIEaWMTkv41wxAFLfw6Jlx
RZy4I5m/ZPURrni+dOhxPoKPdG6V8z/ph8yhUO2rXkfQTFVbjv9yP1yz2C9J
DjqC+83rR4969kO2auj66JkjKF799HEATz/c3sl/Y/n2Eay70E9tEtsHpU9O
fuQbPoIdZJGu7xa90Mqwx8LXTglzYVQ8ldQDk3eljT67KKF7YglnLkMPsKCO
tr6PEm7LK6BWbn0D5IhABeFoJax1EddmV3wDlKnnewZvKeHXy9tsVEVfw76X
wWNGI0pIf2cXyAq8BK0TFwfrppRw3agovmf0BXjR3H4v+ksJ14RG9BfvvoBq
lRedNDTKmJpDiegWfwHGD/Y/aBBWxtWc5dIC1W6ITH0dIuGpjBzto4cvhHfC
bbExv+xAZeTZ1+SqotkJHR0rHvQRyljObd3uy9wJbJtC5LGLyljE73YUC57D
ff9ItZxSZaTU+4bk9nXAB5Io3fZ5ZYz9ZrAj0bgd5Njjsn6GqiD33oKurvQW
aGAcEOuKUcGDJn0+2r4toEUl3Vh4XgWtdhof4NJrAWvK4DenTBWc1HHNjll7
BqfeHBH/WKWC+WUxJTuGmqEpidLYtqiC8+fOn//8rAl0z+qR8tdVsE38Uuue
M03QE5E7EkujiqfuX2z+rdEE3zyN6ZQ5VHHmTOhkYEsj0OjdJ5XJqeLkgP2e
Ey8bwIDGafRmkCoGqEnWKa/VQe9aTUhkhCoWtVpKx7fWgf0vFnrbOFWMOfhq
xDy5DnxHGiQ40lVxIXfYJ2ZfHaQ1c4VeLFPFoM5lkVnDJ/A+qoc+bF4VlYEH
ZBpqwPm3uhTJTw2rVu9ulC1UAisH1bv3oWoYzH9RTaajEhpk20IcYtXwQ8W/
vSLZlcAZoNfolaaGrOyNL701K6F7imR0rpzIR/2iaN2oANmvTl51S2qY9sRB
SdqxHIY3BFlgUw3/JDwmRR8ph2Te8bLndOrYN3quSZKjHMbJXit9XOpoqzjG
5ZFRBtn9QQlzSuqYHMCYHhH6GKhenC0UilVH2p3Kzc+PPYRHP7QNSi6oY0Di
1uwQ30Owp6eflUlTx6i4Q7U3hx9AtXbyf+p56kjXcV+SyeUBeDVfabNtVcdP
6n7SIYGl8K7q7kgqnQYKDvJcpSkphoLbz/lWLmkghTdNZ+/5e3DrmNTA0SwN
FOARFP5ocw+y917NqL6tgZK83EgrcQ/Sspzpg8s0ULmUT6eytxCi0v5SZt9p
IIuk9/Rh0UKwPC3XPrYLMMjcsKZr7A6YqmXHavIBLv51VOJtugMG6/+O5IsA
5i6rUHqu3QGNU68fOioABrd8rrI0ugOSAZ5Zn2wAj0gWf3n8pABoj+d699wA
zN6eQPvzTj5s8dKKHLoD+JG1Ofnl2XxY/+zzNaUUUDP68M5N53xYOKpkZdgI
yC1hl2ohkA9Dpv1qHUOAjXq123R08+DLbVrG4Z2IaXkTJU4+uVCVpjLYZ4kY
Zr8r7dKeHHC9uYOuwQaRVsYne2TmBnAUj0kX2CNe4/yjmd18A4Jak+MDXYnz
3y1b5TxugNTSF3GWYERl9ZLrv2uzodAuOkI3A3HQZ8fAd9/rYHXC7I7UNcTV
Q8UsHDrXgSZE+PWuG4hsKfsPZ/FdB+fUV/vH8hG7Tqfq5/ZkAd8z3q7T5YjJ
QyIRGYpZkCnStLvuLaLz7+ger93XQFsuHfL6ESGEwfPmYiYsqrt7JwwgXtho
+8L9LhPMbVmeWn9DHIZc0kxKJrAkH3P/NY/49MDMtyn6TDhP2aiU2KGJQl+m
91UxXYXQBnXzXBNNPJnKRFHTyIAa+y6az+aaeHb3xSwZwQz4s25ew3lUEwMV
C/JdaTMgUtV9b6qjJiqpJuolvkqH003J41EBmjguc7y57lg6JDYPRJDTNTEC
JW2cOS9D93EXycxMTZSOrqNrGk2D7VvTw2+zNbGaZTD0QlkapMI/Lf0CTSwe
n7RwNEmD9BYRVsVKTbRWNtDflnIJctpOFux6r4mVUcxP1HhTYdD1r5XZJ03U
2De9d2U+Bfi2XaBPGSLqK5njzvYUuK2d7UszoYmPdlSbHfVLgbsdzQq/ljXR
O2eMSqA9GR52Mr/s4dbCMwLrbLNxSfDs5b3FJActTI3fkhk+kgiVPO9Oxjpp
YddNjcRN7kQoPLG+EOSmhdwRHst2qwmQTGNGsfXVQmstMZHn9QlgrbI6cyBa
C91uVEraQgJMlxhNtOZo4S+Z4+Mb1heAM4kysPZZCx/9/plPe/8c0A/ssZ0b
1sLZubCTzZfOwZqIzseRUS1coRneVRR6Dr62ZL/v+qmFIbr6uKl1DkpWNXuv
rWkh/d2Boy2j8aDhlflSbo82Vp2yTdE6GA/e+spPvcnaOPhri/bT2ziYF9vz
vOKYNjoLc+XM1MdB8Pa112vO2qhUX3FcrDAOYt7UDSV5a2Ndsv8Cb2QcpFsp
bZREaWPBrvspIyJxUOt0RHX6ljZ6Bb9a2M9wBmgiFOp9RrXx2NHAbQO1MZBo
t7u1ckIbH6X3/KXKjAEW1eXu9Z/aWERvyu99MgZ2/6v+lLyojUJ5HoW/pGJA
7Lz8auk2HdRLe1/6sSgazNL/OzJzQAcLlBacku5Fwa1iuRpfHx30+aJiRH4V
Ad2f3brzAnTQDWgvjZZFwNL2rMH+YB0sNGedyM6MAGP/dWq1aB20s70Rln48
Atbl2kksqTr4jK0m9sZSONg1Wk89fKSDe3YMWXaKhQNXTzjv/IIORqeSrQ+X
hYHWVom00LIOXhAsj/qUHQYBskOaNms6KOSjkH4nPgw6r6BXM7Uu3v31NbjA
JgzCbJlq0jh0Me2LXqwWVRi8H8khycjr4tVlGHxvFwoZv5+eDQrXRU2TxITT
IiEQ0JfucixaF1GA1ef4rhAwqXDTNDiji0Ev5kdsaEKAPpCJWiBRF19N8HxI
HwmGmGnruLdZRD2S2Zzw7WA4MTpzWrpWFy+VsHTn7wsGtbd7YmaXdHGNIthP
kToJex7POnxa1cUK9fafV/lPwp/UZ6odG7poEBTRbsx2EiqMPP7epNVDji0h
2T+/g0C0szzKmFMPSZmb/+SagoD9qX5k6X96mPvH/Zm4eRBMload8grWw8rA
bWP3tgeCzb5/X4tP6eFp7ZwVx4UAeH45Qf9nlB6GBka1q34MgMLQ6zw+5/Rw
RqfM0fNOALhq1Df4Zuqhy16u+lNqAfC1d+NfQK0eVnTzFKuF+8OH1XOJYet6
2NWn8HaIzg90fFkWav7pIevpK9X9FF+oHs4k/6HRx52l7pSpz75wpe2eeDiz
Pt6yz0j0f+wL5qldryL49DF2TUjuM9kXXu9nZovR0Ef1+Y5rrFU+0KF3JTs+
Xh9P3iMV1kV7w8SJxjdRCfooy2aLZB9voE8cpwlJ1sfMhFJzVjtvMOhS9He7
oo/lvEuaTxS94bX+oKbOHX3kvXQsg/63F/QbiMzQtelj+tbBxrBALxgzqlVP
ojbA4IDiz+9OecI232/BZ+kMMJWvVPi7pyeIpDAWRzIZ4GWSuAKDnSeceGXP
4cNugI4tL/C8qidMG29NGgkaoK93zRqJ2hMWTQzSWTQNsKdfT3Jn+gmgNvsy
djnOAAXarhldr/eA7uajwqHnDfAM++uexYcekC7d60a+aIBMAq+uHMv3AIEd
3eMC6cT9hj0u2id6AL6pmazIM8DK1K9zm0c9IM44Y7q/2QAHc0Za3i27A5WB
wSL3pgE+TZLQPQDu0P2k/fAGlSH22jrXCcu7Q/pBCBmhNcT2TEdxaXF3EGBQ
XCpmMcTq4ez2E7vcATuF/yjzGeKiWgy7x5QbxOlsrTmoGiJzg9bHxEw3oNKs
pc6PNEQv867KtSVXsNf58fJTrCEuLGUyJk27QrU+TyZ7vCH6Xr9sKjLiCl6k
KNFzyYZ4rdbN9fQrV+h10DA+cdMQWePmx5vvuMKdU52ZUk8N8YxlV52rlSvo
PPx4sJ7KCG8mMD/taHKB22UMv37RGiFvQlFFZZULrFYqNUgwGSFbf3RpaakL
PKzPMbnFboRnBVaD67JdYHfX8ZNnhIzwLrfkpGGYC0yOTjbo6hihyRTXJSVZ
F7jIvWLal2iElQm7VaYeOkNmd/f3thQjlDsn4HD+njPkReZEVl02wm93Gb8c
vO0MtYPq9zKvGyHTPXx7/rIzTOSd37C5b4Q+c9TF14KdQUuM48FgpxEyv3HI
ZlZxhg2lQ4wTdMa4Y31Dc88tJ2Cc/pf7gckYU+9LDTNcdoJdN9/918lqjDm9
vOzb4p1AYjPE6f5uY/yq+fkfv5cT2LU21HofMMYahtj9M/JOUGto4DGvY4wH
mVzed787DkH2bm0r54yxhGlaHtmPw4686RG1i8Y4xH2q6THtcXj4/eTW2VRj
bLdY55ZYdYQffnFqLNeI+rsdmfS/OcLxM7m1AkXG+PZU8Xaex45gUjhQatht
jIyBqrKMJEcQmze+epPFBKf2+xlVZB2D0bPE0FwzQd3mtSU0cABRrh1pQTdM
cJsP27E8DQfwKf3xpCDXBOWdEnvpFRxgqS+HmbbIBIVm9esWBB2AUYS6qrvW
BMflOnVkNuxBuvMNteUnE2RgK/Awq7SHqO2eee68pujNvPl7UMQeOK/e+JJU
YIrp0+K8EoJ2sP3Drt7ge6YobVNZR7/XDqi407ocSkxx3+MA058cdjCXE199
qMIUT2V46bbQ2kHnHd+03hZTbJK8/6Z6igwRlepae0ZMsXzwjFxVBRmGe0dL
ivlJqHlF4NOQPhmK2CQiu26SMHJ55kD5OVuQnrRbpc0nIe+RHHuXWFt40pgU
rlVIwsNPaxl5wm2h+8TPsKcPSagcslV/zccWppuKg6ueknD6klxPr4UtHPI+
6Jf3jYQsdWLF+oK2UN0q4hQubIZj5ZuWNB020Bq8X/fgAzO0K+tnu8ttA+vL
lHS+MjO8yKY2+o3DBuQjW4bYq8xw4i6ds8AOGyg+4xK60WCGDdkVdg9pbSA9
9e7d3pdmuK95eIDy6yg4Fx2kiZk2Q7Y9H0yE3hyFrdnrTlOc5mjMkL2yP+Eo
3BbI51O3Nkf/QGmdD9RHYUeyXPchG3Nk5S0WXNu0hjO/20L4yebYV3Gyd/+6
NTh3TrzccjDH1KdMeWGL1iDkJxnZ5maOP7hGq7S+W0PRk9oP+iHmeH7vq3fO
z63hMelNmuUVc/xZdlotN8UansasU3m9M8fY4QjmnP3W8KdsciG+zxzLVES/
7OWzBtnvfSO5782xY5jX9jaPNRQaPmjp/2SO537+Z/WI3RqSuY7Fwag5ZrW5
cs9sswab8qdbXIvmKPaBZ/r7lBVQvsf9e77LAn+b9KY0VluBoDHDhrCtBWoM
PXdMsrIC+Q/afXvtLHDnxgP1j+ZWoOcUV8zuYIECIq82REhW4BOyZr113AK5
BHR3dRtYQfXNmUdfTlggzRveaBENIj/71injlAVaiy3RKYgT+UvZ7f+uWWCI
ueWFB1RE/q14yuf3Fhjb/pbjTrUlpAu33lv/aIFlJ478J1lpCb7h5Bbezxb4
4Fi+QG2ZJQjtT1x2HLZAKVrW472llnA5YNxpbMICFemb1PcVWIIPa578zB8L
ZPvb4MKUZgkCxpxfN3gs8cCbS53i3paQ2vlPVsDREiXU2WxAxBKuhvz0cR6y
xJfnX8nMVlpAzG7+nUJ2VhhEK2kYbW0BJeJ0L0NHrJBvaoIzY9Mc6Jeo97Qe
t8azae1c9+rM4b5sxenbP6zRRnxDgCPSHMRdS0mb/kdROwOH9+qYw6BhfeXR
maNYzqjZ93aPOfTdjToEITaY7D2iwjRhBqtVFmpCizYo+aSJRqLIDLbqgmsS
AmxRqFPq7FyQGRjL6unGLNti47i0/BEwgy5HGW/fEDKWHPjubMptBhxuXo25
YWS8Vs40f5/LDI57FbC+CydjV7rvBA3hP8G7KuVjyJiIw+wNnGYgcnFlffM8
GRWnHewPcZhBXOWz1PQsMiq9Hgs6yGoGKgzm5TX1ZBRfX5v13GYGCSxJNFON
ZBSRv6r9lsYMetnbrPc2k/EB6G8oEvbik1873UbG6Ya/VxiozeC6HI+WwSsy
fuuJJD36R4Ilh5H+L0NkvNE32bF9nQToskeU9RsZPY9U8UeskSDlhGUEjJJx
XDL548QqCYROdvAVTpAxvMrKqW2FBBYJxR7+82RsfKHUc2aZBLdSRp/kLZDx
uZI6+8ISCabS927vWyTjZS6dcmfCcTdTHyuukHGR9Si19m8SvM5/TuW9RkbS
/uHK6kUScBf9s7z5l4xLaW7PRAm7Pjhy780m0S/yfdEbv0jwuDxoZWuLjMUR
nlPMhP8HRtDgDg==
       "]]},
     Annotation[#, "Charting`Private`Tag$47748#1"]& ], 
    TagBox[
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1mc4FY4XB/CrCKHsEcnIuNfmUtY9J1kpsl00FLJHKIXskZU9QiFC9qwQ
oiGKJNUvbREVrggl4+//6jyf5/m+OM9zXnyP6Gkfc+ctBAKBmY5A+P8US1kr
uS7cTSHUK/DtZazXvsNE3OPlWgiEPM7XH0qTKd0XakulXeuA6ZwLa9PwNcpj
xbMu21y7YJx888L4vlrKk6Rhw0WX53Bp5Hy8MWMXpU8jqnXa5RN8nr+y5+7J
IUqVFleoat1neOsT/FU1+gXl1zunwoDKL/DdV787u3qYErqLaWy+6CuYbwT2
0zG/ouTkmLjQkieh4ufGyZBfbyn9ae/OTrnQwNPkiq+X4Rjlcm52X4bSHFxI
qnvWvDpGkXUFO5W6OQhQXN/p2PSV4seYFuxX+QsGty5ZcEhPUNb1yJ1zRQvA
62Tun60wReF/EHRwJnkZSpaob7w7Zynt6eIjSSx/oLzbv2mpgEY5cfqZk2z8
H2AVKKtUhzlKKZ1wrEf0X2gu8y7bL/GLooTdT74H/YPgNuaTj7cuUIw6GE2+
uWzAb9aUsfydyxSljdOLvHMbsGhYY5BaukxJEjk5KK5FwI3X1h8rNP9QAk63
nbN8SMDC8+q1jr5/KbrffB+2jNDheJa43tPf/yhjMx9OXVjcikre38y97xLg
9ZXEllR1emRncI9f4KGDfgV15luX6DFP1fjhUAAdNJ7NrH/LwID5Jqvny9S2
QMSi0YYG7zZ8tHtATu/pVhBZu1OwpsaEhI0It63ajMB93XmOJ5gJ6/pqxy82
MgITcOnKdzFh73CMWRGRCWjh3j9PGDCjax5nF/duZuikl9C4b7MdW0+UXtAV
YIHjrOlvIi+wovKOxqtPPXeCaQ3I5N9jxWMeBR0kAjvomsyENhHY8Nncx6R1
I3aQTTWUHL/Mhq136g99+coOq1wbAXpXd+Bdf5OCdTFOGGBTY6Y/zo4spYwz
F0e5YfgwZ+5gCDvuSeFj+6XIA//Fz0peLWBHrqwwzdTLPDDOUK4r/54dv2+V
9LTS5IXVNb5wqj0H7vrTbOxRxwek2b9L1bacmMRupdX2ahcoyr6OCbzIicNp
7zbqUBDU3Bu5da5yorV2xjpXjSDofHNXfvMfJ5rZhL3dnyAEth/fedFRufBX
x40nQdbCcHmwY9zKmhs51T/YjO8WhSusef4i57lx3idUhcVBFDKNzm/5mcWN
cTNv2XhKRKHwsbxI+CtuPJiQbvNBRgxudxbaV1ry4PmpAc80Q3GYqI0YXjfn
RU4F3kcmDRLwY/r4qT4/XiwRXCnbvVUS5kgacxnpvJgafNOFwVoSVsvm2YjD
vPiwm1IqvyEJ3IWOhyzM+DDp2tyY2Ulp0EnRu19+lB//E5YlqdrJQLhR861h
b37UGTWfP90hA50M4hlryfzYJzH87YOoLGiEEM5YPOPHwN/+tQOzsqDi1s6y
YSiA3uKBMjxX5WHvQSUba51dWPdbq71EQAlOrxdixKldmP6FL+yOtRIUte4g
VYfvQncWkmdOphIIKU6v0nXtQsEX9Nd7OZWBZ3f5jRpNQTyqw+ysJaAC25aF
ZulVhfBK5VLJTjNV0G1MfKNgKYRWlpqPDhWoQqTXyn07fyFMkFoJC5tShfWv
bzLqG4RQ4epC4fcoNVgeSlc/Jr8bTSr8N/h698FUJVNMk5QwRmtWeqhEaoDk
mUDvj/rCKJE1f+HlRw1wEv1mw3xGGP2ZP+2r1NKEzzkPSCdLhZGZ8nkPy6om
vI0OHdouugcLRlLnGRK0wVlhhU2JTQQFWRdyrf0RjryLu8kvLILFpn7Fag0I
5DgebYKCCC4YZm7/Q0Og/6To+dxUBG3deopkfA/AjSsu/V6ZIji1/MqoNlgH
Ps2MxFYKiuLrFMvb69268PjqaeF0WVE8HivlFr5TD2r15louaosi91PuNcET
ehB6jWXC8KQo9uxU5mpY1wMhY52DkzdE0VpTjOGRsQHYVtdtiJPEkDz+qZ4k
ZQRI1c5h0RTDKr4W0LxsBNL0T+UXDovhq0cfHlT9MII/9t+O93iJ4bJobHl3
02HIZtl9z6FBDLt629otbIzhpXvChWv7xTH0xTsdywBTaOPlZ485JI77KCc5
+RtM4UbPzXJPO3FMjd7veWfWFPx2db/WDBHHG8WJy1meZsDev0we7RLHL6ps
f+X9zcGY6PyL12Aveni5xLXUWsJK4rn2D9Z7sTZzprJ00RIqZmNiSs/sRWJC
R1KkthXQN5cJKMfuRdfuhft8Q1bQRpk6YPxoL+Yn9TrS09mApKVHetRBCcxx
Kyjuz7SFkdvBx4wsJNAUDAxUpm0hQiBJksNRAr1J6Qbdunbw/mN12/VICUyN
yk89/tcOMtxmx1q7JXCQK2qI6ewxIISdVZkDSaz2PpR4+9pJqP0SsXb7qCR2
xPvq1NI7gL1ueu+lk5JI/25UV1XTAW4zN9mzhEminYz4IbdKB/DM/B0l2SmJ
5aNVr2rTTsHbW4Ejx7SksPrIC/L7GEeIZb18XfyIFFqJTX0QeOIIZJ9c1x/2
Uri/podIZnGCVHLramCwFH5aJfRtz3QC/a6VvRltUpv3tSJk1TtD48ilc337
pbGJd6f0Qz5XqIhxOj12SBqr380N8Pi6wnW1w0f/2UnjNrnPb0v7XCEhl58o
d0kamTmCJpLD3cDxWNP71G5pdBC/xrtz3R24x6cOUo2IeHiOYd+Upjdsz3qu
eNaeiGsu+n0HK72BoH97d4InEc98jqkj7vKB6fKo5fYrRNz/Mdu9at0HHnkI
V+15SUQmuYTrGTO+cH7BgnPSnoQsRpItkQt+4FmqsbHhSULjX8sd9vv94bSV
6DR/KAn9uhNHpUP9weTO7COjok2rh+2pYQ0AqeD4i7XjJIzk0kzqVD0H/23p
+nzOSwaDBG2iWNsDYbDp5sCVUBkknczRf8J+AR46JbWVp8jgWvx8UoPLBWh4
bJv5tkEGvz6x6BcSuAgJCb8NtJdk0NlaXbA3IQg0OUl19GGymP16hWNbzSUY
pLPrG0iRxTcvZS9m8YSCw6/4r9lFsuhXnBEaHxYK0UPf+Yg9sti47/NYvU0Y
DF65FW7MIIfXJQT87iWFgwML0Tw7UQ639znfuOIfCfMrVM+TBXJI73/mGkdz
JET/uBwrXSOH7K+Tub0WI+FW31Rb26AcRk9lHr8bFAXzcRXinzjk8VQz8e50
SjRE00svSuXK42+5p4bkyVjg/W2z81eFPOpfWduZoBYHFV/jiG2t8mjqpZIx
ERsHAz2Tx4+8k8d65dXRVtJl4I0of+wrrIB1zSQ22bB4uLUmmdtaqoAkDxWg
P5EEWjPWjZEtCijixHJCvisJBt/HPjv8WAENW9JT00STYb79G+HjpAJKyWrY
c/xIBmHtl+QIHkWkBr2n2SakgMu/9Gs3qYp4oJZnIjcmDTJNph9cdFBEOUt7
ysC9NLhfrPfD2FURn3aaMZf8TgN+wz9qS4GKeEutm0P9TDo8yTw+pJ+jiGTH
fTs1zTKAKC+9deqVIrr9eyu6bpAF1hERxHsfFHEH1wkupoQsiBwZPZo6oYiy
rwPUB55lwWhQcsH+RUX0v0scTLHMhoTeedV4biU0808d2uuVAz8dOlxJFkqY
P7bos/3hVeBv5k1Zt1NCrfVXu9M580CX0bdl+LQScotrKM+dyoOCGrEtwX5K
GPtlW7ja1nw4shKX/zRNCS2KVg8JmRZATYb5oOeQEs4kZ7i/4C4En8eTKnXG
yjhvL2n+r/IG3MdqD1lrZaQ+yzs7M3ED2Nt9S26dUMZ7ofmvL4mWQH3dX85S
H2VMr+HJvpRXAvO5LPO5acqo/P5CP09mKZz3UKiPfKWMQRLuxjFlZfB4YmFy
44MySuetDL38WQZ8Dnf3XPqmjHsm1SWGlMrhruWBlMBlZWw8mNT6qqsc/mpb
eHsKqODNQ/pjsuMVEMIeKGt9XAXvcjsX3TepgmcJmk4vnVVQ8GX6waOFVbCb
gVBg6q2CW83j1HPnqqDz72WWw2EquIeOsco+qxoIX/N+QLEKRqaRjrRN1kBU
S2cFcUIFVZ5xRUpR6yHBbpvEmicZV6uL8x+7NQFFkXXpewB5s6+MSsvymuAX
A2fv6xAyFo7wZ79/2gTUht1u9Ulk/KNA0jJSaAYJJtUax2oyHiBbl8qsNMP9
FkfV/p9kJPdalC4V3oYl9m69HHdVdK19cfkuqQ0ce4PPKLmqoe3ksZ5PvN3g
pCVpsuSjho7KcUdy9nfDmYYh1fZANfQ2XEQfu25wzZdg0ItTQ80zub5h17vB
2+d5CbVMDS0T9z4QkO6BID7xL2Hjapgly6HxDx9Auku//aDDPiyvY9uIjnsE
3YwCZh62+7E1csAtwKYflDjCs78HaKDrIic5sWEYHBa0ZU08tVBHiWfefvAN
FF9/JLScTMEpP5qd7sp7aLqi8W7YHFFoaIx2+PFnCGjTNr125AAmGoSfc64a
g67+m/Px9joYSro67hg0Dm4G6h1u1IM4vWC8qPZ7AgoqlFo83HVxdI3vVgt1
EtIWOiJ8A/VQJDXZ8XzcFHyrPHfe1U8f7S5p0H8P+Q4P9dNzIyMNMC47smTI
8QfQHR0dSwk3xBqZqO1Jwj+BcOA2XdHFQ6jYNXSetfMnXOZbNh6OM8JFSrCX
sOU0+No59ixHHcarkUxTrgPT8CWC7ARZR5CMpqUyMAPcGVdH44uNMStTs8a+
cAbK2EkXe/NNUDqNZVVgZga6/fboSVUdxRSzhZuCarNwXaRISNvSFIl0qkfZ
zs5CR8gKwXXIFD9y3XO0LZkF0cOMq+I2Zhh6OMCtbHgWmp8TE9+OmOHyR+bS
0T+zkPR4XVHkuDk6eZdM1wrRIMP/u7vDe3P05PhEn6tOgxAe4Z1ithb4bsC2
lGJOg1tEhv6AzxbouiVa/YwbDbb9phPoPmGJnRE1YXwhNChXbAi9PmmJE+3N
BnnJNCCerjRZ87LC6vPRW50LaPDuUGuj1U8rZCsuDrapoMFwSZAc+FsjJW+P
ZnITDf40mWmJzVtjaMcS89V7NNi469cS622Db9ftWE0f0uCwor5eyKINHhML
kUh9SoPe4wpuHv5UdH75psf9BQ04HV3br52j4o3Eat6oTZ9wLWYbCqTiibZT
9vmbXvLjaiSHULEmJfXO003vvby8shZNReWKxXaZYRqEN3YlpWZTcYU+YXVq
0xqMpvUtrVT8tAPyqCO0zX8ifstUOxVz/EUEfTb9gqPHclcnFet+rSTHbNpV
iPw3tIeK9iadhxo3naPEr2P4lIoy/AG7WF7R4Lf955ej76k4cspQum3TeEpA
ku3TZr7rzbPnm048Y34BvlCxKW7acWLTYmcfCpVObO7n1efG/poGZrEVzl6z
VJwT0H/lvOmCxC93CueoGHVsaUfwpqdSd20fnqdikbKfZuqmw/OTatWWqfii
hubZtulnRY8Ibn+pyP1hi9/zTfOVrZvn/6OiVjO9+/imT1ftuzmwRkWHP2uW
fzddW++7vLFBxVzvZeUdb2jwP+2TkHI=
       "]]},
     Annotation[#, "Charting`Private`Tag$47748#2"]& ], 
    TagBox[
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3k01d0XxpEp8b4lCSHz3EWZ7jXsnSlkLlwhQmaZZxWSKalQyFxEZEgo
FIlUQr2FCuF+k1DJkJQMP7+/zvqss86wn72e56wj7OxneZKBjo7Ok56O7v+j
yKW1mwWC7VoqUg+9J1T44D6r9F5fj0K4Pyc+2HeJD9rDq0ukPGrg74PbVb3T
fNClEODO7NEGykO8p0KL98Dz1DcGS+6vgG3f3+DIvQLwgnKu6Zv7GBQtN2kZ
7hOCSo2dZ5RrxoGR9P2+oKsQzA+7FgZX0OCPVlpjda4QnOFjJRaKPkHGHK/u
OrswZGWZuv+4+AU6ZIRCLvwWhu4rwwFT7j/ggBQ/vfUvUUjKvvYiQ3EOPGvE
T38ni4GcBxw7UDMHq1U+4d5nxCCQ5UpUYMU87HZvfSnOJg7rekqtc0WLsODJ
4TclJwE8HZE63y8uQ+bs5bNWN6SgJV20P3XbbyjRY7TrWJKC4849rnLJv8Fd
c3LY2EgaSugFE7zj/4Dv0GH59l/SoIjtz6cj/4LwsV9PMxxkwegRi+mk+wa4
ilpxariRQHHDeYl7bgMY0lpezwyQIFXIsU9Ugw7Pjp4LVDokD8HOzSFHO+nw
9+I2TpvdCqA76d/Z0E+PPRj43zSrIhDfP54IX9qCgw/iXHD3ARhMu9BwmcyI
N6Qnwh0cDkC3PHnr7dOMmNV31iG65ADUBWTWfmBiwnekmwu9ykoQu2S0QeFm
RpWg41/FTiqD0Nr9vDUVVmwU1uSVXFEFroKTc7uiWHFE1nunsqUasMJOXVIb
K+5nO1+bUKkGP2JOfT1+aCvqunNeZ3YmQyujOOWxDRsaKLpYL49SwIE9/V1c
ODsOk/2/iAhogXkVyOY+ZMfLt/fSNV3QAl3T72fu0XHgVqPGiYm/WiB32UBi
IokDz6/3PN9JA1jduRGsl/MPtmsoWNwfQ+jlUNnK6LAd1QQMdy1OacObw5zZ
fdHbce1Acm6btA68T56VyMnbjilbgt56euvABFOZLmlkOzqFNpg6z+vA6tru
GKrdDhw5Ym6myqoHMrN/ft2x5cQg+dorbq6HQEFu8HxYBCdWnd5KulB/CFS8
6ri0czhRJ5Bttp3JALQnvfa/e8+JRUnOvkGVBmA7OuxLT92Jkc7UbENGI0jq
ezRhZc2FQ3TvZHx/GEMa+/UgoVAu1Js13JdsaQKZRqEMX69y4UtW5qHfjSZQ
2EUSihngwtXob3ET50yhsbXQruLoLnSpp4ge2G0On6tj36xbcuMbJwkn/s8W
MPPN4cSLQG6c5+W3dhKxhDkZylxGOjeyu5ibhzpZwuqtBQ7pN9y4uJ8jS3TM
ErgKXQyPWOzGD7e3WL2ZPALal/Qel5nxoGWzztiGsDXEGNXffnOKBxlaao+B
jzW0MolmrF3kwVu9/7wIu28NlGg6tyM9PCjzVU2CZm4DBzxbtm0Y8OKYTUzY
0iUqiOko2lhr8+EqaXmvsLYdOK8XYuwJPtzzZfVZcr4dFDX9I3Mnhg+5dl40
El2xA36Fb6v0bXx4I00saqXRHnYJlN2oUt+DUancvfVwHJiX+WcZlfmxe39+
ac5zJ9Ctu/BO/ig/Ut2yf4zQnYA435XHx4L4ccYlaXSYfALWP73LqL3Lj5Sv
WZG7qk/A8ut0sj1JAL327nBrLXSGqQrW8/ckBZHkP6PjWOEKEm5hp0b1BVGo
ZJXv+g9XcBWetNnqJog1K09tHiqfhPGsDhnHEkG03nLb7knnSfgQf+Y1m/Be
tLxVSic26wYn5Vc4FDmEMJTwbmQP8ATj4cRSHkEhNHIZZQjv9QSlxF2adPJC
eJDXOGS/rBcwjin4vDIXwqeSZj5lM15wI8292zdTCF999mXkivSBse/9CRV7
hDGt2GNAfswPunKcBdPlhFHd2ZHfS9ofqvXmGiI0hZHlVrsvh6s/nMnf9tnA
URj9taqd3w77A7+Jts6XG8J4iIVMqR0IANs7NRuiMiKYnSutabYUBEjVzNqm
LoLVe26mF2oGgxTjS9LiYRFUL8s3/5kQDL/tJh2e+IrgiwwBs2b+ELi2TeCh
010RzCs/YyVqFQpvvVLC89VEsa+E/b/21XBo5ubZft5QFP/xft4vZhMBN56U
lvkcE0XWBe/il3UREMjXPqgeLYru36/VLvtGwvbuZaWhNlEcN2hwNfsZBSbS
J+e5D4kha7Nsu6zeWVi5ENLy0VoMA3O5NkKqz0L57PnzJW5iKDVh7HGJPQYY
62/x7k8Qw7dDb1PNImKgWWvqoMlTMVyzY7f1s4sFiaPe6ed0xLF58MeMlu45
6G+Msjc6Io4MX9nMl+LPQSxvqsQOF3EcqNJhius6ByOjd5oL4sTRV6VyWNo4
HjI8Z4mmdnEc35Wfs8X5PNCdDTgwBxKoRPoS6dycCNW02LVGMwm0vey59d3W
JLDTTX922lECy4z1t1gcS4LGrffstp2VQHfi9C6X9STwyfx5TqJVAiOmZpud
jqTAh9th/fYakmgRNnmo+8BFSGBPKhA1lkRf09i3ylcvgpJftseMnSS6vK61
GVu+CJeVmlbDoiSxR+Ln5OrjNNBvWxHLaJbEzn2pKt6Kl6Gu/3TICzUp/Mq8
56HlzytQft7VmTCUQiJ6j+RvpXQoUDls9veYFGa/kRCOCU2HlGwe6X2npRBv
W1jqrqaDi/29kcvtUtj5rih7iTMTuCamdKhG0ojdpqQWv2vAdvWVQoCdNN40
Cx9heHwN6PQbBVJ8pPEn2+hJpx1Z8K3s3HJLmjSe+fpn3vt+Fjz1Fqzc+1Ya
l3oadPftyIHQxSOcX+xk8Njw+djc9VzwKaFsbPjI4GzJcCCdcx44Wwl/4zkj
g9+K4z/f78oD0/uzT42KZDDvwWSafGY+SEYlR1RPyODumaS6ZiiE9wxt4yG+
sjiofpwp/lQx9N0r7U07I4vku36VfZXF0Oma2lx2SRbrma6zT04Xw90u28wP
d2WRmZHrTrzHDUhJ+XlI85csFh7P5nzqdxPUOWVqGM/KofHfibXQ8lLooz/2
oveSHBZEjRtZLpSC03zyp2tFcnjtU3sGr+YtiH89vVv6iRyKnKjYHjpwC/rS
bseYMO1DeH/3650d5eC0Tdry2oV9uNX5mpR9cwUsrFB9HPP24Wen+hFZrkqI
n0lKkKrah6v7z5vt8KuE2y+mmpv79mHIL/rTUlJ3YCGxXHRsBwlJITVmA2VV
EM8otSSZTULbAmHtbr9a4P5p8+98OQl1s7klmW/VQvmnROnmJhLWKx6X/jRS
C71PvjgYD5PQXDZCPMH4LnDHlnX5C8rjw/REm6wDdXB7TSK7qUQe5wdOLQqK
1IPGd+u6uAZ5fNKh4s/lUg99Iwk9h7vk8YP9lGV7ST0stEzSjX6RxzsMSjn6
Mg0gqPlWKXaXAvoYebGJaTWC+9/0/FKqAq52N7KZpjyATNNvHRFOCugVdMdA
5M0DeFysN2PioYBOCy0Py/iagMfgt8qvMAVkiK5V7K5qgueZDq/1sxQw0eZs
dMJIM0iTpLZMDSgg1zHunBz7R2AdGyv98KMCkqStF6drHkFc/5DZ5c8KaFgr
n/N7SysMRV7MU1tSQP998b5Hqlsh5dmCcjKXIkre+2/zSX0MX50eecgcUcT6
J3L0O0Lbgaee+9L6sc15z0qB3tJ20GXxb3jjrIgPfmdofRtoh7wqEYaoQEW8
Y6vdd0T1CRivJOa+vKKIZa/8p1+sP4GqDMs+n9eKWFCvv4ta1Al+XV8O1Jjs
R0GBdoNt+57DY7zjLWe9H7nUTV7sPvUctrf437x9fD+mMLOUXal5DrU1fzhL
/Paj2YxhY/eBF7CQvW0h+8p+vMaxJKJ1sBtCveVr4wb2Y2FfuZCdXw9Ebw+T
s3Y4gOPLVvd5k15DyjFm8TUfJQyu+Wb1Km4AtBTYf00HK2G2cNZ8e/kAzDNx
PhuMVsJytm919/oGgHpXwLM2VQlfJPIkXeYbBHFW5SqXO0rIjrIUzrpBeNzg
otz9VQkLNV/+Nhx7B7+2t+tleSlj+WC5nLLsEFRMdnHHByrj+khmALPZEDg8
7PniH6mMhpOsrxoCh6DT/X2yUYoy6rVGsFQ2DcGV1h+9a7eVUZNv21C/3jDI
+Qhau04rI/3NpBGq9Qi4PItyU/RQwQe1G2htOQquGhKmv/xUUOio9mqZ3yi4
3X2t3BKmgo49e3Iep46CR644k16iCqqa1wnqdo3CKb9XN6m3VFDK/8fieZUx
iNwtSjs7oYIen07SupjGITq197nuNxXcu7cvOJlzHE7Th9du/amCxmEx07J7
xyHma8/ZjC2qWFmX1vOv2jgktIUKlomoYkXB72lTj3FId++263NSxbaAWfdL
T8YhcyRYJ8NDFe0m6qqgdxyuWuyVpfqr4nBX4K/ed+OQrR68QjurisU/qKfi
v41Dwb+COUsFm+vtvzJRuWhQFP88pvmWKm4bvh+wLECD4j+BHmerVfHEvHtu
sCQNSj49U93aqopPdwows1JoUHE/YJD/oyp+0FkxzXCgwR05/lbahCo+O9lz
VciNBlXFXaW3vqmiqOmp+xdO0aD2wp4QhVVVrBHSq/17hgaNjk936u5Rw3fp
atE6BTRoZ+G18LZVQy8zruGzgzSYvEky+nBCDU10xZajPtKAHXV1Dnmp4cfc
BWmLCRpQw/2URaPUMHOxxTZxngY/pp7yDuepYbjdhIckGwFc54c5DUvV8Feb
QdTcvwRQhOe33a9SQ49Ijy8ZuwhIsOVfT29Vwy3UxWAvIQIEugMJo3E1tItY
zbVTIkDbLWn4wZQaVknGZq6qEeDBUNAvMa+GxUHXfSM0CainvOhiYCCjMf3Z
yyz6BAwNjrb5s5Fxw7bzIK8RAXRBPx+McpIxUqu5hMWUgMOVeyubRcm4J4nT
K8qKAP9DyiVScmT0jF05SG9LwLVPRvnXlMgo7e3S6GpPALEn9FKgHhlN1Doc
nzoTwPrgQtK4CRmHa4Ct4yQBpKPFsabWZJRDA41CDwIiUnuCZNzJ+FTmoORP
XwIKpAifbD8ycoarHvf1J6Czc/kkczgZq5+Y7eoKJGDGicMxOIaMYadoF9aD
Cdi+JkIlkjbrGdOh3x1GgEqOmoX5FTJujeir/zeCAHtlU6PWHDKmFb7/PBVJ
QJlvhMb1CjKuc71+pHmGgJ6tl5RZ75FRXY/+c9NZAhZKS0ihLWQcNDO/sDuW
AB7tZsmJDjI+T0tcsI4jQGv0lZBlDxmZ7QPsw88R4Br5mfdxPxmTd7xni44n
IIX7LyfpIxkNtiaA83kCauu2s+d9JiM5X09DNoGAAVMJJrZZMh6VpGm/2+SV
GfX1sF9kvEIvetUtkQChRIvlz+tkdHRQDvmwyfqi7nNHWCh4mvhXQiGJAJ+2
6On2fynIq7ZvxmuT0+3SCXkeCtY/o2dM2eQHy2XD+UIUfLlC33hxk0czHvVv
k6bgKOWGdugmb1F42xuhSEGfeetvOpss1TPV9YVMwcXEzKVfm+eZeqy3WWlT
8Kf7q6JLmxzMyNXUYURBslamwj+bfL1Iuk7xCAWTFzmmAjfv/1gDKgvtKLhl
+p+trZv1Tr4/WsLhSkEjL86BH5t6sId45Uf5UJCuI+Mi6yYr7oi5Nh1Mweda
/wSzburXzPpO6lk0Bf8uDR/dsqmvNh2ppSSegine7SzTMQS8XI43iUuloPrM
XPv/+3P0x/CYYyYF+x/mPQjZ7N/I5P5AzTwK7iUtCwmcJuDkaDLjnhIK0pL2
K9RGERDaqyo9eI+CpR0iPNfDCdjoTGu510LBj7J3bOdDCUh6+NnkSgcFj6uT
diqHEJBTmRFo/JaCZpo2zXEBBDxM/tHyZIGCOQYfTml4EqAXq29atELBJrdO
pjU3AvrC88dPM6ijJbNgVaUrAWPuh5nInOo4ud3qz1tHAhj0y0xrFNURqrMX
rDb9c0FzfTyVrI76K8TpVMtNvytbBXkdVEf+vSnFdWYEiIttyRa3UMddwrSA
PkMCDBgcabn+m/sfsgg13PTvf38agiLC1ZFO88EWBgoBx+bZmW1i1NG1SPZW
pQoB3uPNMpyX1VHYtWj4jTwBaa3cwUk16njeM5cIESagP7KPOWRWHfM7Y3cr
MxDgECieY/lLHZdSGW7uXN/ML89oWYV1dTTq0fj9+Q8Nlqky5l85NPBaX0Gx
22Ze8akm5JzYp4EHHjjZj4zRwGlRU87URwMNppxYHjbTgIOT7nV/sAa+FdMu
iW2gQbPCkyC70xpIaLi2qdfSgOuUfotHmgZydsjIpJXS4PmUqdG5Wg0M/L7r
Xe0lGiiMOno8+KmBYvfVmjmdaUD3IrZE5LQmOt04nuFEt5nvBU/5ly9q4UtX
IOXJjMO9NMrwG0tEARnbQ6/+G4HgZk3zfOODKPj+H32Lqx+grbt0IdlOG6er
TUwiLAbB8xD5kSdVBzN5NKx2XnkLeeWKDd5eujjKU2bs/vU1XFl8FOsfpoc8
56+eZjDshcmKkFCPQH0cWL1oo3j5BXTqp2fHxR1Cc2/XS31sXUBvNkRcijFA
o5Xn4dOkDqA72EhfFGGIjJPzmistjyFp97LJm0QjVLC3siz98BD8j7k8WT53
GIV0plqD+JuAFqvkCleNMXp3xYfYnAbgysgZSi42wbZ7jd/zi+rg1naZiGe5
psj0bJujMLkW2gP36klWmuELQ92kpO+VUCBUxK951BwpkWnO/IfK4VH0Cp3H
a3P0/Ess+kiXgvBhllVRGwuM5+0VWKPcgPpX0hc+9Fugn3iWw4mmQkjtWlcQ
crBEZQXF0NFDuZARNO3lNGKJLXzCxa/vZkH0LsF/RWyP4MfMA48/3ciE29JM
3cHjR5DOSrHVseMKMP+k520/fhTb9j4L2PYpDcoU7p4p+HIUQ+Lu9h1OSQFp
5wrTNV8rbNOhdKiPJsCwYVOd1VcrzMozE/gyeQ7e3IzcB0HW+NDLu8RJMBZ+
37PQEFmwxrpKw86G1tOw8SCwIeGUDUqvHhMZmY6Awwr6etFLNsi97GHHbB4K
zxzkPb2DqNg88+dLvXsQcLp4tOSHULF75fdmLgXBcY9ijtdhVBx1Clm4YhYE
vwJ31ilFU5HvXPRSqmoQiCUtr6zFU7Hae9x2hCUIYuraUi9foyKvLK1n5HYg
UFjMaxuaqPjD8gOhtxiw+Z9MZphqoWLnqyOJPFMB8N+OJ0f5WqnoqL0usjAS
AB78Sn/OPKHic/sIUnNXAGQp8mgbvKSiWp0Yf/71APhpN/52aISK5Zr7z1Xo
BACe4JXgGKNi8HfDyzNqAXDBzTIcaFQkiBlTRVIAiAR08pd8pmLcwvFXb3gC
wCKh/KTvLBUr5mRdTs76Q94F2v3COSru4a2IG/rkD1OX+djeLFCRU35UwfqD
P8TkplarLFMxPWxd8kSnP/QUPaXz/ENFnn5lj7kmf9h9a90y9y8VRQKbxBNq
/MG5UrW0d42KdyZJ9iKl/lBd67+8sbHJXeosT6/7w/8AXARTFQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$47748#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 100}, {0., 0.9998999998979692}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.794380228853038*^9, 3.7943802669179373`*^9, 3.7943803108610554`*^9, {
   3.794380368835178*^9, 3.7943804249194775`*^9}, 3.7943812087801294`*^9, 
   3.794384024538089*^9, 3.7944037394540963`*^9, 3.794472656215861*^9, 
   3.7944853672942767`*^9, 3.7945539699970617`*^9, 3.794645089894952*^9, 
   3.7948028411127157`*^9, 3.7948371437702065`*^9, 3.7948447271444626`*^9, 
   3.7948531732352467`*^9, 3.7948841941958523`*^9, 3.7948874526594825`*^9, 
   3.7948948609945593`*^9, 3.794897040942545*^9, 3.794901253208789*^9, 
   3.7949189354516363`*^9, 3.7949209065433197`*^9, 3.7949755579448385`*^9, 
   3.7949776558574243`*^9, 3.7949857563780155`*^9, 3.7950125535354924`*^9, 
   3.795059724238861*^9, 3.7951572090200768`*^9, 3.7953198312394257`*^9, 
   3.795319967716315*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"1bebecd4-6c84-438a-895a-9923950aba15"]
}, Open  ]],

Cell["Otra forma", "Item",
 CellChangeTimes->{{3.7943807163300734`*^9, 
  3.794380733741929*^9}},ExpressionUUID->"15aaa1d5-918e-4336-955d-\
7373d1fa4326"],

Cell[BoxData[
 RowBox[{
  RowBox[{"solucion2", "=", 
   RowBox[{"ParametricNDSolveValue", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{"sirmodel1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"s", "[", "0", "]"}], "\[Equal]", "0.9999"}], ",", 
         RowBox[{
          RowBox[{"i", "[", "0", "]"}], "\[Equal]", "0.0001"}], ",", 
         RowBox[{
          RowBox[{"r", "[", "0", "]"}], "\[Equal]", "0.0000"}]}], "}"}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "  ", "r", ",", " ", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"{", " ", 
      RowBox[{"b", ",", " ", "k"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.792145347285343*^9, {3.792145859494135*^9, 3.792145860934304*^9}, 
   3.792159172996607*^9, 3.7922495027605352`*^9, 3.792328894028928*^9, {
   3.7923459125259132`*^9, 3.7923459817560787`*^9}, {3.7923493003095913`*^9, 
   3.792349308508486*^9}, {3.792395076171653*^9, 3.792395089793461*^9}, {
   3.792399532090517*^9, 3.792399532776864*^9}, {3.7924015378174677`*^9, 
   3.7924016009497147`*^9}, {3.7924019007673473`*^9, 3.792401915620026*^9}, 
   3.793977901793704*^9, 3.7939779758762503`*^9, 3.7939780291217375`*^9, {
   3.793978064395561*^9, 3.7939780653405266`*^9}, {3.7939781346219454`*^9, 
   3.7939782380905294`*^9}, {3.7939782891999907`*^9, 
   3.7939783042779737`*^9}, {3.7939783409590826`*^9, 
   3.7939783931790867`*^9}, {3.793978428496972*^9, 3.7939784307623577`*^9}, {
   3.7939784880434275`*^9, 3.793978531574893*^9}, {3.793978563122068*^9, 
   3.793978573277742*^9}, 3.7943229095911336`*^9, {3.794322947526682*^9, 
   3.7943230088035183`*^9}, {3.7943790392432446`*^9, 
   3.7943790416819067`*^9}, {3.794380047839616*^9, 3.7943800510342627`*^9}, {
   3.7943804755942836`*^9, 3.794380536974733*^9}, {3.7943806032915883`*^9, 
   3.7943806069570656`*^9}, {3.7943808406459494`*^9, 3.7943808436715813`*^9}, 
   3.7943813706782174`*^9, {3.794383103028208*^9, 3.794383105262433*^9}, 
   3.794383236114874*^9},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[153]:=",ExpressionUUID->"4824ab73-c7fe-480b-8c89-1930ad2a0894"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"sols2", ",", "solr2", ",", "soli2"}], "}"}], "=", 
  RowBox[{"solucion2", "[", 
   RowBox[{"0.5", ",", " ", 
    RowBox[{"1", "/", "14"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7943829433069105`*^9, 3.794383064026367*^9}, {
  3.7943831259400864`*^9, 3.794383146355345*^9}, {3.7943831853772774`*^9, 
  3.794383190643318*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"0823d6a7-9216-4c4c-b856-a13fd4632193"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD6vAd1ILv/vP0XRMWw0
Ffo/hGJ24zb+7z8FZS60Bi4LQLp4RMAJ/O8/aslGZ8wwFECukLXr0/fvP8qC
eNpvqRpAVnObnojv7z8VebNxPtcgQGVght7/3O8/IB09Xc4dJED1+75Mk7nv
PykcpROTqidAMLD4br1q7z9wLA79xCYrQLV9UGagy+4/EKmJTQBnLkCK44Um
XK3tP1jAcTS49jBAg3bcKRl16z9V4qf19JsyQJfzCpmrDOg/8YxeUOg4NEBo
8haNEXXjPwxlhBD2+DVAoOIV7C/H2z9VczOECJs3QPRUZr6ykNI/Hq9RXTVg
OUAdNGCnsqTGP4Vz8M8YHTtAQ5Lo0Vpquz8Zbhj2ALw8QHVdNU8oYrE/LZav
gQN+PkBdSRivn9ulPzj6Z2AFEUBAD2ID2JZanT8ZwK8ylvRAQGbKCtHl15M/
Scq3UQLUQUAC9kOH8huMP49vhMpwpEJA1QGHzeEPhT+Vqwh2bIZDQLUM+urf
2H8/soJRe2pZRECqyZhGUDx5Px6eWs1DKEVAco9S2+KTdD9KUBtSqghGQNSy
6k5t5XA/jZ2gMBPaRkCZz/AEr7FsP4+B3UEJvUdArYrOccqDaD/hqdqf2ptI
QJqV1GEXYmU/SW2cV65rSUD/yOq0yhdjP3HHFUIPTUpAzs4mP6IeYT+wvFOG
ch9LQK4JWPw1SF8/PvZRF7HtS0CmalX9PuhcP4zGB9t8zUxAdX661u/JWj/w
MYL4Sp5NQNzrRYkbJ1k/FDS0SKaATkCABrfvjqxXP0/RqvIDVE9A3WNtTj2E
Vj9t2bB0nhFQQNOeJ79XjVU/khVoiQGCUEBTl4BOpqlUP0KfAcvl6lBAtgqO
eFr0Uz9S9PalkFxRQK5ZoUMZTFM/imtMJynMUUDDAJRDw75SP00whNVCNFJA
N8GxadRMUj9wwBcdI6VSQB1At8nR4VE/H56NkYQOU0DPLlalJYtRP/WdY6zT
dVNAQ262bcxAUT8raZVg6eVTQN5yzqpc+lA/7IGpQYBOVEAOSlme7MBQPw1m
Gbzdv1RAwngmP3WKUD9WbOncKC9VQOEgeXbPW1A/KsCbKvWWVUCzg/XdlDVQ
P17fqRGIB1ZAWBgtFSIRUD8dTJolnHBWQCR7G7Bx5k8/PITm0nbiVkAjkaLV
bq1PP4PekiY/UldAVdffhV18Tz9VhiGniLpXQBnbryz7U08/h/kLwZgrWEC9
pqASWy1PP0W62AcqlVhAZudE+owNTz8+GeT4//9YQENMCugL8U4/Klq5Ng==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47818#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9998999999152626}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD6vAd1ILv/vP0XRMWw0
Ffo/hGJ24zb+7z8FZS60Bi4LQLp4RMAJ/O8/aslGZ8wwFECukLXr0/fvP8qC
eNpvqRpAVnObnojv7z8VebNxPtcgQGVght7/3O8/IB09Xc4dJED1+75Mk7nv
PykcpROTqidAMLD4br1q7z9wLA79xCYrQLV9UGagy+4/EKmJTQBnLkCK44Um
XK3tP1jAcTS49jBAg3bcKRl16z9V4qf19JsyQJfzCpmrDOg/8YxeUOg4NEBo
8haNEXXjPwxlhBD2+DVAoOIV7C/H2z9VczOECJs3QPRUZr6ykNI/Hq9RXTVg
OUAdNGCnsqTGP4Vz8M8YHTtAQ5Lo0Vpquz8Zbhj2ALw8QHVdNU8oYrE/LZav
gQN+PkBdSRivn9ulPzj6Z2AFEUBAD2ID2JZanT8ZwK8ylvRAQGbKCtHl15M/
Scq3UQLUQUAC9kOH8huMP49vhMpwpEJA1QGHzeEPhT+Vqwh2bIZDQLUM+urf
2H8/soJRe2pZRECqyZhGUDx5Px6eWs1DKEVAco9S2+KTdD9KUBtSqghGQNSy
6k5t5XA/jZ2gMBPaRkCZz/AEr7FsP4+B3UEJvUdArYrOccqDaD/hqdqf2ptI
QJqV1GEXYmU/SW2cV65rSUD/yOq0yhdjP3HHFUIPTUpAzs4mP6IeYT+wvFOG
ch9LQK4JWPw1SF8/PvZRF7HtS0CmalX9PuhcP4zGB9t8zUxAdX661u/JWj/w
MYL4Sp5NQNzrRYkbJ1k/FDS0SKaATkCABrfvjqxXP0/RqvIDVE9A3WNtTj2E
Vj9t2bB0nhFQQNOeJ79XjVU/khVoiQGCUEBTl4BOpqlUP0KfAcvl6lBAtgqO
eFr0Uz9S9PalkFxRQK5ZoUMZTFM/imtMJynMUUDDAJRDw75SP00whNVCNFJA
N8GxadRMUj9wwBcdI6VSQB1At8nR4VE/H56NkYQOU0DPLlalJYtRP/WdY6zT
dVNAQ262bcxAUT8raZVg6eVTQN5yzqpc+lA/7IGpQYBOVEAOSlme7MBQPw1m
Gbzdv1RAwngmP3WKUD9WbOncKC9VQOEgeXbPW1A/KsCbKvWWVUCzg/XdlDVQ
P17fqRGIB1ZAWBgtFSIRUD8dTJolnHBWQCR7G7Bx5k8/PITm0nbiVkAjkaLV
bq1PP4PekiY/UldAVdffhV18Tz9VhiGniLpXQBnbryz7U08/h/kLwZgrWEC9
pqASWy1PP0W62AcqlVhAZudE+owNTz8+GeT4//9YQENMCugL8U4/Klq5Ng==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47818#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9998999999152626}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0., 100.}}, {
     5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
      "], CompressedData["
1:eJwNx3c41YsfAGC3yB4hoyFZUfpFTlbcz0nZ0UFGZZeQpHRESkiuSLLKFRWS
ETIyk+/HzSySyzluQiRHVudLlFl+/nmf593h7mft8QcHB4fQGjK5Yyb/WyUh
X/2pjJYmH7ZNqlL2rP2QLVdqnw0fTutqy6iuXSU46FXmRT5MNou9tmntIw3n
yD2fBHD/zfaWld8kaGZlPU6JEEYxCdP3n9de+FC3NV5jIy668hjlrP2nX2BK
zilx9OkbyHdZ++K/U76M3VL4k2r+g3/tIwc868Ryt2JM+efavF8k9HMnK0cu
y+In2V4nkbXzpHPeCxdWRHnTcC+bFRJS1Lhi9GV24bD2nY3eyySIX+RMyFVX
Q8fCH1eNlkgYHON3ixanYFoUbc+nBRKCR/l4kaWNNwwOplf9JOFV+D65NFkq
eplf9GPPkuD9Kcn99ZfDWDTiXGc9TULnc4qgr6A59r28VJkzSYK6Xgb3jxtW
WKEXnPSARYKc9F7qi3w7fF3WEdoyQAI9kcuKQXPCnnN3NfK7SbB+WST/67s7
tp70H77XTMKs4s15nWAvrB9YvcusJiHsepW2keF5rJhizTNzSdii77sU+MIf
g/UOSX5IJEFMWNz4h3ggUrz3tc4GkVB25knZxUvX0K7GylXkOAm+qU+AHh6O
jSoPXverk0ATCuR+HhqJK3aEuuwyG4biLbzcOW6j+lJJNW8zG0KiPs8syMbj
aEBOfsVfbPCQ3BCkoZmElKvjzRXmbKjRuDRxgec+ur41WSfHwwa2QSi3PiUV
1avfUGdefoPshhMSJzEdHaTn3vOf+gaX4+iEsH0GKkloXaCtToHHy1QX1/As
ZPkX1bpmT8Ezhb2TFJ9sVF8R0N1HnYIgPfnezIAcfLNTQVC9axLoamofox7l
Ia0p+ifz+CRcX1Deljb8DEOCZJQKeyZgy8h3DdAvwkS5TU/tTSagufJsqE9e
MR6aLZFLfz4OX1LfjVsKlaJY3EnGKd5xqCqzFrlgUoaWSgVczQ5j0FphSPqH
vEBB1vygwMOv8NXQyDsrtxw7BFZGanpGIVkn7TSrvgIPuUklR+0aBXFmoatI
aiVOKkmUiQSxgJ4XqFrmVIWGg5soSzgCOm3e27z4q9FMcubIuvUjIHlrx59S
j6vRf/R6y6+DX8DSSyZIWKIGLdPfXGGEDAPzga/StvM1+OJjxdhf9z+D/4aZ
kacFNfihhWD1Fg0BZ7G0bkltDSbsdH7CiBkEpzPiMSqPajDbeXvD47oBuE/h
czQ7VoOdCk4n5ef74MqjoS3hQ9U4PxZQr6X7EQ606+w3N6rGqrghkfPRH6Db
4/YFjpgqLPyd9nXd1x6Y6BIouVdSiWkqTVHMY0zIFFMIcsQKTB9siT3F6AaZ
r5POjbXlOBxy2aBp+l84yKfFHrB4gR0WfFlH1DqhLoXoiWSUYgk9Myei4h00
MvZ6+j8swbB+1TFH3TaIaWP6rWM+R67Broi97FbQ45SMsw8txAQjJcUr75vh
0VDXgBz1GZInLZvM+xuhaat7KO/WPCzaZdXhI9oAT2wDl0EiB8+7eXSe9fsH
9g2VytWqZeOxgNjQ96oIxT5figM4svBAvKmh8XAt/NHpEDqzPgMduHnY9j+q
ofRbOcPgUjq6X1qdv+lYCafDjlzu10/Fa9T2vi9C5TC2mSWx3+0+5kvHOlM4
y2B+oHHTjp4kZJwzbpmklEB7/G1J7XsJKMrz33QrUQgJl1urE9PjcG63gQff
nXxgZ25r0yiIwVWjBDq1MQeS3xHkNYMoPMh466pqlw3SCjfuBNBuIkuTSAjQ
zILehWkDiaZw1D0eEuh/IgPsSrzrQxRCsTOsXvPrxYdg0HU9U93+Ks4VWB1T
TH4AsVLWkYMCQfjCbPhVnmUK/JbIKj/sRMflQK1M6q1k0Cm+2ltgeRH1kzJL
3XYnwhCrWz81yheNErx1vJXiYdlT2jvf1BvlCIHKBmYsZDibZXS/8sAnZb9e
MXujoWfscVruP+64KpPzMMgwCuj6x3X//tMVJfYHn4jkiQTbAybUCn1HvMrl
69hhcQNoXEaeLtr2GHFKUu6IYBjITODn97o2WMvWzw5zvAYtrWoUUV4apms4
KS/qXoFc21an5kkz9Fwdsdz492XgjLBcaKgzwgRh/d2HHOnARyP0E2wO4QXv
xa5Zuj/oPo+MaLxJxaoPPtk23ReAGBA8see0Hg6Pm9f8qXoeAgiv4rAMLeRU
Xq8bdNgHzOVVimQ7NXAD9eylhC4v2PB8++v2WjWMVt46pll/BsQK6nL06Kpo
8+6Z+bfl09C+Llky1l4Z93N7jIwGnoIG75KphhkFzDQSFdyp4g4q+141KcrI
4VEHRclPG9ygM2lF1jNsO+56+es3xcwFzt+dMO35IY2UerpFLocTfMmPFNmb
vAmbNnt+F5Y6Ce+G349EiIlittZlPueQ4wBTbzM/XRdCSc+Ouv4dDiBQ6qd8
e5gXLTrjosSW7MAltF3SWGoDRjQ94V5YsQUXQaHdPnPrUF3UOdBB3hbI/sUz
GbYcyHTLbX2rcgzyfOnapr1LxJypMZ3X0QbUMl2rr+3/SXyMnc5zKrWGRdX1
lhZXvhOsEym1QvLW0N2Z+4z5mU3cmu+6PlBgBXnNJqoBk+PE1vLxiqfGVmAh
Nlq5m8kiVrq15TfP0iDdb8bUw3+YeLlz4b/EAhroMMzNLQ4OEj2ad9Y3OdPg
6YxEvad5L5FHUpMiZGkgckKUtjOaQZjGV3zr6DsKnLVj/YerOglFvgWWTfRR
eCfKzZ9i2EbI9U8orhgeBYmqvkIb02Yipm2unE/qKKTUbgsJHntNROPBUf4Z
S6AOWzuqCtUT/weQblAz
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD4AIH56Yp+qPUXRMWw0
Ffo/Lqggroms8T4FZS60Bi4LQHswJMPivQw/aslGZ8wwFED4RB0H6dAgP8qC
eNpvqRpAYlJDq73mMT8VebNxPtcgQOba4UM0k0M/IB09Xc4dJEDbDCsMaflT
PykcpROTqidA5iterAlnZT9wLA79xCYrQIgy2yG8ZHY/EKmJTQBnLkD/7cIN
pgSGP1jAcTS49jBAOg+T6LVhlj9V4qf19JsyQOmBzAtH4qQ/8YxeUOg4NECQ
ZenD7TCyPwxlhBD2+DVAzsvncCqFvj9VczOECJs3QHcCbgDioMY/Hq9RXTVg
OUDZdD/cCazPP4Vz8M8YHTtAo1gGi8Rs1D8Zbhj2ALw8QGc5ylkbl9g/LZav
gQN+PkD4oT2CXtXcPzj6Z2AFEUBA4pmZG8s84D8ZwK8ylvRAQCTOTvwFB+I/
Scq3UQLUQUA6XE7irZrjP49vhMpwpEJA9AIcuXPs5D+Vqwh2bIZDQEgq71a/
M+Y/soJRe2pZREB+xAilEETnPx6eWs1DKEVAySLgN9wy6D9KUBtSqghGQP8t
mqKLGek/jZ2gMBPaRkD4uJga8NjpP4+B3UEJvUdA0PR01SiR6j/hqdqf2ptI
QKfCTygbMes/SW2cV65rSUDV7OTZrrXrP3HHFUIPTUpAc+Z64lk17D+wvFOG
ch9LQEP7uU0Qn+w/PvZRF7HtS0AgrViVdvvsP4zGB9t8zUxAPx2rnodU7T/w
MYL4Sp5NQKqkLwxHnu0/FDS0SKaATkAukA3PLuXtP0/RqvIDVE9AlO6VFtkf
7j9t2bB0nhFQQP5nb2QUU+4/khVoiQGCUED9Ft5rZoTuP0KfAcvl6lBAvE6Y
Azet7j9S9PalkFxRQJneRyJp1O4/imtMJynMUUB2+BWMYfbuP00whNVCNFJA
PjPgSYAS7z9wwBcdI6VSQOPQVPKKLe8/H56NkYQOU0CiS9mf6UPvP/WdY6zT
dVNAgw/ey3JX7z8raZVg6eVTQBw24wxDau8/7IGpQYBOVEA3XRCW1HnvPw1m
Gbzdv1RA2l05jsmI7z9WbOncKC9VQOI1X1rAle8/KsCbKvWWVUBr59nEe6Dv
P17fqRGIB1ZAm9jb786q7z8dTJolnHBWQHtLAZJZs+8/PITm0nbiVkDHgE1h
jLvvP4PekiY/UldAU8fmoqbC7z9VhiGniLpXQBFhP2yHyO8/h/kLwZgrWEAi
K5vLLc7vP0W62AcqlVhA9YTjCdrS7z8+GeT4//9YQKMyBTMO1+8/sMXCUQ==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47870#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9950018879404364}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD4AIH56Yp+qPUXRMWw0
Ffo/Lqggroms8T4FZS60Bi4LQHswJMPivQw/aslGZ8wwFED4RB0H6dAgP8qC
eNpvqRpAYlJDq73mMT8VebNxPtcgQOba4UM0k0M/IB09Xc4dJEDbDCsMaflT
PykcpROTqidA5iterAlnZT9wLA79xCYrQIgy2yG8ZHY/EKmJTQBnLkD/7cIN
pgSGP1jAcTS49jBAOg+T6LVhlj9V4qf19JsyQOmBzAtH4qQ/8YxeUOg4NECQ
ZenD7TCyPwxlhBD2+DVAzsvncCqFvj9VczOECJs3QHcCbgDioMY/Hq9RXTVg
OUDZdD/cCazPP4Vz8M8YHTtAo1gGi8Rs1D8Zbhj2ALw8QGc5ylkbl9g/LZav
gQN+PkD4oT2CXtXcPzj6Z2AFEUBA4pmZG8s84D8ZwK8ylvRAQCTOTvwFB+I/
Scq3UQLUQUA6XE7irZrjP49vhMpwpEJA9AIcuXPs5D+Vqwh2bIZDQEgq71a/
M+Y/soJRe2pZREB+xAilEETnPx6eWs1DKEVAySLgN9wy6D9KUBtSqghGQP8t
mqKLGek/jZ2gMBPaRkD4uJga8NjpP4+B3UEJvUdA0PR01SiR6j/hqdqf2ptI
QKfCTygbMes/SW2cV65rSUDV7OTZrrXrP3HHFUIPTUpAc+Z64lk17D+wvFOG
ch9LQEP7uU0Qn+w/PvZRF7HtS0AgrViVdvvsP4zGB9t8zUxAPx2rnodU7T/w
MYL4Sp5NQKqkLwxHnu0/FDS0SKaATkAukA3PLuXtP0/RqvIDVE9AlO6VFtkf
7j9t2bB0nhFQQP5nb2QUU+4/khVoiQGCUED9Ft5rZoTuP0KfAcvl6lBAvE6Y
Azet7j9S9PalkFxRQJneRyJp1O4/imtMJynMUUB2+BWMYfbuP00whNVCNFJA
PjPgSYAS7z9wwBcdI6VSQOPQVPKKLe8/H56NkYQOU0CiS9mf6UPvP/WdY6zT
dVNAgw/ey3JX7z8raZVg6eVTQBw24wxDau8/7IGpQYBOVEA3XRCW1HnvPw1m
Gbzdv1RA2l05jsmI7z9WbOncKC9VQOI1X1rAle8/KsCbKvWWVUBr59nEe6Dv
P17fqRGIB1ZAm9jb786q7z8dTJolnHBWQHtLAZJZs+8/PITm0nbiVkDHgE1h
jLvvP4PekiY/UldAU8fmoqbC7z9VhiGniLpXQBFhP2yHyO8/h/kLwZgrWEAi
K5vLLc7vP0W62AcqlVhA9YTjCdrS7z8+GeT4//9YQKMyBTMO1+8/sMXCUQ==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47870#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.9950018879404364}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0., 100.}}, {
     5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
      "], CompressedData["
1:eJwtyWk41IsCx3FKogWhXYQQUUpk/f9uWYZQHCFKQiVkl0IlypKtiMjYDSlL
lmkj6oTIsQ0KhRlLkmXGFsZS597nud8XnzdfcXv3vy5ycnBw8P2P/3ejfCkt
4VcvUdQt5PuxxptQfSu+8frWPoIRu9F1tuUOIXSkZf62Wh/hYTwqu+70W2JG
sjreLZBBfNZaU/zoeCPBE7H9QvqqAUL4oD6H7tfPRIxVi7H500FCyK6JUe82
SIwZy/ganfhBBLl0OTwImSBib84UKWeOEXbrd5SWV84Sws5yw9fPTxKbeY2T
EjuWiM/656tWO88QhweDzWhnVsOeRlNiCi0Ql6xjAyRE1uHmTdeCrp4VYm3k
eWGG1iYkiBUvRd5dhQd2mRLb3beg7YBXH+c8Nwr0pHqC6SKol1+ZyfDfAKno
VS0+ZyQxYv/R7YO3IMquqVeVVsgieHLPYuXIVhBWh38c/6MIz6obedNsUdxr
IVEOWqlgPu+3uqTAHvgqhmfHkLRQOl709/SSLDglA+1zdmsjdUkmw7dNESEX
LQxnWPqIVqOq7/2oDO5WxUen1E2g1rnsN71PE0PFJfNbFU9hHVnabM7rKLZ3
NOikbbUCl8HzydFkXUQbbfGqkLWFtbMZl+Hb4zCw6R3ZZuGAZQWByvIwE9h1
rL6rtOgIWp5OjtKVU+ARKhPRe+GKc45zNaTDVtC1qnT7yfDC2fiixpd0W/wn
PW3/XLMvbH1tzw7IOaBBwUZpOSwAyW5fKvZxOaLW+MA2lflASPoF7upKcsZw
XIqpYGQw3vTyTmiXuOGSn8Cf3lsh2FP1xdCxyBNpkmdvMYbC8ThEnVRp7oMC
qge3e2MU2kLn/qmzuIZ8UsexZqUH4JGrqzYR9MfCurvX/6jEQbYm3VFA6CYS
b449W/GJh+zIJZLT/ttICLKias08gkK1v5YbOwgjk6UHXV49RsmEZlXv2B00
8hmKWNWlINM18mAYdyik0rilrwlnIEPvS0CuQTjyPf+Z4J7KhOBoLrOOGoEA
HtN6reVs8LvyqRXpRWMfT61Nn2oubuxyc9NcuQ9eL6W9AU/zQPLTOlTmHIsi
m9oyze5nOJTp/sKMEodzFvdpCQcK8crS0q1m+CE825NLAwufg77Y9PKyYgK6
2zgO0GVLYF9X1e4Z+Agrzvl3XGNL8W7Zof47LRGexEDe/Y1UsJvzpfOkHsNv
piU8buAFyq/4ZJwuToaUTP5V8/ZXONPTX0CopODAT5dQO/obbL5gE9lYlool
1it7Du638JW384yTSoeaTLwJ9KrAfmI1tE8nA7qDf835nXyProq610njGeDd
7CJtF/Y3lHfQRj9FZKKir1tMsOEDXMiXuYp3ZYHjUx3l9ZYa3Dul13iVkoUX
0U6B3ldqETelGhkkmo05vZAIkaN1aCrw6JotyAbrfB1jm8QntGSXiTVJUvBb
WL32BbUBShKOZJY3BYMuf4xZRo24WN32pJZKQcv39Z3kn03wIY35jw5TINJN
V0m/1wJTdmXqrvU5KNzgnjSX0AqTIS+6qkQOjL3L79c60iCvEy8no5CDowNR
AfVqbfjl0Z/VI5+Dhq6v3otoh9CptQX7RXMw4aBZIqLbgascmpJmnDl4SuQk
ROh/xgKdMbupiwIy/8ws1eALXFMWGFspFLg0pmbu1u+EdWeAzdQlCvT7zRsu
aHfBzHsVP48EBS9XpnVkNbqRWsOUyfqSDUFd2pz2qa/w30RMCfllQ1+7XGHJ
8RuqNi2+Zm3OhlPs2fc8vj1wtNQuDS/KwrQon7DqrV7wBK47x6mThVzLD1EO
t/swda6a07QzEz0aFvpeN+gwl33SrO+UCYPO+wL71Bj4vTTTkrSYge3N5EWu
EgZIG1YcOyIzkG7gw1FxvB/kj0nTkrPpGAge2rSF3g//UeGZ+vY00GUuhO11
GwCbHUWbf5WK+nIL53ULAzgqO7rzbWYK4q5a8nXdGESQ91mf3lgypMO3TBUv
D4LC3CI4EZ4M12d/2l9eG8Lvvb+emIQ9hqL14uqNzCEkJvooGUYnoXKNMuXF
g+/wEM2h+xxKhDgzgt9abhjLA2yx3h8JWFqb9O5yxTBuZRUWOxXG447Fo+YT
Oj8QID8U1Rr8ELoS48O+tT+geHpfda5jHEoSGu/pYwQTVDmSy5lYHOZujpcp
HcHTQoOBGJsHmH5uO+ct+hOyHZy8s19j0HJyeFg87ScinazWKmRHwZ37l0y6
8CgSugLbGuIi8PAE4/n94FF0rDZ2cHgSDvdpR7Xokf/+EpGl1L5Q8Eykk2VI
Y0iMbmSrqoTgZPMx5e9pY/hcM3l4Y8Ed1MLJXntyDPFcn9r5iWCEMiwXXmqM
o3Ugg9ts9DYumX/Lqk0bR1p2dEOq5S30XlDdmTI/jmXyAadO5QA0VVCF9EgT
EPAJ6VC+dB2mUmQnaswEeJp+zFxlXEV/YGHRu+YJuMi/nhZN9YYQhRQkx8PE
bVXdAc8ETzAvJpdkazCRaGj0qCzUHWwn/yP1Tkwo5cnTXx+7giAy6QxvJhNv
PNKCdKwuI+orlzillYn8Vkq7+OIFeE5vE3vCZoJ6sanESNAeJnXFxUsiLPQ5
W9OKJGxBdBvzumiwwJWiXCLVZo0MQWlyljkLZkOxscE7LHF5r973I1dYkFzp
v5s7bIYgDduq/EAWRMVUTK33mKL88c6K8XgWdvnY7xY5aoSYg+crPXJZKIlR
Lv2mT4KlgPhqBpUFBXbxY0NFbYQOTWnUvmfBrrqzkcgAUorvvolrYKHgW+EG
Or86Agwqx0/QWLgnqEBT0FKBT66+El8nC0b0BwlrFg/hX2biIS4=
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5IVosq5DYaP0XRMWw0
Ffo/4qkTZDdcKj8FZS60Bi4LQFaq1YNBGjw/aslGZ8wwFECU+PXnFnxMP8qC
eNpvqRpAwn9IXhN1XD8VebNxPtcgQCklp2hUG24/IB09Xc4dJEB7Qndd/zd+
PykcpROTqidAfmm81uH2jz9wLA79xCYrQGG+vBZieaA/EKmJTQBnLkD6CzEU
FKmvP1jAcTS49jBAHIj3Nsm+vj9V4qf19JsyQCkR4di/lMo/8YxeUOg4NEDM
wdd0oYnUPwxlhBD2+DVAayqwd4WX3D9VczOECJs3QOdUsSBuD+E/Hq9RXTVg
OUDDFRjf0GviP4Vz8M8YHTtAZ8E/YFJc4j8Zbhj2ALw8QJ43NEktiOE/LZav
gQN+PkBtqu/DljfgPzj6Z2AFEUBAGpZMW8Cw3T8ZwK8ylvRAQA63Uap1tNo/
Scq3UQLUQUDXJymnxOnXP49vhMpwpEJABcJbf5l+1T+Vqwh2bIZDQDnDddId
GdM/soJRe2pZREDZE9R07RLRPx6eWs1DKEVAXeCkCfCPzj9KUBtSqghGQGfy
HwumEss/jZ2gMBPaRkDfWInZeCnIP4+B3UEJvUdAlfJkgE1ZxT/hqdqf2ptI
QBWjOQEL5sI/SW2cV65rSUCOoZht5dzAP3HHFUIPTUpA/pUv2jvMvT+wvFOG
ch9LQMzFPrpciro/PvZRF7HtS0BkQUVZqrC3P4zGB9t8zUxAICxMS5vwtD/w
MYL4Sp5NQBPDXTArqbI/FDS0SKaATkCJotRL13ewP0/RqvIDVE9A3KstrExO
rT9t2bB0nhFQQF5DEPtOIqo/khVoiQGCUEC0i6oPTBSnP0KfAcvl6lBAJKS2
8uyMpD9S9PalkFxRQOwLZRENH6I/imtMJynMUUDh2IMk8QOgP00whNVCNFJA
wnxefSmLnD9wwBcdI6VSQCRwypiEMJk/H56NkYQOU0BIKYGqGWqWP/WdY6zT
dVNARqlivZn9kz8raZVg6eVTQNFV7Jj4p5E/7IGpQYBOVEAJih3ovHKPPw1m
Gbzdv1RAc7vDyU28iz9WbOncKC9VQDxkY3lvhIg/KsCbKvWWVUDBdcctXNqF
P17fqRGIB1ZAMjdkxh9Kgz8dTJolnHBWQFpqq2Q0K4E/PITm0nbiVkCsS4t+
IUR+P4PekiY/UldAQl3g2yK9ej9VhiGniLpXQMV9uXrK0Xc/h/kLwZgrWEDu
WxbQbgN1P0W62AcqlVhAjer0bkmxcj8+GeT4//9YQJRmZQDFmnA/fuewcw==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47922#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.575661121111516}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5IVosq5DYaP0XRMWw0
Ffo/4qkTZDdcKj8FZS60Bi4LQFaq1YNBGjw/aslGZ8wwFECU+PXnFnxMP8qC
eNpvqRpAwn9IXhN1XD8VebNxPtcgQCklp2hUG24/IB09Xc4dJEB7Qndd/zd+
PykcpROTqidAfmm81uH2jz9wLA79xCYrQGG+vBZieaA/EKmJTQBnLkD6CzEU
FKmvP1jAcTS49jBAHIj3Nsm+vj9V4qf19JsyQCkR4di/lMo/8YxeUOg4NEDM
wdd0oYnUPwxlhBD2+DVAayqwd4WX3D9VczOECJs3QOdUsSBuD+E/Hq9RXTVg
OUDDFRjf0GviP4Vz8M8YHTtAZ8E/YFJc4j8Zbhj2ALw8QJ43NEktiOE/LZav
gQN+PkBtqu/DljfgPzj6Z2AFEUBAGpZMW8Cw3T8ZwK8ylvRAQA63Uap1tNo/
Scq3UQLUQUDXJymnxOnXP49vhMpwpEJABcJbf5l+1T+Vqwh2bIZDQDnDddId
GdM/soJRe2pZREDZE9R07RLRPx6eWs1DKEVAXeCkCfCPzj9KUBtSqghGQGfy
HwumEss/jZ2gMBPaRkDfWInZeCnIP4+B3UEJvUdAlfJkgE1ZxT/hqdqf2ptI
QBWjOQEL5sI/SW2cV65rSUCOoZht5dzAP3HHFUIPTUpA/pUv2jvMvT+wvFOG
ch9LQMzFPrpciro/PvZRF7HtS0BkQUVZqrC3P4zGB9t8zUxAICxMS5vwtD/w
MYL4Sp5NQBPDXTArqbI/FDS0SKaATkCJotRL13ewP0/RqvIDVE9A3KstrExO
rT9t2bB0nhFQQF5DEPtOIqo/khVoiQGCUEC0i6oPTBSnP0KfAcvl6lBAJKS2
8uyMpD9S9PalkFxRQOwLZRENH6I/imtMJynMUUDh2IMk8QOgP00whNVCNFJA
wnxefSmLnD9wwBcdI6VSQCRwypiEMJk/H56NkYQOU0BIKYGqGWqWP/WdY6zT
dVNARqlivZn9kz8raZVg6eVTQNFV7Jj4p5E/7IGpQYBOVEAJih3ovHKPPw1m
Gbzdv1RAc7vDyU28iz9WbOncKC9VQDxkY3lvhIg/KsCbKvWWVUDBdcctXNqF
P17fqRGIB1ZAMjdkxh9Kgz8dTJolnHBWQFpqq2Q0K4E/PITm0nbiVkCsS4t+
IUR+P4PekiY/UldAQl3g2yK9ej9VhiGniLpXQMV9uXrK0Xc/h/kLwZgrWEDu
WxbQbgN1P0W62AcqlVhAjer0bkmxcj8+GeT4//9YQJRmZQDFmnA/fuewcw==

                    "]]}, 
                   Annotation[#, "Charting`Private`Tag$47922#1"]& ]}}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                GridLines -> {None, None}, DisplayFunction -> Identity, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, 
                  "DefaultGraphicsInteraction" -> {
                   "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                  "DefaultMeshStyle" -> AbsolutePointSize[6], 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0., 100.}, {0., 0.575661121111516}}, 
                PlotRangeClipping -> True, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0., 100.}}, {
     5, 7, 1, {135}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJxFlP871AcAx49yzY20Sw+ifD0XiXPn3J3Lfd53nLtLvl0nDuVLm4yZ0xdq
LRUa+mKzrieJOc8eG1IehK27ViRMeqKus0V1baWaMnkMLWZ7nn7Y63lez+s/
eDmnZMk/MiWRSCb/WUT6H2o8xtvNjhLvepqwMZ21zx4cIFLnRRdWHR4hjHxx
6pvQJ0RNqUbEPTxJyA+tvbP7/gxhqqpMbvJbIOIYJ/ft7TVBaV/7Gt2AGbqS
jF2md8wxM2eeJhu2xOm+s2TpxAo0qb2V45NUXNITiocJq3DZOipiqM8GVxUp
m7r9VqNbvVvcoXFAv74QDRaOSKPcrArXOSG9YYu9dMoZmZtGy4XrXME80uyT
5umG2Y4vekq9aNBNxG9r83ZHPs13eoRBhySBfNyUtQ4Wp0acPdge+Dq6RiKI
8YTxY+qwS+B6eOcVpC5z9YJ8fJxIvu+FnFiFnbZsA87e0E1Zy7xxhUkb+JTk
g8fVJ2v7OnwgEnoVNrszcKqlrC0vm4GnrrNjoToG/E8n2Not80URuUs2FuWL
X3PpB1orfeH54kTj4We++Dxu6kEYk4lbN2Os7A8y4Rh4Bc97mVBddNnVRmVB
4drFGYxkgVuevPBHKQv2libXzW6xsHhEU+z0vh9+nyHC+TI/9GY8Wrm1yA9U
98X6jtt+2G5cCztbNuorBIbPktiYVmz/ZLSODVjlmQpes3H856ryap4/DAVX
vE3y/eEieNCd0u+PzLn5uG4qBz+0OLymxXMwrH9D7tRyMDNjcEhw4GLsvb36
pgwu7q1eeWKJlosbXs1BMRQe2gQRbxuUPNRGvmr5p44HdcrxdPkcD4V7PFy+
kwSgnJYYMtQQgEaDOn3eko9rRf2l9Gw+9FxSq1zPx/MX7OGDnI2Yr8h4W1ex
ESs21zjqFzYirWQiMUAViGs9fI3mt0DYLi0xkqMFyBIanDJ7BejNc02+yyPg
qFPV8BoJaOcfTkZYATvPmX1QIAX2JfqucVEDxa7bPDofAWefFbOT1gvRcP6S
cDFHiMtZxrBvuoS4ybKIC1wuwugsJ3VUKcJL7Y5dB2pFOJb5aqqAGgS6Y+7u
E4eC0D1Imla/DEJy/rE9VcpgLLKs/6rtCUbl06q9F1li8M7QZ9o1YhikzTlX
LUMQ7PYw1eNMCFoWKTGnnCRwGuFIFuolKG3/kLOTJcV8WRl9SCdFeuZPNvwQ
GX6Rji+rvS1DiJvt3HLlJux3W2Vyb20oGt2olHNPQvHIzWplcsNmUGkWDnRV
GMQ0c9ordjj20cjerW/DcZ62hLO/MwJ/Ukma6qBI7BFxK8P7I/F3tqp8ITIK
h2rq1I3DUVg6ZPwqfrscJSS7k5Snclgxokp+zNgCdWLJ0bSpLbD7svOIzX4F
CnN0ud/SozGxrSPTxxCNWHHLDm3hVlz3uqCUsGKwwbou4u7jGNhQ9N+/UMXi
3S2U+Bf1L8f0
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFH3AEAxuF/OefknCSZzFSSJMnMJJNJMsnkJJlMTjJJZZIkSTKTZCaT
JMkkSWaSTJJMZpIkM5NMkiSTJJOkh3p5vsDrl51oj7clBUHwPrhbMiHCREgh
SoxU0kgngwdk8pBHZJFDLnnkU0AhRRTzmCc8pYRSnlHGc8qpoJIXVFHNS2qI
U0sd9byigdc0kqCJZt7QQittdPCWTrropode+uhngEHe3X8yxDAjfOAjo3xi
jHEmmGSKaT4zwyxzzLPAF76yyBLLfGOFVdZY5zsb/OAnm2yxzQ67/OI3f9hj
n78ccMgRx5xwyj/OOOeCS/5zxTU3BEJIJkSYCClEiXELdDJB/A==
      "], CompressedData["
1:eJwNk2k4FGoDhi0RQos6HEYd0eIUHxJa9BAixxLKWokoQx2krEcp60R2kX3P
zowlJG+UpHAsfcg2ZhRp0Ee0SX39ea7rvq77x/3nkXF0N3fm5uLiEv01CjoU
DltNEraNba4hPvwIUZpRop2URJO0Q/JsLD9eerv9OHFFEgYJ1zM8S/jh2cVn
IsqkYPrbIUPzZgHMKX5toIdsQw3Sn33gWYfrEenHDqjK4KMTt2bnPyKoSpnk
MJzkcCCMITDmtxHi3esoggq7oe8oWl/+YDOELpYvfyzaC/uc0eDlaAlQmQO+
g9+VELYa40CjSCO0JkI4eeN+jDrc7uYV2Y59j3QL1WUOYjrI52qu407cdol9
vrpPCzrDFNm9rXsg6/xtjYKELt7mau4o3q+MtvenHW05BpjQinzvarkfwqWp
k9Y7TuCxa3WRXv4hdLJy2ko4J2GjZZpXMqWN5VhqBEPSDjziO+oVFfUhv6fJ
SjbaATu6g7RY3CZ4p2tO92+6gKhDX6dVXS3w6Vr5kKXHZdxJWClSo9gg+fl4
90URL8jss6JoHDwHw3d6OX6FvhCO1C16uOQE7ho5HhXadTQPzuVFvKMiypej
GT19C98srNIluTygKzH/uNUpHM9zaFNuj7zw3U6xIXwuCqp29rzBZr6YtjUI
LR+PQ6HAp6SR6UBoO8vNNIvcxXntIdEdNrdg9iL0EplMw6nmB9Fua8KxgUap
DG3LhqNyqdEBn0gsruxlFsjmI/54JFfFqVhsOO/Y3aR3H0m6T6ZO1cbDZL+w
vtRICdTXjtM2n01CydlsL9WFCkhtdtZpsUjBSFWCB99LOsIDJPdUpaThmIZf
xrxbDcT793eKKmRhyZIZx99TByrq+t7vzkGzlI9ZhUcDPur8pxP9ubBly+7V
MGuCq7dlxFx8PqSvpY0HXSWo1n9xB06FmCem3I5/t6Ci6PxT/aNFYIptN6jT
ewL7kbXVHTtLcDmysdRTqw1bcwtUVYXKYMjZ+lHxbDs4JStyFZPlKJWDz1BG
B4x79E8cLK5Eq3zlu8TVl9C45Tvy7X4VDP7Hk9vg342jI+tSNC7Q8SzOUrvD
tAftsye8Vj7Qca49h8Wh9iK0j7WB24kBwemgHLvbfbhpVPfBmDBQl34mNbiy
H5oDyh2HfjJw2lp8Q/HgK2yl8vHflalGu7rq9o9cAxC/30qplqtGg/G5KGPb
Qehy+ptifvmhheKD3pVDmFdnRf9RwYDMOP+K+eprWIloXlRTZsCuQEVuQmsE
/jN08vb2r57ewB4jn1EEvqiWd2uugnPBOd11mWPIHC2lr2ZV4snUjB2LMQ5P
ut4nNVo5ljf6CCxVM0EVotsF6JRi0Zezadp0Ag193HI6w0V4WtZiQ2+cQMlo
pspam0KYucsetlRnofbiKm/7fC7GuDq8LbJYsBRPkAoUykKitGCB51sWSkQX
nN/fuYfpuauLe7eyYbiBP9ZPKxEvTQzkRQzZkP5YYVTjEI0tvj/eNVDZUM2w
4NryKgQV7KutC4FsFD3x+xnS7YPKgGjdW+FssBQdKZKyZxCq9oeo9i8+J7HI
pxRiTxbXyAy4+LMho7ON1T7nS3jT65t3O7DR0xIVE7YcTFrsLz1Yr8nG9fzf
/2z1u02e0cKmEtez4V2f/5eFUCx5GPdgn9gwC50Jm/LLL8WTXVG869szWKgU
0BL4cDmRRCZkvOmyY8Hji5mGsMRd8mmWdm1BkIXyafGw8bxkkv6wu1W5egIh
5s5RegMpZDg3IuWB9QTWGNyf7Xt4jwSHDdnzfGaCZ9Ziud0+lfiz+Fq6NJjw
0RZl/9aZSr5JNLrAdxxJU/sUrgimEfvjV90i68ZwSSdC3XlbGhE+HlxbvTQK
t/iCeY/NaUTM4LhX1vIIRrQ82vpGU0n9Ldk+06/DKPtR+106KJUIJUsPfOEa
hmZgX/GatanEauFhcojIaxz9/mw+zPcema7IbsvZNoSKXRZcOsMpRJKH4/6v
+iBoC7lb65VSyG5/sYQLlgM4wV2SHXgjmSz6qXflBPwXbDEPpnvHXXIyiqG7
0+gVpJqVZuabk0iGy+sbrD/7YftmTEapJpH89eXI9SbxPiwkud4ZKksgu8eV
r3tv6kX3zLLNldJ44r1rdpYu2QOJNy559fQ48vCxF1mx78bl1sOPuh/HEqaU
kmhjXifcuez+6WXEkMusM7Skny9wyFk5s+/zHSIVd5PaLtqBZNlxbvmpSJL3
WueGp1Y7AmJ+6zq+RCO1FPo37/g2OPEfXg2RiSCFbeTIC56nmGm8KdB1KYww
ss1GPWNaEaX5d8fwqxBSqXI+JlKtBYq8R3Ycsw4mVe7GNWmzBC/FGIeTl28S
qd5wo42pj1A8c1bDvDSILJ2R31IS1Qj7r86ezz4EEln+tTTKvw9wMnSuLIzp
T46Exm53t6lFmOri02lpX1L5/fvBi79+raSer+abd414tKeLB8jTIWh8cdSG
6kVuGhw3DW+rwM2sLSe1qZ5EIZiycyypFA5i2TOsg+6E4pH51KGxCORx7BlH
7ktkq4j2spRJAZjhCh/iZF2ImvSG/DHbXFDXqw7XdTmRjGLzo/zZWbC1Vxa3
nXMgg9kKP6yPpOGwFN9OzpuzRLfY6seETzK8hcaemWTakqMbmVBRT8ReCbmD
Q/OWRO/C2tpeahx0JU0aW1osyICUikjmzzsw7H/P+zufGUnj3E/5Uh+BA8fY
J0JFjcjVG5H7H9uH4Ac16XzHNn2yFDdhcPRFEOp3fV4/JqpDrB+Z3FYvC8Ch
2pbMaiqImPX7+skub2jKnXQ2mjxAxkuaDCOueWHToMroaXE1MhbzZvxpqgci
DgwdnnmtQv4PvY0kYQ==
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{
  3.794382964076276*^9, {3.7943829966958437`*^9, 3.794383038816659*^9}, 
   3.7943830708132887`*^9, 3.7943831512026277`*^9, 3.7943832223216324`*^9, 
   3.794384024709948*^9, 3.7944037396415825`*^9, 3.7944726564034224`*^9, 
   3.7945539701220627`*^9, 3.7946450900043187`*^9, 3.7948028411904783`*^9, 
   3.7948371438686266`*^9, 3.794844727272408*^9, 3.7948531733848047`*^9, 
   3.794884194320844*^9, 3.7948874527844324`*^9, 3.794894861102265*^9, 
   3.7948970410341883`*^9, 3.7949012533104453`*^9, 3.7949189355912223`*^9, 
   3.79492090670124*^9, 3.794975558036785*^9, 3.794977656007945*^9, 
   3.7949857564879627`*^9, 3.7950125536448593`*^9, 3.795059724421502*^9, 
   3.7951572091327753`*^9, 3.7953198313263755`*^9, 3.7953199678252635`*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"65c515ec-23e1-469a-a1cb-4a1714f95367"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"sols2", "[", "t", "]"}], ",", " ", 
     RowBox[{"solr2", "[", "t", "]"}], ",", " ", 
     RowBox[{"soli2", "[", "t", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red", ",", "Green"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.794380208150543*^9, 3.794380228102027*^9}, {
  3.794380264320429*^9, 3.794380421397479*^9}, {3.794383195694499*^9, 
  3.794383212813023*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"b3ab0f09-212d-4617-a0f1-059ba5fa256f"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Hc8Vo8XB3BkhkJCkaxkZfRF9jn2fsx4kOzskZFdUpGRKElKKAkNW1ay
QkuhUqEQkvVIZER+9/fXfb1f93Pvuffcc4+ga6ClBw0VFdUmNRXV/49Clzfv
3uZv1VAp+GIgvUWBJ4zi+/298iBiYHm7JOHWiMeFYl5lYLa+0XaQcKfsSU96
r2dwX7+HTZBwd2qfwbLnW1gp0hLeRfiFyrn6Wc9vcIM2/e/SPwo8UNt1WqFs
BAIvr/1dIPxr0D0vtHQUIhVfzM8SPr2XcWwx/zsc+JzzYJzw9eskT8qlH7AZ
m3y6n/DLjMGTU54UKIs9bPmY8MXsrBdX5RZg2TnEvYSwlBfY/1e2AEe8JzwK
CQczZEQHl/4C4YUMhRzC/3Tlmxfyf8PAzTHqC4R52qO05y6tQLaMMp8t4cYr
wu9TmVfB4FY/vQXh466v3aWSVsF8tnnIiHAhNX+C7/k18GiONtQgLIet3T+j
/kLimOJ+EcJGTxlIk55bkL6bIXZmkzi/5brMtbAFc+6Hyd8Jpwo49QirUeFu
Xs/dg4RDXRvCrDuocKerjfxLwjqTQR0176nxpL7MWhHhsblhl4jlbbhTR0XR
nvDHtJSadGVa7H8av2FG+KWMMlNJLC32asjl6hKuPJlZ/pmODkve3veVJXx2
2WhLhYseN4dMpWkJC2w+ubWpyIjWh3d23d2gAOdtj4Xd0Yz4bSuMkkWYEXbp
SD9jRIOS4qkkwpS4gJnj+kzo3frZKJBwM+0BlRbb7chosa3pCGFHlisD8REs
KPcgtLj5LwXMH4HkzSYWFNuZnPiYsA5p7nQVFSsiTaDkbcJS6Qai4xdZcTA7
pjmG8MaurVDdGzvwdK/iuiLhN6yKTLSObBij60u5vU6BPmOO7J4YNlypTmdM
JfwpaV70xi021NZnGo0gPE53X0d6iA1DfrW8tiC8sckdR3ZgR53m3lNUhCXm
1/48tONAk4okJfM1CshKfbwQHsmBHaerB5QIK/pUcmrd4MAXF8dFBQlrTfoc
HvjEgW6Djr0LqxSw+zroT03ehb2F7cqphC/2PB0/asOJfq8D9SpXKJDGkhMi
cIoTb4dRO14jnGl0imbmGid+y49giyCc1yktEPeBE+teMRmqEa5tznMotd6N
3ddsh5/9ocDE47N9/yy50P/m92OVyxSYnnV0eRHMhZbx67lphBckVBauXuHC
cMez7j6EN4oWWcX7uDBawShagDBnnpuhlQU3Cpk9KUhYIp7/sm7LfTMedGl8
ekz5NwXijKpL+gJ4MCxeePsOws10wlc3L/FgOLO66NgiBVRiqE5YveZBk42M
OxcJ/+fdyLxlsAddL/4K6flFARFtOVsbrb346tZqg+oCBVz/5eFZl72YwS/l
Tk84v36HxMO4vago7+/wjkIBPtnZDepne3H/ox5xV8K7992/80iVF6/0s/yL
macA/QrfPK0CH65+99C5NEvMR2XKgIw1H8q0DNwwJhzvv95iH8KHthFynEyE
/30fuFpewYd3vC38z85QYOXdFeVj0vvQjyrnuOc0BaZKGS9UHeRHg3ySPd0U
BURPhAd81eNHpomwlOofFHAXnLRlOsGPIhouj10Jj1xvl3Aq5Mdle2xqnKTA
5/On320X3I/AqHnTeYICHjLrrHKsAuhge3df8BgFTAYT7/HwCyDTc2sVesLy
ibvVqWQE8MOOi2+zRylA+03W7625AGrEPTCtH6HAnTTPl/6ZApg75EX14ysF
vs29TyjlFURVmljzhS/Evrzhyn9FShAdVh4aexN+rLtQE6kuiPFHDhwf+Uzs
v1zmCQMnQaQaWH7Y/Ynop6mW9o87guimayR99iMxjw/LtoQlhPBd6OeslF4K
IFn9OrOqEJ57vb1y7B0FxGhfSf82FkLNN/5+RwivOkw6tvkLocX3lZzPPRTI
Yt7X5FwhhJu7ToxvvaJAv09yRK6SMPZEqFm+fk6BBi4etguGwpgCphJrHcT7
tN2772cvjF+YGViFCQfvbf2oGiOMR1nuPvdvowDbyxX5L8+E8f2OhhfDzRQw
Fff4xaUvgh+X6k35n1BgPSWscdhGBLecHmqK1VKgeP7ChcITIvjAn4dapobo
X3XRnsMJIlijOFtzuIqorzGlafpcBF9Ne7ewlxHf09r3yjntAxgcvC1PpIgC
72ujjxlZHcBaWT72P4XEftuTKsrudgAVxPSvt9+lwNDXhw234w/gCboXJZYF
FLjqPT9W33oABYzk/OEWBajOnPxvAUQxo7knRz+D6P/o2c1aM1FU/Hl9uf8y
BRx0rnTFOoniEvPjBIc04n9lqnJgPiOKJhPO24+lUMAvc+mcaLMoXsjW6BG4
QMxPSfj7Y2oHcSDzwXppOAUSWC7eFjY5iPc43u/4HkbMS2C217TDQeSICift
DqVAunz9Rnj0QfSWvkntFUQBvWfrIlcbDiLZ0Ji9w4vY3+9jw14oiWE1z8o9
XTLRrwvurmOGYgj/rYlNHaXAbUVjs7/2Yog/+ezjrSiQnM0jfihWDItWE81y
SRRwO1Y1lN4qhgLHRHR8dIj9MD6lTTYSx2fnbDT0pCmw/dpb2ZMO4si3Ynnv
qCTRD73afcl+4vgiSbDfXowCs/fPrTSmiWPXDbplXSEKPPflf7C/XxxBPTfg
5m4KnPptxfHDQQKvnE/iF1mfB79Cla0tPwlcOTync+bPPLgeFZzlOS2Bge38
lDeL80B6Mv/cKF8CX7wyFNedmYeD0UmRj8clMEnL6lHW4Dx8onk2EuYviSwB
d4sK6uehp+rem7TTkijzsfG8YM08dLinNty/LIkZUXxqV8rnoaLTLvNzhSRK
85RG696fh+TkJX31P5Low5AvMH91HlQ5JMpoz0hhXsPmOX4f4n7U9i/eXCZ8
26m8zH0enH8lfc/Kl8LzDZ1WMk7zcP7dT27xNik8c0NGfc2KyKeVxJnSHcLJ
2BioVCPyzOKWWSmHsIlmjiZ1+zwsrpP9nG4dQlGBZ39ntxHXT19MEHt0CCPC
ahSVN+eg5MVUQ0PPIVxJrc+6QpmDxcRi4W/s0jjsIrKq1T8H52nFlg9mS+OZ
vOxJ76w54Fqy3fmrWBpbFIc5PNLmoPh7onhDvTRy+SXSGiTMwZu2H44mg9L4
5ue4VUcYkT97vzOIXwY/uX5xT7ci6m2KZtcXyuB122tsOtvnQG3OpjK+RgbX
1uLq8qnmoGco4bVxpwxmlDhfHv0zC4uNk1Rff8jg3yy/Hzu+zwK/er/82d2y
+FLnNxdHwyx4/r2Se48sizKRceFJrrOQSZptj3SWxcWsFZMPtrPQUqA7beol
i82/9y3Qmc4Cj8Gq4p9wWXw1qfqL88gsdGc6vtO7Lot/7P7YTjDNgri02Lap
D7L43b1nUKp0BmzOnhVvGpZFLaP1uMrcGYh//8UsfUIW9dx2nNubMQNfoi7d
UlqWxctSX3dlhM9ActeiQhKnHN7amVjEqT0DM85PvSSs5FBDQMHP4f008FRz
Xf5nL4cdYUUHV59Pgw5DUE2fqxzWy74ICHsyDbceCdFEB8th0uFAMnvONJis
J958lSGHnD+s7r52nIZHVy17/N7JoU+tXaD2t58Q2PnjvzLTw7hu+SiC9eUU
tOBDXymbw3iK9qoib+0UsDUG3S05fhiDE97XbbszBeVlaxyFgYfxqgRLpEfk
FCxmMy9mZxzGT9I39waKTsEpX5ny+A+HkVpia6wl8gfEsIVL2Tj+h52VpL0M
DJOQbE9/YNNPHouCr5116h0DDVmWPz9D5dGL/8Fho7ox+EXH0fUxRh55Rjqv
SuSNAblin3d5qjzynQoI7fEbgwOMCo/cHsrjyRtOARUMY9BS46bwckYeDad2
yhxTG4U/bK26130UsOmpUAWf0TconezkOh+sgOnX7alPcn8Dx6bXP4KiFLCA
O3ajb/wrdHh+SjJKVsD5FAP2jjNfIaOZ8mazRAGHm4IuhNcOg5Qfv437TwWk
PrXbglZsCNy6ok/IeSlizmDvsLLQZ3BXEyX9CVTERxxRjixLn+BExTuFxnBF
9L7s3cnQ+Qm8bh6g001UxNIYavEYn08QEPj2LrlIEaWMTkv41wxAFLfw6Jlx
RZy4I5m/ZPURrni+dOhxPoKPdG6V8z/ph8yhUO2rXkfQTFVbjv9yP1yz2C9J
DjqC+83rR4969kO2auj66JkjKF799HEATz/c3sl/Y/n2Eay70E9tEtsHpU9O
fuQbPoIdZJGu7xa90Mqwx8LXTglzYVQ8ldQDk3eljT67KKF7YglnLkMPsKCO
tr6PEm7LK6BWbn0D5IhABeFoJax1EddmV3wDlKnnewZvKeHXy9tsVEVfw76X
wWNGI0pIf2cXyAq8BK0TFwfrppRw3agovmf0BXjR3H4v+ksJ14RG9BfvvoBq
lRedNDTKmJpDiegWfwHGD/Y/aBBWxtWc5dIC1W6ITH0dIuGpjBzto4cvhHfC
bbExv+xAZeTZ1+SqotkJHR0rHvQRyljObd3uy9wJbJtC5LGLyljE73YUC57D
ff9ItZxSZaTU+4bk9nXAB5Io3fZ5ZYz9ZrAj0bgd5Njjsn6GqiD33oKurvQW
aGAcEOuKUcGDJn0+2r4toEUl3Vh4XgWtdhof4NJrAWvK4DenTBWc1HHNjll7
BqfeHBH/WKWC+WUxJTuGmqEpidLYtqiC8+fOn//8rAl0z+qR8tdVsE38Uuue
M03QE5E7EkujiqfuX2z+rdEE3zyN6ZQ5VHHmTOhkYEsj0OjdJ5XJqeLkgP2e
Ey8bwIDGafRmkCoGqEnWKa/VQe9aTUhkhCoWtVpKx7fWgf0vFnrbOFWMOfhq
xDy5DnxHGiQ40lVxIXfYJ2ZfHaQ1c4VeLFPFoM5lkVnDJ/A+qoc+bF4VlYEH
ZBpqwPm3uhTJTw2rVu9ulC1UAisH1bv3oWoYzH9RTaajEhpk20IcYtXwQ8W/
vSLZlcAZoNfolaaGrOyNL701K6F7imR0rpzIR/2iaN2oANmvTl51S2qY9sRB
SdqxHIY3BFlgUw3/JDwmRR8ph2Te8bLndOrYN3quSZKjHMbJXit9XOpoqzjG
5ZFRBtn9QQlzSuqYHMCYHhH6GKhenC0UilVH2p3Kzc+PPYRHP7QNSi6oY0Di
1uwQ30Owp6eflUlTx6i4Q7U3hx9AtXbyf+p56kjXcV+SyeUBeDVfabNtVcdP
6n7SIYGl8K7q7kgqnQYKDvJcpSkphoLbz/lWLmkghTdNZ+/5e3DrmNTA0SwN
FOARFP5ocw+y917NqL6tgZK83EgrcQ/Sspzpg8s0ULmUT6eytxCi0v5SZt9p
IIuk9/Rh0UKwPC3XPrYLMMjcsKZr7A6YqmXHavIBLv51VOJtugMG6/+O5IsA
5i6rUHqu3QGNU68fOioABrd8rrI0ugOSAZ5Zn2wAj0gWf3n8pABoj+d699wA
zN6eQPvzTj5s8dKKHLoD+JG1Ofnl2XxY/+zzNaUUUDP68M5N53xYOKpkZdgI
yC1hl2ohkA9Dpv1qHUOAjXq123R08+DLbVrG4Z2IaXkTJU4+uVCVpjLYZ4kY
Zr8r7dKeHHC9uYOuwQaRVsYne2TmBnAUj0kX2CNe4/yjmd18A4Jak+MDXYnz
3y1b5TxugNTSF3GWYERl9ZLrv2uzodAuOkI3A3HQZ8fAd9/rYHXC7I7UNcTV
Q8UsHDrXgSZE+PWuG4hsKfsPZ/FdB+fUV/vH8hG7Tqfq5/ZkAd8z3q7T5YjJ
QyIRGYpZkCnStLvuLaLz7+ger93XQFsuHfL6ESGEwfPmYiYsqrt7JwwgXtho
+8L9LhPMbVmeWn9DHIZc0kxKJrAkH3P/NY/49MDMtyn6TDhP2aiU2KGJQl+m
91UxXYXQBnXzXBNNPJnKRFHTyIAa+y6az+aaeHb3xSwZwQz4s25ew3lUEwMV
C/JdaTMgUtV9b6qjJiqpJuolvkqH003J41EBmjguc7y57lg6JDYPRJDTNTEC
JW2cOS9D93EXycxMTZSOrqNrGk2D7VvTw2+zNbGaZTD0QlkapMI/Lf0CTSwe
n7RwNEmD9BYRVsVKTbRWNtDflnIJctpOFux6r4mVUcxP1HhTYdD1r5XZJ03U
2De9d2U+Bfi2XaBPGSLqK5njzvYUuK2d7UszoYmPdlSbHfVLgbsdzQq/ljXR
O2eMSqA9GR52Mr/s4dbCMwLrbLNxSfDs5b3FJActTI3fkhk+kgiVPO9Oxjpp
YddNjcRN7kQoPLG+EOSmhdwRHst2qwmQTGNGsfXVQmstMZHn9QlgrbI6cyBa
C91uVEraQgJMlxhNtOZo4S+Z4+Mb1heAM4kysPZZCx/9/plPe/8c0A/ssZ0b
1sLZubCTzZfOwZqIzseRUS1coRneVRR6Dr62ZL/v+qmFIbr6uKl1DkpWNXuv
rWkh/d2Boy2j8aDhlflSbo82Vp2yTdE6GA/e+spPvcnaOPhri/bT2ziYF9vz
vOKYNjoLc+XM1MdB8Pa112vO2qhUX3FcrDAOYt7UDSV5a2Ndsv8Cb2QcpFsp
bZREaWPBrvspIyJxUOt0RHX6ljZ6Bb9a2M9wBmgiFOp9RrXx2NHAbQO1MZBo
t7u1ckIbH6X3/KXKjAEW1eXu9Z/aWERvyu99MgZ2/6v+lLyojUJ5HoW/pGJA
7Lz8auk2HdRLe1/6sSgazNL/OzJzQAcLlBacku5Fwa1iuRpfHx30+aJiRH4V
Ad2f3brzAnTQDWgvjZZFwNL2rMH+YB0sNGedyM6MAGP/dWq1aB20s70Rln48
Atbl2kksqTr4jK0m9sZSONg1Wk89fKSDe3YMWXaKhQNXTzjv/IIORqeSrQ+X
hYHWVom00LIOXhAsj/qUHQYBskOaNms6KOSjkH4nPgw6r6BXM7Uu3v31NbjA
JgzCbJlq0jh0Me2LXqwWVRi8H8khycjr4tVlGHxvFwoZv5+eDQrXRU2TxITT
IiEQ0JfucixaF1GA1ef4rhAwqXDTNDiji0Ev5kdsaEKAPpCJWiBRF19N8HxI
HwmGmGnruLdZRD2S2Zzw7WA4MTpzWrpWFy+VsHTn7wsGtbd7YmaXdHGNIthP
kToJex7POnxa1cUK9fafV/lPwp/UZ6odG7poEBTRbsx2EiqMPP7epNVDji0h
2T+/g0C0szzKmFMPSZmb/+SagoD9qX5k6X96mPvH/Zm4eRBMload8grWw8rA
bWP3tgeCzb5/X4tP6eFp7ZwVx4UAeH45Qf9nlB6GBka1q34MgMLQ6zw+5/Rw
RqfM0fNOALhq1Df4Zuqhy16u+lNqAfC1d+NfQK0eVnTzFKuF+8OH1XOJYet6
2NWn8HaIzg90fFkWav7pIevpK9X9FF+oHs4k/6HRx52l7pSpz75wpe2eeDiz
Pt6yz0j0f+wL5qldryL49DF2TUjuM9kXXu9nZovR0Ef1+Y5rrFU+0KF3JTs+
Xh9P3iMV1kV7w8SJxjdRCfooy2aLZB9voE8cpwlJ1sfMhFJzVjtvMOhS9He7
oo/lvEuaTxS94bX+oKbOHX3kvXQsg/63F/QbiMzQtelj+tbBxrBALxgzqlVP
ojbA4IDiz+9OecI232/BZ+kMMJWvVPi7pyeIpDAWRzIZ4GWSuAKDnSeceGXP
4cNugI4tL/C8qidMG29NGgkaoK93zRqJ2hMWTQzSWTQNsKdfT3Jn+gmgNvsy
djnOAAXarhldr/eA7uajwqHnDfAM++uexYcekC7d60a+aIBMAq+uHMv3AIEd
3eMC6cT9hj0u2id6AL6pmazIM8DK1K9zm0c9IM44Y7q/2QAHc0Za3i27A5WB
wSL3pgE+TZLQPQDu0P2k/fAGlSH22jrXCcu7Q/pBCBmhNcT2TEdxaXF3EGBQ
XCpmMcTq4ez2E7vcATuF/yjzGeKiWgy7x5QbxOlsrTmoGiJzg9bHxEw3oNKs
pc6PNEQv867KtSVXsNf58fJTrCEuLGUyJk27QrU+TyZ7vCH6Xr9sKjLiCl6k
KNFzyYZ4rdbN9fQrV+h10DA+cdMQWePmx5vvuMKdU52ZUk8N8YxlV52rlSvo
PPx4sJ7KCG8mMD/taHKB22UMv37RGiFvQlFFZZULrFYqNUgwGSFbf3RpaakL
PKzPMbnFboRnBVaD67JdYHfX8ZNnhIzwLrfkpGGYC0yOTjbo6hihyRTXJSVZ
F7jIvWLal2iElQm7VaYeOkNmd/f3thQjlDsn4HD+njPkReZEVl02wm93Gb8c
vO0MtYPq9zKvGyHTPXx7/rIzTOSd37C5b4Q+c9TF14KdQUuM48FgpxEyv3HI
ZlZxhg2lQ4wTdMa4Y31Dc88tJ2Cc/pf7gckYU+9LDTNcdoJdN9/918lqjDm9
vOzb4p1AYjPE6f5uY/yq+fkfv5cT2LU21HofMMYahtj9M/JOUGto4DGvY4wH
mVzed787DkH2bm0r54yxhGlaHtmPw4686RG1i8Y4xH2q6THtcXj4/eTW2VRj
bLdY55ZYdYQffnFqLNeI+rsdmfS/OcLxM7m1AkXG+PZU8Xaex45gUjhQatht
jIyBqrKMJEcQmze+epPFBKf2+xlVZB2D0bPE0FwzQd3mtSU0cABRrh1pQTdM
cJsP27E8DQfwKf3xpCDXBOWdEnvpFRxgqS+HmbbIBIVm9esWBB2AUYS6qrvW
BMflOnVkNuxBuvMNteUnE2RgK/Awq7SHqO2eee68pujNvPl7UMQeOK/e+JJU
YIrp0+K8EoJ2sP3Drt7ge6YobVNZR7/XDqi407ocSkxx3+MA058cdjCXE199
qMIUT2V46bbQ2kHnHd+03hZTbJK8/6Z6igwRlepae0ZMsXzwjFxVBRmGe0dL
ivlJqHlF4NOQPhmK2CQiu26SMHJ55kD5OVuQnrRbpc0nIe+RHHuXWFt40pgU
rlVIwsNPaxl5wm2h+8TPsKcPSagcslV/zccWppuKg6ueknD6klxPr4UtHPI+
6Jf3jYQsdWLF+oK2UN0q4hQubIZj5ZuWNB020Bq8X/fgAzO0K+tnu8ttA+vL
lHS+MjO8yKY2+o3DBuQjW4bYq8xw4i6ds8AOGyg+4xK60WCGDdkVdg9pbSA9
9e7d3pdmuK95eIDy6yg4Fx2kiZk2Q7Y9H0yE3hyFrdnrTlOc5mjMkL2yP+Eo
3BbI51O3Nkf/QGmdD9RHYUeyXPchG3Nk5S0WXNu0hjO/20L4yebYV3Gyd/+6
NTh3TrzccjDH1KdMeWGL1iDkJxnZ5maOP7hGq7S+W0PRk9oP+iHmeH7vq3fO
z63hMelNmuUVc/xZdlotN8UansasU3m9M8fY4QjmnP3W8KdsciG+zxzLVES/
7OWzBtnvfSO5782xY5jX9jaPNRQaPmjp/2SO537+Z/WI3RqSuY7Fwag5ZrW5
cs9sswab8qdbXIvmKPaBZ/r7lBVQvsf9e77LAn+b9KY0VluBoDHDhrCtBWoM
PXdMsrIC+Q/afXvtLHDnxgP1j+ZWoOcUV8zuYIECIq82REhW4BOyZr113AK5
BHR3dRtYQfXNmUdfTlggzRveaBENIj/71injlAVaiy3RKYgT+UvZ7f+uWWCI
ueWFB1RE/q14yuf3Fhjb/pbjTrUlpAu33lv/aIFlJ478J1lpCb7h5Bbezxb4
4Fi+QG2ZJQjtT1x2HLZAKVrW472llnA5YNxpbMICFemb1PcVWIIPa578zB8L
ZPvb4MKUZgkCxpxfN3gs8cCbS53i3paQ2vlPVsDREiXU2WxAxBKuhvz0cR6y
xJfnX8nMVlpAzG7+nUJ2VhhEK2kYbW0BJeJ0L0NHrJBvaoIzY9Mc6Jeo97Qe
t8azae1c9+rM4b5sxenbP6zRRnxDgCPSHMRdS0mb/kdROwOH9+qYw6BhfeXR
maNYzqjZ93aPOfTdjToEITaY7D2iwjRhBqtVFmpCizYo+aSJRqLIDLbqgmsS
AmxRqFPq7FyQGRjL6unGLNti47i0/BEwgy5HGW/fEDKWHPjubMptBhxuXo25
YWS8Vs40f5/LDI57FbC+CydjV7rvBA3hP8G7KuVjyJiIw+wNnGYgcnFlffM8
GRWnHewPcZhBXOWz1PQsMiq9Hgs6yGoGKgzm5TX1ZBRfX5v13GYGCSxJNFON
ZBSRv6r9lsYMetnbrPc2k/EB6G8oEvbik1873UbG6Ya/VxiozeC6HI+WwSsy
fuuJJD36R4Ilh5H+L0NkvNE32bF9nQToskeU9RsZPY9U8UeskSDlhGUEjJJx
XDL548QqCYROdvAVTpAxvMrKqW2FBBYJxR7+82RsfKHUc2aZBLdSRp/kLZDx
uZI6+8ISCabS927vWyTjZS6dcmfCcTdTHyuukHGR9Si19m8SvM5/TuW9RkbS
/uHK6kUScBf9s7z5l4xLaW7PRAm7Pjhy780m0S/yfdEbv0jwuDxoZWuLjMUR
nlPMhP8HRtDgDg==
       "]]},
     Annotation[#, "Charting`Private`Tag$47976#1"]& ], 
    TagBox[
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1mc4FY4XB/CrCKHsEcnIuNfmUtY9J1kpsl00FLJHKIXskZU9QiFC9qwQ
oiGKJNUvbREVrggl4+//6jyf5/m+OM9zXnyP6Gkfc+ctBAKBmY5A+P8US1kr
uS7cTSHUK/DtZazXvsNE3OPlWgiEPM7XH0qTKd0XakulXeuA6ZwLa9PwNcpj
xbMu21y7YJx888L4vlrKk6Rhw0WX53Bp5Hy8MWMXpU8jqnXa5RN8nr+y5+7J
IUqVFleoat1neOsT/FU1+gXl1zunwoDKL/DdV787u3qYErqLaWy+6CuYbwT2
0zG/ouTkmLjQkieh4ufGyZBfbyn9ae/OTrnQwNPkiq+X4Rjlcm52X4bSHFxI
qnvWvDpGkXUFO5W6OQhQXN/p2PSV4seYFuxX+QsGty5ZcEhPUNb1yJ1zRQvA
62Tun60wReF/EHRwJnkZSpaob7w7Zynt6eIjSSx/oLzbv2mpgEY5cfqZk2z8
H2AVKKtUhzlKKZ1wrEf0X2gu8y7bL/GLooTdT74H/YPgNuaTj7cuUIw6GE2+
uWzAb9aUsfydyxSljdOLvHMbsGhYY5BaukxJEjk5KK5FwI3X1h8rNP9QAk63
nbN8SMDC8+q1jr5/KbrffB+2jNDheJa43tPf/yhjMx9OXVjcikre38y97xLg
9ZXEllR1emRncI9f4KGDfgV15luX6DFP1fjhUAAdNJ7NrH/LwID5Jqvny9S2
QMSi0YYG7zZ8tHtATu/pVhBZu1OwpsaEhI0It63ajMB93XmOJ5gJ6/pqxy82
MgITcOnKdzFh73CMWRGRCWjh3j9PGDCjax5nF/duZuikl9C4b7MdW0+UXtAV
YIHjrOlvIi+wovKOxqtPPXeCaQ3I5N9jxWMeBR0kAjvomsyENhHY8Nncx6R1
I3aQTTWUHL/Mhq136g99+coOq1wbAXpXd+Bdf5OCdTFOGGBTY6Y/zo4spYwz
F0e5YfgwZ+5gCDvuSeFj+6XIA//Fz0peLWBHrqwwzdTLPDDOUK4r/54dv2+V
9LTS5IXVNb5wqj0H7vrTbOxRxwek2b9L1bacmMRupdX2ahcoyr6OCbzIicNp
7zbqUBDU3Bu5da5yorV2xjpXjSDofHNXfvMfJ5rZhL3dnyAEth/fedFRufBX
x40nQdbCcHmwY9zKmhs51T/YjO8WhSusef4i57lx3idUhcVBFDKNzm/5mcWN
cTNv2XhKRKHwsbxI+CtuPJiQbvNBRgxudxbaV1ry4PmpAc80Q3GYqI0YXjfn
RU4F3kcmDRLwY/r4qT4/XiwRXCnbvVUS5kgacxnpvJgafNOFwVoSVsvm2YjD
vPiwm1IqvyEJ3IWOhyzM+DDp2tyY2Ulp0EnRu19+lB//E5YlqdrJQLhR861h
b37UGTWfP90hA50M4hlryfzYJzH87YOoLGiEEM5YPOPHwN/+tQOzsqDi1s6y
YSiA3uKBMjxX5WHvQSUba51dWPdbq71EQAlOrxdixKldmP6FL+yOtRIUte4g
VYfvQncWkmdOphIIKU6v0nXtQsEX9Nd7OZWBZ3f5jRpNQTyqw+ysJaAC25aF
ZulVhfBK5VLJTjNV0G1MfKNgKYRWlpqPDhWoQqTXyn07fyFMkFoJC5tShfWv
bzLqG4RQ4epC4fcoNVgeSlc/Jr8bTSr8N/h698FUJVNMk5QwRmtWeqhEaoDk
mUDvj/rCKJE1f+HlRw1wEv1mw3xGGP2ZP+2r1NKEzzkPSCdLhZGZ8nkPy6om
vI0OHdouugcLRlLnGRK0wVlhhU2JTQQFWRdyrf0RjryLu8kvLILFpn7Fag0I
5DgebYKCCC4YZm7/Q0Og/6To+dxUBG3deopkfA/AjSsu/V6ZIji1/MqoNlgH
Ps2MxFYKiuLrFMvb69268PjqaeF0WVE8HivlFr5TD2r15louaosi91PuNcET
ehB6jWXC8KQo9uxU5mpY1wMhY52DkzdE0VpTjOGRsQHYVtdtiJPEkDz+qZ4k
ZQRI1c5h0RTDKr4W0LxsBNL0T+UXDovhq0cfHlT9MII/9t+O93iJ4bJobHl3
02HIZtl9z6FBDLt629otbIzhpXvChWv7xTH0xTsdywBTaOPlZ485JI77KCc5
+RtM4UbPzXJPO3FMjd7veWfWFPx2db/WDBHHG8WJy1meZsDev0we7RLHL6ps
f+X9zcGY6PyL12Aveni5xLXUWsJK4rn2D9Z7sTZzprJ00RIqZmNiSs/sRWJC
R1KkthXQN5cJKMfuRdfuhft8Q1bQRpk6YPxoL+Yn9TrS09mApKVHetRBCcxx
Kyjuz7SFkdvBx4wsJNAUDAxUpm0hQiBJksNRAr1J6Qbdunbw/mN12/VICUyN
yk89/tcOMtxmx1q7JXCQK2qI6ewxIISdVZkDSaz2PpR4+9pJqP0SsXb7qCR2
xPvq1NI7gL1ueu+lk5JI/25UV1XTAW4zN9mzhEminYz4IbdKB/DM/B0l2SmJ
5aNVr2rTTsHbW4Ejx7SksPrIC/L7GEeIZb18XfyIFFqJTX0QeOIIZJ9c1x/2
Uri/podIZnGCVHLramCwFH5aJfRtz3QC/a6VvRltUpv3tSJk1TtD48ilc337
pbGJd6f0Qz5XqIhxOj12SBqr380N8Pi6wnW1w0f/2UnjNrnPb0v7XCEhl58o
d0kamTmCJpLD3cDxWNP71G5pdBC/xrtz3R24x6cOUo2IeHiOYd+Upjdsz3qu
eNaeiGsu+n0HK72BoH97d4InEc98jqkj7vKB6fKo5fYrRNz/Mdu9at0HHnkI
V+15SUQmuYTrGTO+cH7BgnPSnoQsRpItkQt+4FmqsbHhSULjX8sd9vv94bSV
6DR/KAn9uhNHpUP9weTO7COjok2rh+2pYQ0AqeD4i7XjJIzk0kzqVD0H/23p
+nzOSwaDBG2iWNsDYbDp5sCVUBkknczRf8J+AR46JbWVp8jgWvx8UoPLBWh4
bJv5tkEGvz6x6BcSuAgJCb8NtJdk0NlaXbA3IQg0OUl19GGymP16hWNbzSUY
pLPrG0iRxTcvZS9m8YSCw6/4r9lFsuhXnBEaHxYK0UPf+Yg9sti47/NYvU0Y
DF65FW7MIIfXJQT87iWFgwML0Tw7UQ639znfuOIfCfMrVM+TBXJI73/mGkdz
JET/uBwrXSOH7K+Tub0WI+FW31Rb26AcRk9lHr8bFAXzcRXinzjk8VQz8e50
SjRE00svSuXK42+5p4bkyVjg/W2z81eFPOpfWduZoBYHFV/jiG2t8mjqpZIx
ERsHAz2Tx4+8k8d65dXRVtJl4I0of+wrrIB1zSQ22bB4uLUmmdtaqoAkDxWg
P5EEWjPWjZEtCijixHJCvisJBt/HPjv8WAENW9JT00STYb79G+HjpAJKyWrY
c/xIBmHtl+QIHkWkBr2n2SakgMu/9Gs3qYp4oJZnIjcmDTJNph9cdFBEOUt7
ysC9NLhfrPfD2FURn3aaMZf8TgN+wz9qS4GKeEutm0P9TDo8yTw+pJ+jiGTH
fTs1zTKAKC+9deqVIrr9eyu6bpAF1hERxHsfFHEH1wkupoQsiBwZPZo6oYiy
rwPUB55lwWhQcsH+RUX0v0scTLHMhoTeedV4biU0808d2uuVAz8dOlxJFkqY
P7bos/3hVeBv5k1Zt1NCrfVXu9M580CX0bdl+LQScotrKM+dyoOCGrEtwX5K
GPtlW7ja1nw4shKX/zRNCS2KVg8JmRZATYb5oOeQEs4kZ7i/4C4En8eTKnXG
yjhvL2n+r/IG3MdqD1lrZaQ+yzs7M3ED2Nt9S26dUMZ7ofmvL4mWQH3dX85S
H2VMr+HJvpRXAvO5LPO5acqo/P5CP09mKZz3UKiPfKWMQRLuxjFlZfB4YmFy
44MySuetDL38WQZ8Dnf3XPqmjHsm1SWGlMrhruWBlMBlZWw8mNT6qqsc/mpb
eHsKqODNQ/pjsuMVEMIeKGt9XAXvcjsX3TepgmcJmk4vnVVQ8GX6waOFVbCb
gVBg6q2CW83j1HPnqqDz72WWw2EquIeOsco+qxoIX/N+QLEKRqaRjrRN1kBU
S2cFcUIFVZ5xRUpR6yHBbpvEmicZV6uL8x+7NQFFkXXpewB5s6+MSsvymuAX
A2fv6xAyFo7wZ79/2gTUht1u9Ulk/KNA0jJSaAYJJtUax2oyHiBbl8qsNMP9
FkfV/p9kJPdalC4V3oYl9m69HHdVdK19cfkuqQ0ce4PPKLmqoe3ksZ5PvN3g
pCVpsuSjho7KcUdy9nfDmYYh1fZANfQ2XEQfu25wzZdg0ItTQ80zub5h17vB
2+d5CbVMDS0T9z4QkO6BID7xL2Hjapgly6HxDx9Auku//aDDPiyvY9uIjnsE
3YwCZh62+7E1csAtwKYflDjCs78HaKDrIic5sWEYHBa0ZU08tVBHiWfefvAN
FF9/JLScTMEpP5qd7sp7aLqi8W7YHFFoaIx2+PFnCGjTNr125AAmGoSfc64a
g67+m/Px9joYSro67hg0Dm4G6h1u1IM4vWC8qPZ7AgoqlFo83HVxdI3vVgt1
EtIWOiJ8A/VQJDXZ8XzcFHyrPHfe1U8f7S5p0H8P+Q4P9dNzIyMNMC47smTI
8QfQHR0dSwk3xBqZqO1Jwj+BcOA2XdHFQ6jYNXSetfMnXOZbNh6OM8JFSrCX
sOU0+No59ixHHcarkUxTrgPT8CWC7ARZR5CMpqUyMAPcGVdH44uNMStTs8a+
cAbK2EkXe/NNUDqNZVVgZga6/fboSVUdxRSzhZuCarNwXaRISNvSFIl0qkfZ
zs5CR8gKwXXIFD9y3XO0LZkF0cOMq+I2Zhh6OMCtbHgWmp8TE9+OmOHyR+bS
0T+zkPR4XVHkuDk6eZdM1wrRIMP/u7vDe3P05PhEn6tOgxAe4Z1ithb4bsC2
lGJOg1tEhv6AzxbouiVa/YwbDbb9phPoPmGJnRE1YXwhNChXbAi9PmmJE+3N
BnnJNCCerjRZ87LC6vPRW50LaPDuUGuj1U8rZCsuDrapoMFwSZAc+FsjJW+P
ZnITDf40mWmJzVtjaMcS89V7NNi469cS622Db9ftWE0f0uCwor5eyKINHhML
kUh9SoPe4wpuHv5UdH75psf9BQ04HV3br52j4o3Eat6oTZ9wLWYbCqTiibZT
9vmbXvLjaiSHULEmJfXO003vvby8shZNReWKxXaZYRqEN3YlpWZTcYU+YXVq
0xqMpvUtrVT8tAPyqCO0zX8ifstUOxVz/EUEfTb9gqPHclcnFet+rSTHbNpV
iPw3tIeK9iadhxo3naPEr2P4lIoy/AG7WF7R4Lf955ej76k4cspQum3TeEpA
ku3TZr7rzbPnm048Y34BvlCxKW7acWLTYmcfCpVObO7n1efG/poGZrEVzl6z
VJwT0H/lvOmCxC93CueoGHVsaUfwpqdSd20fnqdikbKfZuqmw/OTatWWqfii
hubZtulnRY8Ibn+pyP1hi9/zTfOVrZvn/6OiVjO9+/imT1ftuzmwRkWHP2uW
fzddW++7vLFBxVzvZeUdb2jwP+2TkHI=
       "]]},
     Annotation[#, "Charting`Private`Tag$47976#2"]& ], 
    TagBox[
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3k01d0XxpEp8b4lCSHz3EWZ7jXsnSlkLlwhQmaZZxWSKalQyFxEZEgo
FIlUQr2FCuF+k1DJkJQMP7+/zvqss86wn72e56wj7OxneZKBjo7Ok56O7v+j
yKW1mwWC7VoqUg+9J1T44D6r9F5fj0K4Pyc+2HeJD9rDq0ukPGrg74PbVb3T
fNClEODO7NEGykO8p0KL98Dz1DcGS+6vgG3f3+DIvQLwgnKu6Zv7GBQtN2kZ
7hOCSo2dZ5RrxoGR9P2+oKsQzA+7FgZX0OCPVlpjda4QnOFjJRaKPkHGHK/u
OrswZGWZuv+4+AU6ZIRCLvwWhu4rwwFT7j/ggBQ/vfUvUUjKvvYiQ3EOPGvE
T38ni4GcBxw7UDMHq1U+4d5nxCCQ5UpUYMU87HZvfSnOJg7rekqtc0WLsODJ
4TclJwE8HZE63y8uQ+bs5bNWN6SgJV20P3XbbyjRY7TrWJKC4849rnLJv8Fd
c3LY2EgaSugFE7zj/4Dv0GH59l/SoIjtz6cj/4LwsV9PMxxkwegRi+mk+wa4
ilpxariRQHHDeYl7bgMY0lpezwyQIFXIsU9Ugw7Pjp4LVDokD8HOzSFHO+nw
9+I2TpvdCqA76d/Z0E+PPRj43zSrIhDfP54IX9qCgw/iXHD3ARhMu9BwmcyI
N6Qnwh0cDkC3PHnr7dOMmNV31iG65ADUBWTWfmBiwnekmwu9ykoQu2S0QeFm
RpWg41/FTiqD0Nr9vDUVVmwU1uSVXFEFroKTc7uiWHFE1nunsqUasMJOXVIb
K+5nO1+bUKkGP2JOfT1+aCvqunNeZ3YmQyujOOWxDRsaKLpYL49SwIE9/V1c
ODsOk/2/iAhogXkVyOY+ZMfLt/fSNV3QAl3T72fu0XHgVqPGiYm/WiB32UBi
IokDz6/3PN9JA1jduRGsl/MPtmsoWNwfQ+jlUNnK6LAd1QQMdy1OacObw5zZ
fdHbce1Acm6btA68T56VyMnbjilbgt56euvABFOZLmlkOzqFNpg6z+vA6tru
GKrdDhw5Ym6myqoHMrN/ft2x5cQg+dorbq6HQEFu8HxYBCdWnd5KulB/CFS8
6ri0czhRJ5Bttp3JALQnvfa/e8+JRUnOvkGVBmA7OuxLT92Jkc7UbENGI0jq
ezRhZc2FQ3TvZHx/GEMa+/UgoVAu1Js13JdsaQKZRqEMX69y4UtW5qHfjSZQ
2EUSihngwtXob3ET50yhsbXQruLoLnSpp4ge2G0On6tj36xbcuMbJwkn/s8W
MPPN4cSLQG6c5+W3dhKxhDkZylxGOjeyu5ibhzpZwuqtBQ7pN9y4uJ8jS3TM
ErgKXQyPWOzGD7e3WL2ZPALal/Qel5nxoGWzztiGsDXEGNXffnOKBxlaao+B
jzW0MolmrF3kwVu9/7wIu28NlGg6tyM9PCjzVU2CZm4DBzxbtm0Y8OKYTUzY
0iUqiOko2lhr8+EqaXmvsLYdOK8XYuwJPtzzZfVZcr4dFDX9I3Mnhg+5dl40
El2xA36Fb6v0bXx4I00saqXRHnYJlN2oUt+DUancvfVwHJiX+WcZlfmxe39+
ac5zJ9Ctu/BO/ig/Ut2yf4zQnYA435XHx4L4ccYlaXSYfALWP73LqL3Lj5Sv
WZG7qk/A8ut0sj1JAL327nBrLXSGqQrW8/ckBZHkP6PjWOEKEm5hp0b1BVGo
ZJXv+g9XcBWetNnqJog1K09tHiqfhPGsDhnHEkG03nLb7knnSfgQf+Y1m/Be
tLxVSic26wYn5Vc4FDmEMJTwbmQP8ATj4cRSHkEhNHIZZQjv9QSlxF2adPJC
eJDXOGS/rBcwjin4vDIXwqeSZj5lM15wI8292zdTCF999mXkivSBse/9CRV7
hDGt2GNAfswPunKcBdPlhFHd2ZHfS9ofqvXmGiI0hZHlVrsvh6s/nMnf9tnA
URj9taqd3w77A7+Jts6XG8J4iIVMqR0IANs7NRuiMiKYnSutabYUBEjVzNqm
LoLVe26mF2oGgxTjS9LiYRFUL8s3/5kQDL/tJh2e+IrgiwwBs2b+ELi2TeCh
010RzCs/YyVqFQpvvVLC89VEsa+E/b/21XBo5ubZft5QFP/xft4vZhMBN56U
lvkcE0XWBe/il3UREMjXPqgeLYru36/VLvtGwvbuZaWhNlEcN2hwNfsZBSbS
J+e5D4kha7Nsu6zeWVi5ENLy0VoMA3O5NkKqz0L57PnzJW5iKDVh7HGJPQYY
62/x7k8Qw7dDb1PNImKgWWvqoMlTMVyzY7f1s4sFiaPe6ed0xLF58MeMlu45
6G+Msjc6Io4MX9nMl+LPQSxvqsQOF3EcqNJhius6ByOjd5oL4sTRV6VyWNo4
HjI8Z4mmdnEc35Wfs8X5PNCdDTgwBxKoRPoS6dycCNW02LVGMwm0vey59d3W
JLDTTX922lECy4z1t1gcS4LGrffstp2VQHfi9C6X9STwyfx5TqJVAiOmZpud
jqTAh9th/fYakmgRNnmo+8BFSGBPKhA1lkRf09i3ylcvgpJftseMnSS6vK61
GVu+CJeVmlbDoiSxR+Ln5OrjNNBvWxHLaJbEzn2pKt6Kl6Gu/3TICzUp/Mq8
56HlzytQft7VmTCUQiJ6j+RvpXQoUDls9veYFGa/kRCOCU2HlGwe6X2npRBv
W1jqrqaDi/29kcvtUtj5rih7iTMTuCamdKhG0ojdpqQWv2vAdvWVQoCdNN40
Cx9heHwN6PQbBVJ8pPEn2+hJpx1Z8K3s3HJLmjSe+fpn3vt+Fjz1Fqzc+1Ya
l3oadPftyIHQxSOcX+xk8Njw+djc9VzwKaFsbPjI4GzJcCCdcx44Wwl/4zkj
g9+K4z/f78oD0/uzT42KZDDvwWSafGY+SEYlR1RPyODumaS6ZiiE9wxt4yG+
sjiofpwp/lQx9N0r7U07I4vku36VfZXF0Oma2lx2SRbrma6zT04Xw90u28wP
d2WRmZHrTrzHDUhJ+XlI85csFh7P5nzqdxPUOWVqGM/KofHfibXQ8lLooz/2
oveSHBZEjRtZLpSC03zyp2tFcnjtU3sGr+YtiH89vVv6iRyKnKjYHjpwC/rS
bseYMO1DeH/3650d5eC0Tdry2oV9uNX5mpR9cwUsrFB9HPP24Wen+hFZrkqI
n0lKkKrah6v7z5vt8KuE2y+mmpv79mHIL/rTUlJ3YCGxXHRsBwlJITVmA2VV
EM8otSSZTULbAmHtbr9a4P5p8+98OQl1s7klmW/VQvmnROnmJhLWKx6X/jRS
C71PvjgYD5PQXDZCPMH4LnDHlnX5C8rjw/REm6wDdXB7TSK7qUQe5wdOLQqK
1IPGd+u6uAZ5fNKh4s/lUg99Iwk9h7vk8YP9lGV7ST0stEzSjX6RxzsMSjn6
Mg0gqPlWKXaXAvoYebGJaTWC+9/0/FKqAq52N7KZpjyATNNvHRFOCugVdMdA
5M0DeFysN2PioYBOCy0Py/iagMfgt8qvMAVkiK5V7K5qgueZDq/1sxQw0eZs
dMJIM0iTpLZMDSgg1zHunBz7R2AdGyv98KMCkqStF6drHkFc/5DZ5c8KaFgr
n/N7SysMRV7MU1tSQP998b5Hqlsh5dmCcjKXIkre+2/zSX0MX50eecgcUcT6
J3L0O0Lbgaee+9L6sc15z0qB3tJ20GXxb3jjrIgPfmdofRtoh7wqEYaoQEW8
Y6vdd0T1CRivJOa+vKKIZa/8p1+sP4GqDMs+n9eKWFCvv4ta1Al+XV8O1Jjs
R0GBdoNt+57DY7zjLWe9H7nUTV7sPvUctrf437x9fD+mMLOUXal5DrU1fzhL
/Paj2YxhY/eBF7CQvW0h+8p+vMaxJKJ1sBtCveVr4wb2Y2FfuZCdXw9Ebw+T
s3Y4gOPLVvd5k15DyjFm8TUfJQyu+Wb1Km4AtBTYf00HK2G2cNZ8e/kAzDNx
PhuMVsJytm919/oGgHpXwLM2VQlfJPIkXeYbBHFW5SqXO0rIjrIUzrpBeNzg
otz9VQkLNV/+Nhx7B7+2t+tleSlj+WC5nLLsEFRMdnHHByrj+khmALPZEDg8
7PniH6mMhpOsrxoCh6DT/X2yUYoy6rVGsFQ2DcGV1h+9a7eVUZNv21C/3jDI
+Qhau04rI/3NpBGq9Qi4PItyU/RQwQe1G2htOQquGhKmv/xUUOio9mqZ3yi4
3X2t3BKmgo49e3Iep46CR644k16iCqqa1wnqdo3CKb9XN6m3VFDK/8fieZUx
iNwtSjs7oYIen07SupjGITq197nuNxXcu7cvOJlzHE7Th9du/amCxmEx07J7
xyHma8/ZjC2qWFmX1vOv2jgktIUKlomoYkXB72lTj3FId++263NSxbaAWfdL
T8YhcyRYJ8NDFe0m6qqgdxyuWuyVpfqr4nBX4K/ed+OQrR68QjurisU/qKfi
v41Dwb+COUsFm+vtvzJRuWhQFP88pvmWKm4bvh+wLECD4j+BHmerVfHEvHtu
sCQNSj49U93aqopPdwows1JoUHE/YJD/oyp+0FkxzXCgwR05/lbahCo+O9lz
VciNBlXFXaW3vqmiqOmp+xdO0aD2wp4QhVVVrBHSq/17hgaNjk936u5Rw3fp
atE6BTRoZ+G18LZVQy8zruGzgzSYvEky+nBCDU10xZajPtKAHXV1Dnmp4cfc
BWmLCRpQw/2URaPUMHOxxTZxngY/pp7yDuepYbjdhIckGwFc54c5DUvV8Feb
QdTcvwRQhOe33a9SQ49Ijy8ZuwhIsOVfT29Vwy3UxWAvIQIEugMJo3E1tItY
zbVTIkDbLWn4wZQaVknGZq6qEeDBUNAvMa+GxUHXfSM0CainvOhiYCCjMf3Z
yyz6BAwNjrb5s5Fxw7bzIK8RAXRBPx+McpIxUqu5hMWUgMOVeyubRcm4J4nT
K8qKAP9DyiVScmT0jF05SG9LwLVPRvnXlMgo7e3S6GpPALEn9FKgHhlN1Doc
nzoTwPrgQtK4CRmHa4Ct4yQBpKPFsabWZJRDA41CDwIiUnuCZNzJ+FTmoORP
XwIKpAifbD8ycoarHvf1J6Czc/kkczgZq5+Y7eoKJGDGicMxOIaMYadoF9aD
Cdi+JkIlkjbrGdOh3x1GgEqOmoX5FTJujeir/zeCAHtlU6PWHDKmFb7/PBVJ
QJlvhMb1CjKuc71+pHmGgJ6tl5RZ75FRXY/+c9NZAhZKS0ihLWQcNDO/sDuW
AB7tZsmJDjI+T0tcsI4jQGv0lZBlDxmZ7QPsw88R4Br5mfdxPxmTd7xni44n
IIX7LyfpIxkNtiaA83kCauu2s+d9JiM5X09DNoGAAVMJJrZZMh6VpGm/2+SV
GfX1sF9kvEIvetUtkQChRIvlz+tkdHRQDvmwyfqi7nNHWCh4mvhXQiGJAJ+2
6On2fynIq7ZvxmuT0+3SCXkeCtY/o2dM2eQHy2XD+UIUfLlC33hxk0czHvVv
k6bgKOWGdugmb1F42xuhSEGfeetvOpss1TPV9YVMwcXEzKVfm+eZeqy3WWlT
8Kf7q6JLmxzMyNXUYURBslamwj+bfL1Iuk7xCAWTFzmmAjfv/1gDKgvtKLhl
+p+trZv1Tr4/WsLhSkEjL86BH5t6sId45Uf5UJCuI+Mi6yYr7oi5Nh1Mweda
/wSzburXzPpO6lk0Bf8uDR/dsqmvNh2ppSSegine7SzTMQS8XI43iUuloPrM
XPv/+3P0x/CYYyYF+x/mPQjZ7N/I5P5AzTwK7iUtCwmcJuDkaDLjnhIK0pL2
K9RGERDaqyo9eI+CpR0iPNfDCdjoTGu510LBj7J3bOdDCUh6+NnkSgcFj6uT
diqHEJBTmRFo/JaCZpo2zXEBBDxM/tHyZIGCOQYfTml4EqAXq29atELBJrdO
pjU3AvrC88dPM6ijJbNgVaUrAWPuh5nInOo4ud3qz1tHAhj0y0xrFNURqrMX
rDb9c0FzfTyVrI76K8TpVMtNvytbBXkdVEf+vSnFdWYEiIttyRa3UMddwrSA
PkMCDBgcabn+m/sfsgg13PTvf38agiLC1ZFO88EWBgoBx+bZmW1i1NG1SPZW
pQoB3uPNMpyX1VHYtWj4jTwBaa3cwUk16njeM5cIESagP7KPOWRWHfM7Y3cr
MxDgECieY/lLHZdSGW7uXN/ML89oWYV1dTTq0fj9+Q8Nlqky5l85NPBaX0Gx
22Ze8akm5JzYp4EHHjjZj4zRwGlRU87URwMNppxYHjbTgIOT7nV/sAa+FdMu
iW2gQbPCkyC70xpIaLi2qdfSgOuUfotHmgZydsjIpJXS4PmUqdG5Wg0M/L7r
Xe0lGiiMOno8+KmBYvfVmjmdaUD3IrZE5LQmOt04nuFEt5nvBU/5ly9q4UtX
IOXJjMO9NMrwG0tEARnbQ6/+G4HgZk3zfOODKPj+H32Lqx+grbt0IdlOG6er
TUwiLAbB8xD5kSdVBzN5NKx2XnkLeeWKDd5eujjKU2bs/vU1XFl8FOsfpoc8
56+eZjDshcmKkFCPQH0cWL1oo3j5BXTqp2fHxR1Cc2/XS31sXUBvNkRcijFA
o5Xn4dOkDqA72EhfFGGIjJPzmistjyFp97LJm0QjVLC3siz98BD8j7k8WT53
GIV0plqD+JuAFqvkCleNMXp3xYfYnAbgysgZSi42wbZ7jd/zi+rg1naZiGe5
psj0bJujMLkW2gP36klWmuELQ92kpO+VUCBUxK951BwpkWnO/IfK4VH0Cp3H
a3P0/Ess+kiXgvBhllVRGwuM5+0VWKPcgPpX0hc+9Fugn3iWw4mmQkjtWlcQ
crBEZQXF0NFDuZARNO3lNGKJLXzCxa/vZkH0LsF/RWyP4MfMA48/3ciE29JM
3cHjR5DOSrHVseMKMP+k520/fhTb9j4L2PYpDcoU7p4p+HIUQ+Lu9h1OSQFp
5wrTNV8rbNOhdKiPJsCwYVOd1VcrzMozE/gyeQ7e3IzcB0HW+NDLu8RJMBZ+
37PQEFmwxrpKw86G1tOw8SCwIeGUDUqvHhMZmY6Awwr6etFLNsi97GHHbB4K
zxzkPb2DqNg88+dLvXsQcLp4tOSHULF75fdmLgXBcY9ijtdhVBx1Clm4YhYE
vwJ31ilFU5HvXPRSqmoQiCUtr6zFU7Hae9x2hCUIYuraUi9foyKvLK1n5HYg
UFjMaxuaqPjD8gOhtxiw+Z9MZphqoWLnqyOJPFMB8N+OJ0f5WqnoqL0usjAS
AB78Sn/OPKHic/sIUnNXAGQp8mgbvKSiWp0Yf/71APhpN/52aISK5Zr7z1Xo
BACe4JXgGKNi8HfDyzNqAXDBzTIcaFQkiBlTRVIAiAR08pd8pmLcwvFXb3gC
wCKh/KTvLBUr5mRdTs76Q94F2v3COSru4a2IG/rkD1OX+djeLFCRU35UwfqD
P8TkplarLFMxPWxd8kSnP/QUPaXz/ENFnn5lj7kmf9h9a90y9y8VRQKbxBNq
/MG5UrW0d42KdyZJ9iKl/lBd67+8sbHJXeosT6/7w/8AXARTFQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$47976#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 100}, {0., 0.9998999998979692}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.794380228853038*^9, 3.7943802669179373`*^9, 3.7943803108610554`*^9, {
   3.794380368835178*^9, 3.7943804249194775`*^9}, 3.7943812087801294`*^9, 
   3.7943832226600943`*^9, 3.7943840248661785`*^9, 3.7944037398134613`*^9, 
   3.7944726565596724`*^9, 3.7945539702161646`*^9, 3.794645090066828*^9, 
   3.7948028412373447`*^9, 3.794837143952474*^9, 3.7948447273933787`*^9, 
   3.79485317354043*^9, 3.7948841944614434`*^9, 3.7948874528935623`*^9, 
   3.794894861174074*^9, 3.794897041118141*^9, 3.794901253409932*^9, 
   3.794918935675209*^9, 3.794920906811166*^9, 3.7949755581567264`*^9, 
   3.7949776561333055`*^9, 3.7949857565589275`*^9, 3.7950125537073555`*^9, 
   3.795059724624614*^9, 3.795157209226549*^9, 3.7953198314123363`*^9, 
   3.795319967930194*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"253460c5-eee3-4b55-ab63-69cca84f43a4"]
}, Open  ]],

Cell["Alternativamente podemos representar el total acumulado", "Text",
 CellChangeTimes->{{3.794403762742099*^9, 
  3.7944038116851482`*^9}},ExpressionUUID->"502a57e2-d664-4ec9-b36d-\
c4bc8b066657"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"sols2", "[", "t", "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sols2", "[", "t", "]"}], "+", 
      RowBox[{"soli2", "[", "t", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sols2", "[", "t", "]"}], "+", " ", 
      RowBox[{"soli2", "[", "t", "]"}], "+", " ", 
      RowBox[{"solr2", "[", "t", "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.01"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Filling", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "\[Rule]", "Axis"}], ",", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"{", "1", "}"}]}], ",", 
      RowBox[{"3", "\[Rule]", 
       RowBox[{"{", "2", "}"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red", ",", "Green"}], "}"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.794403648691331*^9, 3.794403715151285*^9}, 
   3.794403747335466*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"1e4a8a10-27b5-41da-b1ee-2e58095a6ec9"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxV2nk4VAH78HGkRShUqISQbFlKku2+7Wv2XSLJHrJnKUn2hCRpobSgRQnZ
U0layFKppFAkyxyJRJh3nt/1nJnn7Z+u+5rCmHPuOefznc1uAZYHWZiYmHAJ
E9N//hY5vVB4WfCxhsqVTwayVAKM6pebDnlSIWPd8pjRBQJaOZXYWJ25MFrX
l7g8R4DWad3Gm2b8uL+2fu/u3wQclJvjVOAURie7wk1BAwTskTz4i1dfDN9P
Ve8RfEhA2duY0BfKEljOP3Nd154AVR6pUtZjMphfs3BC0IcCnv+yLl23l0e5
I7HhyW5jEND8Y0fpnu04Z3kngvPlMKQ4Ltuy4KeIN4LOHnfpGIADz6M8FLyU
MK+no3e3yEd4vHy9ha+DMl6Cfsk00zZQ4I7N+Rmignwbrjx/ntEIrr/VZUz9
1PDB38L50okyuHL5mcDMKQ0kNqbrbIi/Dg/SVXo6LRFDHdekn1qfByE16uaX
TDTxcBoboaaRCY9eXp9MdtLCtDiqXO+uRPDW313vba+NPb+orB/exMLFIoUK
Xx8d9PmkYmT/KgIyf9cfDwzXRU2TxISjYsEwVBIa5hWkh2UBSwaurwyAJr2s
3Lg4fTx83fRaVZQ3MJt9Gjgda4DCT84anas+CEyalcwFRwzRy/x52eyUGyTx
zezpTDTCsoR1KsO3XSHQ8cCTmRPGWMw2oojc+6D/uKI7nDVB3YbZKTRwgrVn
zn9KvrIHM0YkN0ptdoAbXFJHnl8wxSPTo1vunbCDx0FCultvmaFDaRdXIZ8t
XBYuEFC3NsdDAbI675htoD56jsmr3RxjeiPY84SsYbPx8nlROwvU+PzMOdnK
CsrfSKZ+fGuBMU/f8Fwtt4S05kV5YWdLlFLnsgUxSzgT/NPH9bMlvox/JTdW
ZgHR6wRXizhYYSCrtGGUtQUUSy59GdJnhQLDg2szF8xh2RTz+sf7rPF4+lPe
61XmcFP+/tHLP6zRVnJemOeIOUi6lZguHLJB7Uzs3aBjDj2G1WU2ozZ4b4Vm
55v15tBZGLkNgm0xxbtPhW3QDP4+sFATmbRF6Yd1LFI3zIBaFVSR4G+HIs0y
x8cDzcBYXk83etoOa7/LKu4CM3juLOftG2yPxVu+ue7hM4O79wJnqFR7LIrw
HGb/ZQovM3sOD3sSUBqz3fLuIgHCCw8vLiitQOvtq58XzhOQ1Fb/3cZ2Lfq9
DtArmyFg2YwAhXWnAP79dlDn1BgBDrdLqaJSItge8jEntYMApmOHd0yAOGY2
tOXpZxIQ9tuK54eTFGbFJwuKzVEgnlViemuuLB7Lzx3yzhmHUdd6LykrBdQQ
3unn9HYEornCZWydd2BzmemG5cuH4A/XY91zPjuxrl7kvoDRV8jyfOnU5roL
7+hcvCf4sAuOpL0OlvLcjTxP+7efDG8GAxaX/guBquivJl21e7YKmF4cvyYS
o46sq3c3PNt7G1j3XfJuOw+YuzKB9efVAsgWq1tX9QbR9XdUm9e6s5D35PCV
NW81sSyS/aHaxjRYm0x0z37Uwju/fxaw3jwBLBE7q336tXGvTcCS7spo4G0L
30iZ0MGoNHvr7aWhoPZmffTYlC7OEpu7CJnD8O7vicTQOT183rnzzeelfjBg
VKmezGyAQf5FH9vDPIHJwGCSb8EA65OldLeAO+jcfr+1mskILySw1zfV7Yd5
5W0rBpca46q5ec31F11AgmJ85gKHCQ4L+Rndz9kLkSs989037kFv9oXfPWKO
0NvRX1wkaIqaWcIfPuvbQ/ljMZdwUTMcuLdgydJkC9Sxcy7Da83ReHnujFCC
Ddw1bU23zDLHn6VH1S6lWgPxLXbx2RoL/G3SkVpbbgU+p3KfLp61wGBzy5O3
mKxA2Hjtl3l+S9zSeqpZ0tsSVJab36uotkfJudkxzyVm8ELlRPWY51c4z5rx
b4p2PA2M9+6PmF6Cq3VUlBxp+1aKMvvntgMPmtxPVjafJUBMW8HOVmsDvrr4
t0Z1goCv428TSjZuRlWWGPOJTwSIW/tmndDegkFBS/LFbhCw9vuwtr2RJD46
YauhJ0uAK7ukZU7qNqxjGWdJW0kBSVmJJcPv5PGbe1uPTMkohPnK3Yt7tx2Z
pagDjUd+QGPFgZ0vRxXRcHi13F61fojkE+0/9l0JB69KF0xZvYdNL4MGjPqU
cdnVNSAv/BLqkonaJ5MqSDkRH//xUR3If3HxqppSw/SHTsqyzvfA8qjC04E1
gIHmhhXPB67CNYeoCN1MxB6fVd3ffM9BYkN3hH2GJkagtK3r2tMwUmw0+DhP
C3/J7fs+b30SKl12qY5c1EavoFcTQsuPgUOt9fDtOzq4ftVny2aJcPDoHz0q
W6mLp4o5Wgo2BcGXjvlF/0o9vN/CX6QWfgi6DMRGlz7Rxwzq1trQAC+INc4c
6WowwJ68vsb2aXe4GtacLVNviMcsn1e5WbmBlgTPrZ5mI2RvdcplV3EFk2vd
JYYtxrgiQFV+hakzyDa3Mlt+MMHlXFcOmpU5QkSZutb6vj14r+eYwoP79rDN
e6tf/ldT5KiSKNLfbAeuN7ayRI+YIdf6dyYirTZw42HlO/1gc4zf8Krd9Zk1
2N6rp/JOmqPEO/6Rb8NWoDf2xiUzzAKtJaaW7pSkHV+c+YqjfyyQ61/NfrZ0
S4gte5SWkWOPyq8HArdymgH/00jt8VMzkCu3W8COdjw5c2R1x0VwoMKtkKKG
fwQM3j3euWjJi4cufNtbNk3AcMmKkw+2CqJBganj0mECunxSIi4pi2JbhJrl
62cEfCwOf7tXbSt2Z9+aKwkn4APLo77QQ9LI4V9440o1BYoXxHOrr8nhObuz
XDorx+HOGcs2v3YF9Kl0CND++hNk/ARt3X/uROawdRasEp+h5OHh9wK9u7DJ
Xuz5N4sOeGcqvnQlZTfGfDVYlWj8FN5Gti0LpajibuAHuZoKaH9Q2Je2VAM3
9/CfYSkugk+XWVf0rkZMzx8sdvG5BPHEfJnUKk0U+TSy6QHbGbjdzP6yjU8L
jwnPcY3FJoOGV/ZLhfXa+CDMLlVraxyYZezYNbpFB68oT7gkX4+Et315pnKK
unhmGnreOoQAd73+kZIdenjpj/sjSfNAeC3EzhWtoY/qlKaznA98YNLEIIND
0wDbuvSkV2d4QKwOddZJ1RDZa7TeJ2YfgKH+oRpdHSM0GeY9pSy/HyoNDQ5S
dIxxK9v+ty3t+2DKqa/r02d7PN851LRyzhRa0joNpj3fwMwNLdE1tOstnaHA
poq3zHhYX272Bu38n1/gi7V34kadho4wJtr11g7vWnaqwXp0S/oV3PaLgKvp
ni8PZQvjpc9eTD++EFCjMay555kYvhrxbuQuJeDA3gefMx5LoPBeMR0fHQLa
0otj9yzdhkMx0VCmRoGWbOd2vXPy+Mfhj90g2xhM5rJP5mZuxw+yFzYEiA/D
lhU77xy4rYiHz7v4318+AP4BbwrtbyihjNFRqUMV3UAMP1vfc1EZv5xeYqsq
/hrCWndJvn+gggWl0cWrPjdAy7Cp0Yl7ahgU+YvQOn8fItP/EWPtGsgh7T2y
XfwayEx9kuQIQtytXnzud2UuHK1L+R7pr4nf5fY1VO3NAGuVv6NborTwwPky
aTtIgAwr5fniSG28suZmap9YLMwpPDXlSNPBR1wVMeenwiF6xDr2TY4uFpqa
jYteDgI3jeoa32w93L+BtzpMzR9e6/do6lzVx42n9mYu++0F2FoxdD/fAMvS
vowv2ByEDicNY48LhsgZS/necNUNBvPj521vGqHPOHPR2SBX2HfsUqXwDWN8
E1a0kv+uM6wQY37QUmmC3xWadeTmHaH5qm96R+MerJO+2Vo+bA8jdUVBD+pN
ceSUQluHhR1kpBUWdrw0w00Nvd3ELxsQ8ZM+8uSAOf7g7X+g9c0aUnj3xkK/
OeY8ceMbXWIN5RdG73zysECW1o1RYhpWcNr/u8vAoAUqLatT33TFEsSSZuYW
4u1RacTJcRuPGSzqKjZMFPyG7gsDzCdp538D6xaVRruVuMJiSd0u2vVJZUO+
U4n1Omw5a9f76A8BM+1Zu/fKbkI/prx9niME5LBvqnO9L4ILazy+U18R4Jc9
dUK8QRxP5mq0CZ8kYGtU8pG736UwWcvqTk4PBXiP32wOFJTDD26f3DOsxsFk
LvHCq0wFXPvDqvC18whkNhCtC8U7sbcu8GR4ZS9cXi14fvryLqw62cVsEtMJ
Nw8dUcsr2Y1EtW/wpc4mSG/gDUkqVcXA5mmxMcOH4NWQ9cTusTp+UPeTDQ4o
gc97utSaPgPW6lUu0dHNB46Uve6/KIj1W0a/Di/LhsKmhp2/pjXRO2+ASfhp
ChT/1ew4O6uFywq7bRr740AiXvFvyRId1Et/W/L+RhSE2rFVpPPoYvonvRgt
plAQb74XabxWD02zFxYV6gLBPO35qwgBfYyZFVH4aO8LI8bUIaPNBujrXTFr
yuwJ2Cz6Z7eAIU6qRXMfHD4A657vO3xMxAgL+aSHDEP3g8PjmkrvLcZYsTxG
aFTRBc4p8GsZvLLHr21HTO8smsK5c6aexKkfsBCTcrSL9nodnzaiqvAuw4XP
e2RZaee/w5eeQ8z2a7Dj2tPdaX8JWLfp5tU7qhsxq4tjMZpCgMAeLe0fVzfj
AV0j2ePvCTjjTRmofrwFhY0UDsFFAp75Ct4S6pJEUL/kf2EdAZOJRaJfuWWx
d7/YX62ucUh5Prkzea0CXlydeGOt9igY3xK6VSO6G//mTZdcUW0BFr2bpqUK
qjjU7bje42UN5HYFJowrq2OK/4qMiJC7IO3vmfPBFnCXdNGnuw+vgMCjjc+P
3kNM+SwWkamUAxmNYpxKZZpovdtAf0nqKVDAxy0/I/9B4oCSkBjt+c6voYbo
nl+FRzuU5pRo709r8w8YWlnwoYjZwysJU7T3n/ij7Ss3CyGs0LzgOkgA18sZ
xU+PRPHtqpoXvQ0E6D2aEztTsxXtDY25m7wISEmZ0lf/I40+ywuEKWcoIKje
pXh8nTy+1PnNy1MzBhYJRQcPUeyx9oVy27FpU2iWP+y5zOsR3NRv49pM278h
bjWh1k1MuNrNVvEl7ff/felNHdnPXBj8q/G1BW3/qkQzeVi95keT+cyrSZME
sH6V93tjLowasbf2VPfR5vIb67cniGGF0ljF9ge0nyeXX3JbjATe+JtodsmU
gPj2n3yST2Tw2Hk59VkrCvAb/FX6Ey6Pr4ZUf63dNQb3Smd5rgVsxzNSHEcO
HhkG+/ubvO+lKaJAmH9Im98AeF3YslQ3UQlLopklo30+gH1EwE7RKGWs3C+p
za3UCtZEz1eXbBUc0nHLjZ59BGv99Wq90tWQk7v2pbdmGaTnuC4LKtXA3SUC
OmUd1yDwcUpcgBsi6zfLxwoHz8MRVfcNac6aqKyaqJf4KgNSWMwIO18ttNaS
EHtWnQDRrVWfk721sSrl0MTGI7FgfGiOWS1KBx3szodm7IuAZQFszMKJuvhq
kP9dRl8QXAs5x+9zQg9HdUqdPa/6g8FzpUMHsvTx3sYpzYdK3iC8quW7cAbt
fOo9mOSYeBC8TCPFT6QY4tnKA25HX7lBZY/69exzRsh2Hd/En3aFH36xahxn
jTFtnTOb/ldnmOrMY2e9YYIiY/pVE5udYDwvrnzb/T0Yluml28jqAC0eP0Pr
b5vi7mBq9VkfOyg6tj9kvsYMa3LvO9xmtQXX5sGXVCdzTKtnyw+dtIZrhrca
uz6Y44mfO6zucFuDT/CsNXWfBfIK665pMbACEaHEaedeC5Rh5dzXUWIJf4LW
lClG22Mi9nLXrDWDoOWZUUElv0B0InNnHu34JmL9R/fps6H3449GAbT9m98s
Kxz7bi1WvWIzVKPdHy5+6z5z774AXvW2OHR8lIC/TkPOTw6JoMW3mbyPbbR9
zfbAif2YOJoMuq7cm0qA6UPKM6MCKXzxylBSd5QCrU9+OJv0yGLrz+9WTaHj
cPGOCEtUkAImbw+w584bgSbPD8lGKTuRkmrA3XTsC+Sqhsz1H9uFkuX1d/35
u4BrQcR+IGk33hA8YINXnoFvX40UT4YqTlzq9YneVAXl2ik71PPVcWnTTWm2
/bdgwkbZyrAWkE/KIc1CuADM7Tjqrb8i9sIl09HUbLisnevLMqiJd1aVm9n4
pcKXxty3z39qYbCuPi5onYB1i+UfUia1UST/4LVfMtHQnIVeDcy09+tfX4Ku
2IbCfaOD/y6w6iEPVUT+z+9AyHpyXTKcXR8vOmYmHrrrCx6vHHl8uA3QufEF
xqt6gvBypakiDkMs78196rHGHW5X55lc5DbC48J/g6py94PUQrDLzXXG+EXz
46Kglwt4CSjOHn1ijyM1/7KWM5vB0Q0rBiYLvsGWj3m3vtNer7LD2fc+Ll2K
xW9u+srTzn+tIZ/t3R948ECPc8cEbf8KyI/NMz/agEJ32iTdCAKOXmIfNHDZ
jEzd07dbPhDw+cvtmstxW9Bj6YtiyysEjN08MVObLonPzy+d1hUhoPjFcE1N
2zacSavOySLG4VPkqYvK0/J4WubLmszwUShXedHMwrIb0/KIiBbJF/DV03jp
bh5VHD0WMhTQWAvf7b1mOnnV0U5pgPdgZilohL2+7bwTMKjx4wNLo6vgmvZK
aKAA8fnRNP1LbTmQBota+lc0sej7kIWzSTpcYxZM8I2fhYMNUYYatOcrk2Eg
/j2JE3tyoxuiaft3/sYkp2QnL0btNIoSpt0f9J17KuVyTRCnHbGudoiAoA2P
36tGi6INR+GzQ08IyFCsng+P2oresheYvQIJuN/skP3xvjTK8pdE6d6kwGTt
ENOXH3L4L8fvx6pvYyByuEng2qA9hj+wcnkyYwqxF9LuKs3Y4ySnDbP2b1N4
HHH3moRXKZjNzT/ZStvHacIubaJqTLhuo+e6Htrr8SGZIn7+Ihdq67P1R9D2
ccNS0TMLp/gxnF1dfIC2jxUT16kzyQnju1VJb3L7CSiinDx5zUMMbx3iZ5ar
IOCykrHZP0cJxJ8CjnFWtPvhX8nfcgpkML6m2UrOhQKNV3RH9njJY8PvTRNL
94wBV21gYfG+7RiU8LZqydVh+LWU5/n7aEXk72s+I5U/AB7323fWhiuh92nv
5uXNH4ADdbT1fZRxSf4V5t2PW0GLSbb2WrwKWq023sKr1wg18k+CnWLU8N39
xQ1iuWWQu+FMZvllDZTeyIesUteBp2hA9ooj4tm1fzRzG87DnznzirU2mhig
dKXAjTUTrnnMTQQe0EK+iIPTDn8TIGjl7OtZV21Urr6/T+JaLEytzOnpCtLB
a+acg7nZEWBy/4CmwTFdDHxB6bNlCYZnpxP0f0bqYUhA5FPV9/6wLPE7S3CK
PmYnlJhzOnhDhmzHAfskA2QTfpW1t+AglOvzZ3PHGaLvudN7xPrcIP9I3pEH
p43wa+GKT1svu8Ltb4epx9OM8anFHJ/UX2fwKfnx8MolE1R0SexYttMJmPjS
nzsV78FNd/33/ORxgIe1yeFa10xxe33lCv5wO1A80viZ+4EZDhYudRVeZQvH
fj8JFrQ3x877hzuE5qxB/ltn36W35tjUu9HuMr816LnEFnE7WaCw2Kt5MVMr
8A23b9z40QJv7S0Qriy1hH1eVzjbw+3xeYbvIAuvGch4geOO0gnY5T148Brt
eF8Ba3RkH61Ag+Ki4WTaPs42CmMZPbsWvxZEcEXQ9nHcoblGx2ABtItQWMs2
RoAE6yvZ38YiqNl6yG9XOwFOOlnPY1zEcYr9boJTOgFuNpvH+I9KYcBTQaJ1
kgJF3xIla6plkdcvkdUgYRx0lgdWdLopYLX8C//QhyPgXPf6R2DkTrzCFzPf
+f0LnLUQkrYP3IVC5tX9Np5d0NQ0c3BZxG68x2f91Je9GRx/cSyzi1XF6K2v
+sxTqsBx2bIxuXR1jIzdVnmh9xbMffT5kloCqBm1ffWCawFMqrt7J3Qjnpx/
8omvPRsElpxclvqZdj+lbI6rn6bCrJjO+75+LZxh6V1zI+QEcKhOt8z91MYb
y/YIeh+OBn/5z5q2szoo4rMz42pcKPxJe6TaNK+LBoERT425DkN5b7b9HxZ9
XF3iTgx/9AWx1BVFR9gM8LSp5M7lDp6QsRWC+1gN8Wm2s6SspDv8LVOukWIz
Qq6uqJKSkv2w5kL7jmZOY8zr2Mi9JM4FOrifWG9osMdboD+vxGIGv3rc80NK
+uGI0gvKGO31eim3m604hhU7NBQu6dLOfyWfsrVa53nwRdJ38c2zBBRUr5K6
HbsBlRQPObXT9vFd3YmKI+qbMW7Xln19H2nX0+vTxLkPbMGdEvrnnhYSwKRX
uSnFTxJfJG/ucpSgXY+NJCVI3NmGEaEVSrsXxiHu7SezjEF51Duw6sSGzFHw
Yrn8VvyXMs6K9OlPFr6AtohLfTEsqhh2M6nht0YdpGz8XvpsqTp29p+ok+a5
BwZzi7sKxAAvTasQbWevAkuw6Os15xG5UoW25wicg5XUkd43uZpYztETcrI0
Hfa5vXaXSf4L5mMNn41oz1fHdPzoAyZORJYA6cu0fTwhpTJxJosXw52Pu/vQ
9rH75iE7Ng9BFNPYf9ftB+3+/8n1m36OoviJfTmnaBNt/wXkeo04bUWeyHDT
dSEENLmn1dw8LY2ZkQJqWfco0PY54bVxsxxmFrue7v8zBqkelhHQb4/fpVPe
D/41heGMDSs7J+3xNK/OPdcpU+C7sWh54Z89TqUfeCQ+aQoPV0gKHfLKh4ju
6ZXStP2sQHWb5p2gwrj7dvtvtNen05gnty2aC2fKM1ak0fZzrFF5cac/P4bG
ia5c9ZsAk57E6/yCwsj2zFpl2QABc6mhtb22Ykh1ua0pUUnb1yfd3QYMJRB2
zEoM2xDQxuz4ovW0DOZfdrlX6k6BbNOxp0dc5XEyZ8bknd0YNOJtXxnb7RjG
ekZpY+UwaMhz/PkZoohegre2G1UNgLuauOmfACW8wxPpzDH1AYYKZY0+7ldG
98TitZeWt0HNim6J59EquNWk00fbtxE4eZja34aoYZBgkppcUxlc3CvTbZOj
gcL8m0Xf214HtwurltbY0q6X5Xxy+0bPQ4Xjc5aP5pp4fF1SjtzmTCjjbz8c
46KFzy9oJC7wJQJFYv2z+3u10VWUN2+0OhZaPh5oyffXwQPAeqq/NAL8OzP2
743SRRTm9Nm3JhhsNy1+KQrTw6PaeTPOE/4w6FHbGpmgj/Jcdmjv4w0tDTai
IfEGeIz7ddvk7YPgqPPj5YcYQ5yYyl6RPOIG2S0t356kGqHCCWGn+OuusCp/
pE8tyRg/84XV3WXdB+K8q9IDz5vgEh+uvfkaTrDy3ZqOoOt7UNa2rGrZBgeQ
HXL4y1pgiht35Tnuj7GDuWkiQ6DUDJO41Pq/8tjCqhSFlm225si5sWjz7II1
/CkdmojrNMdSFfFPGwSsQfGdducGBwtcPX9L/b25FWSIPr4+994CSz127ZAu
swSeA161l0Lt8ew9NspN2n5Oys15cUZhAqZdg92Lacf/2ssHJ9ZFrcCv1FAi
h7af0znygoXD1uLlUGbns7T9rFOW2i1nLYByjd3njWn7Ge3Vz7GriuCJ1yvL
Bmj7+W7/8YVKM3FU+nluuus0AX7XVKhUPymc2T6uc+wPBXin7Fb/KpLFRqVe
noPp48Bfznt60VEBm0JvbP37bARKhpp544N2YsY5R+bDfF8h+3OI9hmvXWim
qq0geLoLLksM+OUG7Eb+TXVuKprN0DFbEXwkQhVvPLaUjXtcBXd+aBsUn1RH
/0Tq2GeB20DdyCq27Srge86GlJfHC0BbIQPyuxAheLnnhcls6HH7Z2X2QRM1
No1smKGkwrLu9XbjvVo4Nh56uOHUCUh0WPe4bFAb72S0/WPKjgYtarGsyLQO
ntx8L/JDbiisvzvm9OGvLt5Xf/rzjOBh0PHlmKhY1EPOo1nlXYQvLPH9GnR8
qQGmCZSIfvP0hJaHT7fPMxlih51rlaiiO1wuXf7rF6sRbky4cb/swX5YMbJ4
6R0b7f7qpkzv8tMukMCRzDJca49iime039D28y21NUd3lvZBwOnZfxO01+t9
empFxm5W7KqPmzejnf/yMu9Phh/hwaaj5d3KtP3stpiPx/dvwExBGfdlEwQ0
n3cTzJLZjE4zt429PxHwtjJqr5HVFqyUF+D+c42AlWffyB92kkSBGcvrNtIE
TM7Z+7lc3Ibiwo/+jS2hgO3x45J1vfKoZTQXW3ZpFLQ8knqqhpVxzuhGXFv/
C9A9rmdaMKeCTyRPPV5/rA565zdzwIIa/km4axq16x7sUcuN0RQAnPznrLyx
7ipYeZhdlTmL+HdbEQePzjlo2bdfOjtbE2WjqpbW9adDbZbo2zT2v2BwsWuZ
Be35mt8B6Qt1HCixOiXxLm0/j4w5738RxIuWcXOX0mn7Wdwj3P+LniCyDYam
ltP2cw0vP9dJQ1FMhT1Ss7T9nMCRdFnUZCte53m76lsobb89uN6aflQa5d7X
xm+uoIDauG1ZXIUczs7GVhUwjQPuXy/O+dUePXc9EIyYNYWLqf0P8yfs8Zmy
OvcEbT+/LnjG5D1rj6ZCvWXltP3sdmvX9dYF2vWP/U3x879Mgez5G6kLVOr/
9PwBlZa+Diqj5z89Jy/jQGX0fA3nO3v/835E9nz1pw5S3/4xer6Ridr1omlG
zx+d6FYd/sHo+dYrP/++Tnu+ZM9Pt+xW7gom6D1fK6/XyPwdhd7zXV+myjzP
Gqf3fMlmr9UGNaP0nm+RnzYo4vOT3vNNT/45qHJziN7z93lOL+vk/07v+Sl6
SZ29cf30nt/koiLsFfyF3vMHA6lrdxZ/ovf8hZJWJWX2bnrPF+V3X5fF95be
8w1Y2+9km3bQe37koxeHxQda6T0/eyUv4cTxkt7zh65PH64PbKb3fEuL3+/e
nHxK7/l6S+rF2pY/pvd8jxXi2Rwu9fSerz9a+6gqu5re80MXY3qvLquk93xv
J9EckaUP6D2/J6xQSP7cPXrPp70tFOhevk3v+RXjpRzSRBG959s80Wjyfnmd
3vM9DGq9zr+7Su/5XVxuj2yCCug9f4Vilq+Iz0V6z1/Rtcmd+jqX3vPFdJtD
pKvO0nt+3INjb5S7sug9v6XFbCVXTAa95xcs7+DxP59G7/k/bAYEHw0l0Xv+
nfpzfJtHTtJ7vs3h9cr3BU7Qe77JFfO4+o+x9J4/nh3bOdsdQ+/5d7oomuO7
Iuk9P8CMN/uyUTi95z+uMIgfigih9/yg01kPx6mMnv/XYZK9kMro+TJxNZsp
i4yeL32c/YvNAqPnL2+x2hk2y+j5Rk41YgoTjJ5/6MHZOX7aviN7vlHXZ9kD
tH1H9vxR89jbXxUIes+vvDs7vcaYQu/5218OUopqxug9nzdbrVHw8gi9Jytm
RfSVdYXSe7LyhGj7DJXRkz3K9QTrqYyebL9J1lKSyujJbrlJrz4vMHpyr49l
7Js5Rk9uVSjN2/mb0ZO551r4mvoZPbnXK+yZAu36jezJ4vK/VjXSrt/Inlzs
LHnr3FkKvSfzJ4ZKM8uM03vyp/Iohcdyo/SeWRC/UHM8NYzeM29KZGr2Uxk9
U/l8h0kcldEzL91dM/qf+zuyZ1alZFWXzjN6Jn/Wl3fPZhg9s1z2lWjkGKNn
vrCYHUqmXT+QPdNm+xIikXZ/R/bMrAO3QhyWE3CioqFIcnAHRibUr/43NU7v
ef/43vSMioTSe167Ka/Q/P/0vOpQb94WKqPnOWRdj9eiMnpeusEdf95FRs87
YXRo7f5/jJ6nKtAWc2yK0fO+uP2cYB5k9DyfC7tWtdYT9J73Qydha9hBgt7z
NILsCxsqKfSeF747NLXGdZze86R6lU7Pho7Se9L0sPRSkZEwek+6m+bd/oPK
6En+myh5Z6iMniSy42fYq0VGT0rlZtq0fIHRk0y5uaVL/jJ60lZrKQt/CqMn
fUr+EZf9jqD3JHmbV2ZL8gh6T1rccG/TsU208+tb3ghc2YE/bdWd4jdT6D1l
7djvZ0GRofSewtSuufw3ldFTXhmMdt6jMnrKSI2kCSeV0VM+7Av+cHGB0VOC
Hjaky8wxekpEw7mo578YPeXm6JMPYl8YPUXeQWhP4x2C3lM8oqM+5ugQMKtu
5e+3fgd6XOhRqD9MofePcc3gvx+pjP5xahP7sD+V0T9m2vtXRi4y+sfgHc1H
pvOM/uFx5IRX8x9G/2guofqYjTD6h/WpF4dHXhL0/sGfjrnvjxP0/tHP9nvv
utYQev8IqzousPg//eNUobJQK5XRPzouW28xpTL6xxP+LWsUFhn9w+MN33Th
P0b/EE4QmuKbZvSPiZMbgo4NMfpHJqhcNn9M0PuH8Z/Du9r8CHr/2Hr9srh9
M4XeP5hqIqt4I8fp/SNw6KOoa+4o3d+lpat2iW0Ip/s7221K9wiV4e+VS+6k
XqAy/L07QUqrd5Hh76eYX8fJLTD8/Yhgzuo1swx/f/+5MseGYPh7OvPj60Pd
BN3fd63O5rfJJ+j+PtVCNR7aSjtfZpPYjY/tQMppM90SJQrdn7e8/SDccyOU
7s9NG45FTVMZ/rxazGPLQyrDn5cq7r67kcrwZw/guFm/wPDnmB21VrFzDH/G
sl0WJyYZ/izqfdaauY/hz/tuJwuuKyPo/qxeln7caQ8BVdaap8NntuMzVc9r
LPEUuheLPkiv6KUyvDiqbLovgsrw4rV16zgzFhle/HfJxaOx8wwvlldhrTCc
YXgxK1Vp2neU4cX+9r7Nra0E3YvN+c7U2CURdC/+5WW48dVMCN2LzddLJr24
GkL34kuePtzU//FiK+27SW+oDC9mFTtaa0VlePGXrM0D6osML6Y4LjA3/WN4
sdqVao390wwvfick7qT0g+HF9R9YxpmeEnQvXhlU8cMxkKB78VqDHJHhVgrd
i/0G1Q7FJ4zTvfj7nSdy7sWjdK+c6RQxs9weTvdKlomLJmNUhlf+rD7qkE9l
eOV+kdK2wUWGV9YycU1oLTC88vSK1Ta6swyv3Lql9mUTwfDKo8NGd5d8JOhe
abL9gff3KwTdK3/I+h+dkCFg01Kmi+b+O7A/xTP6D1LoXmctlciyuz6U7nXO
+eXFf6gMr3tFqZOpoTK8zoPd9ZwIleF1jZE8h1oXGF7XVsN0pGiO4XVjSnvz
eycZXrc50vz9YB/D64pa7hhLlRN0rzNzUMw5b0EAn2uVUMzQdkzff3thII1C
97XykrTjX6kMX2M7z14UQ2X4WvHJ4vz/9DrS14RYq31y5xm+1vDN8FrSDMPX
rNXfv5oaZfja2Iahi/JvCLqvyVTUVx9JJei+tk+ijs2UM5Tua9/vD+kNPAyh
+xrT9+sLL0+F0H2tKMkvmfo/vnYj8GtlO5XhazrnwiNsqQxf6/rULqmzyPA1
v0K7sq5/DF9TSi7ZdnKa4Wviq7ePnP7B8DWHG5zv3tKOZ9LXXLZw5qwPIui+
pmo1JHGlg0L3NcXSMOlbaeN0X/PY8UXm0/1Ruu/0ytcUh2iE033HfIfxkv9c
X5O+o3OIX+kKleE7G1pMqD8XGb5z1v55mMkCw3dqeOR/Oc8yfCf8dL3FP4Lh
O4Jc8Qanaccz6TstbI3dWwoJuu+sMucO8JUj4HWKqnvXwR3Y3tnMzq5HofuG
gVJzQFBLKN03tFYNqv/n+pn0DftPCkW1VIZviDLHzm2hMnxj6SYuyXcLDN8Q
qhwUqptj+Ibb3r1DbL8ZvnG+WqnOpp/hG4oeKdX/6VOkb3itPvio1Ir29QZ/
/6D2bsd9thNPtDIpdI9IM2E70EdleMSmNSWLx6gMj3DJ2NKWv8jwiDv9GVuu
zTM8Yn/7n+CbMwyP+MonMrRrjOER2h1BAV9oxzPpEYc7E/WWnCLoHrHfWjh7
PX8o3SMUGzviI56E0D2CJSJzUS83hO4RzzqWHLc5EUL3CKb/+zNB9whyJj2C
nEmPIGfSI8iZ9AhyJj2C+b8z6RHkTHoE+e9JjyAfJz2CfJz0COr//SHoHkHO
pEeQ/5/0CPJx0iMW/zuTHkHOpEeQM+kR8/+dSY8gHyc9gpxJjyBn0iPI7096
BPl8SI8gf17SI8iZ9AhyJj2CnEmPIGfSI8iZ9AiW/86kR5Az6RHkTHoEOZMe
Qc6kR5Az6RHkTHoEOZMeQc6kR5Az6RHkTHoEOZMeQc6kR5Az6RHkTHoEOZMe
Qf4+SI8gHyc9gpxJjyBn0iPI14v8vD45k5/XJ2fy8/rkTHoA+fXIz1+Tj///
5x8TE/n9yfn/AaeLT6g=
    "], {{{}, 
      {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1WPYFlYAx+E32zZnZa7lWranasze0mrI5rJt27ZtLGPLXrvP1Yf7ev+/
U9f74XnOud5MDZpXbRY5IiIiEq8jvflZOEpERBFy2K8cTOIlnzORF/zj30r7
OYHn/KWP84ndk0vU0p1YQ1LdlO1k19nC/+VjPuJDPuB93uNd3uFt3qImHVlN
Er+jCdvIqmvQgVUkdtaYrWTR1WnPShI5a8QWMutq/MIKEjr7ic1k0lX5meUk
cPYjm8ioq9COZcR39gMbyaAr05alxHP2PRtIryvRhiXEdfYd60mnK9KaxcRx
9i3rSKuHcyx8VroHF6mgW7GI2Loha0mjh3E0fK66Oxcor1uykFi6AWtIrYdy
JHwHuhvnKadbsICYuj6rSaWHcDh8X/pPzlFWN2c+MfQ3rCKlHsyh8N3qPzhL
Gd2MeUTXX7OSFHoQB8M90L9zJtw93ZS5RNNfsYLkeiAHwp3Rv3Ga0roJc4iq
v2Q5yfQA9of7pbtyilK6MbOJor9gGUl1f/aFu6i7cJKSuhGziKzrsZQkuh97
w73Vv3KCEvoqn4W3wr1w3/TM8Pbsuiwhse7LHrLqzhynuL5CIXs4/4Y7qWdE
vHm8dVhMItmH3WTRnThGMf03n9rDwvsN91ZP5zW19SIS2r3ZRWbdkaMU1Zcp
aA/lbrjbehr/UUsvJIHdi51k0h04QhF9iQL2EO6E+6+n8oqaegHx7Z7sIKNu
z2EK64vktwdzO7wRPYWX1NDziWf3YDsZ9C8c4jPdkMm8oLqzecS1u7ON9Ppn
DlJIN2ASz6nmbC5xwmdIfSbyjKrO5xDb7sZW0ul2HKCgvkA+exC3wvvQE3hK
FT2bWPZdStnjeRbel95CWrst+ymgz5PXHsjN8H70eJ5QWc8ipn2HkvY4nob3
pzeTxm7DPvLrc+SxB3AjvC89jsdU0jOJYd+mhD2WJ+F96k2ktluzl3z6LLnt
/lwP70+P5REV9Qyi27cobo/hcXi/eiOp7FbsIa8+Qy67H9fC+9RjeEgFPZ1o
9k2K2aN5RFe9gZR2S3aTR58mp92Xq9TTo3lAeT2NqPYNitqjeEgXvZ4Udgt2
kVufIofdhyvU1aO4Tzk9FX9SI65TxB7JA37V60huN2cnufRJstu9+Zs6eiT3
KKunEP5uX6OwPYL7dNZrSWY3Ywc59Qmy2b24TG09gn8poyfzP/ezAUs=
         "]]]}, {}, {}, {}, {}, {}, {}, {}, 
      {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1mO0nFcAhtGwsW0bjW3btm07aWzbSRXbtm3bttN2z+qPnfM+58fcrG/m
IkmTjlU6BAsSJEhQfgn+//m7f0rzxp5JLe7rUWTiis7KEbsDMdip+/POnklB
HuvAa/9hl+GtPYvaPNCjycxVnY2jdkdisksP4L09i0I80f6LQf60y/LOnk0d
HuoxZOGazs4xuxOx2K0H8sGeTWGe6hD8ZZfjvT2HujzSY8nKdZ2D43ZnYrNH
D+KjPYciPNMh+dsuzwd7LvV4rMeRjRs6JyfsLsRhr/6NT/ZcivI88J6wxK7A
R3se9Xmix5OdmzoXJ+2uxGWfHsxnex7FeKFDsdSuyCd7Pg14qieQg1s6N6fs
bsRjvx7CF3s+xXmpQ7PMrsRnewENeaYnkpPbOg+n7e7E54Aeyld7ASV4pcOw
3K7MF3shjXiuJ5GLOzovZ+weJOCgHkZYVugqfLUX0Zh8hGOl+6p8sxfThPyc
ddeThBzSwwnPKl2N74HvC5pSgHPuepGIw3oEEVitq/Mj8LmnGS/0ZHJzVxfk
vN2bxBzRI4nIGl2Dn4HPOc15qaeQh3u6EBfsPiThqB5FJNbqmvwT+FzTgld6
Knm5rwtz0e5LUo7p0URmna7Fv4HPMS15raeRjwe6CJfsfiTjuB5DFNbr2gR+
kCxxtOKNPZ38PNRFuWz3Jzkn9FiiskHXIShLdWve2jMowCNdjCv2AFJwUo8j
Ght1XYKxTLehOFf1QFJySo8nOpt0PYKzXLelBNf0IFJxWk8gBpt1fUKwQrej
JNf1b6TmjJ5ITLboBoRkpW5PKW7owaThrJ5ELLbqhvzCKt2B0tzUQ0jLOT2Z
2GzTjQjFat2RMtzSQ0nHeT2FOGzXjQnNGt2JstzWw0jPBT2VuOzQTQjDWt2Z
ctzRw8nART2NeOzUTQnLOt2F8tzVI8jIJT2d+OzSzQjHet2VCiRgt7vmhGeD
7kZFErLHXQsisFF3pxKJ2OuuJRHZpHtQmcTsc9eKSGzWPalCEva7a01ktuhe
VCUpB9y1IQpbdW+qkYyD7toSlW26D9VJziF37YjGdt2XGqQgJalITRrSko70
ZCAjv5KJzBz2Gu2Jzg7dj5rc0yP5lct6Bt/shZTktf7uXEQpfrCYn2QJfI1g
///uv+IM6VzuvEwIe6BzGZcIrqs52zGD/bwhH6VpzFi28JCMZCA96UhLGlKT
ipSkIDnJSEoSEpOIhCQgPvGISxxiE4uYxCA60YhKFCITiYhEIDzhCEteStGI
MWzmAWHIQ0kaMppN3Cc0VWnLdPbxmtz0YBEn+UYJGjCKjdwjFFVowzT28opc
dGchJ/hKceozkg3cDbw3DGApFwnmfajsbM1U9vCSnHRjAcf5QjHqMYL13Am8
x/RnCRcI6vUqOVsxhd28IAddmc8xPlOUugxnHbcJQT/+5jyBP9IqOlsymV08
JztdmMdRPlGEOgxjLbcITl/+4hz/UoEWTGInz8hGZ+ZyhI8UpjZDWcPNwPOi
D39yln8oT3MmsoOnZKUTczjMBwpRiyGs5kbgedGbPzjDT8rRjAls5wlZ6Mhs
DvGegtRkMKu4Hnhe9OJ3TvODsjRlPNt4TGYCf6zP4iDvKEANfmMl1wLPy/d1
T+diTvGdMjRhHFt5RCbaM5MDvCU/1RnECq4GnpfX+w9fH4N4
         "]]]}, {}, {}, {}, {}, {}, 
      {RGBColor[0, 1, 0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV0WW0FmUYBdAPLp2X7riX7gbpkgYJkVA6JSQkpVuR7pZQQEClUbpDaaSR
RulGUsA9P/acd2bNeta7zhPRqmu9LlFDoVAUynu845wPPzGETyjNY/Ywky/I
zz9sZBytqM4bjrCIPrw377z8maE0oAxP2MssggsU4CabGE9ravAfR/mevsFF
ucAvDKMhZXnKPmbTlYLcYjMTaENN3nKMH/iKKPzFSobTiHI8Yz9z6EYhbrOF
ibSlFu84zmL6EZWLrGIEjSnPvxxgLt0pzB22Mol2fBT0xQmW0J8wLrGakXxK
BZ7zO/P4kiLcZRuTaU/toK+wUOhPuZQBROMyaxjFZ1TkBX/wHT0oyj22M4XP
qRP0Zd5J+SMDic4V1vI1TfiQlxxkPj0pxn12MJUO1A36Mu+UXMYgYnCVdXxD
UyrxikMsoBcf8ICdTKMj9YjJNdYzmmZU5jWHWUhvivOQXUynEx8Ti+ts4Fua
U4USxOYGvzKGFlSlJHGISzzik4CEhJOIxCQhKclITgpSkorUpCEt6UhPBjIS
QSSZyEwWspKN7OQgJ7nITR7y8je/MZaWVKMUj9jNDDpTnzB7OC2XM5ho3s/I
FcGOnc8Gu5H5gu5laYpRlCIUphAFKUD+4F/ykofc5CInOchONrKShcxkIpII
MpKB9KQjLWlITSpSkoLklKIMyShJUkqQhMQkIpyEJCA+8YhLHGITi+LE5H8u
hY3V
         "]]]}, {}, {}}, {{}, {}, {}, 
      TagBox[
       {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
        LineBox[CompressedData["
1:eJwl1VOYXQcYhtHYtm3bSdPYtm3bbGybVWzbtm3bTtt1nl6ss7/3n2fmas9M
0iYdq3QIGiRIkJ8+As/ffZTmjT2TWtzXo8jCFZ2dI3bgG2OyU/fnnT2TX3is
g/GHXYa39ixq80CPJitXdQ6O2h2JxS49gPf2LArzRAfnT7ss7+zZ1OGhHkM2
rumcHLM7EZvdeiAf7Nn8ylMdgr/scry351CXR3os2bmuc3Hc7kwc9uhBfLTn
UIRnOiR/2+X5YM+lHo/1OHJwQ+fmhN2FuOzVg/lkz6Uoz3UoltgV+GjPoz5P
9HhyclPn4aTdlXjs00P4bM+jGC90aJbaFflkz6cBT/UEcnFL5+WU3Y347NdD
+WLPpzgvdRiW2ZX4bC+gIc/0RHJzW+fjtN2dBBzQv/HVXkAJXumwLLcr88Ve
SCOe60nk4Y7Ozxm7Bwk5qIcRjhW6Cl/tRTSmAOFZ6V6Vb/ZimlCQs249ScQh
PZwIrNLV+B74vaAphTjn1ovEHNYjiMhqXZ0fgfeeZrzQk8nLXf0L5+3eJOGI
Hkkk1uga/Ay85zTnpZ5CPu7pwlyw+5CUo3oUkVmra/JP4L2mBa/0VPJzX//K
RbsvyTimRxOFdboW/wbeY1ryWk+jAA90ES7Z/UjOcT2GqKzXtQn8IVni0Yo3
9nQK8lAX5bLdnxSc0GOJxgZdh6As1a15a8+gEI90Ma7YA0jJST2O6GzUdQnG
Mt2G4lzVA0nFKT2eGGzS9QjOct2WElzTg0jNaT2BmGzW9QnBCt2OklzXg0nD
GT2RWGzRDQjJSt2eUtzQQ0jLWT2J2GzVDQnFKt2B0tzUQ0nHOT2ZOGzTjQjN
at2RMtzSv5Ge83oKcdmuGxOGNboTZbmth5GBC3oq8dihmxCWtboz5bijh5OR
i3oa8dmpmxKOdboL5bmrR5CJS3o6CdilmxGe9borFUjIbrfmRGCD7kZFErHH
rQUR2ai7U4nE7HVrSSQ26R5UJgn73FoRmc26J1VIyn631kRhi+5FVZJxwK0N
Udmqe1ON5Bx0a0s0tuk+VCcFh9zaEZ3tui81SEkqUpOGtKQjPRnISCYyk4Ws
HPYz2hODHbofNbmnR5KZy3oG3+yFlOS1/u65iFL8YHHQ///fZ/O1/wASMADC

         "]]},
       Annotation[#, "Charting`Private`Tag$48023#1"]& ], 
      TagBox[
       {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
        LineBox[CompressedData["
1:eJwV0VWAVWUUgNE7zBBDh3QOJd3dKV1Dg4AgndItGKCUoHSHdEmHtIRKd6c0
Sne77sM6339e9sPeEa26RXYNCQQC4T4fOBclEFjOUOpTksfsYQpdyMMtNjOG
VlTlLYeZR18+mndeV/ANDSjFE/Yyla7k5Ta/8xNfUo13HOFX+hHgAiv5loaU
5in7mEY38nGHLYylNdV5z1Hm058QLvIb39GIMjzjT6bzFfm5y1bG0YYafOAY
CxhAFC6xiu9pTFme8xcz6E4B7rGNn2lLzeC+OM5CBhLKZVYzjCaU4wV/M5Me
FORftvML7agV3FdoIHBCFzGIMK6whuE0pTwv2c8selKI/9jBeNpTO7gv807q
YgYTlaus5Qc+pwKvOMBselGY++xkAh2oE9yXead0CV8TjWus40eaUZHXHGQO
vSnCA3YxkY5EEp1/WM8ImvMZbzjEXPpQlIf8wSQ6UZcYXGcDI2lBJYoRzg02
MoovqExxYhKL2MQhLvGITwISkohPSEwSkpKM5KQgJalITRrSko4I0pOBjGQi
M5+ShaxkIzs5yEkubrKJ0bSkCiV4xG4m05l6hLrDaV3KEML8n9FlwRt7nw3e
RnPr//nYhWc=
         "]]},
       Annotation[#, "Charting`Private`Tag$48023#2"]& ], 
      TagBox[
       {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
        LineBox[{775, 825, 776, 777, 778, 779, 780, 781, 782, 783, 784, 785, 
         786, 787, 826, 788, 827, 789, 830, 828, 790, 791, 792, 793, 794, 795,
          796, 797, 798, 799, 800, 801, 802, 803, 804, 805, 806, 807, 808, 
         809, 810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 821, 822,
          823, 829, 824}]},
       Annotation[#, "Charting`Private`Tag$48023#3"]& ]}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotRange->{{0., 99.99999795918367}, {0, 1.01}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7944037399540615`*^9, 3.794403753165936*^9}, 
   3.7944726567002707`*^9, 3.7945539703096666`*^9, 3.7946450901293106`*^9, 
   3.79480284128456*^9, 3.7948371441306524`*^9, 3.794844727495351*^9, 
   3.794853173613204*^9, 3.7948841945083313`*^9, 3.794887452971596*^9, 
   3.7948948612298965`*^9, 3.794897041162461*^9, 3.7949012534619184`*^9, 
   3.794918935753335*^9, 3.794920906933096*^9, 3.794975558267653*^9, 
   3.7949776562270355`*^9, 3.79498575663087*^9, 3.7950125537698507`*^9, 
   3.7950597248121185`*^9, 3.7951572092923756`*^9, 3.7953198314553022`*^9, 
   3.795319968001169*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"77212b95-c890-4141-93a4-0ca693b3dd54"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Regresi\[OAcute]n ", "Subsubsection",
 CellChangeTimes->{{3.7943835581828356`*^9, 3.794383570073332*^9}, {
  3.794383652594079*^9, 
  3.7943836718782997`*^9}},ExpressionUUID->"946a76f2-5962-4fd8-abc5-\
3a57d8a7361a"],

Cell["\<\
Supongamos que no conocemos b y k y lo queremos estimar a partir de los datos \
del n\[UAcute]mero de personas infectadas\
\>", "Text",
 CellChangeTimes->{{3.794383582069848*^9, 3.7943836417280684`*^9}, 
   3.7943836830489063`*^9, {3.7943837700137606`*^9, 
   3.7943837709261312`*^9}},ExpressionUUID->"4fff7865-b021-4fe5-b8a3-\
6125708af645"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sample", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", " ", 
      RowBox[{
       RowBox[{"soli1", "[", 
        RowBox[{
         RowBox[{"0.5", "+", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], "]"}]}], ",", " ", 
         RowBox[{
          RowBox[{"1", "/", "14"}], "+", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], "]"}]}]}], "]"}], 
       "[", "t", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"t", ",", " ", "10", ",", " ", "100", ",", " ", "5"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7943838765559587`*^9, 3.7943839654444838`*^9}, {
  3.7943841285915036`*^9, 3.7943842515066023`*^9}, {3.794384322916046*^9, 
  3.794384329836215*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"950fb987-03c1-4019-9f2d-283a52b967cf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"10", ",", "0.018829903077503145`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "0.07406303616422165`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "0.28528224044007405`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "0.5281503521311909`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "0.5654982371900371`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"35", ",", "0.335023689101059`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "0.34330801427565505`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"45", ",", "0.18544345759341727`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.22513171442547691`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"55", ",", "0.1301623519814316`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "0.06458172197921434`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"65", ",", "0.037470791338859145`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "0.06715297210697421`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"75", ",", "0.035275196764092444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "0.015959888881677143`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"85", ",", "0.017155337600086713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"90", ",", "0.009806230033409769`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"95", ",", "0.006184492098474075`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.006478852655556867`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.794383998017908*^9, 3.7943840250849233`*^9}, {
   3.79438423545018*^9, 3.794384254326869*^9}, 3.79438433341311*^9, 
   3.7945539704502506`*^9, 3.79480284130028*^9, 3.7948371442164106`*^9, 
   3.794844727559323*^9, 3.794853173661065*^9, 3.794884194555202*^9, 
   3.7948874530809965`*^9, 3.7948948612648025`*^9, 3.794897041181106*^9, 
   3.794901253480891*^9, 3.7949189358002167`*^9, 3.7949209070140643`*^9, 
   3.79497555840158*^9, 3.7949776563204174`*^9, 3.794985756675844*^9, 
   3.795012553816723*^9, 3.795059724890228*^9, 3.795157209348201*^9, 
   3.7953198314752913`*^9, 3.7953199680671244`*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"ca53f248-394b-48b1-9356-3933c438c582"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "sample", "]"}]], "Input",
 CellChangeTimes->{{3.7943842838003407`*^9, 3.7943843001769266`*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"6bc988e7-0d31-4e1a-9f25-72935395c97f"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQDQEqDnkF89JVPSbbQ/h6Doe/aPWd/roJyjdxSC8z
KRRwugTlWzqUH7eYOPvZAyjfzuH6itBD/RKPIPwGR4eVB1mM2QuvQuVdHFIM
C3UP/YDyG9wcgivPV8zZcxwq7+kw7Vf8ZtmLZ6Dy3g7XFMo/aaw8AJX3c8j+
eLE+t2MDhO8Q4FAqtk0uXn8xVH2gw7NQ9tfvDTZC+AeCHEoz3xhM518E1R/i
8HaVLvOp8AlQ/aEOqfePmWtPnAjVH+Zwliv4ladoC1R/uMP8yY++vAiphOqP
dHB8FXZkYmeVPQCgcVvL
      "]]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 100.}, {0, 0.5654982371900371}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7943843035847917`*^9, 3.79438433362191*^9, 
  3.7945539705283117`*^9, 3.794802841347104*^9, 3.7948371442771835`*^9, 
  3.794844727605299*^9, 3.7948531737189107`*^9, 3.794884194680193*^9, 
  3.794887453159103*^9, 3.794894861327659*^9, 3.794897041253063*^9, 
  3.79490125357184*^9, 3.794918935878332*^9, 3.794920907145974*^9, 
  3.7949755586774282`*^9, 3.794977656383086*^9, 3.7949857567677917`*^9, 
  3.795012553863594*^9, 3.795059725015222*^9, 3.795157209430979*^9, 
  3.7953198315652385`*^9, 3.795319968152075*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"a37290ef-d5ea-46f3-b546-2aec42abba9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"sample", ",", " ", 
    RowBox[{
     RowBox[{"soli1", "[", " ", 
      RowBox[{"b", ",", "k"}], "]"}], "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", " ", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0.01"}], "}"}]}], "}"}], ",", "t"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7943844409507527`*^9, 3.794384492646202*^9}},
 CellLabel->"In[159]:=",
 CellID->519538955,ExpressionUUID->"37af4419-0145-4c15-a790-7f7eb5eed2d4"],

Cell[BoxData[
 TemplateBox[{
  "FindFit", "sszero", 
   "\"The step size in the search has become less than the tolerance \
prescribed by the PrecisionGoal option, but the gradient is larger than the \
tolerance specified by the AccuracyGoal option. There is a possibility that \
the method has stalled at a point that is not a local minimum.\"", 2, 159, 45,
    17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7953199684409018`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[159]:=",ExpressionUUID->"453b08fb-e8af-4a22-a1ca-157c9056a99e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"b", "\[Rule]", "0.48833558297330276`"}], ",", 
   RowBox[{"k", "\[Rule]", "0.06866714192110657`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.794384498265058*^9, 3.794553970668965*^9, 
  3.794802841440507*^9, 3.7948371448141713`*^9, 3.7948447278162317`*^9, 
  3.7948531740201054`*^9, 3.7948841948051796`*^9, 3.7948874533623943`*^9, 
  3.794894861422381*^9, 3.794897041414971*^9, 3.794901253893669*^9, 
  3.794918936050181*^9, 3.7949209072998867`*^9, 3.7949755588852987`*^9, 
  3.7949776564923525`*^9, 3.7949857569097104`*^9, 3.7950125540354576`*^9, 
  3.79505972526939*^9, 3.7951572096144876`*^9, 3.7953198317721214`*^9, 
  3.7953199684449*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"0a48247a-15a2-4ada-a92a-c88309c7b692"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"soli1", "[", 
      RowBox[{"b", ",", "k"}], "]"}], "[", "t", "]"}], "/.", "fit"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "10", ",", " ", "100"}], "}"}], ",", " ", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Point", "@", "sample"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7943843859110203`*^9, 3.7943844014992375`*^9}, {
  3.7943845112153835`*^9, 3.7943845415634375`*^9}},
 CellLabel->"In[160]:=",
 CellID->222971922,ExpressionUUID->"9aa58e4f-2d13-4e4d-9a0c-856010eb5233"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlHc81f8XxwkNKjORygjJ3u7AOSIZlc0VssooqeSGhJLdzQhlVpT5LaEo
I5lRkZKsrPtBmqISlfjd31/vx/Nx3o/zfp9zXq8j6XHC+sgqNjY2MXY2tv+f
B/zz9NjYpDF9tGUnD3soBPVsUZPaKI1Br4uPjliGwk3tNGmjrdI49jEzOjMv
FOaWY3jiSNJ48+O98ME95yAtyW+Q95Q0Xv30Xro5MwyGynXo4oQ0Ns8fVx8k
nQeOTRU+BrPS6Cco2Fzlcx4UQ+SdPZel0TXszedtmechzGCbYdEWGeT0yQi/
9vc8SPSs4lexkcHy+dcPndsvgNePrjv6rTJo1cZlfT30IiQ57L3p1iODeUzP
qN8PLsKjusbUyHEZLJY55fp35iKsi7p/9umSDBrO5Rj+ORwFd4QyTQ5oyeKX
sV5dEcdo+K51eNKlUBbVOa4mJnvGgljWSH/EA1mM1KTG6xbHgtGy/Yu8Zll8
Z+rTX/Y1FtKfmlZOjcpib02F27ezcUByUDl/fPNOVB/zat9+Ix7Cg/+IhcXt
xO7TntyafAyIjGf36L62E+dMhhZNfRkQnbW2WLJoJ2qtsdxPb2EAo15Y82nb
TpyQaOkVCb0M2Wwa+3g55NCmgRE+s5AIj+KOncsLk0PbqTK1k5tSoD4zoPkH
Qw6fHfq655R5CjSWhqw1zpHDEnUObtHIFGjvjE37VCuHH+iN3ofnUqCP7/Yd
jUU5FMGeCYmBK/AjY3i4LWAXvvNwPPmjPQ1+lUxIiUTuQrnjfqcs1qXDn9pP
PkdTduGk8elfAebpsGpk8efG8l3oGGhrL9qTDnySmzbQvu7CiB3ThPTHq6Bc
sl/vk7c8rnUoiTXBTFCvtb2oGySPYTlSjVpJmaD1wulZYow8+vyOWeIbywTd
r752GgXyuKcuoTP7QhaYq8UcP0fI4+uKMiXznmzwqWnI3eiigApJxDj99nWw
epu34HxMAQ2eOuSr/LsOlLkoq/9CFHBm6ADfmP0NWL/LnMvkqgLafJ/1SVt9
E8oz+v0udCuglQ41pq/5JiwGzVJ/GijiPx6J/Ta2+cBMfZO+21IRqQlFR37E
5cPze9Xfkg8poh5nfLlUQz7kTJ+7pRSqiLGu3Yqa8rcAHdbxeD9QRGZ1qL7J
utsQpy01NCirhEYVzd/8JwvglDWXppyWEnbWje0pkiqEg/4fLp8xVML+IQHN
aPdCUCwsMxB0U8IV85Z+HWYhvNpELdmXqYSOFVFa+R+KQGTeJvgJjzK2pdsW
D4uUQsn9aOGCWWU8/fNBTe+6e7C9Tj7zv2VlVCzdXbLu0D1Ia+4Wq1yvgvVv
j41tuH8Pzr8WlXwip4LP329UbFMpB/tvdxUG3VSQEeZ/EZjlsEqhDze8VsGK
1Ob6AVolBKuHtgiOqWDQeh375/GV8JUsYbzlqwpqmJz+qVJXCX7SVQWpnKoY
0GF48KD4fXDQWCm9KaGKrgxhboOv90HJKrWqlqaKRxb4ypdvVMGH3qlfj11V
kfyx7MSlgSrIp5FITV6qmK6appzBXw0ibiO17YGq6H40MlUzuho4T+xs7E1W
RRzpmmYEPIQhRt3zmQ5VZApbR9p51UBMx8SYFFkN467O0R5VP4YyqTCzBlTD
5zNbvd+sboC+c8JVjiZqWJV5WSjHoQF2qpkmJDuo4aGffRWkvw3QkVmmuUxX
w3qZ70n2Mo3AfSwkfrBSDZvMLk8FRDdB4gZejWRFdbz917OVHN8K1d7FuQqa
6tjlHuJ9pr4VRpsM1rZT1XGg7rDghtlWUDkTOPLPTB21Fure7KW1wavRwdhj
vur4kf228IziUxAovz1sXKiOYUlPjTvet0O6NSXmn7gGLnuzca1kvgDVyqY/
wjs1EJNT99e8eQHP+U1PqCprYI/4p1XVGzqB7bUDzVNXA2s9Kw0DIzvBz4Iu
/4ymgaH3BU2++3eB0b7yl2kpGqgxupRpZdMN3/fIblbk0MQ4gc7AsbzXYEkW
KD74XhOd6HXM1a1vgXZifM/6GU0kbZobsvzwFtwLyiYez2viWVqva+b6Pgjg
NxeX5NJCqQpmuJRdH6R+vHh1eocW8pn4t/2d6oO+zPmoQHctvBscabjCNQDO
fwbcE4e1sLBg1mOBNASHVYtWYFILFSV+rLV1GoLjXvTcuc9aeNPmZfWVsCEI
7+EftP2rhUFvfvdXNg3BjVIzS7Et2vhtqW7Zy+QdEAfr9YsdtHFbVor61wPD
4FN3Q6y5RxuteboVaNRR0J5+2WUxpI2VjPjPvxxGgUtwOWKEqY1bzBhCnoGj
kH/UeXJxVht3vGiPzbszCiOiondVeHVQkV20v2TLGFgHX9HPNdfBIC79/TFf
xkDidtOsvI0OvuNgFBCrxuFb92z+o4M62CKeFXSEdxwYOy3W9Prq4IiqZLCQ
3Di09/G84o7TQZME6XlB2jjoakW7B7fqoBhj12ho5Thwuz8QXN2pgzwf3+Xg
43EYZEy0pb7RwdruhGfv28fhzKSB/D1CBzU6pZX7h8ehInX5+xQbCcU4Hh83
5mKC7PegKBs9EjZWN1nbWTJhfluRNtOIhC4NJaYKjkxoNe374L+PhIcnReUI
dya452nuT3AioWPilsLvAUzIsZzb1BRCwornyew3UpnAf+9okXI1CZcTU/8p
djPBejzWk/KYhNtewsD1t0xI4y8QN24lYecOWbVf75ggHDh2zaWHhPUjR67Z
fWDCVrJtHGOGhK0HOuYGVpjgcvSUUcY8CWca74cFcxFwPTuR7fYSCS12twos
cxMgudwRXMdNxmKpQ4V1mwiQbdHz/SRLRn2T+cZV8gT4/Dwo80uJjLtP5RC9
ygSUyAQz2bXIWJNS23BZgwDFuEpHUUMyegqVcz3QJUBt/04zE1cyPu3rv/p2
PwEB4Uarbb3I2PNxxGLcioAH99ybXY+TMZcxldZjR4C2QA4lKJSMs1UDqv4u
BOj28ykUXiNj1WftkahjBIStVZ6uuE5Gztq3Yt3+BDSQzW89LiBj4Ha9HvYA
AgxyosXe3idj4e0tEpLBBER25feP15JxMp78a0MoAa3LT1K/NJFR1G+kaSKM
AGP3Pzycr8goRreuN7tIQNyVzR28/WRsaQ5QHI4m4FmLZpTYKBmFnaqFHOII
2Cd7Ykn9Cxn3XMl/te4yAVafJ764r6WgnULWXa90Aq5sZS85zkvB8LABxt5r
BPTu334kRJiCg5IzPwQyCbAvp40kS1PQLSlmwjeHgAwmPTNHgYL+Yh2V87kE
DAqk2hWrU5DYffiq3w0CnOldXU+Qgq1TgXJb8wnILfwU/2IvBUXyu7bZ3SJg
tH+Ncf8BCmaHmlaF3CZAYp3Mqgk7Cq5JdhFIKCDAnbK7YcaZghx77BxjCgnI
P+Z69o8nBZ34rpf5FxEwmXNOe/UxCi5nH9A2LCZA5mXmd/4ACr5LCRPiLCHA
a6W6bFsIBceyDY5XsHjTGrG0pvMUfGu9EOFQyurnxoiQI3EUpK8s/XrP4gDh
iUPrkim4bjmBze0/lp627zW6e42Ciuufvmhm8SuZ/3ZZ3WD9Z0IklvcOAeFK
vLzzhRQsI3e5GbNYSev0z4wyCpq3K8Z6s3hYt39Qt5qCf3dfkDvN4ktG1Cfj
jyk47Cl02pfFlH03bke1UbAw3yjdjMUfbDgS5Loo+EGY0iDM4mtO3ic6eylY
UG699SXrfWPPF7Ynh1n1eBSMnGTxz6MqFKFJCl6XMFVdYf3/VkCq+KPPFJwa
tt0dwmLrswuczj8oWJMwZjDGqp890unTyh8KiltyuqixuDz+SfetVVSUvxLR
fILVv0MpO6r2clMxhdPiZharvxsyY7M+81Px7d3ZHZWs/tff/ByRJErFoDTi
bDVrPkeLLY5oSFLxd0N+TxFrfh0PN6uGqlIx73c0xZo176AnoZvESVS0qecr
5Mlj+bF97E8zUDG5+k5HJUsfUX1FbdwWVNxaenDqOUtPGqM8/5XZU7Es+zJJ
N5sAYupEsvUhKs73C85ns/QH8zpOWcep+Dow03nnVQJmlrJRn05FrthRN5s0
AnI42WSJc1ScvVsZ4X+FgD+CHbO7GFR0P3i+NiCRgGp1WkxNKRXnNu+beMjy
xxFK/TGXSip6fzEJcWf5R2i3hBV7LRULy8Qj/54n4JTVBzHTZ1T8sqiUxn6O
tR9OBlcMTFORzSnB4uApAt4FDV89942KbbY8vAyWnxMi8JzEAhVXgjIZ91h+
n05cu9dntS5WVXl4dh5h6fduxvCCtC4WHRKbcnckQOTzozWbPXSRaP9lul2f
pYdF7gWSry72TWYcrqcQ4MTl8v7gSV3c1lYqb6nD2nfi7G3Xw3WxZcBIzVGV
AGlb00jZbF28Fuxx6KckASqPB5e0enVRoqNhhw8HSy9Jf+ZsjfUw/qXRao5G
Jvjk7GOe2a+HLactfRl1TIgvuf4qw1YPDen5Lzc+ZEJny+57wx56yOnqtLJ8
l7WvFxP8Dkfo4WUGW1BSNhMOuYtNn36kh8vvb9hF0ZlA19AdviKvj0c9+UYs
ZZjgrP1tLFlNH93C6Ff0JZhgRM6fSCTp47RfE4+cGBOEYO3nBGN9FOn5cmmG
jwmVZr2/Iz308b18R7z50jjMuvttPp2ljy2OL07b9IyDX3KOtQ034DUTqdlV
58bB4+tSh+AnwG3x19q9UsbAIa/mYvc0ovjK9ucaAcMsvVe52T83QMnzjm9m
sgZhSYLhRTzZjY0eBqugpg9OnL+wOFtuiBcepb/Ske4FnUSdjsYUIzT7rL7x
5K/XUObb0ZgevQc9qB5Pl8u64ewP0QUFX2Mc4Jt7FyLbCfNmxvbtrnvRz61c
e8uTDiA7pRhMWZngwSChjQIv2qBHNPdoq4YpCrZQmRGOLbCl8GJ9sZwZSvYH
5k+zNcGjcfl9BzaYo8t//MZHpBpge++s95mv5ngvz6p3qbkWNNJT7twa34ca
x46AQ8xDyOX8oXylZT/GN5cyRN89gGoDlaHomgNYZOPa67K/EjJ0EviXSi3Q
9jKvi4xoOUx/tW4RNbbEm4L/dkgn34FB2QMCpEZLZMY+q7TeVAK/qnex6ahb
4Uj6++ZqnUIIviWkuZBnhcHD3due1dyC17/8lshi1vjmYe4lEfs8sMsr8HRh
WGOLQ4gzo/46lFeau3KssUFttoaNbxazQFus53d8iA0aD4f8VzJ2DSTGvYde
f7RBq1J/5bPK6cDkOWaR42mL683m3x/LugJdiQc89761xZNTcT5cocmQEnyD
h25ph0oj0rdaphlQ07Dy2/OZHTJecGQ88omH9c4Yq0Gxx8qMTmpubAxou80U
Rz+wxwXimYTP04twqe6c7yNZB3TNulTHHXkBjE5vOXnnqgOuGdN96CUYAb0p
Mjw7+Ggo4LkU+WNfKCSt4d9z9gINUynfnpmrBUPt9xGnwIs0VMxZN4nSwTA5
UhrgH01Dkeo8Dr3NwUB5YHTTI56G/1JVDM3+BcGkW/BfsxQarkrY4vzoWRCQ
ascqxPJoqNm/a3nMMwgIv7LtjxtpuKb+41aj3DOwnhaq9bCZhkmGUb8FUs6A
jqHJvopWGnJax/l+iDoDDFEipKCDhhOal+cL/Vjxp5veXn5Fw0XfF44Buqy4
eNilQ+M0DDwgrQUjdKjmNsunETTs5BrJob+mA3NeuMZ6koa+a9lcK9vooN1Z
/t74Aw0LJPZM6pex4sGTBiqzNMz7uT7pVgQd1h+uoO36TsM5F0ev9YGs+xbh
J3b8pGFjYHJoqA8dGDIiuZsXadjzLtzKz4r1Ht/Uff4/NLxrJMwzs4eV72/F
c54lGvIzaD/pFFa+6XAm1zINzRqq1nGqsPL1mC+urNDw1nTu3owddPgfRthM
2w==
       "]]},
     Annotation[#, "Charting`Private`Tag$48371#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{10., 0},
  DisplayFunction->Identity,
  Epilog->{
    PointBox[{{10, 0.018829903077503145`}, {15, 0.07406303616422165}, {
      20, 0.28528224044007405`}, {25, 0.5281503521311909}, {
      30, 0.5654982371900371}, {35, 0.335023689101059}, {
      40, 0.34330801427565505`}, {45, 0.18544345759341727`}, {
      50, 0.22513171442547691`}, {55, 0.1301623519814316}, {
      60, 0.06458172197921434}, {65, 0.037470791338859145`}, {
      70, 0.06715297210697421}, {75, 0.035275196764092444`}, {
      80, 0.015959888881677143`}, {85, 0.017155337600086713`}, {
      90, 0.009806230033409769}, {95, 0.006184492098474075}, {
      100, 0.006478852655556867}}]},
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{10, 100}, {0., 0.5835510054695016}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.794384531929511*^9, 3.794384542250186*^9}, 
   3.7945539707628984`*^9, 3.794802841487321*^9, 3.7948371449202766`*^9, 
   3.7948447278872223`*^9, 3.7948531741028843`*^9, 3.7948841949145465`*^9, 
   3.7948874534403725`*^9, 3.794894861473278*^9, 3.7948970415079174`*^9, 
   3.7949012540381184`*^9, 3.7949189361282997`*^9, 3.7949209074278126`*^9, 
   3.794975559003231*^9, 3.794977656597023*^9, 3.794985757023661*^9, 
   3.795012554144663*^9, 3.7950597254113092`*^9, 3.795157209705269*^9, 
   3.7953198318700643`*^9, 3.7953199685688276`*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"4fa12eca-12d4-42db-9160-11d43bbada5e"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Modelo 2: SEIR ", "Subsection",
 CellChangeTimes->{{3.792411501143445*^9, 3.7924115020307827`*^9}, {
  3.793437574132167*^9, 3.793437578845388*^9}, {3.7948876448787003`*^9, 
  3.7948876516441917`*^9}},ExpressionUUID->"ee8ba983-64fc-4f0d-ba12-\
e13d21a7a9cf"],

Cell["\<\
Basado en: Epidemiological Models for Influenza and COVID - 19\[LongDash]part \
1. Robert B. Nachbar. Revised: 17-Mar-2020\
\>", "Text",
 CellChangeTimes->{{3.794740914483466*^9, 
  3.7947409522954826`*^9}},ExpressionUUID->"d7946bc9-4723-4f18-9f5b-\
5f2057cd28ba"],

Cell["\<\
El modelo SEIR considera una nueva clase de individuos  \[ScriptCapitalE] \
(del ingl\[EAcute]s exposed), es decir, aquellos que portan la enfermedad \
pero que al hallarse en su periodo de incubaci\[OAcute]n no muestran s\
\[IAcute]ntomas y pueden o no estar en condici\[OAcute]n de infectar a otros \
(el  un individuo  nunca obtiene inmunidad). Tambi\[EAcute]n incluye a los \
individuos recuperados. Cada grupo es mutuamente excluyente y la suma de \
todos es la poblaci\[OAcute]n total. No incluye los fallecimientos (por que \
no existan o por que su proporci\[OAcute]n sea muy peque\[NTilde]a comparada \
con los otros grupos)\
\>", "Text",
 CellChangeTimes->{{3.794727092868023*^9, 
  3.794727341487471*^9}},ExpressionUUID->"710f553b-e23f-4ded-a83d-\
dce65b5a5755"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\[ScriptCapitalS]", 
      OverscriptBox["\[RightArrow]", 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}]], "\[ScriptCapitalE]"}], 
     "\"\<infection\>\""},
    {
     RowBox[{"\[ScriptCapitalE]", 
      OverscriptBox["\[RightArrow]", "\[Zeta]"], "\[ScriptCapitalI]"}], 
     "\"\<incubation\>\""},
    {
     RowBox[{"\[ScriptCapitalI]", 
      OverscriptBox["\[RightArrow]", "\[Gamma]"], "\[ScriptCapitalR]"}], 
     "\"\<recovery\>\""}
   },
   AutoDelete->False,
   BaseStyle->{18},
   GridBoxAlignment->{"Columns" -> {Center, Left}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{3}}}],
  "Grid"]], "Text",
 CellChangeTimes->{3.794555066106744*^9, 
  3.794655136033814*^9},ExpressionUUID->"c23caa69-9e5b-49f3-90a9-\
ff2c14fae4b9"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalE]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalI]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalR]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
       CompartmentalModeling`Private`$R[1][$CellContext`\[Zeta]], 
       CompartmentalModeling`Private`$R[2][$CellContext`\[Gamma]], 
       CompartmentalModeling`Private`$R[
       3][$CellContext`\[Beta] $CellContext`\[Lambda][$CellContext`t]]}, {{{1,
        5}, {5, 2}, {2, 6}, {6, 3}, {4, 7}, {7, 1}}, Null}, {
      BaseStyle -> {18}, 
       GraphLayout -> {
        "LayeredDigraphEmbedding", "RootVertex" -> 
         CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
         "Orientation" -> Left}, ImageSize -> Large, PerformanceGoal -> 
       "Quality", VertexShapeFunction -> {
         CompartmentalModeling`Private`vsf[{18}]}}]], Typeset`boxes, 
    Typeset`boxes$s2d = GraphicsGroupBox[{{
       Arrowheads[Medium], 
       Directive[
        Opacity[0.7], 
        Hue[0.6, 0.7, 0.5]], 
       Directive[], 
       ArrowBox[{
         DynamicLocation["VertexID$1", Automatic, Center], 
         DynamicLocation["VertexID$5", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$2", Automatic, Center], 
         DynamicLocation["VertexID$6", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$4", Automatic, Center], 
         DynamicLocation["VertexID$7", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$5", Automatic, Center], 
         DynamicLocation["VertexID$2", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$6", Automatic, Center], 
         DynamicLocation["VertexID$3", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$7", Automatic, Center], 
         DynamicLocation["VertexID$1", Automatic, Center]}]}, {
       Directive[
        Hue[0.6, 0.2, 0.8], 
        EdgeForm[
         Directive[
          GrayLevel[0], 
          Opacity[0.7]]]], 
       Directive[], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalE]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-3.9999999999999987`, 
         1.0717958811647137`*^-7}], "DynamicName", BoxID -> "VertexID$1"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalI]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-1.9999999999999993`, 
         5.3589794058235685`*^-8}], "DynamicName", BoxID -> "VertexID$2"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalR]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {0., 0.}], 
        "DynamicName", BoxID -> "VertexID$3"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalS]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-5.999999999999998, 
         1.6076938217470707`*^-7}], "DynamicName", BoxID -> "VertexID$4"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Zeta]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-2.999999999999999, 
         8.038469108735353*^-8}], "DynamicName", BoxID -> "VertexID$5"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Gamma]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-0.9999999999999997, 
         2.6794897029117842`*^-8}], "DynamicName", BoxID -> "VertexID$6"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox[
             RowBox[{"\[Beta]", " ", 
               RowBox[{"\[Lambda]", "(", "t", ")"}]}], 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-4.999999999999998, 
         1.339744851455892*^-7}], "DynamicName", BoxID -> 
        "VertexID$7"]}}], $CellContext`flag}, 
    TagBox[
     DynamicBox[GraphComputation`NetworkGraphicsBox[
      3, Typeset`graph, Typeset`boxes, $CellContext`flag], {
      CachedValue :> Typeset`boxes, SingleEvaluation -> True, 
       SynchronousUpdating -> False, TrackedSymbols :> {$CellContext`flag}},
      ImageSizeCache->{{0.010204081632650741`, 576.}, {-19.00001480390719, 
       14.}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False,
    UnsavedVariables:>{$CellContext`flag}]],
  ExpressionUUID -> "b60c6084-1de4-4bbc-94b9-be1a4a579de5",
  BaseStyle->{18},
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->Large]], "Text",
 CellChangeTimes->{3.792410719610118*^9, 3.792591733886883*^9, 
  3.793438715782878*^9, 3.7934387500455437`*^9, 3.793445476272554*^9, 
  3.7946566337511253`*^9},ExpressionUUID->"89e7cdb2-1a9a-4635-837b-\
1d82a255f3eb"],

Cell["El modelo", "Item",
 CellChangeTimes->{{3.7927565601670856`*^9, 3.7927565656178226`*^9}, {
  3.7947308177022624`*^9, 
  3.7947308202696066`*^9}},ExpressionUUID->"e2c9304c-4e85-4000-b850-\
6cb992916231"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SEIRmodel", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalE]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Zeta]"}], " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "+", 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalI]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"\[Zeta]", " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "-", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalR]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalS]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", 
       RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
       RowBox[{"\[Lambda]", "[", "t", "]"}]}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.7946568265461245`*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"9857286f-3f48-455b-af43-d1d0bf1029c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"forceOfInfectionSEIR", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "t_", "]"}], "\[RuleDelayed]", 
     RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}], "}"}]}], ";"}]], "Input",
 CellLabel->
  "In[162]:=",ExpressionUUID->"1c5c00be-b916-408b-97a9-d1d744577755"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "susceptibleSEIR", ",", "infectedSEIR", ",", "exposedSEIR", ",", 
     "recoveredSEIR"}], "}"}], "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", "\[ScriptCapitalE]", 
      ",", "\[ScriptCapitalR]"}], "}"}], "/.", 
    RowBox[{"ParametricNDSolve", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"SEIRmodel", "/.", "forceOfInfectionSEIR"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"\[ScriptCapitalS]", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"\[ScriptCapitalN]", "-", "I0"}]}], ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalE]", "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalI]", "[", "0", "]"}], "\[Equal]", "I0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalR]", "[", "0", "]"}], "\[Equal]", "0"}]}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", 
        "\[ScriptCapitalE]", ",", "\[ScriptCapitalR]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalN]", ",", "I0", ",", "\[Beta]", ",", "\[Zeta]", ",", 
        "\[Gamma]"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.792145335855302*^9, {3.79214582668885*^9, 3.7921458283877373`*^9}, {
   3.792146002937223*^9, 3.792146026085857*^9}, {3.792146058253042*^9, 
   3.792146058676483*^9}, {3.792146417051132*^9, 3.7921464199383287`*^9}, {
   3.792147207984757*^9, 3.792147223462986*^9}, 3.792325396285838*^9, {
   3.792411603533679*^9, 3.792411642506237*^9}, 3.792411873730095*^9, 
   3.7924119337990723`*^9, {3.793445569093809*^9, 3.793445571100811*^9}, {
   3.7946568625929675`*^9, 3.7946568667025986`*^9}, 3.7946570138583856`*^9, 
   3.794657961811639*^9},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[163]:=",ExpressionUUID->"732a9148-128a-4214-a2a6-7dc29590f1be"],

Cell[BoxData[
 TemplateBox[{
  "ParametricNDSolve", "dspar", 
   "\"\\!\\(\\*RowBox[{\\\"10\\\"}]\\) cannot be used as a parameter.\"", 2, 
   163, 46, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.795319968595812*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[163]:=",ExpressionUUID->"bc6dfa2a-80e3-4210-b8d3-729babdee9b0"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll", "reps", 
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"ParametricNDSolve\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{SuperscriptBox[\
\\\"\[ScriptCapitalE]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{RowBox[{\
\\\"-\\\", \\\"\[Zeta]\\\"}], \\\" \\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"\[Beta]\\\", \\\" \
\\\", RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \
\\\" \\\", RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}]}]}]}], \\\",\\\", RowBox[{RowBox[{SuperscriptBox[\\\"\
\[ScriptCapitalI]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{\\\"\
\[Zeta]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\
\", \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\
\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalR]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalS]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{\\\"-\\\", \\\"\[Beta]\\\"}], \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\
\", RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \
\\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"0\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{\\\"-\\\", \\\"10\\\"}], \\\"+\
\\\", \\\"\[ScriptCapitalN]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"\
\[ScriptCapitalE]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \
\\\"0\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \
\\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"10\\\"}], \\\",\\\", \
RowBox[{RowBox[{\\\"\[ScriptCapitalR]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", \\\"0\\\"}]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"\[ScriptCapitalS]\\\", \\\",\\\", \\\"\[ScriptCapitalI]\\\", \
\\\",\\\", \\\"\[ScriptCapitalE]\\\", \\\",\\\", \\\"\[ScriptCapitalR]\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"t\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"100\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalN]\\\", \\\",\\\", \\\"10\\\", \
\\\",\\\", \\\"\[Beta]\\\", \\\",\\\", \\\"\[Zeta]\\\", \\\",\\\", \\\"\
\[Gamma]\\\"}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is neither a list \
of replacement rules nor a valid dispatch table, and so cannot be used for \
replacing.\"", 2, 163, 47, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7953199685978107`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[163]:=",ExpressionUUID->"30cbf39c-fd2c-4315-a467-d80fc48033a9"],

Cell[BoxData[
 TemplateBox[{
  "Set", "shape", 
   "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"susceptibleSEIR\\\", \
\\\",\\\", \\\"infectedSEIR\\\", \\\",\\\", \\\"exposedSEIR\\\", \\\",\\\", \
\\\"recoveredSEIR\\\"}], \\\"}\\\"}]\\) and \
\\!\\(\\*RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalS]\\\", \
\\\",\\\", \\\"\[ScriptCapitalI]\\\", \\\",\\\", \\\"\[ScriptCapitalE]\\\", \
\\\",\\\", \\\"\[ScriptCapitalR]\\\"}], \\\"}\\\"}], \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", RowBox[{\\\"ParametricNDSolve\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{SuperscriptBox[\\\"\
\[ScriptCapitalE]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{RowBox[{\
\\\"-\\\", \\\"\[Zeta]\\\"}], \\\" \\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"\[Beta]\\\", \\\" \
\\\", RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \
\\\" \\\", RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}]}]}]}], \\\",\\\", RowBox[{RowBox[{SuperscriptBox[\\\"\
\[ScriptCapitalI]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{\\\"\
\[Zeta]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\
\", \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\
\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalR]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalS]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{\\\"-\\\", \\\"\[Beta]\\\"}], \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\
\", RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \
\\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"0\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{\\\"-\\\", \\\"10\\\"}], \\\"+\
\\\", \\\"\[ScriptCapitalN]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"\
\[ScriptCapitalE]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \
\\\"0\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \
\\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"10\\\"}], \\\",\\\", \
RowBox[{RowBox[{\\\"\[ScriptCapitalR]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", \\\"0\\\"}]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"\[ScriptCapitalS]\\\", \\\",\\\", \\\"\[ScriptCapitalI]\\\", \
\\\",\\\", \\\"\[ScriptCapitalE]\\\", \\\",\\\", \\\"\[ScriptCapitalR]\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"t\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"100\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalN]\\\", \\\",\\\", \\\"10\\\", \
\\\",\\\", \\\"\[Beta]\\\", \\\",\\\", \\\"\[Zeta]\\\", \\\",\\\", \\\"\
\[Gamma]\\\"}], \\\"}\\\"}]}], \\\"]\\\"}]}]\\) are not the same shape.\"", 2,
    163, 48, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7953199686098156`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[163]:=",ExpressionUUID->"6a67ab0f-92b4-43f7-814b-c9ae870d0dcd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["EJEMPLO", "Subsubsection",
 CellChangeTimes->{{3.79465803435816*^9, 
  3.794658063671154*^9}},ExpressionUUID->"141d6cff-4a06-4073-a362-\
572112659019"],

Cell[TextData[{
 "Este ejemplo corresponde a un colegio internado ingl\[EAcute]s (Martcheva, \
pp. 144-145 [",
 ButtonBox["MM",
  BaseStyle->"Hyperlink",
  ButtonData->"MM"],
 "][",
 ButtonBox["HJR",
  BaseStyle->"Hyperlink",
  ButtonData->"HJR"],
 "]) de 578 estudiantes."
}], "Text",
 CellChangeTimes->{
  3.792328187072949*^9, 3.792328236199574*^9, {3.792886293695839*^9, 
   3.7928863245501966`*^9}, {3.792886506222042*^9, 3.79288651909264*^9}, {
   3.7946580491312137`*^9, 3.794658049686858*^9}, {3.7947297470977364`*^9, 
   3.7947298192817736`*^9}},ExpressionUUID->"af8d442d-4117-4e86-acc8-\
eeca49a6735e"],

Cell["\<\
 An epidemic of influenza began on 15 January 1978. One hundred and sixty-six \
boys (29 per cent) were treated in the sick bays by bed rest and aspirin. \
Certainly this is not the total number with influenza, as the older boys had \
their own rooms in which some remained, treating themselves and avoiding \
detection and supervision as a result of the dislocated curriculum.\
\>", "ItemParagraph",
 CellChangeTimes->{
  3.792328170938793*^9, 3.792328223015254*^9, {3.794729837797682*^9, 
   3.794729850565243*^9}},ExpressionUUID->"6e31796d-435c-4ca0-80c9-\
ededa5f695ba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"influenzaData1", "=", 
  InterpretationBox[
   DynamicModuleBox[{Typeset`open = False}, 
    TemplateBox[{"Association", 
      StyleBox[
      "\"influenza data; Brit. Med. J. (1978)\"", "IconizedCustomName", 
       StripOnInput -> False], 
      GridBox[{{
         RowBox[{
           TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
           TagBox["Association", "IconizedItem"]}]}, {
         RowBox[{
           TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
           TagBox["4", "IconizedItem"]}]}, {
         RowBox[{
           TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
           TagBox["9720", "IconizedItem"]}]}}, 
       GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
       "Column", 
       GridBoxItemSize -> {
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
      Dynamic[Typeset`open]},
     "IconizedObject"],
    ExpressionUUID -> "bbea3144-5ad9-4e8d-9fe7-a7b2c0c010b2"],
   Association["NumberBoys" -> 763, "NumberConfinedToBed" -> {{
       DateObject[{1978, 1, 22}, "Day", "Gregorian", -5.], 0}, {
       DateObject[{1978, 1, 23}, "Day", "Gregorian", -5.], 6}, {
       DateObject[{1978, 1, 24}, "Day", "Gregorian", -5.], 26}, {
       DateObject[{1978, 1, 25}, "Day", "Gregorian", -5.], 74}, {
       DateObject[{1978, 1, 26}, "Day", "Gregorian", -5.], 223}, {
       DateObject[{1978, 1, 27}, "Day", "Gregorian", -5.], 294}, {
       DateObject[{1978, 1, 28}, "Day", "Gregorian", -5.], 258}, {
       DateObject[{1978, 1, 29}, "Day", "Gregorian", -5.], 237}, {
       DateObject[{1978, 1, 30}, "Day", "Gregorian", -5.], 191}, {
       DateObject[{1978, 1, 31}, "Day", "Gregorian", -5.], 124}, {
       DateObject[{1978, 2, 1}, "Day", "Gregorian", -5.], 68}, {
       DateObject[{1978, 2, 2}, "Day", "Gregorian", -5.], 27}, {
       DateObject[{1978, 2, 3}, "Day", "Gregorian", -5.], 12}, {
       DateObject[{1978, 2, 4}, "Day", "Gregorian", -5.], 4}}, 
    "NumberConvelescent" -> {{
       DateObject[{1978, 1, 25}, "Day", "Gregorian", -5.], 0}, {
       DateObject[{1978, 1, 26}, "Day", "Gregorian", -5.], 8}, {
       DateObject[{1978, 1, 27}, "Day", "Gregorian", -5.], 16}, {
       DateObject[{1978, 1, 28}, "Day", "Gregorian", -5.], 99}, {
       DateObject[{1978, 1, 29}, "Day", "Gregorian", -5.], 161}, {
       DateObject[{1978, 1, 30}, "Day", "Gregorian", -5.], 173}, {
       DateObject[{1978, 1, 31}, "Day", "Gregorian", -5.], 163}, {
       DateObject[{1978, 2, 1}, "Day", "Gregorian", -5.], 150}, {
       DateObject[{1978, 2, 2}, "Day", "Gregorian", -5.], 89}, {
       DateObject[{1978, 2, 3}, "Day", "Gregorian", -5.], 45}, {
       DateObject[{1978, 2, 4}, "Day", "Gregorian", -5.], 23}}, 
    "NumberNotInClass" -> 512],
   SelectWithContents->True,
   Selectable->False]}]], "Input",
 CellChangeTimes->{3.794657569249399*^9},
 CellLabel->
  "In[164]:=",ExpressionUUID->"1ee68b83-712e-47dd-9bdd-06f70f22e443"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"NumberBoys\"\>", "\[Rule]", "763"}], ",", 
   RowBox[{"\<\"NumberConfinedToBed\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sun 22 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "22"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Mon 23 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "23"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Tue 24 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "24"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "26"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Wed 25 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "25"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "74"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Thu 26 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "26"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "223"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Fri 27 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "27"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "294"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sat 28 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "28"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "258"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sun 29 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "29"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "237"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Mon 30 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "30"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "191"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Tue 31 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "31"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "124"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Wed 1 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "1"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "68"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Thu 2 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "2"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "27"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Fri 3 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "3"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sat 4 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "4"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "4"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"\<\"NumberConvelescent\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Wed 25 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "25"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Thu 26 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "26"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Fri 27 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "27"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "16"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sat 28 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "28"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "99"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sun 29 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "29"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "161"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Mon 30 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "30"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "173"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Tue 31 Jan 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "1", ",", "31"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "163"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Wed 1 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "1"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "150"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Thu 2 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "2"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "89"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Fri 3 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "3"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "45"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        TemplateBox[{
          RowBox[{
            StyleBox[
            "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
            "\"Sat 4 Feb 1978\""}], 
          RowBox[{"DateObject", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1978", ",", "2", ",", "4"}], "}"}], ",", "\"Day\"", 
              ",", "\"Gregorian\"", ",", 
              RowBox[{"-", "5.`"}]}], "]"}]},
         "DateObject",
         Editable->False], ",", "23"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"\<\"NumberNotInClass\"\>", "\[Rule]", "512"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{3.7946581310768785`*^9, 3.7946734427329297`*^9, 
  3.7948447431146617`*^9, 3.794885971087453*^9, 3.794886053801352*^9, 
  3.794887506565699*^9, 3.7948948615799875`*^9, 3.794897041656402*^9, 
  3.79490125415905*^9, 3.794918936268928*^9, 3.794920907545745*^9, 
  3.7949755591811385`*^9, 3.7949776566977587`*^9, 3.794985757174568*^9, 
  3.7950125542696548`*^9, 3.795059725573217*^9, 3.795157209881773*^9, 
  3.795319832029984*^9, 3.7953199686847715`*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"cffe360a-6e8e-48f4-be24-911bd764d00e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "@", "influenzaData1"}]], "Input",
 CellChangeTimes->{3.7948860099570727`*^9},
 CellLabel->
  "In[165]:=",ExpressionUUID->"aac4da37-b3a8-492c-ac09-90be83ea0e44"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"NumberBoys\"\>", ",", "\<\"NumberConfinedToBed\"\>", 
   ",", "\<\"NumberConvelescent\"\>", ",", "\<\"NumberNotInClass\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.794657572655066*^9, 3.794657635139721*^9, 
  3.794657789076889*^9, 3.7946578257956977`*^9, 3.794658082952075*^9, 
  3.794658131248783*^9, 3.794673442842437*^9, 3.794844743225638*^9, 
  3.7948859714240217`*^9, 3.7948860129488964`*^9, 3.794886053980627*^9, 
  3.794887506752864*^9, 3.7948948616328487`*^9, 3.7948970417473497`*^9, 
  3.7949012542223997`*^9, 3.7949189363314095`*^9, 3.7949209076266985`*^9, 
  3.7949755592770743`*^9, 3.7949776567689085`*^9, 3.794985757218543*^9, 
  3.7950125543165393`*^9, 3.7950597257071404`*^9, 3.795157209948626*^9, 
  3.7953198320979357`*^9, 3.7953199687467403`*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"38034d19-44de-4938-9ebf-f335139d163d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"influenzaData1", "[", "\"\<NumberNotInClass\>\"", "]"}]], "Input",
 CellLabel->
  "In[166]:=",ExpressionUUID->"1f4fb831-3ad1-4c6e-947b-a196b253fa4f"],

Cell[BoxData["512"], "Output",
 CellChangeTimes->{3.7948447431766596`*^9, 3.794885971345523*^9, 
  3.7948860540509357`*^9, 3.7948875068311243`*^9, 3.7948948616856775`*^9, 
  3.794897041816311*^9, 3.7949012542874236`*^9, 3.7949189363939085`*^9, 
  3.794920907709651*^9, 3.794975559358042*^9, 3.794977656836259*^9, 
  3.794985757230527*^9, 3.795012554347774*^9, 3.7950597258330684`*^9, 
  3.7951572099585676`*^9, 3.7953198321598983`*^9, 3.795319968808705*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"718f21e7-f6a0-4a90-b3ba-f6934945e903"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"firstDate1", ",", "lastDate1"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
       RowBox[{
         StyleBox[
         "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
         "\"Sun 22 Jan 1978\""}], 
       RowBox[{"DateObject", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"1978", ",", "1", ",", "22"}], "}"}], ",", "\"Day\"", 
           ",", "\"Gregorian\"", ",", 
           RowBox[{"-", "5.`"}]}], "]"}]},
      "DateObject",
      Editable->False], ",", " ", 
     TemplateBox[{
       RowBox[{
         StyleBox[
         "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
         "\"Sat 4 Feb 1978\""}], 
       RowBox[{"DateObject", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"1978", ",", "2", ",", "4"}], "}"}], ",", "\"Day\"", ",",
            "\"Gregorian\"", ",", 
           RowBox[{"-", "5.`"}]}], "]"}]},
      "DateObject",
      Editable->False]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7946573701397066`*^9, 3.7946574079212203`*^9}, 
   3.794657811264618*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"d8aaaa2b-7cd5-426f-bbd1-1803bf14e519"],

Cell["\<\
Vamos a ajustar el modelo SEIR utilizando los datos del n\[UAcute]mero de \
estudiantes que permanecen en cama, que forman el grupo de los infectados\
\>", "Text",
 CellChangeTimes->{{3.794729895606632*^9, 3.7947299081332216`*^9}, {
  3.7947299655899115`*^9, 3.794729981373066*^9}, {3.794730556165826*^9, 
  3.794730642586233*^9}},ExpressionUUID->"ab7079b1-197e-48b8-bd43-\
e59520df967c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fitData1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "26"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "74"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "223"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "294"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "258"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "237"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "191"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "124"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "68"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11", ",", "27"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.794657293358787*^9, 3.7946573274993095`*^9}, 
   3.7946578217336535`*^9, {3.7947300027837353`*^9, 3.79473001681012*^9}, 
   3.794730084079895*^9},
 CellLabel->
  "In[168]:=",ExpressionUUID->"7856293e-fab4-4a67-9c40-145475b293ee"],

Cell["\<\
Otros datos del modelo son:  
El tama\[NTilde]o de la poblaci\[OAcute]n(\[ScriptCapitalN]):\
\>", "Text",
 CellChangeTimes->{{3.794739773295558*^9, 3.7947398002703094`*^9}, {
   3.794739882545743*^9, 3.7947399071555495`*^9}, 
   3.794740018374444*^9},ExpressionUUID->"aa2b406e-dd9d-4570-b9a7-\
8aa8f75cd436"],

Cell[CellGroupData[{

Cell["\[ScriptCapitalN] = 763;", "ItemParagraph",
 CellChangeTimes->{{3.794657347296296*^9, 3.7946573535773287`*^9}, 
   3.794739951905744*^9, 
   3.794740007905558*^9},ExpressionUUID->"2da70ab4-e4dc-4cdb-88eb-\
486689959cd3"],

Cell["El n\[UAcute]mero de infectados en t = 0.", "ItemParagraph",
 CellChangeTimes->{{3.7947399124211082`*^9, 3.794739951905744*^9}, {
  3.7947400127961264`*^9, 
  3.794740022280633*^9}},ExpressionUUID->"c9979ee3-8d44-4c42-bdb7-\
0dc659dfc287"],

Cell["I0 = 1;", "ItemParagraph",
 CellChangeTimes->{{3.794657347296296*^9, 3.7946573535773287`*^9}, 
   3.794739951905744*^9, {3.794740007905558*^9, 
   3.7947400414096584`*^9}},ExpressionUUID->"aba67039-ce1c-46e5-8091-\
4cf7ac897bfa"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Statistical fit", "Subsubsection",
 CellChangeTimes->{{3.792231965447444*^9, 
  3.792231972911476*^9}},ExpressionUUID->"6803fb0b-2664-4185-82d2-\
d5cc4acb1c46"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"fitData1", ",", 
    RowBox[{
     RowBox[{"infectedSEIR", "[", 
      RowBox[{
      "763", ",", "1", ",", "\[Beta]", ",", "\[Zeta]", ",", "\[Gamma]"}], 
      "]"}], "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Beta]", ",", "0.012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Zeta]", ",", "0.61"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "0.43"}], "}"}]}], "}"}], ",", "t"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.792145832663803*^9, 3.7921458344183707`*^9}, {
   3.7921475193010683`*^9, 3.792147533564567*^9}, {3.7921476032743483`*^9, 
   3.7921476343624454`*^9}, 3.792147717056739*^9, {3.792236141548641*^9, 
   3.792236159385379*^9}, {3.7922363159834747`*^9, 3.792236329835054*^9}, 
   3.79223638947615*^9, {3.792329739433522*^9, 3.7923297460639353`*^9}, {
   3.792412903736767*^9, 3.792412921638657*^9}, 3.7934456666946383`*^9, 
   3.794658191150779*^9, 3.794739994952607*^9},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[169]:=",ExpressionUUID->"8ac0a3fa-9b00-4c80-80f7-1f3b1a9b2aa5"],

Cell[BoxData[
 TemplateBox[{
  "NonlinearModelFit", "sszero", 
   "\"The step size in the search has become less than the tolerance \
prescribed by the PrecisionGoal option, but the gradient is larger than the \
tolerance specified by the AccuracyGoal option. There is a possibility that \
the method has stalled at a point that is not a local minimum.\"", 2, 169, 49,
    17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7953199691654863`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[169]:=",ExpressionUUID->"5a4761a5-0d80-4021-bf2a-8fd4d8bff6c1"],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{
       InterpretationBox[
        RowBox[{
         TagBox["InterpolatingFunction",
          "SummaryHead"], "[", 
         DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
          "Ready"}, 
          TemplateBox[{
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    
                    LineBox[{{1.694915254237288*^-6, 0.9999992107940621}, {
                    0.4739216926142934, 3.3321361907357745`}}], 
                    LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHU+T1BKkMUCxOegEN6gKQFXip/X0
mzJAV5QKYxQ1AEDxjF5Q6Dg0QIxQ/rKKLe8/DGWEEPb4NUCBzACGqQbcP1Vz
M4QImzdAGlKvMI96yj8er1FdNWA5QMoCuMi3a7c/hXPwzxgdO0BpfFhNL/uk
PxluGPYAvDxAx1tndvzPkz8tlq+BA34+QN34ptSWiYE/OPpnYAURQECpGyR5
b2BwPxnArzKW9EBAEMl6uzeuXD9JyrdRAtRBQLxdDOxse0k/j2+EynCkQkDG
eBofdOY3P5WrCHZshkNAZLWa0aoGJT+yglF7allEQICQ3/yKhxM/Hp5azUMo
RUCMFRocf2oCP0pQG1KqCEZADGpP6KlL8D6NnaAwE9pGQLuF+RzOct4+j4Hd
QQm9R0Dn7diwMLDKPuGp2p/am0hAFGgvRXnZtz5JbZxXrmtJQKMJehnukKY+
cccVQg9NSkBv1SJrhe2TPrC8U4ZyH0tA5squoMqNgz4+9lEXse1LQL3K9SIX
rXg+jMYH23zNTEDlUFcHK5lxPvAxgvhKnk1AOf9WkGMZZj4UNLRIpoBOQEjy
+hjEJVE+T9Gq8gNUT0CMEY5/Rk42Pm3ZsHSeEVBAIiul2riPNT6SFWiJAYJQ
QHPujBEl+DU+Qp8By+XqUEC/QKROsfAgPlL09qWQXFFAKSof5RT9D76Ka0wn
KcxRQNeuSX2sTzq+TTCE1UI0UkDl6EP3M+BMvnDAFx0jpVJAuzHEB20bSL4f
no2RhA5TQKdoFoFGnla+9Z1jrNN1U0AMQ/ybM2BVvitplWDp5VNAZxPMUwFG
UL7sgalBgE5UQKs7O/auflG+DWYZvN2/VEAK/EpESlhBvlZs6dwoL1VA7kqB
40OgML4qwJsq9ZZVQIhZ1TfPDyC+Xt+pEYgHVkDiIGaU8KUQPh1MmiWccFZA
vmdsM1JWIT48hObSduJWQDqhbrGfUB0+g96SJj9SV0BQrPlWKv0sPlWGIaeI
uldAzpnS5UekNj6H+QvBmCtYQIAMF3LgFjo+RbrYByqVWEBeWo/xBekxPj4Z
5Pj//1hAx7Hzh3FWIT6KoGZ+
                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$48539#1"]& ]}}, {}}, {
                   DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {-2.1064899218688725`*^-8, 
                    3.3321361907357745`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], True -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    
                    LineBox[{{1.694915254237288*^-6, 0.9999992107940621}, {
                    0.4739216926142934, 3.3321361907357745`}}], 
                    LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHU+T1BKkMUCxOegEN6gKQFXip/X0
mzJAV5QKYxQ1AEDxjF5Q6Dg0QIxQ/rKKLe8/DGWEEPb4NUCBzACGqQbcP1Vz
M4QImzdAGlKvMI96yj8er1FdNWA5QMoCuMi3a7c/hXPwzxgdO0BpfFhNL/uk
PxluGPYAvDxAx1tndvzPkz8tlq+BA34+QN34ptSWiYE/OPpnYAURQECpGyR5
b2BwPxnArzKW9EBAEMl6uzeuXD9JyrdRAtRBQLxdDOxse0k/j2+EynCkQkDG
eBofdOY3P5WrCHZshkNAZLWa0aoGJT+yglF7allEQICQ3/yKhxM/Hp5azUMo
RUCMFRocf2oCP0pQG1KqCEZADGpP6KlL8D6NnaAwE9pGQLuF+RzOct4+j4Hd
QQm9R0Dn7diwMLDKPuGp2p/am0hAFGgvRXnZtz5JbZxXrmtJQKMJehnukKY+
cccVQg9NSkBv1SJrhe2TPrC8U4ZyH0tA5squoMqNgz4+9lEXse1LQL3K9SIX
rXg+jMYH23zNTEDlUFcHK5lxPvAxgvhKnk1AOf9WkGMZZj4UNLRIpoBOQEjy
+hjEJVE+T9Gq8gNUT0CMEY5/Rk42Pm3ZsHSeEVBAIiul2riPNT6SFWiJAYJQ
QHPujBEl+DU+Qp8By+XqUEC/QKROsfAgPlL09qWQXFFAKSof5RT9D76Ka0wn
KcxRQNeuSX2sTzq+TTCE1UI0UkDl6EP3M+BMvnDAFx0jpVJAuzHEB20bSL4f
no2RhA5TQKdoFoFGnla+9Z1jrNN1U0AMQ/ybM2BVvitplWDp5VNAZxPMUwFG
UL7sgalBgE5UQKs7O/auflG+DWYZvN2/VEAK/EpESlhBvlZs6dwoL1VA7kqB
40OgML4qwJsq9ZZVQIhZ1TfPDyC+Xt+pEYgHVkDiIGaU8KUQPh1MmiWccFZA
vmdsM1JWIT48hObSduJWQDqhbrGfUB0+g96SJj9SV0BQrPlWKv0sPlWGIaeI
uldAzpnS5UekNj6H+QvBmCtYQIAMF3LgFjo+RbrYByqVWEBeWo/xBekxPj4Z
5Pj//1hAx7Hzh3FWIT6KoGZ+
                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$48539#1"]& ]}}, {}}, {
                   DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {-2.1064899218688725`*^-8, 
                    3.3321361907357745`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}]}, 
             Dynamic[Typeset`open$$], ImageSize -> Automatic]},
           "SummaryPanel"],
          DynamicModuleValues:>{}], "]"}],
        InterpolatingFunction[{{0., 100.}}, {
         5, 7, 1, {593}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
          False}, CompressedData["
1:eJwt2Ic3FnzcBnB7730b2eM2wm3P32VWyCpaIhl5kKRhJfWkkEqD7EgqLYok
SQ8a9i4jZETLTooy3t7zvt9zrnNd53z+g6/s3gOufgx0dHT0f+Pyv+P/Lz+T
K2STxLL5/zUX+X0oUSBcSJisHWRhNjmtSOiEfSEFLUI/Z72aXaVHGFoUn0ua
mBCeFOLwIsSK3Dx4l2w0dSQXM8NmBbR2EuXV+GG663sJS3H3xkVqAImbFTv6
IjGUnE58U3di9TA5I3eYYnUoksRXygYxf4khVt/rnFOunyIvWdYmFJ0SiBfr
00yDqYvEIymUDJSkkp281LETEZlk+5WRBEXzXHKPs0VknD6fnLdf2hgodosc
SFKMnll/l8yn0w3YTT0kwme3TqsGlhKD6EI6zs9lZEfwssCEz1MSvdtZsWn4
GclxLDC4t7uK/Cjzu9XTUE0yrJce9o3VEkXNihK77a/II0rk48qm18SMyeiJ
OqkjDdOL5Tkl9cSt72kFj1IjGXkZURmb0UT2FxlWzXK1kL6JGb44qzZyI2VL
CWdVO9mho+nh1ttBeDs5WHLnO8nr0E/FX3jekmje2h001XdEuyiH8ZhNNzl1
tEbTk7uXvDMf34V3fUSZlT1BLqefRLapP2byGyRNac7Dn9SHCI+W8RnfqGFi
IOSQ7eY5QvYs7i6xtRwliQMH6g2UPpKS6pMfVDjGSH/BlR+U6THClHiTg7Nz
nGjsL5dZLvtE3F0a9KcyPpNYvX6HDzFfSCFlam+b91fSsbIaUW3zjfwe4Ut+
RJ0g8m/kbuZzTxKHu7qVV+YmyZELth1x76bItbDtn49UTJM698AV/5wZEiH1
gv0+Zsk53rqUgpJZkkffLp2jMEcez/feTb06R+rHR/QusH0nAz3fqs9EfSez
DfP2sZPfCdPz5e5wz3kiVsS8N7R9nqjn8UwFWP4guCwa4f34B9kaJ8O4U2mB
BBylXnBNXyDHAmgUe46f5OJOkwKrYz9JgYO1pun0T/LUfPMz3T2/SLOWu41G
5y8yLOfVrmi9SH4IBexa92SRsLEe/CSiskQklyIP8mYuEa2Jf5dZuX4T68Gk
eLrjv8n2thSBpZnfJLgmJ2fO+w85UXpL5VvXH5Jys7h01GaZFKY9Ne8vXybP
E2sauqgrpD26cWtz1goZ29819Ip7lSx6DQRWxa4SLtfxhbK5VSJjPX2iyGeN
6Or/4rz9bo0oCJ1oapOnw/rzTPzNHnQwZEl0r0+lg2Usd/arVjo4LF4aqWal
h/tBEeUq0GPPt8zgikh6BPpIl5SV0OPwwI1fjybocdxNxaxIgQEJrff/vbub
AZc3aNffusqA7Ooy7httDLhlZLwll40RD0tepGdZMOKZmtWHtChGvCqok08p
ZUSrlMM/FycZ0Xu1veicIhNGed1+JHgyYTKhz+h0GhN+0nvGnmxnAl306KsY
dmZw/PDniLJkhtD+Caej0cxY9+lAathjZqh4/XgfMsUMWm+ETJASC0xdVvz2
ebHAtvHkPZ90Fjhbscx5dbBg5/Oz+h4crPDV4z223YoVIUVXarYeY0WEshir
Sxkr/s3Ldtg8zYpzFNnLm5TZcPXyzR6bPWzI41SVssxgw924or3mnWx4vEIr
NOZkx4uj5VP61uyonzHR0YlhR2dAdYTmE3YMjFi/UJthx6edDYwqKhyY7dq8
ScGbA78dOi/IZHKA6Y37W8kuDvCQfgqFixNiT728hG04Iac9VsB/nBPqdwO+
cZdzQl9+SpNjlhPIPniEhcoFO+Gfzxj2cmHrhSi6tUwueLKu2fzp4kLAiVNJ
v7i4EbbE2jFvw41jYedEZo9z48wEn8dkOTcu+qZe/zLLjcxByucxKg8K3K+p
j+zlQVGbXNhgFg+ebrxd3veWB7U1aivvuHnRbPzQstOWF92lugmtsbwYVq9o
aXzKi283zQTr5ngRxet931uYD2v28m1D2nyISxif2+3IB/bXt4UGAvlwgT7Q
YGc8HwTN1Xf23uBDetT0MfdqPkiVP8x9O8CH/PmwWtclPihr6Y23C/PjfvAv
VicaP7TvVKi2OPLjyXj0ZvsgfpjImYc2xPOj2pPuyoYCfthk1Za9ruZHY09c
r9UgP5yENvypWeLHW2f2dRARwI7zTXhBE8CHhvM+pk4C8GFxPvMsSABfLAXu
GCYIYH/s26YnBQL4Xnl1WrdGAOGL2/lLBwWwrCuhq/1bACcPDroXiwiCpSg3
UkNHEEnfvLPvOQmCT1nhP2qwIFJ9Po3cThCEeF4hk9JNQeQOBCoX1AhCgaJh
J/dBEHfcZoLzfgti/eVHyetEhVDaeqgkW0cIhpz678SdhbDjzPupmRgh8KVI
TNRlCaHuuseX3AohHC/OGQ/vEYJe1YdRpwUhTDZKDysLCuNG757BNS1h7Px0
/X2PozD4f4z2FAcLo55e4V38WWHE8vp1ehUK4+PCy6LwF8LYMCCXlPxWGPdq
T+67/U0YvHeGrf6jE8GhZCLTIyKCniPXlqfVRWDisdLLYiWCXEuPsnU7RMBI
rbykf0AE+3jFQxxPi6BpIcLOP0sEmgM9SscfieBKrT7j1ToR/CpMHXowKIJd
yT8qX8+L4L8jW9IH2UUh71FyeEFaFPGW/C7c+qKYUAnVUHQQhRNvG7vZXlGU
Lmh82hohCtGBc7XBF0QRXTtxLa5AFEOFdtHZz0RhlXxn2+N2Udw+wqbb/EkU
nB77+MaWRXHA8s3kHwExdKkoNghSxWDAG3dTjYgha2H0pJWbGNb6LTx3BYnB
pzbP+NBJMdQVrokkpYlBLdlzPv+BGJKPVLU9eymG+V2S9zv7xLDNMjrh24wY
KlXe+zKwUCDNa2QhLknBqYU0KRqNgs/9P5c2baTAvtat29uTguLCxyWRhykQ
TBZMvnSWgvAjYUF38ijo39WxoeYJBcRSS6GvmYIbKsl0c6MUsPJOD7AtURC0
4FAhwyuOtv57qYaK4tCp5QhzNhFHWuE/jgEu4tCSi6dvDBNHQ1bBY7UUcewV
rt13vkwcfy4Mic90iyOFbaXFeVEcGv+KnyyhSODNHwNdIRMJeB1x+3zEQwKL
02GZPTESuBRwcbNRrgRURx/QZVVL4OWuptLlEQl4vPvi78koiQVHFvFqBUlc
qJdvkbWVhLKlxYlT+yRRXempM54giR16xz7Z3pXE96KMjMImSSSplDtwTElC
If/tWhCPFKokvpe0aErBPZXXX9NFCjM8GpRLYVIIVsL1Uzel8NVsC/VorxT8
3fwfBXCuw8fgSKNd5uuwJ+5czeaD6zCYlbsJBeuws7Skg9azDj2Nr3cockhj
62jviKiZNDqWJv7hCJWGI//a3HK+NJpUBKJm3klDIU+A/iCTDEbVJG2+Sckg
r1wx0cdABp5Wmi0DzjIw4PqRsS1cBnzvnvp35sjga06MzuZXMqj1t6Sr/yaD
LE3WFkt+WRxebMqoMpDF5pqL/oaeslA666ZTGieLNVdxuvX3ZNErMdRc2CGL
R2M3MuQXZXH2QYD/tXVy8DmqoUOxkYMp+b52JUgOwmzlzTyX5TDdHp2R+FQO
dRnwZxqSQ95eZp1YZnlEqjWuLanJw/XHhebDrvJQq9qSMRMhD6YzYv6BufIY
dBykjb+WxxPR/DWvSXkkD/s3vxdQQMAdtQw3IwVYhM36tXspQNykjGZ/RgHz
jFFrr+8roLnZvBldCriZyphRuaSA4571fvoyitimfJ72yFYRWrMua2r7FcFe
IdJ864oiRk/2p8s+U0SlXZ5f9rAiUgT9aKKsStg/QF27pKEE25vTTVxblSAd
UpoeH6WERf0IP4brSuhYM6XF1Cnhbj392q8pJZy69KYpTEgZHjuT0qeMlaEn
7+wX4K0Mnkkh2sd4ZXx+3Le6u0gZ1THXmnrfKiPD1id9yx9lhPGq+LXKqsC+
d1J700YVKFx/tPoyRAUr/xxtMk9VQTfNJL2iUgXFf9Z8dUdVkPDqlXYxGxXe
5xNXqZpUGLs7NhW4USEoLZgufYyKyc89vpn5VLx+mK0t3EDFtUjv1eQZKsIt
lZo4RFThzDmRdtpUFdS3xb50PqpgyDmsHZ2oin4/o9WFYlU8Xr/aGNqtivO/
atMmllXhXx3v6y+vBpLooD2ySQ1irvyru0LVMCfe3dh9VQ2NHzPTXKrUcOO+
l2/zRzUcO6KgvYFDHW7mX1dqtNSxnrWo0XSbOljbw9LKY9QxnG7gSytQR4X3
staDRnVcVq1ZUZ5TR9D86cZ8UQ1YP7dLkzLXgNRpXt90Xw383PxWSzBJA20i
GSvnH2mgcGh3I1uvBk4WyqWdWtVAuXjwwh7D9Zg6V7bFPGw95NdWH0ncX48d
BzfyLY2vR/LHSyHd0pp47dbfXLpDE3/qFNQuXdGEtnFIYkiLJnS6++dvMmrB
MZnuRoqMFv7ZqOh6ykwLcfR29GE7tZD7LOThnnAtPDt0xcspRQvv1J/ymD/S
wuz4QJV6qxY4c+n3S0xoQWm7kiQHmzYs+O2bFhW04dF4IOqzhTbCT6VQuz21
cdm0ovdVtDYeLAzGl6Zro76IwSC/TBsf9yl/utipjVUZh9TYGW1Q3odah3DR
oHsldd6DSoOTw7N8e1saApmHXIx9aDj9gpGeeoKGvHCVh6I5NFRqbfZieUZD
99eDPAvdNMzlX636OE8Dl0dlcCefDpSFhyVqNHRg2crUVGyng93x1Khr+3QQ
AUfq+TgdXFkK642+roOikrT4wBc6aAh6rr+jXwdjCiPjGxZ1sDbInKovrAvx
NFVrRZou9Jyd5gWddOHMfjifIVgXQbXpLnMJujgTXUU3fFMX13VHi1trdfF8
isWrakgXPbfUeO4v6+K7l3NVJkUP3JQjwYn6elDpzJCI2KIHq6QXjf6hevC0
/hjpdl4PkSusVOu7ekh5ot5Lq9ND8QGXeNkxPTSqHNXno9fH+Ejm+KqUPuiy
/kuZMtaHxNYxq4Ft+tDnZp9vPKwPlzca+RWX9BEc6+pSWKSPeMNwurQmfeTP
ZRWf/qKPqrvVnoeZDRDzoHTTipYBzB7e0j3jYYCVkgxp3gQDVJWd40gv/etP
Yxdkhv56ZdjwHQ5DrFT5NdH0DVFVvf1JpbchYl7aX7c+bwizN+bnWp7+9Xrt
cPexv96ksHeI1wgxraKbA0yMYNbBYTjnb4SVrhW5qMtGqOqe5WZ88df7Pi4m
ff3rA90fhYSNsfKhoTUHxqgaeV6hFGyMmLHiguI0Y5h9zk82fPnXv6ZG1Uz/
9ckEPztxE8TMRDt32ZjA7HuIicdBE6z88FYazzZB1a+t/CH1f/33huWf8399
xfhzrLQpVtY0OtnsTVHFIFt16agpYpiFCsXzTWHGxnrlRstf5/gdo77017mn
AsoUzBDDN7zF3NkMZoJd5nXRZih55Zn9qcoMyke/LTHTmSNb+eg2RUtz8PfR
l1nHmePM2fMCvm/M8ceEEnqKjSB0qqAl345g/JqWWu05gp3OzxNGWgk+0ykc
OsEGXO/7KnuRCuwqKW7PtQOEk47EFgcBbT4m6/87BySa0g+2PgCshOuSPrQC
K1PnjKdngPI3rl9X+CxwMFcsnZtmAbWID7ZSWyww7lywoH7YArnUwALTVAs0
rVpxsNRZ4FeXVGjbogXk7/x6l65qCafjHSZ7PSwRveXedbULlritcpp14T9L
dK147n8xZ4m1TsOueHkrqBUKGLm4WWFbzOQ18XgrnHJ9wzT21ArFynmBD75Z
oX85sv2opDVYO7fow9EaOrc1stlPWIMaaler3WwNaaN9X3aI2UCYIY7nX18b
cDbl6d59aAP6lKqdncs2+OXx/sTvjbaYUvx1Sy7VFh+nBVvsRmzRV641H6ax
AW0nNlOyIjfgp4F/yr8zGyA1c5w30G8jrG+lnXXp34ig3Q+ZjVw24bJQwwmZ
uk2oaBr5w2pmh45bjFRuij2+nlR0F1iwB/3uDadEOxxAMfznoeSDzdAWTBqU
TXTEpun7HMp+Tnjk+1niqowzzFwjStIvOKOBsG/KWnaGm0bmUE6gC8T+K7Z+
E+KKfufXd6bDtuDa6Hse0fCt8D48e4hEu0GBhaVvX6w74h+q6i+d247/+z7t
wP8AdFEglg==
         "], {Developer`PackedArrayForm, CompressedData["
1:eJwl1W1EIIgWANC2TZIkSZKkTZIkSZIkSZIkSZIkSZKkTZIkSZIkSZIkSZIk
SZJkjCRJkjGSJEmSJElGkmRP712O+/dyv/5p/Ley/a+AgIDKwID/xXcKIpgQ
QgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskjnwIKKaKYEkopo5yK
7zqpopoaaqmjngYaaaKZFlppo50OOumimx566aOfAQYZYpgRRhljnAkmmWKa
GWaZY54FFllimRVWWWOdDTbZYpsddvnBT/bY54BDjjjmhFN+8Zszzrngkiuu
ueGWO+554JEnnnnhlT+88c4Hn3wRYBACCSKYEEIJI5wIIokimhhiiSOeBBJJ
IpkUUkkjnQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlpp
43vIO+iki2566KWPfgYYZIhhRhhljHEmmGSKaWaYZY55FlhkiWVWWGWNdTbY
ZIttdtjlBz/ZY58DDjnimBNO+cVvzjjngkuuuOaGW+6454FHnnjmhVf+8MY7
H3zyxffyBxJEMCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+
BRRSRDEllFJGORWB/79TVVRTQy111NNAI00000IrbbTTQSdddNNDL330M8Ag
QwwzwihjjDPBJFNMM8Msc8yzwCJLLLPCKmuss8EmW2yzwy4/+Mke+xxwyBHH
nHDKL35zxjkXXHLFNTfccsc9DzzyxDMvvPKHN9754JMvAv7Wf4IIJoRQwggn
gkiiiCaGWOKIJ4FEkkgmhVTSSCeDTLLIJodc8singEKKKKaEUsoop4JKqqim
hlrqqKeBRppopoVW2ming0666KaHXvroZ4BBhhhmhFHGGGeCSaaYZoZZ5phn
gUWWWGaFVdZYZ4NNtthmh11+8JM99jngkCOOOeGUX/zmjHMuuOSKa2645Y57
HnjkiWdeeOUPb7zzwSdffD/+QIIIJoRQwggngkiiiCaGWOKIJ4FEkkgmhVTS
SCeDTLLIJodc8singEKKKKaEUsoop4JKqqimhlrqqKeBRppopoVW2ming066
6KaHXvroZ4BBhhhmhFHGGGeCSaaYZoZZ5phngUX+AzebHlE=
          "], CompressedData["
1:eJwtl3c8198Xx0mZLVESlZmdPcvnHntn7733+HwaRlFGQpRkpUGDFDIqKn0/
7yszo5IUCVmV1cdKZP388bv/PR+Pe8895zxe9/W4h98j1MKbno6O7t5Wuv+v
GRRMUx9R6OgnSjmlu8c2aCg3lKWyrrWfMGC8WNq2yTHq5IsnWvoJlvf0iZWb
PC582q2vsZ9woQj1um5yb5DnWXlqP9Gx9Q9p5yZH+T15f7m6n1iNoH/5ep2G
8jf2e4w+6Seu073TC9xkjyhFBfWH/cR9z8G/1DUaao0Wd2bM6Sd6GhLmzq/S
UJiRzuRURD8RzJfBtbhMQ+9C4rcbHOsnzB5Yp5P/0pDjGFPE87VvxPepPMe5
BRri3W0vIIe/Eann28yWZmjI7G9zpb7zN8JB6BzL9mkaYqmz3ZX8r4/Q1/9y
Xmqchn69Wmacz+kjuhvHy5zGaGgkJd0zUbGPiOVp10/spyHPhkRLb9+vBEW7
acdUNw0xXJJc/Xujl+jln9wr2ExDKwLKd+mWvxAzPzrWzV/S0ExuhviAw2fC
bnUfT3gpDaUx10vHEp+I4rG25vQCGpLmkYz4eqSLcBIaC7ydRUM7J7KWvqZ3
Et9Vyp6wXqSh8IWi9ARqBzG1fpamEE5D29Ru3VjxbyECJKaykr1o6ORZXUb/
Q/8RS68HcsjONBSR0PWM/1IFMQ/iyiQHGmrrHBIws0gnmAXdzEc3mdUz4KvZ
mQLUOHDKwd518zzBHT3n/wx5slCdrvvS0OXuoqr3xzHqvz7PvRZNQ5GDKWZ7
zFvR8ccN87/v0JDtBTJP6+GPyD01w6iilobE4gxMpmO7kZcd95LVZn/emD3I
e/2tB0nJlPuM08+gqAm/mW8y39Ds3SHddK4ZVBzYu0iLGUQPY6Pm8qRn0Pp0
E2+r5xA6W2xauc1wBv2iNhdXbRtBRrOzah0+M8jd22NbTOEoenb1JKGaM4MK
NnVoyvsTZTF+vLevYwal38nIGb86jh7I0Q05M8+ijXiHQgP6KbT87vNdNoNZ
FOf5PNKP/BtdWx6WOHR1Fs0FG924FTaDhPppvVlfZ5FZyNL6p+JZpHQgiP20
xBy6Sf9I4+PQHHrTeyN2/cUcWpnedhB9W0DrEzbL5VbzyFdX8+DDvkX0cFrY
4en6PNIOf/bm09ASOhjyUwTVLKD7s+xOKTP/UNmdLbbZMX9QmWPcr3iWNVTg
HX6E2XoRcU5mDEcc3UDCsxzbZtT+Iq/i8NUrFXSgfrIh7rnMEhofMnK43kkP
6YxHTrQrLaM1L45EwZUt0DXsqv7M5B/SFuU+eeDoVqAZa7svn15BCe4DTVaB
22DbsIuAQsUq6mowTqt8yghPfH/5sqytoaztxj/3MDPD8FNyi7jzBqp3P/zM
xZ8Fhtnm3Uv86GDAn0/pfA8rvM7WjZeUogf6XMpTT5vtsDQQ6HBxlR5Wlvk4
6Ed3QFjxhKvYly2gw/DnjEXcLgjw3st//T8GoFcVHpe8sRsCZsso2hVbYYyB
HaVHsYPyqTsPm8q3wecflmN93nvgP77nbY9fM8LyE9HmW44ckKBiOZz8hQnu
yZnaezlxwhxtXXQbPQsUZ6gPtvjtBd6HTc5NqqzgN8JT7h27D3i8PVkuxLGB
8aWoU31FXPDlJ1PHdN926D/ziPyhdz9s7Gl5+kl3JxjtTCNmDhyAYa64SwwN
u8CCXH/5dwAP7OvPyRR7vBtydEes4lp5YdFZ44zlOXaQkrkmFKh2CNobrc8u
2u2BWp2DzSG1h2HCeI/ZVeCAJ+lH6KQe8oHgnZKgAnlOWOg65UIXxQ/IbUG/
Sm4vzFQZ8+XbCMDN+8euWZL2wdtE/DBKXRCq2LScuG254HlFshiztBCcOCTq
kR+9H8Ds2WssIQwfFLgUkqq44UGJrC+/whG4yn3jVPTiAXC7NXGkRF8Efrnq
7pYx5IUtN4cWh/1FQW/6wRm7JwdhV+jP9+a5YsC3MvWxWvAwaJOdHyR8EgeH
JMV7ydZ84CBy0mb7YUlQWN/Lli/AD4QpFEdHSEGzZdu/S8v8oBW8W5g8dBQC
vzdxPP8qAFbGmbEaUjIgZ/3J+WaTIESU340Rm5OBiF/xLs/+E4LY9Aj2N4Qs
DOkckonBwkAveN7UJVsOFme/ZJ99fwRej0W+tDgjDx775jkUJkWgTcKZ44+r
AhTeDF+U5xQDDuYnircsFSGOQ8B/u5E4vFSa/JJvrgTdhgLRlukSoFNNtrRz
UIb5QDXZB6OSIFBg7HIoRAUWIppP3dE/CncfOP1nmKYKz+/IH/n5WhrW0jWm
FV+ogb62MCPnXRnQrAmtU6Ydg9p62uilIFmoU/62VCSnDioV2WOiGnKw1bym
uSeOBOGJIvssD8vDkZuJ1nzfEZjkcLZ7MSmA/moBl28hwL7WlKvUZQWQrjn7
OcddA7gWTLbULyqC2ZK6cLOQJsSbU+s+ryvBIo9vJBdNE0a8H2q57VGByuWl
O8VYCw7phJc1y6pCnc81s5wb2lDz7VzhGWc1CIwpbVmN1IGPsu0He7KOgVn/
IePf7rowP+23367vOBSTfpedM9eDTBcHL8+jJIjsaml/qq8PnQFmlr5XEZRd
DmfN0zOAyfj6p37nATItm/6TPmEIN4h35y6RNMCq8Xx+iJMRvDfbHai7bTPP
d0jegGIM5ucN/Pu6NCH1KYvU46smkG70o/TsYy2wP/Hy08lnJ0BJ6l24Y7I2
fJLL8jv/3RSqcj51l4XpQEfOMXiXbAZjbl3WD9x0oTEjX7XliDncEbxIDbHX
g6ho7u+szeZwplCLUHPUh4GXRkRwgAXI0A3ckvcxgKsbPQFvdltC6ZvWr7FR
hmC+lUCfXlpCkQfbkGGuEVSHm0n6eVuBf79ofgVhDJ6NUheOc1gDs2mjZOeM
CdisFDUy11vDww8Wfk0SpmC+uFAYfcoGio4ZtlqomEHWv1e92iK20EHqjCIG
zcBQS0WEvs8WBr8frjmaag4B6zj0xFU7ONsjs+u+ugW8yIzvqNOyh9X63/S8
CxbwOZ+pfvyvPWykHH6fVW4JBZbJ0SdKHOAjR4gRS5gV6MnvkKA4OwLtFH9N
oKI1pD385NW5wwk0r3PmPtmwhoF3xU9Gap3ghkF8DvHOBlRUxdl4fZ3BLEDT
K+meLVTsXH0wvtMFeFsWbvyOsoPDanSpL6pcwDG8vazL1h7cX79OnDN3hUV9
1yFOVQe4EXbyz8akKyw7MR+/fMgRfONKPYTADbwPa11mY3YCoQOiLw9ccoP9
HC4BPn+c4N0WT9bcVjcw+9Fp7vfDGfZnmL62YHWHlouUJ71fXeBUzjwvg647
CA1m053/6AodHdOzntHuwOx3OzbVxw3INc5M8hXusHE6LlhuzA0OmGm9lh1w
B0Gx80d2eruDZqt9ijCTB4zz2q7/G9uMs0G+1CPuAWeMc3o++nrAn27XAW4D
D1hSczALmfCAULoH6lR3D3C4u/j9QbAnDIxwqxWc8gCeMnV2k1lP4NDleVAQ
6wHL5JGC46e9QPIc7ihK8gB19/s1+steQD/DX1eQ7AF5j0v26kZ7Q4N1g3d8
ggeIzXdrs9D7gEBSS6ZhpAf8oEq3+iT4gLLMTp7lzTz8La1s5Zl8YfHb2qNc
Mw/w6+Nd0Ur2hRfqljWq8pt5MUibh7D6AeOasPH8Lg9InFssT0rxg9fWpg3D
P9xhKa/AKoDFH5h9zc5LvHCHO3/KUicT/eG8oVjCYrw7fO/9+G1sSwC8lX/J
TTF0h9y5ViGF6ADIsXKw7mRzh5f5E0TVnwDgy7t416jFDXakqdxDQYHgq+ZC
4r3gBvt0J8mvvgdCuQ8bNVbeDcZuyt/eahkEWTLRa1GNrsDfaRBEXx8Ejad8
9I/wukL8ArErWyYYPEgvhNIDXWAmVqTk0c1guM/2qFvnmTPwSwk6CW8NAeIa
68HPi07wMIiJtOAfArfykgw+yDvBjg8KAQwdIbBl6w6L+kBHaNR1+aMhFQrM
Yfvo1PMdoNJmfrwgJRSuowvib9/Zg1vbBOIYCwX/S630s//soKl937juoTAo
8bgRoiZkBx3Ns8Xx+mHQwlIfJ2JkC968czzHyWGg47JzTTHMBtx49ByCc8PA
7Qx5cOC6NZzgETTdSw2DRydtubKrreC5cUi53HAYBEcg5dYeS3jHzjbTsJUM
jZ/7YfSfBfx2bznWLkyGi1aNMXoHLeD9BK+/gQ4ZenwuBJmDOTTfrqepe5Lh
T9tUib2XGbTLmA2UnCeDcjLa4cVhClOj799n5ZEho0N0wdjdBDhKk4bWn5Jh
mKk971+VEfRm/yieaCODmHOty29mQ0AnCsWch8nwe1C35o6nPmw11mh3+EuG
Bsvhy+H1uiCR9srqFysF7nwLyPwqqgP9typ6WQ9SIOmPet3hTC2YkR2obZai
wFdIfpS16bNRDMu3hdQpcPpI91psNIDp4pKTiBEFpqxu/9NaUodHMS3Mn20p
MCwj12vNcAxGtrj2K3lSYM/JWe4sXhXQ4dQ5bhZMgWJMETbVVoTDfrFFomco
cEWmXr4hSg4mqqaqm6IpkPO8293sgjRUTI3zyiZQILHkhZKemDhkhNtk7Eyl
gExwoITcR37Q57eKzb1KAZB0pd9+kBsWu1OEp65RYELSbJytagdc/zBvy36d
AkfvDrw+6D6PJMfVfu/aZP+fT7LJWfNE5dBANW1z/8cPVn4eeDue+tp3+sVm
vN+e2yPu5HJhx7+lQ+TN+7gzJW0z9Phw5oOkAsEkCsjrSNtK3RPCLFcGdbrj
KLCxPS7n9DdR3CgmbnblHAXiOfeS3i5KYrc9Kz+MwylQ11Gwsjopjb9cqdZN
IVNgubqbzOwni2tf87sZBG7Wb0zRu9Eph+8u/eNJ86LA91a2Wy1yCnjCu9rB
zpkCJ0tPNj+5rIhPK2ovlFlT4J7Xtmavb0r44M++mnQTCgjXd4ltFVbBG5Lt
gQw6FDA817tW5K2K94B5B/NxCohLkKm+d9Sw72FK+n05CqzKHdF2f38M+10d
cf0sSgG7osrnT5aOY6KK9u3+IQq8aF+MDDxAwrXz7vk7OSkgaj4v/lQBYQer
cEVuFgr4hX1s+CAIOP3vR8GmNTK4dQarPnoE+GvImTGuOTLE7js5MSOhgWvd
/pvc/WNT/wlbup4/1sByhk53nvaSIVK3Y3rbEU1cKu3huKWDDIfkmWRptzXx
Lib18A2CDO76ZSnn92jhkjx8vKyKDCNrB/ob4rWw42Pp6R2FZGiv+LXSPquF
EY8eFswhg2n/zkeFTtp4kM1odCaJDI8HDTKcGrTxyXt7Y8KjyBA9+PLEhqgO
fh4o8uhlIBl+Vb9yupmig98Jvgx/6UQGhm0zh0njOpiu+d1chAkZ8n/EDi5o
62LtVqMD/9TJsLSS2NB+Wxd/cGYeIx0lA1tSbs/HeV0sd/snGBwiw8PCtK2c
enr4Q8bvPTw7yfClwWHX7Rw9/HbRUbl6LQz2d+25HTWmh0cycCzvdBgk5jId
fSmjj/uU9v9n+i0MZP8xHvKO1McdYiMl5m1hkPG36n4KoY8nGYFZ6FUYRLvM
vVdkMMBif7YltBSHQZ1lRBpF2wBXiw+2QE4YFE27FRjHG2CTJ54RVy6Gwa1j
Q4XvCQN80kBB8unJMLBRY+Fk+meAP+TvPVPhHgZTotmq67KGmOrG9v2SaRiM
7Pqkjn0N8Zbkk1Nq6pt+ppLGZ3fTEEeV8O9rEw8DOVfGVx/aDbG1StQH1f1h
cDeZsVZh1RAL1KZdStoWBkJXx0uviBlha3Y/IG/6a4r369lfVkYYSk/MZBOh
QGfn0WASY4STfEntCTdCYcL2jUpzoRH2aPt8Uv1kKPQ8Xjnm2maE2yQORtYb
h0K93t3MwzQjHFVd6cZ9JBSsNFeG2dmNcbbA1nsaGyHAVmZyF8kaY9/y49Oo
IQTSrCZyc12M8YcHEgUjSSFg9fO0/MEkY5z/eiZHwSQEFg9xkqbKjHED7ShF
jT0E+FLtWwQ/GOM0/8wrq5+CIShRWWTotzHO7HXaHZcbDO9+/PsLrCa44UXH
YKdjMFzOcBZ0FTDBJkMlJXOHgmHgbul3G2UTrGrweGJiKAhWz62/0DQwwdzr
nd/wgyDwSSenHLczwTaUkdQo3yBQ5w+97OxlgmsYKzsPigdB/viMCTXYBLdV
U0wrpgKB07TlzZlTJvjI2J5I5fJACHg/evxOhAneaX3q2gtyINRtyTllFGWC
S10rS1UUAkHK911KZqQJvhViVfl6MQC+jZptv3rGBN9oSrY3eBkAibsmF0zJ
JpipylBh5GwALG7NrZr0N8Hph+OKrpAC4NJAvugZNxPM1So+ZUofAKUrJVVb
rE1w5YYPt0SDP/AGfxB5oGeCNw5m8Ahd8gcflZT+IBUTXNVn9Ipk6A+Ni5WP
Q0RMsNmJuR05035wVyU+U3WzX5tTgb/FNT/4KrGjQXvcGL+k++J+TtEPAnmN
7d42GOOrHl96Dn/1hY3v33as3zLGNdfdGfXO+8Jx3jdWXBRjTLn5OmZFyBd4
vuV662kbY+v9Vaq6bT5Q7KRgQ+Uwxm3B6jekKT5w1zVD6vF3I0zzWwoluH2g
O1X0r1KJEZ5JMGJaq/OG8z2Z3VdOburvubcwLcAbjnTWcH5VNcKvTFf33OL0
hlSa6jG0bogJn64CFsIL3hif4xnBhvio124p9QAv0Pj5d+RXrCGuJdsXH9vn
BbJOu6UpGobYuLY+j6XeEwzOuuzJ3zDAtZdPL9N0PUF6/bX24A0DHDr6sKWx
3QOenPqeVCZrgHkrXo5nWXnAUROlWJ9mfazZZZXuv/nvdKqeNnVz1Meh2alu
+gHucPHw+8WJaT2cXnvhssqSG2Tzva0yO6+HX0SenCAlucF/7hsWn3fp4ep/
kvtdD7hBc/xMSm2+Lp6wiWdXdnaFhMVxdExaF5N0BtFksgsYtth+vEzVwWP5
fql9r5xBsd7Ic9BEB+sd0FlmnHGCBYrFPq9+bVydvz4QIOYEEswPTbWDtXFe
StAuBl9H0Cf9+V20poUbzkQsvi12gNcVY4nlV7SwrebQixe/7UF2d+G1GD4t
XJbGad6sYg/+pUn3ZJ9qYr93io+nEu0g4utM5oiuJvaWDn55qNcWwhmuvCjt
08AV47lZFtK20L0mtXKPrIE/T0SknUu2gcKH8ru/Mmvg1S/+x9N/WsP2rs9Z
nncBn4ipv33BwBr+mBqomB4D3J74+xCUW0H991eF1mUI74zXrsD7rcD8Xcah
bT9JWIin/dP8RUs4YqPJ+EaQhE1+D1W0LlrAeL16zh1PdWw71M+lFGgBT0zu
mj4uOo63/KzPPTJiDqfY4wXmpo5hj7SdKaku5rAo6V10QekYDmgp4LTrNwNW
Bxq4xKvhgdJJ9UhXMzC23Wt2rUsVV+kUDxNvTeFHbIfZIRFV7DPbzL709QRM
6EcyMMeo4EWde4+j5kxAJ+zwFdMeZbz+qtVQZLcJ3AjJvrWgqIw97uXf6Jc3
BubbtTF/spXwl5ddVtHORsB15qO26YoivqpBc/yRagjlr4W/rnko4uGxnldL
dQawtpPh0GqHAm4aPv00c1UfhARFV7SOK+D86dCmvOP6wPasJvpdmTx+df9o
7WSsHqzRt/28LiCPqyPYH/q164LV06cNl/Pk8Bufxfk5Hl3Q6qFbKd0rh9Pm
9vsEbc7Da712/dPXZbFMiBV/zVtt8Dqqqqa9VxZfb+kqey6iDUtNJQGFN2Rw
4F2VVcMULVi1p3dj5JfBvu2a/g6zmqBUqe5eYyONR3/S1TU7acJZnS968uSj
OFUyQyO8XQP6736N8rsmhekFY2+bgAasnlW7QqqRxJ1R1DXpFwC3HjJW3xqW
wLofNRm2KgA0bdHs8eeQwLMVtemuvgguWAffTjUQx3aF5Hr5EBJoP/56fjJB
DDN7C1EtzqlDRU5fb1CjKE4RDc25fO04dM73zS2yimJ560TnJ2XHoDc8ki3M
WgT/ztfcl/pBDYoWHvpRHxzBQfaN1MVlVRgamHFuWRLGF5WphnViqtAk/s3m
lLkwpg92uE+4qoBWydXB4idC+Lz3aGHTTWVoCaksNd4thKMZeQRK+5VAfyT3
nu4ZQazzS7dHV1gJbEZ7+6K/C2DKNY7wEIoiPFVWKO89IYCdnOVurDQoQJzP
7DONOn48adf+pplXAYwsX7XdVubHFSwtLmWR8lDvPc37uZIPh+GftZf65ICz
KJqvS5oPa7Y2sMhrygG9WSOseBzGzckl1qllshDrqxEeHXwI3z/udIl8UBY2
HL93bsQcxCO0p85112SgsWrvnHUOLz7xCwIdWWUgxdpQ1qqaB3NyXBaGndKA
Dsg/eN93AFP47JmGdh2FL4rZB+8wHcAq54eDnLmlYGMjWSZblRtnjq10RolL
AuNHJbmr5P34xUNGJTotCWhUEj7mXs6FWwsyOas9xKFnL7/o2Nw+7Htqm4tP
shhUb7zMWzi2D997xRf2rVoUTLT8lv1T9uJ5t4qdYxMiIL/hHMo3wIkT9Q45
nRAWgcczrFPzSpxYa4Tr40/vI9BkZy9Ql8mBW8lqanGlwiA99eiS9989+Oje
1iLakhDIeGZaEC578J7l04EMRkLQ9IMcWdbKjm1FGp69NhUEjkr9n44Lu7Ec
w2FWYzcBMHd8NlgpshvnswqXi57jh2HK7ab0lp34DI0t//09PvDJThGLsNyB
03gsKxMfHoawc2eNHWhsGE0s23AdPATFGYOXY26yYoOLOWyBhbzg1fSLQ96W
BV+ZG7xUiHjALuRUdTs/M+a/0US/MMENt6duEEX/GHE9sftDatF+uLEn9K3A
0Dbs4e21u5zMBQf8nK4Wf9qKb8z0md4z2geSj/jqCj8x4NRhEaVq+b0wsnKn
O+37Frz3qIa8phgn3Ml81N/7lx431RVLF0pwQLvNhg3zAXrs/PYo0lHbA++L
7m/c0qXD5MPHba5asQOJ3dJS4986kXY7h/5v5G6wl2c/rBm1RoQeJmlMWe6C
qFFRC/ftq8SQQ5cWd8sOkKc4bOko/0eUVl1LuGC6HbraT+9/7blMHClUuqUy
zgqaFLqNYJElInim/a1HJgvc7C6wEP+3SPBKmMeImzHDupxnJvT9ITL4y6Ya
eJhgTO1XP1PrAiH7afp22OI2GIlIzhlonCc4InNYTg9uBfu0szLi7+aI5xn/
ZAU+M8At6nyPzfAsUTkepP2hdwu8NbcifaGfJcLZDNQHx+kBTbkZCEnOEH3j
2Vert9FDON/C68i634SUDXxokKSD2q8vkRFpmpC47vd2/fU66kxr8uzsmCQu
+Lzwb1BYQ3UjZ7dIhE4QM8/S8ACxggQv6+6L5R8nHK/3Tjk7/0Nxt7tOMI7+
JOwdxzydty+j68E7Hi0+/0FkS94OZmj/i8oUOlhzsseIbr7Aogs3F5H3uNSw
wsVRYl4nNHFX1B+knRzYIhw7Qpy6NzQ977OALIxVRZuTh4nvjUHVUZtz6d6s
iJ/Rd4aI+cdmBst+cyjujypnNfU7obx6SK3j3CyiZA2LNXYNEtncI2OOt2bQ
dOjlmmXSAPGIl0NK6AoNedm0q7JQvxFiszVWzUvT6KBA9q4N0z7CK+B9THb4
FOIbvMk4N99LsI2ZNF5nmUS+lzZ6GB71ELPyKRc7ysYRzedEhVvIF0Ins7Ld
2fMXInXll5G0PhO1df2t/mI/UWjcozP9R7oJvpJEY/6NMXTg4u3mi/s/EZeo
bGrUkVH0pqKIJZmri2CU5jiY8HkEveDvnQbBj4TowvkS4vMwEvcI3r7rWCex
dL3OtmlkCI08P5jk5PKBCGbT+vFn9TuiMq0GyHO/JwqcMdMz/u/oQoVp6tmU
DmKDljvTd28APVgTo6XuaidS3It0ZLj6kft55suhD1uJy/at1xzz+9CTomSk
bP6WEBpTc3ZX+4o8XFN1Gba3EG3PRjPNf/agjBdZpWufm4iqtymzeoVf0NiO
4+8dKhsJ8s2dPoEnP6NEZfshu7wGorD3Sua0WTcqtmw+ha7VE2n6Ow1Z1T8h
qYZgFtesNwTPGVs6JuUudOCf993dRXWE75FubznSR1SbT+/w/A0mWJ0OTI6Y
d6J1tLInqJsgbiw/Ck3d+gHNnZl+QJz8j4jT/JVqUtCB9FU7CA9USzz/zWta
4d2GMuseWm0ovCSmKzMvdlq/RRxTuQ7R5jXEK+UD4XHBzUjyz4nQ9WvPib3N
/VkfHjWiPB61F73zT4n9Yyc56JkbUORpIabcU1XE78vf21IvvkExUdb6M+yV
hNux0VhevjrkHA2BSdfLiQsZ5pi1hEAnGC4kqSmUEa4iyyGX9f5DK8ZHr1hu
KSHUa+hnGPbUbuqb/9Kpf8VEzKxEMwPTS3Qo8SQtmvsh8ZjrzYSjYA16s3yC
97JTIVHLUTvH7fUcGZosLE7j+4TsE9GC+KaniM/h1FYJ7XvEfrGMmj36VWjs
3/Xnf0YKiNBZGTHyjwqULS/6x/54PqHeU79lklSOHp0XlqwYukXY55KU0XAp
Yn4WZqX3LI/4bSB6ROLpY1R87d/f/ypyiYPze3s1nhQjpeTmzrmubELkWsSk
7YciNLDjNBcdTxZxvEOuNGZfIdrHwH9AOf468YO7I28j+j46/t1ZhZc1g5ju
z1G123oPcasE8HiWpRPX4MFRpYcFaEK1/tTn7itE1nqr48+WO+hR1uTxyNhU
Yvd+7ROip24h+527mlkcUojYx2TvOOM8pPcyZUjUKYnoX9AiXz2Riy7UXG+t
SUgk/MJ78sTDs1EB94Z/14cEwlAnJS6wPhNt638w+l49ngiIor66K3MdPfw7
GqfwNpZI4MrLNXt9DQnvNBitCbtAJE2aWkl4paPZK/Z/IrxiiG/P7X4IGF9B
/jpnr+ZxnSPY8dDkPrpU5DtIX6H4N5KAkjeRy5+TkJ1G4od1lnCiZm9eKTtL
IsrYmvKZnXyKiKiNH+VJjUfc6A33sgCFYC5JhBWbWJQam5BlwhVGFDSGX5Or
j0FJvmkv5dKCiAvMLj/TDc6iNZsok0grf2L2yC4NS4UIZO2ntq8kwocYattS
JBZxGr3glPW1pnkSubZiT1jYTqKtq9KesuXuhHePrT7raBh6otQTt83NlcgN
LglIXAxGcssj4/OfHIlvFxZ3uV0PQKZTzPvkK+yI0bMPWKQyfNHSnY1j6j+s
iYWRP8uDP73QweZFhp4gSyJhRdPhcYoHYlYJiKGpmRN/Ll6+0UN2Q4pH01Qm
0k8Q3VyRYV4SzoiN+b87CbxGRKP4nu21A/aIybV6Y5VNn/iuxCiZNmuDjNq6
fu2y0iEu1m6ss9tbIQOu/XnUCU1CtHWbzAs2C8TO//uSeDMQrFPlb7fQm6Gt
SoHD42/UiYKo8I7YakM0lGC9S+6LCsFcscdO3EgX3SzrqXpUq0A4nhRpns7T
ROet/B2mTGSJawK8TOU7EIoLYrE+PyxJCJ+tfiA1oYrKR+LW7HlECWYebiu9
AkXUdjT5aPAhISIz+Lwq43Y5lBPj8cOylY8YP/vr43+HjiISkow1ZuQl7Fp/
F4ULiCHzo3RpUp5cm+9H+qLrshB6Elza55vAQTi7rI0kX+BHcb+GhJMMdhOy
xl0K+YoHkaDKTv2po2wE8DqvVbruR+1u+6kC5YzEQiRr3iMbTqTz4PaB6ekt
xO55i8I7S7vR3bGYkMs5G9SVi+v/fteyoLaMVhrXwl/q44p9LJrxDEh1vFmz
T2yOarpT6FNLzhrJN9ctUyd1knry6FKgf9giKUCK937pyCg1zWbxghbDLEmo
2Pq9etkgtSmo8WNv2zipQ9H4k9zWHqrL3mg1uqsjJNaowEclih+ptWdcN6aK
+0k5A7GxYbfbqN37Xlv8PPeZdPus7AmBmQbqHHeDc9T2ThJ9sWRwMkFQqW9f
CDioNJHC3Nre5FQ8o/ZSFLpXt/5Hus9c8iphWwn1Tmf3g5K1KpJAUm4ZS/ld
aqmYrWrrl2LSy1ibOQGBHOqBu9V31uULSNZnBSbVpK5QTa91m1IOZpEOHtZl
v/8onjp1d81XnD6BxP18b8ynAgo1L6Q+VmhnBKlyRVDklrcPVc55nqHKjUzK
jqtKipdyo3KyiVzQ2eFN8vXukvK6YUmVetbZRL5lRvJv3GU3TiNRc4VX5vVr
FEhXHxXLko0EqXKj5bf4xBRIxXajeccaBKjav4P/FlQokBx3fYdsTUFq+vYQ
27g/vCSmS7Zy2/+xUiPO6PQ/D9xNLS1zC1e+vK5esEBKkrlkQI2tyLsZ3ahM
Sj//5B5rlzXVoDXcp8FCmwQ3VVIzUk2oF3aTbdUSjpE+ZP04ceqHEFW/TqxQ
6QwHCRjqrHoY+UgcJiSNkN4dVL6TD36V0MmT2Lu+HmGt4qfKnPO+F2bDT1Le
ImN5THg39X/2/ene
          "]}, {Automatic}],
        Editable->False,
        SelectWithContents->True,
        Selectable->False], "[", "t", "]"}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`\[Beta] -> 
      0.011042886597952207`, $CellContext`\[Zeta] -> 
      0.6372350056518095, $CellContext`\[Gamma] -> 
      0.46564981643290687`}, {{$CellContext`t}, 
      ParametricFunction[1, 
       Internal`Bag[{
         Hold[
          
          ParametricNDSolve[{
           Derivative[
             1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == \
-$CellContext`\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + \
$CellContext`\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
            Derivative[
             1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == \
$CellContext`\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
            Derivative[
             1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
            Derivative[
             1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == \
-$CellContext`\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], \
$CellContext`\[ScriptCapitalS][
             0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
            0, $CellContext`\[ScriptCapitalI][
             0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
            0}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {$CellContext`t, 0, 
            100}, {$CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}]]}, 1, 1], 
       2, 1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
        System`Utilities`HashTable[
        1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
          "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
        5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
        NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
          
          Internal`Bag[{{$CellContext`t$43273, \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\
\[Beta]$43270, $CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, \
{$CellContext`t, $CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], 
          None, ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 
          0, 0, 0, 0, 0, 0}}, {
          0, {#& , #& , #& }, {
           0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
          None, {{{$CellContext`\[ScriptCapitalN]$43268, \
$CellContext`I0$43269, $CellContext`\[Beta]$43270, \
$CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, 
            System`Utilities`HashTable[
            1, {{$CellContext`I0$43269, $CellContext`I0}, {
              "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
            5}, {Automatic, 0, 0}}, {
           Automatic, Automatic, Automatic, Automatic, Automatic}, 
           None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
          Derivative[
            1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
           Derivative[
            1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
           Derivative[
            1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
           Derivative[
            1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
            0] == -$CellContext`I0$43269 + \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalE][0] == 
           0, $CellContext`\[ScriptCapitalI][
            0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
           0}, {}, {}, {}, {}}, {{0., 100.}}, {
         Automatic, Automatic, MachinePrecision, Automatic, Automatic, 
          Automatic, Automatic, None, None, Automatic, Automatic, Automatic, 
          Automatic, 
          Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, 
          Automatic, None, None, None, Automatic, Automatic, Automatic}, {
         "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
          "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
          "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
         All]}][763, 
       1, $CellContext`\[Beta], $CellContext`\[Zeta], \
$CellContext`\[Gamma]][$CellContext`t]}}, {1}, {{0, 0}, {1, 6}, {2, 26}, {3, 
    74}, {4, 223}, {5, 294}, {6, 258}, {7, 237}, {8, 191}, {9, 124}, {10, 
    68}, {11, 27}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Beta], \
$CellContext`\[Gamma], $CellContext`\[Zeta]}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.794658207389606*^9, 3.7946734434517174`*^9, {3.794731057798484*^9, 
   3.794731065771619*^9}, 3.794844743307599*^9, 3.794885971834348*^9, 
   3.7948860544657097`*^9, 3.794887520877879*^9, 3.7948948620053363`*^9, 
   3.794897042281081*^9, 3.7949012547963257`*^9, 3.794918936801244*^9, 
   3.794920908132408*^9, 3.794975559806774*^9, 3.7949776571800003`*^9, 
   3.7949857577132497`*^9, 3.795012554722749*^9, 3.7950597262827005`*^9, 
   3.7951572102936726`*^9, 3.7953198325756655`*^9, 3.795319969238703*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"c7023a04-75ee-4331-8e32-1db6f301da95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "[", "\"\<EstimatedVariance\>\"", "]"}]], "Input",
 CellChangeTimes->{3.792145835217512*^9, 3.7921477128079367`*^9, 
  3.79465819459344*^9},
 CellLabel->
  "In[170]:=",ExpressionUUID->"43b74c19-4630-4e58-98d0-230168ab5138"],

Cell[BoxData["259.7687006513953`"], "Output",
 CellChangeTimes->{
  3.7946582075458813`*^9, 3.794673443514201*^9, {3.7947310579615993`*^9, 
   3.794731073225537*^9}, 3.7948447433295918`*^9, 3.7948859718816137`*^9, 
   3.794886054543825*^9, 3.794887521002942*^9, 3.7948948620492206`*^9, 
   3.79489704235404*^9, 3.794901254903392*^9, 3.794918936894989*^9, 
   3.7949209082455673`*^9, 3.7949755598880825`*^9, 3.7949776572579947`*^9, 
   3.79498575776523*^9, 3.795012554769622*^9, 3.795059726360834*^9, 
   3.7951572103584995`*^9, 3.7953198327065926`*^9, 3.795319969340613*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"262e0ecd-5b28-4814-944c-28724d3bd5ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{3.7921458358925323`*^9, 3.7921477230234203`*^9, 
  3.794658196843397*^9},
 CellLabel->
  "In[171]:=",ExpressionUUID->"c5860168-32d6-484e-a4e8-3f777854d934"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\[Beta]", "0.011042886597952207`", "0.0013674726116304655`", 
      "8.075398734886214`", "0.000020534943783355002`"},
     {"\[Zeta]", "0.6372350056518095`", "0.07864488810641264`", 
      "8.10268818476264`", "0.00001998753878412667`"},
     {"\[Gamma]", "0.46564981643290687`", "0.017934655755620827`", 
      "25.96368855794567`", "8.995143863609276`*^-10"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.792147662941319*^9, 3.792147723511951*^9, 3.792151341600045*^9, 
   3.7921622339969273`*^9, 3.792165730894038*^9, 3.792166355719709*^9, 
   3.7922361716938334`*^9, 3.792236394835102*^9, 3.792246755523024*^9, 
   3.792325560366289*^9, 3.7924129293862543`*^9, 3.792415208046687*^9, 
   3.792415298851677*^9, 3.792415616464199*^9, 3.79317794716889*^9, 
   3.793285006276814*^9, 3.793285055183935*^9, 3.793378817144147*^9, 
   3.793378887220359*^9, 3.7934337359058113`*^9, 3.793445650280938*^9, 
   3.793445813190061*^9, 3.7946582075458813`*^9, 3.794673443655941*^9, {
   3.7947310580453753`*^9, 3.794731076256102*^9}, 3.7948447433515844`*^9, 
   3.794885971937854*^9, 3.7948860546063356`*^9, 3.794887521081026*^9, 
   3.794894862101081*^9, 3.794897042419039*^9, 3.794901254973234*^9, 
   3.794918936988736*^9, 3.794920908347215*^9, 3.7949755599805946`*^9, 
   3.7949776573517256`*^9, 3.7949857578131924`*^9, 3.795012554785244*^9, 
   3.795059726438939*^9, 3.795157210431305*^9, 3.7953198328175225`*^9, 
   3.7953199694091496`*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"d0fec840-ded4-48dc-a73c-02647d66af5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitWithDataPlot", "[", 
  RowBox[{"fit1", ",", 
   RowBox[{"{", 
    RowBox[{"firstDate1", ",", "lastDate1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.793178530282858*^9, 3.793178533034833*^9}, {
   3.7931817279399977`*^9, 3.7931817328002987`*^9}, 3.793183441404623*^9, {
   3.7931835528707013`*^9, 3.7931835668454313`*^9}, 3.793438582506629*^9, 
   3.793438622914377*^9, 3.7946581994836693`*^9},
 CellLabel->
  "In[172]:=",ExpressionUUID->"6a2d9734-54f2-4398-92c5-80d9d0b13c48"],

Cell[BoxData[
 RowBox[{"fitWithDataPlot", "[", 
  RowBox[{
   TagBox[
    RowBox[{"FittedModel", "[", 
     TagBox[
      PanelBox[
       TagBox[
        RowBox[{
         InterpretationBox[
          RowBox[{
           TagBox["InterpolatingFunction",
            "SummaryHead"], "[", 
           
           DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
            "Ready"}, 
            TemplateBox[{
              PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    
                    LineBox[{{1.694915254237288*^-6, 0.9999992107940621}, {
                    0.4739216926142934, 3.3321361907357745`}}], 
                    LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHU+T1BKkMUCxOegEN6gKQFXip/X0
mzJAV5QKYxQ1AEDxjF5Q6Dg0QIxQ/rKKLe8/DGWEEPb4NUCBzACGqQbcP1Vz
M4QImzdAGlKvMI96yj8er1FdNWA5QMoCuMi3a7c/hXPwzxgdO0BpfFhNL/uk
PxluGPYAvDxAx1tndvzPkz8tlq+BA34+QN34ptSWiYE/OPpnYAURQECpGyR5
b2BwPxnArzKW9EBAEMl6uzeuXD9JyrdRAtRBQLxdDOxse0k/j2+EynCkQkDG
eBofdOY3P5WrCHZshkNAZLWa0aoGJT+yglF7allEQICQ3/yKhxM/Hp5azUMo
RUCMFRocf2oCP0pQG1KqCEZADGpP6KlL8D6NnaAwE9pGQLuF+RzOct4+j4Hd
QQm9R0Dn7diwMLDKPuGp2p/am0hAFGgvRXnZtz5JbZxXrmtJQKMJehnukKY+
cccVQg9NSkBv1SJrhe2TPrC8U4ZyH0tA5squoMqNgz4+9lEXse1LQL3K9SIX
rXg+jMYH23zNTEDlUFcHK5lxPvAxgvhKnk1AOf9WkGMZZj4UNLRIpoBOQEjy
+hjEJVE+T9Gq8gNUT0CMEY5/Rk42Pm3ZsHSeEVBAIiul2riPNT6SFWiJAYJQ
QHPujBEl+DU+Qp8By+XqUEC/QKROsfAgPlL09qWQXFFAKSof5RT9D76Ka0wn
KcxRQNeuSX2sTzq+TTCE1UI0UkDl6EP3M+BMvnDAFx0jpVJAuzHEB20bSL4f
no2RhA5TQKdoFoFGnla+9Z1jrNN1U0AMQ/ybM2BVvitplWDp5VNAZxPMUwFG
UL7sgalBgE5UQKs7O/auflG+DWYZvN2/VEAK/EpESlhBvlZs6dwoL1VA7kqB
40OgML4qwJsq9ZZVQIhZ1TfPDyC+Xt+pEYgHVkDiIGaU8KUQPh1MmiWccFZA
vmdsM1JWIT48hObSduJWQDqhbrGfUB0+g96SJj9SV0BQrPlWKv0sPlWGIaeI
uldAzpnS5UekNj6H+QvBmCtYQIAMF3LgFjo+RbrYByqVWEBeWo/xBekxPj4Z
5Pj//1hAx7Hzh3FWIT6KoGZ+
                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$48612#1"]& ]}}, {}}, {
                    DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {-2.1064899218688725`*^-8, 
                    3.3321361907357745`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    
                    LineBox[{{1.694915254237288*^-6, 0.9999992107940621}, {
                    0.4739216926142934, 3.3321361907357745`}}], 
                    LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHU+T1BKkMUCxOegEN6gKQFXip/X0
mzJAV5QKYxQ1AEDxjF5Q6Dg0QIxQ/rKKLe8/DGWEEPb4NUCBzACGqQbcP1Vz
M4QImzdAGlKvMI96yj8er1FdNWA5QMoCuMi3a7c/hXPwzxgdO0BpfFhNL/uk
PxluGPYAvDxAx1tndvzPkz8tlq+BA34+QN34ptSWiYE/OPpnYAURQECpGyR5
b2BwPxnArzKW9EBAEMl6uzeuXD9JyrdRAtRBQLxdDOxse0k/j2+EynCkQkDG
eBofdOY3P5WrCHZshkNAZLWa0aoGJT+yglF7allEQICQ3/yKhxM/Hp5azUMo
RUCMFRocf2oCP0pQG1KqCEZADGpP6KlL8D6NnaAwE9pGQLuF+RzOct4+j4Hd
QQm9R0Dn7diwMLDKPuGp2p/am0hAFGgvRXnZtz5JbZxXrmtJQKMJehnukKY+
cccVQg9NSkBv1SJrhe2TPrC8U4ZyH0tA5squoMqNgz4+9lEXse1LQL3K9SIX
rXg+jMYH23zNTEDlUFcHK5lxPvAxgvhKnk1AOf9WkGMZZj4UNLRIpoBOQEjy
+hjEJVE+T9Gq8gNUT0CMEY5/Rk42Pm3ZsHSeEVBAIiul2riPNT6SFWiJAYJQ
QHPujBEl+DU+Qp8By+XqUEC/QKROsfAgPlL09qWQXFFAKSof5RT9D76Ka0wn
KcxRQNeuSX2sTzq+TTCE1UI0UkDl6EP3M+BMvnDAFx0jpVJAuzHEB20bSL4f
no2RhA5TQKdoFoFGnla+9Z1jrNN1U0AMQ/ybM2BVvitplWDp5VNAZxPMUwFG
UL7sgalBgE5UQKs7O/auflG+DWYZvN2/VEAK/EpESlhBvlZs6dwoL1VA7kqB
40OgML4qwJsq9ZZVQIhZ1TfPDyC+Xt+pEYgHVkDiIGaU8KUQPh1MmiWccFZA
vmdsM1JWIT48hObSduJWQDqhbrGfUB0+g96SJj9SV0BQrPlWKv0sPlWGIaeI
uldAzpnS5UekNj6H+QvBmCtYQIAMF3LgFjo+RbrYByqVWEBeWo/xBekxPj4Z
5Pj//1hAx7Hzh3FWIT6KoGZ+
                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$48612#1"]& ]}}, {}}, {
                    DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {-2.1064899218688725`*^-8, 
                    3.3321361907357745`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  BaselinePosition -> {1, 1}]}, 
               Dynamic[Typeset`open$$], ImageSize -> Automatic]},
             "SummaryPanel"],
            DynamicModuleValues:>{}], "]"}],
          
          InterpolatingFunction[{{0., 100.}}, {
           5, 7, 1, {593}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
            False}, CompressedData["
1:eJwt2Ic3FnzcBnB7730b2eM2wm3P32VWyCpaIhl5kKRhJfWkkEqD7EgqLYok
SQ8a9i4jZETLTooy3t7zvt9zrnNd53z+g6/s3gOufgx0dHT0f+Pyv+P/Lz+T
K2STxLL5/zUX+X0oUSBcSJisHWRhNjmtSOiEfSEFLUI/Z72aXaVHGFoUn0ua
mBCeFOLwIsSK3Dx4l2w0dSQXM8NmBbR2EuXV+GG663sJS3H3xkVqAImbFTv6
IjGUnE58U3di9TA5I3eYYnUoksRXygYxf4khVt/rnFOunyIvWdYmFJ0SiBfr
00yDqYvEIymUDJSkkp281LETEZlk+5WRBEXzXHKPs0VknD6fnLdf2hgodosc
SFKMnll/l8yn0w3YTT0kwme3TqsGlhKD6EI6zs9lZEfwssCEz1MSvdtZsWn4
GclxLDC4t7uK/Cjzu9XTUE0yrJce9o3VEkXNihK77a/II0rk48qm18SMyeiJ
OqkjDdOL5Tkl9cSt72kFj1IjGXkZURmb0UT2FxlWzXK1kL6JGb44qzZyI2VL
CWdVO9mho+nh1ttBeDs5WHLnO8nr0E/FX3jekmje2h001XdEuyiH8ZhNNzl1
tEbTk7uXvDMf34V3fUSZlT1BLqefRLapP2byGyRNac7Dn9SHCI+W8RnfqGFi
IOSQ7eY5QvYs7i6xtRwliQMH6g2UPpKS6pMfVDjGSH/BlR+U6THClHiTg7Nz
nGjsL5dZLvtE3F0a9KcyPpNYvX6HDzFfSCFlam+b91fSsbIaUW3zjfwe4Ut+
RJ0g8m/kbuZzTxKHu7qVV+YmyZELth1x76bItbDtn49UTJM698AV/5wZEiH1
gv0+Zsk53rqUgpJZkkffLp2jMEcez/feTb06R+rHR/QusH0nAz3fqs9EfSez
DfP2sZPfCdPz5e5wz3kiVsS8N7R9nqjn8UwFWP4guCwa4f34B9kaJ8O4U2mB
BBylXnBNXyDHAmgUe46f5OJOkwKrYz9JgYO1pun0T/LUfPMz3T2/SLOWu41G
5y8yLOfVrmi9SH4IBexa92SRsLEe/CSiskQklyIP8mYuEa2Jf5dZuX4T68Gk
eLrjv8n2thSBpZnfJLgmJ2fO+w85UXpL5VvXH5Jys7h01GaZFKY9Ne8vXybP
E2sauqgrpD26cWtz1goZ29819Ip7lSx6DQRWxa4SLtfxhbK5VSJjPX2iyGeN
6Or/4rz9bo0oCJ1oapOnw/rzTPzNHnQwZEl0r0+lg2Usd/arVjo4LF4aqWal
h/tBEeUq0GPPt8zgikh6BPpIl5SV0OPwwI1fjybocdxNxaxIgQEJrff/vbub
AZc3aNffusqA7Ooy7httDLhlZLwll40RD0tepGdZMOKZmtWHtChGvCqok08p
ZUSrlMM/FycZ0Xu1veicIhNGed1+JHgyYTKhz+h0GhN+0nvGnmxnAl306KsY
dmZw/PDniLJkhtD+Caej0cxY9+lAathjZqh4/XgfMsUMWm+ETJASC0xdVvz2
ebHAtvHkPZ90Fjhbscx5dbBg5/Oz+h4crPDV4z223YoVIUVXarYeY0WEshir
Sxkr/s3Ldtg8zYpzFNnLm5TZcPXyzR6bPWzI41SVssxgw924or3mnWx4vEIr
NOZkx4uj5VP61uyonzHR0YlhR2dAdYTmE3YMjFi/UJthx6edDYwqKhyY7dq8
ScGbA78dOi/IZHKA6Y37W8kuDvCQfgqFixNiT728hG04Iac9VsB/nBPqdwO+
cZdzQl9+SpNjlhPIPniEhcoFO+Gfzxj2cmHrhSi6tUwueLKu2fzp4kLAiVNJ
v7i4EbbE2jFvw41jYedEZo9z48wEn8dkOTcu+qZe/zLLjcxByucxKg8K3K+p
j+zlQVGbXNhgFg+ebrxd3veWB7U1aivvuHnRbPzQstOWF92lugmtsbwYVq9o
aXzKi283zQTr5ngRxet931uYD2v28m1D2nyISxif2+3IB/bXt4UGAvlwgT7Q
YGc8HwTN1Xf23uBDetT0MfdqPkiVP8x9O8CH/PmwWtclPihr6Y23C/PjfvAv
VicaP7TvVKi2OPLjyXj0ZvsgfpjImYc2xPOj2pPuyoYCfthk1Za9ruZHY09c
r9UgP5yENvypWeLHW2f2dRARwI7zTXhBE8CHhvM+pk4C8GFxPvMsSABfLAXu
GCYIYH/s26YnBQL4Xnl1WrdGAOGL2/lLBwWwrCuhq/1bACcPDroXiwiCpSg3
UkNHEEnfvLPvOQmCT1nhP2qwIFJ9Po3cThCEeF4hk9JNQeQOBCoX1AhCgaJh
J/dBEHfcZoLzfgti/eVHyetEhVDaeqgkW0cIhpz678SdhbDjzPupmRgh8KVI
TNRlCaHuuseX3AohHC/OGQ/vEYJe1YdRpwUhTDZKDysLCuNG757BNS1h7Px0
/X2PozD4f4z2FAcLo55e4V38WWHE8vp1ehUK4+PCy6LwF8LYMCCXlPxWGPdq
T+67/U0YvHeGrf6jE8GhZCLTIyKCniPXlqfVRWDisdLLYiWCXEuPsnU7RMBI
rbykf0AE+3jFQxxPi6BpIcLOP0sEmgM9SscfieBKrT7j1ToR/CpMHXowKIJd
yT8qX8+L4L8jW9IH2UUh71FyeEFaFPGW/C7c+qKYUAnVUHQQhRNvG7vZXlGU
Lmh82hohCtGBc7XBF0QRXTtxLa5AFEOFdtHZz0RhlXxn2+N2Udw+wqbb/EkU
nB77+MaWRXHA8s3kHwExdKkoNghSxWDAG3dTjYgha2H0pJWbGNb6LTx3BYnB
pzbP+NBJMdQVrokkpYlBLdlzPv+BGJKPVLU9eymG+V2S9zv7xLDNMjrh24wY
KlXe+zKwUCDNa2QhLknBqYU0KRqNgs/9P5c2baTAvtat29uTguLCxyWRhykQ
TBZMvnSWgvAjYUF38ijo39WxoeYJBcRSS6GvmYIbKsl0c6MUsPJOD7AtURC0
4FAhwyuOtv57qYaK4tCp5QhzNhFHWuE/jgEu4tCSi6dvDBNHQ1bBY7UUcewV
rt13vkwcfy4Mic90iyOFbaXFeVEcGv+KnyyhSODNHwNdIRMJeB1x+3zEQwKL
02GZPTESuBRwcbNRrgRURx/QZVVL4OWuptLlEQl4vPvi78koiQVHFvFqBUlc
qJdvkbWVhLKlxYlT+yRRXempM54giR16xz7Z3pXE96KMjMImSSSplDtwTElC
If/tWhCPFKokvpe0aErBPZXXX9NFCjM8GpRLYVIIVsL1Uzel8NVsC/VorxT8
3fwfBXCuw8fgSKNd5uuwJ+5czeaD6zCYlbsJBeuws7Skg9azDj2Nr3cockhj
62jviKiZNDqWJv7hCJWGI//a3HK+NJpUBKJm3klDIU+A/iCTDEbVJG2+Sckg
r1wx0cdABp5Wmi0DzjIw4PqRsS1cBnzvnvp35sjga06MzuZXMqj1t6Sr/yaD
LE3WFkt+WRxebMqoMpDF5pqL/oaeslA666ZTGieLNVdxuvX3ZNErMdRc2CGL
R2M3MuQXZXH2QYD/tXVy8DmqoUOxkYMp+b52JUgOwmzlzTyX5TDdHp2R+FQO
dRnwZxqSQ95eZp1YZnlEqjWuLanJw/XHhebDrvJQq9qSMRMhD6YzYv6BufIY
dBykjb+WxxPR/DWvSXkkD/s3vxdQQMAdtQw3IwVYhM36tXspQNykjGZ/RgHz
jFFrr+8roLnZvBldCriZyphRuaSA4571fvoyitimfJ72yFYRWrMua2r7FcFe
IdJ864oiRk/2p8s+U0SlXZ5f9rAiUgT9aKKsStg/QF27pKEE25vTTVxblSAd
UpoeH6WERf0IP4brSuhYM6XF1Cnhbj392q8pJZy69KYpTEgZHjuT0qeMlaEn
7+wX4K0Mnkkh2sd4ZXx+3Le6u0gZ1THXmnrfKiPD1id9yx9lhPGq+LXKqsC+
d1J700YVKFx/tPoyRAUr/xxtMk9VQTfNJL2iUgXFf9Z8dUdVkPDqlXYxGxXe
5xNXqZpUGLs7NhW4USEoLZgufYyKyc89vpn5VLx+mK0t3EDFtUjv1eQZKsIt
lZo4RFThzDmRdtpUFdS3xb50PqpgyDmsHZ2oin4/o9WFYlU8Xr/aGNqtivO/
atMmllXhXx3v6y+vBpLooD2ySQ1irvyru0LVMCfe3dh9VQ2NHzPTXKrUcOO+
l2/zRzUcO6KgvYFDHW7mX1dqtNSxnrWo0XSbOljbw9LKY9QxnG7gSytQR4X3
staDRnVcVq1ZUZ5TR9D86cZ8UQ1YP7dLkzLXgNRpXt90Xw383PxWSzBJA20i
GSvnH2mgcGh3I1uvBk4WyqWdWtVAuXjwwh7D9Zg6V7bFPGw95NdWH0ncX48d
BzfyLY2vR/LHSyHd0pp47dbfXLpDE3/qFNQuXdGEtnFIYkiLJnS6++dvMmrB
MZnuRoqMFv7ZqOh6ykwLcfR29GE7tZD7LOThnnAtPDt0xcspRQvv1J/ymD/S
wuz4QJV6qxY4c+n3S0xoQWm7kiQHmzYs+O2bFhW04dF4IOqzhTbCT6VQuz21
cdm0ovdVtDYeLAzGl6Zro76IwSC/TBsf9yl/utipjVUZh9TYGW1Q3odah3DR
oHsldd6DSoOTw7N8e1saApmHXIx9aDj9gpGeeoKGvHCVh6I5NFRqbfZieUZD
99eDPAvdNMzlX636OE8Dl0dlcCefDpSFhyVqNHRg2crUVGyng93x1Khr+3QQ
AUfq+TgdXFkK642+roOikrT4wBc6aAh6rr+jXwdjCiPjGxZ1sDbInKovrAvx
NFVrRZou9Jyd5gWddOHMfjifIVgXQbXpLnMJujgTXUU3fFMX13VHi1trdfF8
isWrakgXPbfUeO4v6+K7l3NVJkUP3JQjwYn6elDpzJCI2KIHq6QXjf6hevC0
/hjpdl4PkSusVOu7ekh5ot5Lq9ND8QGXeNkxPTSqHNXno9fH+Ejm+KqUPuiy
/kuZMtaHxNYxq4Ft+tDnZp9vPKwPlzca+RWX9BEc6+pSWKSPeMNwurQmfeTP
ZRWf/qKPqrvVnoeZDRDzoHTTipYBzB7e0j3jYYCVkgxp3gQDVJWd40gv/etP
Yxdkhv56ZdjwHQ5DrFT5NdH0DVFVvf1JpbchYl7aX7c+bwizN+bnWp7+9Xrt
cPexv96ksHeI1wgxraKbA0yMYNbBYTjnb4SVrhW5qMtGqOqe5WZ88df7Pi4m
ff3rA90fhYSNsfKhoTUHxqgaeV6hFGyMmLHiguI0Y5h9zk82fPnXv6ZG1Uz/
9ckEPztxE8TMRDt32ZjA7HuIicdBE6z88FYazzZB1a+t/CH1f/33huWf8399
xfhzrLQpVtY0OtnsTVHFIFt16agpYpiFCsXzTWHGxnrlRstf5/gdo77017mn
AsoUzBDDN7zF3NkMZoJd5nXRZih55Zn9qcoMyke/LTHTmSNb+eg2RUtz8PfR
l1nHmePM2fMCvm/M8ceEEnqKjSB0qqAl345g/JqWWu05gp3OzxNGWgk+0ykc
OsEGXO/7KnuRCuwqKW7PtQOEk47EFgcBbT4m6/87BySa0g+2PgCshOuSPrQC
K1PnjKdngPI3rl9X+CxwMFcsnZtmAbWID7ZSWyww7lywoH7YArnUwALTVAs0
rVpxsNRZ4FeXVGjbogXk7/x6l65qCafjHSZ7PSwRveXedbULlritcpp14T9L
dK147n8xZ4m1TsOueHkrqBUKGLm4WWFbzOQ18XgrnHJ9wzT21ArFynmBD75Z
oX85sv2opDVYO7fow9EaOrc1stlPWIMaaler3WwNaaN9X3aI2UCYIY7nX18b
cDbl6d59aAP6lKqdncs2+OXx/sTvjbaYUvx1Sy7VFh+nBVvsRmzRV641H6ax
AW0nNlOyIjfgp4F/yr8zGyA1c5w30G8jrG+lnXXp34ig3Q+ZjVw24bJQwwmZ
uk2oaBr5w2pmh45bjFRuij2+nlR0F1iwB/3uDadEOxxAMfznoeSDzdAWTBqU
TXTEpun7HMp+Tnjk+1niqowzzFwjStIvOKOBsG/KWnaGm0bmUE6gC8T+K7Z+
E+KKfufXd6bDtuDa6Hse0fCt8D48e4hEu0GBhaVvX6w74h+q6i+d247/+z7t
wP8AdFEglg==
           "], {Developer`PackedArrayForm, CompressedData["
1:eJwl1W1EIIgWANC2TZIkSZKkTZIkSZIkSZIkSZIkSZKkTZIkSZIkSZIkSZIk
SZJkjCRJkjGSJEmSJElGkmRP712O+/dyv/5p/Ley/a+AgIDKwID/xXcKIpgQ
QgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskjnwIKKaKYEkopo5yK
7zqpopoaaqmjngYaaaKZFlppo50OOumimx566aOfAQYZYpgRRhljnAkmmWKa
GWaZY54FFllimRVWWWOdDTbZYpsddvnBT/bY54BDjjjmhFN+8Zszzrngkiuu
ueGWO+554JEnnnnhlT+88c4Hn3wRYBACCSKYEEIJI5wIIokimhhiiSOeBBJJ
IpkUUkkjnQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlpp
43vIO+iki2566KWPfgYYZIhhRhhljHEmmGSKaWaYZY55FlhkiWVWWGWNdTbY
ZIttdtjlBz/ZY58DDjnimBNO+cVvzjjngkuuuOaGW+6454FHnnjmhVf+8MY7
H3zyxffyBxJEMCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+
BRRSRDEllFJGORWB/79TVVRTQy111NNAI00000IrbbTTQSdddNNDL330M8Ag
QwwzwihjjDPBJFNMM8Msc8yzwCJLLLPCKmuss8EmW2yzwy4/+Mke+xxwyBHH
nHDKL35zxjkXXHLFNTfccsc9DzzyxDMvvPKHN9754JMvAv7Wf4IIJoRQwggn
gkiiiCaGWOKIJ4FEkkgmhVTSSCeDTLLIJodc8singEKKKKaEUsoop4JKqqim
hlrqqKeBRppopoVW2ming0666KaHXvroZ4BBhhhmhFHGGGeCSaaYZoZZ5phn
gUWWWGaFVdZYZ4NNtthmh11+8JM99jngkCOOOeGUX/zmjHMuuOSKa2645Y57
HnjkiWdeeOUPb7zzwSdffD/+QIIIJoRQwggngkiiiCaGWOKIJ4FEkkgmhVTS
SCeDTLLIJodc8singEKKKKaEUsoop4JKqqimhlrqqKeBRppopoVW2ming066
6KaHXvroZ4BBhhhmhFHGGGeCSaaYZoZZ5phngUX+AzebHlE=
            "], CompressedData["
1:eJwtl3c8198Xx0mZLVESlZmdPcvnHntn7733+HwaRlFGQpRkpUGDFDIqKn0/
7yszo5IUCVmV1cdKZP388bv/PR+Pe8895zxe9/W4h98j1MKbno6O7t5Wuv+v
GRRMUx9R6OgnSjmlu8c2aCg3lKWyrrWfMGC8WNq2yTHq5IsnWvoJlvf0iZWb
PC582q2vsZ9woQj1um5yb5DnWXlqP9Gx9Q9p5yZH+T15f7m6n1iNoH/5ep2G
8jf2e4w+6Seu073TC9xkjyhFBfWH/cR9z8G/1DUaao0Wd2bM6Sd6GhLmzq/S
UJiRzuRURD8RzJfBtbhMQ+9C4rcbHOsnzB5Yp5P/0pDjGFPE87VvxPepPMe5
BRri3W0vIIe/Eann28yWZmjI7G9zpb7zN8JB6BzL9mkaYqmz3ZX8r4/Q1/9y
Xmqchn69Wmacz+kjuhvHy5zGaGgkJd0zUbGPiOVp10/spyHPhkRLb9+vBEW7
acdUNw0xXJJc/Xujl+jln9wr2ExDKwLKd+mWvxAzPzrWzV/S0ExuhviAw2fC
bnUfT3gpDaUx10vHEp+I4rG25vQCGpLmkYz4eqSLcBIaC7ydRUM7J7KWvqZ3
Et9Vyp6wXqSh8IWi9ARqBzG1fpamEE5D29Ru3VjxbyECJKaykr1o6ORZXUb/
Q/8RS68HcsjONBSR0PWM/1IFMQ/iyiQHGmrrHBIws0gnmAXdzEc3mdUz4KvZ
mQLUOHDKwd518zzBHT3n/wx5slCdrvvS0OXuoqr3xzHqvz7PvRZNQ5GDKWZ7
zFvR8ccN87/v0JDtBTJP6+GPyD01w6iilobE4gxMpmO7kZcd95LVZn/emD3I
e/2tB0nJlPuM08+gqAm/mW8y39Ds3SHddK4ZVBzYu0iLGUQPY6Pm8qRn0Pp0
E2+r5xA6W2xauc1wBv2iNhdXbRtBRrOzah0+M8jd22NbTOEoenb1JKGaM4MK
NnVoyvsTZTF+vLevYwal38nIGb86jh7I0Q05M8+ijXiHQgP6KbT87vNdNoNZ
FOf5PNKP/BtdWx6WOHR1Fs0FG924FTaDhPppvVlfZ5FZyNL6p+JZpHQgiP20
xBy6Sf9I4+PQHHrTeyN2/cUcWpnedhB9W0DrEzbL5VbzyFdX8+DDvkX0cFrY
4en6PNIOf/bm09ASOhjyUwTVLKD7s+xOKTP/UNmdLbbZMX9QmWPcr3iWNVTg
HX6E2XoRcU5mDEcc3UDCsxzbZtT+Iq/i8NUrFXSgfrIh7rnMEhofMnK43kkP
6YxHTrQrLaM1L45EwZUt0DXsqv7M5B/SFuU+eeDoVqAZa7svn15BCe4DTVaB
22DbsIuAQsUq6mowTqt8yghPfH/5sqytoaztxj/3MDPD8FNyi7jzBqp3P/zM
xZ8Fhtnm3Uv86GDAn0/pfA8rvM7WjZeUogf6XMpTT5vtsDQQ6HBxlR5Wlvk4
6Ed3QFjxhKvYly2gw/DnjEXcLgjw3st//T8GoFcVHpe8sRsCZsso2hVbYYyB
HaVHsYPyqTsPm8q3wecflmN93nvgP77nbY9fM8LyE9HmW44ckKBiOZz8hQnu
yZnaezlxwhxtXXQbPQsUZ6gPtvjtBd6HTc5NqqzgN8JT7h27D3i8PVkuxLGB
8aWoU31FXPDlJ1PHdN926D/ziPyhdz9s7Gl5+kl3JxjtTCNmDhyAYa64SwwN
u8CCXH/5dwAP7OvPyRR7vBtydEes4lp5YdFZ44zlOXaQkrkmFKh2CNobrc8u
2u2BWp2DzSG1h2HCeI/ZVeCAJ+lH6KQe8oHgnZKgAnlOWOg65UIXxQ/IbUG/
Sm4vzFQZ8+XbCMDN+8euWZL2wdtE/DBKXRCq2LScuG254HlFshiztBCcOCTq
kR+9H8Ds2WssIQwfFLgUkqq44UGJrC+/whG4yn3jVPTiAXC7NXGkRF8Efrnq
7pYx5IUtN4cWh/1FQW/6wRm7JwdhV+jP9+a5YsC3MvWxWvAwaJOdHyR8EgeH
JMV7ydZ84CBy0mb7YUlQWN/Lli/AD4QpFEdHSEGzZdu/S8v8oBW8W5g8dBQC
vzdxPP8qAFbGmbEaUjIgZ/3J+WaTIESU340Rm5OBiF/xLs/+E4LY9Aj2N4Qs
DOkckonBwkAveN7UJVsOFme/ZJ99fwRej0W+tDgjDx775jkUJkWgTcKZ44+r
AhTeDF+U5xQDDuYnircsFSGOQ8B/u5E4vFSa/JJvrgTdhgLRlukSoFNNtrRz
UIb5QDXZB6OSIFBg7HIoRAUWIppP3dE/CncfOP1nmKYKz+/IH/n5WhrW0jWm
FV+ogb62MCPnXRnQrAmtU6Ydg9p62uilIFmoU/62VCSnDioV2WOiGnKw1bym
uSeOBOGJIvssD8vDkZuJ1nzfEZjkcLZ7MSmA/moBl28hwL7WlKvUZQWQrjn7
OcddA7gWTLbULyqC2ZK6cLOQJsSbU+s+ryvBIo9vJBdNE0a8H2q57VGByuWl
O8VYCw7phJc1y6pCnc81s5wb2lDz7VzhGWc1CIwpbVmN1IGPsu0He7KOgVn/
IePf7rowP+23367vOBSTfpedM9eDTBcHL8+jJIjsaml/qq8PnQFmlr5XEZRd
DmfN0zOAyfj6p37nATItm/6TPmEIN4h35y6RNMCq8Xx+iJMRvDfbHai7bTPP
d0jegGIM5ucN/Pu6NCH1KYvU46smkG70o/TsYy2wP/Hy08lnJ0BJ6l24Y7I2
fJLL8jv/3RSqcj51l4XpQEfOMXiXbAZjbl3WD9x0oTEjX7XliDncEbxIDbHX
g6ho7u+szeZwplCLUHPUh4GXRkRwgAXI0A3ckvcxgKsbPQFvdltC6ZvWr7FR
hmC+lUCfXlpCkQfbkGGuEVSHm0n6eVuBf79ofgVhDJ6NUheOc1gDs2mjZOeM
CdisFDUy11vDww8Wfk0SpmC+uFAYfcoGio4ZtlqomEHWv1e92iK20EHqjCIG
zcBQS0WEvs8WBr8frjmaag4B6zj0xFU7ONsjs+u+ugW8yIzvqNOyh9X63/S8
CxbwOZ+pfvyvPWykHH6fVW4JBZbJ0SdKHOAjR4gRS5gV6MnvkKA4OwLtFH9N
oKI1pD385NW5wwk0r3PmPtmwhoF3xU9Gap3ghkF8DvHOBlRUxdl4fZ3BLEDT
K+meLVTsXH0wvtMFeFsWbvyOsoPDanSpL6pcwDG8vazL1h7cX79OnDN3hUV9
1yFOVQe4EXbyz8akKyw7MR+/fMgRfONKPYTADbwPa11mY3YCoQOiLw9ccoP9
HC4BPn+c4N0WT9bcVjcw+9Fp7vfDGfZnmL62YHWHlouUJ71fXeBUzjwvg647
CA1m053/6AodHdOzntHuwOx3OzbVxw3INc5M8hXusHE6LlhuzA0OmGm9lh1w
B0Gx80d2eruDZqt9ijCTB4zz2q7/G9uMs0G+1CPuAWeMc3o++nrAn27XAW4D
D1hSczALmfCAULoH6lR3D3C4u/j9QbAnDIxwqxWc8gCeMnV2k1lP4NDleVAQ
6wHL5JGC46e9QPIc7ihK8gB19/s1+steQD/DX1eQ7AF5j0v26kZ7Q4N1g3d8
ggeIzXdrs9D7gEBSS6ZhpAf8oEq3+iT4gLLMTp7lzTz8La1s5Zl8YfHb2qNc
Mw/w6+Nd0Ur2hRfqljWq8pt5MUibh7D6AeOasPH8Lg9InFssT0rxg9fWpg3D
P9xhKa/AKoDFH5h9zc5LvHCHO3/KUicT/eG8oVjCYrw7fO/9+G1sSwC8lX/J
TTF0h9y5ViGF6ADIsXKw7mRzh5f5E0TVnwDgy7t416jFDXakqdxDQYHgq+ZC
4r3gBvt0J8mvvgdCuQ8bNVbeDcZuyt/eahkEWTLRa1GNrsDfaRBEXx8Ejad8
9I/wukL8ArErWyYYPEgvhNIDXWAmVqTk0c1guM/2qFvnmTPwSwk6CW8NAeIa
68HPi07wMIiJtOAfArfykgw+yDvBjg8KAQwdIbBl6w6L+kBHaNR1+aMhFQrM
Yfvo1PMdoNJmfrwgJRSuowvib9/Zg1vbBOIYCwX/S630s//soKl937juoTAo
8bgRoiZkBx3Ns8Xx+mHQwlIfJ2JkC968czzHyWGg47JzTTHMBtx49ByCc8PA
7Qx5cOC6NZzgETTdSw2DRydtubKrreC5cUi53HAYBEcg5dYeS3jHzjbTsJUM
jZ/7YfSfBfx2bznWLkyGi1aNMXoHLeD9BK+/gQ4ZenwuBJmDOTTfrqepe5Lh
T9tUib2XGbTLmA2UnCeDcjLa4cVhClOj799n5ZEho0N0wdjdBDhKk4bWn5Jh
mKk971+VEfRm/yieaCODmHOty29mQ0AnCsWch8nwe1C35o6nPmw11mh3+EuG
Bsvhy+H1uiCR9srqFysF7nwLyPwqqgP9typ6WQ9SIOmPet3hTC2YkR2obZai
wFdIfpS16bNRDMu3hdQpcPpI91psNIDp4pKTiBEFpqxu/9NaUodHMS3Mn20p
MCwj12vNcAxGtrj2K3lSYM/JWe4sXhXQ4dQ5bhZMgWJMETbVVoTDfrFFomco
cEWmXr4hSg4mqqaqm6IpkPO8293sgjRUTI3zyiZQILHkhZKemDhkhNtk7Eyl
gExwoITcR37Q57eKzb1KAZB0pd9+kBsWu1OEp65RYELSbJytagdc/zBvy36d
AkfvDrw+6D6PJMfVfu/aZP+fT7LJWfNE5dBANW1z/8cPVn4eeDue+tp3+sVm
vN+e2yPu5HJhx7+lQ+TN+7gzJW0z9Phw5oOkAsEkCsjrSNtK3RPCLFcGdbrj
KLCxPS7n9DdR3CgmbnblHAXiOfeS3i5KYrc9Kz+MwylQ11Gwsjopjb9cqdZN
IVNgubqbzOwni2tf87sZBG7Wb0zRu9Eph+8u/eNJ86LA91a2Wy1yCnjCu9rB
zpkCJ0tPNj+5rIhPK2ovlFlT4J7Xtmavb0r44M++mnQTCgjXd4ltFVbBG5Lt
gQw6FDA817tW5K2K94B5B/NxCohLkKm+d9Sw72FK+n05CqzKHdF2f38M+10d
cf0sSgG7osrnT5aOY6KK9u3+IQq8aF+MDDxAwrXz7vk7OSkgaj4v/lQBYQer
cEVuFgr4hX1s+CAIOP3vR8GmNTK4dQarPnoE+GvImTGuOTLE7js5MSOhgWvd
/pvc/WNT/wlbup4/1sByhk53nvaSIVK3Y3rbEU1cKu3huKWDDIfkmWRptzXx
Lib18A2CDO76ZSnn92jhkjx8vKyKDCNrB/ob4rWw42Pp6R2FZGiv+LXSPquF
EY8eFswhg2n/zkeFTtp4kM1odCaJDI8HDTKcGrTxyXt7Y8KjyBA9+PLEhqgO
fh4o8uhlIBl+Vb9yupmig98Jvgx/6UQGhm0zh0njOpiu+d1chAkZ8n/EDi5o
62LtVqMD/9TJsLSS2NB+Wxd/cGYeIx0lA1tSbs/HeV0sd/snGBwiw8PCtK2c
enr4Q8bvPTw7yfClwWHX7Rw9/HbRUbl6LQz2d+25HTWmh0cycCzvdBgk5jId
fSmjj/uU9v9n+i0MZP8xHvKO1McdYiMl5m1hkPG36n4KoY8nGYFZ6FUYRLvM
vVdkMMBif7YltBSHQZ1lRBpF2wBXiw+2QE4YFE27FRjHG2CTJ54RVy6Gwa1j
Q4XvCQN80kBB8unJMLBRY+Fk+meAP+TvPVPhHgZTotmq67KGmOrG9v2SaRiM
7Pqkjn0N8Zbkk1Nq6pt+ppLGZ3fTEEeV8O9rEw8DOVfGVx/aDbG1StQH1f1h
cDeZsVZh1RAL1KZdStoWBkJXx0uviBlha3Y/IG/6a4r369lfVkYYSk/MZBOh
QGfn0WASY4STfEntCTdCYcL2jUpzoRH2aPt8Uv1kKPQ8Xjnm2maE2yQORtYb
h0K93t3MwzQjHFVd6cZ9JBSsNFeG2dmNcbbA1nsaGyHAVmZyF8kaY9/y49Oo
IQTSrCZyc12M8YcHEgUjSSFg9fO0/MEkY5z/eiZHwSQEFg9xkqbKjHED7ShF
jT0E+FLtWwQ/GOM0/8wrq5+CIShRWWTotzHO7HXaHZcbDO9+/PsLrCa44UXH
YKdjMFzOcBZ0FTDBJkMlJXOHgmHgbul3G2UTrGrweGJiKAhWz62/0DQwwdzr
nd/wgyDwSSenHLczwTaUkdQo3yBQ5w+97OxlgmsYKzsPigdB/viMCTXYBLdV
U0wrpgKB07TlzZlTJvjI2J5I5fJACHg/evxOhAneaX3q2gtyINRtyTllFGWC
S10rS1UUAkHK911KZqQJvhViVfl6MQC+jZptv3rGBN9oSrY3eBkAibsmF0zJ
JpipylBh5GwALG7NrZr0N8Hph+OKrpAC4NJAvugZNxPM1So+ZUofAKUrJVVb
rE1w5YYPt0SDP/AGfxB5oGeCNw5m8Ahd8gcflZT+IBUTXNVn9Ipk6A+Ni5WP
Q0RMsNmJuR05035wVyU+U3WzX5tTgb/FNT/4KrGjQXvcGL+k++J+TtEPAnmN
7d42GOOrHl96Dn/1hY3v33as3zLGNdfdGfXO+8Jx3jdWXBRjTLn5OmZFyBd4
vuV662kbY+v9Vaq6bT5Q7KRgQ+Uwxm3B6jekKT5w1zVD6vF3I0zzWwoluH2g
O1X0r1KJEZ5JMGJaq/OG8z2Z3VdOburvubcwLcAbjnTWcH5VNcKvTFf33OL0
hlSa6jG0bogJn64CFsIL3hif4xnBhvio124p9QAv0Pj5d+RXrCGuJdsXH9vn
BbJOu6UpGobYuLY+j6XeEwzOuuzJ3zDAtZdPL9N0PUF6/bX24A0DHDr6sKWx
3QOenPqeVCZrgHkrXo5nWXnAUROlWJ9mfazZZZXuv/nvdKqeNnVz1Meh2alu
+gHucPHw+8WJaT2cXnvhssqSG2Tzva0yO6+HX0SenCAlucF/7hsWn3fp4ep/
kvtdD7hBc/xMSm2+Lp6wiWdXdnaFhMVxdExaF5N0BtFksgsYtth+vEzVwWP5
fql9r5xBsd7Ic9BEB+sd0FlmnHGCBYrFPq9+bVydvz4QIOYEEswPTbWDtXFe
StAuBl9H0Cf9+V20poUbzkQsvi12gNcVY4nlV7SwrebQixe/7UF2d+G1GD4t
XJbGad6sYg/+pUn3ZJ9qYr93io+nEu0g4utM5oiuJvaWDn55qNcWwhmuvCjt
08AV47lZFtK20L0mtXKPrIE/T0SknUu2gcKH8ru/Mmvg1S/+x9N/WsP2rs9Z
nncBn4ipv33BwBr+mBqomB4D3J74+xCUW0H991eF1mUI74zXrsD7rcD8Xcah
bT9JWIin/dP8RUs4YqPJ+EaQhE1+D1W0LlrAeL16zh1PdWw71M+lFGgBT0zu
mj4uOo63/KzPPTJiDqfY4wXmpo5hj7SdKaku5rAo6V10QekYDmgp4LTrNwNW
Bxq4xKvhgdJJ9UhXMzC23Wt2rUsVV+kUDxNvTeFHbIfZIRFV7DPbzL709QRM
6EcyMMeo4EWde4+j5kxAJ+zwFdMeZbz+qtVQZLcJ3AjJvrWgqIw97uXf6Jc3
BubbtTF/spXwl5ddVtHORsB15qO26YoivqpBc/yRagjlr4W/rnko4uGxnldL
dQawtpPh0GqHAm4aPv00c1UfhARFV7SOK+D86dCmvOP6wPasJvpdmTx+df9o
7WSsHqzRt/28LiCPqyPYH/q164LV06cNl/Pk8Bufxfk5Hl3Q6qFbKd0rh9Pm
9vsEbc7Da712/dPXZbFMiBV/zVtt8Dqqqqa9VxZfb+kqey6iDUtNJQGFN2Rw
4F2VVcMULVi1p3dj5JfBvu2a/g6zmqBUqe5eYyONR3/S1TU7acJZnS968uSj
OFUyQyO8XQP6736N8rsmhekFY2+bgAasnlW7QqqRxJ1R1DXpFwC3HjJW3xqW
wLofNRm2KgA0bdHs8eeQwLMVtemuvgguWAffTjUQx3aF5Hr5EBJoP/56fjJB
DDN7C1EtzqlDRU5fb1CjKE4RDc25fO04dM73zS2yimJ560TnJ2XHoDc8ki3M
WgT/ztfcl/pBDYoWHvpRHxzBQfaN1MVlVRgamHFuWRLGF5WphnViqtAk/s3m
lLkwpg92uE+4qoBWydXB4idC+Lz3aGHTTWVoCaksNd4thKMZeQRK+5VAfyT3
nu4ZQazzS7dHV1gJbEZ7+6K/C2DKNY7wEIoiPFVWKO89IYCdnOVurDQoQJzP
7DONOn48adf+pplXAYwsX7XdVubHFSwtLmWR8lDvPc37uZIPh+GftZf65ICz
KJqvS5oPa7Y2sMhrygG9WSOseBzGzckl1qllshDrqxEeHXwI3z/udIl8UBY2
HL93bsQcxCO0p85112SgsWrvnHUOLz7xCwIdWWUgxdpQ1qqaB3NyXBaGndKA
Dsg/eN93AFP47JmGdh2FL4rZB+8wHcAq54eDnLmlYGMjWSZblRtnjq10RolL
AuNHJbmr5P34xUNGJTotCWhUEj7mXs6FWwsyOas9xKFnL7/o2Nw+7Htqm4tP
shhUb7zMWzi2D997xRf2rVoUTLT8lv1T9uJ5t4qdYxMiIL/hHMo3wIkT9Q45
nRAWgcczrFPzSpxYa4Tr40/vI9BkZy9Ql8mBW8lqanGlwiA99eiS9989+Oje
1iLakhDIeGZaEC578J7l04EMRkLQ9IMcWdbKjm1FGp69NhUEjkr9n44Lu7Ec
w2FWYzcBMHd8NlgpshvnswqXi57jh2HK7ab0lp34DI0t//09PvDJThGLsNyB
03gsKxMfHoawc2eNHWhsGE0s23AdPATFGYOXY26yYoOLOWyBhbzg1fSLQ96W
BV+ZG7xUiHjALuRUdTs/M+a/0US/MMENt6duEEX/GHE9sftDatF+uLEn9K3A
0Dbs4e21u5zMBQf8nK4Wf9qKb8z0md4z2geSj/jqCj8x4NRhEaVq+b0wsnKn
O+37Frz3qIa8phgn3Ml81N/7lx431RVLF0pwQLvNhg3zAXrs/PYo0lHbA++L
7m/c0qXD5MPHba5asQOJ3dJS4986kXY7h/5v5G6wl2c/rBm1RoQeJmlMWe6C
qFFRC/ftq8SQQ5cWd8sOkKc4bOko/0eUVl1LuGC6HbraT+9/7blMHClUuqUy
zgqaFLqNYJElInim/a1HJgvc7C6wEP+3SPBKmMeImzHDupxnJvT9ITL4y6Ya
eJhgTO1XP1PrAiH7afp22OI2GIlIzhlonCc4InNYTg9uBfu0szLi7+aI5xn/
ZAU+M8At6nyPzfAsUTkepP2hdwu8NbcifaGfJcLZDNQHx+kBTbkZCEnOEH3j
2Vert9FDON/C68i634SUDXxokKSD2q8vkRFpmpC47vd2/fU66kxr8uzsmCQu
+Lzwb1BYQ3UjZ7dIhE4QM8/S8ACxggQv6+6L5R8nHK/3Tjk7/0Nxt7tOMI7+
JOwdxzydty+j68E7Hi0+/0FkS94OZmj/i8oUOlhzsseIbr7Aogs3F5H3uNSw
wsVRYl4nNHFX1B+knRzYIhw7Qpy6NzQ977OALIxVRZuTh4nvjUHVUZtz6d6s
iJ/Rd4aI+cdmBst+cyjujypnNfU7obx6SK3j3CyiZA2LNXYNEtncI2OOt2bQ
dOjlmmXSAPGIl0NK6AoNedm0q7JQvxFiszVWzUvT6KBA9q4N0z7CK+B9THb4
FOIbvMk4N99LsI2ZNF5nmUS+lzZ6GB71ELPyKRc7ysYRzedEhVvIF0Ins7Ld
2fMXInXll5G0PhO1df2t/mI/UWjcozP9R7oJvpJEY/6NMXTg4u3mi/s/EZeo
bGrUkVH0pqKIJZmri2CU5jiY8HkEveDvnQbBj4TowvkS4vMwEvcI3r7rWCex
dL3OtmlkCI08P5jk5PKBCGbT+vFn9TuiMq0GyHO/JwqcMdMz/u/oQoVp6tmU
DmKDljvTd28APVgTo6XuaidS3It0ZLj6kft55suhD1uJy/at1xzz+9CTomSk
bP6WEBpTc3ZX+4o8XFN1Gba3EG3PRjPNf/agjBdZpWufm4iqtymzeoVf0NiO
4+8dKhsJ8s2dPoEnP6NEZfshu7wGorD3Sua0WTcqtmw+ha7VE2n6Ow1Z1T8h
qYZgFtesNwTPGVs6JuUudOCf993dRXWE75FubznSR1SbT+/w/A0mWJ0OTI6Y
d6J1tLInqJsgbiw/Ck3d+gHNnZl+QJz8j4jT/JVqUtCB9FU7CA9USzz/zWta
4d2GMuseWm0ovCSmKzMvdlq/RRxTuQ7R5jXEK+UD4XHBzUjyz4nQ9WvPib3N
/VkfHjWiPB61F73zT4n9Yyc56JkbUORpIabcU1XE78vf21IvvkExUdb6M+yV
hNux0VhevjrkHA2BSdfLiQsZ5pi1hEAnGC4kqSmUEa4iyyGX9f5DK8ZHr1hu
KSHUa+hnGPbUbuqb/9Kpf8VEzKxEMwPTS3Qo8SQtmvsh8ZjrzYSjYA16s3yC
97JTIVHLUTvH7fUcGZosLE7j+4TsE9GC+KaniM/h1FYJ7XvEfrGMmj36VWjs
3/Xnf0YKiNBZGTHyjwqULS/6x/54PqHeU79lklSOHp0XlqwYukXY55KU0XAp
Yn4WZqX3LI/4bSB6ROLpY1R87d/f/ypyiYPze3s1nhQjpeTmzrmubELkWsSk
7YciNLDjNBcdTxZxvEOuNGZfIdrHwH9AOf468YO7I28j+j46/t1ZhZc1g5ju
z1G123oPcasE8HiWpRPX4MFRpYcFaEK1/tTn7itE1nqr48+WO+hR1uTxyNhU
Yvd+7ROip24h+527mlkcUojYx2TvOOM8pPcyZUjUKYnoX9AiXz2Riy7UXG+t
SUgk/MJ78sTDs1EB94Z/14cEwlAnJS6wPhNt638w+l49ngiIor66K3MdPfw7
GqfwNpZI4MrLNXt9DQnvNBitCbtAJE2aWkl4paPZK/Z/IrxiiG/P7X4IGF9B
/jpnr+ZxnSPY8dDkPrpU5DtIX6H4N5KAkjeRy5+TkJ1G4od1lnCiZm9eKTtL
IsrYmvKZnXyKiKiNH+VJjUfc6A33sgCFYC5JhBWbWJQam5BlwhVGFDSGX5Or
j0FJvmkv5dKCiAvMLj/TDc6iNZsok0grf2L2yC4NS4UIZO2ntq8kwocYattS
JBZxGr3glPW1pnkSubZiT1jYTqKtq9KesuXuhHePrT7raBh6otQTt83NlcgN
LglIXAxGcssj4/OfHIlvFxZ3uV0PQKZTzPvkK+yI0bMPWKQyfNHSnY1j6j+s
iYWRP8uDP73QweZFhp4gSyJhRdPhcYoHYlYJiKGpmRN/Ll6+0UN2Q4pH01Qm
0k8Q3VyRYV4SzoiN+b87CbxGRKP4nu21A/aIybV6Y5VNn/iuxCiZNmuDjNq6
fu2y0iEu1m6ss9tbIQOu/XnUCU1CtHWbzAs2C8TO//uSeDMQrFPlb7fQm6Gt
SoHD42/UiYKo8I7YakM0lGC9S+6LCsFcscdO3EgX3SzrqXpUq0A4nhRpns7T
ROet/B2mTGSJawK8TOU7EIoLYrE+PyxJCJ+tfiA1oYrKR+LW7HlECWYebiu9
AkXUdjT5aPAhISIz+Lwq43Y5lBPj8cOylY8YP/vr43+HjiISkow1ZuQl7Fp/
F4ULiCHzo3RpUp5cm+9H+qLrshB6Elza55vAQTi7rI0kX+BHcb+GhJMMdhOy
xl0K+YoHkaDKTv2po2wE8DqvVbruR+1u+6kC5YzEQiRr3iMbTqTz4PaB6ekt
xO55i8I7S7vR3bGYkMs5G9SVi+v/fteyoLaMVhrXwl/q44p9LJrxDEh1vFmz
T2yOarpT6FNLzhrJN9ctUyd1knry6FKgf9giKUCK937pyCg1zWbxghbDLEmo
2Pq9etkgtSmo8WNv2zipQ9H4k9zWHqrL3mg1uqsjJNaowEclih+ptWdcN6aK
+0k5A7GxYbfbqN37Xlv8PPeZdPus7AmBmQbqHHeDc9T2ThJ9sWRwMkFQqW9f
CDioNJHC3Nre5FQ8o/ZSFLpXt/5Hus9c8iphWwn1Tmf3g5K1KpJAUm4ZS/ld
aqmYrWrrl2LSy1ibOQGBHOqBu9V31uULSNZnBSbVpK5QTa91m1IOZpEOHtZl
v/8onjp1d81XnD6BxP18b8ynAgo1L6Q+VmhnBKlyRVDklrcPVc55nqHKjUzK
jqtKipdyo3KyiVzQ2eFN8vXukvK6YUmVetbZRL5lRvJv3GU3TiNRc4VX5vVr
FEhXHxXLko0EqXKj5bf4xBRIxXajeccaBKjav4P/FlQokBx3fYdsTUFq+vYQ
27g/vCSmS7Zy2/+xUiPO6PQ/D9xNLS1zC1e+vK5esEBKkrlkQI2tyLsZ3ahM
Sj//5B5rlzXVoDXcp8FCmwQ3VVIzUk2oF3aTbdUSjpE+ZP04ceqHEFW/TqxQ
6QwHCRjqrHoY+UgcJiSNkN4dVL6TD36V0MmT2Lu+HmGt4qfKnPO+F2bDT1Le
ImN5THg39X/2/ene
            "]}, {Automatic}],
          Editable->False,
          SelectWithContents->True,
          Selectable->False], "[", "t", "]"}],
        Short[#, 2]& ],
       FrameMargins->5],
      Editable -> False], "]"}],
    InterpretTemplate[
    FittedModel[{
      "Nonlinear", {$CellContext`\[Beta] -> 
        0.011042886597952207`, $CellContext`\[Zeta] -> 
        0.6372350056518095, $CellContext`\[Gamma] -> 
        0.46564981643290687`}, {{$CellContext`t}, 
        ParametricFunction[1, 
         Internal`Bag[{
           Hold[
            
            ParametricNDSolve[{
             Derivative[
               1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == \
-$CellContext`\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + \
$CellContext`\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
              Derivative[
               1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == \
$CellContext`\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
              Derivative[
               1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
              Derivative[
               1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == \
-$CellContext`\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], \
$CellContext`\[ScriptCapitalS][
               0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
              0, $CellContext`\[ScriptCapitalI][
               0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
              0}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {$CellContext`t, 0, 
              100}, {$CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}]]}, 1, 1], 
         2, 1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
          System`Utilities`HashTable[
          1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
            "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
          5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
          NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
            
            Internal`Bag[{{$CellContext`t$43273, $CellContext`\
\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\[Beta]$43270, \
$CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, {$CellContext`t, \
$CellContext`\[ScriptCapitalN], $CellContext`I0, $CellContext`\[Beta], \
$CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], None, 
            ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 0, 0,
             0, 0, 0, 0}}, {
            0, {#& , #& , #& }, {
             0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
            None, {{{$CellContext`\[ScriptCapitalN]$43268, \
$CellContext`I0$43269, $CellContext`\[Beta]$43270, \
$CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, 
              System`Utilities`HashTable[
              1, {{$CellContext`I0$43269, $CellContext`I0}, {
                "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
              5}, {Automatic, 0, 0}}, {
             Automatic, Automatic, Automatic, Automatic, Automatic}, 
             None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
            Derivative[
              1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
             Derivative[
              1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
             Derivative[
              1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
             Derivative[
              1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
              0] == -$CellContext`I0$43269 + \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalE][0] == 
             0, $CellContext`\[ScriptCapitalI][
              0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
             0}, {}, {}, {}, {}}, {{0., 100.}}, {
           Automatic, Automatic, MachinePrecision, Automatic, Automatic, 
            Automatic, Automatic, None, None, Automatic, Automatic, Automatic,
             Automatic, 
            Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, 
            Automatic, None, None, None, Automatic, Automatic, Automatic}, {
           "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
            "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
            "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
           All]}][763, 
         1, $CellContext`\[Beta], $CellContext`\[Zeta], \
$CellContext`\[Gamma]][$CellContext`t]}}, {1}, {{0, 0}, {1, 6}, {2, 26}, {3, 
      74}, {4, 223}, {5, 294}, {6, 258}, {7, 237}, {8, 191}, {9, 124}, {10, 
      68}, {11, 27}}, 
      Function[Null, 
       Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Beta], \
$CellContext`\[Gamma], $CellContext`\[Zeta]}, #], {HoldAll}]]& ],
    Editable->False,
    SelectWithContents->True,
    Selectable->True], ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
       RowBox[{
         StyleBox[
         "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
         "\"Sun 22 Jan 1978\""}], 
       RowBox[{"DateObject", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"1978", ",", "1", ",", "22"}], "}"}], ",", "\"Day\"", 
           ",", "\"Gregorian\"", ",", 
           RowBox[{"-", "5.`"}]}], "]"}]},
      "DateObject",
      Editable->False], ",", 
     TemplateBox[{
       RowBox[{
         StyleBox[
         "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], 
         "\"Sat 4 Feb 1978\""}], 
       RowBox[{"DateObject", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"1978", ",", "2", ",", "4"}], "}"}], ",", "\"Day\"", ",",
            "\"Gregorian\"", ",", 
           RowBox[{"-", "5.`"}]}], "]"}]},
      "DateObject",
      Editable->False]}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7946582076238856`*^9, 3.7946734437173443`*^9, 
  3.7946734826235733`*^9, 3.7948447433795757`*^9, 3.794885973031561*^9, 
  3.794886055309395*^9, 3.794887521940281*^9, 3.794894862790779*^9, 
  3.7948970436483746`*^9, 3.7949012561913257`*^9, 3.7949189370512176`*^9, 
  3.794920908548494*^9, 3.7949213278352013`*^9, 3.794975560803111*^9, 
  3.794977658132945*^9, 3.79498575860274*^9, 3.7950125556164565`*^9, 
  3.795059727297014*^9, 3.7951572111219645`*^9, 3.7953198329364552`*^9, 
  3.795319969484107*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"b637a168-ca9a-4967-aa40-6f469fe03e24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"residualsPlot", "[", "fit1", "]"}]], "Input",
 CellChangeTimes->{{3.793178556821159*^9, 3.7931785666505527`*^9}, {
   3.793181802873312*^9, 3.793181805758328*^9}, 3.7946582022645316`*^9},
 CellLabel->
  "In[173]:=",ExpressionUUID->"4fd90966-1415-41f2-9727-8c50978bec80"],

Cell[BoxData[
 RowBox[{"residualsPlot", "[", 
  TagBox[
   RowBox[{"FittedModel", "[", 
    TagBox[
     PanelBox[
      TagBox[
       RowBox[{
        InterpretationBox[
         RowBox[{
          TagBox["InterpolatingFunction",
           "SummaryHead"], "[", 
          
          DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
           "Ready"}, 
           TemplateBox[{
             PaneSelectorBox[{False -> GridBox[{{
                   PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                   GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    
                    LineBox[{{1.694915254237288*^-6, 0.9999992107940621}, {
                    0.4739216926142934, 3.3321361907357745`}}], 
                    LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHU+T1BKkMUCxOegEN6gKQFXip/X0
mzJAV5QKYxQ1AEDxjF5Q6Dg0QIxQ/rKKLe8/DGWEEPb4NUCBzACGqQbcP1Vz
M4QImzdAGlKvMI96yj8er1FdNWA5QMoCuMi3a7c/hXPwzxgdO0BpfFhNL/uk
PxluGPYAvDxAx1tndvzPkz8tlq+BA34+QN34ptSWiYE/OPpnYAURQECpGyR5
b2BwPxnArzKW9EBAEMl6uzeuXD9JyrdRAtRBQLxdDOxse0k/j2+EynCkQkDG
eBofdOY3P5WrCHZshkNAZLWa0aoGJT+yglF7allEQICQ3/yKhxM/Hp5azUMo
RUCMFRocf2oCP0pQG1KqCEZADGpP6KlL8D6NnaAwE9pGQLuF+RzOct4+j4Hd
QQm9R0Dn7diwMLDKPuGp2p/am0hAFGgvRXnZtz5JbZxXrmtJQKMJehnukKY+
cccVQg9NSkBv1SJrhe2TPrC8U4ZyH0tA5squoMqNgz4+9lEXse1LQL3K9SIX
rXg+jMYH23zNTEDlUFcHK5lxPvAxgvhKnk1AOf9WkGMZZj4UNLRIpoBOQEjy
+hjEJVE+T9Gq8gNUT0CMEY5/Rk42Pm3ZsHSeEVBAIiul2riPNT6SFWiJAYJQ
QHPujBEl+DU+Qp8By+XqUEC/QKROsfAgPlL09qWQXFFAKSof5RT9D76Ka0wn
KcxRQNeuSX2sTzq+TTCE1UI0UkDl6EP3M+BMvnDAFx0jpVJAuzHEB20bSL4f
no2RhA5TQKdoFoFGnla+9Z1jrNN1U0AMQ/ybM2BVvitplWDp5VNAZxPMUwFG
UL7sgalBgE5UQKs7O/auflG+DWYZvN2/VEAK/EpESlhBvlZs6dwoL1VA7kqB
40OgML4qwJsq9ZZVQIhZ1TfPDyC+Xt+pEYgHVkDiIGaU8KUQPh1MmiWccFZA
vmdsM1JWIT48hObSduJWQDqhbrGfUB0+g96SJj9SV0BQrPlWKv0sPlWGIaeI
uldAzpnS5UekNj6H+QvBmCtYQIAMF3LgFjo+RbrYByqVWEBeWo/xBekxPj4Z
5Pj//1hAx7Hzh3FWIT6KoGZ+
                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$48666#1"]& ]}}, {}}, {
                    DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {-2.1064899218688725`*^-8, 
                    3.3321361907357745`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                   GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                 GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
                  GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 BaselinePosition -> {1, 1}], True -> GridBox[{{
                   PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                   GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    
                    LineBox[{{1.694915254237288*^-6, 0.9999992107940621}, {
                    0.4739216926142934, 3.3321361907357745`}}], 
                    LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHU+T1BKkMUCxOegEN6gKQFXip/X0
mzJAV5QKYxQ1AEDxjF5Q6Dg0QIxQ/rKKLe8/DGWEEPb4NUCBzACGqQbcP1Vz
M4QImzdAGlKvMI96yj8er1FdNWA5QMoCuMi3a7c/hXPwzxgdO0BpfFhNL/uk
PxluGPYAvDxAx1tndvzPkz8tlq+BA34+QN34ptSWiYE/OPpnYAURQECpGyR5
b2BwPxnArzKW9EBAEMl6uzeuXD9JyrdRAtRBQLxdDOxse0k/j2+EynCkQkDG
eBofdOY3P5WrCHZshkNAZLWa0aoGJT+yglF7allEQICQ3/yKhxM/Hp5azUMo
RUCMFRocf2oCP0pQG1KqCEZADGpP6KlL8D6NnaAwE9pGQLuF+RzOct4+j4Hd
QQm9R0Dn7diwMLDKPuGp2p/am0hAFGgvRXnZtz5JbZxXrmtJQKMJehnukKY+
cccVQg9NSkBv1SJrhe2TPrC8U4ZyH0tA5squoMqNgz4+9lEXse1LQL3K9SIX
rXg+jMYH23zNTEDlUFcHK5lxPvAxgvhKnk1AOf9WkGMZZj4UNLRIpoBOQEjy
+hjEJVE+T9Gq8gNUT0CMEY5/Rk42Pm3ZsHSeEVBAIiul2riPNT6SFWiJAYJQ
QHPujBEl+DU+Qp8By+XqUEC/QKROsfAgPlL09qWQXFFAKSof5RT9D76Ka0wn
KcxRQNeuSX2sTzq+TTCE1UI0UkDl6EP3M+BMvnDAFx0jpVJAuzHEB20bSL4f
no2RhA5TQKdoFoFGnla+9Z1jrNN1U0AMQ/ybM2BVvitplWDp5VNAZxPMUwFG
UL7sgalBgE5UQKs7O/auflG+DWYZvN2/VEAK/EpESlhBvlZs6dwoL1VA7kqB
40OgML4qwJsq9ZZVQIhZ1TfPDyC+Xt+pEYgHVkDiIGaU8KUQPh1MmiWccFZA
vmdsM1JWIT48hObSduJWQDqhbrGfUB0+g96SJj9SV0BQrPlWKv0sPlWGIaeI
uldAzpnS5UekNj6H+QvBmCtYQIAMF3LgFjo+RbrYByqVWEBeWo/xBekxPj4Z
5Pj//1hAx7Hzh3FWIT6KoGZ+
                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$48666#1"]& ]}}, {}}, {
                    DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {-2.1064899218688725`*^-8, 
                    3.3321361907357745`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                   GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                 GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
                  GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 BaselinePosition -> {1, 1}]}, 
              Dynamic[Typeset`open$$], ImageSize -> Automatic]},
            "SummaryPanel"],
           DynamicModuleValues:>{}], "]"}],
         InterpolatingFunction[{{0., 100.}}, {
          5, 7, 1, {593}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
           False}, CompressedData["
1:eJwt2Ic3FnzcBnB7730b2eM2wm3P32VWyCpaIhl5kKRhJfWkkEqD7EgqLYok
SQ8a9i4jZETLTooy3t7zvt9zrnNd53z+g6/s3gOufgx0dHT0f+Pyv+P/Lz+T
K2STxLL5/zUX+X0oUSBcSJisHWRhNjmtSOiEfSEFLUI/Z72aXaVHGFoUn0ua
mBCeFOLwIsSK3Dx4l2w0dSQXM8NmBbR2EuXV+GG663sJS3H3xkVqAImbFTv6
IjGUnE58U3di9TA5I3eYYnUoksRXygYxf4khVt/rnFOunyIvWdYmFJ0SiBfr
00yDqYvEIymUDJSkkp281LETEZlk+5WRBEXzXHKPs0VknD6fnLdf2hgodosc
SFKMnll/l8yn0w3YTT0kwme3TqsGlhKD6EI6zs9lZEfwssCEz1MSvdtZsWn4
GclxLDC4t7uK/Cjzu9XTUE0yrJce9o3VEkXNihK77a/II0rk48qm18SMyeiJ
OqkjDdOL5Tkl9cSt72kFj1IjGXkZURmb0UT2FxlWzXK1kL6JGb44qzZyI2VL
CWdVO9mho+nh1ttBeDs5WHLnO8nr0E/FX3jekmje2h001XdEuyiH8ZhNNzl1
tEbTk7uXvDMf34V3fUSZlT1BLqefRLapP2byGyRNac7Dn9SHCI+W8RnfqGFi
IOSQ7eY5QvYs7i6xtRwliQMH6g2UPpKS6pMfVDjGSH/BlR+U6THClHiTg7Nz
nGjsL5dZLvtE3F0a9KcyPpNYvX6HDzFfSCFlam+b91fSsbIaUW3zjfwe4Ut+
RJ0g8m/kbuZzTxKHu7qVV+YmyZELth1x76bItbDtn49UTJM698AV/5wZEiH1
gv0+Zsk53rqUgpJZkkffLp2jMEcez/feTb06R+rHR/QusH0nAz3fqs9EfSez
DfP2sZPfCdPz5e5wz3kiVsS8N7R9nqjn8UwFWP4guCwa4f34B9kaJ8O4U2mB
BBylXnBNXyDHAmgUe46f5OJOkwKrYz9JgYO1pun0T/LUfPMz3T2/SLOWu41G
5y8yLOfVrmi9SH4IBexa92SRsLEe/CSiskQklyIP8mYuEa2Jf5dZuX4T68Gk
eLrjv8n2thSBpZnfJLgmJ2fO+w85UXpL5VvXH5Jys7h01GaZFKY9Ne8vXybP
E2sauqgrpD26cWtz1goZ29819Ip7lSx6DQRWxa4SLtfxhbK5VSJjPX2iyGeN
6Or/4rz9bo0oCJ1oapOnw/rzTPzNHnQwZEl0r0+lg2Usd/arVjo4LF4aqWal
h/tBEeUq0GPPt8zgikh6BPpIl5SV0OPwwI1fjybocdxNxaxIgQEJrff/vbub
AZc3aNffusqA7Ooy7httDLhlZLwll40RD0tepGdZMOKZmtWHtChGvCqok08p
ZUSrlMM/FycZ0Xu1veicIhNGed1+JHgyYTKhz+h0GhN+0nvGnmxnAl306KsY
dmZw/PDniLJkhtD+Caej0cxY9+lAathjZqh4/XgfMsUMWm+ETJASC0xdVvz2
ebHAtvHkPZ90Fjhbscx5dbBg5/Oz+h4crPDV4z223YoVIUVXarYeY0WEshir
Sxkr/s3Ldtg8zYpzFNnLm5TZcPXyzR6bPWzI41SVssxgw924or3mnWx4vEIr
NOZkx4uj5VP61uyonzHR0YlhR2dAdYTmE3YMjFi/UJthx6edDYwqKhyY7dq8
ScGbA78dOi/IZHKA6Y37W8kuDvCQfgqFixNiT728hG04Iac9VsB/nBPqdwO+
cZdzQl9+SpNjlhPIPniEhcoFO+Gfzxj2cmHrhSi6tUwueLKu2fzp4kLAiVNJ
v7i4EbbE2jFvw41jYedEZo9z48wEn8dkOTcu+qZe/zLLjcxByucxKg8K3K+p
j+zlQVGbXNhgFg+ebrxd3veWB7U1aivvuHnRbPzQstOWF92lugmtsbwYVq9o
aXzKi283zQTr5ngRxet931uYD2v28m1D2nyISxif2+3IB/bXt4UGAvlwgT7Q
YGc8HwTN1Xf23uBDetT0MfdqPkiVP8x9O8CH/PmwWtclPihr6Y23C/PjfvAv
VicaP7TvVKi2OPLjyXj0ZvsgfpjImYc2xPOj2pPuyoYCfthk1Za9ruZHY09c
r9UgP5yENvypWeLHW2f2dRARwI7zTXhBE8CHhvM+pk4C8GFxPvMsSABfLAXu
GCYIYH/s26YnBQL4Xnl1WrdGAOGL2/lLBwWwrCuhq/1bACcPDroXiwiCpSg3
UkNHEEnfvLPvOQmCT1nhP2qwIFJ9Po3cThCEeF4hk9JNQeQOBCoX1AhCgaJh
J/dBEHfcZoLzfgti/eVHyetEhVDaeqgkW0cIhpz678SdhbDjzPupmRgh8KVI
TNRlCaHuuseX3AohHC/OGQ/vEYJe1YdRpwUhTDZKDysLCuNG757BNS1h7Px0
/X2PozD4f4z2FAcLo55e4V38WWHE8vp1ehUK4+PCy6LwF8LYMCCXlPxWGPdq
T+67/U0YvHeGrf6jE8GhZCLTIyKCniPXlqfVRWDisdLLYiWCXEuPsnU7RMBI
rbykf0AE+3jFQxxPi6BpIcLOP0sEmgM9SscfieBKrT7j1ToR/CpMHXowKIJd
yT8qX8+L4L8jW9IH2UUh71FyeEFaFPGW/C7c+qKYUAnVUHQQhRNvG7vZXlGU
Lmh82hohCtGBc7XBF0QRXTtxLa5AFEOFdtHZz0RhlXxn2+N2Udw+wqbb/EkU
nB77+MaWRXHA8s3kHwExdKkoNghSxWDAG3dTjYgha2H0pJWbGNb6LTx3BYnB
pzbP+NBJMdQVrokkpYlBLdlzPv+BGJKPVLU9eymG+V2S9zv7xLDNMjrh24wY
KlXe+zKwUCDNa2QhLknBqYU0KRqNgs/9P5c2baTAvtat29uTguLCxyWRhykQ
TBZMvnSWgvAjYUF38ijo39WxoeYJBcRSS6GvmYIbKsl0c6MUsPJOD7AtURC0
4FAhwyuOtv57qYaK4tCp5QhzNhFHWuE/jgEu4tCSi6dvDBNHQ1bBY7UUcewV
rt13vkwcfy4Mic90iyOFbaXFeVEcGv+KnyyhSODNHwNdIRMJeB1x+3zEQwKL
02GZPTESuBRwcbNRrgRURx/QZVVL4OWuptLlEQl4vPvi78koiQVHFvFqBUlc
qJdvkbWVhLKlxYlT+yRRXempM54giR16xz7Z3pXE96KMjMImSSSplDtwTElC
If/tWhCPFKokvpe0aErBPZXXX9NFCjM8GpRLYVIIVsL1Uzel8NVsC/VorxT8
3fwfBXCuw8fgSKNd5uuwJ+5czeaD6zCYlbsJBeuws7Skg9azDj2Nr3cockhj
62jviKiZNDqWJv7hCJWGI//a3HK+NJpUBKJm3klDIU+A/iCTDEbVJG2+Sckg
r1wx0cdABp5Wmi0DzjIw4PqRsS1cBnzvnvp35sjga06MzuZXMqj1t6Sr/yaD
LE3WFkt+WRxebMqoMpDF5pqL/oaeslA666ZTGieLNVdxuvX3ZNErMdRc2CGL
R2M3MuQXZXH2QYD/tXVy8DmqoUOxkYMp+b52JUgOwmzlzTyX5TDdHp2R+FQO
dRnwZxqSQ95eZp1YZnlEqjWuLanJw/XHhebDrvJQq9qSMRMhD6YzYv6BufIY
dBykjb+WxxPR/DWvSXkkD/s3vxdQQMAdtQw3IwVYhM36tXspQNykjGZ/RgHz
jFFrr+8roLnZvBldCriZyphRuaSA4571fvoyitimfJ72yFYRWrMua2r7FcFe
IdJ864oiRk/2p8s+U0SlXZ5f9rAiUgT9aKKsStg/QF27pKEE25vTTVxblSAd
UpoeH6WERf0IP4brSuhYM6XF1Cnhbj392q8pJZy69KYpTEgZHjuT0qeMlaEn
7+wX4K0Mnkkh2sd4ZXx+3Le6u0gZ1THXmnrfKiPD1id9yx9lhPGq+LXKqsC+
d1J700YVKFx/tPoyRAUr/xxtMk9VQTfNJL2iUgXFf9Z8dUdVkPDqlXYxGxXe
5xNXqZpUGLs7NhW4USEoLZgufYyKyc89vpn5VLx+mK0t3EDFtUjv1eQZKsIt
lZo4RFThzDmRdtpUFdS3xb50PqpgyDmsHZ2oin4/o9WFYlU8Xr/aGNqtivO/
atMmllXhXx3v6y+vBpLooD2ySQ1irvyru0LVMCfe3dh9VQ2NHzPTXKrUcOO+
l2/zRzUcO6KgvYFDHW7mX1dqtNSxnrWo0XSbOljbw9LKY9QxnG7gSytQR4X3
staDRnVcVq1ZUZ5TR9D86cZ8UQ1YP7dLkzLXgNRpXt90Xw383PxWSzBJA20i
GSvnH2mgcGh3I1uvBk4WyqWdWtVAuXjwwh7D9Zg6V7bFPGw95NdWH0ncX48d
BzfyLY2vR/LHSyHd0pp47dbfXLpDE3/qFNQuXdGEtnFIYkiLJnS6++dvMmrB
MZnuRoqMFv7ZqOh6ykwLcfR29GE7tZD7LOThnnAtPDt0xcspRQvv1J/ymD/S
wuz4QJV6qxY4c+n3S0xoQWm7kiQHmzYs+O2bFhW04dF4IOqzhTbCT6VQuz21
cdm0ovdVtDYeLAzGl6Zro76IwSC/TBsf9yl/utipjVUZh9TYGW1Q3odah3DR
oHsldd6DSoOTw7N8e1saApmHXIx9aDj9gpGeeoKGvHCVh6I5NFRqbfZieUZD
99eDPAvdNMzlX636OE8Dl0dlcCefDpSFhyVqNHRg2crUVGyng93x1Khr+3QQ
AUfq+TgdXFkK642+roOikrT4wBc6aAh6rr+jXwdjCiPjGxZ1sDbInKovrAvx
NFVrRZou9Jyd5gWddOHMfjifIVgXQbXpLnMJujgTXUU3fFMX13VHi1trdfF8
isWrakgXPbfUeO4v6+K7l3NVJkUP3JQjwYn6elDpzJCI2KIHq6QXjf6hevC0
/hjpdl4PkSusVOu7ekh5ot5Lq9ND8QGXeNkxPTSqHNXno9fH+Ejm+KqUPuiy
/kuZMtaHxNYxq4Ft+tDnZp9vPKwPlzca+RWX9BEc6+pSWKSPeMNwurQmfeTP
ZRWf/qKPqrvVnoeZDRDzoHTTipYBzB7e0j3jYYCVkgxp3gQDVJWd40gv/etP
Yxdkhv56ZdjwHQ5DrFT5NdH0DVFVvf1JpbchYl7aX7c+bwizN+bnWp7+9Xrt
cPexv96ksHeI1wgxraKbA0yMYNbBYTjnb4SVrhW5qMtGqOqe5WZ88df7Pi4m
ff3rA90fhYSNsfKhoTUHxqgaeV6hFGyMmLHiguI0Y5h9zk82fPnXv6ZG1Uz/
9ckEPztxE8TMRDt32ZjA7HuIicdBE6z88FYazzZB1a+t/CH1f/33huWf8399
xfhzrLQpVtY0OtnsTVHFIFt16agpYpiFCsXzTWHGxnrlRstf5/gdo77017mn
AsoUzBDDN7zF3NkMZoJd5nXRZih55Zn9qcoMyke/LTHTmSNb+eg2RUtz8PfR
l1nHmePM2fMCvm/M8ceEEnqKjSB0qqAl345g/JqWWu05gp3OzxNGWgk+0ykc
OsEGXO/7KnuRCuwqKW7PtQOEk47EFgcBbT4m6/87BySa0g+2PgCshOuSPrQC
K1PnjKdngPI3rl9X+CxwMFcsnZtmAbWID7ZSWyww7lywoH7YArnUwALTVAs0
rVpxsNRZ4FeXVGjbogXk7/x6l65qCafjHSZ7PSwRveXedbULlritcpp14T9L
dK147n8xZ4m1TsOueHkrqBUKGLm4WWFbzOQ18XgrnHJ9wzT21ArFynmBD75Z
oX85sv2opDVYO7fow9EaOrc1stlPWIMaaler3WwNaaN9X3aI2UCYIY7nX18b
cDbl6d59aAP6lKqdncs2+OXx/sTvjbaYUvx1Sy7VFh+nBVvsRmzRV641H6ax
AW0nNlOyIjfgp4F/yr8zGyA1c5w30G8jrG+lnXXp34ig3Q+ZjVw24bJQwwmZ
uk2oaBr5w2pmh45bjFRuij2+nlR0F1iwB/3uDadEOxxAMfznoeSDzdAWTBqU
TXTEpun7HMp+Tnjk+1niqowzzFwjStIvOKOBsG/KWnaGm0bmUE6gC8T+K7Z+
E+KKfufXd6bDtuDa6Hse0fCt8D48e4hEu0GBhaVvX6w74h+q6i+d247/+z7t
wP8AdFEglg==
          "], {Developer`PackedArrayForm, CompressedData["
1:eJwl1W1EIIgWANC2TZIkSZKkTZIkSZIkSZIkSZIkSZKkTZIkSZIkSZIkSZIk
SZJkjCRJkjGSJEmSJElGkmRP712O+/dyv/5p/Ley/a+AgIDKwID/xXcKIpgQ
QgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskjnwIKKaKYEkopo5yK
7zqpopoaaqmjngYaaaKZFlppo50OOumimx566aOfAQYZYpgRRhljnAkmmWKa
GWaZY54FFllimRVWWWOdDTbZYpsddvnBT/bY54BDjjjmhFN+8Zszzrngkiuu
ueGWO+554JEnnnnhlT+88c4Hn3wRYBACCSKYEEIJI5wIIokimhhiiSOeBBJJ
IpkUUkkjnQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlpp
43vIO+iki2566KWPfgYYZIhhRhhljHEmmGSKaWaYZY55FlhkiWVWWGWNdTbY
ZIttdtjlBz/ZY58DDjnimBNO+cVvzjjngkuuuOaGW+6454FHnnjmhVf+8MY7
H3zyxffyBxJEMCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+
BRRSRDEllFJGORWB/79TVVRTQy111NNAI00000IrbbTTQSdddNNDL330M8Ag
QwwzwihjjDPBJFNMM8Msc8yzwCJLLLPCKmuss8EmW2yzwy4/+Mke+xxwyBHH
nHDKL35zxjkXXHLFNTfccsc9DzzyxDMvvPKHN9754JMvAv7Wf4IIJoRQwggn
gkiiiCaGWOKIJ4FEkkgmhVTSSCeDTLLIJodc8singEKKKKaEUsoop4JKqqim
hlrqqKeBRppopoVW2ming0666KaHXvroZ4BBhhhmhFHGGGeCSaaYZoZZ5phn
gUWWWGaFVdZYZ4NNtthmh11+8JM99jngkCOOOeGUX/zmjHMuuOSKa2645Y57
HnjkiWdeeOUPb7zzwSdffD/+QIIIJoRQwggngkiiiCaGWOKIJ4FEkkgmhVTS
SCeDTLLIJodc8singEKKKKaEUsoop4JKqqimhlrqqKeBRppopoVW2ming066
6KaHXvroZ4BBhhhmhFHGGGeCSaaYZoZZ5phngUX+AzebHlE=
           "], CompressedData["
1:eJwtl3c8198Xx0mZLVESlZmdPcvnHntn7733+HwaRlFGQpRkpUGDFDIqKn0/
7yszo5IUCVmV1cdKZP388bv/PR+Pe8895zxe9/W4h98j1MKbno6O7t5Wuv+v
GRRMUx9R6OgnSjmlu8c2aCg3lKWyrrWfMGC8WNq2yTHq5IsnWvoJlvf0iZWb
PC582q2vsZ9woQj1um5yb5DnWXlqP9Gx9Q9p5yZH+T15f7m6n1iNoH/5ep2G
8jf2e4w+6Seu073TC9xkjyhFBfWH/cR9z8G/1DUaao0Wd2bM6Sd6GhLmzq/S
UJiRzuRURD8RzJfBtbhMQ+9C4rcbHOsnzB5Yp5P/0pDjGFPE87VvxPepPMe5
BRri3W0vIIe/Eann28yWZmjI7G9zpb7zN8JB6BzL9mkaYqmz3ZX8r4/Q1/9y
Xmqchn69Wmacz+kjuhvHy5zGaGgkJd0zUbGPiOVp10/spyHPhkRLb9+vBEW7
acdUNw0xXJJc/Xujl+jln9wr2ExDKwLKd+mWvxAzPzrWzV/S0ExuhviAw2fC
bnUfT3gpDaUx10vHEp+I4rG25vQCGpLmkYz4eqSLcBIaC7ydRUM7J7KWvqZ3
Et9Vyp6wXqSh8IWi9ARqBzG1fpamEE5D29Ru3VjxbyECJKaykr1o6ORZXUb/
Q/8RS68HcsjONBSR0PWM/1IFMQ/iyiQHGmrrHBIws0gnmAXdzEc3mdUz4KvZ
mQLUOHDKwd518zzBHT3n/wx5slCdrvvS0OXuoqr3xzHqvz7PvRZNQ5GDKWZ7
zFvR8ccN87/v0JDtBTJP6+GPyD01w6iilobE4gxMpmO7kZcd95LVZn/emD3I
e/2tB0nJlPuM08+gqAm/mW8y39Ds3SHddK4ZVBzYu0iLGUQPY6Pm8qRn0Pp0
E2+r5xA6W2xauc1wBv2iNhdXbRtBRrOzah0+M8jd22NbTOEoenb1JKGaM4MK
NnVoyvsTZTF+vLevYwal38nIGb86jh7I0Q05M8+ijXiHQgP6KbT87vNdNoNZ
FOf5PNKP/BtdWx6WOHR1Fs0FG924FTaDhPppvVlfZ5FZyNL6p+JZpHQgiP20
xBy6Sf9I4+PQHHrTeyN2/cUcWpnedhB9W0DrEzbL5VbzyFdX8+DDvkX0cFrY
4en6PNIOf/bm09ASOhjyUwTVLKD7s+xOKTP/UNmdLbbZMX9QmWPcr3iWNVTg
HX6E2XoRcU5mDEcc3UDCsxzbZtT+Iq/i8NUrFXSgfrIh7rnMEhofMnK43kkP
6YxHTrQrLaM1L45EwZUt0DXsqv7M5B/SFuU+eeDoVqAZa7svn15BCe4DTVaB
22DbsIuAQsUq6mowTqt8yghPfH/5sqytoaztxj/3MDPD8FNyi7jzBqp3P/zM
xZ8Fhtnm3Uv86GDAn0/pfA8rvM7WjZeUogf6XMpTT5vtsDQQ6HBxlR5Wlvk4
6Ed3QFjxhKvYly2gw/DnjEXcLgjw3st//T8GoFcVHpe8sRsCZsso2hVbYYyB
HaVHsYPyqTsPm8q3wecflmN93nvgP77nbY9fM8LyE9HmW44ckKBiOZz8hQnu
yZnaezlxwhxtXXQbPQsUZ6gPtvjtBd6HTc5NqqzgN8JT7h27D3i8PVkuxLGB
8aWoU31FXPDlJ1PHdN926D/ziPyhdz9s7Gl5+kl3JxjtTCNmDhyAYa64SwwN
u8CCXH/5dwAP7OvPyRR7vBtydEes4lp5YdFZ44zlOXaQkrkmFKh2CNobrc8u
2u2BWp2DzSG1h2HCeI/ZVeCAJ+lH6KQe8oHgnZKgAnlOWOg65UIXxQ/IbUG/
Sm4vzFQZ8+XbCMDN+8euWZL2wdtE/DBKXRCq2LScuG254HlFshiztBCcOCTq
kR+9H8Ds2WssIQwfFLgUkqq44UGJrC+/whG4yn3jVPTiAXC7NXGkRF8Efrnq
7pYx5IUtN4cWh/1FQW/6wRm7JwdhV+jP9+a5YsC3MvWxWvAwaJOdHyR8EgeH
JMV7ydZ84CBy0mb7YUlQWN/Lli/AD4QpFEdHSEGzZdu/S8v8oBW8W5g8dBQC
vzdxPP8qAFbGmbEaUjIgZ/3J+WaTIESU340Rm5OBiF/xLs/+E4LY9Aj2N4Qs
DOkckonBwkAveN7UJVsOFme/ZJ99fwRej0W+tDgjDx775jkUJkWgTcKZ44+r
AhTeDF+U5xQDDuYnircsFSGOQ8B/u5E4vFSa/JJvrgTdhgLRlukSoFNNtrRz
UIb5QDXZB6OSIFBg7HIoRAUWIppP3dE/CncfOP1nmKYKz+/IH/n5WhrW0jWm
FV+ogb62MCPnXRnQrAmtU6Ydg9p62uilIFmoU/62VCSnDioV2WOiGnKw1bym
uSeOBOGJIvssD8vDkZuJ1nzfEZjkcLZ7MSmA/moBl28hwL7WlKvUZQWQrjn7
OcddA7gWTLbULyqC2ZK6cLOQJsSbU+s+ryvBIo9vJBdNE0a8H2q57VGByuWl
O8VYCw7phJc1y6pCnc81s5wb2lDz7VzhGWc1CIwpbVmN1IGPsu0He7KOgVn/
IePf7rowP+23367vOBSTfpedM9eDTBcHL8+jJIjsaml/qq8PnQFmlr5XEZRd
DmfN0zOAyfj6p37nATItm/6TPmEIN4h35y6RNMCq8Xx+iJMRvDfbHai7bTPP
d0jegGIM5ucN/Pu6NCH1KYvU46smkG70o/TsYy2wP/Hy08lnJ0BJ6l24Y7I2
fJLL8jv/3RSqcj51l4XpQEfOMXiXbAZjbl3WD9x0oTEjX7XliDncEbxIDbHX
g6ho7u+szeZwplCLUHPUh4GXRkRwgAXI0A3ckvcxgKsbPQFvdltC6ZvWr7FR
hmC+lUCfXlpCkQfbkGGuEVSHm0n6eVuBf79ofgVhDJ6NUheOc1gDs2mjZOeM
CdisFDUy11vDww8Wfk0SpmC+uFAYfcoGio4ZtlqomEHWv1e92iK20EHqjCIG
zcBQS0WEvs8WBr8frjmaag4B6zj0xFU7ONsjs+u+ugW8yIzvqNOyh9X63/S8
CxbwOZ+pfvyvPWykHH6fVW4JBZbJ0SdKHOAjR4gRS5gV6MnvkKA4OwLtFH9N
oKI1pD385NW5wwk0r3PmPtmwhoF3xU9Gap3ghkF8DvHOBlRUxdl4fZ3BLEDT
K+meLVTsXH0wvtMFeFsWbvyOsoPDanSpL6pcwDG8vazL1h7cX79OnDN3hUV9
1yFOVQe4EXbyz8akKyw7MR+/fMgRfONKPYTADbwPa11mY3YCoQOiLw9ccoP9
HC4BPn+c4N0WT9bcVjcw+9Fp7vfDGfZnmL62YHWHlouUJ71fXeBUzjwvg647
CA1m053/6AodHdOzntHuwOx3OzbVxw3INc5M8hXusHE6LlhuzA0OmGm9lh1w
B0Gx80d2eruDZqt9ijCTB4zz2q7/G9uMs0G+1CPuAWeMc3o++nrAn27XAW4D
D1hSczALmfCAULoH6lR3D3C4u/j9QbAnDIxwqxWc8gCeMnV2k1lP4NDleVAQ
6wHL5JGC46e9QPIc7ihK8gB19/s1+steQD/DX1eQ7AF5j0v26kZ7Q4N1g3d8
ggeIzXdrs9D7gEBSS6ZhpAf8oEq3+iT4gLLMTp7lzTz8La1s5Zl8YfHb2qNc
Mw/w6+Nd0Ur2hRfqljWq8pt5MUibh7D6AeOasPH8Lg9InFssT0rxg9fWpg3D
P9xhKa/AKoDFH5h9zc5LvHCHO3/KUicT/eG8oVjCYrw7fO/9+G1sSwC8lX/J
TTF0h9y5ViGF6ADIsXKw7mRzh5f5E0TVnwDgy7t416jFDXakqdxDQYHgq+ZC
4r3gBvt0J8mvvgdCuQ8bNVbeDcZuyt/eahkEWTLRa1GNrsDfaRBEXx8Ejad8
9I/wukL8ArErWyYYPEgvhNIDXWAmVqTk0c1guM/2qFvnmTPwSwk6CW8NAeIa
68HPi07wMIiJtOAfArfykgw+yDvBjg8KAQwdIbBl6w6L+kBHaNR1+aMhFQrM
Yfvo1PMdoNJmfrwgJRSuowvib9/Zg1vbBOIYCwX/S630s//soKl937juoTAo
8bgRoiZkBx3Ns8Xx+mHQwlIfJ2JkC968czzHyWGg47JzTTHMBtx49ByCc8PA
7Qx5cOC6NZzgETTdSw2DRydtubKrreC5cUi53HAYBEcg5dYeS3jHzjbTsJUM
jZ/7YfSfBfx2bznWLkyGi1aNMXoHLeD9BK+/gQ4ZenwuBJmDOTTfrqepe5Lh
T9tUib2XGbTLmA2UnCeDcjLa4cVhClOj799n5ZEho0N0wdjdBDhKk4bWn5Jh
mKk971+VEfRm/yieaCODmHOty29mQ0AnCsWch8nwe1C35o6nPmw11mh3+EuG
Bsvhy+H1uiCR9srqFysF7nwLyPwqqgP9typ6WQ9SIOmPet3hTC2YkR2obZai
wFdIfpS16bNRDMu3hdQpcPpI91psNIDp4pKTiBEFpqxu/9NaUodHMS3Mn20p
MCwj12vNcAxGtrj2K3lSYM/JWe4sXhXQ4dQ5bhZMgWJMETbVVoTDfrFFomco
cEWmXr4hSg4mqqaqm6IpkPO8293sgjRUTI3zyiZQILHkhZKemDhkhNtk7Eyl
gExwoITcR37Q57eKzb1KAZB0pd9+kBsWu1OEp65RYELSbJytagdc/zBvy36d
AkfvDrw+6D6PJMfVfu/aZP+fT7LJWfNE5dBANW1z/8cPVn4eeDue+tp3+sVm
vN+e2yPu5HJhx7+lQ+TN+7gzJW0z9Phw5oOkAsEkCsjrSNtK3RPCLFcGdbrj
KLCxPS7n9DdR3CgmbnblHAXiOfeS3i5KYrc9Kz+MwylQ11Gwsjopjb9cqdZN
IVNgubqbzOwni2tf87sZBG7Wb0zRu9Eph+8u/eNJ86LA91a2Wy1yCnjCu9rB
zpkCJ0tPNj+5rIhPK2ovlFlT4J7Xtmavb0r44M++mnQTCgjXd4ltFVbBG5Lt
gQw6FDA817tW5K2K94B5B/NxCohLkKm+d9Sw72FK+n05CqzKHdF2f38M+10d
cf0sSgG7osrnT5aOY6KK9u3+IQq8aF+MDDxAwrXz7vk7OSkgaj4v/lQBYQer
cEVuFgr4hX1s+CAIOP3vR8GmNTK4dQarPnoE+GvImTGuOTLE7js5MSOhgWvd
/pvc/WNT/wlbup4/1sByhk53nvaSIVK3Y3rbEU1cKu3huKWDDIfkmWRptzXx
Lib18A2CDO76ZSnn92jhkjx8vKyKDCNrB/ob4rWw42Pp6R2FZGiv+LXSPquF
EY8eFswhg2n/zkeFTtp4kM1odCaJDI8HDTKcGrTxyXt7Y8KjyBA9+PLEhqgO
fh4o8uhlIBl+Vb9yupmig98Jvgx/6UQGhm0zh0njOpiu+d1chAkZ8n/EDi5o
62LtVqMD/9TJsLSS2NB+Wxd/cGYeIx0lA1tSbs/HeV0sd/snGBwiw8PCtK2c
enr4Q8bvPTw7yfClwWHX7Rw9/HbRUbl6LQz2d+25HTWmh0cycCzvdBgk5jId
fSmjj/uU9v9n+i0MZP8xHvKO1McdYiMl5m1hkPG36n4KoY8nGYFZ6FUYRLvM
vVdkMMBif7YltBSHQZ1lRBpF2wBXiw+2QE4YFE27FRjHG2CTJ54RVy6Gwa1j
Q4XvCQN80kBB8unJMLBRY+Fk+meAP+TvPVPhHgZTotmq67KGmOrG9v2SaRiM
7Pqkjn0N8Zbkk1Nq6pt+ppLGZ3fTEEeV8O9rEw8DOVfGVx/aDbG1StQH1f1h
cDeZsVZh1RAL1KZdStoWBkJXx0uviBlha3Y/IG/6a4r369lfVkYYSk/MZBOh
QGfn0WASY4STfEntCTdCYcL2jUpzoRH2aPt8Uv1kKPQ8Xjnm2maE2yQORtYb
h0K93t3MwzQjHFVd6cZ9JBSsNFeG2dmNcbbA1nsaGyHAVmZyF8kaY9/y49Oo
IQTSrCZyc12M8YcHEgUjSSFg9fO0/MEkY5z/eiZHwSQEFg9xkqbKjHED7ShF
jT0E+FLtWwQ/GOM0/8wrq5+CIShRWWTotzHO7HXaHZcbDO9+/PsLrCa44UXH
YKdjMFzOcBZ0FTDBJkMlJXOHgmHgbul3G2UTrGrweGJiKAhWz62/0DQwwdzr
nd/wgyDwSSenHLczwTaUkdQo3yBQ5w+97OxlgmsYKzsPigdB/viMCTXYBLdV
U0wrpgKB07TlzZlTJvjI2J5I5fJACHg/evxOhAneaX3q2gtyINRtyTllFGWC
S10rS1UUAkHK911KZqQJvhViVfl6MQC+jZptv3rGBN9oSrY3eBkAibsmF0zJ
JpipylBh5GwALG7NrZr0N8Hph+OKrpAC4NJAvugZNxPM1So+ZUofAKUrJVVb
rE1w5YYPt0SDP/AGfxB5oGeCNw5m8Ahd8gcflZT+IBUTXNVn9Ipk6A+Ni5WP
Q0RMsNmJuR05035wVyU+U3WzX5tTgb/FNT/4KrGjQXvcGL+k++J+TtEPAnmN
7d42GOOrHl96Dn/1hY3v33as3zLGNdfdGfXO+8Jx3jdWXBRjTLn5OmZFyBd4
vuV662kbY+v9Vaq6bT5Q7KRgQ+Uwxm3B6jekKT5w1zVD6vF3I0zzWwoluH2g
O1X0r1KJEZ5JMGJaq/OG8z2Z3VdOburvubcwLcAbjnTWcH5VNcKvTFf33OL0
hlSa6jG0bogJn64CFsIL3hif4xnBhvio124p9QAv0Pj5d+RXrCGuJdsXH9vn
BbJOu6UpGobYuLY+j6XeEwzOuuzJ3zDAtZdPL9N0PUF6/bX24A0DHDr6sKWx
3QOenPqeVCZrgHkrXo5nWXnAUROlWJ9mfazZZZXuv/nvdKqeNnVz1Meh2alu
+gHucPHw+8WJaT2cXnvhssqSG2Tzva0yO6+HX0SenCAlucF/7hsWn3fp4ep/
kvtdD7hBc/xMSm2+Lp6wiWdXdnaFhMVxdExaF5N0BtFksgsYtth+vEzVwWP5
fql9r5xBsd7Ic9BEB+sd0FlmnHGCBYrFPq9+bVydvz4QIOYEEswPTbWDtXFe
StAuBl9H0Cf9+V20poUbzkQsvi12gNcVY4nlV7SwrebQixe/7UF2d+G1GD4t
XJbGad6sYg/+pUn3ZJ9qYr93io+nEu0g4utM5oiuJvaWDn55qNcWwhmuvCjt
08AV47lZFtK20L0mtXKPrIE/T0SknUu2gcKH8ru/Mmvg1S/+x9N/WsP2rs9Z
nncBn4ipv33BwBr+mBqomB4D3J74+xCUW0H991eF1mUI74zXrsD7rcD8Xcah
bT9JWIin/dP8RUs4YqPJ+EaQhE1+D1W0LlrAeL16zh1PdWw71M+lFGgBT0zu
mj4uOo63/KzPPTJiDqfY4wXmpo5hj7SdKaku5rAo6V10QekYDmgp4LTrNwNW
Bxq4xKvhgdJJ9UhXMzC23Wt2rUsVV+kUDxNvTeFHbIfZIRFV7DPbzL709QRM
6EcyMMeo4EWde4+j5kxAJ+zwFdMeZbz+qtVQZLcJ3AjJvrWgqIw97uXf6Jc3
BubbtTF/spXwl5ddVtHORsB15qO26YoivqpBc/yRagjlr4W/rnko4uGxnldL
dQawtpPh0GqHAm4aPv00c1UfhARFV7SOK+D86dCmvOP6wPasJvpdmTx+df9o
7WSsHqzRt/28LiCPqyPYH/q164LV06cNl/Pk8Bufxfk5Hl3Q6qFbKd0rh9Pm
9vsEbc7Da712/dPXZbFMiBV/zVtt8Dqqqqa9VxZfb+kqey6iDUtNJQGFN2Rw
4F2VVcMULVi1p3dj5JfBvu2a/g6zmqBUqe5eYyONR3/S1TU7acJZnS968uSj
OFUyQyO8XQP6736N8rsmhekFY2+bgAasnlW7QqqRxJ1R1DXpFwC3HjJW3xqW
wLofNRm2KgA0bdHs8eeQwLMVtemuvgguWAffTjUQx3aF5Hr5EBJoP/56fjJB
DDN7C1EtzqlDRU5fb1CjKE4RDc25fO04dM73zS2yimJ560TnJ2XHoDc8ki3M
WgT/ztfcl/pBDYoWHvpRHxzBQfaN1MVlVRgamHFuWRLGF5WphnViqtAk/s3m
lLkwpg92uE+4qoBWydXB4idC+Lz3aGHTTWVoCaksNd4thKMZeQRK+5VAfyT3
nu4ZQazzS7dHV1gJbEZ7+6K/C2DKNY7wEIoiPFVWKO89IYCdnOVurDQoQJzP
7DONOn48adf+pplXAYwsX7XdVubHFSwtLmWR8lDvPc37uZIPh+GftZf65ICz
KJqvS5oPa7Y2sMhrygG9WSOseBzGzckl1qllshDrqxEeHXwI3z/udIl8UBY2
HL93bsQcxCO0p85112SgsWrvnHUOLz7xCwIdWWUgxdpQ1qqaB3NyXBaGndKA
Dsg/eN93AFP47JmGdh2FL4rZB+8wHcAq54eDnLmlYGMjWSZblRtnjq10RolL
AuNHJbmr5P34xUNGJTotCWhUEj7mXs6FWwsyOas9xKFnL7/o2Nw+7Htqm4tP
shhUb7zMWzi2D997xRf2rVoUTLT8lv1T9uJ5t4qdYxMiIL/hHMo3wIkT9Q45
nRAWgcczrFPzSpxYa4Tr40/vI9BkZy9Ql8mBW8lqanGlwiA99eiS9989+Oje
1iLakhDIeGZaEC578J7l04EMRkLQ9IMcWdbKjm1FGp69NhUEjkr9n44Lu7Ec
w2FWYzcBMHd8NlgpshvnswqXi57jh2HK7ab0lp34DI0t//09PvDJThGLsNyB
03gsKxMfHoawc2eNHWhsGE0s23AdPATFGYOXY26yYoOLOWyBhbzg1fSLQ96W
BV+ZG7xUiHjALuRUdTs/M+a/0US/MMENt6duEEX/GHE9sftDatF+uLEn9K3A
0Dbs4e21u5zMBQf8nK4Wf9qKb8z0md4z2geSj/jqCj8x4NRhEaVq+b0wsnKn
O+37Frz3qIa8phgn3Ml81N/7lx431RVLF0pwQLvNhg3zAXrs/PYo0lHbA++L
7m/c0qXD5MPHba5asQOJ3dJS4986kXY7h/5v5G6wl2c/rBm1RoQeJmlMWe6C
qFFRC/ftq8SQQ5cWd8sOkKc4bOko/0eUVl1LuGC6HbraT+9/7blMHClUuqUy
zgqaFLqNYJElInim/a1HJgvc7C6wEP+3SPBKmMeImzHDupxnJvT9ITL4y6Ya
eJhgTO1XP1PrAiH7afp22OI2GIlIzhlonCc4InNYTg9uBfu0szLi7+aI5xn/
ZAU+M8At6nyPzfAsUTkepP2hdwu8NbcifaGfJcLZDNQHx+kBTbkZCEnOEH3j
2Vert9FDON/C68i634SUDXxokKSD2q8vkRFpmpC47vd2/fU66kxr8uzsmCQu
+Lzwb1BYQ3UjZ7dIhE4QM8/S8ACxggQv6+6L5R8nHK/3Tjk7/0Nxt7tOMI7+
JOwdxzydty+j68E7Hi0+/0FkS94OZmj/i8oUOlhzsseIbr7Aogs3F5H3uNSw
wsVRYl4nNHFX1B+knRzYIhw7Qpy6NzQ977OALIxVRZuTh4nvjUHVUZtz6d6s
iJ/Rd4aI+cdmBst+cyjujypnNfU7obx6SK3j3CyiZA2LNXYNEtncI2OOt2bQ
dOjlmmXSAPGIl0NK6AoNedm0q7JQvxFiszVWzUvT6KBA9q4N0z7CK+B9THb4
FOIbvMk4N99LsI2ZNF5nmUS+lzZ6GB71ELPyKRc7ysYRzedEhVvIF0Ins7Ld
2fMXInXll5G0PhO1df2t/mI/UWjcozP9R7oJvpJEY/6NMXTg4u3mi/s/EZeo
bGrUkVH0pqKIJZmri2CU5jiY8HkEveDvnQbBj4TowvkS4vMwEvcI3r7rWCex
dL3OtmlkCI08P5jk5PKBCGbT+vFn9TuiMq0GyHO/JwqcMdMz/u/oQoVp6tmU
DmKDljvTd28APVgTo6XuaidS3It0ZLj6kft55suhD1uJy/at1xzz+9CTomSk
bP6WEBpTc3ZX+4o8XFN1Gba3EG3PRjPNf/agjBdZpWufm4iqtymzeoVf0NiO
4+8dKhsJ8s2dPoEnP6NEZfshu7wGorD3Sua0WTcqtmw+ha7VE2n6Ow1Z1T8h
qYZgFtesNwTPGVs6JuUudOCf993dRXWE75FubznSR1SbT+/w/A0mWJ0OTI6Y
d6J1tLInqJsgbiw/Ck3d+gHNnZl+QJz8j4jT/JVqUtCB9FU7CA9USzz/zWta
4d2GMuseWm0ovCSmKzMvdlq/RRxTuQ7R5jXEK+UD4XHBzUjyz4nQ9WvPib3N
/VkfHjWiPB61F73zT4n9Yyc56JkbUORpIabcU1XE78vf21IvvkExUdb6M+yV
hNux0VhevjrkHA2BSdfLiQsZ5pi1hEAnGC4kqSmUEa4iyyGX9f5DK8ZHr1hu
KSHUa+hnGPbUbuqb/9Kpf8VEzKxEMwPTS3Qo8SQtmvsh8ZjrzYSjYA16s3yC
97JTIVHLUTvH7fUcGZosLE7j+4TsE9GC+KaniM/h1FYJ7XvEfrGMmj36VWjs
3/Xnf0YKiNBZGTHyjwqULS/6x/54PqHeU79lklSOHp0XlqwYukXY55KU0XAp
Yn4WZqX3LI/4bSB6ROLpY1R87d/f/ypyiYPze3s1nhQjpeTmzrmubELkWsSk
7YciNLDjNBcdTxZxvEOuNGZfIdrHwH9AOf468YO7I28j+j46/t1ZhZc1g5ju
z1G123oPcasE8HiWpRPX4MFRpYcFaEK1/tTn7itE1nqr48+WO+hR1uTxyNhU
Yvd+7ROip24h+527mlkcUojYx2TvOOM8pPcyZUjUKYnoX9AiXz2Riy7UXG+t
SUgk/MJ78sTDs1EB94Z/14cEwlAnJS6wPhNt638w+l49ngiIor66K3MdPfw7
GqfwNpZI4MrLNXt9DQnvNBitCbtAJE2aWkl4paPZK/Z/IrxiiG/P7X4IGF9B
/jpnr+ZxnSPY8dDkPrpU5DtIX6H4N5KAkjeRy5+TkJ1G4od1lnCiZm9eKTtL
IsrYmvKZnXyKiKiNH+VJjUfc6A33sgCFYC5JhBWbWJQam5BlwhVGFDSGX5Or
j0FJvmkv5dKCiAvMLj/TDc6iNZsok0grf2L2yC4NS4UIZO2ntq8kwocYattS
JBZxGr3glPW1pnkSubZiT1jYTqKtq9KesuXuhHePrT7raBh6otQTt83NlcgN
LglIXAxGcssj4/OfHIlvFxZ3uV0PQKZTzPvkK+yI0bMPWKQyfNHSnY1j6j+s
iYWRP8uDP73QweZFhp4gSyJhRdPhcYoHYlYJiKGpmRN/Ll6+0UN2Q4pH01Qm
0k8Q3VyRYV4SzoiN+b87CbxGRKP4nu21A/aIybV6Y5VNn/iuxCiZNmuDjNq6
fu2y0iEu1m6ss9tbIQOu/XnUCU1CtHWbzAs2C8TO//uSeDMQrFPlb7fQm6Gt
SoHD42/UiYKo8I7YakM0lGC9S+6LCsFcscdO3EgX3SzrqXpUq0A4nhRpns7T
ROet/B2mTGSJawK8TOU7EIoLYrE+PyxJCJ+tfiA1oYrKR+LW7HlECWYebiu9
AkXUdjT5aPAhISIz+Lwq43Y5lBPj8cOylY8YP/vr43+HjiISkow1ZuQl7Fp/
F4ULiCHzo3RpUp5cm+9H+qLrshB6Elza55vAQTi7rI0kX+BHcb+GhJMMdhOy
xl0K+YoHkaDKTv2po2wE8DqvVbruR+1u+6kC5YzEQiRr3iMbTqTz4PaB6ekt
xO55i8I7S7vR3bGYkMs5G9SVi+v/fteyoLaMVhrXwl/q44p9LJrxDEh1vFmz
T2yOarpT6FNLzhrJN9ctUyd1knry6FKgf9giKUCK937pyCg1zWbxghbDLEmo
2Pq9etkgtSmo8WNv2zipQ9H4k9zWHqrL3mg1uqsjJNaowEclih+ptWdcN6aK
+0k5A7GxYbfbqN37Xlv8PPeZdPus7AmBmQbqHHeDc9T2ThJ9sWRwMkFQqW9f
CDioNJHC3Nre5FQ8o/ZSFLpXt/5Hus9c8iphWwn1Tmf3g5K1KpJAUm4ZS/ld
aqmYrWrrl2LSy1ibOQGBHOqBu9V31uULSNZnBSbVpK5QTa91m1IOZpEOHtZl
v/8onjp1d81XnD6BxP18b8ynAgo1L6Q+VmhnBKlyRVDklrcPVc55nqHKjUzK
jqtKipdyo3KyiVzQ2eFN8vXukvK6YUmVetbZRL5lRvJv3GU3TiNRc4VX5vVr
FEhXHxXLko0EqXKj5bf4xBRIxXajeccaBKjav4P/FlQokBx3fYdsTUFq+vYQ
27g/vCSmS7Zy2/+xUiPO6PQ/D9xNLS1zC1e+vK5esEBKkrlkQI2tyLsZ3ahM
Sj//5B5rlzXVoDXcp8FCmwQ3VVIzUk2oF3aTbdUSjpE+ZP04ceqHEFW/TqxQ
6QwHCRjqrHoY+UgcJiSNkN4dVL6TD36V0MmT2Lu+HmGt4qfKnPO+F2bDT1Le
ImN5THg39X/2/ene
           "]}, {Automatic}],
         Editable->False,
         SelectWithContents->True,
         Selectable->False], "[", "t", "]"}],
       Short[#, 2]& ],
      FrameMargins->5],
     Editable -> False], "]"}],
   InterpretTemplate[
   FittedModel[{
     "Nonlinear", {$CellContext`\[Beta] -> 
       0.011042886597952207`, $CellContext`\[Zeta] -> 
       0.6372350056518095, $CellContext`\[Gamma] -> 
       0.46564981643290687`}, {{$CellContext`t}, 
       ParametricFunction[1, 
        Internal`Bag[{
          Hold[
           
           ParametricNDSolve[{
            Derivative[
              1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == \
-$CellContext`\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + \
$CellContext`\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
             Derivative[
              1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == \
$CellContext`\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
             Derivative[
              1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
             Derivative[
              1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == \
-$CellContext`\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], \
$CellContext`\[ScriptCapitalS][
              0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
             0, $CellContext`\[ScriptCapitalI][
              0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
             0}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {$CellContext`t, 0, 100}, {$CellContext`\[ScriptCapitalN],
              $CellContext`I0, $CellContext`\[Beta], $CellContext`\[Zeta], \
$CellContext`\[Gamma]}]]}, 1, 1], 2, 
        1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
         System`Utilities`HashTable[
         1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
           "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
         5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
         NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
           
           Internal`Bag[{{$CellContext`t$43273, \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\
\[Beta]$43270, $CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, \
{$CellContext`t, $CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], 
           None, ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 
           0, 0, 0, 0, 0, 0}}, {
           0, {#& , #& , #& }, {
            0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
           None, {{{$CellContext`\[ScriptCapitalN]$43268, \
$CellContext`I0$43269, $CellContext`\[Beta]$43270, \
$CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, 
             System`Utilities`HashTable[
             1, {{$CellContext`I0$43269, $CellContext`I0}, {
               "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
             5}, {Automatic, 0, 0}}, {
            Automatic, Automatic, Automatic, Automatic, Automatic}, 
            None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
           Derivative[
             1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
            Derivative[
             1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
            Derivative[
             1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
            Derivative[
             1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
             0] == -$CellContext`I0$43269 + \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalE][0] == 
            0, $CellContext`\[ScriptCapitalI][
             0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
            0}, {}, {}, {}, {}}, {{0., 100.}}, {
          Automatic, Automatic, MachinePrecision, Automatic, Automatic, 
           Automatic, Automatic, None, None, Automatic, Automatic, Automatic, 
           Automatic, 
           Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, 
           Automatic, None, None, None, Automatic, Automatic, Automatic}, {
          "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
           "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
           "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
          All]}][763, 
        1, $CellContext`\[Beta], $CellContext`\[Zeta], \
$CellContext`\[Gamma]][$CellContext`t]}}, {1}, {{0, 0}, {1, 6}, {2, 26}, {3, 
     74}, {4, 223}, {5, 294}, {6, 258}, {7, 237}, {8, 191}, {9, 124}, {10, 
     68}, {11, 27}}, 
     Function[Null, 
      Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Beta], \
$CellContext`\[Gamma], $CellContext`\[Zeta]}, #], {HoldAll}]]& ],
   Editable->False,
   SelectWithContents->True,
   Selectable->True], "]"}]], "Output",
 CellChangeTimes->{
  3.792151471169612*^9, {3.7921515355292053`*^9, 3.792151542602171*^9}, 
   3.7921670452130623`*^9, 3.792236224779058*^9, 3.792236412343081*^9, 
   3.792246756287239*^9, 3.792325576945895*^9, 3.792591856933352*^9, 
   3.793177990711297*^9, {3.793178242138939*^9, 3.793178264546681*^9}, 
   3.793178630911213*^9, 3.793181806561247*^9, 3.7932850064656363`*^9, 
   3.793285056681158*^9, 3.793378817324523*^9, 3.793378888477478*^9, 
   3.793433742450447*^9, 3.793445650506784*^9, 3.793445814700057*^9, 
   3.79465820771767*^9, 3.7946734437954493`*^9, 3.7946734829986253`*^9, 
   3.7948447434025683`*^9, 3.7948859732978106`*^9, 3.794886055496891*^9, 
   3.7948875222376165`*^9, 3.794894862948357*^9, 3.79489704396819*^9, 
   3.794901256522735*^9, 3.7949189371605844`*^9, 3.794920908727193*^9, 
   3.794921328198595*^9, 3.7949755611355505`*^9, 3.794977658445444*^9, 
   3.794985758804624*^9, 3.7950125559317055`*^9, 3.7950597275514364`*^9, 
   3.7951572114072266`*^9, 3.795319833010417*^9, 3.795319969563062*^9},
 CellLabel->
  "Out[173]=",ExpressionUUID->"3ba39786-6602-4446-9cb9-f7196aa21435"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Manual fit", "Subsubsection",
 CellChangeTimes->{{3.792231954848962*^9, 
  3.7922319601529922`*^9}},ExpressionUUID->"bd1e69dc-ad91-4152-978b-\
c631120b57ef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DynamicModule", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "localData", ",", "localPop", ",", "localSusceptible", ",", 
     "localExposed", ",", "localInfected", ",", "localRecovered", ",", "beta",
      ",", "zeta", ",", "gamma", ",", 
     RowBox[{"tMax", "=", "50"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"localPop", "=", "populationSize1"}], ";", "\[IndentingNewLine]", 
    RowBox[{"localData", "=", "fitData1"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "localSusceptible", ",", "localExposed", ",", "localInfected", ",", 
       "localRecovered"}], "}"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "susceptibleSEIR", ",", "exposedSEIR", ",", "infectedSEIR", ",", 
       "recoveredSEIR"}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"beta", "=", 
        RowBox[{"10.", "^", "logBeta"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"zeta", "=", 
        RowBox[{"10.", "^", "logZeta"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"gamma", "=", 
        RowBox[{"10.", "^", "logGamma"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"localSusceptible", "[", 
               RowBox[{
               "localPop", ",", "1", ",", "beta", ",", "zeta", ",", "gamma"}],
                "]"}], "[", "t", "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"localExposed", "[", 
               RowBox[{
               "localPop", ",", "1", ",", "beta", ",", "zeta", ",", "gamma"}],
                "]"}], "[", "t", "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"localInfected", "[", 
               RowBox[{
               "localPop", ",", "1", ",", "beta", ",", "zeta", ",", "gamma"}],
                "]"}], "[", "t", "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"localRecovered", "[", 
               RowBox[{
               "localPop", ",", "1", ",", "beta", ",", "zeta", ",", "gamma"}],
                "]"}], "[", "t", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"All", ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"PlotRangePadding", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Automatic", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Scaled", "[", "0.03", "]"}], ",", 
                RowBox[{"Scaled", "[", "0.03", "]"}]}], "}"}]}], "}"}]}], ",",
            "\[IndentingNewLine]", 
           RowBox[{"PlotLegends", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\[ScriptCapitalS]", ",", "\[ScriptCapitalE]", ",", 
              "\[ScriptCapitalI]", ",", "\[ScriptCapitalR]"}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<time\>\"", ",", "\"\<# people\>\""}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"GridLines", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"None", ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{
                "influenzaData1", "[", "\"\<NumberNotInClass\>\"", "]"}]}], 
               "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
               "\"\<Green\>\"", "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
               "\"\<Sunglow\>\"", "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
               "\"\<Scarlet\>\"", "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
               "\"\<NavyBlue\>\"", "]"}]}], "\[IndentingNewLine]", "}"}]}]}], 
          "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"ListPlot", "[", 
          RowBox[{"localData", ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{
             RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
             "\"\<Scarlet\>\"", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
        "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"logBeta", ",", 
          RowBox[{"Log10", "@", "0.012"}], ",", 
          RowBox[{"Dynamic", "@", 
           RowBox[{"StringForm", "[", 
            RowBox[{"\"\<\[Beta] = `` (infection)\>\"", ",", 
             RowBox[{"TraditionalForm", "[", 
              RowBox[{"10.", "^", "logBeta"}], "]"}]}], "]"}]}]}], "}"}], ",", 
        RowBox[{"Log10", "@", "0.0001"}], ",", 
        RowBox[{"Log10", "@", "1.0"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"logZeta", ",", 
          RowBox[{"Log10", "@", "0.61"}], ",", 
          RowBox[{"Dynamic", "@", 
           RowBox[{"StringForm", "[", 
            RowBox[{"\"\<\[Zeta] = `` (incubation)\>\"", ",", 
             RowBox[{"TraditionalForm", "[", 
              RowBox[{"10.", "^", "logZeta"}], "]"}]}], "]"}]}]}], "}"}], ",", 
        RowBox[{"Log10", "@", 
         RowBox[{"(", 
          RowBox[{"1", "/", "5"}], ")"}]}], ",", 
        RowBox[{"Log10", "@", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"(*", "0.125", "*)"}], "0.01"}], ")"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"logGamma", ",", 
          RowBox[{"Log10", "@", "0.43"}], ",", 
          RowBox[{"Dynamic", "@", 
           RowBox[{"StringForm", "[", 
            RowBox[{"\"\<\[Gamma] = `` (recovery)\>\"", ",", 
             RowBox[{"TraditionalForm", "[", 
              RowBox[{"10.", "^", "logGamma"}], "]"}]}], "]"}]}]}], "}"}], 
        ",", 
        RowBox[{"Log10", "@", 
         RowBox[{"(", 
          RowBox[{"1", "/", "5"}], ")"}]}], ",", 
        RowBox[{"Log10", "@", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"(*", "1", "*)"}], "0.1"}], ")"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "tmax", ",", "15", ",", 
          "\"\<\!\(\*SubscriptBox[\(t\), \(max\)]\)\>\""}], "}"}], ",", "5", 
        ",", "tMax"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "ymax", ",", "800", ",", 
          "\"\<\!\(\*SubscriptBox[\(y\), \(max\)]\)\>\""}], "}"}], ",", "50", 
        ",", "800"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
       RowBox[{"{", 
        RowBox[{
        "logBeta", ",", "logZeta", ",", "logGamma", ",", "tmax", ",", 
         "ymax"}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]",
      "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.7922268935587597`*^9, 3.7922268980134897`*^9}, {
   3.792228507172748*^9, 3.792228663388768*^9}, {3.7922286972356567`*^9, 
   3.792228867526699*^9}, 3.792228920271969*^9, {3.792228954835314*^9, 
   3.792228961459488*^9}, {3.792229007153911*^9, 3.792229346830398*^9}, {
   3.792229380836858*^9, 3.79222945081892*^9}, 3.792229512770898*^9, 
   3.792229553529983*^9, {3.7922295852405233`*^9, 3.792229605268186*^9}, {
   3.792229642415133*^9, 3.7922296427899837`*^9}, {3.792232136951775*^9, 
   3.792232194394093*^9}, {3.792234163653569*^9, 3.792234280176632*^9}, {
   3.792234362440771*^9, 3.79223436270889*^9}, {3.7922352231654167`*^9, 
   3.79223524828239*^9}, {3.792235303810213*^9, 3.792235328991053*^9}, {
   3.7922353787879353`*^9, 3.792235403700699*^9}, {3.792235441298924*^9, 
   3.792235462248736*^9}, {3.792235937069549*^9, 3.7922360012919807`*^9}, {
   3.792242594159194*^9, 3.79224262385248*^9}, 3.7922441215428753`*^9, {
   3.792244173187101*^9, 3.79224419560183*^9}, {3.792244237194799*^9, 
   3.792244253926455*^9}, 3.7922443740883904`*^9, {3.792411712828762*^9, 
   3.792411782738031*^9}, {3.792412037723165*^9, 3.792412038681233*^9}, {
   3.7924148429147387`*^9, 3.792414873733082*^9}, {3.792414941109907*^9, 
   3.792414999994401*^9}, {3.792415499034052*^9, 3.792415558462397*^9}, 
   3.7925918094758463`*^9, {3.7934382784559*^9, 3.793438280544079*^9}, 
   3.793438482496805*^9, {3.794657497249504*^9, 3.794657497921161*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"c7f36512-8c94-4a19-8bc6-557415796c77"],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`localData$$ = {{0, 0}, {1, 6}, {2, 26}, {3, 
  74}, {4, 223}, {5, 294}, {6, 258}, {7, 237}, {8, 191}, {9, 124}, {10, 68}, {
  11, 27}}, $CellContext`localPop$$ = $CellContext`populationSize1, \
$CellContext`localSusceptible$$ = ParametricFunction[1, 
   Internal`Bag[{
     Hold[
      ParametricNDSolve[{
       Derivative[
         1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == -$CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + $CellContext`\[Beta] \
$CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == $CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == $CellContext`\
\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == -$CellContext`\
\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] $CellContext`\
\[ScriptCapitalS][$CellContext`t], $CellContext`\[ScriptCapitalS][
         0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
        0, $CellContext`\[ScriptCapitalI][
         0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
        0}, {$CellContext`\[ScriptCapitalS], $CellContext`\[ScriptCapitalI], \
$CellContext`\[ScriptCapitalE], $CellContext`\[ScriptCapitalR]}, \
{$CellContext`t, 0, 
        100}, {$CellContext`\[ScriptCapitalN], $CellContext`I0, $CellContext`\
\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}]]}, 1, 1], 1, 
   1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
    System`Utilities`HashTable[
    1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
      "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
    5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
    NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
      Internal`Bag[{{$CellContext`t$43273, \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\
\[Beta]$43270, $CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, \
{$CellContext`t, $CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], 
      None, ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 0, 0,
       0, 0, 0, 0}}, {
      0, {#& , #& , #& }, {
       0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
      None, {{{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
        System`Utilities`HashTable[
        1, {{$CellContext`I0$43269, $CellContext`I0}, {
          "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
        5}, {Automatic, 0, 0}}, {
       Automatic, Automatic, Automatic, Automatic, Automatic}, 
       None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
      Derivative[
        1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
        0] == -$CellContext`I0$43269 + $CellContext`\[ScriptCapitalN]$43268, \
$CellContext`\[ScriptCapitalE][0] == 
       0, $CellContext`\[ScriptCapitalI][
        0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
       0}, {}, {}, {}, {}}, {{0., 100.}}, {
     Automatic, Automatic, MachinePrecision, Automatic, Automatic, Automatic, 
      Automatic, None, None, Automatic, Automatic, Automatic, Automatic, 
      Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, Automatic, 
      None, None, None, Automatic, Automatic, Automatic}, {
     "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
      "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
      "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
     All]}], $CellContext`localExposed$$ = ParametricFunction[1, 
   Internal`Bag[{
     Hold[
      ParametricNDSolve[{
       Derivative[
         1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == -$CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + $CellContext`\[Beta] \
$CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == $CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == $CellContext`\
\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == -$CellContext`\
\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] $CellContext`\
\[ScriptCapitalS][$CellContext`t], $CellContext`\[ScriptCapitalS][
         0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
        0, $CellContext`\[ScriptCapitalI][
         0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
        0}, {$CellContext`\[ScriptCapitalS], $CellContext`\[ScriptCapitalI], \
$CellContext`\[ScriptCapitalE], $CellContext`\[ScriptCapitalR]}, \
{$CellContext`t, 0, 
        100}, {$CellContext`\[ScriptCapitalN], $CellContext`I0, $CellContext`\
\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}]]}, 1, 1], 3, 
   1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
    System`Utilities`HashTable[
    1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
      "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
    5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
    NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
      Internal`Bag[{{$CellContext`t$43273, \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\
\[Beta]$43270, $CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, \
{$CellContext`t, $CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], 
      None, ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 0, 0,
       0, 0, 0, 0}}, {
      0, {#& , #& , #& }, {
       0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
      None, {{{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
        System`Utilities`HashTable[
        1, {{$CellContext`I0$43269, $CellContext`I0}, {
          "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
        5}, {Automatic, 0, 0}}, {
       Automatic, Automatic, Automatic, Automatic, Automatic}, 
       None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
      Derivative[
        1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
        0] == -$CellContext`I0$43269 + $CellContext`\[ScriptCapitalN]$43268, \
$CellContext`\[ScriptCapitalE][0] == 
       0, $CellContext`\[ScriptCapitalI][
        0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
       0}, {}, {}, {}, {}}, {{0., 100.}}, {
     Automatic, Automatic, MachinePrecision, Automatic, Automatic, Automatic, 
      Automatic, None, None, Automatic, Automatic, Automatic, Automatic, 
      Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, Automatic, 
      None, None, None, Automatic, Automatic, Automatic}, {
     "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
      "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
      "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
     All]}], $CellContext`localInfected$$ = ParametricFunction[1, 
   Internal`Bag[{
     Hold[
      ParametricNDSolve[{
       Derivative[
         1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == -$CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + $CellContext`\[Beta] \
$CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == $CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == $CellContext`\
\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == -$CellContext`\
\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] $CellContext`\
\[ScriptCapitalS][$CellContext`t], $CellContext`\[ScriptCapitalS][
         0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
        0, $CellContext`\[ScriptCapitalI][
         0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
        0}, {$CellContext`\[ScriptCapitalS], $CellContext`\[ScriptCapitalI], \
$CellContext`\[ScriptCapitalE], $CellContext`\[ScriptCapitalR]}, \
{$CellContext`t, 0, 
        100}, {$CellContext`\[ScriptCapitalN], $CellContext`I0, $CellContext`\
\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}]]}, 1, 1], 2, 
   1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
    System`Utilities`HashTable[
    1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
      "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
    5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
    NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
      Internal`Bag[{{$CellContext`t$43273, \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\
\[Beta]$43270, $CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, \
{$CellContext`t, $CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], 
      None, ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 0, 0,
       0, 0, 0, 0}}, {
      0, {#& , #& , #& }, {
       0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
      None, {{{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
        System`Utilities`HashTable[
        1, {{$CellContext`I0$43269, $CellContext`I0}, {
          "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
        5}, {Automatic, 0, 0}}, {
       Automatic, Automatic, Automatic, Automatic, Automatic}, 
       None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
      Derivative[
        1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
        0] == -$CellContext`I0$43269 + $CellContext`\[ScriptCapitalN]$43268, \
$CellContext`\[ScriptCapitalE][0] == 
       0, $CellContext`\[ScriptCapitalI][
        0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
       0}, {}, {}, {}, {}}, {{0., 100.}}, {
     Automatic, Automatic, MachinePrecision, Automatic, Automatic, Automatic, 
      Automatic, None, None, Automatic, Automatic, Automatic, Automatic, 
      Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, Automatic, 
      None, None, None, Automatic, Automatic, Automatic}, {
     "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
      "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
      "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
     All]}], $CellContext`localRecovered$$ = ParametricFunction[1, 
   Internal`Bag[{
     Hold[
      ParametricNDSolve[{
       Derivative[
         1][$CellContext`\[ScriptCapitalE]][$CellContext`t] == -$CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] + $CellContext`\[Beta] \
$CellContext`\[ScriptCapitalI][$CellContext`t] \
$CellContext`\[ScriptCapitalS][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalI]][$CellContext`t] == $CellContext`\
\[Zeta] $CellContext`\[ScriptCapitalE][$CellContext`t] - \
$CellContext`\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalR]][$CellContext`t] == $CellContext`\
\[Gamma] $CellContext`\[ScriptCapitalI][$CellContext`t], 
        Derivative[
         1][$CellContext`\[ScriptCapitalS]][$CellContext`t] == -$CellContext`\
\[Beta] $CellContext`\[ScriptCapitalI][$CellContext`t] $CellContext`\
\[ScriptCapitalS][$CellContext`t], $CellContext`\[ScriptCapitalS][
         0] == -$CellContext`I0 + $CellContext`\[ScriptCapitalN], \
$CellContext`\[ScriptCapitalE][0] == 
        0, $CellContext`\[ScriptCapitalI][
         0] == $CellContext`I0, $CellContext`\[ScriptCapitalR][0] == 
        0}, {$CellContext`\[ScriptCapitalS], $CellContext`\[ScriptCapitalI], \
$CellContext`\[ScriptCapitalE], $CellContext`\[ScriptCapitalR]}, \
{$CellContext`t, 0, 
        100}, {$CellContext`\[ScriptCapitalN], $CellContext`I0, $CellContext`\
\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}]]}, 1, 1], 4, 
   1, {{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
    System`Utilities`HashTable[
    1, {{$CellContext`I0$43269, $CellContext`I0}, \
{$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, {
      "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[ScriptCapitalN]$43268, $CellContext`\
\[ScriptCapitalN]}, {$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
    5}, {Automatic, 0, 0}}, {NDSolve`base$43285, 
    NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
      Internal`Bag[{{$CellContext`t$43273, \
$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, $CellContext`\
\[Beta]$43270, $CellContext`\[Zeta]$43271, $CellContext`\[Gamma]$43272}, \
{$CellContext`t, $CellContext`\[ScriptCapitalN], $CellContext`I0, \
$CellContext`\[Beta], $CellContext`\[Zeta], $CellContext`\[Gamma]}}, 1, 2], 
      None, ParametricNDSolve}, {{{4, 0, 0, 4, 0, 0, 0, 5, 0}, {0, 0, 0, 0, 0,
       0, 0, 0, 0}}, {
      0, {#& , #& , #& }, {
       0, {$CellContext`t$43273}}, {{$CellContext`\[ScriptCapitalE], \
$CellContext`\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}, {$CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalR], $CellContext`\
\[ScriptCapitalS]}}}, 
      None, {{{$CellContext`\[ScriptCapitalN]$43268, $CellContext`I0$43269, \
$CellContext`\[Beta]$43270, $CellContext`\[Zeta]$43271, \
$CellContext`\[Gamma]$43272}, 
        System`Utilities`HashTable[
        1, {{$CellContext`I0$43269, $CellContext`I0}, {
          "Output", {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}}, {$CellContext`\[Beta]$43270, $CellContext`\[Beta]}, \
{$CellContext`\[ScriptCapitalN]$43268, $CellContext`\[ScriptCapitalN]}, \
{$CellContext`\[Zeta]$43271, $CellContext`\[Zeta]}, \
{$CellContext`\[Gamma]$43272, $CellContext`\[Gamma]}}], {}, {}, {1, 2, 3, 4, 
        5}, {Automatic, 0, 0}}, {
       Automatic, Automatic, Automatic, Automatic, Automatic}, 
       None, {}}}, {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalI], $CellContext`\[ScriptCapitalE], $CellContext`\
\[ScriptCapitalR]}, {{
      Derivative[
        1][$CellContext`\[ScriptCapitalE]][$CellContext`t$43273] == \
-$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] + \
$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalI]][$CellContext`t$43273] == \
$CellContext`\[Zeta]$43271 \
$CellContext`\[ScriptCapitalE][$CellContext`t$43273] - \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalR]][$CellContext`t$43273] == \
$CellContext`\[Gamma]$43272 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273], 
       Derivative[
        1][$CellContext`\[ScriptCapitalS]][$CellContext`t$43273] == \
-$CellContext`\[Beta]$43270 \
$CellContext`\[ScriptCapitalI][$CellContext`t$43273] $CellContext`\
\[ScriptCapitalS][$CellContext`t$43273], $CellContext`\[ScriptCapitalS][
        0] == -$CellContext`I0$43269 + $CellContext`\[ScriptCapitalN]$43268, \
$CellContext`\[ScriptCapitalE][0] == 
       0, $CellContext`\[ScriptCapitalI][
        0] == $CellContext`I0$43269, $CellContext`\[ScriptCapitalR][0] == 
       0}, {}, {}, {}, {}}, {{0., 100.}}, {
     Automatic, Automatic, MachinePrecision, Automatic, Automatic, Automatic, 
      Automatic, None, None, Automatic, Automatic, Automatic, Automatic, 
      Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, Automatic, 
      None, None, None, Automatic, Automatic, Automatic}, {
     "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
      "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
      "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
     All]}], $CellContext`beta$$ = 
  0.012000000000000002`, $CellContext`zeta$$ = 0.61, $CellContext`gamma$$ = 
  0.43, $CellContext`tMax$$ = 50}, 
  TagBox[
   StyleBox[
    DynamicModuleBox[{$CellContext`logBeta$$ = -1.9208187539523751`, \
$CellContext`logGamma$$ = -0.36653154442041347`, $CellContext`logZeta$$ = \
-0.21467016498923297`, $CellContext`tmax$$ = 9, $CellContext`ymax$$ = 800, 
     Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
     Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
     1, Typeset`name$$ = "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{{
        Hold[$CellContext`logBeta$$], -1.9208187539523751`, 
        Dynamic[
         StringForm["\[Beta] = `` (infection)", 
          TraditionalForm[10.^$CellContext`logBeta$$]]]}, -4., 0.}, {{
        Hold[$CellContext`logZeta$$], -0.21467016498923297`, 
        Dynamic[
         StringForm["\[Zeta] = `` (incubation)", 
          TraditionalForm[10.^$CellContext`logZeta$$]]]}, -Log[5]/Log[10], 
       2.}, {{
        Hold[$CellContext`logGamma$$], -0.36653154442041347`, 
        Dynamic[
         StringForm["\[Gamma] = `` (recovery)", 
          TraditionalForm[10.^$CellContext`logGamma$$]]]}, -Log[5]/Log[10], 
       1.}, {{
        Hold[$CellContext`tmax$$], 15, 
        "\!\(\*SubscriptBox[\(t\), \(max\)]\)"}, 5, 50}, {{
        Hold[$CellContext`ymax$$], 800, 
        "\!\(\*SubscriptBox[\(y\), \(max\)]\)"}, 50, 800}}, Typeset`size$$ = {
     583., {152., 160.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
     Typeset`skipInitDone$$ = False}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, 
       "Variables" :> {$CellContext`logBeta$$ = -1.9208187539523751`, \
$CellContext`logGamma$$ = -0.36653154442041347`, $CellContext`logZeta$$ = \
-0.21467016498923297`, $CellContext`tmax$$ = 15, $CellContext`ymax$$ = 800}, 
       "ControllerVariables" :> {}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, 
       "Body" :> ($CellContext`beta$$ = 
         10.^$CellContext`logBeta$$; $CellContext`zeta$$ = 
         10.^$CellContext`logZeta$$; $CellContext`gamma$$ = 
         10.^$CellContext`logGamma$$; Show[
          Plot[{
            $CellContext`localSusceptible$$[$CellContext`localPop$$, 
             
             1, $CellContext`beta$$, $CellContext`zeta$$, \
$CellContext`gamma$$][$CellContext`t], 
            $CellContext`localExposed$$[$CellContext`localPop$$, 
             1, $CellContext`beta$$, $CellContext`zeta$$, \
$CellContext`gamma$$][$CellContext`t], 
            $CellContext`localInfected$$[$CellContext`localPop$$, 
             1, $CellContext`beta$$, $CellContext`zeta$$, \
$CellContext`gamma$$][$CellContext`t], 
            $CellContext`localRecovered$$[$CellContext`localPop$$, 
             1, $CellContext`beta$$, $CellContext`zeta$$, \
$CellContext`gamma$$][$CellContext`t]}, {$CellContext`t, 
            0, $CellContext`tmax$$}, 
           PlotRange -> {All, {0, $CellContext`ymax$$}}, 
           PlotRangePadding -> {Automatic, {
              Scaled[0.03], 
              Scaled[0.03]}}, 
           PlotLegends -> {$CellContext`\[ScriptCapitalS], $CellContext`\
\[ScriptCapitalE], $CellContext`\[ScriptCapitalI], $CellContext`\
\[ScriptCapitalR]}, FrameLabel -> {"time", "# people"}, 
           GridLines -> {None, {0, 
              $CellContext`influenzaData1["NumberNotInClass"]}}, PlotStyle -> {
             ColorData["Crayola"]["Green"], 
             ColorData["Crayola"]["Sunglow"], 
             ColorData["Crayola"]["Scarlet"], 
             ColorData["Crayola"]["NavyBlue"]}], 
          
          ListPlot[$CellContext`localData$$, PlotStyle -> 
           ColorData["Crayola"]["Scarlet"]]]), 
       "Specifications" :> {{{$CellContext`logBeta$$, -1.9208187539523751`, 
           Dynamic[
            StringForm["\[Beta] = `` (infection)", 
             TraditionalForm[10.^$CellContext`logBeta$$]]]}, -4., 
          0.}, {{$CellContext`logZeta$$, -0.21467016498923297`, 
           Dynamic[
            StringForm["\[Zeta] = `` (incubation)", 
             TraditionalForm[10.^$CellContext`logZeta$$]]]}, -Log[5]/Log[10], 
          2.}, {{$CellContext`logGamma$$, -0.36653154442041347`, 
           Dynamic[
            StringForm["\[Gamma] = `` (recovery)", 
             TraditionalForm[10.^$CellContext`logGamma$$]]]}, -Log[5]/Log[10],
           1.}, Delimiter, {{$CellContext`tmax$$, 15, 
           "\!\(\*SubscriptBox[\(t\), \(max\)]\)"}, 5, 
          50}, {{$CellContext`ymax$$, 800, 
           "\!\(\*SubscriptBox[\(y\), \(max\)]\)"}, 50, 800}}, 
       "Options" :> {
        TrackedSymbols :> {$CellContext`logBeta$$, $CellContext`logZeta$$, \
$CellContext`logGamma$$, $CellContext`tmax$$, $CellContext`ymax$$}}, 
       "DefaultOptions" :> {}],
      ImageSizeCache->{646., {262., 270.}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     Initialization:>({$CellContext`tmax$$ = 9, $CellContext`influenzaData1 = 
        Association["NumberBoys" -> 763, "NumberConfinedToBed" -> {{
             DateObject[{1978, 1, 22}, "Day", "Gregorian", -5.], 0}, {
             DateObject[{1978, 1, 23}, "Day", "Gregorian", -5.], 6}, {
             DateObject[{1978, 1, 24}, "Day", "Gregorian", -5.], 26}, {
             DateObject[{1978, 1, 25}, "Day", "Gregorian", -5.], 74}, {
             DateObject[{1978, 1, 26}, "Day", "Gregorian", -5.], 223}, {
             DateObject[{1978, 1, 27}, "Day", "Gregorian", -5.], 294}, {
             DateObject[{1978, 1, 28}, "Day", "Gregorian", -5.], 258}, {
             DateObject[{1978, 1, 29}, "Day", "Gregorian", -5.], 237}, {
             DateObject[{1978, 1, 30}, "Day", "Gregorian", -5.], 191}, {
             DateObject[{1978, 1, 31}, "Day", "Gregorian", -5.], 124}, {
             DateObject[{1978, 2, 1}, "Day", "Gregorian", -5.], 68}, {
             DateObject[{1978, 2, 2}, "Day", "Gregorian", -5.], 27}, {
             DateObject[{1978, 2, 3}, "Day", "Gregorian", -5.], 12}, {
             DateObject[{1978, 2, 4}, "Day", "Gregorian", -5.], 4}}, 
          "NumberConvelescent" -> {{
             DateObject[{1978, 1, 25}, "Day", "Gregorian", -5.], 0}, {
             DateObject[{1978, 1, 26}, "Day", "Gregorian", -5.], 8}, {
             DateObject[{1978, 1, 27}, "Day", "Gregorian", -5.], 16}, {
             DateObject[{1978, 1, 28}, "Day", "Gregorian", -5.], 99}, {
             DateObject[{1978, 1, 29}, "Day", "Gregorian", -5.], 161}, {
             DateObject[{1978, 1, 30}, "Day", "Gregorian", -5.], 173}, {
             DateObject[{1978, 1, 31}, "Day", "Gregorian", -5.], 163}, {
             DateObject[{1978, 2, 1}, "Day", "Gregorian", -5.], 150}, {
             DateObject[{1978, 2, 2}, "Day", "Gregorian", -5.], 89}, {
             DateObject[{1978, 2, 3}, "Day", "Gregorian", -5.], 45}, {
             DateObject[{1978, 2, 4}, "Day", "Gregorian", -5.], 23}}, 
          "NumberNotInClass" -> 512]}; Typeset`initDone$$ = True),
     SynchronousInitialization->True,
     UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]],
  DynamicModuleValues:>{}]], "Output",
 CellChangeTimes->{
  3.792229399146356*^9, 3.792229451971133*^9, 3.792229517710944*^9, 
   3.792229555168462*^9, {3.7922296149879723`*^9, 3.792229643477476*^9}, {
   3.792234145893709*^9, 3.792234168407978*^9}, {3.792234270380341*^9, 
   3.7922342807131233`*^9}, 3.7922344108108797`*^9, {3.792235280345973*^9, 
   3.79223532984202*^9}, {3.7922354065326633`*^9, 3.792235463596109*^9}, 
   3.792236002067889*^9, 3.792242629694008*^9, 3.792244197611302*^9, 
   3.792244254720581*^9, 3.792244375403637*^9, 3.79232551955196*^9, {
   3.7924117944321527`*^9, 3.792411814027658*^9}, 3.79241195298463*^9, 
   3.7924120394530277`*^9, 3.792415006324916*^9, 3.792415594374885*^9, 
   3.792591810613529*^9, 3.7931779248786087`*^9, 3.7933788151361513`*^9, 
   3.7933788851508083`*^9, 3.793433724799777*^9, 3.793445593434*^9, 
   3.793445625093151*^9, 3.79455397370026*^9, {3.794657412608217*^9, 
   3.794657440889475*^9}, 3.7946574882800293`*^9, 3.7946575324052415`*^9, 
   3.794657585983507*^9, 3.7946576354521933`*^9, 3.7946577893445044`*^9, 
   3.794657826061306*^9, 3.794657979014529*^9, 3.794658083217516*^9, 
   3.7946734429832544`*^9, 3.794844743488546*^9, 3.794886055575011*^9, 
   3.7948948629972267`*^9, 3.794897044060137*^9, 3.7949012565756855`*^9, 
   3.7949189372387133`*^9, 3.7949755612504845`*^9, 3.794977658634324*^9, 
   3.794985758896592*^9, 3.7950125559941993`*^9, 3.7950597277076755`*^9, 
   3.795157211500925*^9, 3.7953198331333427`*^9, 3.7953199696520157`*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"ab0347e8-0e2c-4c2b-99cc-b4cf13579416"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Modelo 3: SIRM ({\[Beta],\[Gamma], \[Mu] , k}, con ",
 Cell[BoxData[
  FractionBox["\[Beta]", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[Mu]", " ", 
      SuperscriptBox["t", "k"]}]]}]]],
  CellChangeTimes->{
   3.7946568265461245`*^9, {3.7948295890551467`*^9, 3.7948295943595023`*^9}, {
    3.7948296783330584`*^9, 3.7948296849479437`*^9}, {3.794829754651681*^9, 
    3.7948297953228292`*^9}, {3.7948298849876375`*^9, 
    3.7948299187736645`*^9}, {3.7948299531409874`*^9, 3.7948299631389246`*^9},
     3.7948300089159527`*^9, 3.794830140045807*^9, {3.794830242217456*^9, 
    3.7948302793389864`*^9}, {3.794830447810799*^9, 3.794830456336114*^9}, {
    3.7948305077021265`*^9, 3.7948305170158267`*^9}, {3.7948313515878954`*^9, 
    3.794831443719623*^9}, {3.7948314948899813`*^9, 3.7948315008216243`*^9}, 
    3.7948328236347647`*^9},ExpressionUUID->
  "65a1ff9e-af59-4de7-a7bd-41a76bf8d68e"],
 ",  Ntotal=10^6;I0=10;)"
}], "Subsection",
 CellChangeTimes->{{3.7947289266864376`*^9, 3.7947289340357847`*^9}, {
   3.7947289901457586`*^9, 3.794728991541278*^9}, {3.794741016733353*^9, 
   3.7947410181708126`*^9}, {3.794800208878688*^9, 3.794800218253324*^9}, 
   3.794826798691739*^9, {3.7948875626908565`*^9, 3.7948875641444283`*^9}, {
   3.7948876572376633`*^9, 3.7948876605346923`*^9}, {3.7948877237850704`*^9, 
   3.794887743034418*^9}, {3.7948880147379427`*^9, 3.794888018456205*^9}, {
   3.7948893770485744`*^9, 3.7948893770485744`*^9}, {3.794891438657795*^9, 
   3.7948914408377724`*^9}},ExpressionUUID->"6ed1ec0a-2270-40a8-b2b2-\
afb54dae1df0"],

Cell[TextData[ButtonBox["http : //www.imuva.uva.es/covid19/COVID19 - \
AnalisisComparadoChinaCyL.html",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://www.imuva.uva.es/covid19/COVID19-AnalisisComparadoChinaCyL.\
html"], None},
 ButtonNote->
  "http://www.imuva.uva.es/covid19/COVID19-AnalisisComparadoChinaCyL.html"]], \
"Text",
 CellChangeTimes->{{3.7948266062031574`*^9, 
  3.794826629403245*^9}},ExpressionUUID->"5f253081-38b5-4125-8e2d-\
80fbf739ae09"],

Cell["\<\
AL modelo SIR se le a\[NTilde]ade una funci\[OAcute]n de mitigaci\[OAcute]n  \
\[Beta](t)  >0 que modele la forma en que la tasa de contagio va disminuyendo \
en el tiempo,\
\>", "Text",
 CellChangeTimes->{{3.7948268077406807`*^9, 3.794826840943899*^9}, {
  3.794827700351034*^9, 
  3.7948277713635387`*^9}},ExpressionUUID->"39db41f1-6366-42b2-9dc8-\
9a5b07755069"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3f1PVFm6L/C59/5yf7z/wv0bKudwKoYcORM5Dmlic4UYKw0OjFy4OjLT
2BVDk7bF1jb4hnKUQW00PUaboo8MnEAj8WV0FEY0LQ20R/QI+NJl5E20ELEM
4H2oBYtVe1ft2i9V+6Xq+0ln4kDtYhXsvZ611rNe/nfRH/7P//3vv/rVr7b/
T/qf/1O4I6O8vLBi/f+i/5NXtv3/lZQVb/5N2WfFJcXl/1T0P+iLX/63X/1q
F71+8d8fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4mdh
YeH+/funTp2qr6/v6uqyujgAAADJb3Jysrq6Oi0tzRVSW1trdYkAAACS2dzc
3H/8x39kZma6BIi/AAAAiUPd3p07d7rCbd68eWhoyOqiAQAAJKd79+7l5eWJ
kTctLY16vm/fvrW6aAAAAEloYWHh2rVrGRkZYvB1u92tra3z8/NWl06KStvT
01NSUrJq1arCwkIq+dzcnNWFAgAA0IbCWVtbG0VbMfhSLKa4Rt+yunQRUGn5
xDDm5MmTCMEAAOAgFGE7OzslPV/6v/RFewbfQCCwZcsWSYY6NzfX7/dbXTQA
AAC1enp6JMGXupatra32DL5keHj4o48+csn8+OOPVhcNABJpLujvbTm7z+tZ
vzr00K/Ozfd49/k67k2Ir/K3lrlLWiI0x4O3q9OX64tf53ryPZH/W3zzmj6z
PhOkrKGhoZycHEkgq6+vt/NYLvVzqbcrKXN6evrAwIDVRQOAxJgLDLZWF/6a
P/GLkdfzGyFl9tua26Eg7G/3Uvh0H40UP/sbVssb7hHt6AiY/AEhxYyPjxcX
F0vuO/oKfd3qoimZnZ2trKyUF3tiYiL2xQDgODODZ7csRc7VWxpujkwEef9g
sUfs270xFIiza65cr2FNc+9Fxfg5FwxMDfpKhBpkfc3t0UBgJvGfBSC0yQb1
cyVRLCMjwxGjuI8fPy4oKODF/uijj+7evWt1oQAgAWb6atazBz1398XhYMSR
uTl/y6fi9NFS39NYbzt3u0a4wHNuOP4lB4jixo0bkinEpK6uzs4jz6K3b99e
vXqVmhBtbW1TU1NWFwcAEmAlsObW3FLs0k5dqeS53eyGwZjV2IjPs1LzZTfc
i1+ZARSNjY0VFRVJgm9eXt6zZ8+sLhoAwJKJ9rKl6HtqMOaL+44ud4GrbgZV
vLNQ+VXfdka3AxxvYWHhzJkzLhn6om3nPANAylmZruztUDG5I9hVvfRq5eRv
6LU39wl1H2ZbgVmokyuf80xfQecXAOwjcNG7VD1ta1E1t7KXZXQ9Zx/FfOlg
Q/ZK7Vf6PbYOADNE6/wePnzYKZlfAEgBgSufL1dPh26rusLfUqoy+cteieQv
mGtsbCw/P18SfNPT0/v6sNwcwGGoOR0IBF6/fp2gTdoT/f6K+lbmJ6vI5y4K
9X/dKoJ14JK4gHH3TSw7AlNcvnxZ3vndsmULPWVWFw0ANJibm2tqakpLS8vK
ykrQ8aATExNsod/Ro0ffvXuXiB8R1WjLygSpzON9agbnQvF39/XYsXplppb6
wW0AY4LBYFVVlTz+NjQ0WF00ANCAnuW6ujpXaM1+T09P4n7QwMAAmy7yxRdf
vHnzJnE/SEqMvy5X9qHbscPq4q4agcgLhMMM+4QhQKz8BXNE3LmR2s+O2HMD
ABgefM3Zqp1vEW9uCO47nh5WU+V+drbjnl9FeI1lokOI7O6aO3EoK0BMN27c
kHd+N27cODo6anXRAJLTxMQEhcjf//73LIS53e5NmzadOHFieHhYX9wUd64z
Z6t2Kid9BLZdz86dO2dmzEmXhi8REiJm5u8qj7feHHyqKicc4X2XlymFeDuw
eQ+YoqGhQX43V1RUvH371uqiqTI/P09d+PPnz/PajKxfv76srIy+SN+SzxIZ
Hx/funUrVRrUZbCkzJCyJicnq6ur5bvMcdu3b3/+/Lmm9xRDIV0+PT2doMJL
0OOzd+9eM4P+4g/tPy4drZNaXfjF2dsaew+Dp4WlRyU+P5Z9QOLRE0RhSH4H
19bWWl202KjwFy9e3LBhg/LTuHnz5nv37vFuBTXU2Uc+duwYthYB01A7sKOj
IzMzk92Wn3zyyenTp7u7u3t6ejo7OysrK6kXzL6Vk5OjaerU/fv3165d6wrt
ef7oUexlrnHEN82j6N/W1mbKzwz2HY0VgRe5y5rVL+D1twjHLmSr2FYLwLip
qalNmzbJ711qTltdNCUUN/v7+6kGE8tMNZvX66V2+PHjx6nzyys6V2h8jz4R
VYA8+JLLly9b/TkgVVBb8cSJE7yLSlFS3vajmMsPEFF/4hh1qEtLl9atNjY2
mt+k5JvGa202GBAc/LZUzaGBKva8CglcCVt6pGKyNIBxT548Wbdunfy+Tejk
SYPm5uYuXLjAOwv07O/atevx48eScWb6vw8ePKC6jr+MQvDRo0fZ/03c6gwA
CZ6cpZvQ5/MpZD2oVclzKGq2fhV3zjF+2qa+hb3i0Z8VFRVmJYIpCPv7Wo9X
bslVDMTVqhYJ99YIS4/KWjDzBUwxPDz80Ucfye9a205+pqf7wIEDvJzUXxDH
luWoJqGwy4M1h9XNYA4efCmwdnZ2KofUt2/fUghjt2h+fv7Y2Jjym/ORZ4rs
ly5dMlLOV69e8aGh6upqTVMjeLPBeDH0mAv6791s+VNl6foIoVhNF3i4UTj1
KP/sMJK/YAqKsxFbjfaMv5Ljiammokoj5lVU4zU2Nko+4P79+7G1JpiA4lFa
iJo1QWJfMj09fWBgQOHF4vSn0tJS6rfqLiQVTJyHuW7duidPnqi/XCyJ8W64
IYHBlqrw7HDsna8mOj5debmanbIA4sJB8Vec5OnSkiAjVDXxHBmD5C+YYGRk
hO1ToXJ6sBh/SXt7u8KLe3p6KEazV1LP2kg5X758WVhYyH8udb0nJyc1vUNf
Xx8vTFNTk5HCGDXnb9kmPOolLTGmYQVvhi09UpkyBjDMQfH30aNHfKh87dq1
9+/f13Q51Qn8061Zs2ZwEFMcIbF4r1B9W1Ecf3YpToMUt61TM1KtjDraPHq6
Qut5tS7Nm5mZ8Xq98SqPVGgPq4DqEoUt5o25k+SDsFOPfE+NFhZAJafEX3GA
yxXaG1PrPE8KuBR22eVI/oIJuru700PoHyovoV6neBKKwiiNOFPL+Dllzc3N
4uN//vx5HW9CrQX+Dgb741Kh+VEaDgQUt6mMNZ7sbw479Sj2MUkAceKU+CuO
bsXMi0Uk1mxI/kKiTU9Ps7n31EtV35cUW4kK9zndvRRz2cuMbxX7/v37PXv2
8Gdf9xuKZ4hTXziOE6HZ/KjqW6ovEOJvWaty91c40NCl+kwlgHiIGH/pAezt
7bW6aCvE2oYUFRXpmGoirnRG8hcSrauri54jrYd4il3IwsLCly9fRnyZeGCo
wstUGh0d3bhxI/+5ubm5fr+eo+c1TR7TYiKUz/WcVb+zyIhveUJzrKvm+mqE
DaW1bNkBYFTE+PvRRx8ND9vo+A9J/UDPOD3pWt+E+iNlZWU2/HSQfHgk0tQN
lEy+UkiyiAeGGh/MkSR/jew9e/78ebH8Rkq1YmlzjNJY86hW+L9fnku2rSXG
TpIrkdq1OPp8z3BpAVRzRPylQor75eqLv7z/i+QvJNrDhw/ZslxNIy38KuVn
kKItxVz+OBgfzJEkf43ETTGUx+1BW94cQ+22VHODyxOqsmvuxLhkol08z7D6
NrJSYCJHxF9J/aBvwI3HX2z7DInG1tJqmgZMUfXgwYP8Jj958mS0Xq04HGR8
Jr8k+esytvedOMsiXqsMVk5GUJec9TcvhVT3vpuBGPE0/DSlHR1ol4OZHBF/
a2trxeJRX7irq0vrm7CdvnCuMSTazMxMeXm5S+O0ZH6criu0mYbC8ltxOEjf
XAiRZOWv7uQvIznPRXn9sjoTwmLe2P3ZYG/N0u4b62tux4ym4clfzzkbVXqQ
CpwYf10aN99gqGbo7++/e/fuu3fvElROgA/Cnq43btxQecnQ0BCfORzzFAMx
x2r8DE1xxrUrHgePivtoxWGhQfjmGNRAqL4edT7zxPXqpeD7a29LzGW8MwH/
1Wph5a+rst2vfokxgHGOiL+S8WfmD3/4wy+//GJ10QCkKOxKHiIKkVeuXPF6
vevXr+c3cHZ2Nn2lra3t2rVrfGMZCr4PHz5UeHNJB7Ourk59wagM8o3QY6K+
9tWrV9X/FOrz8mvjkAJeSv5S2O3rWN5Y0r2x8uzFvuHRQJDF9sX9nzsatixt
/uz+3fGoh/8+9RXKPmBkMXftADDMEfG3p6cnWs1AUZhqsNHRUU0ntgAkyMLC
wrFjx+jmLC8vZzOfZ2dnd+3apabKLy0tjTn2KzkwVP0ArzzPq5LWlE1vby8f
Hte6j7RcaOXv8km+c4HB1t2e9Ohl/XVhdeugQs534mplKEi7Mzd6PPkR/1s6
TSn3NPbHg4RzRPwVVztGk5mZSf0Caqi/fPkS06vAKtTdo06fS+iZRjtiTGLV
qlXUP41560reTX1kpPj7zTffFITbsGGDuLKAescej0fyGora09PT6n8DYgkN
7yQwceXz1WWN4SF1LjB8q+XsPi+Ple7feEq/ON7Si9FjcBhHxF/xkFM1KBbv
37//7t276BSDyeTJXwpeO3bsiHavZmdn0+3K/p2RkRFz7rH4wBo/w1qy8lff
yj4JyRaa8ZiCBZCcHBF/yfj4eHFxsfoQzGzfvt3MHPHc3FxDQ4PYoTAN/VCF
FStgGrYzhmTcldqB9EBdvXr11KlT9SE+n48ePTZWI5l8NTIyovD+YnbV+Ohu
HFf+cq9fvy4qKuLvqW8raYBU4JT4+yE0RzQvL09rYKLOhZH1jJrwsUdLGF+K
AgbJk78qrxLPp967d6/ClGYxYm7atGlqakp3aeO78peT7OJVW1tr/D0BkpKD
4i95/vw529Nek5gLOuLowYMHvI9jJvqh9KPN+YwQjTz5q5Lf78/NXZrcu3bt
WoUp0OJaPIPxVzJQbHDlLyeJv8ZXSAEkK2fF3w+hoTwKNNRu55sVqEFRW9Mc
EgAdqJmXlZXl0rLyl5Ec+6swZivGX4NrdSXJX019dgXUnT9y5Ah/27jklAGS
kuPiLzc3N0fV3blz5woLC2OmXPVtmQWgScTkr0piYI0WsyQjxgZDm3jWkiuO
xyWEfxZNYV35KbaneP3SIAU5N/6KqF6ixvzp06cVYjHO/IWE4sci6OtIqhlY
lgztGom/kkMcXNr77Ap0D5IbDIWWiNcvDVJQcsRf0eTkZHV1tTwKY3pSElBe
y5MIFONUZi50J38ZMWZFewDjGH8ls5SNT6UWIf4CqJF88fdDqG1fX18v+VDx
ml4CFqIYQZHClGp1ifrAxDdS1tGRlAwsmxB/Jds+xyv5yyD+AqiRlPH3Q6h5
X1pammQfCubn569fv27mxPKenh6Vu7gYSf5K5l9FayvGMf6y0nLxPZQT8RdA
DdvG36dPn1LVR/+r+x3EY2Jc8R5hAxAZTP6KR/q6oscsyeELuuOvPPlL4VjH
+0QTx0VSAEnMnvGX1zNGJk1JTm1APQCJw5O/+jqSktFghTWzaqZJqy9tgp73
uBQSIOnZM/7y7oCRzeskHw37AEDi8ACqryOpfimQGNp0Tynk65SZOJwSKIhX
Jx0g6dkz/lKp2ARmI8Niko9mwj601u7/TD8aC6yswrZl1ncgAgWsqqoq/qdM
T0/v6+uL9mIxq6J7SEeS/D1y5Egck7/Y/wpAJXvGX17JaDp4VELsU1CdNjAw
EMcSRoT9n1MTT6fqe3AePny4du1a/nfctm2bwoon8a7euHHj6Gi0k+aj4ptU
c9FauXQ/37lz5+eff9bUrpPMJcP+zwDRUEtb3IOOMX6umRFi+1l3/JUs6PB6
vXFcXqEA+z+nIL6WVkf8pWjY0NDAb9S0tLRLly4pvF5sMOsL9/QglJeXx3zY
ecG0jk5Tl5w65vz9cf4RQDR//etf/+Ef/kESf//1X//1v/7rv6wqkrgXve7D
Q589e8bPdItZpwEYwZO/OgIi3ajiqV4xNyoXU7f6RnX4CcVMtPD64sULj8dD
L2hqatL0/uLzq9C5TjXUnrl//35FRUVBQUFVVRVay/DBluPPPPnr0jv/mS6p
q6vjH4fueXM6v5CaxDN5NR3hRzeqOBS8du1aqqKVL5GsVNJxYuCNGzfEhz3i
I0bB4syZM/RdahtQC0HT+xtvISQlukncbjf/tWdkZJh2LirYlg3jrzgcR31Y
rY//h9DKI346Ev2jv78/EeUE+CBbS0t3r/q5TBQKeVOT/tHa2hrzWkl2tbm5
WWuBJXOt6f/KX/Po0SPWR25sbNQ6NUtc96cvQ518xsbGxKMeGfoKfd3qooGV
7BZ/JZMnXaEFlZq6wNT8Fkee1dRpALq9fPmysLCQ367qO4wUpzIzM/mN2tTU
pOY+l5zup2PqsiT+yqdYTE9Ps1O29Z3aSU0C/uYGT0jUYqJlm7wmY9yVl5Tz
137fb0MvTM/05Htk/+WudnnOjhgqnOSoRw6D8ynObvFXkjxiVVNLS4vKPQAf
P35cUFDAr62vr8eSHEgonvz9/PPP2ajLzp07lfMdFDGvX7/Og6/b7aaYqPIO
/xC+ekjHdluSxUeS+EvvduDAAVdo6EnHJEz5aIDWd9ApeLM6Wvgl+T6l6kz5
WpJefdNY/ipa/MWhbCnObvFXTP5y9JXa2lrlpjhVXzdv3hQnlhw9evTdu3em
lRxSE+tOZmVlPXjwoH751I+qqqo3b95EfD21ML/++mt+k1N/ub+/X1MfVkyw
6jhVRDIWKo4/T05Osq0zdGcnxSV49BmNrB/Ub26i4wtJFZJ5PGYOai4YeNrn
q1pu/Kd7dn/f558KBOKxdlm+HT1j4vgA2JHd4i9P/lIN0NXVdfLkSV5T0Vco
Cj98+FCync779++prhBvb+pQXLhwAQ1LSDTe3WOziKnzyLd+ou4thePe3l4K
alNTU/fu3fvLX/5SUlLC72e6S+lu11H9iguIdMQ4ivUUc3kx6GFva2vr7u6m
h4v136nkt27d0pe1ESdXW5f87TueHvoFiz3OfTdVBdLRlrLFV5f59G88H5mY
buCwKW6Ks1X85XNLePOb6jeKpOK8QV7tbNiwoaCgYP369ZJvUSC2cPEypBSe
/OXbPr97946iqvyOFVHv9dtvvzVS8YpzFHUssKXH6s9//nPEjdo2b95s5PER
J1dbNrg64ltcN7Wj4+apbOGT7VY1hvygITt0bdy24xT4/f4TJ05QG+zf/u3f
2BZDiL8pzlbxlyV/qe6iBrnY/P7ll192796tXKexquPvf/+7+jwagEHRzvyd
np7+4YcfvF5vdvZSCKC+T1lZGdW6FN2MRyVx2xx9e8vQ8/Xo0aO9e/eyThm1
eD/77DNq9Bopm2RnLR3nIMdF4NLiBE7PueEPT32FQv3gbZ+Iee1Ee9nStQnG
Zokj/qY4W8XfBw8e5OTktLe3Rxz7okrm1q1bR44cKSoq8ng8LBxT/5fqH4rX
ExOxHy6A+GLJX/OPthTTrJbvFsuJU8EtXFxz+xD9fHdNL/0z0LFDqNeUZ2Et
Ct7cx69NLHbn4HCKFGer+AvgIAbP/DWoqamJP7AR1/CaT5w8qWkddFwNhkaQ
l0abg13i1OaYs7DCrk0cvogMm2OnOMRfAH14d8+8VTYCceNK07Y3V0CtkcOH
D7PyrF279uHDh9aUg02g2tbiZ+PowdvV6mdh+VtKxWsThg9fYP1vikP8BdCH
Leq0apWNeHCD8pGF5hB3XKdAbNXqA9bhzT41yL8yGDYLy9sRPU/FrjUh+cvS
9/o294NkgvgLoA9L4elYgRsvYhfYwpDH8PFwNbtYJ07fnxanhVTfEr4UPgvL
0xi1Zgtd6665k9gS0p/p4MGDrtAicZyMnOIQfwF04AdcWjiFhrrAjY2N1g/5
hu/pUVdXZ11LYNiXH+rkhs0pDp+FlXm8L3LpIl4bf9Q4oT9WWlpaV1dXYn8S
2B7iL4AOPPlr7fm2k5OTfOcZ6lVZEvjEZoCO85LiKXBlcelR/tnh8F9D8Fa1
uHaxuitSr5NdW+JLaPJ3ZmaGbXFgh5Q9WA7xF0AHtvLXDufrdXd3s7XAVh31
xYfBrT9o+04NFcN9VJYKn2MTm5dVRZqFFbpWTBzH3fz8PEvZ41A2YO7cuSOP
v1lZWdhCCkABS/7a4Xw96vPyfaf1nVhk8KezbCbZtWuXtatZB0+Hlg9djxBd
2beWRZiFpXBtXIjbfp45cwaHsgHx+Xzy+Es3CcVlq4sGYFN85e+ePXvev39v
dXE+iPtOt7S0mFm38yOMi4uLx8fHTfu5kbAjCMtaIs6GizELi12bwOTvkydP
1q1b51JxPBakjra2Nnn8dbvdP/30k9VFA7CpN2/e/PGPf6S4Q4+P1WVZMjQ0
xAaBMzIyTFsPxc/a1ndYYZyxYwSzGwYjJ3AVZ2FFSRzHEdvKvqqq6tWrV4n6
GeA0yP8CJAceDc3pir5+/Xrr1q0uA4cVxln/8cVJVvtvR/u+0iys3hp3xMQx
QCIh/gIkjYGBARaCKyoqEtrP4iPeFHy7u7vtkM0cblw89ch7MfrJRZJZWJ+t
JIHZtYlL/gJEhPgLkEyoF1xQUJDQPCOf8UUVBVUgdgi+iyPIny/mdc8+UnqR
//uwJLBvhH15ouPT6IljgIRB/AVIMmNjY19++aXX633+/Hki3n96evqrr74q
Ly+3PufLzd2uUUr+LgufhZXJVhvFSBwDJAriLwA43oPQ0HLEhb1hIs3CYtdG
TxwDJAjiLwA43UTr4qlHZa2xDwGXz8LyN5fGSBwDJAbiLwA4XPDmvtjJ3yXS
WVhnzy4mjkt9TxNeSgAJxF8AcLi+4+kuV3rNbXUJ3PBZWCFI/oIVEH8BwNlG
fIvLh3Z0qB1BnurwSqq82IljgPhD/AUARwtcWty8ynNOfZXFFiutUJM4Bog7
xF8AcDKW/HXX9Gq5JmwWlrrEMUC8If4CgIP5W8oWT18s1DaBSpyFpTpxDBBf
iL8A4ETBKX9fa01h+nK1ta2h72kgqDqSrszCUp84BogrxF8AcJK5vpp0eaUV
ls6VH+8bwfIsrLJm7DsJ1kD8BQAnedpSmu5y/8bjyZf9t371Yv31W5/KYwQH
T+e6XLkNDxJcYIAoEH8BAADM5/P55PH3n/7pn3p7tcwmBAAAAC3a2trk8dft
dv/0009WFw0AACBpYfwZAADAfIi/AAAA5kP8BQAAMB/iLwAAgPkQfwEAAMyH
+AsAAGA+xF8AAADzIf4CAACYD/EXAADAfIi/AAAA5kP8BQAAMB/iLwAAgPkQ
fwEAAMyH+AsAAGA+xF8AAADzIf4CAACYD/EXAADAfIi/AAAA5kum+LuwsNDT
01NSUrJq1arCwsJr167Nzc1ZXSgAAIAIkin+trW1paWliR/k5MmTCMEAAGBD
SRN/A4HAli1bJB8kNzfX7/dbXTQAAACppIm/VGAqtvyz0Ae0umgASWQu6O9t
ObvP61m/OvSErc7N93j3+TruTYiv8reWuUtaIrR9g7er05cfzl/nevI9kf9b
fPOaPrM+E4Alkib+Uj+XeruSD5Kenj4wMGB10QCSwlxgsLW68Nf88VqMvJ7f
uFeet9/W3A4FYX+7l8Kn+2ik+NnfsFpe40S0oyNg8gcEMFfSxN/Z2dnKykrJ
BykuLp6YmIh9MQAomxk8u2Upcq7e0nBzZCLIJ1Ys9oh9uzeGAnF2zZXrNawd
7L2oGD/ngoGpQV+J8Liur7k9GgjMJP6zANhD0sRf8vjx44KCAvFT3L171+pC
ATjfTF/NevZU5e6+OByMOKVxzt/yqdAXdpX6nsZ627nbNcIFnnPOq3MAjEim
+Evevn179erV+vr6tra2qakpq4sD4HwrgTW35pZil3bqSiXP7WY3DMZceTDi
86zUOtkN9+JXZgAnSLL4CwDxNdFethR9Tw3GfHHf0eUucNXNoIp3Fmqd6ttY
KQgpBvEXAKJama7s7VAxkyLYVb30auXkb+i1N/cJlQ5mW0HquXHjhjz+5ufn
T05OWl00ALBY4KJ3qVLY1qJqImMvy+h6zj6K+dLBhuyVOqf0e6zTh5TT2toq
j79FRUWvX7+2umgAYK3Alc+XK4VDt1Vd4W8pdalL/rJXLkHyF1JRQ0ODPP5W
VlbOzs5aXTQAsFbfyvxkFfncRaH+r1tFsA5cElcL7r6JZUeQYhYWFo4cOSKP
v7W1tVYXDcAZ6CEKBAKvX7+en5934vsrGW1ZmSCVebxPzfyoUPzdfT12rF6Z
qaV+cBsgibx9+7aiokIef9vb260uGoADzM3NNTU1paWlZWVlDQ0NJeJHTExM
sFXtR48efffuXSJ+RFRi/HW5sg/djh1WF3fVCEReIBxm2Je/8s5Y+QspaHR0
dOPGjZLgiz0bAdQIBoN1dXX0yGRkZPT09CTuB9HzmJOTQz/oiy++ePPmTeJ+
kEzf8fSwyiH3s7Md9/wqwmssEx1CZHfX3IlDWQGchZ5riraS+FtYWPjy5Uur
iwZgazz4Uue3tbV1YWEhoT+O4jtFedNDcPgSISFiZv6u8njrzcGnqnLCEd53
eZlSiLcDO+VA6mlvb5c/Wvv378eZuZBMJiYmKET+/ve/ZyHM7XZv2rTpxIkT
w8PD+uImPSD19fXseaF/mPC8UDnpI7DjrXfu3DkzY9J0pWD/cemhJlKrC784
e3tU29sOnhaWHpX4/KhvnGZ8fJx6amzwJz8/v0C1tWvXdnR0WF1861GlQaFW
/jjduHHD6qJFcOHCBVb5rF+/Xv3fesOGDVu3bkV3PmVNTk5WV1ezOyei7du3
P3/+XNN7iqGQLp+enk5Q4SWox713714zgz77sX1HY0XgRe6yZvULeP0twrEL
2Sq21QK76e3tVXislF2+fNnq4lsvYvKXWjJjY2NWF02Kah5q8+v7W2/ZsiUQ
wM46KWd+fp6a2ZmZmew2+OSTT06fPt3d3d3T09PZ2VlZWUm9YPatnJwcTVOn
7t+/T214V2ibuEePYm8zEUf0bBYVFblCg95tbW1m/djg4Lelag4NVLHnVUjg
StjSIxWTpcFu7t69S7ci6+bwp0xBdnY2e3FZWZnfj71WPnR1dckbMA0NDYnO
ZOkwOzt74MAB3qWN2e6iqtXj8bDXnz9/3oafCBKKGmwnTpzgXVSKkvJ7gGIu
Py2ruLh4fHxczTtTh7q0dGnfiMbGRvNvrRs3brDPpbXZYFTQ39d6vHJLrmIg
rla1SLi3Rlh6VNaicewa7Km/v3/NmjXi3UA3anNzM7KZcvQ7OXz4sOThoVb9
w4cPrS6aKlTBfv3115LyUy2KlhXw5Cw9/j6fj26VaK+kGoNlhMmZM2diBlN6
Ab2M32wGj5bWt7BXPOe6oqLCtETwirmg/97Nlj9Vlq6PEIrVdIGHG4VTj/LP
DqN6Tgo9PT2SmwFTeaN59uwZW9EgOnjwoFPaKhFXLre2tlpdLrAYD74UWDs7
O5VDqngXqcm88JFniuyXLl0yUs5Xr17xlEp1dbVCI0GONxuMF8OowGBLVXh2
OPbOVxMdn668XM1OWeAI8q0UMZU3mqamJsnviioWql6sLpda1M/NzQ178Nes
WTM4iIkcqY7iUVqImjVBYl8y5rJ3cfpTaWmpkQ3SqWBiZbVu3bonT56ov1ws
ifFuuFFz/pZtwnNY0hJjBCp4M2zpkcqUMdib+CihQ6SM2vnU2pf8rurq6hzU
Vvnxxx8lWWCMdcDIyAgb1VE5PVhSaShv+9bT08MXy1PP2kg56UZlazcYHceN
9fX18cJQW9pIYSII7WEVUN0jD1vMG3MnyQdhpx75nhotLNiBfDYvOkTRyDu/
Ho/nxYsXVpdLg/Pnz0s+AsY6UhzvFaqfTCXJYig01+nNq6qqeLg0uEZAsu/N
zp07NY0/k5mZGa/XG6/ySIXmR2k4EFDcpjLWeLK/OezUo9jHJIETyDtEOEQv
omfPnuXl5Ym/KOuzSBpFHOvAntUprru7Oz2E/qHyEup1igNBCssSxZlahw8f
NtjSa25uFm9dakzqeBPx5FCD/XEJNj+q+pbqC4T4W9aq3P0VDjR0qT5TCWwP
HSI16Bdy7NgxyS+KvuKsXxTGOkBienp6+/btizV6VZX6viTdM3zFhEL+V1ws
QI1VauobKer79+/37Nkjtn71vaE4hZL6wvGbCD0Ryud6zqpf2TziW57QHOuq
ub4aYb9bLVt2gH1F3J8BHSI51kcQf0vqB+vsQ771CsY6UhxbzE73dl9fn/qr
xC6kwvwBcb6E8WkGktZjbm6uvkVzmiaPabC0OUZprHlUK/zfL+eyt7XE2Ely
JVK7Fkef7xkuLdgAOkRqvHjxwuPxiL8ls5fwxwnGOkDEI5GmbqAki6Gw88zl
y5fjeKdJkr8VFRVv377V91big0DlN1KqFcubY6jdlmpucHlCVXbNnRiXTLSL
5xlW38YjmxTk5/igQyRB9ZJkiOCjjz66e/eu1eXSTDJ8x2CsI5U9fPiQLcvV
tK8sv4o9C8PDkY+glWyTbnzrWkny10jcFOu9eO2zunIygrrkrL95KaS6990M
xIin4acp7ejA0qPkgA6RMvG4FiYzMzOhJ5YmDsY6QIKtpdU0DZieiIMHD/Jb
6OTJk9GqC/F+M36nyVuPRh5Dcf5YnJ6CCWExb+z+bLC3ZmkR/vqa2zGjaXjy
13MucoMHnAUdImXy4OvQni+DsQ4QzczMlJeXuzROS+bH6bpCm2koLL8VF1YY
v9MkK391J38ZybyXOFR64ZtjUAGrr0edzzxxvXop+P7a2xJzGe9MwH+1Wlj5
66ps96tfYgy2JVlEEL+mYDLgp4RzBQUFTsz5cpLhOxfGOlLb8PAwtSddWs7N
pPufzxyOOQVCHFvTsVBXQpxx7TKW/GXEfbTi8CAsJX8p7PZ1LG8s6d5YefZi
3/BoIMjee3H/546GLUubP7t/dzzq4b9PfStNDWUxd+0AdSYmJr777jtq47FG
I/1vSUlJZ2fnu3fvVL4D3UI///wzddBUXiLvEGErJObNmzfV1WHtWapAXr16
ZXW59Is41oFdzlIZhV1XeAKXQuSVK1e8Xu/69ev5TZKdnU1faWtru3btGovX
LPgqHzgi6WBSU1Z9wagM/IhD9ajCvHr1qvqfQn1efq3xFHBo5e/ySb5zgcHW
3Z706GX9dWF166BCznfiamUoSLszN3o8+RH/WzpNKfc0uktGKR91nZeXd++e
qunm7IAt9XuiiosIGKqiqaI29mkc7/Hjx5s3b+a/k4yMDPpFGWy9W04yfOeK
78oLcJqFhQW2nr28vJzNfJ6dnd21a5eaSFdaWhpz7HdqamrTpk38EvUDvBEb
impoXQ4srsXTuo+0zMSVz1eXNYaH1LnA8K2Ws/u8PFa6f+Mp/eJ4Sy9Gj+2C
noLr16/HPISXQkDMyQavX7/eunWrS3U2RzI7kUGHSNJup6rG2INpF5LhOxfG
OlIbdfeo0+cSeqZ8OFrZqlWrqH8a84AGybupj4wUf7/55puCcJKjq8VTqjmK
2tPT0+p/A2IJ6c0pHKu/FpIARcCmpqaYR6IzOTk5IyMjCu/W2dnp0nIQLTpE
EYlrGylgUetI0xmjtoWxDhDJk78UvHbs2BGt/snOzubdBDXdAQq4/NqsrCyD
EyckmTJ6Quk5NfKGH2SzXzDvNKVQA5KqRJXBl9m7d2+0UVDq/FJPzaVlKqO8
Q6TjMJHkQ7+9hoYG/nehf1RXVzv91xJxrKO5udnqci3W0jEHfxJk69atjtu+
LI7YzhiScVdqalJcvnr16qlTp+pDfD4f/Y2orU71lWTylXJ3QMyuGh7djefK
X47qzKKiIv6e+raSBocSp/Ezn3zyyYkTJ6g5St+iR+DIkSOSc94V9ojT2vn9
EP6AMOgQMVQL/fDDD+JfJy8vr7+/P+aYm21JqhqXbcY65AdPmyaVhxzlyV+V
VzU2NvJfoEJ34EN4xNy0adPU1JTu0sZ35S8n2cWrtrbW+HuCI4gn6bAe1osX
L+TVOwUCqvYLCgr4TRJxj3Stmd8PUTpEaAGKKDyJ7R+3233hwgWHrtaRj3Vs
3LhxdDTa4gfzvHr1iu66eitcuXLFoX9N4+TJX5X8fn9u7tLiGuXWPoWzeMVf
yUCxwZW/nCT+Gl8hBY5ATz1fWKqmY0V1FD9qkyICxW7JC9gO6vQ43L9/X2UZ
+AOI7oCCoaEh8cBB+hVRr0H9cjD7ELfhRW0DdGNnZWW5tKz8ZSTH/iq02MX4
a3CtriT5q6nProBq3SNHjvC3jUtOGeyP755KdbvKaQnj4+PFxcXsPpFMUebH
SSsPB0nYtkNkN2LOizlw4ED8DiwzA8Y6QCJi8lclMbBGi1mSEWODoU0ydTBu
xyWEfxZNYd3lQPH6pTkaNbpYzkvNHEIRvZg1AiU3c19fHzs7W9PxYegQqScZ
iCa7d+92UAjGWAeIeHtMX0dSzcCyZGjXSPyVtx619tkV6B4kNxgKLRGvX5qj
8VU/mvZc/RBal1pVVeUKT3/QF6nb69J4h0sGXhh0iBS0tbVJZqrX19c7JXvI
Bxs5jHWkMt3JX0aMWdEOP4pj/JVMHTQ+lVqE+GsExRGfz6dpCY9BH3/88YMH
D4yUmW4euoW0dlcZlud1CS1ANpRNX6RvqX+fiB0iTVvHpBr5QQz0G2ttbXXE
jGj5WAdSXamM5550dCQlA8smxF9JpixeyV8G8dcIyVZF5rBwmTY/z4tlQPhQ
dmlpqaazReQb3cRrSmESm5ycZCusOa0ZBEvwlSaiOGbQwHGMJH8l86+i1Rtx
jL+S1iPdzHFs9CL+GjQyMsKXipugubnZ4KEbRvDGJ8vVjo2NsWn5TU1Nmt6H
7bsuMn6YSCro7u6WHFfh8XhevHhhdbmU8DPmRPZvNkCCGEz+So6QjhazJD0j
3fFXnvylcKzjfaKJ4yIpSAXsSC92q7CWYV5ennxFkjLJsXoudIjU4dl20cGD
B+2cCGb5DrHAGOtIZTz3pK8jKRkNVpi0qWaatPrSMtGGu3WLSyEhdfAjw+hB
YNOxKHRqeo4idojiOKUwud2/f5+tHePS0tLs/NuTj3XEN4MGzsIDqL6OpPql
QGJoKyoq0pQg4yRTB42fEiiKVycdUgdfin7ixImMjAwduwjKO0TxnVKY3Kir
Sx1eSUTbunWrvurFBPKxDn2zXhPEwv2ft23b5vRtvXVgu87qOxCBL8FglCeR
spE6RvfQriT5e+TIkTgmf7H/FWjFp06xKOz1erX2ZdAhMogtuJb8Du15bqP9
xzqw/7OZeDpV30Au3ziIoQaMwnl/Yk9Z33o3+dTBaH126hTfuXPn559/1pQJ
kswlw/7PEJNk/kNnZ6fWd5DXePGdUpj0+IZjouLi4omJCauLJiXu1svEPYNm
EPZ/NhNfS6vjNuCrLXjr5dKlSwqvF88f1HfXSVqP0frsvGBaR6epS04dc/7+
2AABYhLvGR2tSkmTT7lVCdE0NTW5ZHS0hRKtp6dHUsj4ZtDAWXjyV0dAFI+M
Idu3b1c+7F5M3eo7bEuyTDLarfvixQuPx+PSvgxE0jpFNQgxifFX6w5aHxLT
IQoGgxcvXiwpKaGm9TfffEM9GiPv5gjyBdQuXbmARMNYB4jEI0c1rUGjekYc
ClZz1ItkpE7HkjdJpmz//v3y6o5u5jNnzrh0LQMx3kKAVMPjr74dq+LeIZqd
nf3qq6/ENywuLk76Y80j5lU1Hb5sAox1gEiyllbTugkKhXybQZU7v0luv+bm
Zq0Flsy1jjjF4tGjR6wl3NjYqLVhKVaG2JEV1ODxV+ueV4y8Q2RwSiHfElOk
o2PuOBEnDtkqhSQf69A36xWSA995nlHfYaQ4xeeo08Pe1NSk5umWbDKvo56R
xF95d2N6enr79u0uFYPhEVGTgL+5iRsQTbRsk9ccjLvyknJXyO/7beiF6Zme
fI/sv9zVLs/ZEVM+RKri8Vfrst8PUXptBjtEEcNQKuzwIB9JcNlsJrl8ojuS
v6mMJ38///zzjIwMV2jFjfLtSjXM9evXefB1u90UE+fn51X+RHH1kI5HQ7L4
SBJ/6d0OHDjgCh2JrqNVKR8N0PoOOgVvVkcLvyTfp5QLVL6WpFfftEv1k5xY
5lHH4DPdb3/729/kC2f+/ve/GylPtPUjtlrkkgjyZdQuO62kps6OfPB5x44d
9mkegMlYdzIrK+vBgwf1y4eJVFVVvXnzJuLrqQn99ddf89Et6i/39/dravOL
CVYdbXK+vy4jjj9PTk6yrTN078Eu7qxl2ekzcxMdX0ie0czj/TGvCgae9vmq
loe20j27v+/zTwUCWLuceHz/K+VJU3R/Uiu3YFl2drZSq8nlohfwF1OYVl+e
iIthXbrSPc4iP0OKsaThcfHiRf7n83g81E9R+FvTd+k17MVffvmljoE7cBze
3WNjINQM41s/UfeWwnFvby9VGlNTU/fu3fvLX/5SUlLCIy/dMNTM1jE8Kw64
6YhxFOsp5vJiUKXX1tbW3d1dW1vL+u9U8lu3bulLn4lTKK1L/vYdTw/9gsUa
dN9NVYF0tKVs8dVlvqeJLiQs4Q9RzP1k6FbXfSyjphFpKtLJkyflPyvpF7NH
O3vL/J20Jdv4aIIR6RTBk798Avy7d+/oXlVuqlHv9dtvvzVyKoE4PqZjdgRV
L3/+858jVmWbN282MplBzM5EnFlthhHf4rqpHR03T4n9o92qxpAfNGSHrsXT
axo+IBMzmUJ92AKNNmzYQPe5jmn88/Pzd+/eraqqKisr8/l8u3btcqVA/P0Q
vsMtt2fPnvfv35tZDOrAUjdW65+bJfXOnDmD5UipINqZv3Tz/PDDD16vlw+R
0Y1BDzLFSopuxqOSOD6mb4Ee3Z+PHj3au3cvu2Op5/vZZ5/19PQYKZtkZy2r
kmWBS4vNZs+54Q9PfYVCHeJtj72Tz0R72dK1YBbeq7WswRYLn/SYCvFXMj+T
sdUULACG3avmz08Q0zT22XtNnApOPRrq11hSjNuH6Oe7axb3QA107BAqEeVZ
WIuCN/fxa8EkfDDHVutcRHws1J77IcdXxPiLU0TBbgye+WuQuFmcTaoFMT2n
YyFJnAyGRpCXRpuDXeLU5pizsMKuBROIkxlse3765OQkGyG3Zj6hucQdbrlU
WHsFzsK7e5Yc8y1uXGmHPeKoNXL48GFWHiv3zGETqLa1+NlAZvB2tfpZWP6W
UvFaSDw+Yc8+i1zk2PGIKRKDIsZf+wyyATDsqbRqlY14cIPykYXmoPZATk4O
K4+FOwWxDm/2qUH+lcGwWVjejuhJYHYtkr9m4qvRbTtnlT9oVVVVqXCSJuIv
OAJLlFjYKha7wJZvjsfHw9XsYp04fX9anHlefUv4UvgsLE9j1GokdK275o4J
xYRF4mZutp18xQ8iseFJQImA+Av29/79+z179tCdWVlZOTs7a0kZqPpqbGy0
fsg3fE+Puro66yrSYV9+qJMbNlUkfBZW5vG+yKWLeC0kkDiN0J5b6PNHzML5
hCZD/AX748lfaydtTk5OlpaWsmfk4MGDlgQ+sRmgY6FlPAWuLM5SzT87HP5r
CN6qFtdjV3dFGkVk15b4kPw1Dd/Jbc2aNYODg7EvMB0/iETrKZzOhfgL9sdW
/trhfL3u7m62FjgjI6O/P+Y2i/HHh8HT0tIuXbpkfgFW3KmhYriPylLhc2xi
87KqSLOwQteKiWNINJsnf1+9esW651u3btVxKpNDIf6C/bHkrx3O16M+L993
Wt+JRQZ/OvW72U/ftWuXVUPxzODp0PKh6xGiK/vWsgizsBSuhQSpq6tjfw8b
np/O95K1qllrFcRfsDm+8tf8bdkiEvedbmlpMbMq40cY2+CAcnYEYVlLxNlw
MWZhsWuR/DUP39SC7p+uri6riyPV3t7uUn0qdzJB/AWbe/PmzR//+Ed6Ntva
2qwuy5KhoSE2CEzNddPWQ9EPZWuO9B1WGGfsGMHshsHICVzFWVhREseQODz+
lpaW2nB099WrV1VVVRcuXLDnrOzEQfwF0IFHQ3O6olRnbt261WXgsMI46z++
OMlq/+1o31eahdVb446YOIaEYSsIrJ8zAOEQfwH0GRgYYCG4oqKCGvCJ+0Fi
dqy7u9sOA3TDjYuLNL0Xo0/jkczC+mwlCcyuRfLXZFNTU0+fPrXDzQMc4i+A
btQLLigooEeG4mOCNqXkM77oqaSn1R71Z+DK54t53bOPlF7k/z4sCewbYV+e
6Pg0euIYIJUg/gIYMTY29uWXX3q93ufPnyfi/aenp7/66qvy8nLrc77c3O0a
peTvsvBZWJlstVGMxDFACkH8BQBtHoSGliMu7A0TaRYWuzZ64hggdSD+AoAm
E62Lpx6VtUY/XGGZfBaWv7k0RuIYIGUg/gKAFsGb+2Inf5dIZ2GdPbuYOC71
PU14KQHsD/EXALToO57ucqXX3FaXwA2fhRWC5C9ACOIvAGgw4ltcPrSjQ+0I
8lSHV1K/xE4cA6QExF8AUC9waXEbJc859fUDW6y0Qk3iGCAVIP4CgGos+euu
6dVyTdgsLHWJY4AUgPgLAGr5W8oWT18s1DaBSpyFpTpxDJD0EH8BIKbglL+v
taYwfbmO2NbQ9zQQVB1JV2ZhqU8cAyQ7xF8AiGquryZdXkOEpXPlx/tGsDwL
q6wZ+04CLEH8BYConraUprvcv/F48mX/rV+9WFn81qfyGMHB07kuV27DgwQX
GMA5EH8BAADMd+fOHXn8zcrKstFm7wAAAEnH5/PJ429aWhrFZauLBgAAkLS+
++47efz9x3/8x7/97W9WFw0AACBpIf4CAACY79///d8jjj/funXL6qIBAAAk
revXr8vj77/8y7/cv3/f6qIBAAAkLaw/AgAAMB/iLwAAgPkQfwEAAMyH+AsA
AGA+xF8AAADzIf4CAACYD/EXAADAfIi/AAAA5kP8BQAAMB/iLwAAgPkQfwEA
AMyH+AsAAGA+xF8AAADz3blzRx5/s7KyhoaGrC4aAABA0vrhhx/k8XfVqlUP
Hz60umgAAABJC+PPAAAA5kP8BQAAMB/iLwAAgPmSNf6+e/fu3LlzOTk5GRkZ
n3/+OaaTAQCArSRl/J2dnd21a5f4iSgK0ye1ulwAAABLkjL+DgwMpKenSz7U
nj173r9/b3XRAAAAFiVl/G1tbZV/qE2bNk1NTVldNAAAgEVJGX8vX74s/1Bb
tmwJBAJWFw0AAGBRUsZfKjx9BMmHqqurm5ubs7poAAAAi5Iy/i4sLHR2dmZk
ZPBPVF5ePjk5aXW5AAAAliRl/GVevHjh8/lOnTrV09MTDAatLg4AAMCKJI6/
AAAAtoX4CwAAYD7EXwAAAPMh/gIAAJgP8RcAAMB8iL8AAADm6+zslMffjIyM
/v5+q4sGAACQtNra2uTx1+12//TTT1YXDQAAIGlh/BkAAMB8Tom/T548ycvL
kxdV2fr16wsERUVFhw4dunz58ujo6Pz8vNWfCRzjwoULaWlp8jtK2YYNG7Zu
3fry5Uuriw8AduSU+Nve3q41+CrLycn59ttvcSIhxBQMBnfu3KnvNsOpWwAQ
jVPi71//+lferaA+SLTqzu12ezweSTckOzs72uszMzNbW1uxOzQomJ2dPXDg
AO/Sso6wAvEmPH/+/MLCgtWfAADsyCnxV2J+fv7QoUOSYp84cUJhVJlq0aGh
oTNnzmRlZUkupN7Nq1evzCw/OBo12L7++mvJXVRcXOz3+60uGgA4hkPjr3xI
kHol9FnUXPvmzZvq6mp5CJ6ZmUl0sSE5vH37tqKiQnILtba2Wl0uAHASh8bf
ycnJ/Px8scwbN24cHR1VeTmFWnlGr7GxEUOFoAb1c3Nzc8WbZ82aNYODg1aX
CwCcxKHxd2BgID09XSxzZWXl7Oys+ne4d+8e1ZniO1BAHxsbS1yZIWnQUyPJ
AhcWFmKeMwBo4tD4K58O3dDQoOkd5D1ocvny5QQVGJLJ+fPnJXfO/v375+bm
rC4XADiJE+MvVXRU3YkFVp/85aampjZt2iT54LW1tQkqMySN2dnZyspKyZ1D
DUKrywUADuPE+BsIBLZs2SIWODc3V+vU09HR0Y0bN0o+uNZBbEhB8jsHyV8A
0MGJ8XdoaEiyhqiiouLt27cG38QVmgWNtcCgrLe3V5L8LSoqev36tdXlAgCH
cWL8vXHjhqTAWpO/Ed+E1NXVJaLAkEyQ/AWAuHBi/KUoKSkwBVNN77CwsHDs
2DH5B9f6PpBq3r9/v2fPHsltg+QvAOjguPg7MzNTXl4ulnbdunVPnjzR9Cav
X78uLS2VfGqsP4KYkPwFgHhxXPyVb31A4Vjr1lV9fX2S5cMu7F8EKsgXniP5
CwD6OC7+yvO2WpO2wWBw7969kjepqKjA/pMQU3Nzs+TOQfIXAPRxXPxtaGiQ
lFZr0ranpycjI0PShcHO+Y5DUY/u3qqqqszMTPZ3pH8cOnToyZMn6vcRHR8f
p/vh6dOnal4cMfmLYRMA0MdZ8Ve+773Woj579kyy7UZeXt7Q0FDiygxxNz8/
39XV9fHHH8tvXVdoM5Zjx469e/cu5vtMT09v377dFevkLO7ly5eFhYXiz0pP
Tx8YGIjHZwKAlOOs+CtP/mo635zibEFBgXj5H/7wh+fPnye0zBBfr169kp+d
IafmQKtLly5RsF67du3Dhw/V/OjBwUHJnuHY9hkAdHNW/JXve3/kyBE1g43U
02loaHC73fxC+jd9RU0vCeyDGmBFRUUxgy9z8uRJhcwsnwN/+PBhlQnc1tZW
yY/Ys2fP+/fv4/f5ACCFOCv+yrc+UFh6Sd2fZ8+edXZ2lpeXi5GXIrjX6/3l
l1/MLDkYNz4+XlxcrDL4koyMjP7+/mjvRjcGvUZ951e+6zhpbm6O3+cDgNTi
oPgbcd97TahCrq2tpchrwjm/VNqvvvrKSGl1o8ZGW1tbkp1lLD+ymf6aX3zx
BfVJe0J8Pp+koUWqqqoibiiqo/NLl0i63kj+AoARDoq/EU9MUGnVqlVUP5s5
VChPVZspyTayprbEmTNn+Kf7+OOPb9y4EfGvOT09ferUKZ6koBDZ19cnf5nW
zO+HSMlfuhvpnjT0wQAghTko/sr3va+oqOiJorOzk74rvl79tNi4oJBx586d
eis0NDQk2aQyuhvpnmR/xNraWuWzNug3f+3aNb7EjH4bkqEA6kp7vV761sGD
B9Uv3b18+XJyN3IAwGQOir+akr+MfMLz7t27sc+Gs1CIPHz4MAu+ylOqOAq4
ra2trPUln6Lc1dVF31LODsvLIE/+0g2p5/MAAIQ4Jf5SR0OS/lO57y6F4Jyc
HPHClpaWJMuNJrdnz56xv6CaJUUcny1AoZZucv51upGqqqpc0VPDEcmPnKa3
7e3t1fxhAACWRYy/Nqxb5MlflfvuUqg9d+6ceGFeXh5V6SaUGeKCrfrRlKtl
+C7f4vGU1Oelni99vaenR/1byU+LRvIXAAyKGH+J2GWwA3nyV/2+u/I98zs7
OxNdYIgXdtykpu4qw/O8/IQOPpRNX9eUhpAnf6lzTV1sbZ8EAEAgj032jL/y
5K/6fXf57B1O5a4d4HTstsnNzWX7e/OhbE0NsIinRYt9agAAHeSxyYbxV77v
vaall/LPiM5LimDNS55PaWpqcmk/6Fl+5DTRNHwNACA3OTlJ1ZE8/trqVBd5
8pfKTCVXeTlVlZJPh/ibIvidQ/czn0N15swZTaMfT548WbdunXj/8A41AIBu
8hOFGK2H6iaUfJBc07678iMLa2trE1pgsAnedaW/OJuOlZOTo3X2nfzIaZ5Q
BgDQLWJuy2WzvQXkyV/1++5G3LXSVq0LSByeufj0009ZO1PHiQlsAhjuHwCI
O/ncTpfGAd6EMpj8jbgPpAmj69bu/xxzZ5LUQT1fV2gD0rSQrq4uTZdHTP5S
jzhBpQWAlMInhYrss7e8PPmraemlfPDQZcrkGez/bBPi4ElpaamaNeMi+d/R
hrvTAIBD8R2BJGyyvZ585a+m4CIfPHSZMrsb+z/bhHhor45bWj55b8uWLYFA
IBFFBYAUxM5CldC6R0GCyJO/6mvRiMlf9F9SCo+/OnbQ+hBp8t6xY8cMLh7/
5Zdf9u7dW1BQQI8YNdKwFB0glY2NjclXIancYDmh5Ns+a9obc2pqatOmTSrj
b3t7+z//8z8fPXrUzGMKIdF4/NWx6Czi6oDLly8bKc+PP/6YmZkp3s9UQoRg
gJQlOV+Vk5/dZjKDyV/18ZdPszHeuwFb4fFXx6aj8uRvVlbW0NCQ7sLwLTFF
+jrmAJA0nj17lpeXJ6kZPB7PixcvLCwVdRYkyV9NvZiIk1cjxl+2ODTace3g
XCz+6lj2+yHS5D2Dyd9os/KwmyVAKqNOX2Njo7xmaGpqsqpI09PTkpVH5NCh
Q/Pz8yrfgT6UPH8nH1enMM2GGbEvVvJh6490/GVfvnwpH3zesWOHkUkR0eIv
NvQASHETExPFxcWSmsG0LjBVTWVlZQUhYoIsooyMjPz8fPbiixcvKrxtxH69
OBT57t27o0ePsvdUfyA7OIK4/5XyK+kuKlhG97zb7Va4/ei79Br24i+//JIa
iirLE22tgX2W2wOAVbq7u+XHIWndL1efiNuAqBFzM42enh6KreIlFN/Pnz9P
X79y5crmzZtdmAaTpAYHB9esWRPzJok4T14lrSPSQ0ND8gYh5uQDwNzc3MGD
ByWVgzkdQ5/PV6AF66Tk5OSMjIzEfPP//M//ZHE2IvqAP/zwg/phbXAKduCR
K9aOVdSBpW6sptuPj9LoaJ1OTU199913JSUl+/fv//7777OyshB/AYCMj4/L
R6G3bt2qdeMgu6Hw+ujRo9OnT1O9x8e3KfLu2bPnl19+sbp0EH+8V2uHlXTR
UHcY8RcAOKoT5DtS1tfXU+/Y6qIBqMUnO2las2ayH3/8kUq4adMm6hRbXRYA
sAV5zhQZUnAWvnqooqLi7du3VhcnsubmZhcm3gOAgOIsRVvJ2luKyNeuXUMI
BvsTD9a07XGB/GwvrP8FABHVYG1tbZKFGAjB4AiBQGDLli3spjW4Y2TisKPH
sOsLAMhRnKVoKxmIpohMXWPMFgY7Y/Oa7Dz5iu94o+NURABIEffu3ZOsWExL
S6utrbVtTg2ALye37XGBL1688Hg8Lku3mAMA+xsbG9uxY4dkRvTmzZsfP35s
ddEApKhreeTIEXaX7t+/34bz9qlILD2dn59PD5fVxQEAW6Mao7W1VTIWHXNb
PwDz2Tz5S82Dzs7OtJBLly5ZXRwAcIbJycnq6mo+LxrxF2zoyZMn69atc9l1
X0e+uG/v3r3BYNDq4gCAY1Dr/f79+6dOnaqvr+/q6rK6OABSbFML4vV67Xau
0OvXr4uKiqhsxcXF4+PjVhcHAAAgbnj8FQ+6sglqvl6/fr28vNzv91tdFgAA
gHgaGBhIT09Pgk3LAQAAHGR+fn5oaAjr4wAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDp/j/9EI6O
    "], {{0, 191.5}, {320., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->144],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{165.0000000000002, Automatic},
  ImageSizeRaw->{320., 191.5},
  PlotRange->{{0, 320.}, {0, 191.5}}]], "Text",
 Editable->False,
 CellChangeTimes->{
  3.7948276525291224`*^9},ExpressionUUID->"6f5c62ce-52e0-4ee9-a283-\
23ddbf8fd791"],

Cell["Una opci\[OAcute]n es (UVA toma x0=0)", "Item",
 CellChangeTimes->{{3.794827947590088*^9, 3.794827964706377*^9}, {
  3.7948312909471817`*^9, 
  3.7948313032182903`*^9}},ExpressionUUID->"15b8163f-0c8e-4511-8dcf-\
3b427167b357"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3f1PVOfe7/E75/xyfjz/wvkb5gfOpCHRNE7YRGK5wWMhBTZsOXK0ooVO
DJ1dt7ilu1gt1aLV6rRhE41otJBo2UTRWoSI1pKBTURuwE3dYxQZkUHQMQM9
F7PgYrnmgTUPax6Y9yv3vUNxHq5ZM8P6rOvhe/2vsl3/+X//23/8x39U/w/x
P/9Zumd9VVVpTd7/FP+xubL6/22rLN/6h8qPy7eVV/3vsv8ufvlf4v8/Fj8s
/vw7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAABY0yYnJ9va2j788MP169ebTCaz2VxSUnLy5MmxsbGF
hYVEtw4AAACpweVy1dfXZ2RkmIKorq5+/PhxopsJAACApDY/P9/e3m6xWJQM
+cEHH3z33Xc9PT29vb0dHR02m81sNiv/lJubOzo6muj2AgAAIEl5PJ6TJ08q
3ZXV1dUjIyP+Y98iTxYXFyvxsry8/NmzZwlpKgAAAJKZ1+s9ceKESIwiW7a0
tIicGeyW/f39ygxM4fvvv2fuJQAAANRksBShsaOjI3RcnJubq6mpUbJlUVHR
xMRE3NoJAACA5Hf16tUMn7a2tlX7IV+9emWz2ZRsmZmZOTAwEJ9GAgAAIPk9
fPgwNzdXBMUTJ054vd5Vb6/OlsKVK1fi0EgAAAAkP4/HU1dXF9bCHPWYuNDW
1mZ0IwEAAJASenp6Mn3EDzrv4nK5ioqKZLa8du2aoS0EAABASpiZmamurhb5
sLa2NsTCcI2hoaENGzYw3xIAAABq3d3dGRkZIh86HA7992pra5OdlqWlpc+f
PzeuhQAAAEgJckmO1WqdnZ0N914Ku91OfUsAAAAMDw9nZWWFO2FS3kvYuHHj
2NiYcS0EAABAqrDb7eEWP/d6vYcOHZKdlt9++62emkUAAABY22ZnZ6uqqkQ+
/PLLL/Xnw97eXrnbY0VFhcvlMrSRAAAASAljY2MbN24UEbGrq0vnXUZHR5US
64L4QfynoS0EAABAqhCRUjNh0uPxdHZ2Wq3WvLw8Oeqdk5MjfnP58uWffvpJ
yaJKsBweHk5s+wEAAJAkFhYWGhsbRUqsqqpSVoi/evVq3759Jh0qKiqcTmei
XwEAAACShdvt3r59uwiKx48fV34jh8hDe+eddzo7Oyk6BAAAAMl/suXMzMye
PXuCRcqcnByLxaL8vH79+t7e3sS2HwAAAMnj2rVrIiVu2rRpfHxc/nJ+fl5k
zuvXr586deqET0tLy717954/f76wsKBZyPPw4cPENR8AAADJwn+ypc57nTt3
TvZk1tXV6d9/HAAAAGuV/2RLnZxOZ35+vpIts7KyWCoOAACA0dHR7OxsUziV
LRVzc3M1NTWy6/Ls2bMGtRAAAACpIuBkS52OHj0qs6XNZnv16pURLQQAAEBK
8Hq9Bw8eDHeypaTOliUlJVNTU0Y0EgAAACkh4smWCnW2VO/pAwAAgDQ0NDS0
YcOGCCZbCm/evDlw4ADZEgAAAIpoJltq1vLk5+ez+SMAAEDainKy5dOnTwsK
CphvCQAAgN9Vky0bGxsj2BNcjqcr9u7dS/l0AACAtCXD4bVr1yK4e1tbm3qT
cbvdHvMWAgAAIFVcuXJFZMLs7OzR0dFw7+vxeGpra2WwzMzMdDgcRjQSAAAA
yU9Otoxsfffw8HBWVpbMljt37pyZmTGinQAAAEh+09PTZWVlkWXLhYUFu90u
g2VGRsbVq1cNaicAAACSn5xsGUG2fPTo0ebNm2W2rK6uptMSAJBUFhYW3G73
9PT0/Px8Kj4+kHKUyZaK3t5e/Xf0er2NjY3yvllZWffv3zeunQAAhEucqs6f
P5+RkRHZmgI9Jicni4uLxXnwyJEjr1+/NuIpgBQiJ1vKJd76axB1dXWJb6sc
DW9ra4ugfhEAAAbxeDzHjx8XJ6n169eH1XkSroGBgdzcXPFEn3766cuXL417
IiD5PX/+vLS0VGbLzZs3P3r0SM8dxZfUYrHIYCmuCkVMNbq1AADoJINlfHo/
xGlRJFjiJSAnW37yySfKl2Lv3r2ht+YRX8+bN2/KYGk2m8V3lkkmAICITU5O
ilPJhx9+qJyJxJmlpKTk5MmTY2NjkWVCr9d74sQJ5TwlfohD74dop3gJynDe
qmdSYA1Typ5nZ2c/ePBAfg1ra2uDXXM5nc7PPvtMDoVv3ry5v7+foXAAQGRc
Lld9fb08rfirrq5+/PhxWI+pjnnxXGTq8Xjq6uriGWiBZCMnW27fvt3tdouL
LHGppXwpLBaL+F709fWJb/3U1NTg4OAPP/ywbds2+fUXF5V2u31ubi7RLwIA
kJLm5+fb29vlKNgHH3zw3Xff9fT09Pb2dnR02Gw2caJR/ik3NzesZTj3799X
Ci9v3LhxZGTEuJfgb2JiQinrJ06Xly9fjudTA8lATraU24i/fv1aJEb5dQ4o
Ozu7qalJBM5ENx/AWiaCh0gFImxs3bpV+aOkjJN+/fXXDx48YB5OqvN4PCdP
npRdi+K99h8CE3lSWX8tlJeXP3v2TM8ju1yuiooK5V7nzp2L/8iaXOgabiQG
1gA52VJ8EdS/n5mZ+fHHH61Wa05OjuzGrKysPHv2rPia0MkPwFAiDAwODsp4
ENCWLVu6u7tJmClKToYUGaylpUXkzGC37O/vV2ZgCt9///2qQVHcQNxMxtHJ
yclo2hlZ4cpXr17ZbDalDTU1NUy8RFpRJltu2rRpfHw80W0B1po3b95MTU2J
s4yhz3LlypXCwkLxXV4z2xaImNHU1KSub/bnP//5+vXrvb29PT09R48elUlD
qK+vZ0FuypHBUryVHR0doePi3NyciGfK211UVDQxMRH6weVoePT7xL148ULO
ExOftBAB2J+MxGxXh7QiJ1tWVVVxVQXEkLqWgvjfgYEBg55ofn7+yJEjcgq0
+NnpdBr0XPEh/hZ98cUXMjpWVFT4X/m6XC55xhd27Nihc6gUSUJkrQwfPXWB
1H2AmZmZob9N6qU04sMzPT0dcSM1OxqH2wmjbkn03adAqpCTLcXXJ9FtAdaU
R48eKVWUFcePHzfuudxu9+nTp2VXnjhfW63WgFPXkp+6aEzo0Cgi6P79++Ut
qfeSQh4+fKh8O3Quo1ZnS+HKlSshbtzb2yvyp3LLjo6OaNqpKf5cVFQkLmrC
egSHwyEbc/78+WgaA6QKcfUnPvbiTHTv3r1EtwVYU5TZJtKlS5eMfsaZmZnm
5ma53lbptPnll19SazqiOhiI+CFCSIgbi9hZXl4uX6845vFqJiIne/P0L8xR
j4mHfqPFg9fW1soouOroeWjKKVJ9/RLWmPjvvisgcaEXq/YAKUE5/eXn56f6
IBqQVN68eXPgwAF5ShKXb319ffF5anEWvnjxYnZ2tnz2LVu23LhxI9xzYkKI
eFxdXS1brmf/2Y6ODnn7wsLCJ0+exKepiFhPT0+mj/hB511cLpcIZvKNvnbt
WrBbqlf9fPnll1EuOxWXhOorxLNnz0bwIOrLzCj7UYHkJ09/NpvN6LUGQFrR
nAoLCgqePn0azwa8fv36xx9/FKlStkGkTZE5k7wabXd3t1y/s+q0OoW4LhZX
x/JlMuyY5OTlQ21trf7rHVnPJPQHQyRJkSflBV2U43H+V4iRPaB6eozVamXm
BtY2OZMksmsxAMFohtISdfkmTrU9PT0lJSWyJRaLJWkr06pHM/UHcnGmrqqq
kveKcu0GjKZcPohvh8Ph0H8vddefOG2Jk1fAm01MTMhruhA300l8/MSHUD5v
xAN8YS1EAlKdciXIRx2IOXG9ph5KS+xaufn5+V9++UVdKNJsNjc2Nibb1K+x
sbGNGzfKRuosXiGLXchzd1ihBfEkU1ZY3XeahTwhZkpcu3ZN3kx8KqIcENdc
IdbU1ETc7a/+g8DKWaxtypVg/EfrgLVNM5Qm9Pb2JrpRiwnzwYMH4pyu3rN1
//794+PjSbKc/MqVK+qDpr+z9+jRo8mT5BHC8PCwUnYyxITJEPcy+XZvFNcg
AW+mucoI6ykC0ky2jOZzpY6pyvbKUbYNSE7yayhOguJUmOjmAGuHZrJlUq2V
EzFShMl9+/apy5InQ8EiTTAQRGLUeV/Nknyq9SYtpVZkWMulxQfj0KFD8s39
9ttvg/VGqoewN2zYMDQ0FE1TY3uFqP6bEH3bgKT18uXL3bt3i9PK5cuXE90W
YE2J4VCacUTcra+vV3boVuzatWtwcDBRBYvcbvf27dtjki2TKsxDkjNjw1q+
LRKdXPddUVERorzkvXv35BVTWVlZlNNuNZUto/xQeTwedan/0PU5AQDQ0ESd
ZB6inZqaUhddF7Zu3drT0xPlRLUIjI+Pb9q0KSbZkjnkyUnOp+3q6tJ5l9HR
UbnCWvwg/jPEjdVzGiMoRKmhXpkekytE9f4+0c8FBQCkD/+x3WSYbBmaf9H1
+JfE1HT2msIphH7v3j3T2/SnF8SNeFNMb0+YFB+wzs5Oq9Wal5cn37ucnBzx
m8uXL//0009ybZcIlsPDwyEeXNMxGNY2WKIN6g58nTIyMq5fv67/WdTTiZly
CQAIaHp6evfu3eGekoSdO3eKOJfo5mspJTHfe+892U7xs/iN+H0cnl0kcM1R
iiZbskFPsllYWGhsbDSpZsO+evVq3759er4vFRUVq45HT01NqWtt6R909p9X
qVO45S77+vrkkH24+5IDANKEf1ebTsm8W4HH47lx40b8i65rxrVN0WVL/ePp
iA85n1b2KGpKTgXzzjvvdHZ2rrrQTPNo+lOfyJanT58ufpv4/MscaPJVVCgs
LNTcRiTSsK4Q1S2M50ZdAIAUMjIysm3bNs0ZRz2ybPIN8BX70b/VXaJ4vd67
d++qS2KK19Xc3GxcdyvZcm3zn2wpPkt79uwJFinFF0d+ldavX7/qxBL1Z0Bc
DYWembkqI/Y+0JSPYDkPAECPWG0SlyTm5+cHBwd37dolX5E4y58+fdqIbX2O
Hz8ew2zJWolko1Q114wFiw+YyJzXr18/derUCZ+Wlhbxbj5//nxhYUGzkOfh
w4chHl89mzH6EecYVraUpqeny8rK5GMatB2eeOGbN28OltgNJZ43ykgPAPCX
zJUtIybO8iMjI5qi6zHvddHUPzdFly2TedZBGvKfbKnzXufOnZPvaV1dXYjF
Zeo0WFJSEs3lj0F7H2h2FzKoa129M1H80RkLADGXEpUtI6DsGllcXCxfWljr
cPUgW65h/pMtdRKXZuICTXlPs7KyQiwVV39+osyWBl0harJl9FWSAnr9+nVr
a+uJRBDPG591fwCQVowYSkusuC3tIVuuYaOjo+JjYwq/NpT4mIkLNPm2hhhH
Vn9+orym01whxmqbp4WFha+++oqPaMRMAFJTov94pDb/obSUrrIY55JEZMs1
LOBkS53UH4xgb6vmqxflu2/c3gfq18LOpOGK8KwGINES/ccjtcV2k7gEmpub
u3jxotLRpIhDKXWy5VoldxOILE3pGezWDDdH8+77730QwyvEGA7cp6HIT2wA
EirRfzxSm2aTuFTsl/DfArKiouLu3btxWHMd23XiBk1mQwQinmypUOcx9Z4+
ajHMlprV3LEtck62jEZU5zYAiZPoPx6pTV0FxWTAahdDTUxMNDY2qne+27Vr
1+Dg4Pz8fHwaQH3LtUpec0XQAagZ7I5DtjT0CpFsGY3IT2wAEirRfzxSmKFD
aYZyOp319fUyVWZkZOzbt29kZGTVnVBii2y5VkUz2VKzlifYPJMYZktNDR9x
wRXDLwLZEgCgnxz4UwTrYEkeAatWipCZqDmiIorHMFteunTJ0NZCpygnWz59
+rSgoGDVPObxePbu3Rt9tvS/QhRRM4LHCYZsCQDQTzOUJnKmSJuJblRgwXbb
mZycTGCr+vr61Ds4m8JZn+tfL5oazklCXnNF1gGo+VqFmEarZzm5/tYadIUY
k0YCANKEoUNpseL1ent6erZu3SrbafQu4frJ/aYl/ePa/uPpKb3V5loiw2Fk
HYD6ywGpY1tZWdn09HQETyfrcBpxhRirzlUAQDrQVEWO+ExqHP8S6IYWq4yA
Zn1uNNkytmt7EQ1lgZsIbBHsNC0+tLW1tfJtzczMdDgcwW589uxZecuIh5s1
V4jiSx3DK8T47MuT2P3E+d4BQKxohtIiO5MaJCHFKiPgX3le/8lXU78omSck
pBU5fTGyweXh4eGsrCz5tu7cuTNEB7v6+qKgoODp06fhPp3c9FwKdoUoPl13
79795z//GVZtLs26JPYTBwCEoBnPDZZtxMlLnC57e3ufPXsWh1aJE3Fzc7PF
YpENq6io+OWXX+JWVihcmu5H/YOGmrrryTkhIQ3JvugIsqV4B+12u3xPMzIy
rl69GuL26vVckUXZ2dnZqqoq+SDBrhBlw8K9hJmamiopKZGPH2L/ymiwnzgA
rA2aNc7BhtIePXqUm5trMn7EPOHFKiOj6afSObKpGWoUIaS7uzsOrcWq5GTL
CMKe+LKox3arq6tDzwpWT5XMzMwcGBgIt7U6rxCfPHlSWFgobnD+/PmwHt/p
dObn58vHT7ZpMwCQWHNzc2fOnCkrK9u2bduFCxfS/FpV51CauNm5c+fEvxYV
FYnsZ1BjAharHB8fT4l+PE1K1BlIXC6XOKTyXqWlpc+fPw9xe3EoxAFpaWlp
a2t7/PhxShyZFKXeTaC3t1f/Hb1er/o7Ja447t+/H/oummpFYT2dQnOFePDg
Qf8hb/Fp+f77702+uYUi/Yb1+NGnXwBYq8SpfOfOneo/wnv37k25zQ1jSDOU
tmHDhqGhIf+byX4YcW6KeZ5R8pKIkUlSrDJi4vyurkSkp/68pkyNCPAhDq9I
C99++618CvGD+M847GiZhjS1Iu12u/6PvfpjIH4QVwGr3lczmzGCAqeaKRkB
y6uOjIwofZuhP2YBibgrHzyyGaEAsFadP3/e5Cfc4aG1RDONKmC/meyHKSws
fPLkSczbcObMGXkuVopVpmhZ5unp6R07dsiD+fnnn4cOfuL8Ll67vP2qvUnd
3d2aKpqMoRtEfAvEd0H/WyOJDCYnCYt3R/xt0RP+NbUaIljircmW/mWsZmZm
qqurTToG6AMScVc+uIjBIgyH+wgAsCb5L+ZVpPPKXE22DLgCRemHEYzYCFIO
ymdnZ4uglQzFKqMhokVmZqbMyf39/SFurJmVt2qnpWbXFUXA0U9ESfYnf/LJ
J+J9NOkY4BDv3c2bN2WwNJvNIu/pnySsXiIdwTZAmhXWmmwpHu2LL74Qv8/N
zY2gCoR/L264jwAAa1WwbBlsIDgdaAoQ+WfLX3/9VRlHO3HihEEZ5vXr18PD
w2tj4qs4ROJAyeNZXl4erKf35cuXn376qbzlqtFFU7xafcdkq8i0BijdgOJ6
58GDB/INra2tFe9awNs7nc7PPvtM9iqLSwZxWRFW36N6QmOwncdDmJiYUE/c
VY+Ju1wu5ZMjQnIEMzl/f/uvhHiN1PYHALWOjg7/s7Mposnza4Z6noB6THx+
fv7GjRtKP0yaz0oNi+wjUpSVlfnXZBane/X8OhFB9VR2YkZHfMhuOmVEQ7yh
MtWLr4OImn19feIdnJqaGhwc/OGHH7Zt26aeKmy32yMYMlbPfI4gv4kcK/Kk
bIa4Hrx8+XJPT8/Ro0eVflfR8tu3b0c2WVq9CJ3JlgCgIf6A79+/3/8EHXDq
e5oQqUZkG3koDhw4IE5J7e3tcnfFEN01COj169eNjY3qvGGz2cR1jbiE6erq
Onz4sHK6V4jc8uLFCz0Pq3mn9IdShEVOtpS1RsUbKhKjui6Wv+zs7Kampmim
CqtLYkZQQFJE4r///e+aGbkK8V2OZkME9SJ05mAAgD+Px3Pr1i2rz8WLF3ft
2pXm2VL417/+VVxc7H9KEifT5uZmhlwjMD8/39/fr9793N+WLVu6u7vDqtvp
crmUaCqIH8R/GvcS0pacbKmZYDwzM/Pjjz+Kvxs5OTnKO2ixWCorK0UOFMkt
+sTlcDjkZF3xLBGMFIgkPDIyUldXpww3iA/Jxx9/LK5oommbpkyZEZOuAah5
RlpsRRXN/Zx5Y8PT31xRZGsZid/xlKU/0jxb/u47FOIglJaWKv0e77///unT
p40rZZkmRG588ODB119/LQ6s0lcp4npJScnJkydFBkjyavBpS5lsGf+N3dXT
GiPbnccI6iXzhpa3BSBMdtfnizPFR61Oxgdixets/chsMuXU35yMzxPKVdLM
Tgfwu2qyZQSLtaOnnlKbJBe84m+jHGcPq84ngHB5+hoWt7/Ka7iTpqVrDDPr
aMgTRzan4W48ei+VtZnJ00UAILFkN11CKu2oy1JFNiweWyJpf/nll0p7srKy
hoeHE9seYA3zPGguzTSZMitbf0t0U9YkZ2tlZpzipVIULp3rWwJQGxgYyMzM
TFSlnYWFBbmiRzTD4XDEvw1qIuvm5uYq7REhk1U8gFGWOtbMtn/Eadw2DU1e
qVxckGmpv2PkVbvH46mtrWWgB4CkTLaMoMJkrKi7LhMe5+QYvZ5d0QFEynPn
sG+F4E6mWRpqslXZ9HtPu3H9ieJPpfiDmQydAwCSgdxeIeAGVfEhrnPPnTuX
DMPQ6nrsx48fp9MSMIinr8GXLHOOhdrJDbHwwJ7v+5u2/6YhI+Pi7+ShQ4eS
ZFJTmlNvwRwH4rl+/vnnRL9oJCM52TKC8pIx5HK5KioqlI+r+DOVkFCnjrj6
t1MHEDbvWMsffd+0Pe2TXMAZzt2+x3e0c+xDBhztnp4eZVZVd3d37B8d4Th+
/HjcgqVCPGOiXzSSkVLZUvxlGBgYSGxLlD9QJh270htEDs2LP5JXr16NfwOA
NOG5Xe/blcFc301By3hYPuAm6z9iPDA+Pj6u/Nmsq6ujMHjCuVyupqamE/Fy
9uxZSo4jIGWyZTJsa6jemL66unpmZibOz64M6wj79u1L1PQAIA04lzotc445
6LSMD++QXdn+oqglhhWC5MZ5DPQAkGRlywMHDrx58ybRzfldvY95a2trPNcb
dnV1KTUt2VQ0SczPz1++fLmsrOzXX39NdFsQUw9bCpVo+Q3rPuJn6JQSLi0x
nOCqjMCuX7++t7c3Zg8KIMW9fPly9+7dIlOJk3ii27JkdHRUGWERf6/iVhNJ
PKlSd0j8bzS7kCNWXC5XfX29kvaTpKI+YmXoOyXkmBvuJropaaWvQRkWt8Qu
0judzqqqqps3b1J3CECSk0kvPl2I09PTO3bs4Oo7SczMzFy4cEG91JFsubYs
D86a9t9iSXE8eW7VKwfeYh9KdFsAIP4GBgaUeFlTU/PixQvjnkiOwotg2dPT
w9V3QszPz7tcrq6uLqvVajabNesQyZZryvKAuGlbC2Ut48vZuk059PnNI4lu
CwAkwujoaHFxsfg7KLKfQTXT5OqhjRs33rt3j2AZT+LyodgnJycndI0LsmVS
mLzV8Md1Ipbsvx5yDx33mOP2naHg6wLdV21L7+vhO+E1wDt550K9tcDiu/ZY
l/9xQ/sD1ZJn91D7EWv+u76x9j9U2m8nx0Y/XvfQP47Ztuev87XL8idbs7ph
4hU12Ur/4HtB75bWtw25DQ7bjm+WLtxivlocAFLFxMTEX/7yF6vV+vjxYyMe
f2Zm5q9//WtVVRVzLONPhHn/GJmRkfH+++8rpaiSP1uKa5MrV650dnamQY19
d2ftcn/yztague1pe+XSW2frDBJeHEeWHqbiUhi7gLn7myuWcmNhYVFh4R+W
GpN/xLFY9cbZbn3XFziLFv/V4mtDZTiPb4jf2vcXKLkxf7HNeeuUNps/8u1D
NOs4tvivZkvBYpuVVJxz+I6hRXwm2yqXjv4RVlEBANYamS3z8vIqKytPnz4t
fjM7Ozs2NrZx48aUyJZ9fX0iDG/atGl8fDzRbTGY907D8tuRcyroZL2xc4XL
t6q/EzhuL+8/aDLpX8jj6WvIFyGsYH/roAysy/tFmkzWC631IkxmVrY+9OUy
76SjyeqbrWttnwrjJcaYs3UxZr9bYb/t9CwfCuelpWiX801r82IVpvyG28or
8jiv1vu2zrHYB41sVd/y27itNdHJGwCAOEmhbKnEY9Fa0eZEt8VgD+xy4kLw
fQNXcmPwvk3Hcrgp1DvlTwlpf7Q7NB2hct6mL6wthTSvs/Wjlfm6CVuHPuto
yBNx19aumRsgV9P4VF5Q8p3HcSRf/jKs7tywrRy0hiDhHwCAtYZsmYRUHZKV
QTu83J3LMymD921Oti8Pylbo6zhzd35iXuyT/M3vX562VsqPiNw4sv+YaiVY
jrF9gMENfZe/2Cd5139agIzWqrrxK8dkkbEzIVcOWkI7dQEAiCOyZfIRAW8l
rwXdkHq5fKIpRN/mSrYJNmj+tsHF/tL8gEm1byWmVbYt9ZJ6bqv6BfMM2Tt7
dVPtVpPJ/EmgfdJVedgsZzz+1lIq25xpazd0EdLK3Aad2R4AgJRHtkw66pHc
g0EXd7/VtxlsnfhKv6KuMVnHEXOwnlLV06mG15cWyJhM71qXpl/GnW+9TOCy
8J7ulQO5Er+9zvY9vmU+mYXHbgfptPS6x242L683N63Lq7A13XFG8vpkxyll
iAAA6YJsmXRUky2Dj9hOtn+0fKOi5rHgfZvLN9KTLT1DV44da7oVqAymqis1
s0GzKblnyu1J3GTCye7mY9+0DgWqmra8IVGA+O1xB2/z7FiLbxLpuu32Ww8n
3VNOx4X9+b783DISbr5cGZRnUyQAQJogWyYbVQ9hRYv/vEeFvr7NMLNlcKp1
66baW7oDlvvWgXWmWDLvv65/eqQsXR4yfvu1eXHGqaxcJB+rrXLxt5m2zvCm
TZItAQBph2yZZPRNtlQtogm1GiVW2VK1SFxOttTBM3TGWuirgRmj/7M2D+oO
tqr4bdZfXnJQ6TT2W5fkXdo6M0RJqEDIlgCAtEO2jK35+Xmn09nS0mK1WuUW
SOKHurq6gYEB8a+r3F/dIRm8hzDw7Ed/McqWk1cqdT1dUlHF7+B1nDQ8dw6a
gx2uO4d9/5JZH069dbIlACDtkC1jZWpqqqmpKTs72xTcnj17JiYmQj2KarJl
8B7CULMf37KyUDqabOm59beVp0uVOo266jhpeB0Nyj5Hmcf8OzqXN3A0H+vX
3wqZLYNPbwAAYG0hW0Zvbm7ObrebzSu1HtevX19fX3/9+vXe3t6enp4TJ05Y
LJalkFFR4XK5gj2Urg5J/bMfV7Jl8LXkqxtaybt72lNkY2x9Uws0nK0Vyl0C
1aKXGziGUW497PqiAACkPLJllAYHBzdv3iyP3nvvvXfjxg2PR5v4njx5Ul5e
rtymqakpyIOpElGIipTqvk2Zc7zOW03HWvo00c8Rg/qKqsmWFRcCPYpnrLOp
uTNBNYgCW32tk9txwe9wySkEIbNlGJuDr2T7/bcCrWQHAGDtIVtGbGFhoaOj
Y/369fLQ1dTUvHjxItjtHQ5HZubimOv27dvd7kD9f+oOyeA7UK+EHPWSE18p
9Uptl9pYS9HSTRv6Vn9F7v7mincXb5x/xCGTYuCnU1HKSOqe0xhrv7XvL/Bb
2a0qLB94rZMvMBeeeeuDtDKtNHS2/KRTb+etnPOpv+8UAIAUR7aMjAiW4kBl
ZGTI47Z3797Z2VCdUy6Xq6hoMeqVlJRMTQWqZaPqkAyeLd3te5Zvo5r96BtM
9x9GX+kIXT37TXXaMuXTy35OdVdqwM43X3sy6xPTL+cdsuetfHTlehlVZcvA
UwuGTokblLY8fOuXK+kxdLYMunu71krx9pSZSwAAQLTIlpHp7e1V91iWlZWt
skhHlS3Fjaenp/1v4LxUsfI2/J/mgC9yqdCiNrE4W/4YuHNMTuDMP7PKQVMt
BjetzM9U7VoecEGQ527DYkpb7cGN8taG5ublvlnVBNGAkwGci0PV5r/dcr/9
cmKeLeXBL0zU8QEAIO7IlhEYHR3Nzc2VRywjI+Pq1aur3kuOiR88eNDr9R8i
VfcQCtZ2v65NT19Dvvomh5dnEo40ixBTei7QYZGjw6vVPHdeWNlnO//IHSV3
jZ0rVT2fX7YUIU28oLyGOwnqlVNvaC7HxD3d9arA6ZctZx0NeSZTZmWr38Lt
WGdLub4+8JaUAACsSWTLcL169cpms6mP2O7duwPPn1SZnp6uqqoSNxbxsre3
N8AtZAGcZTmHVZUUve6htsWdB80Fx1pOLec9Zdzc62z9yGzKtLUHTDyy49Fi
D131e3kAt3D/lSElWLrvLkZZ80ctLX9Twpql/vZKi9wPWqzvBg5p8bO0zshS
cWp5v+/fluKuPEpvrT96eqthcXJmfsPdAO+X3vmWHwU+0n5k9ykLeQAAaYRs
Ga6uri71NEvh/Pnzoe/icrlqamqUG+/bt0+k0wA3Uk+2lN6tqP/m2LG/WQv/
IBKRufBA+5hncbub5j8t9czlf1xv++M68U+VbcGW/sju0PxVyp4rGXX5Ses/
siw+5Z/sDvdiX9+xgqXqjoWfNBz7pt6a59vMMW9/64PETiT0OI74unIzC22H
jzV8WrrO16r23xZfTvuepR0n122vP/ZNg+1PFt++jaXHbgfJhrFdJy4rGjHZ
EgCQTsiWYZmdnbVarerDFaI9CwsLExMTTU1Nsrjljh07nj17FvDGby3H7psc
u9lS/3FhoS/CrcsrtP6t5c5vqjFt76SjrcFaVJj/rtnyJ1tzsLDk4/7HUoNX
L8zonbxzSsmxImGW2pruTHpX/mnxGZVIaTJbCqwN/xiaTIayQ4s9uvUVSsMy
LZVH2odWkpzHebN5KVIuHsYK8YqcIboQZbWlQAup5GzYwoBzD/zINzTUppwA
AKw5cc6WHo/nyJEj/v1zcWA2my9cuCDyXjTtHxgYUOZMSlu3bv355597l3V1
ddnt9qNHj5aXl6sX+2RkZBw6dOjly5fBDoyBe9/IYfGPdQ7mpquVGlANAfbl
Wf7Y6ps8ubycP1Er6AEASJA4Z8vp6emysrJYx0a99u7d61/VPCxnz54N90kt
FktjY+O///3vULFWPdky9kOoHscRZbyd3WFCkwnf5lfCcnlqgc79xKfalc7i
nG90F1oHAGBNiHO2FPmqv7//RET27dtn8q2F+fzzzyO4u91uFwEvmsa/efPm
wIEDIWKk2WwuLCwsLi62Wq3i6W7fvu1yuebn51d/aNXeN371z2PhtxZlZYvO
8dz0NajMejVrS80vh/+cU6FXRC1ZXnRvpacYAJBumG+pn9vt3r59u/pYFRQU
PH0a+Ubdkqq2ZOC9b6Imuy7rVylFlO7cnZ/4pmfuVO3yszjZ0vcGZdo6A9W8
1/LcqfcF0Xx9QRQAgLWEbKnf1NRUSUmJ+lhVVVWF3otHHyMnW0qzt5TAQx3v
VcyOtfjWy6/bbr/1cNL9dOzWqYrFlUKZpfZBXbl8qShoTsLKfgIAkEBkS/38
j9VXX30V5eIgH9U+MkbWq1kuKr685w6C8brHbjbbtucrq+J9C8xvjel8Y562
LxbYFMnyNskSAJCOyJb6+R+rS5cuxeBxn7bKEXFDJluuWK4GqXvXQoRnuUao
3NgIAIB0Q7bUb3x8fNOmTepj1dXVFf3DLm+IszhevUp58+gthx+DQ2yaUnZ7
l7tPAgCQhsiW+vnPtxRNisHjLo2imgu/iUtn19J8wpyGu6zqiSVlt3fzRy1D
DIYDANIY2VK/ubk5uXVjxNlSBNSJiQntb70etzuOSc/rbF3cD7G0+WH8nnNt
8/QfE8Fy3Z7WMQI7ACC9kS3DYrfboxkTf/bsWXl5eW5u7ujoqEEt1Euk2am4
5tk1znc8PQyFAwDSHtkyLIODg+qdHM+ePav/vi6Xq6qqStxLPEJ/f79xjQQA
AEgUsmVYPB5PXV2dPFZWq1VnfcvR0dHi4mKTb++ey5cvx6JyEQAAQHJ5/fr1
uXPnMjIy1NmypqbmyZMnSRh+kiFbCvfv38/KylKOlTh0qw6Lz83N2e12ESmV
HsuOjo4kPLYAAABhmZ6eFqGxeNmWLVs0kVJDpKCioqJilYGBgcS+hCTJliIZ
trW1yaOXm5vrcDgCxkVxzM+cOZOdna3ccvPmzYODhmzoCAAAEGf+9XPCFZt6
O1FIkmwpeL3eixcvKl2RSu9ldXX19evXe33ED1999dX7778vD524pd1un5ub
S2yzAQAAYkVky9LS0i1bthRHxGKxkC3VFhYWBgcHt27dGjqQZ2dnNzU1TU6y
DQ4AAEBySapsqfB6vf39/YcPH87Ly5N5UvxstVpbWlpEO+fn5xPdRgAAAASQ
hNkSAAAAKYpsCQAAgFghWwIAACBWhoeHs7KyioqKAuzHDQAAAIRpdnb21atX
iW4FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAADAKv4/imKIaQ==
    "], {{0, 109.5}, {442., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->144],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{177.45454545454567`, Automatic},
  ImageSizeRaw->{442., 109.5},
  PlotRange->{{0, 442.}, {0, 109.5}}]], "Text",
 CellChangeTimes->{
  3.7948280414169436`*^9},ExpressionUUID->"b33bff38-aa94-4615-ac45-\
18701584ba22"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", "\[ScriptCapitalR]", 
   ",", " ", "\[Beta]", ",", "\[Gamma]", ",", " ", "\[Mu]", ",", "k"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7948318967451286`*^9, 3.7948319159407234`*^9}, {
  3.794889260518407*^9, 3.794889261058097*^9}},
 CellLabel->
  "In[175]:=",ExpressionUUID->"bf9d9f8e-3013-476b-b87d-aadadd82b560"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]", "[", "t_", "]"}], "=", 
   FractionBox["\[Beta]", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox["t", "k"]}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.7948891538897943`*^9, 3.7948891825084352`*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"6bc18dec-de69-495e-b21b-cba87747ea7f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SIRMmodel", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalS]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"\[Beta]", "[", "t", "]"}]}], " ", 
       RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
       RowBox[{
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}], "/", "Ntotal"}]}]}], 
     ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalI]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Beta]", "[", "t", "]"}], " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}], "/", "Ntotal"}]}], "-", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalR]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.7946568265461245`*^9, {3.7948295890551467`*^9, 3.7948295943595023`*^9}, {
   3.7948296783330584`*^9, 3.7948296849479437`*^9}, {3.794829754651681*^9, 
   3.7948297953228292`*^9}, {3.7948298849876375`*^9, 
   3.7948299187736645`*^9}, {3.7948299531409874`*^9, 3.7948299631389246`*^9}, 
   3.7948300089159527`*^9, 3.794830140045807*^9, {3.794830242217456*^9, 
   3.7948302793389864`*^9}, {3.794830447810799*^9, 3.794830456336114*^9}, {
   3.7948305077021265`*^9, 3.7948305170158267`*^9}, {3.7948313515878954`*^9, 
   3.794831443719623*^9}, {3.7948314948899813`*^9, 3.7948315008216243`*^9}, 
   3.7948328236347647`*^9, {3.794889133279729*^9, 3.7948891346526885`*^9}, {
   3.79488919394048*^9, 3.7948892044945097`*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"257debc9-44d2-4168-a814-6f05b13f2931"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"Ntotal", "=", 
    RowBox[{"10", "^", "6"}]}], ";", 
   RowBox[{"I0", "=", "10"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7948308226773767`*^9, 3.79483083755446*^9}, 
   3.794830963570774*^9, {3.7948310744009004`*^9, 3.7948310761248226`*^9}, {
   3.794831854800934*^9, 3.794831870086172*^9}, 3.794832042454871*^9, 
   3.794832121623204*^9, {3.794834210915098*^9, 3.7948342274754376`*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"13115fbe-9490-4090-90b6-fb33e9a7f025"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"susceptibleSIRM", ",", "infectedSIRM", ",", "recoveredSIRM"}], 
    "}"}], "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", 
      "\[ScriptCapitalR]"}], "}"}], "/.", 
    RowBox[{"ParametricNDSolve", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{"SIRMmodel", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"\[ScriptCapitalS]", "[", "0", "]"}], "\[Equal]", " ", 
           "Ntotal"}], ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalI]", "[", "0", "]"}], "\[Equal]", "I0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalR]", "[", "0", "]"}], "\[Equal]", "0"}]}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", 
        "\[ScriptCapitalR]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[Beta]", ",", "\[Gamma]", ",", " ", "\[Mu]", " ", ",", " ", "k"}], 
       "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.792145347285343*^9, {3.792145859494135*^9, 3.792145860934304*^9}, 
   3.792159172996607*^9, 3.7922495027605352`*^9, 3.792328894028928*^9, {
   3.7923459125259132`*^9, 3.7923459817560787`*^9}, {3.7923493003095913`*^9, 
   3.792349308508486*^9}, {3.792395076171653*^9, 3.792395089793461*^9}, {
   3.792399532090517*^9, 3.792399532776864*^9}, {3.7924015378174677`*^9, 
   3.7924016009497147`*^9}, {3.7924019007673473`*^9, 3.792401915620026*^9}, {
   3.794830535665866*^9, 3.794830794105089*^9}, {3.794831531495318*^9, 
   3.7948315326938562`*^9}, {3.7948343667341967`*^9, 3.7948343680564375`*^9}, 
   3.7948344692689734`*^9, {3.794889252916321*^9, 3.7948892574152784`*^9}},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[179]:=",ExpressionUUID->"9032670c-baed-424a-8fd8-df3c83b43c21"]
}, Closed]],

Cell[CellGroupData[{

Cell["Modelo 4: SIRV ({\[Beta],\[Gamma],\[Nu]}, Ntotal=10^6;I0=10;)", \
"Subsection",
 CellChangeTimes->{{3.7947289266864376`*^9, 3.7947289340357847`*^9}, {
   3.7947289901457586`*^9, 3.794728991541278*^9}, {3.794741016733353*^9, 
   3.7947410181708126`*^9}, {3.794800208878688*^9, 3.794800218253324*^9}, 
   3.794826798691739*^9, {3.7948323149476447`*^9, 3.7948323156029234`*^9}, {
   3.79483245657845*^9, 3.7948324575843425`*^9}, {3.7948876666599474`*^9, 
   3.79488766744127*^9}, {3.7948879837538137`*^9, 3.79488799475331*^9}, {
   3.794891508134096*^9, 3.7948915177033243`*^9}, {3.7948917165245123`*^9, 
   3.794891717344559*^9}},ExpressionUUID->"783e6f70-0fd6-4a08-9987-\
f9720dab3279"],

Cell["\<\
AL modelo SIR se le a\[NTilde]ade un termino v que tiene en cuenta la \
inmunizacion de parte de la poblaci\[OAcute]n. Puede ser de forma natural o \
por el empleo de vacunas, que no es el caso.\
\>", "Text",
 CellChangeTimes->{{3.7948268077406807`*^9, 3.794826840943899*^9}, {
  3.794827700351034*^9, 3.7948277713635387`*^9}, {3.794832471287363*^9, 
  3.7948325340737066`*^9}, {3.7948347171737037`*^9, 
  3.794834721628664*^9}},ExpressionUUID->"a7103386-5791-4c23-8d39-\
c3bf6d5ea78d"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3ftTVNe68Pt9zvvL+fH8C+dv6B841C6qQqWk3JZU5AXLZVfQBa9uOZqQ
tWBRCXHrCi5NNl4xUeNloWVcukRfXZDSTSwvK0QxYkrZYIzIFoyadiEXURBD
s7mcB6YOJ3P2Zc5Jd8/Z3d9PpVKKPZvR3bPnfMYYz3jG/1P8wf/81//zn/7p
n8r/L/nf/yz6MLusrKgy//+WvywuLf//VpWuXPEvpX9YuWpl2f9b/D/kh5/8
H//0TyvkD9N/npptcHBw+fLlvtc+//zzqYiGh4cvXbr02WefFRYWZmdnqwPz
8/PXr19/5syZ/v7+yM+gTExM3Lx5s6qqKjc316dTW1sb4ajR0dFr167V1NQU
FRWpBmRmZvr9/s2bN8s/jYyMRP3VDQ0N6tctXLiwu7s78uPlAfIwdYgcHvnx
v/7669q1a628q5OTk48fPz527FhpaWlOTo56OfKhfPHFF21tbWNjY/rHP336
VF64emZ594LBYNTXCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkGJevnx5+vTpvXv3Hj58
eHBw0O3mAAAAwBMmJiaam5sXLVrkm7Fw4cLu7m63GwUAAAD3PX78uLy83KdD
rAgAAICJiYm///3vOTk5+kAxMzPzyJEjwWDQ7dYBAADANaOjo7t27crIyNAH
iosXL25vb5+cnHS7dQAAAHDNs2fPKisrfbOtWbOmp6fH7aaFIK398ssvc2Zs
2bLlyZMnbrcIAAAgZfX19UlYaAgUJXSUkMztpoUwMDBQUlKib2peXt79+/fd
bhcAAEAKktCrrKzMECjKT+TnbjcttAsXLvhMamtr3W4X4BkjgbaGI9V/8Be8
PfP1eLvAX1hRfbKxQz8APx6o/31myemA+ejgterM19+st/L9/sLQ/00/+c62
hL0mAIArRkZG1q9fb4i7Vq5c2dfX53bTwvr888/NseLatWt//fVXt5sGuG2o
o/6zorfUF2M6SvTnZL35phTtvN4/Ph0oNn4oj8rc0RriOdoOvGX+ioVU8c1Q
wl8hACBxxsfH9+7da7j45+XldXV1ud20SGpra833rI0bN46NjbndNMBNwdtH
St5+NRxYcuBKd7+udsFIoO3kBv9M0Ji77eKVnQVarNcYucR+cGjobp0+4aNA
Qs3BoeB4nF8JAMADJicnGxoaDKue5a/yQ4+vem5pacnKyvLNJs12u12Am4Kt
O7T4z5e/ofF+mApXD+tL9V+dVXWBqFHfDzt0B/iP3It1uwEAXtXV1ZWXl2eI
uD755BPvz+SOj49/9dVX+ih3y5YtIyMjbrcLcE/gdRCYv+N6xKHCofNrVS5i
7oGOqE/cfdz/5gKRW9vBiCIApIfh4WHDziy+pNqcZXJyUpr6l7/8pba29tat
WxMTE263CHBRf+PvtQCwoPZ2tMeOt+14PbS4oSlqgX15Zt01YvP12LQXAOBt
EmjV19f7TA4dOuTx2WcAZm+WLX/Y2B993C945TPt0dGSFWceW627RLCSBQDS
xKNHjxYvXmwIFOUn8nO3mwbArqHGD199i0sb+q0c0LZz5tGFR7qjBpZ3a3Pf
XCRK6h7OvbUAAK+bnJwMuY5YfsigIpB8hi6uff0t3vGDpSMCp0ssJitqjyRZ
EQDSSshBxfnz53d2drrdNAD2tb5Zp2wh/3DazLhipoXAcujix7rLRNUVS88O
AEhyJ06cMA8qVlVVBYPcB4Dk099Qqr7IOV9a2kVlJlbccCVq5QDdKhjrE9wA
gKQ2NDS0evVqc6x44cIFt5sGwAl9rOjz5e74wUKnb2RoaNDCw+7X6crlUFkR
ANJCW1ubuYp1QUFBIBBiT1gASaB9d+bsL3TF4caOhzGYJug/q4tCs3ZcJ1kR
ANJAyFUt7KQMJLHZZW100V1O0brd9U0dAYdV6lVpnRkfNlIuBwBS3sjISFlZ
mfmWcuzYMbebBqSm8fHx9vb2bdu25efnv5okzs2tqKi4dOnSy5cvY/RLgm1f
FoSMFt94u2jt4esWSi/qdcwql3OSqYcUMTExEQgE5LL/3nvvZWdna5+vnJ+l
paXyQ/kn89YGfX19a9asWb9+PWntQMqTi0BBQYh7SktLi9tNs0rC3WvXrm3e
vFndeeVaV1hYKD+Rn5u3+ZucnDxz5kxWVlZra6srDUbakhtuc3PzokWLwoVv
OTk5X3/9tQSTMfhlI2078qNEi9OySuutF0gM1M8qlxN1Oxh4nkR633zzzZIl
SyKfJitWrLh9+7YqoSbXVYkS5ee7du2irhqQ8iRe0u+hrEmWff1++eWXDRs2
ZGZmhrq2vSL/Wltbqx+ukTBYgslkeY1IGb29vR9++KpAtpyB69atO3funJyN
V69ePXjwoP5mvXfv3hiFix1HVr9lIV60sFfLjKHza3VHWVg0DQ+TGK+9vf3d
d9/VnwrSW6moqJAzcPfu3aWlpfJX/bW0oaFB+jsqUPSxBBJID/LdN985li9f
Pjho7ebhEon95FKmjxIl4pWL3rZt2+Qq99lnn8mdVx8Dr1mzpqenZ+p1oCg/
Wb169dAQyVZIkM7OTq2Eqdx8T548aZ5rDgaDhw8f1k5a+b98MWM1XBMMtNV/
ubYkP2LQ+JmlMoltO3X9svfrKZeTvKQzcurUKXUJlVPuk08++fnnnw1zzfLX
u3fvlpeXq4fJmblzp7bHj2/BggVdXV1uvQQACbNnzx7zfaOysjJ2eVOxFwgE
SkreTIUtWrToP/7jP8xzzcPDw3JTVv1iCRcvX76cl5en/bWmpoapEySG3E+1
E6+4uPjBgwfhHibh4qZNm7TzMy7ba44EOprqd68rKXjb/KW3MrTYXVf45gD/
UYblk5VcLbds2aI+ymXLlunnl80kYpQQ0TyDQ48bSBOff/65+bbh5UXQN2/e
XLhwoerkHjhwIHJY29PTI1Gi+TUydYLEUIFiWVnZwMBA5Ae3tLSoU/TEiRPx
a9XQ3foN+bO+EdF3bOlv1JXLsbLDC7xofHx879696oOsrKx89uxZ1KMkkjx+
/LjhKrp58+bYJEsA8DAJCCUsTKJYUd12fTMZX99++62VsUEJF/1+v/4Fzps3
r6Mj+r63wBw9f/5c66qsXLmyr68v6uNv3LihztKNGzeOjY3FsXGBen3B7pLT
URY1B5v1ZXispjjCU+SC2dDQoPJzLJ6WGjmZ9RM69LiBNJFcsaJc0+TKprXQ
bkLXuXPn9C+QqRMkwPj4+P79++V8kw6OxbQufaxYXFwsd2d7vzI4NDQ4FLQ6
0jOrWGLU3fo6DurK5ayqCzCelITu3bun5mXmz59/584dW4frd4Olxw2kiSSK
FeW2u2vXLtXCrVu32pr76O3tLSx8k2vF1AkSoL29PTs721a/Rj8H7WCJ2cza
k5I6yzVw9FsBRptTDtSvenOJyD1AkJB89Amxora21m7OtgSHEiLS4wbSShLF
itptV2teXl6e3bR/iQwlPlQvkKkTxNvIyEhlZaVvJh/MvPAqnNOnT6uz1P69
WFt7Um193z1drFha/yTiQ4cuziqX00T55eSj385V/nDr1i27zzAwMKA63fS4
gTSRLLGidIerqqpU85zlcam7MFMnSIDLly9nZGTIHVlu0BYPMfRobJ/nT2by
DwuPdFu+gXcff53HG/Wo1h26RbCl9WzYkmzk7Nq+fbv6CJ1kOExNDQ4OLl++
nB43kFbCxYpe27aps7Nz/vz5qnlnz5518CSqkiRTJ4i3kZGRiooKOdmkj2P9
q/T06dOioiJ1nssZa+uXviqUvcp6HBeo++3r4C/awpY3UaVvesOWDsaTks2T
J0+WLl06xwGB4eHh0tLpHgl7GQDpI1ys+Pnnn7vdtFmOHTumb96NGzccPMm3
336rHc6mVIi3lpaWrKysjIyM5uZm60fJia0WqDpItHhdKNvydiq3X+/tnLvj
epRD+ht/r/sGbr5uq2HwAv3Z5ThWVOOK9LiB9JEUsaK5kc5iRTWuyNQJ4kpN
9tm6nxqmCPfs2WMzGazjdeRnLZlwPFD/vvbwzOqmaI0MXplVLucbgoTko0+F
FUVFRU+fPrX7JCpWpMcNpI+kiBX12dQau3NzGi1WZOoE8RYIBAoKCnw2i2nf
uXNHJVrk5eXdv3/f3m99oiuWGH2cMNi2s0B7bMHO60NRY9JZyYr+I/fsNQ1e
YNh2we6gt0YunnIJlWOdddgBJKOkiBW1q5O+eRUVFdYXlirapdJry3aQei5f
vuybKV7X2dlp8RA5n9evX69u4mfOnLH7S2cXyvb58quvhFvXPN5/ZfOrQPGt
D+ujlkkMDgYufqarrOhb2xiwXsIRXmHeostWIW5NMBhsb2+/efPm6OhonNoJ
wGuSNFa0W4hb09PT09LS8vCh5dpzgH1yWmqFQMvKyiz2aAx7rsmfHZQieZWs
KCFia+Przfsy/R8faWzt7h98PSU9Euj4prbk1WbQmUVfXu8P83sCJ4t81kSt
4I3IXr58KVezFStWZGZm5ubmSkf4ypUrkddDSZx26NAhrXTntm3bLJ5mhjlo
zQcffPDLL7/E6KUASE1JESua56B9Mxv8yQXWU4u1gamZEUKJEn2zE7rkdvzF
F18UFRWpGqESGCxfvlx+KP2X6uo3Q4J79uxxdFbPVFbMKq3XekJDHfUb/Zm+
sN76bXX97Qg5h/0X1701/bisHH+hP/R/+TMP8BXU3nXwJuGV1tbWRYsWmT+g
CFuH64egNRI3Wuk468u860nAKRHjmTNnnjx5MjExEeuXCCDpJUWsKP1uraax
2YIFC+Ru29bWxrQyPEINg1++fFn7yY0bN1SIGIFEj6dOnXJY3Lj/4tq3S+vu
zg7/BruvNxyp/oOK6zJzlpas/bK+7SEzyJ4gwZt2Ykiv4cKFCw8ePPjTn/6k
zodNmzaF7DU0NzfrlzP7LK9SMexdFVJOTo4EopcuXZInZOkKAE1SxIpTszch
DUkunnLBPHjwYGdnp4My3UCsyE1fTsh33nlHbv3aT8x5YiGVlZU5WJeKJHX/
/v28vDz53NetW/fixQvth/rdwMNtGVBbW2s4cyxuLiCx36FDh6ycihqJGzdv
3nzz5k0GG4E0lyyx4qNHjxYvXmzxEidx46pVq+rq6uzupQvMUchkxaampnDj
ipmZmfn5+WqYaP369Q4WbSHpyIX3k08+8ZlWl+hjRV+YTQcuXbpkGFf0WS4j
Jr9LfqPFC6lSXl5OTiOQzpIlVpRbcENDg/kKGZn0ixOc0/jgwQPrMW1sye/t
6upK2CtFSENDQ6tXr/bNpB3qfz48PCx3c+m/7J1x4MABuePL5zU2NmZY2LJ/
/3722E152jxyVlbW1atX9T83bDoQsjiY4YTRWK9gI2edg2uUXEtbWlpi8MoB
JKFkiRWnZq6Qchu1Gy6KDRs2JGysRpt/dIuzrQ8RQ+ZkRSt6enr8/lc76GVn
Z7e3t8evhXCduuoa6neZr8bhwjO5GGrD1xq7NWMfP35cXl5u9/KSl5dHbxRI
T0kUK07NXCG//vpr6eHavco5K0LiwOjoaH19/V43yO+l4pnrzMmKFumT0LZv
387QYgrr6OiYN2+euRS2oThY5AhQ378oLCwMt2g6nImJibt3727cuNHKqitF
Iszh4WGHLxtA0kquWFEjF6uGhoZ3333X+iVOLsu2xnkAByYnJ2tqanx2Kisq
+nomS5cuffIkXB1tJD1tolkCvN7eXv3P1Sakmsi7BsjJpvoXlZWVL1++dNYY
6ZV0dXUdPXq0qKgo6qyNs61eACS7ZIwVlefPn0sEWFVVZWWk0dlWL4B14ZIV
rdCPKVnZQC3qCe9BTt/XlKIuuZs3b9aPHpsvxefOnYv8VNr2QD5H51tIY2Nj
t27dOnjwYIS40dBsAOkgqWNFRbrY0kO/cOHC+vXrw8WNFstKAI5pc4s+m8mK
GsP8Y9Qdzx0Fay5z+r6mFLlYdXZ2trS0GDbXkx+q3cBFQUFBIBCI/FRq0bRc
+mLezoGBgerqanPEWFxcLJ30mP86AF6WGrGi3sTERHNzc8itEFj6kQIi1J+J
B+l6fPfddxbb5jhZccoUK0b9AibsHYghu+9JVMPDwx9++GEiX4JcLeOUsGdY
AW1l+E4bV4xfLzjkgmsrQSyAFJN6saKmq6tLq3OrV1tb63a7MFd79uyJ6c0/
OosTfHJjlfu7z1Gyorh161ZWVpb6pcSKVkhMLpF5Il+Cs45AVCp7QWMxLVAL
L+VAOTzmTdI8f/68pKRE/w7YXXMNIAWkaqwozp07l3ovCr29vYcPH07Y6nK5
HVtcYTqXZMUp0169Ufs1sQp+EsnB2xLZxMREU1NTwk4GIR9TPDYxMfQUzMte
zMLlPRo8fPhQ2iz/d9w2w4BnnKJlAF7m2VhxdHT05gzHdWCePHmydOlS/YuK
VQY4YDaXZMUpa0WYkaoM2/ZZmYB+9OiRNnUSIVkxGAyuX7/e4hOGY+jFLF++
nP2wgHTj2VixtbU1IyNjLqk4L1++rKys5P6LxNCSFZ3N0Kn5a42c+XL+x6OR
8KCRkZGysjL9lcpKd8PK+ab6y9ITcdw8w7aDEnwmcicsAF7g2VhRG2aZS6E5
w0vj/ov4UcGes+Sxp0+fFhUVqXOV5QNpxbCsycqnPzY2tnHjRl+0GowS5mkL
meeyUNoQK84l7ASQpLwZK6pWzSVt2/DSElPf2N39oMkjcsvz58+Li4vlU6ip
qZmcnLR7eFtbmz5draqqiqGb9GHYGNRKYW01AR25BqNKbLC+W7SZvkK4nKW3
bt1y/FQAkpQ3Y0U1dRK51xyZYaxGuuHSGY9tO83YDzo9qWRFB1+c8fHx7du3
qw8xIyPj0qVL8WgkvMmwtN9KWrUWv0VeAqO/tjuOFdUApoYdDYD0JJeCqqoq
c9RRU1PjYqvU1MlcYkX90sKEbU3FftDpSaJ07UxzECuqMSLNmjVrqHWcVuSc
0V97o6ZVDw8Pl5eX+2YWy0cYxA4EAgUFBXPsRepPTrmKnj9/3tnzAEhqwWDw
X//1X82x4qZNm1xslVoV6HiPAP1mqdx/EVf6lSl2Y0U5UQ8dOqQfVGTj8nRj
iBWjjgFKt1fOEwnhJJCL8DDV4/Y5XQcth+jHPCsrK20NKsq5fefOHTlq2bJl
VVVVd+/etdsAAB7hwTlofZMcr4PWp4tnZWVdvXo15u0ENCpZ0Wct2Uzv3r17
+nUNW7duZbPddGMrVlSDihLFRT5V9J3lqIFlSC0tLWqPJPlDe3u7rcPPnj2b
mZmp2iDPIE9otw0AvMCDsaJ+6sQXbZ4lJOn8alXFNJs2bWKlAOJHJSvavSmr
+75m5cqVhj2CkQ70i0dEhIBKroT19fW+mYVskU8z84V9165dtroh+q2vMjIy
pJG2rsO9vb2FhYWG24qVGuMAPMiDsaJ+6sQ3U0Ds3r171g837GHK/RfxZrjX
Hzp0yMpdVXo0GzZsUEcVFxcnqE7Ok/pS8xdek7X2YuQqyw/rtNVimf/i9xea
/st/y7f0CNu/2WW44kUoSqPiN4kYI59jhh63Fu/JURY3nfn555+XLVumjpUr
qt3hbsNONMpcqvcAcIsHY0XDFgZavNfT02PlWLmgffXVV+rCK9dVubrGu8FI
ZypZ0e/3a3v8WZlre/bsmX7oe82aNRbP8LkLNleHCxWnX8XxSLFe5GNF5mdX
GMG3y7Dncnl5+fDwsPlhcobIldA3Uw07at6gIf7UyE/kwh7yyRUJJq9cuaLP
i9i5c6eDRXPhYsW57CADwC1eixXDtWfx4sX/+Z//GblTPDAw8Omnn6pDJFCk
FBjiTZVmqqmpuXfvnjbsk5OTc+3atZAjP8Fg8O9///uiRYv0t29bKY6x1N9o
/LLl7G6LeicfGQq01m3Ifx0fLt1Q1xoYGhwKEgI4debMGRXayR+kw2sIqG7f
vq0VbrU4UaJ63NJzaW5u3r9/v3p++Ymccp2dnYYSE2NjY9LH0UetmZmZp06d
chbaGQJgxW5CLwAv8FqsqJ86ke6zBHv60tYrVqy4cOGCxIT6oFHuyL29vX/+
859VGraQyxQ7XyABVLKiNrmmXw6wZs2ac+fOPXr0aHBw8B//+MfVq1e3bdsm
YaT+fJYYwEHt7php3z299iBLtwLB56tutjQ02N8wM5X9fl2AEHHORkZGtmzZ
or8Cy7nR2Ngop9Ply5c3bNigLRJZtmzZzz//HPXZ1Pamaohb4j2J+jJnfc6v
4tIlS5bI0+bn5xv+SS6hc5yUkV+tP9s1bCcNJCOvxYpqn3o1zyIhX8j+qVyF
5BJXWFioDxG1y+PRo0dZzILE0JIV9dvy/vTTT3KjN5+x+ht0eXn5zZs3LSaP
xU/3cb+0p+LsldpcXfuqLM0jdxycPqbiG4fbKsFALllHjhwxh3PKp59+Kt1k
K0+l9bjlqc6cOaPvifzyyy8q7IxAzt7vv/8+JientGTfvn2rVq364osvtE1k
iBWBZOS1WFGbOlmzZo1+nkWuot988430fyNf4iRK3L17t8XLKTB3KlmxrKxM
n0Im99m7d+/K/VHujNqtWRvAkQdfvnzZM6U+hy5+LE3zH7k3FThZpPsmVTT2
Rz22v/H3r45FDEkcJb2P0tJSNSKXn5+/bdu2e/fuWR9/lnMvLy/v7NmzIQ+R
E/XatWs1NTXFxcV+v187P+W3VFRUSGzZ3x/9s3dGGwcgVgSSkadixf/+7//e
vn377373u5AJOXL/lV5qXV2dXNOWLVuWm5urxYdFRUVyU25vbydlGgmmkhWt
7MvmOePXd0jTs3ZMJygONlbovv6RV7hMC16pVscCFmgj8HPZiguAWzwVKwLJ
RSUrJuVmK3dnZp5fzTgHr3ym+/5HXeEy61ggisnJyZqaGu4sQJIiVgQc04ZK
CgoKknEhlbY4pfT0q5YHr1VbX+ESOF2iPxaIbGhoSKsoRX1FIBkRKwLOjI2N
bdy4MWmn1bSBxNza269/MN4xa4XLHyIkLWrHkqwIq9ra2rKyspxtNQjAdcSK
gDMqWbG2ttbttjjQtnu6UnL1dd1c8+wVLv66+xGPzdpxnWRFWDA+Pr5169bp
nIWqKipUAMmIWBFwRtuZIiMj48aNG263xb77ddPlcj5snFXyZvYKl5wv22wc
C4Rx586d+fPnyzelubnZ7bYAcIJYEXBGS1ZcunTpkydP3G6LbUPnp7/1/qOG
9c7B65tnJS2GXLuiHVtykmRFRDcyMqIVBq+oqIi6NSEAbyJWBBxQlRU3btw4
NjbmdnNsu75N2p65o9X0D7dnJS1uaAoRLM4cq0t0BMKYmJjQSuZmZ2e3t7e7
3RwADkms+NFHH5ljxZqaGrebBniXSlY8duyY221xQFvGsuFKiGGeqCtcIhwL
vDE5OdnQ0KDtQ33o0CE397IEMDfPnz/XiloblJSUuN00wLu0yopZWVm3bt1y
uy32PamfLpfzfn3IrZyjrHDRjiVZEdE8ePDgnXfe8ek2bAWQpF6+fLl48WJz
rFhaWup20wDvampqysjIWLFiRTJuWBZsnt50JfdAR+h/jrjCJUyiI2A0Pj5+
6tSpqqqqZ8+eud0WAHNCviKQbtq+nF7AUn0t3L9HWuHStjMzdKIjACBFESsC
aaa7rlC+4hWNEQZEZ69wqTjbP/tYkhUBII0QKwLpZeji9Be+8Eh3pEragbrf
6i4HhXWvppz7GyMkOgIAUhKxIpBeftgRKVnxtdkrXHK0CjlREh0BAKmIWBFI
Kx0HZ0rehCqcOEuoFS7aseETHQEAKYhYEUgn/fXvy/e7tD76VjPmFS6B+lXR
Eh0BACmHWBFII8Er1dGTFV8zrHA5fGT6SrGqjmRFAEgrxIpAGmnfPV3yZtt1
a4+evcJlBsmKAJBuiBWB9NF93D89QviN1U1Xhr6pMFwZoic6AgBSC7EikDaG
Ln4sX27/kXs2jph9dbCS6AgASCnEikC60JIVs3a02Ug4nL3CxWKiIwAghRAr
Amki0FA6Hfb9r7qArcN0K1wsJzoCAFIHsSKQ4saDQw/b6rcVqfHB0gNtgSHr
aYdvVrhYT3QEAKQMYkUgZbXuyDR/t/V+39gf/VnUCpfSensjkgCAVECsCKSq
QENJpi8zZ6nfX2j8r+Dt6a950fFuS0803lGb7/Pl13aQrAgA6YdYEQAAAOE8
f/48NzfXHCu+9957bjcNAAAALnv58uXixYvNsWJpaanbTQMAAIDLmIMGAABA
OMSKAAAACIdYEQAAAOEQKwIAACAcYkUAAACEQ6wIAACAcIgVAQAAEA6xIgAA
AMIhVgQAAEA4xIoAAAAIh1gRAAAA4RArAgAAIBxiRQAAAIRDrAgAAIBwiBUB
AAAQDrEiAAAAwiFWBAAAQDjEigAAAAgnxWLFZ8+effnllzkztmzZ8uTJE7db
BAAAkMRSKVYcGBgoKSnRv4q8vLz79++73S4AAIBklUqx4oULF8wvpLa21u12
AQAAJKtUihWlzeYXIq9OXqPbTUNaGgm0NRyp/oO/4O2Zc/HtAn9hRfXJxg59
ZsR4oP73mSWnA+ajg9eqM1+fxm/l+/2Fof+bfvKdbQl7TQCAdJNKsWJtba35
hWzcuHFsbMztpiHNDHXUf1b0ljoLp6NEf07Wm9OyaOf1/vHpQLHxQ3lU5o7W
EM/RduAt8/kcUsU3Qwl/hUASmJycHBoaev78+cTEhNttQVzI/X1wcJARoXhL
pVixpaUlKyvL8EIaGhrcbhfSS/D2kZK3Xw0Hlhy40t0ffPNvI4G2kxv8Mydp
7raLV3YWaLFe42DkZxwaulunz8QtkFBzcCg4HudXAiSz8fHxEydOZGRkLFiw
oKury+3mIC7+9//+376ZtQm3bt1yuy2pLJViRbkyfPXVV3JlUK9iy5YtIyMj
brcLaSTYukOL/3z5GxrvB0M/6GF9qb5Ps6ouEDXq+2GH7gD/kXuxbjeQWoLB
4J49e+Tbkp2d3dLS4nZzEC+jo6M7d+7UPuirV69OTk663aLUlEqx4tTMjEN3
d/df/vKX2tpa6WUw74CECrwOAvN3XI84VDh0fq3KRcw90BH1ibuP+998OXNr
OxhRBMJTgWJGRkZDQwPxQ2obGRlZv3494WJcpVisCLinv/H3WgBYUHs72mPH
23a8Hlrc0BRm+HHWM+u+nJuvx6a9QCoaHx/fu3ev9l2RP8hf7R7e3t6+bdu2
JUuWaLNUmZmZfr+/oqKirq7u8ePH5lCkpaVl3rx5jY2N5meTO2l+fv4ymwoL
CxcvXtzd3T0V/h4dlQRO8jzqOVetWrVv375r1649f/7c2Rs7ODi4cuVK/XNG
Je9hUVGRHBj1ySWkz83NtfLOVFVVmbMT+/r6pG0MI8cPsSIQE2+WLX/Y2B/9
7hS88pn26GjJijOPrdZ9N1nJAoQjgZxEHVqMV15ePjw8bP3YiYmJ5uZmCW8i
x2AffPDBnTt3VMSoopSQufEhq3NYsXDhwjnGihHIa5TW2npzpmZixeXLl9v9
XXKIxVjR4hOGq20iEb4Eir6Z3EXSU2NuZGSkrKzM/HGcPn3a7aYBSWSo8cNX
353Shn4rB7TtnHl04ZHuqIHl3drcN1/NkrqHc28tkJokips/f75vJta6d89G
Xu+zZ8+0eUwlJyenoqJi7969u3fvLi0tlb+qf5JY9M9//vPo6GgwGNy0aZP2
w5Cx4uHDh9UImz6XPhz5Ldrj33vvvYcPp7/q8iu2bdumRtW0cCgc8ximvtkG
mZmZtbW1L1++tPgWPX/+vLKyUnta+UUWX4scYmUk8/z581GfU95AeRvl3ZD3
xPwMEr3X19drjywpKRkYGLD4umBFuJ7C2bNn3W4akDyGLqqe/44fLB0ROD29
stlKsqL2yFdIVgTC0G/ddfz4cet5a2psUFNeXn737l1Durv8VYK3nTt3Soil
PayqqurUqVMqArRSc0MbujTHe+vWrbM+NSwxqoSvhmeQCFni5HCH/Prrr48e
Pfrb3/62YsUKw4ESzv30008Wf7Xe+Pi4xAnm1+L3+9va2uxO/auXdunSpUWL
FumfUGJOCbl7e3ujfqDDw8Py2WlHOUg/QASBQKCgoMAcK964ccPtpgHJo/XN
OmUL+YfTZsYVMy0ElkMXP9Z9M6uuWHp2IM1IIHHo0CHtWyKBX3+/peH9qZnh
sjVr1mgHSuAnYUnIYSvlwYMHhs1krceKU2HGZ+zWdpMbtOEZLE71SrD6ww8/
GIIxife+/fZbB0tC5I2SgNnQksLCQonr7D6Vnhoc1j7Knp4e68eq0nny/6tX
r86lGdDr6upasGCB4bNWmRIArOhvKFVfn5wvLe2iMhMrbrgStaSTbhWMz/IE
N5BuVIAh8d758+ctHjU+Pr5//371/dq6dauVwagXL16sW7cuGWNFjdz38/Ly
DOGisyUh5q115f1vbm528FTKwMCABJxavNfWZm9TKn1WgHQBHC/kgYGcHj6T
4uJi3mHAOn2s6PPl7vjBwuDfyNDQoIWH3a/TlcuhsiIQgj5CKCkpsX7/0g9h
Sfj06NEjiwcapq2TK1YU586dMzyDsyUhT548Wbp0qeGpNm/ePJf531u3bmlj
g2VlZQ4qJKtFLg7eWIRz7Ngxc6zIvniAPe27M2d9hwoqDjd2PIzBdHH/WV0U
mrXjOgk4gIl+0y6JgiweJfHM9u3bHUc4ErDps/WSK1Z8+vRpUVGR4Ukk3o48
/25meA9V2Gk96jaYnJxU2/WeOHHCwTPoZ8bnPiGOqZmNFCUsNMeKhOKAPbPL
2uiiu5yidbvrmzoCDrcPUqV1ZnzYSLkcwMBxbGBI17e7olM/mJl0saLEeBIb
Gy9X9ud8tcaYl3hbj9gNnj9/rqWDzp8/v7Oz09mTNDc3qyY5CzihJx9KcXGx
4SOeN29eR0f0tZkJ1tfXp3WCDPVFo5LzLWSJVKQPVVxX1WTIzc2tqKi4dOmS
9XoR0QTbvgyxRmyWt4vWHr5uofSiXsescjknAzFqLRLn+++/11bOWik1rPj9
/iVLljx48MDt5icB/Zzj9u3brY8NGlKwHKzolMhKjWcmV6woTp8+bb5K1dbW
2nqSKV10pxeuCmJUKvKU+N/uIKeiHzW1lZOAkCQmlMjQ8BE7yxCIt9bWVivF
qUK6cOGC282HO7QKFYZFf3o5OTlff/11bEorjLTtyLdwOmaV1lsvkBion1Uu
J+p2MPAebbM5BwoKCgIBegdR6OdA5R5hK94z1H92ECsODQ2tXr1aOzzpYsWQ
5a8dBAD6WWPF2aig/tN0PDJpaNLc19ogZLKiNwdsb968WVxcHLW4qKK68KWl
pVxv01Nvb++HH74qkJ2dnb1u3Tq5+LS0tFy9evXgwYP63RliVolrpOPI6rei
npyW9mqZMXRev1+DhUXT8Bg5r1Q1Zr/fr0rzhaNVG9Yev3PnTsfjKulDvuba
mllRVFT09OlT68caNlVxUFVYYpJdu3Zph6dGrOjgeabCjDs5iCXUp7l06dIn
T57YPVxPPzPOEoy5kL5DRUWF4cOdS0pqgrW3txtOTjkxTp8+TflNCOnSLl68
2Dczcnjy5EnzXLPcheUmrl1M5P9y2YzVjvPBQFv9l2tL8iMGjZ9ZKpPYtlMX
WrxfT7mcFDAxMfHVV1+ZL7xyt43VGZhW9DVb7C5OMcSKzlbvqgakRqzorApK
yHBi9erVQ0P2MqzVm2krlyAk/QJthujnQm6mqlaAMvcPKGHM1X7sdiqRqlT1
MLnuRcj40qemS2AZ+17SSKCjqX73upKCt82XZCtDi911hW8O8B+l5GkqkICw
pqbGcDbs2rWLQNEBwwINu+lGhplTZ4WF1ZBaasSK69evdzaabX42uytl1Bol
u7kEIRmW7pKK5ky4BIMImwR5jbn9c6zphNSgAsWysrKoW4Lqexxxzb4Yulu/
IX/W6Rp9x5b+Rl25HCs7vCAJ6DPclMuXL7vdrqSkHztysCrTXEdaIiW72Xqq
DUkXK5rvoXO5DEpf21Df22ezE6SeIVarUfSLdwgPnNHneCgWS9Z7wa+//rp2
7VpD+yn1A7Vd18qVK/v6+qI+Xn/JjXtOS6BeX7C75HSUOZFgs74Mj9UUR3hc
d3f3woUL9Rcu9slyTJ+T5mDyNGSW3c6dO0dHR60/icRCnZ2dP/zwg8X5Vo/E
iiFr5swlCS1kCT5bJYwkTNWOcrAWOyT9klh2GHFGfShJer0y14r3ZqkfJJLa
rsv6BgT6S66Ti0lwaGhwKGi1gzWrWGLU3fo6DurK5ayqCyRHNw5RXL582XDt
9WbpiaSgX57pYPI0ZJadWLFiRXt7+8TERDza7JFYMeR40aFDh+aSC6Gvaqix
vgZZfRZzKatooK+fSYTgQMiT5Pjx40mUMGMu/kmvAVqZNVsLVfRz0A4mcWbW
npTUWa6Bo98KMNqccqB+1ZvTO/cAV7lUoF82q+zZs8ftdiUliQwlPpzj22je
6k7JycmR579w4cKTJ09iGDd6IVaU81Du+IZnKC8vHx4etv+C3ggZWlicr1H7
+knEGKuuk6GCNCmLtshJIn0Hw6eZdFtsm6v9kI2Q5uTyUllZKWeC/N/6pUaf
0GJ/1Z629qTa+r57ulixtD5yQYihi7PK5TRROyUVyJlZVlZmuHaRrOiMIehy
UPFmSpe1ElkM40bXY0WJAb799lv97oRaDGAlaSfqM5u7QlbmtfULKOZSVtEg
Jr2JtHXv3j1ztoz80O122WA4AeZyoUDKkBtuRkaGrZV3howd2/mKT2byDwuP
dFuOFbuP+1/9sqhHte7QlcsprafeQ0p48ODBO++8o79wyV/ZnMUZQ+an45Wz
hm2do5IHy7Xi7t27zoJGd2PFly9fSlRmqPMp99Nnz545eC1m+o1srL86tc1K
zKv26csiOV7inYbU2IsS28pyiUGyIgxUroutbaH0+0A5uFy/KpS9ynocF6j7
7avfVRptYcubqNI3vWFLB0PmKYFkxRjSx0sLFiywmKJsJrc/+e472BespKTk
p59+svvrEh8r/vrrrwMDA3LItm3bDFFxTk6O/OoYRlAhl/lHnVZWiY4xnx/U
zxyRqGZRyBSFmO1YkUAqsYFzAJqWlhY5Jezu5aTPenXQn31dKNvydiq3X+/t
nLvjepRD+ht/rzu/N1+31TB4lrlKCfNijp09e1a9jXMcng05LWtFZmbmqVOn
bN1D4xQr2iXR9dGjR+eYoBiSeeVs5OUqan4nHpvx6U+Sue8Fkybkfmr4LmzZ
siUZu7QkK0JPbSFqK+FQv/Gob+aWbfMU6ngd+VlLJhwP1L+vPTyzuilaI4NX
ZpXL+cbe3gfwJpIVY0s/ZORsZzqDn376acWKFVaDrdckwtm/f7/1q4cXYsV9
+/bFbzY25DYfEcrgqLKK8dhNQ/9GJVexF7eoAsXKhg0bkjFQDFnEiWTFdKYK
I9iqInvnzh11QZOvxv379+391ie6YonRxwmDbTtflW4o2Hl9KOpdZVayov9I
MmUTIyx9BQ8NyYpzoU9Fi0msODXThbx69ardiNFWKlecYkW5iF28eLEllHPn
zn3wwQeGSXZ5jY5n7SNT26/oRSivrZaiSzwZ83Q4/Rsl70Bra2tsnz/FmAPF
JB1RFAMDA4ZV+SQrpjktB8xWVS45+dXyKLmAnDlzxu4vnV0o2+fLr74SbnJj
vP/K5lcRwlsf1kctkxgcDFz8TFdZ0be2MWC9hCO8y7wtKcmKc6GPFSsrK817
vs/Fr7/+euvWrYMHDxYVFVlJZbS+65lba1t++eUXiRj1h2RnZ3/77bfxWK1g
rkQUbts+lWqelZUlb3jMWyLBz4IFC1Qz5r51YAqTG6g+UJSP7PDhw8m7Gsic
rMg20OlMVWmwftsdHx/fu3evOn+cpey+SlaUELG18fXmfZn+j480tnb3D77+
co0EOr6pLXm1GXRm0ZfX+8P8nsDJIp81USt4wwo5beTWuW/fvt/85jevPp7M
TDmFJJyzfjKMjo7evHnzxx9/tHiIOVmRbaAdM0wwrV27VqK7+P0uLW589913
I3w3LbbBxXXQL168WLdunf4oCRebmpps/WorzOtPxfbt283fFDVhHcOyinqG
xfKkfIQkVyE5o/RvVE5OjpwYSX11Mm9QHvet2eBhKgdMf9uVMOCLL76QToRK
0JVIQK6l8kMJBqqr3wwJ7tmzx1G/aaayYlZpvVaFe6ijfqM/0xfWW7+trr8d
Ieew/+K6t6Yfl5XjL/SH/i9/5gG+gtq7Dt4kzCKnR3l5ebgPq6SkJBCIvrRd
LRVcuXKllb5qyG1JKQ7smOH9jGusaPi9cg0JOUltsWCXuzVzenp6/H6//kDr
u1xZZ8gG14RcWqI6UI73oY7MECuyEbCZfFhHjx7Vl1H64IMP5CLpdrvmJOQW
lnz66UxdClSH0WK1NAcLGN/ov7j27dK6u7PDv8Hu6w1Hqv+g4rrMnKUla7+s
b3vIDLJXyMctH7qhuJyZlbvno0ePFi9ebP0eZx5pIdN+LtyKFTXSwTx8+LB5
btpKxp3rtbjN4y3xePfM+/35TJ2j58+fS9fMF4eyigqxYlT6XbPl2njy5Mnk
nXdWDAXxfHFLckCykIuPb/YaAX0WUwRlZWWkLqSV0dHRnTt3Wjk3fDOjiwMD
A+GeSm0zUVhY2Nvba+W3m7cltb9PEN5wN1acMqWyWP9MXY8VzWus4nEbVXGg
nqH+rfpS2KqLawuxYlT6c+mPf/xjhOteEuno6Jg3b57+3JNrdWq8NDgQMlmx
qakp3LiidJry8/PVLXv9+vWsLEgTIe/skR06dCjcGJGq8mF94sxc6aumpiap
04HcFZNYsaenp6Wl5eFDyxu6z2beH9DKwnbXY0XDLsmaCDVtnNFv26fox9L1
89TxSyMkVoxKzlhtikSzaNGi5ubmGG6A7gp9XU2NF5IV5Rr1pz/9yXinSQgJ
fs6cOZO2dxy1R4ChoPHw8LBcS+vq6vbOOHDgwKVLl7q6uuRUMcQMtgqjIUmZ
N+aQP69aterw4cNXr17Viop89tlnOTk5+i9XuHkxB4OKIbclJVlxLgxvqbNY
UZuDmMuY5Lfffqv/TK0M0LkeK4ZMnY3HndS8ENWn616prAzr3yMHiBWtkPdf
X/pVLo/y1YhtYYFECpmsKL11t9sVYkg/kdJ5j0tzsqIV+uzu7Ozs9vb2+LUQ
XiAfsX6Vk0R6IUu9yRVGTiT9nSVk+pndTMUptiWND322iVuxovmTjVqVxZux
YjwyIlQ9HD01B6Tq6sS1GkCsNg1PeeYUHYur/DzIvNGkR0prynn+ww8/7HWD
3MseP37s9hvgGnOyokX6yZGQlRyQMvR3Rrn6RT1V5PKoZuhCFhDWtjCT7oZ0
Oiy2gW1J40EfKzp7P7VnmEsdb/OIcZLGigUFBfEIDMz7/WmrxVW9bouLxx3T
L9wgVoxM7oP79+/Xv13SKb59+7bb7bLNnKzI9o7pTEL0mpoan6OCxvqqyJxF
qU2tx1yzZk1fX5+VQ9TmBeYCwr29vdpeABGyGc3YljQe9O+qs3hPixXnuCBd
H7JaGS72ZqwYp1WiKrNXT7rqd+/e1coqxnuFF/u22GLO65Zvx82bN91ulz3a
IJJeOk+/IlyyohX6iYlwGwro+ZKQ0/c1pajhC7tF5FRdEcMEmTZxZqvEB9uS
xom+9ouzHp8K8+RjddwMfaxoZXTOm7GiLz4JtCH3+5PellrVEqeyiop+WIAq
VVaYJ6NzcnLkbXS7XVapQSQ9LyQrwi1qnNnBGjq7Cc/m66r3OX1fU4r6oO3e
klTFD/24h1r3Kt0T66OCbEsaJ/p4yVkYoMI8xymLho6AlTkO12PFkDdTXxyW
Qmu0PVhDsrUxqzNz71CkIblkGeodxaNge5yETFYk9yCdOU5WnDLFinLLiPz4
cNc6L3P6voY1PDz84YcfJvIlyB1cfulc2qxlKzmr9KulWunjOm062+4Njm1J
40S/1a+zKVQVK8rhV69eddAGQ8lfK+GW67HiVJgitHEqKqLSNsziV1ZR0aem
U9HUOpWHo6xcudJiDo+7DDd3X9xycZEU1KJ4B8mKU6bbN7GiFRKTS2SeyJfg
rCMQK2rgWpubU7Npdm9wbEsaJ4Y1yA6myfQhk7Nbob7EusVOhGdjxZChlFxp
d+7cKa/x6NGjtlqoqCq4ZnOZ+rf4q/UjqHzvbDlz5oxh+4CkqEhsHseurKxM
3vo/mKO5JCtOzU5i8cVt8iXFTExMNDU1JXKZv3xMLpaENZxjEgZIMCAXz+bm
ZutPErLS1+nTp+PW6jQi13+5C8zlXTWETOvWrXvx4oX1w+W+qW/Apk2brHQi
vBArmhdb+cLM46s3OWqHOoK2tjZzocUEzAgbzhCS1mwxnN6a48ePe7yes1yu
DW3m/p7O5pKsOGW6VFKgFWYqzNOS2bTJrDVr1tiqzWLeI4NtSWPFMGrkYB8c
8/Ca9ZpyhgLveXl59+/ft3KgF2JFrePjMzEvb1HZtnO5SIbc7y8BxcoMqcJJ
tEDDI/SVaTVy2ty5c8ftdoUl8a2+qLgmfrsCwfu0ZEVnCe2GoR4KKSAcrU8h
d+Gff/5Zu9nZnTWj0ldc6YtjOEhHCTkVm5OTc/LkyciTVnINOXHihAoU5Q9n
zpyx8hsnJiaam5vNm5CuW7fOeh9kdHR09+7dhmeQ57S+NZu03zz84guVX6Hl
6M69g2MotBjvsooa/bePpDUH5DzZunWr4SQpLy+fYxp5/JgTpdxNZIK7VLDn
LFfZkI7ONQThqC6JBBVyx3Rwqpi3JaXSVwzpl7c4+HRUrCiBlnzW+hEJ+cm2
bdtu3LhhuMLIxefHH3/84IMP1CPlxGhoaAg3pHn48OFlM/x+f2Zmpjk8M8jN
zdUe/95772kbVcvZIi1Z9pphJ0qz/Px89eDz58+He+19fX2Gzay11yK9IfVa
5DErV66Un1dUVMwxUc0wkhmyyn3M6bsSc9mdJ53duXPHMAQtJ0mE88pd5mRF
Zysa4sTd/aDTsFCbmtdzMOs0ZUqeScBaPCQpbaZPro3//M//7LM/a+bZbUlT
hn7KyUFlDBUr1tfXy5VErgNHjhwxR3TyzEuWLJHQq7Cw0DAkKJFbU1NThKtQ
yKFLK9SkSbhyiFZEnjh+9uyZeZtyefk7d+68evXqpUuXtGBSXvLcS44YCi0m
4FtgWFPD986ZkBUypQfR39/vdtNC0C9718R1B0m72A86wdTMgoN0a7l9qzKw
vpm7gFwS49FIpAD9HJaDWTMqfSWA/u5gNx7QAjnD6s7e3t7du3ebp4kNJKba
unXrwMBA1F+hH+izSILSxYsXq1jx3/7t37Rg1Zbc3NyoSYYTExPff//9ihUr
IrzMM2fOxORuqzaATkBZxanZ/Qgqms6F2vpKz4NJ/oalTJp4VJh3jP2gE0zN
6zmIFQ17TtldqoC0oi/V5WAuQz9DqiHhIeb00wR2p0r37dsnIVnI2pvSqZSP
r66uTp5TP32ck5MjP/mP//gPz6ZsOSC3MImQJSaUsFm9WImWP/roozt37sRq
WCYYDLa3t7e0tDx48CABQz1z/PJCCVkhMzFZBLaYR+3YqSed6ef17MaKcoE6
dOiQOpGkr8QKKUSgv9042IzMvC3p3JOmpO989OjR4uLiVatWnTx5cnR0dC7P
lgL0g7fcGqDo65rGeyfB1BayQqbd6mEJYCiF56P6enrTFyGxW2Pz3r17+oru
W7dujXfRBiQ1FSs6CEJC7qQ2x0pfAwMD77//vv4Jk6I6brzp19h6cGoMiadP
8nS2bRP0Qm7UmICqR7aYkxWdrWhAatCnkNm6CAwPD5eXl6uzKFl2LIKLVKzo
YAGUOVnRN+cKb4bCIxrGTOQisHjxYu3dmPuKXaQA/bJrr4U0ySjkogxPlf8K
WVnRU8mKSDDDjmmHDh2y0nGQE2nDhg3qqOLi4gSljT2pLzXf3TVZay9GLp37
sE6r7JP5L35/oem//Ld8S48w3xZXKlZ0sBmZubLiHJMVx8bGNm7caD6PmGeR
K4AaUkhM4T54mf58SMw6mpQXctmIzzNlrqUv8N1335n3Bvr+++/dbhrcoZIV
/X6/NmiTnZ0ddazGUBpizZo1PT09iWlwsLk6XKg4/SqOR4r1Ih87HUN+diW9
FsAnnFYzx8EEtPRNdu7cafi83n333bkUmggXK7LGc2r20CLjSGlOvxaDRKNY
CVm83dkeu3M0MDDw8ccf69f7R75RqpqlQkLKxDcYiafKaNfU1Ny7d09b0ZyT
k3Pt2rWQo4vBYPDvf//7okWLtHMmIyPj888/d20b8f5GY5W0nN1tUS9jI0OB
1roN+a/jw6Ub6loDQ4NDQa5/8af2bYm8e9rNmzeLi4tVtZPI5VZUsT7xu9/9
zlYdA1V1xIDNy+Trf/z4ce3dYCgpzalUDdY6xZB5pZ7PpQXm0oU31/CxiFnp
NKHm9bRPXG6R6r68Zs0auZM+evRIbuv/+Mc/rl69um3bNv0eBytWrLh9+7ab
ma7tu6dLUWTNKvVb3WxpaLC/YWYq+/26ACFioqgEmMiLl0MuErTI7qy0IZVC
YUHH1Mxog9p0mNGktNXT0+P3+7XTwGKGEqxobW01R2iuFAH77rvv7NYale65
ND5cgSykHi1ZUd9b/OmnnyIUkvXNDOOUl5ffvHnT4k6p8dN9fPoKVnH2Sq1+
yLzK0jxyx8HpYyq+Seu0tART6fGbN2+OEHiMjY198cUXDuokyzNv2rTJ7pIZ
efyVK1cqZpw6dUrbbI5YUSM9RC1nSbqQ7e3tbjcHiaavikbt3NjSFxBT5r5R
OBBzKlnRMO4tQeDdu3flfr18+XKtiqw2zScPvnz5smcuF0MXP5am+Y/cmwqc
LNJ92yoao6ew9Tf+/tWxSBi1isqzu4OphHNiRY1cIvbu3at9atJDTKVy2bBC
bV4ck30JoTc4OCh3WPNojEeWtwCKSlZ0JZ92rsav75juhu2YTlAcbKzQfdci
r3CZFrxSrY5FQugXknj2Yqiu3twWFelFqoVs2i7PbrcICaKqomVkZEjviY8+
tsLFinRU4TUqWdGz9+5I7s7MPL+acQ5e+Uz3ZYu6wmXWsUiEJ0+eLF26VN71
BQsWdHV1ud2c0LQ9BEngN5C3RVsTzeBS+tAPKcsfyFaNOX15c7057i8AxJw2
J5ikO+pqi1NKT79qefBatfUVLoHTJfpjkQBqqV1xcbFn0hiMtJWJ1Fc0k3BR
K5JAyf00cf78ee0Ly05GcRIuVrS70y4QV2pOcO476rpBG0jMrb39+gfjHbNW
uPwhQtKidizJigmlavnKWSfnntvNCSEYDFZVVWn9eqbbzG7duqWFi5WVlc+e
PXO7OYgjVRBj3bp1L168cLs5qYlYEUlBJSsm54h32+7p1ZnV13UTI7NXuPjr
7kc8NmvHdSZVEkW/SYFnF7ZoafxsUxJBV1fXsmXLGGtKbWoMubq6mkAxfogV
kRRu3bolt8WMjIykTEC6XzddLufDxlkzhbNXuOR8GeaOH/JYxJPa/NSzFSHG
x8e3bt3qY/vjaHp7e//4xz/Ku2Sr5jmSyOXLl4uLi48ePWq3/BRsIVZEUtCS
FT21Wbl1Q+env2L+o4YFCMHrm2clLYZcu6IdW3KSZMXEaWlp0T4Sz55vWiFB
6To1Nze73RYAqY9YEd6nKit6NnkssuvbpO2ZO1pN/3B7VtLihqYQweLMsbpE
R8Sfx5MVHzx4oK3zdVDKGwAcIFaE96lkRc8mj0WkLWPZcCXEVGHUFS4RjkVc
SPSlCvR5sHRYX1/fypUrpW3sVwUgYYgV4X1aZUXPJo9F8aR+ulzO+/Uht3KO
ssJFO5ZkxQRSJWfnz5/f2dnpdnOM9uzZ45upHNjS0uJ2WwCkC2JFeF9TU1NG
RsaKFSvkPu52W2wLNk9vupJ7oCP0P0dc4RIm0RFxpGLFqqoqD87wBgKBsrIy
+UZQJwdAwhArAnHV9uX0Apbqa+H+PdIKl7admaETHRE3Q0NDq1evzs7Obm9v
d7stAOAJxIpAPHXXFcr3qaIxwoDo7BUuFWf7Zx9LsmKi9cxwuxUA4BXEikAc
DV2c/nYVHumOVEk7UPdb3XevsO7VlHN/Y4RERwAAEoNYEYijH3ZESlZ8bfYK
lxytQk6UREcAABKCWBGIn46DMyVvQhVOnCXUChft2PCJjgAAJAKxIhA3/fXv
y5eptD761h/mFS6B+lXREh0BAIg/YkUgXoJXqqMnK75mWOFy+Mj013JVHcmK
AAB3ESsC8dK+e7rkzbbr1h49e4XLDJIVAQCuI1YE4qT7uH96hPAbq5uuDH1T
YfgaRk90BAAgzogVgfgYuvixfJP8R+7ZOGL2V9FKoiMAAPFFrAjEhZasmLWj
zUbC4ewVLhYTHQEAiCdiRSAeAg2l02Hf/6oL2DpMt8LFcqIjAABxRKwIxNJ4
cOhhW/22IjU+WHqgLTBkPe3wzQoX64mOAADED7EiEButOzLNXyS93zf2R38W
tcKltN7eiCQAAHFBrAjERKChJNOXmbPU7y80/lfw9vR3quh4t6UnGu+ozff5
8ms7SFYEAHgAsSIAAADCkVjxo48+MseKNTU1bjcNAAAALnv+/Hlubq45Viwp
KXG7aQAAAHDZ4ODgwoULzbHi8uXL3W4aAAAAXEasCAAAgHCGhoYWLVpkjhVX
rFjhdtMAAADgsl9//XXVqlXmWPGPf/yj200DAACAy6iZAwAAgHCIFQEAABAO
sSIAAADCIVYEAABAOMSKAAAACIdYEQAAAOEQKwIAACAcYkUAAACEQ6wIAACA
cIgVAQAAEA6xIgAAAMIhVgQAAEA4xIoAAAAIR2LFjz76yBwr1tTUuN00AAAA
uGx0dHTJkiXmWPHjjz92u2kAAABwGXPQAAAACIdYEQAAAOEQKwIAACCcFI4V
7969W1FRkZmZ+Zvf/ObUqVOjo6NutwgAACDJpGqseOPGjezsbP0r+uSTT+TF
ut0uAACAZJKSseLY2NjGjRsNrygrK+vWrVtuNw0AACCZpGSsODg4uHz5cvOL
amhocLtpAAAAySQlY8WhoaHVq1ebX9SFCxfcbhoAAEAySclYcXx8fM+ePYZX
tHDhwu7ubrebBgAAkExSMlYUAwMDZWVl6uVkZ2efO3ducnLS7XYBAAAkk1SN
FUUwGGxpaTlw4EBdXV1PT4/bzQEAAEg+KRwrAgAAYI6IFQEAABAOsSIAAADC
IVYEAABAOMSKAAAACIdYEQAAAOG8ePGiuLjYHCtKAOl20wAAAOCyly9fLl68
2BwrlpaWut00AAAAuIw5aAAAAISTLLHi+Ph4bW1tRkaGuakRZGdnFxYWLtOp
qKj4y1/+cuvWLXnhbr8mJI2+vr6ioqKQZ1Rk8+fPb2xsdLv5mDY5Odnb23vm
zBm5COTk5GiXiNzc3FWrVh08ePC//uu/5CJjOGRkZGTDhg3FxcXPnz93pc0A
4AXJEivKtTpkXqVjmZmZcsu4efPmxMSE2y8OXtfa2mq3n6JcuHDB7eanO/mO
f//99ytWrIj8SS1atKi5uVldECR03Lt3r28meZuuJYB0lkSx4rp167SxmsLC
wuzs7HAX/NzcXMPYjt/vl8gw3OPLy8t/+eUXt18fPE36FNJV0U4nNSQVgToJ
S0tLA4GA281Paw8ePHjvvff0n45cPeQnu3fvllBQOozyYal/kh7Bvn37gsGg
ChRFbW2t2y8CANyULLGiWWdn54IFC/RtzsvL+/nnn8M9fmJiYmBg4PLlyxIc
GsaI5O7f1NQ0OTmZyPYjqbW3t8+bN09/FslJdfr0afM8Jtwi32j5Xutj+w8+
+ODHH380fEbyMOktfvrpp+qysH///rq6OvXXlpYWt14CAHhB8saK5mlBi1NF
cmu4cePGwoULDUMN3BFgnZwthq9MUVHR06dP3W4XXpGA8KuvvlKXCPm+X7ly
JULCiVwWrl27Zh40LigoYGQYQJpL3ljx9OnThjYfO3bM+uFyrzdMZPv9/p6e
nvg1GKmktrbWcPpt3ryZQUWPkMCvoaFBBYrFxcUW473Lly8beqBlZWUjIyPx
bjAAeFmSxopjY2MbN27UN1iu8Ddu3LD+DHJb//d//3fDqz5x4kT82oyUEfJb
I8GJ2+3CK/qeYF5eXldXl8UDg8FgVVWV/mMlWREAkjRWNC+LdjBVZB6ZXL16
9dDQUJzajJTx5MmTpUuX6s+cefPmdXR0uN2uNx48eHD48OHHjx+73RAX9Pb2
qouDdCEvX75s6/Dm5mb90KLdwwEg9SRprCj3ZcPKAgd1LRoaGgyveuHChd3d
3XFqM1LGjRs3DDOVnirBFwwG169fL63as2eP221JtMnJyUOHDqnPpaqqSt4N
W8+g7wiQrAgAU0kbK164cMHQYAdTRceOHTO/cFsT2UhP5jPHU8mK6kvt8W9x
PDx69CgvL099Lg6KW758+bKyslI7nGRFAJhKzlhxcnKypqbG0GC7q5hDPklG
RkZra2ucmo3UoEbt9M6ePet2u95I51jxxIkT6kN55513Hjx4YPcZ9JdEkhUB
YCo5Y0Xp6Ut/X99aB1NF5idxfHNBWvF+smLaxoqGL/Xy5csHBwftPola9WZ3
uRwApKpkjBUlnJOgTt9aB1NF3d3dhhKLzp4H6ebWrVtZWVn608ZTyYpTaRwr
Gr7UzmJF9e6RrAgAmmSMFS9fvmxorYMc/nPnzplfNTVzEJXHkxWn0jhWNBRI
d7ZUTb17bAMNAJpkjBXNZZDt1rUwV1ETK1eu7O/vj1ObkRrMhT19HktWnErj
WNFc2cBB729wcHD58uU+CmYCwGtJFyua8wwdJBm2t7cbNm3Jysq6evVqnNqM
lDEwMFBYWKg/c7yWrDhFrKhjqxC3ZmJiQj7QH374gVKrAKBJulgxEAgUFBTo
m2o3yVAebFjHmpGRceLECU9NI8KK/v7+v/71r0VFRVq1Q/n/qlWrzp07Nzo6
avEZ5EP/8ccfb968afEQc7KiB7eB9lqs+PLlS4niVqxYkZmZmZubW1FRceXK
lchlD+XjOHTokHTo5DPdtm2bxS+4eZNusWzZstu3b09OTsbo1QBA2km6WNF8
O9i1a5f1G4HEBsePHzcEivv37ydQTC4DAwPV1dWGgtjK4sWLJTyw8jza/r/W
h6bNI1cbN24cGxub26uJMU/Fiq2trYsWLTJ/RtLFkw8x5CHm3pzEjVa+411d
XQsWLAh5SkikeuzYsUePHvFNBwC7ki5WNCcrWi+3GwwGDx8+rA8wsrOz5e7P
7SOJSMzQ1NSUk5MTMiTQf7JRS24+f/58zZo18uDt27dbOQfkMZs3bzb8Ig9m
tXknVlT7Mi9fvly+pxKQ/+lPf1Jv3aZNm0KOLhp22fNZHryVILOioiLqifGH
P/zhzJkzT548mZiYiMOLBoBUk1yxorm1CxYssJKPJDeF9vb2FStW6I+Vv/70
008JaDZiRaK1EydOhBtONMjLy7t//36EZ9PWws+fP7+zs9PKb5dwRYIW/a/I
ysq6detWbF5b7HgkVpQ3X9tCZd26dS9evNB+eOPGDfXuhUv1NPcHrSeFnj9/
3uLp4ZuJG6VtUSfEASDNJVesaC6DHKG0ncQVcnNvbW3dt2+fftsv30yE+fXX
X3ODSC6Tk5MNDQ3WIwFf+JGrqZlBxZKSEp/lQcWpULuQFxYWhptIdZEXYkVp
wyeffOKbKS/Q19enfq6PFX1hlpBfunTJ/ClbLIttnr+2QrqN5DQCQDjJFSvK
/cJWqBDypvDtt99aX/swx9ZGnSqNkzVr1uhv0KlBTWgq7777rnQELl++LP8k
AUZNTY2hU5CVldXW1hby2ewOKgoJbAzvsweTFae8EStq88jm8gKG6pQhZ/Al
dN+7d6/hrba+hYqc+VpqgS2ZmZlnzpwhXAQAs+SKFc1lkK1buXLlo0ePEtla
81RawqTextby2S1evFi9uurq6p6eHvOdXUs2WLZsmXorqqqqzEOLdjMVp8Ik
K8oJGZuXF1Oux4rhylmbrzbhckrl3d61a5d6mN2q2s+ePYuw9CkcKzmuAJCG
kihWlDu+YXZp3rx5DQ0NLaFcvXr14MGDhgWY1pfHxoTcsCSW2OuGixcvptKC
HXkte/bsUR+iRIORx3/kna+srNQen5eXZ+4jaKNe8+fPv3PnjsU2DA0NrV69
Wn86eTYgdz1W1Cbr5f2R91n/c8MefJEjQOkL+P1+7ZEO5vrlDPnll18k4LQ1
ti+/UX6vw5cNACkqiWJFW8mKGvPCZ7lxMHSQdDo7OyWu0wJFi6WV+/r6Vq5c
qX3oholOtVo2QjajmTlZUc5GOSdtv5j4cz1W1Mb/JcDr7e3V/9xQcSjyJnoS
7KmReYn8X7586awxExMTgUDgb3/725o1azIzM6OGi2z0CQAGSRQrtra2GiaV
rOzDa859kgjTcAuDl6mYwe4UoTxYq5ttiEna2tqyZoRLZQzpwoULhu/I+vXr
vbk8yt1YUf12w9fTfKk5d+5c5KdSO7872PA9JGmP9DUklI0QN9qt7Q8AKS9c
rOjB+6A5WdHiPrw9PT1LlizRH2ixtC+8QFWqsZ5bqFG7fhcUFAQCAfXDTZs2
mQPIyORsqampMZx+3kxWnHI7VpT3qrOzUwJ1w+oqNTis0X8o4ahF09ZrqFr3
8uVL6YOYI0YHe4YCQGoLFyvaupMmQMhkRYsl18bGxjZu3Kg/tqSkJPLkNbxD
btxy+7Y7DKhRVZ0vX76s/USLWMypdJGFTFa0vjLXGTm99dl9ibRq1arHjx/H
9uUY+npWJgW0ccX47bgdsgqTN2tmAoCLzHGUxmuxojlZ0dY+vJ9//rn+WIsV
vJHs1GlTW1s7pZvOtttZMCzK8FkbFpsjc4mehIn5sh1DsG0xVtfCSzlQDo9h
Y/TU4LNevHsBAJB0DHGUxmuxovT0tdwzxVZpO/Nr5HaQDlRXSMup6O3tLSws
9Nlfv6AS55S5rLaw6MWLF3V1dQ5Wwe/atUurLyT9Kcfr6GObgmL4/pqXvZiF
y3s06Ovra2lp6ezsdJxVYvhwPbu8HQBcdPr0aXOsuHz58sHBQbeb9oY5WVGa
bfFYuaerCirEiulGO3O081lbnyJxlN1Km6pij6INVHqT6+ugzQy1Rq1MQMtn
pFVWj5ysqH00c1mQ0tXVtWDBAtU2u7UcASAdSK/cHCt6KsHbPFFuK6coEAgU
FBToD+d2kD60USP5xDs6OrTZRolbbI1BSRAioYjhC6ISID3Ia7Gi+Q208u5p
gX3kr6p6ZivBZziGBIOolbgAIA2Zc7F8HpuIMScr2qrNa94Z0FORMOJKzX7u
27cvOzvbwcoFbXFNEp0/XosVDVcYK6meqnsYORlGPfNchnkNzZtL2AkAqcq8
xlNjfZI33uaYrGjeay8xM+wu7gf9/vvv293nIlWpSEA7hSoqKuxOVpqTFT1e
gs9rsaKhNKWVVE81AR25BqP6aELuK22RoS8Zj/o8AJDs9Psj6NmKx+LKnKxo
vbRdyAnEBCxMmGI/aG8wDEpHrf9sZv4cd+3a5eX6nF6LFQ3ZnlYKa2s7vERe
AiMfgdozei6xov7ztbLoBgDSk7aTheGG6JEtzMyVFW0FQuYJRF+iVnmzH7QX
DA4OLl++3PEpHXJhlMeHnrwWKxqqEESN64aHh8vLy33RMkv1EyKON3Z5/vx5
SUmJahtV+gEgHMMFU4VktuoVx4k5WdHWHV9t/aDnkXsoEkAfK9rd+WUqORdG
eTxWjFqCQKugnpeXF3m5uj7P0HFWgH6Lage7f/7yyy+bNm1atmxZRUXFDz/8
QJwJILWdOHHCHFN5Ic3bvA20rf0H9feCyLHiwMDA+++/L3eoO3fuxPQVwE0q
VnS204q5SkBcS0PHRFLHimpQcc+ePZEvPvo0SGfb+nR1dWlZkdrpcf78eVuH
GxKS5RnkakO4CCCFSRdeq9+rF7VrnwBzSVacshMrquIqHh81gi0qVnS2saM5
WbGmpsbj8YDXYkXDd1DC73CPlDe2vr7eZ6EGpj5ZUVNZWWlraLGvr2/lypXq
8L1799rqF8vvqqioMJwb8+fP7+zstP4kAJBc5Np76NAhc1h1/PhxF++M5u2q
7Y4OmRexhryHqq2+5P+x3bEC7lKxot2yilNhFkZ5PFlxynuxomGhcYS+nhro
k4gx8ocVsnrDnj17LH55BwYG9J/s+vXr7U5hm5MTNF4u0g4Ac9fT0+P3+w2X
PhcXBk5MTLS0tEhXXd+eBQsW2Oq5q+Ibeua59atXr2bNiDDogWSkZbU5mICW
M+S7774zr/n6/vvv49TUWPFarGhIhy4vLx8eHjY/TK4/2kCflcgtZFVY7djI
1ysJQW/fvr1s2TJ1SGVl5bNnz+y+qHCxosfrKQHA3IWcsU3M0KL8imPHji2b
sWTJEkOOoll+fr724I8//jhCLcGQ46WG6chbt25p8eSmTZsYVEwxFlML5BSS
E2nZa7m5uZFPP3mAerCElAl7OVZ4LVYUZ86cUd9o+cNXX31l6KxJ/KblwEi4
2NfXF/UJVbKiliX49ddfZ2Zmaj+RP2zYsKGtrc0Qs8lvvHv3bkVFhb4lu3bt
Gh0ddfCK1EyEga1tAgAgGcnV1VwhxMH+uQ6EKwkeVVFR0dOnTyO/KEPVHd/M
4IZEES0tLV9++aV2l7F4k0ISkfBg8+bNPgvV182b+1jntVlpD8aK8h3csmWL
/k1bsWJFY2OjfAHlayihnfYdlMD7559/jvps0gGsqanx6ZaTiKamppCl77VO
pbn7KT+RD30uveCuri5zjjcJzwDSwZ07dwzTvr6EDLg9fvz4d7/73TI7tMGf
/fv3R01KHx0dra2tVSMPZmVlZdTgTT3ymRYWFvoszAx+9913ts49FX4kpidl
iwdjxamZgbgjR45E+A5++umnFkfktH6lvPmG774cvnv37uzs7HC/QkWJ33zz
TUwuaNIB+etf/7pq1Srpkpw8eXLBggXEigDSgXS0patu6IM7KCjhQcPDw5cu
XVq/fr1+kOHdd9+N1Y0DXqNGC71Q/SlhvBkraiS4kstLaWmpGgPMz8/ftm3b
vXv3rA/x9fT0FBUVSe8v5Gc6NjbW1ta2b98+CeGkp6CFjtKvlF967Ngx6ZPG
KaOmq6uLWBFA+pAr8N69ew2d8by8PLkYut00wAZV8cZWnaVk5+VYMYVpZf8T
s9c8AHhByBw/MvqQRPQVb9JqeTuxoitOnz7tS9T+oQDgEYZatRpn9SWAxFNl
Vd55550HDx643ZzEIVZMvLGxsY0bN/qorwgg/Ui4uGbNGsJFJCNVVsX7u/LF
1vj4+Pbt2+WFnzhxwu22pAutjquzrQYBINlJWGiuoiMBZE9Pj9tNA8JSZVXS
bWGLRl6vhMcTExNuNyQtyMl2/Phxn9N9JAEgBYyOju7atcuwMnrx4sXt7e0e
3xgXaUtfrtNr9Q+RYtSOVwzkAkhnExMTjY2NhlK3mZmZR48eTbcRGyQFrYCJ
nKXz5s3r6OhwuzlIWXIBlK60z9XtUAHAOx4/fvzBBx/ow0WKicGb0jZZEYk0
OTl57ty5jBkpUIEWAGJiYmKiubl50aJFxIrwsj179min6K5du8iUQJy0tLRo
tb7ZSh4ADF6+fHn69Om9e/cePnyYwrPwGlU0JiMjQ7o2bjcHqen58+fFxcUU
ngUAIOmoWJF1qYifycnJpqamsrKyQCDgdlsAAIANWmFkUsgAAAAQ0uDg4MOH
D8lUBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQIL9/0G1A3Q=
    "], {{0, 192.}, {434., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->144],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{222.18181818181844`, Automatic},
  ImageSizeRaw->{434., 192.},
  PlotRange->{{0, 434.}, {0, 192.}}]], "Text",
 CellChangeTimes->{
  3.7948917359929924`*^9},ExpressionUUID->"ce479ec0-5226-4adb-a19d-\
dad365ebf035"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", "\[ScriptCapitalR]", 
   ",", " ", "\[Beta]", ",", "\[Gamma]", ",", " ", "\[Nu]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7948318967451286`*^9, 3.7948319159407234`*^9}, 
   3.7948328576983347`*^9},
 CellLabel->
  "In[180]:=",ExpressionUUID->"9349e6bf-40fd-4c6b-8a65-abb764c5cfae"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"Ntotal", "=", 
    RowBox[{"10", "^", "6"}]}], ";", 
   RowBox[{"I0", "=", "10"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7948308226773767`*^9, 3.79483083755446*^9}, 
   3.794830963570774*^9, {3.7948310744009004`*^9, 3.7948310761248226`*^9}, {
   3.794831854800934*^9, 3.794831870086172*^9}, 3.794832042454871*^9, 
   3.794832121623204*^9, {3.7948335276486025`*^9, 3.7948335427905254`*^9}, {
   3.7948917234561405`*^9, 3.794891723941161*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"0a9abd69-2c9e-4184-ad5f-d86ed1f6af65"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SIRVmodel", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalS]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Beta]"}], " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}], "/", "Ntotal"}]}], "-",
        " ", 
       RowBox[{"\[Nu]", " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalI]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}], "/", "Ntotal"}]}], "-", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalR]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}], "+", " ", 
       RowBox[{"\[Nu]", " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}]}]}]}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.7946568265461245`*^9, {3.7948295890551467`*^9, 3.7948295943595023`*^9}, {
   3.7948296783330584`*^9, 3.7948296849479437`*^9}, {3.794829754651681*^9, 
   3.7948297953228292`*^9}, {3.7948298849876375`*^9, 
   3.7948299187736645`*^9}, {3.7948299531409874`*^9, 3.7948299631389246`*^9}, 
   3.7948300089159527`*^9, 3.794830140045807*^9, {3.794830242217456*^9, 
   3.7948302793389864`*^9}, {3.794830447810799*^9, 3.794830456336114*^9}, {
   3.7948305077021265`*^9, 3.7948305170158267`*^9}, {3.7948313515878954`*^9, 
   3.794831443719623*^9}, {3.7948314948899813`*^9, 3.7948315008216243`*^9}, {
   3.794832339854637*^9, 3.7948323404500675`*^9}, {3.794832543699917*^9, 
   3.794832575941925*^9}, {3.7948326081516275`*^9, 3.794832657773405*^9}, 
   3.794832810645406*^9},
 CellLabel->
  "In[182]:=",ExpressionUUID->"0da86cca-fd47-4ab4-968e-426a1fa1b99a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"susceptibleSIRV", ",", "infectedSIRV", ",", "recoveredSIRV"}], 
    "}"}], "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", 
      "\[ScriptCapitalR]"}], "}"}], "/.", 
    RowBox[{"ParametricNDSolve", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{"SIRVmodel", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"\[ScriptCapitalS]", "[", "0", "]"}], "\[Equal]", " ", 
           "Ntotal"}], ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalI]", "[", "0", "]"}], "\[Equal]", "I0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalR]", "[", "0", "]"}], "\[Equal]", "0"}]}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", 
        "\[ScriptCapitalR]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Beta]", ",", "\[Gamma]", ",", "\[Nu]"}], "}"}]}], "]"}]}]}],
   ";"}]], "Input",
 CellChangeTimes->{
  3.792145347285343*^9, {3.792145859494135*^9, 3.792145860934304*^9}, 
   3.792159172996607*^9, 3.7922495027605352`*^9, 3.792328894028928*^9, {
   3.7923459125259132`*^9, 3.7923459817560787`*^9}, {3.7923493003095913`*^9, 
   3.792349308508486*^9}, {3.792395076171653*^9, 3.792395089793461*^9}, {
   3.792399532090517*^9, 3.792399532776864*^9}, {3.7924015378174677`*^9, 
   3.7924016009497147`*^9}, {3.7924019007673473`*^9, 3.792401915620026*^9}, {
   3.794830535665866*^9, 3.794830794105089*^9}, {3.794831531495318*^9, 
   3.7948315326938562`*^9}, {3.7948323665334396`*^9, 3.794832377163701*^9}, {
   3.7948326755423946`*^9, 3.794832689121998*^9}},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[183]:=",ExpressionUUID->"afe409ad-2c22-4e83-bbc6-ca27afdb8371"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"infectedSIRV", "[", 
     RowBox[{"0.1", ",", " ", "0.1", ",", " ", "0.1"}], "]"}], "[", "t", 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "1", ",", " ", "50"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7948915404364433`*^9, 3.7948916104633627`*^9}, {
  3.7948917059211864`*^9, 3.794891708202237*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"d42640a0-f77d-43b5-a331-0ce9b216fc0c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVk3s81PkexgfTMvSq1DEWM1vmV6KQJqXB9P24zfw4tqTY0yGJUFjU2tnW
JWRyySVx0nZYWqeQiNixtG6H9JvZSi651hitaYZYrCGD1hznj+f1vJ7/3q/n
9TzGAZGeQeokEilkXf93nZjIjWqkOUTOr29yk2MQ7sG1v8GeQxdPeEmyZRh0
mWwPp8fOIVJ33Znu9xjk9nU9Z32cQ5TStSt/l2JgaGGZcWn6T5TCmPdlvMPA
bGyaIh1SoDGBfsuJEQyu1z9lXaIuINlXOT4RwxhMZxZeIJ1cQHcV1PCUIQxq
WO4i2qsFVNtGTD0awOBw3sM0r85F9MRdJ/NdLwZcTqgm8XgJSTR/udr1Gwbl
NEcbr9klpNA4vtgmwkBbYRAybq5EtQWSuRrhOm+x6JmqTIl+5pxMS3+Ggfey
acrhomW032TWj96OQVClnFxxfRXlylLF3Q0YJG8NUs8KVCFa0Uhn1D0M4mxv
1OClKmR9t6tnuQQDXkCjH3lShUi8cPPEnzCwHk4Rs21IcMmy/zW/CAMTszcs
QRMJBrrKdkb8gIGOKHn+P4Qa/OtRo2d7Bgb9Wv2BSWINuO0hjouPwqCX9sFW
sqYBk9/VDtdFrPNaqXTZO8hAmRpukYdjIPyHWZsygAzM8TNm+AUMnpTH06Im
yFDhT6mdOotBEW7S76fYADZNb3e3emJwPu07jj1FC0ReA173mBicU05sPmeq
BRWRkfdrrTA4c/6fwxlcLWiUPyW1Wq73gbPD31zTAom4bKxnDwbOWhq5MeoU
CBlIjRhjYLAjLVvcsEqB8uYk7ZKtGAym3o8+OKMDouyppP/OMYCT2ldi2bcZ
ntUZ2nWUMcCY572m9us20L4sHW3/jAF/czyf4yzRhyf8I+GhjsYwnrUhorPJ
CHyq9MzocTtgt4Kw+uKP7ZC3R2Tka70dmq/tZC2QGbDmEEf6GEaH1z0VCcrZ
9V7DvE/tajGC0oqOhvNkEyj33+KEzxhAsFOJ/uXF3eAfcSrK1/lzqDo4drDt
rRksfhS44lVUqP65hhP9x971XYY9v6OuB8UKTjwxYgH+mEP0G/42cG2NLE35
cx8M+rwUta/oAns+lotUVuBu6uG7lrkFXkpLurQX9oP+7ZmR4vxN8IS+7Vjm
X0zYa+f072LNjVB0KDjg9OIBqN1IZZm+oIDklnqkVO0gOGxosE/P0ATpT0ff
pFIOwfNHrz9nJmyAsaz4kRjVIZjuNqyXNmoAq22xF9M+DKUvGUyBQg3Sez38
aBoscMzqrBGHk+DHmz6u+5dY8GKmcNGUuoY23a62+KSyBcpm/h2fk6uIFye7
R12yg4Kkyih1pRLZlwfrydXZwDSg3TS4+xF1Jua/76McgVNZo4HilAXkwnqA
b1EdgbFQel1y0zzSLbzqmUQGyMlQxiWu/zhWh+FWkgigbZ5mtCSfQdzjdy4e
XwGwJwYfZzCnkaOt4JbPFQc4xlSXRfMn0eE8x+SsZQdIeLonLIUtR6dvRH9t
mOAIOUGRxIM1KYpf1Td+teoIklAP/znqOFKx88hbeU6gHdORMRTwDtVgddLq
FSdwls4y6i9IkO/3ztnf8pyBZfH7WVnOW2RzKcY6/5MzPL7fEuT1dBhFO6Rp
uyS6AKuqOtUGH0SViZoVRqsuIJLn62dY9KNtgXs5XyZyILsjSFln1Ie+FbQ9
LP3EAW6xW0GITw9ijVo4ZPO4UMx9cF+e/wqZV6C+7hUu6Bav8G8lv0CGsnZL
Ox4O85adByonRSjXXeYQcBmHssogcuGoCOnUUbzSY3A4i6r5OX0i9CnBI3bw
Cg7jVYzM1GYREhuMEt+k4nA1uS++6qYI3f1y2b/yBxzW9HC7QVsR2iXYl0f/
FYfcCPMdt3KEqMjoRKlzMw6tXznt108RIupVXmNYKw7e3EeCH2OF6LNjzZLG
Dhzez1J1G4KFaGLCzdz7BQ61Zz1HjdlCVEEL7swW42BUcuGA8AOBGMnpQwIJ
DktuoQU5YwQqmKycevsOh8leg1OnBwiUWa/Q3SvD4eghWpdGO4G+9kjyI2Zw
cOW8DOXfIZCs/t7FmTkc9o0HukfeIJAfXcjXU+CQ/Xwg2u8agY5+2PQwcAmH
IeuJXNeLBHrmwWy5vryet/TyXUIIhH7x6nm8igNvxrLe5TSBGujfS4f+wgFi
d+5yO0EgK37hkkqFA3Fu6JWnK4H+B7pFBHk=
       "]]},
     Annotation[#, "Charting`Private`Tag$48792#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1, 50}, {0., 9.95174207428773}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7948915878655295`*^9, 3.794891611395675*^9}, {
   3.7948917106334047`*^9, 3.7948917287659864`*^9}, 3.794894863151813*^9, 
   3.7948970442589264`*^9, 3.7949012567495947`*^9, 3.794918937457451*^9, 
   3.7949755614863596`*^9, 3.794977658773559*^9, 3.794985759043499*^9, 
   3.79501255616439*^9, 3.7950597278951635`*^9, 3.7951572116634626`*^9, 
   3.795319833337236*^9, 3.795319969833897*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"2a565086-4160-45d7-9fe7-e75885c9b425"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Modelo 5:  SEIRD Model with standard incidence", "Subsection",
 CellChangeTimes->{{3.7922302163512487`*^9, 3.792230217047862*^9}, {
   3.7923465631285353`*^9, 3.792346566215217*^9}, 3.7924007964793663`*^9, {
   3.79275581323365*^9, 3.792755833865117*^9}, {3.794887911300208*^9, 
   3.794887933831708*^9}},ExpressionUUID->"a0154c2a-9e9b-44f3-8619-\
fe8f3e80dce5"],

Cell[CellGroupData[{

Cell["SEIRD: SEIR model with dead compartment", "Item",
 CellChangeTimes->{{3.792341549833569*^9, 3.792341579069277*^9}, {
  3.792344438320217*^9, 3.7923444445355997`*^9}, {3.792411374786826*^9, 
  3.792411383898698*^9}},ExpressionUUID->"7f4e9dfe-8560-4e97-96de-\
eb9a245893f6"],

Cell[TextData[{
 "An effective population size ",
 Cell[BoxData[
  FormBox["\[ScriptCapitalN]", TraditionalForm]],ExpressionUUID->
  "5b5917d5-89f0-41ba-9646-5288f9f58a7c"],
 " with standard incidence will be used"
}], "Item",
 CellChangeTimes->{{3.7919720592929792`*^9, 3.791972108962049*^9}, {
  3.791972139902129*^9, 3.791972174247023*^9}, {3.792344592970443*^9, 
  3.79234464770597*^9}, {3.7923454783634377`*^9, 3.7923454783636713`*^9}, {
  3.792346006457921*^9, 3.792346024788649*^9}, {3.7927554417337103`*^9, 
  3.7927554430860863`*^9}, {3.792755503468541*^9, 3.7927555150147552`*^9}, {
  3.7927556165471354`*^9, 
  3.7927556165474997`*^9}},ExpressionUUID->"5d4d9cd8-1a0b-47eb-924f-\
ba8a0e073d56"],

Cell[CellGroupData[{

Cell[TextData[{
 "This assumes that individuals in the population cannot come in contact with \
all other individuals in the population; this is in contrast to models for \
influenza and SARS [",
 ButtonBox["MM",
  BaseStyle->"Hyperlink",
  ButtonData->"MM"],
 "]"
}], "Subitem",
 CellChangeTimes->{{3.7919720592929792`*^9, 3.791972108962049*^9}, {
  3.791972139902129*^9, 3.791972174247023*^9}, {3.792344592970443*^9, 
  3.79234464770597*^9}, {3.7923454783634377`*^9, 3.7923454783636713`*^9}, {
  3.792346006457921*^9, 3.792346024788649*^9}, {3.7927554417337103`*^9, 
  3.7927554430860863`*^9}, {3.792755503468541*^9, 3.7927555150147552`*^9}, {
  3.792755620616015*^9, 3.792755640512745*^9}, {3.792918181518791*^9, 
  3.7929182026601562`*^9}},ExpressionUUID->"6e3113fb-c11c-47c1-8d35-\
a432e90bce21"],

Cell[TextData[{
 "\[ScriptCapitalN] may be adjusted for individual locations; initially we'll \
use ",
 Cell[BoxData[
  FormBox["100000", TraditionalForm]],ExpressionUUID->
  "c91283f9-d337-4e03-a88a-3e935783a286"],
 " individuals"
}], "Subitem",
 CellChangeTimes->{{3.7919720592929792`*^9, 3.791972108962049*^9}, {
  3.791972139902129*^9, 3.791972174247023*^9}, {3.792344592970443*^9, 
  3.79234464770597*^9}, {3.7923454783634377`*^9, 3.7923454783636713`*^9}, {
  3.792346006457921*^9, 3.792346024788649*^9}, {3.7927554417337103`*^9, 
  3.7927554430860863`*^9}, {3.792755503468541*^9, 
  3.792755524012033*^9}},ExpressionUUID->"57313558-8453-4292-a65c-\
b7bbb87071e8"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\[ScriptCapitalS]", 
      OverscriptBox["\[RightArrow]", 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}]], 
      "\[ScriptCapitalE]"}], "\<\"infection\"\>"},
    {
     RowBox[{"\[ScriptCapitalE]", 
      OverscriptBox["\[RightArrow]", "\[Zeta]"], 
      "\[ScriptCapitalI]"}], "\<\"incubation\"\>"},
    {
     RowBox[{"\[ScriptCapitalI]", 
      OverscriptBox["\[RightArrow]", "\[Gamma]"], 
      "\[ScriptCapitalR]"}], "\<\"recovery\"\>"},
    {
     RowBox[{"\[ScriptCapitalI]", 
      OverscriptBox["\[RightArrow]", "\[Mu]"], 
      "\[ScriptCapitalD]"}], "\<\"death\"\>"}
   },
   AutoDelete->False,
   BaseStyle->{18},
   GridBoxAlignment->{"Columns" -> {Center, Left}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{3}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.7947413768580074`*^9},ExpressionUUID->"b1d113f1-900b-40df-8361-\
e39e2a71343a"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalD]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalE]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalI]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalR]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
       CompartmentalModeling`Private`$R[1][$CellContext`\[Zeta]], 
       CompartmentalModeling`Private`$R[2][$CellContext`\[Gamma]], 
       CompartmentalModeling`Private`$R[3][$CellContext`\[Mu]], 
       CompartmentalModeling`Private`$R[
       4][$CellContext`\[Beta] $CellContext`\[Lambda][$CellContext`t]]}, {{{2,
        6}, {6, 3}, {3, 7}, {7, 4}, {3, 8}, {8, 1}, {5, 9}, {9, 2}}, Null}, {
      BaseStyle -> {18}, 
       GraphLayout -> {
        "LayeredDigraphEmbedding", "RootVertex" -> 
         CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
         "Orientation" -> Left}, ImageSize -> Large, PerformanceGoal -> 
       "Quality", VertexShapeFunction -> {
         CompartmentalModeling`Private`vsf[{18}]}}]], Typeset`boxes, 
    Typeset`boxes$s2d = GraphicsGroupBox[{{
       Arrowheads[Medium], 
       Directive[
        Opacity[0.7], 
        Hue[0.6, 0.7, 0.5]], 
       Directive[], 
       ArrowBox[{
         DynamicLocation["VertexID$2", Automatic, Center], 
         DynamicLocation["VertexID$6", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$3", Automatic, Center], 
         DynamicLocation["VertexID$7", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$3", Automatic, Center], 
         DynamicLocation["VertexID$8", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$5", Automatic, Center], 
         DynamicLocation["VertexID$9", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$6", Automatic, Center], 
         DynamicLocation["VertexID$3", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$7", Automatic, Center], 
         DynamicLocation["VertexID$4", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$8", Automatic, Center], 
         DynamicLocation["VertexID$1", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$9", Automatic, Center], 
         DynamicLocation["VertexID$2", Automatic, Center]}]}, {
       Directive[
        Hue[0.6, 0.2, 0.8], 
        EdgeForm[
         Directive[
          GrayLevel[0], 
          Opacity[0.7]]]], 
       Directive[], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalD]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {0., 0.}], 
        "DynamicName", BoxID -> "VertexID$1"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalE]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-3.9999999732051017`, 
         1.0000001071795879`}], "DynamicName", BoxID -> "VertexID$2"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalI]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-1.9999999732051024`, 
         1.0000000535897937`}], "DynamicName", BoxID -> "VertexID$3"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalR]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {
         2.6794897029117842`*^-8, 0.9999999999999997}], "DynamicName", BoxID -> 
        "VertexID$4"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalS]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-5.999999973205101, 
         1.0000001607693818`}], "DynamicName", BoxID -> "VertexID$5"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Zeta]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-2.999999973205102, 
         1.0000000803846907`}], "DynamicName", BoxID -> "VertexID$6"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Gamma]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-0.9999999732051026, 
         1.0000000267948967`}], "DynamicName", BoxID -> "VertexID$7"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Mu]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-0.9999999999999997, 
         2.6794897029117842`*^-8}], "DynamicName", BoxID -> "VertexID$8"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox[
             RowBox[{"\[Beta]", " ", 
               RowBox[{"\[Lambda]", "(", "t", ")"}]}], 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-4.999999973205101, 
         1.0000001339744848`}], "DynamicName", BoxID -> 
        "VertexID$9"]}}], $CellContext`flag}, 
    TagBox[
     DynamicBox[GraphComputation`NetworkGraphicsBox[
      3, Typeset`graph, Typeset`boxes, $CellContext`flag], {
      CachedValue :> Typeset`boxes, SingleEvaluation -> True, 
       SynchronousUpdating -> False, TrackedSymbols :> {$CellContext`flag}},
      ImageSizeCache->{{0.2265306674819172, 633.6}, {-70.81226157953141, 
       66.00000000000001}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False,
    UnsavedVariables:>{$CellContext`flag}]],
  BaseStyle->{18},
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->Large]], "Output",
 CellChangeTimes->{
  3.792399031811212*^9, 3.792399108831285*^9, {3.7923992113854322`*^9, 
   3.792399296370585*^9}, {3.7923993591219597`*^9, 3.7923993808096857`*^9}, 
   3.792401406302203*^9, 3.7924072622957993`*^9, 3.792593496026552*^9, 
   3.792687479183713*^9, 3.7927431935881157`*^9, 3.7937821713069735`*^9, 
   3.794741377326723*^9},ExpressionUUID->"fe3fc6c9-62c0-4f19-ac01-\
b4966fb1aba5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"odesSEIRD", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalS]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", 
       RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
       RowBox[{"\[Lambda]", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalE]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Zeta]"}], " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "+", 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalI]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"\[Zeta]", " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "-", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}], "-", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalR]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalD]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Mu]", " ", 
       RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}]}]}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"forceOfInfectionSEIRD", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "t_", "]"}], "\[RuleDelayed]", 
     FractionBox[
      RowBox[{"\[ScriptCapitalI]", "[", "t", "]"}], 
      RowBox[{"\[ScriptCapitalN]", "-", 
       RowBox[{"\[ScriptCapitalD]", "[", "t", "]"}]}]]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varsSEIRD", "=", 
   RowBox[{"Cases", "[", 
    RowBox[{"odesSEIRD", ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["v_", "\[Prime]"], "[", "t", "]"}], "\[RuleDelayed]", 
      "v"}], ",", "\[Infinity]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.792145330281796*^9, {3.7921454644890013`*^9, 3.7921454717593327`*^9}, {
   3.792325304625099*^9, 3.792325364185525*^9}, {3.792325462651072*^9, 
   3.792325488970152*^9}, {3.792327403717453*^9, 3.7923274347555017`*^9}, {
   3.792345811723085*^9, 3.7923458585289097`*^9}, {3.792346173030183*^9, 
   3.792346205838931*^9}, {3.792346268653302*^9, 3.7923462817250433`*^9}, {
   3.792348460608849*^9, 3.792348490887847*^9}, 3.792399520715344*^9, {
   3.792401457652212*^9, 3.792401516240679*^9}, {3.79240187151413*^9, 
   3.7924018789746723`*^9}, {3.7924021037435827`*^9, 3.792402103851643*^9}, 
   3.7948008064723673`*^9},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[185]:=",ExpressionUUID->"7ba032f4-0f69-47b0-85cc-30d05dc8f7d0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "susceptibleSEIRD", ",", "exposedSEIRD", ",", "infectedSEIRD", ",", 
     "recoveredSEIRD", ",", "deadSEIRD"}], "}"}], "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[ScriptCapitalS]", ",", "\[ScriptCapitalE]", ",", "\[ScriptCapitalI]", 
      ",", "\[ScriptCapitalR]", ",", "\[ScriptCapitalD]"}], "}"}], "/.", 
    RowBox[{"ParametricNDSolve", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"odesSEIRD", "/.", "forceOfInfectionSEIRD"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"\[ScriptCapitalS]", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"\[ScriptCapitalN]", "-", "I0"}]}], ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalE]", "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalI]", "[", "0", "]"}], "\[Equal]", "I0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalR]", "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalD]", "[", "0", "]"}], "\[Equal]", "0"}]}], 
         "}"}]}], "]"}], ",", "varsSEIRD", ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "500"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalN]", ",", "I0", ",", "\[Beta]", ",", "\[Zeta]", ",", 
        "\[Gamma]", ",", "\[Mu]"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.792145347285343*^9, {3.792145859494135*^9, 3.792145860934304*^9}, 
   3.792159172996607*^9, 3.7922495027605352`*^9, 3.792328894028928*^9, {
   3.7923459125259132`*^9, 3.7923459817560787`*^9}, {3.7923493003095913`*^9, 
   3.792349308508486*^9}, {3.792395076171653*^9, 3.792395089793461*^9}, {
   3.792399532090517*^9, 3.792399532776864*^9}, {3.7924015378174677`*^9, 
   3.7924016009497147`*^9}, {3.7924019007673473`*^9, 3.792401915620026*^9}},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[188]:=",ExpressionUUID->"51a886e9-23ae-46b9-af74-19036638f852"],

Cell[BoxData[
 TemplateBox[{
  "ParametricNDSolve", "dspar", 
   "\"\\!\\(\\*RowBox[{\\\"10\\\"}]\\) cannot be used as a parameter.\"", 2, 
   188, 50, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.794894863171792*^9, 3.7948970443423758`*^9, 
  3.794901256781568*^9, 3.7949189375668077`*^9, 3.794975561560322*^9, 
  3.794977658867319*^9, 3.794985759131437*^9, 3.7950125561956377`*^9, 
  3.795059728020155*^9, 3.7951572117762365`*^9, 3.795319833408185*^9, 
  3.7953199698568945`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[188]:=",ExpressionUUID->"81b995c4-19c0-4c1f-8076-dfb9b83ba5c0"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll", "reps", 
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"ParametricNDSolve\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{SuperscriptBox[\
\\\"\[ScriptCapitalS]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"-\\\", \
FractionBox[RowBox[{\\\"\[Beta]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalI]\
\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], RowBox[{\\\"\
\[ScriptCapitalN]\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}]}]]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalE]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"\[Zeta]\\\"}], \\\" \
\\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \
\\\"+\\\", FractionBox[RowBox[{\\\"\[Beta]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\", RowBox[{\
\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \
RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{\\\"\[Zeta]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\
\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\[Mu]\\\", \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}]}], \
\\\",\\\", RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalR]\\\", \\\"\
\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"\[Gamma]\\\", \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \
\\\",\\\", RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalD]\\\", \\\"\
\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"\[Mu]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \\\",\\\", \
RowBox[{RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", RowBox[{RowBox[{\\\"-\\\", \\\"10\\\"}], \\\"+\\\", \\\"\
\[ScriptCapitalN]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalE]\\\
\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}], \\\",\\\
\", RowBox[{RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"0\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"10\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"\
\[ScriptCapitalR]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \
\\\"0\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalD]\\\", \\\"[\\\", \
\\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}]}], \\\"}\\\"}], \\\",\\\
\", RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalS]\\\", \\\",\\\", \\\"\
\[ScriptCapitalE]\\\", \\\",\\\", \\\"\[ScriptCapitalI]\\\", \\\",\\\", \\\"\
\[ScriptCapitalR]\\\", \\\",\\\", \\\"\[ScriptCapitalD]\\\"}], \\\"}\\\"}], \
\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"t\\\", \\\",\\\", \\\"0\\\", \
\\\",\\\", \\\"500\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\
\\\"\[ScriptCapitalN]\\\", \\\",\\\", \\\"10\\\", \\\",\\\", \\\"\[Beta]\\\", \
\\\",\\\", \\\"\[Zeta]\\\", \\\",\\\", \\\"\[Gamma]\\\", \\\",\\\", \\\"\[Mu]\
\\\"}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is neither a list of \
replacement rules nor a valid dispatch table, and so cannot be used for \
replacing.\"", 2, 188, 51, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.794894863171792*^9, 3.7948970443423758`*^9, 
  3.794901256781568*^9, 3.7949189375668077`*^9, 3.794975561560322*^9, 
  3.794977658867319*^9, 3.794985759131437*^9, 3.7950125561956377`*^9, 
  3.795059728020155*^9, 3.7951572117762365`*^9, 3.795319833408185*^9, 
  3.795319969865879*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[188]:=",ExpressionUUID->"d1075978-d9fa-4073-82a2-4b4ce291c990"],

Cell[BoxData[
 TemplateBox[{
  "Set", "shape", 
   "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"susceptibleSEIRD\\\", \
\\\",\\\", \\\"exposedSEIRD\\\", \\\",\\\", \\\"infectedSEIRD\\\", \\\",\\\", \
\\\"recoveredSEIRD\\\", \\\",\\\", \\\"deadSEIRD\\\"}], \\\"}\\\"}]\\) and \
\\!\\(\\*RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalS]\\\", \
\\\",\\\", \\\"\[ScriptCapitalE]\\\", \\\",\\\", \\\"\[ScriptCapitalI]\\\", \
\\\",\\\", \\\"\[ScriptCapitalR]\\\", \\\",\\\", \\\"\[ScriptCapitalD]\\\"}], \
\\\"}\\\"}], \\\"/.\\\", \\\"\[VeryThinSpace]\\\", \
RowBox[{\\\"ParametricNDSolve\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalS]\\\", \
\\\"\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\
\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"-\\\", \
FractionBox[RowBox[{\\\"\[Beta]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalI]\
\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], RowBox[{\\\"\
\[ScriptCapitalN]\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}]}]]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalE]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"\[Zeta]\\\"}], \\\" \
\\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \
\\\"+\\\", FractionBox[RowBox[{\\\"\[Beta]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\", RowBox[{\
\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \
RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{\\\"\[Zeta]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\
\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\[Mu]\\\", \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}]}], \
\\\",\\\", RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalR]\\\", \\\"\
\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"\[Gamma]\\\", \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \
\\\",\\\", RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalD]\\\", \\\"\
\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"\[Mu]\\\", \\\" \\\", RowBox[{\\\"\
\[ScriptCapitalI]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}], \\\",\\\", \
RowBox[{RowBox[{\\\"\[ScriptCapitalS]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", RowBox[{RowBox[{\\\"-\\\", \\\"10\\\"}], \\\"+\\\", \\\"\
\[ScriptCapitalN]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalE]\\\
\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}], \\\",\\\
\", RowBox[{RowBox[{\\\"\[ScriptCapitalI]\\\", \\\"[\\\", \\\"0\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"10\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"\
\[ScriptCapitalR]\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \
\\\"0\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalD]\\\", \\\"[\\\", \
\\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}]}], \\\"}\\\"}], \\\",\\\
\", RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalS]\\\", \\\",\\\", \\\"\
\[ScriptCapitalE]\\\", \\\",\\\", \\\"\[ScriptCapitalI]\\\", \\\",\\\", \\\"\
\[ScriptCapitalR]\\\", \\\",\\\", \\\"\[ScriptCapitalD]\\\"}], \\\"}\\\"}], \
\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"t\\\", \\\",\\\", \\\"0\\\", \
\\\",\\\", \\\"500\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\
\\\"\[ScriptCapitalN]\\\", \\\",\\\", \\\"10\\\", \\\",\\\", \\\"\[Beta]\\\", \
\\\",\\\", \\\"\[Zeta]\\\", \\\",\\\", \\\"\[Gamma]\\\", \\\",\\\", \\\"\[Mu]\
\\\"}], \\\"}\\\"}]}], \\\"]\\\"}]}]\\) are not the same shape.\"", 2, 188, 
   52, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.794894863171792*^9, 3.7948970443423758`*^9, 
  3.794901256781568*^9, 3.7949189375668077`*^9, 3.794975561560322*^9, 
  3.794977658867319*^9, 3.794985759131437*^9, 3.7950125561956377`*^9, 
  3.795059728020155*^9, 3.7951572117762365`*^9, 3.795319833408185*^9, 
  3.7953199698758726`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[188]:=",ExpressionUUID->"34754e16-6724-4baf-a34e-ba9380e3524b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Modelo 6:  SEIsaRD Model", "Subsection",
 CellChangeTimes->{{3.792517589675811*^9, 3.792517605307266*^9}, {
  3.7948879391435614`*^9, 
  3.7948879422691507`*^9}},ExpressionUUID->"ea4b1134-2865-4fa0-80e9-\
0fb1e1684e5e"],

Cell[CellGroupData[{

Cell["\<\
SEIsaRD: SEIR model with symptomatic and asymptomatic infectious compartments\
\>", "Item",
 CellChangeTimes->{{3.792341549833569*^9, 3.792341579069277*^9}, {
  3.792344438320217*^9, 3.7923444445355997`*^9}, {3.792411374786826*^9, 
  3.792411405649922*^9}, {3.792516401952018*^9, 3.792516424720592*^9}, {
  3.7925166415465307`*^9, 3.792516656931034*^9}, {3.792517046476489*^9, 
  3.792517060100565*^9}, {3.792517620923181*^9, 
  3.79251764611336*^9}},ExpressionUUID->"502aa07e-4d60-496f-9bf5-\
96d9699155ae"],

Cell["Standard incidence", "Item",
 CellChangeTimes->{{3.792341549833569*^9, 3.792341579069277*^9}, {
   3.7924132674572287`*^9, 3.792413270178129*^9}, 3.792413598164106*^9, {
   3.792417896145657*^9, 3.792417906113583*^9}, {3.7924179534796677`*^9, 
   3.792417954855908*^9}},ExpressionUUID->"2b670fa6-d99c-4cc6-accd-\
ef5c5ee017a7"],

Cell["\<\
The duration of infection for symptomatic and asymptomatic infectious \
individuals is the same\
\>", "Item",
 CellChangeTimes->{{3.792344389062975*^9, 3.7923444015450897`*^9}, {
  3.792344464830926*^9, 3.792344467470889*^9}, {3.7923446914006147`*^9, 
  3.79234474299804*^9}, {3.792344780509407*^9, 3.792344784020988*^9}, {
  3.792345009934803*^9, 3.792345012181608*^9}, {3.792345120412508*^9, 
  3.792345205482031*^9}, {3.792345238132245*^9, 3.792345238133642*^9}, {
  3.7927563111230717`*^9, 3.792756313410075*^9}, {3.792779974088808*^9, 
  3.792780004442266*^9}, {3.7927801563011312`*^9, 
  3.7927801563014708`*^9}},ExpressionUUID->"7fc5d45d-93be-478f-8a9f-\
152b38fc9c66"],

Cell["\<\
We have two different recovered compartments for book keeping\
\>", "Subitem",
 CellChangeTimes->{{3.792344389062975*^9, 3.7923444015450897`*^9}, {
  3.792344464830926*^9, 3.792344467470889*^9}, {3.7923446914006147`*^9, 
  3.79234474299804*^9}, {3.792344780509407*^9, 3.792344784020988*^9}, {
  3.792345009934803*^9, 3.792345012181608*^9}, {3.792345120412508*^9, 
  3.792345205482031*^9}, {3.792345238132245*^9, 3.792345238133642*^9}, {
  3.7927563111230717`*^9, 3.792756313410075*^9}, {3.792779974088808*^9, 
  3.792780004442266*^9}, {3.792780158617841*^9, 
  3.792780193037834*^9}},ExpressionUUID->"b4dcdf53-263d-45b4-a0bd-\
916f611bd4f6"],

Cell["\<\
death due to disease occurs only for symptomatic infectious individuals\
\>", "Item",
 CellChangeTimes->{{3.792344389062975*^9, 3.7923444015450897`*^9}, {
  3.792344464830926*^9, 3.792344467470889*^9}, {3.7923446914006147`*^9, 
  3.79234474299804*^9}, {3.792344780509407*^9, 3.792344784020988*^9}, {
  3.792345009934803*^9, 3.792345012181608*^9}, {3.792345120412508*^9, 
  3.792345205482031*^9}, {3.792345238132245*^9, 3.792345238133642*^9}, {
  3.7927563111230717`*^9, 3.792756313410075*^9}, {3.792779974088808*^9, 
  3.792780036525085*^9}},ExpressionUUID->"87878e2e-08e9-451a-a7fe-\
115fef952eac"],

Cell["These are the transitions:", "Item",
 CellChangeTimes->{{3.792755708072609*^9, 
  3.792755717461008*^9}},ExpressionUUID->"fe94445f-dbcd-477a-9f8c-\
a383119eabff"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"modelGrid", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[ScriptCapitalS]", 
         OverscriptBox["\[RightArrow]", 
          RowBox[{"\[Beta]", " ", 
           RowBox[{"\[Lambda]", "[", "t", "]"}]}]], "\[ScriptCapitalE]"}], 
        " ", ",", "\"\<infection\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[ScriptCapitalE]", 
         OverscriptBox["\[RightArrow]", 
          RowBox[{
           SubscriptBox["\[Rho]", "s"], " ", "\[Zeta]"}]], 
         SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""]}], " ", ",", 
        "\"\<incubation, symptomatic\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[ScriptCapitalE]", 
         OverscriptBox["\[RightArrow]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SubscriptBox["\[Rho]", "s"]}], ")"}], " ", "\[Zeta]"}]], 
         SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""]}], " ", ",", 
        "\"\<incubation, asymptomatic\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], 
         OverscriptBox["\[RightArrow]", "\[Gamma]"], 
         SubscriptBox["\[ScriptCapitalR]", "\"\<s\>\""]}], " ", ",", 
        "\"\<recovery, symptomatic\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], 
         OverscriptBox["\[RightArrow]", "\[Gamma]"], 
         SubscriptBox["\[ScriptCapitalR]", "\"\<a\>\""]}], " ", ",", 
        "\"\<recovery, asymptomatic\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], 
         OverscriptBox["\[RightArrow]", "\[Mu]"], "\[ScriptCapitalD]"}], " ", 
        ",", "\"\<death, symptomatic\>\""}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"Center", ",", "Left"}], "}"}], "}"}]}], ",", 
   RowBox[{"Spacings", "\[Rule]", "3"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "18", "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"closeCellGroup", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.7923233635504503`*^9, 3.792323536026968*^9}, {
   3.7923236570153646`*^9, 3.7923238054879227`*^9}, {3.792325123255046*^9, 
   3.7923251548933363`*^9}, {3.792327249868347*^9, 3.792327308152988*^9}, {
   3.792345054156086*^9, 3.792345079893785*^9}, {3.792399006572092*^9, 
   3.792399008441916*^9}, {3.792399056123021*^9, 3.792399056816084*^9}, {
   3.792400823057436*^9, 3.792400853045899*^9}, 3.7925935144522943`*^9, {
   3.792779796793778*^9, 3.79277989461996*^9}, {3.7927801236146507`*^9, 
   3.79278012374776*^9}, {3.7927802056536303`*^9, 3.792780214728717*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"36373570-779f-4a86-8f9d-8c511c26b788"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"model", "=", 
   RowBox[{"First", "/@", "modelGrid"}]}], ";"}], "\n", 
 RowBox[{"CompartmentalModelGraph", "[", 
  RowBox[{"model", ",", 
   RowBox[{"GraphLayout", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<LayeredDigraphEmbedding\>\"", ",", 
      RowBox[{"\"\<RootVertex\>\"", "\[Rule]", "\[ScriptCapitalS]"}], ",", 
      RowBox[{"\"\<Orientation\>\"", "\[Rule]", "Left"}]}], "}"}]}], ",", 
   RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "18", "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"closeCellGroup", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.792399017530699*^9, 3.79239903133599*^9}, {
   3.7923991069689713`*^9, 3.792399107805583*^9}, {3.792399146646717*^9, 
   3.792399248760962*^9}, {3.792399287355167*^9, 3.792399292287945*^9}, {
   3.792399372560973*^9, 3.7923993797579823`*^9}, 3.792407233770093*^9, 
   3.792593521835162*^9, 3.793138493509026*^9},
 CellLabel->
  "In[189]:=",ExpressionUUID->"f30f1559-1bb3-4a56-934d-d17a4cbf49f1"],

Cell[BoxData[
 RowBox[{"CompartmentalModelGraph", "[", 
  RowBox[{"modelGrid", ",", 
   RowBox[{"GraphLayout", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"LayeredDigraphEmbedding\"\>", ",", 
      RowBox[{"\<\"RootVertex\"\>", "\[Rule]", "\[ScriptCapitalS]"}], ",", 
      RowBox[{"\<\"Orientation\"\>", "\[Rule]", "Left"}]}], "}"}]}], ",", 
   RowBox[{"PerformanceGoal", "\[Rule]", "\<\"Quality\"\>"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "18", "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.792399031811212*^9, 3.792399108831285*^9, {3.7923992113854322`*^9, 
   3.792399296370585*^9}, {3.7923993591219597`*^9, 3.7923993808096857`*^9}, 
   3.792400860793029*^9, 3.792407248562435*^9, 3.7925935228719463`*^9, 
   3.792687479369472*^9, 3.7927432248314466`*^9, 3.792779915262218*^9, 
   3.7927802221377897`*^9, 3.7929163270910892`*^9, 3.793782172155075*^9, 
   3.7947413806706133`*^9, 3.7948948634105887`*^9, 3.794897044872072*^9, 
   3.794901257059407*^9, 3.794918937909279*^9, 3.7949755617961817`*^9, 
   3.794977659148701*^9, 3.7949857594122753`*^9, 3.7950125564143734`*^9, 
   3.7950597285827475`*^9, 3.7951572120754366`*^9, 3.795319833526128*^9, 
   3.79531996995083*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"b602bcc9-e26e-480e-988c-a921cf52e378"],

Cell[BoxData[
 RowBox[{"closeCellGroup", "[", "]"}]], "Output",
 CellChangeTimes->{
  3.792399031811212*^9, 3.792399108831285*^9, {3.7923992113854322`*^9, 
   3.792399296370585*^9}, {3.7923993591219597`*^9, 3.7923993808096857`*^9}, 
   3.792400860793029*^9, 3.792407248562435*^9, 3.7925935228719463`*^9, 
   3.792687479369472*^9, 3.7927432248314466`*^9, 3.792779915262218*^9, 
   3.7927802221377897`*^9, 3.7929163270910892`*^9, 3.793782172155075*^9, 
   3.7947413806706133`*^9, 3.7948948634105887`*^9, 3.794897044872072*^9, 
   3.794901257059407*^9, 3.794918937909279*^9, 3.7949755617961817`*^9, 
   3.794977659148701*^9, 3.7949857594122753`*^9, 3.7950125564143734`*^9, 
   3.7950597285827475`*^9, 3.7951572120754366`*^9, 3.795319833526128*^9, 
   3.795319969957826*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"f516dde0-cb1a-40cd-9b65-a8d8fd23977e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"odesSEIsaRD", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalS]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", 
       RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
       RowBox[{"\[Lambda]", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalE]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[ScriptCapitalS]", "[", "t", "]"}], " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}], "-", 
       RowBox[{"\[Rho]", " ", "\[Zeta]", " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Rho]"}], ")"}], "\[Zeta]", " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalI]", "\"\<s\>\"", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"\[Rho]", " ", "\[Zeta]", " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "-", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{
         SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], "[", "t", "]"}]}], 
       "-", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{
         SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], "[", "t", 
         "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalI]", "\"\<a\>\"", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Rho]"}], ")"}], "\[Zeta]", " ", 
        RowBox[{"\[ScriptCapitalE]", "[", "t", "]"}]}], "-", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{
         SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], "[", "t", 
         "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalR]", "\"\<s\>\"", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{
        SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], "[", "t", "]"}]}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalR]", "\"\<a\>\"", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{
        SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], "[", "t", "]"}]}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ScriptCapitalD]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{"\[Mu]", " ", 
       RowBox[{
        SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], "[", "t", "]"}]}]}]}],
     "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"forceOfInfectionSEIsaRD", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "t_", "]"}], "\[RuleDelayed]", 
     FractionBox[
      RowBox[{
       RowBox[{
        SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], "[", "t", "]"}], "+", 
       RowBox[{
        SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], "[", "t", "]"}]}], 
      RowBox[{"\[ScriptCapitalN]", "-", 
       RowBox[{"\[ScriptCapitalD]", "[", "t", "]"}]}]]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"varsSEIsaRD", "=", 
  RowBox[{"Cases", "[", 
   RowBox[{"odesSEIsaRD", ",", 
    RowBox[{
     RowBox[{
      SuperscriptBox["v_", "\[Prime]"], "[", "t", "]"}], "\[RuleDelayed]", 
     "v"}], ",", "\[Infinity]"}], "]"}]}]}], "Input",
 CellChangeTimes->{
  3.792145330281796*^9, {3.7921454644890013`*^9, 3.7921454717593327`*^9}, {
   3.792325304625099*^9, 3.792325364185525*^9}, {3.792325462651072*^9, 
   3.792325488970152*^9}, {3.792327403717453*^9, 3.7923274347555017`*^9}, {
   3.792345811723085*^9, 3.7923458585289097`*^9}, {3.792346173030183*^9, 
   3.792346205838931*^9}, {3.792346268653302*^9, 3.7923462817250433`*^9}, {
   3.792348460608849*^9, 3.792348490887847*^9}, 3.792399520715344*^9, {
   3.792400926366776*^9, 3.7924009267483683`*^9}, {3.792400997556382*^9, 
   3.792401051970625*^9}, 3.792401160440504*^9, {3.7924018366670523`*^9, 
   3.792401841159482*^9}, {3.792401884440363*^9, 3.792401888235695*^9}, {
   3.7925180629902277`*^9, 3.792518262430318*^9}, {3.792518344227755*^9, 
   3.792518376610015*^9}, {3.792518812849566*^9, 3.7925188418768463`*^9}, {
   3.792780813633813*^9, 3.792780910114422*^9}, {3.79278106431845*^9, 
   3.792781076486117*^9}, {3.792781131212309*^9, 3.792781135355895*^9}, 
   3.792781193670519*^9, {3.792781764254814*^9, 3.792781794558259*^9}, 
   3.792782085185706*^9, 3.79279497692239*^9},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[192]:=",ExpressionUUID->"712405b5-c5cd-4e1c-b2b1-54a38147b83d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[ScriptCapitalS]", ",", "\[ScriptCapitalE]", ",", 
   SubscriptBox["\[ScriptCapitalI]", "\<\"s\"\>"], ",", 
   SubscriptBox["\[ScriptCapitalI]", "\<\"a\"\>"], ",", 
   SubscriptBox["\[ScriptCapitalR]", "\<\"s\"\>"], ",", 
   SubscriptBox["\[ScriptCapitalR]", "\<\"a\"\>"], ",", "\[ScriptCapitalD]"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.792327453845076*^9, 3.792328888033798*^9, 3.792329502828384*^9, 
   3.7923305323598137`*^9, 3.792346220414452*^9, {3.792346270831566*^9, 
   3.792346283994726*^9}, 3.792348515810256*^9, 3.792394478754753*^9, 
   3.7923951109453697`*^9, 3.792399523093944*^9, 3.792401080039463*^9, 
   3.792401162104245*^9, 3.792401853651123*^9, 3.79240189049723*^9, 
   3.792416432499926*^9, 3.7925184154250927`*^9, 3.79251884297484*^9, 
   3.792780919305401*^9, 3.792781136676733*^9, 3.7927811946056643`*^9, 
   3.79278182585131*^9, 3.792782095322832*^9, 3.7927949800490427`*^9, 
   3.7929163271721363`*^9, 3.79378217256384*^9, 3.794741380842347*^9, 
   3.7948948634464965`*^9, 3.7948970449650183`*^9, 3.7949012571304193`*^9, 
   3.7949189380967507`*^9, 3.7949755619480844`*^9, 3.7949776591955166`*^9, 
   3.7949857594972267`*^9, 3.7950125564768686`*^9, 3.795059728770238*^9, 
   3.7951572122300234`*^9, 3.7953198336020746`*^9, 3.795319970019806*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"2bc2898f-6929-4fc1-8e36-2182fa1b5e37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "susceptibleSEIsaRD", ",", "exposedSEIsaRD", ",", 
     "infectedSymptomaticSEIsaRD", ",", "infectedAsymptomaticSEIsaRD", ",", 
     "recoveredSymptomaticSEIsaRD", ",", "recoveredAsymptomaticSEIsaRD", ",", 
     "deadSEIsaRD"}], "}"}], "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[ScriptCapitalS]", ",", "\[ScriptCapitalE]", ",", 
      SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], ",", 
      SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], ",", 
      SubscriptBox["\[ScriptCapitalR]", "\"\<s\>\""], ",", 
      SubscriptBox["\[ScriptCapitalR]", "\"\<a\>\""], ",", 
      "\[ScriptCapitalD]"}], "}"}], "/.", 
    RowBox[{"ParametricNDSolve", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"odesSEIsaRD", "/.", "forceOfInfectionSEIsaRD"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"\[ScriptCapitalS]", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"\[ScriptCapitalN]", "-", "I0"}]}], ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalE]", "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], "[", "0", "]"}], 
           "\[Equal]", 
           RowBox[{"\[Rho]", " ", "I0"}]}], ",", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], "[", "0", "]"}], 
           "\[Equal]", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Rho]"}], ")"}], "I0"}]}], ",", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[ScriptCapitalR]", "\"\<s\>\""], "[", "0", "]"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[ScriptCapitalR]", "\"\<a\>\""], "[", "0", "]"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"\[ScriptCapitalD]", "[", "0", "]"}], "\[Equal]", "0"}]}], 
         "}"}]}], "]"}], ",", "varsSEIsaRD", ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "500"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalN]", ",", "I0", ",", "\[Beta]", ",", "\[Zeta]", ",", 
        "\[Rho]", ",", "\[Gamma]", ",", "\[Mu]"}], "}"}]}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.792145347285343*^9, {3.792145859494135*^9, 3.792145860934304*^9}, 
   3.792159172996607*^9, 3.7922495027605352`*^9, 3.792328894028928*^9, {
   3.7923459125259132`*^9, 3.7923459817560787`*^9}, {3.7923493003095913`*^9, 
   3.792349308508486*^9}, {3.792395076171653*^9, 3.792395089793461*^9}, {
   3.792399532090517*^9, 3.792399532776864*^9}, {3.792401086728127*^9, 
   3.792401100623135*^9}, {3.792401808681535*^9, 3.792401813390929*^9}, {
   3.79240184427267*^9, 3.792401851400331*^9}, {3.79251864241858*^9, 
   3.792518685144191*^9}, {3.7925187402755737`*^9, 3.7925187999819937`*^9}, {
   3.7925188769391623`*^9, 3.792518921793777*^9}, {3.792780922768774*^9, 
   3.792781043213871*^9}, {3.79278116554919*^9, 3.792781204594028*^9}, {
   3.792781244664657*^9, 3.792781270655254*^9}, {3.792781817526206*^9, 
   3.792781817652708*^9}, 3.792781849558371*^9, 3.7927948203108187`*^9},
 Background->RGBColor[0.88, 1, 0.88],
 CellLabel->
  "In[195]:=",ExpressionUUID->"e8243a8d-cc69-4991-b350-80aef61efe11"],

Cell[BoxData[
 TemplateBox[{
  "ParametricNDSolve", "dspar", 
   "\"\\!\\(\\*RowBox[{\\\"10\\\"}]\\) cannot be used as a parameter.\"", 2, 
   195, 54, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7948948634973307`*^9, 3.7948970450279827`*^9, 
  3.7949012571893864`*^9, 3.7949189381592565`*^9, 3.794975562021043*^9, 
  3.7949776592579155`*^9, 3.794985759544199*^9, 3.7950125565237412`*^9, 
  3.795059728848363*^9, 3.7951572122968693`*^9, 3.795319833681029*^9, 
  3.795319970094763*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[195]:=",ExpressionUUID->"cd618164-3b40-4607-83b5-c58d686e91ce"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll", "reps", 
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"}\\\"}]\\) is neither a list of replacement \
rules nor a valid dispatch table, and so cannot be used for replacing.\"", 2, 
   195, 55, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7948948634973307`*^9, 3.7948970450279827`*^9, 
  3.7949012571893864`*^9, 3.7949189381592565`*^9, 3.794975562021043*^9, 
  3.7949776592579155`*^9, 3.794985759544199*^9, 3.7950125565237412`*^9, 
  3.795059728848363*^9, 3.7951572122968693`*^9, 3.795319833681029*^9, 
  3.795319970098755*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[195]:=",ExpressionUUID->"b878813b-c073-425f-b3d1-14c97d6910c9"],

Cell[BoxData[
 TemplateBox[{
  "Set", "shape", 
   "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"susceptibleSEIsaRD\\\", \
\\\",\\\", \\\"exposedSEIsaRD\\\", \\\",\\\", \
\\\"infectedSymptomaticSEIsaRD\\\", \\\",\\\", \
\\\"infectedAsymptomaticSEIsaRD\\\", \\\",\\\", \
\\\"recoveredSymptomaticSEIsaRD\\\", \\\",\\\", \
\\\"recoveredAsymptomaticSEIsaRD\\\", \\\",\\\", \\\"deadSEIsaRD\\\"}], \\\"}\
\\\"}]\\) and \\!\\(\\*RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"\
\[ScriptCapitalS]\\\", \\\",\\\", \\\"\[ScriptCapitalE]\\\", \\\",\\\", \
SubscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\\\\\\\"s\\\\\\\"\\\"], \
\\\",\\\", SubscriptBox[\\\"\[ScriptCapitalI]\\\", \
\\\"\\\\\\\"a\\\\\\\"\\\"], \\\",\\\", \
SubscriptBox[\\\"\[ScriptCapitalR]\\\", \\\"\\\\\\\"s\\\\\\\"\\\"], \
\\\",\\\", SubscriptBox[\\\"\[ScriptCapitalR]\\\", \
\\\"\\\\\\\"a\\\\\\\"\\\"], \\\",\\\", \\\"\[ScriptCapitalD]\\\"}], \
\\\"}\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\
\\\"}], \\\"\[VeryThinSpace]\\\", RowBox[{\\\"ParametricNDSolve\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{SuperscriptBox[\
\\\"\[ScriptCapitalS]\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{\\\"-\\\", \
FractionBox[RowBox[{\\\"\[Beta]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalS]\
\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{SubscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\\\\\\\"a\\\\\\\"\
\\\"], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"+\\\", \
RowBox[{SubscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\\\\\\\"s\\\\\\\"\\\"], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\")\\\"}]}], RowBox[{\\\"\
\[ScriptCapitalN]\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}]}]]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[\\\"\[ScriptCapitalE]\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\"\
\[Equal]\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"\[Zeta]\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\
\\\", RowBox[{\\\"\[Zeta]\\\", \\\" \\\", \\\"\[Rho]\\\", \\\" \\\", RowBox[{\
\\\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"+\\\", \
FractionBox[RowBox[{\\\"\[Beta]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalS]\
\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{RowBox[{\\\"Subscript\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{RowBox[{\\\"Subscript\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}]}], RowBox[{\\\"Plus\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}]]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\\\
\\\\\"s\\\\\\\"\\\"], \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\
\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{\\\"\[Zeta]\\\
\", \\\" \\\", \\\"\[Rho]\\\", \\\" \\\", RowBox[{\\\"\[ScriptCapitalE]\\\", \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\[Gamma]\\\", \
\\\" \\\", RowBox[{SubscriptBox[\\\"\[ScriptCapitalI]\\\", \
\\\"\\\\\\\"s\\\\\\\"\\\"], \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\[Mu]\\\", \\\" \\\", \
RowBox[{SubscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\\\\\\\"s\\\\\\\"\\\"], \
\\\"[\\\", \\\"t\\\", \\\"]\\\"}]}]}]}], \\\",\\\", \
RowBox[{RowBox[{SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalI]\\\", \\\"\\\
\\\\\"a\\\\\\\"\\\"], \\\"\[Prime]\\\", Rule[MultilineFunction, None]], \\\"[\
\\\", \\\"t\\\", \\\"]\\\"}], \\\"\[Equal]\\\", RowBox[{RowBox[{\\\"\[Zeta]\\\
\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\
\"\[ScriptCapitalE]\\\", \\\"[\\\", \\\"t\\\", \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\[Gamma]\\\", \\\" \\\", RowBox[{SubscriptBox[\\\"\
\[ScriptCapitalI]\\\", \\\"\\\\\\\"a\\\\\\\"\\\"], \\\"[\\\", \\\"t\\\", \
\\\"]\\\"}]}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \
\\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{RowBox[{SubscriptBox[\\\"\
\[ScriptCapitalR]\\\", \\\"\\\\\\\"s\\\\\\\"\\\"], \\\"[\\\", \\\"0\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}], \\\",\\\", \
RowBox[{RowBox[{SubscriptBox[\\\"\[ScriptCapitalR]\\\", \\\"\\\\\\\"a\\\\\\\"\
\\\"], \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}], \
\\\",\\\", RowBox[{RowBox[{\\\"\[ScriptCapitalD]\\\", \\\"[\\\", \\\"0\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"0\\\"}]}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\",\
\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[ScriptCapitalN]\\\", \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}], \\\",\
\\\", \\\"\[Mu]\\\"}], \\\"}\\\"}]}], \\\"]\\\"}]}]\\) are not the same \
shape.\"", 2, 195, 56, 17763480765629951630, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7948948634973307`*^9, 3.7948970450279827`*^9, 
  3.7949012571893864`*^9, 3.7949189381592565`*^9, 3.794975562021043*^9, 
  3.7949776592579155`*^9, 3.794985759544199*^9, 3.7950125565237412`*^9, 
  3.795059728848363*^9, 3.7951572122968693`*^9, 3.795319833681029*^9, 
  3.7953199701077504`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[195]:=",ExpressionUUID->"e3b4de13-2f89-48fa-99b7-49d9dfb38841"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Ajustes de par\[AAcute]metros y simulaci\[OAcute]n ", "Section",
 CellChangeTimes->{{3.7946735244207115`*^9, 3.7946735369678793`*^9}, {
  3.794740201046155*^9, 3.794740205264678*^9}, {3.7947437596015015`*^9, 
  3.794743769749343*^9}, {3.7953213100442867`*^9, 
  3.795321334548928*^9}},ExpressionUUID->"bca74966-5962-410d-8fb7-\
04944a8b9ffd"],

Cell["\<\
Necesitamos construir un modelo  para cada comunidad aut\[OAcute]noma que \
permita predecir los siguientes estados :\
\>", "Text",
 CellChangeTimes->{{3.7947403809518557`*^9, 3.7947404044994154`*^9}, {
  3.79474043856183*^9, 3.7947404720931044`*^9}, {3.7948005038473787`*^9, 
  3.7948005045749474`*^9}},ExpressionUUID->"392850c0-d80f-4b12-9855-\
bfd21713fb05"],

Cell["\<\
a. N\[UAcute]mero de ingresos en UCI
b. N\[UAcute]mero de enfermos hospitalizados[hospitalizados]
c. N\[UAcute]mero de fallecimientos[fallecidos]
d. N\[UAcute]mero de nuevos casos[nuevos]
e. N\[UAcute]mero de casos confirmados[confirmados]\
\>", "ItemParagraph",
 CellChangeTimes->{{3.794740158905074*^9, 3.7947401664680243`*^9}, {
   3.7947442948274574`*^9, 3.7947442995148473`*^9}, 
   3.794800511862677*^9},ExpressionUUID->"16aa7f58-5566-4e91-aac7-\
a30a6bdbd41a"],

Cell["\<\
Utilizamos la informaci\[OAcute]n disponible que la hemos descargado al \
inicio de https://covid19.isciii.es \
\>", "Text",
 CellChangeTimes->{{3.794743787889493*^9, 3.794743812480398*^9}, {
  3.79491942920588*^9, 
  3.7949194703765035`*^9}},ExpressionUUID->"55bc3d1e-7262-4ecf-9a3d-\
42d1775947ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cabecera", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<CCAA Codigo ISO\>\"", ",", " ", "\"\<Fecha\>\"", ",", " ", 
     "\"\<Casos\>\"", ",", " ", "\"\<Hospitalizados\>\"", ",", " ", 
     "\"\<UCI\>\"", ",", " ", "\"\<Fallecidos\>\"", ",", " ", 
     "\"\<Recuperados\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7944058636906013`*^9, 3.794405899457203*^9}, 
   3.7944059839251146`*^9, 3.794406048830201*^9, 3.7944073067574987`*^9, 
   3.794407477583006*^9, 3.794407759051868*^9, 3.7944684736691923`*^9, 
   3.794485411497013*^9, 3.7945539722471943`*^9, 3.79464498014478*^9, 
   3.7946782939360914`*^9, 3.794743868686045*^9, 3.7948069910438185`*^9, {
   3.794807028503935*^9, 3.794807053597335*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"2570cf0b-0944-4cc7-ab66-f7cf4414306a"],

Cell["\<\
t : momento de inicio de la pandemia a efectos del estudio. 1 de marzo\
\>", "Text",
 CellChangeTimes->{{3.794744932475765*^9, 3.7947449729833703`*^9}, {
  3.7947452698744907`*^9, 3.794745285702303*^9}, {3.794745554577011*^9, 
  3.794745554930771*^9}},ExpressionUUID->"aa1b9bc9-9c0f-44e4-93a0-\
f88e2bd05b40"],

Cell[CellGroupData[{

Cell["Compartimentos", "ItemParagraph",
 CellChangeTimes->{{3.7947281459233246`*^9, 3.7947281823430195`*^9}, {
  3.794728229278939*^9, 3.794728258395691*^9}, {3.7947446896870375`*^9, 
  3.7947446950929794`*^9}},ExpressionUUID->"a202a0fc-a2a3-4516-bbb5-\
5cdd8e4ea32f"],

Cell["S  \tIndividuos susceptibles de contagiarse. ", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.794727521986002*^9}, {3.794728062957691*^9, 
   3.7947281184667573`*^9}, 3.794729586851708*^9, {3.7947447172492547`*^9, 
   3.794744722139632*^9}},ExpressionUUID->"87999703-e73b-4a63-83a5-\
e45aa9e48832"],

Cell["\<\
Toda la poblaci\[OAcute]n -  Infectados acumulados en el momento del estudio\
\>", "SubitemParagraph",
 CellChangeTimes->{{3.794744744420521*^9, 
  3.7947449278117867`*^9}},ExpressionUUID->"7a9b088d-068d-4bd5-8384-\
70698fc2836f"],

Cell["\<\
\[ScriptCapitalE] \t(del ingl\[EAcute]s exposed), Individuos que portan la \
enfermedad pero aun no muestran s\[IAcute]ntomas Incubaci\[OAcute]n \
\>", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282783298807`*^9, 
   3.7947282783298807`*^9}, {3.794729519873355*^9, 
   3.7947295831633725`*^9}},ExpressionUUID->"f0e0615c-2d53-441e-b1c9-\
c1dc7c7dc490"],

Cell["\<\
I \tIndividuos infectados. La cantidad  real (apdo d) son desconocido, lo \
probable es que corresponda a una proporci\[OAcute]n de los confirmados (e). \
La duda es si es simplemente un factor constante de proporcionalidad o no. En \
principio consideramos (e): Corresponde a los  k*( e) donde  k es \
desconocido. ? Ademas de los infectados podemos distinguir: infectados en \
Sintom\[AAcute]ticos y Asintom\[AAcute]ticos, ademas de los \
sintom\[AAcute]ticos podemos diferenciar los hospitalizados y los no \
hospitalizados y dentro de los hospitalizados podemos a su vez distinguir los \
que acaban en UCI y los que no. Si lo anterior lo convertimos en proporciones \
el modelo se simplifica mucho. \
\>", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282783298807`*^9, 
   3.7947282783298807`*^9}, {3.79472951770914*^9, 3.79472951770914*^9}, {
   3.79472959108372*^9, 3.794729591732977*^9}, {3.7947447297333775`*^9, 
   3.7947447401866035`*^9}, {3.7947455930307055`*^9, 3.794745638296035*^9}, {
   3.794746038921156*^9, 3.7947460655771027`*^9}, 
   3.7949195397529697`*^9},ExpressionUUID->"e9038b50-735a-475c-9f78-\
148f51fd5181"],

Cell["R \tIndividuos recuperados (se dispone de la informaci\[OAcute]n).", \
"ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282795711393`*^9, 3.794728302829447*^9}, 
   3.7947296693823786`*^9, 3.7947447053271823`*^9, {3.794745681920991*^9, 
   3.794745689780664*^9}},ExpressionUUID->"5f523d01-2dfa-4f43-9a43-\
caf0eaf91120"],

Cell["\<\
D \tMuertos (disponemos los datos, probablemente es la mas fiable).\
\>", "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275244155083`*^9}, {3.7947280899354935`*^9, 
   3.7947281207611485`*^9}, {3.7947282795711393`*^9, 3.794728302829447*^9}, 
   3.7947296693823786`*^9, 3.7947447053271823`*^9, {3.794745681920991*^9, 
   3.794745689780664*^9}, {3.7947458823117676`*^9, 
   3.794745909273395*^9}},ExpressionUUID->"7bb465a3-ffcf-4d96-8867-\
69ec30278a2c"]
}, Open  ]],

Cell["\<\
Se trataria de construir un modelo que tenga como compartimentos al menos : \
S, I, \[ScriptCapitalE], R, D. Cabe la posibilidad de dividir los infectados \
en Sintom\[AAcute]ticos y Asintom\[AAcute]ticos \
\>", "Text",
 CellChangeTimes->{{3.7947439742330656`*^9, 3.7947440609017515`*^9}, 
   3.7947445852025776`*^9, {3.7947458541867504`*^9, 3.794745870889349*^9}, {
   3.7947459172647204`*^9, 
   3.794745974733425*^9}},ExpressionUUID->"c7e8a04c-0b68-49e1-bc31-\
31a781ca4c6f"],

Cell[TextData[{
 "Sugiero explorar los modelos incluidos en : Epidemiological Models for \
Influenza and COVID19fullversion.nb. \n",
 ButtonBox["https://community.wolfram.com/groups/-/m/t/1897377 ",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://community.wolfram.com/groups/-/m/t/1897377"], None},
  ButtonNote->"https://community.wolfram.com/groups/-/m/t/1897377"]
}], "Text",
 CellChangeTimes->{{3.7947415763586197`*^9, 3.7947415970938826`*^9}, {
  3.794744625874468*^9, 3.7947446435149508`*^9}, {3.7947459847961226`*^9, 
  3.794745985389616*^9}, {3.7949273974109364`*^9, 3.7949274196754985`*^9}, {
  3.7949767445444465`*^9, 
  3.7949767483847656`*^9}},ExpressionUUID->"2c375a3a-c0be-45b3-a979-\
63f3d77bad9c"],

Cell[TextData[{
 ButtonBox["https://community.wolfram.com/groups/-/m/t/1895675",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://community.wolfram.com/groups/-/m/t/1895675"], None},
  ButtonNote->"https://community.wolfram.com/groups/-/m/t/1895675"],
 "\n"
}], "Text",
 CellChangeTimes->{{3.794976751136242*^9, 
  3.7949767818074403`*^9}},ExpressionUUID->"033193e7-d4f3-44c0-bef4-\
2541539b1e9d"],

Cell[CellGroupData[{

Cell["Ajustes SIR (pruebas)", "Subsubsection",
 CellChangeTimes->{{3.7948901906197395`*^9, 
  3.7948902464390917`*^9}},ExpressionUUID->"a2ae72b2-8c1c-4880-afda-\
8f18f331e593"],

Cell["\<\
No tiene ninguna validez pretenden mostrar el m\[EAcute]todo que vamos a \
seguir. los ajustes pueden ser buenos pero carecer de sentido los valores de \
los par\[AAcute]metros\
\>", "Text",
 CellChangeTimes->{{3.794920194968028*^9, 3.7949202746719427`*^9}, 
   3.7951574187136707`*^9},ExpressionUUID->"69ec7e88-86c9-433c-ae54-\
180f3f809319"],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"b", ",", "k", ",", " ", "fit1"}], "]"}]], "Input",
 CellChangeTimes->{{3.795320127161586*^9, 3.7953201452199044`*^9}, {
  3.795320217680808*^9, 3.795320218352206*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"9f206634-841e-48ec-b4df-eb238cf2ef29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datosAN1", "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"15", ",", " ", 
       RowBox[{"13", "+", 
        RowBox[{"Length", "[", "casosAN", "]"}]}]}], "]"}], " ", ",", 
     RowBox[{
      RowBox[{"Differences", "[", "casosAN", "]"}], "/", "1000"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7951579693078637`*^9, 3.795158045132811*^9}, {
  3.7951580869410276`*^9, 3.795158113849311*^9}, {3.795158172258728*^9, 
  3.795158279358075*^9}, {3.795158351298269*^9, 3.79515835196949*^9}, {
  3.795158396686598*^9, 3.79515839818259*^9}, {3.795158442239262*^9, 
  3.795158446784029*^9}, {3.795158498409501*^9, 3.7951585179070244`*^9}, {
  3.7951586591651382`*^9, 3.795158662830162*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"33008598-cec7-45ad-b9ae-7023e82587d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"15", ",", 
     FractionBox["129", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", 
     FractionBox["22", "125"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", 
     FractionBox["149", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", 
     FractionBox["279", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"19", ",", 
     FractionBox["57", "250"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", 
     FractionBox["21", "100"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", 
     FractionBox["59", "250"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"22", ",", 
     FractionBox["51", "100"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", 
     FractionBox["539", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", 
     FractionBox["99", "250"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", 
     FractionBox["387", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", 
     FractionBox["121", "250"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", 
     FractionBox["81", "200"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", 
     FractionBox["723", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29", ",", 
     FractionBox["413", "1000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", 
     FractionBox["287", "500"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31", ",", 
     FractionBox["29", "50"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", 
     FractionBox["201", "500"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", 
     FractionBox["99", "200"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", 
     FractionBox["54", "125"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"35", ",", 
     FractionBox["7", "25"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36", ",", 
     FractionBox["93", "500"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7951580192580013`*^9, 3.7951580458853846`*^9}, 
   3.795158092136636*^9, {3.7951582334428*^9, 3.7951582848323336`*^9}, 
   3.795158358684147*^9, 3.7951584016328764`*^9, 3.7951584478752284`*^9, 
   3.795158503553901*^9, 3.795158667126621*^9, 3.7951586996262093`*^9, 
   3.795319950008337*^9, 3.7953201492750816`*^9, 3.79532022438268*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"2e4d8c3f-0914-480f-9aa7-a9873b3c8cd9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"datosAN1", ",", " ", 
    RowBox[{
     RowBox[{"soli1", "[", " ", 
      RowBox[{"b", ",", "k"}], "]"}], "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", " ", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0.01"}], "}"}]}], "}"}], ",", "t"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7943844409507527`*^9, 3.794384492646202*^9}, {
   3.7944728727244124`*^9, 3.794472876709744*^9}, {3.7944729492194405`*^9, 
   3.7944729908257732`*^9}, 3.7944730882018642`*^9, 3.7944738346539392`*^9, {
   3.794473934466244*^9, 3.7944739355131187`*^9}, {3.794485540169315*^9, 
   3.7944855448256674`*^9}, {3.7945540206851244`*^9, 3.7945540211229873`*^9}, 
   3.795157884575105*^9, {3.7951589870219207`*^9, 3.7951589930958843`*^9}},
 CellLabel->"In[209]:=",
 CellID->74727127,ExpressionUUID->"c1ede6ff-cd94-4347-8fb7-76c56171e9e4"],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{
       InterpretationBox[
        RowBox[{
         TagBox["InterpolatingFunction",
          "SummaryHead"], "[", 
         DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
          "Ready"}, 
          TemplateBox[{
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5NQG4j5DYaP0XRMWw0
Ffo/VOHRLY/0KT8FZS60Bi4LQFrnnmxQNjs/aslGZ8wwFEDAfWEsJidLP8qC
eNpvqRpAaDQ727O2Wj8VebNxPtcgQDRYwp/ty2s/IB09Xc4dJEB/YNB3q3l7
PykcpROTqidAUBqqhuuYjD9wLA79xCYrQN8trihvDJ0/EKmJTQBnLkAkBvbP
EpmrP1jAcTS49jBA29v1Swubuj9V4qf19JsyQAImwLPPBsc/8YxeUOg4NEBy
77EpAvrRPwxlhBD2+DVATNhgBluD2T9VczOECJs3QMLI+2HmBt8/Hq9RXTVg
OUCAiTV9NP/gP4Vz8M8YHTtA7eLlL9MK4T8Zbhj2ALw8QO4ntayZQeA/LZav
gQN+PkBDbP7DpOHdPzj6Z2AFEUBAnhMwNIMY2z8ZwK8ylvRAQCjRXUCQD9g/
Scq3UQLUQUBIYMrBCj3VP49vhMpwpEJAzBd3GNPQ0j+Vqwh2bIZDQH9Lm9V5
cdA/soJRe2pZRECf17MTuu7MPx6eWs1DKEVAw5rp37t6yT9KUBtSqghGQAXx
wcWSK8Y/jZ2gMBPaRkDzFPvpMnTDP4+B3UEJvUdAdP15+0vfwD/hqdqf2ptI
QDJiwU56U70/SW2cV65rSUCO0nlZxre5P3HHFUIPTUpA3IOdYB1Mtj+wvFOG
ch9LQNeBqAXWgrM/PvZRF7HtS0BAmValVB2xP4zGB9t8zUxA0qK92byvrT/w
MYL4Sp5NQNlY+2Jg/ak/FDS0SKaATkDPo30NYH+mP0/RqvIDVE9AYQrmr92o
oz9t2bB0nhFQQIpSPjhLOaE/khVoiQGCUEDaR6A6UNedP0KfAcvl6lBA2ybQ
LAEZmj9S9PalkFxRQOKaQlVukZY/imtMJynMUUCKwWt5EpGTP00whNVCNFJA
YR1ynpEgkT9wwBcdI6VSQI7jqxPopY0/H56NkYQOU0DbuZ9OYOiJP/WdY6zT
dVNAaTOf6eayhj8raZVg6eVTQA6wCVEzqoM/7IGpQYBOVEAR3xXHSTOBPw1m
Gbzdv1RAGuuhnrPAfT9WbOncKC9VQJU94+//zHk/KsCbKvWWVUBGksWw2pZ2
P17fqRGIB1ZAMstRdWiOcz8dTJolnHBWQKi3HSD8F3E/PITm0nbiVkDhyNf6
UoxtP4PekiY/UldAXmdrASybaT9VhiGniLpXQHK4eOhrZ2Y/h/kLwZgrWEBT
lg+8D2JjP0W62AcqlVhAFDsawWHuYD8+GeT4//9YQNGh3Q3lh10/MEe4rg==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$51946#1"]& ]}}, {}}, {
                   DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {0., 0.5325714049823468}}, 
                    PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], True -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvvD5NQG4j5DYaP0XRMWw0
Ffo/VOHRLY/0KT8FZS60Bi4LQFrnnmxQNjs/aslGZ8wwFEDAfWEsJidLP8qC
eNpvqRpAaDQ727O2Wj8VebNxPtcgQDRYwp/ty2s/IB09Xc4dJEB/YNB3q3l7
PykcpROTqidAUBqqhuuYjD9wLA79xCYrQN8trihvDJ0/EKmJTQBnLkAkBvbP
EpmrP1jAcTS49jBA29v1Swubuj9V4qf19JsyQAImwLPPBsc/8YxeUOg4NEBy
77EpAvrRPwxlhBD2+DVATNhgBluD2T9VczOECJs3QMLI+2HmBt8/Hq9RXTVg
OUCAiTV9NP/gP4Vz8M8YHTtA7eLlL9MK4T8Zbhj2ALw8QO4ntayZQeA/LZav
gQN+PkBDbP7DpOHdPzj6Z2AFEUBAnhMwNIMY2z8ZwK8ylvRAQCjRXUCQD9g/
Scq3UQLUQUBIYMrBCj3VP49vhMpwpEJAzBd3GNPQ0j+Vqwh2bIZDQH9Lm9V5
cdA/soJRe2pZRECf17MTuu7MPx6eWs1DKEVAw5rp37t6yT9KUBtSqghGQAXx
wcWSK8Y/jZ2gMBPaRkDzFPvpMnTDP4+B3UEJvUdAdP15+0vfwD/hqdqf2ptI
QDJiwU56U70/SW2cV65rSUCO0nlZxre5P3HHFUIPTUpA3IOdYB1Mtj+wvFOG
ch9LQNeBqAXWgrM/PvZRF7HtS0BAmValVB2xP4zGB9t8zUxA0qK92byvrT/w
MYL4Sp5NQNlY+2Jg/ak/FDS0SKaATkDPo30NYH+mP0/RqvIDVE9AYQrmr92o
oz9t2bB0nhFQQIpSPjhLOaE/khVoiQGCUEDaR6A6UNedP0KfAcvl6lBA2ybQ
LAEZmj9S9PalkFxRQOKaQlVukZY/imtMJynMUUCKwWt5EpGTP00whNVCNFJA
YR1ynpEgkT9wwBcdI6VSQI7jqxPopY0/H56NkYQOU0DbuZ9OYOiJP/WdY6zT
dVNAaTOf6eayhj8raZVg6eVTQA6wCVEzqoM/7IGpQYBOVEAR3xXHSTOBPw1m
Gbzdv1RAGuuhnrPAfT9WbOncKC9VQJU94+//zHk/KsCbKvWWVUBGksWw2pZ2
P17fqRGIB1ZAMstRdWiOcz8dTJolnHBWQKi3HSD8F3E/PITm0nbiVkDhyNf6
UoxtP4PekiY/UldAXmdrASybaT9VhiGniLpXQHK4eOhrZ2Y/h/kLwZgrWEBT
lg+8D2JjP0W62AcqlVhAFDsawWHuYD8+GeT4//9YQNGh3Q3lh10/MEe4rg==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$51946#1"]& ]}}, {}}, {
                   DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{0., 100.}, {0., 0.5325714049823468}}, 
                    PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}]}, 
             Dynamic[Typeset`open$$], ImageSize -> Automatic]},
           "SummaryPanel"],
          DynamicModuleValues:>{}], "]"}],
        InterpolatingFunction[{{0., 100.}}, {
         5, 7, 1, {219}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
          False}, CompressedData["
1:eJxFlfk71YkCh0+I0VhiIlsnsmY99uNwfD/HsW9xNtlyb/ZIlkRUSiUSTVR0
cwtDIWfShLSJa61GTo0rJnREIpGGjK7tzvPcH+77PO9/8D7Pq7H3ACtchEQi
bfjLN6T/Y8RUm35npUKEFCbUGpRdIIo+/8RwFK8jeGkGxfSKh0Rupn+Kalkb
0Vjbp1YQ+ysRP637d7GSV0Q961HSjP7vxEqQHnN6SEhc+zHx15CKcWIlsC6y
sPcjwf8h5UTo0Tki6JvCrtWCeaKS/Kescts3YpY5ILCYXyeu1g+5VsmJgnDx
2tm4Uxxjg48l2xmSOBNr/PGlvxQM1q89e5sgi8nuM/9edJQDTb6lY1Ugj3OB
Sw1iwVswUkG58f2UAiizUZflk7ci07osS3mDMvqODx5Sz1OBzjO5SF1lNaT+
4O5nXLkNVTb8fZy7ZAyEbD6W1rodYm33XQWR6oirn3iQ56mB6Lk2xeYxDYQZ
liXOpu1ASNSxF2R5TQRUBOrvqtYEV0jNyoAWfNQU391+rQWP3fN0YZw2nC8K
rmwW1wFDwP+Kf+rATirXN8FCF9auUfyy57owO+Uk+WqvHoxadoSL/EcPeivr
LWYXdkKTOqwWqqcP8sEHqYVP9KFcV9TXxjPAlk8HKQszBpDVY53TOm2ITWEm
kxw1I2wslXI8fdcIpKGp6w3uxlje2rX8ftQYi+wKP8XDJoh0lci3mTJBLNly
78+GFFQWR6w+CaNgRL64+GUJBVvznpqP9VHgI7H8YkHKFDknDPeJO5niX8vB
G5WOmmI5+XzpzgZTWMy12NrOmGL/vj/6PbXNcGNcM3FPsBne7uFKx18yg9Jg
VtWJHjP4spuYhRvNcbZnaqSCbo42F9W0xmRzrLR6KnTzzWFpd6xu8L054hpv
e0xvs8BNyujECtcCwhr5TJl8CyhrO25T77QA63pyk+maBXKVb7KZVpZoLxyY
5cRZYlV609mIG5awyrbVTh2xxAGR/S05ilaoOnIt8Kq3FUYXexdrs6ygkrCh
oLnZCuxpMyPBohXOhYd1jxpbo+PtpdD5CGus+XetiV23hnXf0hXF19aI99a3
1JOloro7UGDjQsU7h7wYjwwqVB83iwffo4JjPVcW95mKvDsa9OO6Nug0YA9c
CLHBeuWppJ+KbEBVb5Rp6LVBwj8+VHdK0FCzRdlpgKBhLN9dOJVCg5rkkfTl
2zRwT/IVpSdpyF8duUNWt0VXymYvym5bkP5gTDJ+tIVNbNJJdrctEicqyOEk
O9z6W//9Q1Q7jP8uwc2Ot8M2rs3clSo78Hr35d4S2uG8W4nOYyU6utt6Wl/4
0LHBfj1ImE0HrYmy9KWFjiSzvYWi3+iorS00VjC1x3udjqc60fYgly2GUcvs
4aeqR3IftMdZw+dPpSgEHtPjCnuzCMx5ywUXDBOQowQU6qsANU0GS7lOAJOx
GjQTDww9fdHqXQIks0p16roAmTcJuXLzwM1Q5lwimQF82sLtc2Ng8ODEfctk
BhJX75GLShn4Pivn5NJzBipkAif9/2SAXmTo9XCHA/q3r91R83bAgapexWOH
HfCdaVn62woHlN1PFELgAJqDo1P5sgN+e6ZQI6rLRCz7g0w4i4mNQ01JnUeZ
uBZ2dkC3mgnrmUB6Th8TgmSj8o/rTESvrYl7GjhC5Iwghs9zxFXZcoFMpiMs
ipMs4/mO8Mypl+TPOiIs7evwlIkTjsRY/aKT4ISLQSlZob84odarKaB03gnt
9t+Mhy2cMWRCE1U55IwF9fTXvHvOkJJ/dKtwyRlaoqsZf4UDuwU6RzrdBZz3
x/TcH7kgtv/JStaqC051kV622buipIlRSTruivrqzMP0VlfYF3seStFxQ3eW
YtKdXDewkoUHpufcMBRaE6vNc0cE62B0yEN3zME+4oq6B9JMvgv97bQHxMiv
QqSnPZAvVRLk4uMJpeVw/xMNniifMuE9VPGCm7B5v1ajF+b6vU7n+XqjqGeo
ZPGTN+zbY+pDsnchMXg1fFzOBx0D7V+KQ3ygxDl31Ivvg5hetqTIsg+a3VUv
Nbr6Qq7znXrMZV+EMWpqt4/74t6jBGqfKQubqDbt2RksBN8l+dB7WKgz7n7z
RYUN0ZrzkTei2OBp+80HNLJRXUrOkBXjYEV1YlO7Lwe7iviXU69zUC6fvMNo
hoOveXY/j9K4cJUUo13O5uLqqecd7v1czK4X+K5r8sBIDxi+m8DDxUWN6Kgn
PHxImFpQk/YDbabu+MsAP+RFpUplVflBOEYU0xb9YB4iofWZuRu2843cPQ92
438388d/AdN6+oQ=
         "], {Developer`PackedArrayForm, CompressedData["
1:eJwt0gFHngEAhdG3JEmSJElSSZIkSZIkSZIknyRJ8kmSVJIkSZIkSZIkSZIk
SZLMJDPJzMzMzMzMJJmZSZJJsjN1Ob/gPpnh/lBfRBAE34KnRRJFNDHEEkc8
CSSSRDIppJJGOhlkkU0OueSRTwGFFFFMCaWUUU4FlVRRTQ211FFPA42EaKKZ
Flppo50OwnTSRTc99NLHAIMMMcwIo4wxzgSTTDHNDLPMMc8CiyyxzAqrrLHO
Bptssc0Ou+yxzwGHHHHMC15ywimveM0Z57zhLe94zwc+8onPfOHr83ff+cEF
l1zxk1/85g/X3HDLHX+554FHAiFEEkU0McQSRzwJJJJEMimkkkY6GWSRTQ65
5JFPAYUUUUwJpZRRTgWVVFFNDbXUUU8DjYRoopkWWmmjnQ7CdNJFNz308j/y
AQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOdDTbZYpsddtljnwMOOeKY
f/mPYyA=
          "], CompressedData["
1:eJwN0mc4FnwDhnEru4dKQmREw3qEjEqXlZGokDe7bDLLrCRbsjd3sotSVsjq
n5REdmRENyEVmpLZ+3w5j+P3/RS28TC0p6Whoan5L1Ia/F8mFfhQGs2g4LG0
CaUpT2fEFfmw87tV+P3//GoivqXQkQ8VKxE/dIQYUW6gatzziQ9u9HWhZ2MZ
4aGZqKjgvhMrWcvNx9YYQdd4roZjcSfmao1KVN2Y8HO1MUeilR80rkaZF/mZ
sdG2+NkqWwDLtqoZT3qY0duxh+ufXYLY9UNRl3kbK8zCvVN5TYVQzPXG8rY9
GxLUdjbbSwmjhdvtrfErdrTdlBA7nSOC5hu0DsIHOaAUZOhvLiOKjm+qbhGf
OdExbmAj/EEMUnRPmRpMtoJ30OXJeuN+PMr+MxWRsB3hm0c13DWloWu3yyXP
nBfp7rRXOjoOoLlG9oBKrwAWjU4ubZuXRyDtiEJapDBU/wkxE6MogbG7cKvR
LVF4aJ/Y3LpwBOycKjqhh/eBXDMMDKNTw4a5z3bHQEnIrc7mMtNogsF204QS
kUHjNH/sWqg2hPqY3OjL5XBvG+/JhSI98Aiaz5WIKiKkc/+HFtVTUHWPahOT
P4wPy0+68nYaIbsjjt9+GeCf2AjK9TWBk7qU1MordTxzue8i4GSGF9l+Nue5
tFAlUDZvxGqNmKLn8SHfdbH28acH3VEbXK4v5sm+bIA55garJUs71DscM+Gh
Ow03n5jf9E0OeKKw7kSzaojV6gpWNxtnVFxc2LsgdQb1ra7XlFLd0aJeKah7
zRSD+q/ZhfW8IPf2h2d4twXGNw8zaMZdwuz1dNohrXNQYalaTeD3he6Z2BNS
tjZgHgmfz/vrD+dtk4lGz+3wnEa15rD6VajlSt15dNERaYuUJK9vQfh+/SBN
sZ8LjhxM6Z9mC8FfRve2yDE3SDUnqtTahoHhZeXIxFtPJAlaCIkwR+JSquSY
//pFbFVfjkihi8b4qZ/n3B184JptORxjGYvA3KM8Onz+OJR/+/fZpAQURAdM
SQtfAdO+qhs+lUkw0uh8OB96DQ8Z77Yc5k7F7d92FxbFglHMd+FQyIt06B0p
Oh2rFoo9jlNy1LYsBGfMnv2VGQ4+JgG96v238dkyZy1aPgo0q1ZMO5Zz8T7s
svFz7puo899xKJ+7AH7asQGbtOJwR+CzneWlIoTKmRU3fUjA5MmousjtxbB1
3aX2vTsJGqFfhqro7+Og5ohgwacUeEydrK/VfAgZcYbrJrLpyAr9StfxtRwL
76SfvbuXCaE7W/rE7CtxT5JofrhNwcDAv2npv6vwMXnbWnNpNgaqjJnCi6pR
Gj57Ka8/ByZNh1Y1LtWCmUUkgJclDyaOyj5c5+vgE3uCekouH9MVLe08ng1g
dlmSUXcsQPCtzq36eU1IdHqf6lhQiHYSvRa4SPAv272Mqeki7CuojM9RaEZc
PYtgiORdGI/V+XiGPcNMzQ2rUu9i0KcoQG6qBSbqPwwvNZRAM5NhuOnMC9yS
ENCMW78HhbmD1OqhVuSxs3bZKJaiSsfSK8a1DXrjck0c9g+gVX/+/mXOdtjP
yH+9EvIQaWX7dwa1dCCSypXjdLMMf+g2m1mEdeISPU3GC5Vy/Ko78j3jdDem
b9b7nLpbjmN3Lc89TemBqdFXQV2aCojvjaPnCu+FXY28Y6tWBXY4cDE89u+D
waR7JWdABbhzXtdGuPdDw1Cmuiq1AhlrF7br2L/BhrT4dASlAjp6uZo15gN4
M+Bq3HCjAqf/bm0IOTWIry/zqR+sK7B9weKJufpbCFu8Zl8RqMDstD33j3+H
IPtyrc76eTkmqkXrN3YM46Ww7tYxo3IMMdhr6iwPg+qoUXaQUoZ4/3Xa4r4R
kLqno7IOD9HnvMfjn4JROJ/pUj3O/gCUlds0kc7vYPfDIzIh8T4Szh8WPCw2
hhOrkyN+KyWQkCjV9h4Yg1HYwJZyvWI0vd+jlx0wjvQPppxM0XfQvftsrfqW
90hTdnp8vL4QLY99vbfeeo+p01ZhUhP5YOXJ+N88OxXc2scLpOnzIKmUwqV5
jAoLVosT7Lq3cUh8lHGrHxXq6GWRSMqC4ZR4jVM+FUF57IP1s2lQXww8aP+S
ikWNL4HThskYXPjwQHqGin8KDBiYS+OhRsM282uDilTJ2d/i81Fo6VnrXNgy
gWtpZTTxniHYw1e4w1RwAsISZa9o/f0hyxs65b13AqKh62NOJ50x+kUnLkJ8
Apmnwmn32iniHv1KzJt9E3j+aO9RwwM2hDnwxZU7IhPovyK2cZX+EvnAvHxE
k2cCcvuPml8+fpVUWA4cWWSZgEHg8de1fiEkVImn7+8SFYkW+tYNlyPILn+d
+uJJKnr/nv2fhUw0OR3gWibbToXrsjuVjxJLNpMarvGHVFDsvZimrRKIofWD
2tkEKngeqy43diYSIwH9glhPKhrm5VUrdyYT2S3VdJsMqPh1UizT/XgK0XFi
3RK2nwoN64Npeeap5OPzc1wq9FR4DZj9WjmVRnp1dz1/UvMekp/UPMUk08mh
W7lvpO3eo6Qo7H7LQjopSbiYLMDxHqmGZypcszJITEbdk6HacXj6qXWWyGSS
Wd/F18VW48idDnr3qzKThCqaivXSj2OyjkmkViSLPPpqa55wdwwzelWROsFZ
RK3HyVXo+BhecDQpf+3OItkuwfPlte9QMr/yYLMUhRgFL2Xf3v0Oq2z5HJwX
KGTDgH8gMm4UHt5ftGtjKQTCXglLf0agtYe72SGDQkZmBqwdbUcgrMqqLR5H
IVmT1tJqXcMYo4xaNHpRyFF/4Vmq8jCaSMLbmGMUYns/bT31zhBsw9utXrJR
yLMfvs8LuYYwXHVi0LQ1i6QtmdRoh71FVGii04pvFil/JhRfvjiItlNye6UE
s8i+GUUDFudBUDe6VHSfZpKWuSF+n/EBtI4J1AWaZxLVzb07t5gMQJcleGLg
ewYp/5jPt9j9Bl6uZftVwjKI64Ezh+RPvMEPJ/vakG0ZpPgy/7Wx9n4IXmSL
t8hNJ0H9nXprev0Ifxvv4iKRThTXW8cyuvugStmprlSdRq5bDN59fKYPcS/3
x6oeTSObrIPLrcZ7sfx5WG+hNZXEHNCn3nTuhbHj75LbJ1P/+6ddG0s9eIq5
jvyhFNLb72fpG9mDpIKKzWo2KYTV8oa8FF8PGsRf6tbMJZNg+TmzJqtu3O+x
/qHgn0yiorvUWOK6oJ/iyvqNIZlo9Zxkk3nWiSLNb7TMyUnko6KxqMjqa5hz
rPjniCQR5d8mj7qUXiM9+/xcb1Ui0Y4f7N19pQPGf8YMarQSydFDV/XDHNpB
OZ/zd6UogXhYcxyhsXgFJUXedk+WBPLTtpvb0LwNjfGPR70n48jJEfNoWbuX
qLzZF/6uPpaM++7aZ+rbikH5tnSZWzFElreXJjDxBXQZl4X8I26SXQF79p6p
fo5bG0GmpQHRJLXWbUfmRAvKCi3kG3xuENtfYcy03C3w7BvwvXE5iiS+TJDS
MnwG7bmPl39FRhLvoMg5kbRmtDbOVPZnRxCGWGZWo4mnaCHK35cbwgnL59H2
ZLmn8Npv7qswGUaOTQ7z6vASfO1q7D7DGUZO3+yvihpqwrTPaLKIViiRKE39
5FbYiAamP7QOoSHEfsks8Ph4PWyv5k4G2QaT8oY7OW1ydfAbZl87ZHyd6LyK
6tUvqAWrqSlrXMk14rN2h81YogYau73CHrRdJcGcngbO7Y/Ao63KpsFwhazy
7hX+N6gK70yVp9vMAsh1Du91U51KWCcatra2+5Hq6frcctEK7Fnw+dln6EtE
jyvrsW0rR0O0ykjSd28yq6a/WCT6EPm93aYNRZfIa5UEfVqNUmyatx3jdL9I
rgzyfmfMLMHYz9c8Eo88yQlGrbdL0nch593BoqjlToTZAy982iiExIhDlbf7
BaJZ7nAggL4A5W6ScaYjToTOd8SvWTEPxMZe4mmoA5ETq0jIls7Bqf7dP1js
7Yhjue92ySO3QH+2IX17gA3pqk19PJiQCR6a98UHG86R61nJyj/F0tEwKZdt
YGBFnLmVzXwWUyAXYiiz7aI5aZCcLaIuJ2FPGTO5N3KWbJI953hYOhFFO3Y5
3Q82IboPr3ht4o+H0APeQLXzxuT419LDEI8BgjgMRLwNSUvaAan6oBu4kzvG
fL36FPljvWnfk+2R+FioprSuZkBMk3J95WfCYPDrO42RvR75nLa5M+NLCGg5
re6/6dQh18vk7n4RCgZDXWQGjY8WiVgW7NKjDwLXUb6Cb8aa5MXN3RLm265C
Ws19Qs9JnTyeppxNdwnAXt+sKOV7qqT6SF7OMTo/cF2bcLsneZREXvbr0H/j
DV0X9506pw8T+qLyGfHRi6j+qNy3vUGJ7D6vbze2xQuv7p77Em2rQLja28Sa
ProjrpMq2agpTyjKjH7iKxfwTkhgq76pLOlKFM1PM3JGemqGh80tGfIhPVpa
d94BJ1Zc70hukyZ0rTuMJZvtIOL+gHlEWYI8ltuR1/TKBuN/17amFe0jhzw7
YwpFz0FtUawnWEqMULXoX01FWmLd7pvUlNVu8n/re5t7
          "]}, {Automatic}],
        Editable->False,
        SelectWithContents->True,
        Selectable->False], "[", "t", "]"}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`b -> 0.5022557744811286, $CellContext`k -> 
      0.0832270352757851}, {{$CellContext`t}, 
      ParametricFunction[1, 
       Internal`Bag[{
         Hold[
          
          ParametricNDSolve[{
           Derivative[
             1][$CellContext`s][$CellContext`t] == -$CellContext`b \
$CellContext`i[$CellContext`t] $CellContext`s[$CellContext`t], 
            Derivative[
             1][$CellContext`i][$CellContext`t] == -$CellContext`k \
$CellContext`i[$CellContext`t] + $CellContext`b \
$CellContext`i[$CellContext`t] $CellContext`s[$CellContext`t], 
            Derivative[
             1][$CellContext`r][$CellContext`t] == $CellContext`k \
$CellContext`i[$CellContext`t], $CellContext`s[0] == 
            0.9999, $CellContext`i[0] == 0.0001, $CellContext`r[0] == 
            0.}, {$CellContext`s, $CellContext`i, $CellContext`r}, \
{$CellContext`t, 0, 100}, {$CellContext`b, $CellContext`k}]]}, 1, 1], 2, 
       1, {{$CellContext`b$47659, $CellContext`k$47660}, 
        System`Utilities`HashTable[
        1, {{"Output", {$CellContext`s, $CellContext`i, $CellContext`r}}, \
{$CellContext`b$47659, $CellContext`b}, {$CellContext`k$47660, \
$CellContext`k}}], {}, {}, {1, 2}, {Automatic, 0, 0}}, {NDSolve`base$47671, 
        NDSolve`NDSolveParametricFunction[0, {ParametricNDSolve, 
          
          Internal`Bag[{{$CellContext`t$47661, $CellContext`b$47659, \
$CellContext`k$47660}, {$CellContext`t, $CellContext`b, $CellContext`k}}, 1, 
           2], None, ParametricNDSolve}, {{{3, 0, 0, 3, 0, 0, 0, 2, 0}, {0, 0,
           0, 0, 0, 0, 0, 0, 0}}, {
          0, {#& , #& , #& }, {
           0, {$CellContext`t$47661}}, {{$CellContext`i, $CellContext`r, \
$CellContext`s}, {$CellContext`i, $CellContext`r, $CellContext`s}, \
{$CellContext`i, $CellContext`r, $CellContext`s}}}, 
          None, {{{$CellContext`b$47659, $CellContext`k$47660}, 
            System`Utilities`HashTable[
            1, {{"Output", {$CellContext`s, $CellContext`i, $CellContext`r}}, \
{$CellContext`b$47659, $CellContext`b}, {$CellContext`k$47660, \
$CellContext`k}}], {}, {}, {1, 2}, {Automatic, 0, 0}}, {Automatic, Automatic},
            None, {}}}, {$CellContext`s, $CellContext`i, $CellContext`r}, {{
          Derivative[
            1][$CellContext`s][$CellContext`t$47661] == -$CellContext`b$47659 \
$CellContext`i[$CellContext`t$47661] $CellContext`s[$CellContext`t$47661], 
           Derivative[
            1][$CellContext`i][$CellContext`t$47661] == -$CellContext`k$47660 \
$CellContext`i[$CellContext`t$47661] + $CellContext`b$47659 \
$CellContext`i[$CellContext`t$47661] $CellContext`s[$CellContext`t$47661], 
           Derivative[
            1][$CellContext`r][$CellContext`t$47661] == $CellContext`k$47660 \
$CellContext`i[$CellContext`t$47661], $CellContext`s[0] == 
           0.9999, $CellContext`i[0] == 0.0001, $CellContext`r[0] == 
           0.}, {}, {}, {}, {}}, {{0., 100.}}, {
         Automatic, Automatic, MachinePrecision, Automatic, Automatic, 
          Automatic, Automatic, None, None, Automatic, Automatic, Automatic, 
          Automatic, 
          Rational[1, 10], 1, Automatic, Automatic, {}, {}, Automatic, 
          Automatic, None, None, None, Automatic, Automatic, Automatic}, {
         "Cache" -> True, "CacheTableLength" -> 19, "CacheTableWidth" -> 7, 
          "CacheKeyMaxBytes" -> 1000000, "CacheResultMaxBytes" -> 1000000, 
          "KeyComparison" -> None, "ResultComparison" -> LessEqual}, {}, 
         All]}][$CellContext`b, $CellContext`k][$CellContext`t]}}, {1}, {{15, 
      Rational[129, 1000]}, {16, 
      Rational[22, 125]}, {17, 
      Rational[149, 1000]}, {18, 
      Rational[279, 1000]}, {19, 
      Rational[57, 250]}, {20, 
      Rational[21, 100]}, {21, 
      Rational[59, 250]}, {22, 
      Rational[51, 100]}, {23, 
      Rational[539, 1000]}, {24, 
      Rational[99, 250]}, {25, 
      Rational[387, 1000]}, {26, 
      Rational[121, 250]}, {27, 
      Rational[81, 200]}, {28, 
      Rational[723, 1000]}, {29, 
      Rational[413, 1000]}, {30, 
      Rational[287, 500]}, {31, 
      Rational[29, 50]}, {32, 
      Rational[201, 500]}, {33, 
      Rational[99, 200]}, {34, 
      Rational[54, 125]}, {35, 
      Rational[7, 25]}, {36, 
      Rational[93, 500]}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`b, $CellContext`k, \
$CellContext`t}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7944736925420046`*^9, 3.7944738381538053`*^9, 3.7944739388721905`*^9, 
   3.794485412184715*^9, 3.7944855496689043`*^9, 3.7945539729346356`*^9, 
   3.794554025888043*^9, {3.7946450820590754`*^9, 3.7946450973544407`*^9}, 
   3.7948028183935776`*^9, 3.794802871315601*^9, 3.7948970460964866`*^9, 
   3.7949012580511365`*^9, 3.794918907340536*^9, 3.794920053531229*^9, 
   3.7949755725233493`*^9, 3.7949776594297905`*^9, 3.795012556867467*^9, 
   3.7950597292204356`*^9, 3.795157221077838*^9, 3.795157891168251*^9, 
   3.795158558436183*^9, 3.795158741401724*^9, 3.7951589965552034`*^9, {
   3.795319956061505*^9, 3.795319980008664*^9}, 3.7953201494239225`*^9, 
   3.795320224638544*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"45b97260-a384-48d8-b3fa-29026251bcd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"fit1", "[", "t", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "10", ",", " ", "35"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<t (days)\>\"", ",", "\"\<Casos/10^6\>\""}], "}"}]}], ",", 
   " ", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Point", "@", "datosAN1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7943843859110203`*^9, 3.7943844014992375`*^9}, {
  3.7943845112153835`*^9, 3.7943845415634375`*^9}, {3.794485275470253*^9, 
  3.79448532148193*^9}, {3.794486865950877*^9, 3.7944869663883896`*^9}, {
  3.794487010169284*^9, 3.794487034809885*^9}, {3.794645107934228*^9, 
  3.7946451114514866`*^9}, {3.7951587789888153`*^9, 3.795158790683218*^9}, {
  3.7953202734172487`*^9, 3.7953202789934683`*^9}},
 CellLabel->"In[210]:=",
 CellID->874901978,ExpressionUUID->"1485f1c8-35c1-422b-8297-e4cecda2a447"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk4VV0XAHBRoqhEqERknkKGe8/FWpdCkXzSIGN40SBCypgkReENCZki
KlKJQiEhmhTiGgrnhkqlvBJJ8e3+us/vufvss89ea6+1Zd18bf/h5eHh2TCP
h+fv75VsaREeHnncM3RUor4tBGSH84VH+eSxf+PdhQUfQiBbTWVR70J5HJgK
Lkr/EwJplRv4ypfK49u0CuNKlVCIb7f44SUjjztyuta9iAqFIP6AnlfG8tgR
tfnbHkYYmB9qvpwTLo+cHycngkvD4ZORnw7MyGN84I4LCb6RMC1RXBE5J4+B
8dOHRSIiQWB82LCeTwG3leb+zD0XCUqFDuabhBTQZLeC1vvrkeCxxNzRco0C
pnRtDF80HAn9/WtidoECmmI9s9HpBLQff97je1IBHRJt8zfbR0HVI8UTuYsV
MbvyP2ut0GgI2cz7On2pIroJv2tfcC4aqLY++WRRRQxZkTr5MTMaqumUJ6dW
K+Jwi/iW7tpoqJ3jXXZATRG96lc6OPKdgkajgWw9S0XktEmN8yWegtaqi9XP
4hSxwazVQaY0Bj6UCvycEFRC87bEY4vXxYJ1rP6OXmElXOXpGskyiIV7rh53
Hoooocz/OAGhlrEQs7TuYNxKJQzLu2GlFhgLij5HuTIqSqgZ+XaJVVMseCi/
f7bFQgkPyYxTmT5xQGc3ZOXGKGEkd35R65Oz0H02wtSKTxlVwjrmeZUnQPvk
XpWYhcrYn7hJRehVArzYu2lp3WJlVNfs+No8kgB1BkJvNogpY4/ZyuyTMolw
dTDdf7WCMpokjJ4XPpcIQay7lz+ZKePqdsFfNbr/worPn+fOxCljWcncP3Kr
z4PtFvvqxyIq+L/2u6/GhJNh1q3vUMUKFSzNWlq/eU0yXA/dK3t9pQqec+2q
vKmeDDwl+2LOyaogn5pad6ZlMpQsDbHZrq2CCZ6GfYvikkGgM2OItlHBjBXP
ZvQEU6DW5a3Q70QVXA0VrgIiF0DtiIuTzhJV3CnaJnbT4iJ4y6anHVuuims+
dXZyHS9CYUv761pxVUzb9fak4uGLIKdotsVSRhW7XnT1vEu/CJJd6gYeWqqo
k6/RrvzlIsxn/lqWaquKzRuCy38kp8Hb3ymN06mqyKlJOTgxlg7x0c/UHsmo
4VjS4i8XBzPBP3Kn//d1atgcb1c5N5MJO8PeVSooq2GhxBQ7VCwL1gb+2hSn
pYYHRQ80lWzKgjvuqq7b2WpYbja7jvd6FnBM4lKG3dRQ54p+aWBANqydt+WP
YKEaOj7lvTKxOBfuhD99aauujooS9aaMtstgoTTJNdRSR5PrMfbSA5ehv1Xu
h6KuOq6KZZYtGb0Mi+TDVs+w1NH/CnvrEsE8cHum6Z1vqY6D+x92xbLzQFQi
Zd7EfnV8BEkKx8rzIPC2s+6F6+p4pMW6zDUvH/QHv6d3KWrgVGNl2khOATiv
5eiJq2ngTHbEqbnSAohxqmyzW6+B9+SKk9Y1FkBXV5hgu4EGVmgk6qZ+LIBj
LxYEv7DQwOSIoTxFnUKouiux+9F+DWw43HLud3MhGJ5hiRff1EDNl4MlD2ev
gqnGyaQIfU2ENdkldRlFICXJPxNIaeKeZ8tD9W4VwSRvrPsBY01cO7iwsrKh
CIq6E3R3m2micNbX3E9fimBZdAZHe6cmSv27XegPFEN/b+mq4SOauMZ2o/Pg
x2IIPkPnWd7VxK1LR8zGNpXArUGjMknd9fjk6ZazhyRuwze2WccecS2MNbnm
YrG9DCzn5/5DZWnhWeW+/rqgCugKW3pWdLU2Zmx8IKn+6wFc9dJuDs/Xxkxv
6Vm5tjqwN8/y2aeig3bv3fruzDYA1Sd9zbpQB1NSxMuP2TSD67DtdKPGBtyb
eHpzv9lzuJuf2a97YwMutpCLD9v4CrZ1pPXq6eliVgO96PtIGzyb7sfKB7p4
7cKK+cEGHXCkk2LpMvWwMUNCwMKJAx7rNluxH+lhwlW3t7053XBSyec/c9TH
DfYpHaOXeuHk2jc8rdX6KBCcJdTn9haenJ1RHDE1QJHqr7eCxPrB2mPoMHeT
AU7dfKJrvqofOgxbqnvMDZBPl6dHdG0/DIxm2z6zJONTQ0Muq/XD5DaTiOLt
Bpgrv3U23qQfFMRiO33cDVCwrvBrkW8/RGWKR49HGWCCi/bKL039YFiizZ15
ZICj70/J7t43AGe3HfGTbjTAqpxvNomHBqD3v8o5bDLAPMbVm48CBuCYPkrH
PDPAzB3m4xIRA1D20Nph2WsDfGhufDouaQBU2w90yg8ZoOoD3l2n7w+A5FTB
0638DHyo7JVyiI8Gr/SR3X4CDCy5355evYCGeyyNj0mLGFj21UhLQIAGu8hy
/u4lDAzXT16aJkRDomCDqZsEAwf3Kl3IWEEDvxRdE6TMQJ0MjyZVJRp+4Ko7
OVsYqLYvzeyYBQ2SixeaV1ox0DkpUN53Cw1U5/c3rdYMVJ13rdjdioaIfS0L
eLczcF6+UMUmGxoEkiLtPRwYmJyT8mR0Fw1Sg+95VA4ysPzBW6GXnjSYnCrb
dieegVe2K7W3RtHgsS136FkiA7Ncj+wMj6bh9Mr44MHzDHx+4Mc5pRgaXpR4
5oulMrBGf+3yI7E07OCsnArKZuCjcu0zE4k0eCtFZrNuMfD83IvQU5nk+55a
jTa2MtB7QYvXeBkNcZ9ivavayX61VSkY36UhZnHzYEkHA9dET389fY+GsK3s
3tRuBu7vUi5YUUXma9Nr9qYZ2Dew+cbKWrLeHunLQmMM9L1WdKqxmYaJj2N2
dkuZeFHWpfBaDw3fBDVbLUSY6FOuc/teLw2fVA9YGoky8afn1Y76NzTQB4fZ
ihJMfJge69vZR0PLWI/mT2km7jJsnhnk0lD4s14gU5OJnG9Jg4UjNNgLXKge
3MrEDHXVH81TNEh/Vw/jtWHiAat7K278pOFdXyNL1paJ5ldnlyVM07C/bOK+
804m1te0ZljO0BDibFfV48xEivV6WcksDZnlovde+TLxTKMRY9ECLrjmFB/5
epiJrdO87i+I5eNM9YQDmSia4nfkHD8XSlwCyrccY+I9zLPjF+BC7aLXdx5H
MrEo5IsodxEXaNekWw/OM3F5QLTthmVcuGKp6tubzMRNZ2sdO4i99es1py8w
UUFD3DFAhAv/LR4v0c9g4hXhc0bFy7nAW/G/G6V5TJxkTl7hXcGFpssjB1qv
MFFKfv7hZOK4cyfUvhUyEU/vYcqJc0HUrbRIvZiJ7Y2h9UwJsl5hketXy5jo
GtDyymYlFz5OXfNuusvE0lDHi23EN96h8nAFEwtW7HezWcUFvUq/q3LVTGxa
lMlvsZoLZu6tBVmNTFS3ScuVWcMFr6rEvOROJip17hr2W8uF+TNHLRK6mJjY
NzX8nDjX0PXrmR4mDlbpMxRkudD7UIuK6GPiiNiVjnZi66a2Nu9hJua7NfCu
WseFzwvvH3X/wMQ8SbrAi/jM5rw1ziNMbPj2KLeMuP6F/77to0ycp/wx10ye
C/qvRecZ/yDrf7mR3q3AhddivwsZU0ycuLRsVzqx384hqw3TTIzvalbrJi7q
KU9T/sNEl7rF4zaKXDBfnWW8bo6JQzxyw3HEQ46nhtbMo9CBo89sIJamd2iJ
LqCwwtN34XolLjyQNeYIL6TwU7nUSTfi3e6KYQKCFIYE024pxEnvJ5v/CFGY
4z7P9jsx/+hFl49iFO7czp2frcyFfM3IBYPiFC6e7a5oJEY/7+I+SYr0N6vO
EeKQ74ypdikKj91vs12vwgUJPdmsFmkKE5cHl28jLg8SNH2ylkIus/nkIeKv
0z0JNfIUHvgddegq8VlWvW6lIoUPV8WcfUSsHF7Ue0eZwuglDit7iR/XJkWW
qFJokf5C8j9iN55QxWvqFKaHFcTxq3Jhju3+Ik+Twvkht31XEWeetPTP0qJQ
fHvlE3Vi5uMNkmk6FDo/PZ1qRMzhl6pN0qXQO3ukx4o4wGK+R7w+hY3J15L3
EC+L+yJ4hkHhn/2JjZ7EJc87bkVRFOYPe/scJt4iXLMj3JBCk8dzCSHEH6wL
Zo4ak/meS6tGEUf/G3/ZHymM7zwPZ4hl24+Y+5hQ2J2o13qOuFbUedRrI4Wv
/fveJhI77DBLdjOjUMt/l+d54p+pmkwnCxKPE4d9/vpCt/jAri0UtqdMj/8d
r7NqLtrWiux3Ts3U3/leOXxQ3WpNoemFs2F/33cw61WruQ2Fg/u0o/6uR2Cg
IsjElsJFIuGCocQFa3OljOwo9IowFPUnFo/TfqKxk0LBtIvdXsQx3+sDpHdT
iE9eaTkSTzraySzdQ2Gx2FWpbcSeTcPP5hxIPkUNZOLf/Vx/NGjMicIsSdYd
LWLzdAE5rguFnm9CnWSIlQ+qBde7k3ycLT/2k8QvrbNavuwfCo/v1/70jlgQ
rFvzvSjsX3lp4jnxJ5HDSqcOUNhnb9yVTrwnlPf1ER8Ka3/M3I4gfj6UHOHp
S+G9zzcV3YhvVNzrNA/4m0+/P8oTS8lanGAcIfGQkzKYTxwf16OucpTEs5Ih
/47k6yGn3ycXhVJ4KvLf/nTi/qb49TNhFGYedC8JIN6mJfPmcwSFhUl20lbE
WnwmOi1RFM75Z478JOcj9+Drvppo8nzusU0txCIcj9ibMRQe/Bpulks8fu00
nRhH4fO2JSwT4nLrlgTbJApf8qXyBZHzKV/pTJmmUOhyYmE2EF+QHRvekEqh
+peKwYXEQRPLjVZkUDjqSwekkPPPyNj9uesyiV94ZnUWqR/X+D6lPsmn8Ezp
/5ociVf6hJpUFVC4NtfhxCriX5CdnnGdnNekY0uSSP2pHh40dyql8NID5YzD
clxQ33bk+9YyCo32fTJVJM6q5M8xvkvh52nVgh5S3yLOqkzKVFHYfFLzvCEx
avteeVdH4VSgl/x3GS40hv3i8W6lcMn1d/Q6Uk9nb70fi2qn8FvPY41qKS4Y
DLbTWR0Uiv1R599OXLS5uO51N8mnEnenMFKP/xV3jAQuhZ33Q+pqSP12ul0z
Jz5OYRHlp/Ob9IPUwevftCfI/29qi8OJW8VTB6wmyf7cWFj3R4wLG8MPPYz6
RaGw1Y6aaVEuqG6ROf6Vl4V7r0QocEn/mRyMnH0sysJ/LvyKPCRM4ifh85Ve
wcLa0LnVvUJc2LfFvn9GgoV/dunu3Uj89rZ2rbYUCznuM6Nii0m9Dn8XniXP
wtyQ52qFpB8mSmz8E6jHQj9ltnAcH8lny4W/1+1ioUpC44jTz7/3I9P2VfYs
/JA9f0cJ6d9WLpHXRBxY6HOq8fbMJA2HA6bt5pxZqFVw3/DCDxruX/pc0uvJ
wpduvA8ejNOw9csrl/NBLJTxE/nB+UKDf3xaw+wFFtb1fjpuSdPw4JXK2Z4O
Ft7uHfTa0UhD6rpHBb84LLQxH02wbSDjj+6uW93Dwoq84RvW9TQoy5z+4dTH
wvzNkm2mdWT8oSGXd8MsZNtWtctWk/UI5+h+nmShh2xcWAm5LylZivX/ljRE
yZKHhwXzaEhumtVa62SInVGaUbxhNGQEjOx3fWuIN00t7FzVaTi5QnqpnL0R
Lh8Rkb5WNAC3VRY8C6SNUPPGueO2/f0gPDFv5SNnYwzGo7ebyP37plZpRPYH
Y3watG1ETKcPtNyKrP/4AEqUVHtIWb+Fd5ur7uz4DGi1rW2wPegNfPlfTWoO
uQ4EUC+aws71wlyPsrRIMOLnzVkeu+/0QJRj1R7TCkTttFeFev3doCSZL1f7
C3HNT6OpmV9dMHTzYvldJht1NWy4gapdEKdd3veSYiNVM+faq9gFWuWt/B9Z
bDx8YGA9ruuC0CpB+1XGbHT0f/dASKoLljeG/okwYaO7ff/568JdwO5xMbOw
ZKPxxR7H8TEOZPMpd/c6slH2lmnsowoObIzZOG/CiY3V+oGoXc6BTwJ7VYVd
2NjQ0Gd5+TYH9JZkhMFeNn5cPe4SdZ0DLySFZK/8w8a1C1gnLC5x4JfG2D6f
Q2zcUaf0dCiCA7m3hZJjfNnY8/tEp30oB8w2qFTn+LFx3qQP49VRDpxnuC1p
92ejkNV53gd+HFA27bijf5SNyiMLb6S6ceDl47E3246x0XM+7bfEhQOBFsIL
9gWzMUDAPj7GgQN1W812XQpl4/yNRS1H7Tjg2eoWWR7GxqWVdf+N2XBAaPvx
6y3hbPwRP+GzfysH7nRean8fwcZfgx4mQ5s5sGt35czccbI/3Vq+zmYc+D9/
a9p3
       "]]},
     Annotation[#, "Charting`Private`Tag$52196#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"t (days)\"", TraditionalForm], 
    FormBox["\"Casos/10^6\"", TraditionalForm]},
  AxesOrigin->{10., 0},
  DisplayFunction->Identity,
  Epilog->{
    PointBox[
     NCache[{{15, 
        Rational[129, 1000]}, {16, 
        Rational[22, 125]}, {17, 
        Rational[149, 1000]}, {18, 
        Rational[279, 1000]}, {19, 
        Rational[57, 250]}, {20, 
        Rational[21, 100]}, {21, 
        Rational[59, 250]}, {22, 
        Rational[51, 100]}, {23, 
        Rational[539, 1000]}, {24, 
        Rational[99, 250]}, {25, 
        Rational[387, 1000]}, {26, 
        Rational[121, 250]}, {27, 
        Rational[81, 200]}, {28, 
        Rational[723, 1000]}, {29, 
        Rational[413, 1000]}, {30, 
        Rational[287, 500]}, {31, 
        Rational[29, 50]}, {32, 
        Rational[201, 500]}, {33, 
        Rational[99, 200]}, {34, 
        Rational[54, 125]}, {35, 
        Rational[7, 25]}, {36, 
        Rational[93, 500]}}, {{15, 0.129}, {16, 0.176}, {17, 0.149}, {
       18, 0.279}, {19, 0.228}, {20, 0.21}, {21, 0.236}, {22, 0.51}, {
       23, 0.539}, {24, 0.396}, {25, 0.387}, {26, 0.484}, {27, 0.405}, {
       28, 0.723}, {29, 0.413}, {30, 0.574}, {31, 0.58}, {32, 0.402}, {
       33, 0.495}, {34, 0.432}, {35, 0.28}, {36, 0.186}}]]},
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{10, 35}, {0., 0.536446298367128}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.794384531929511*^9, 3.794384542250186*^9}, 
   3.7944854126689587`*^9, 3.7944856975442514`*^9, 3.7944857362786407`*^9, 
   3.794487073684792*^9, 3.7945539731376424`*^9, 3.7945540260442896`*^9, {
   3.794645102894678*^9, 3.794645114039608*^9}, 3.794802818581154*^9, 
   3.794802876393921*^9, 3.794897046184437*^9, 3.7949012581720767`*^9, 
   3.7949189075748787`*^9, 3.794920053704595*^9, 3.794975572654365*^9, 
   3.794977659540468*^9, 3.795012556929963*^9, 3.7950597293361044`*^9, 
   3.7951572211826873`*^9, 3.7951587494236035`*^9, 3.795158793540001*^9, {
   3.795319956414331*^9, 3.7953199841185417`*^9}, 3.795320154967015*^9, 
   3.795320282965534*^9},
 CellLabel->
  "Out[210]=",ExpressionUUID->"09b88865-2e2f-4e60-9002-629c293f4fb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "[", "\"\<EstimatedVariance\>\"", "]"}]], "Input",
 CellChangeTimes->{3.792145835217512*^9, 3.7921477128079367`*^9, 
  3.79465819459344*^9},
 CellLabel->
  "In[211]:=",ExpressionUUID->"14907505-e319-4803-b979-d7f9acdd79c9"],

Cell[BoxData["0.011367151353294852`"], "Output",
 CellChangeTimes->{
  3.7946582075458813`*^9, 3.794673443514201*^9, {3.7947310579615993`*^9, 
   3.794731073225537*^9}, 3.7948447433295918`*^9, 3.7948859718816137`*^9, 
   3.794886054543825*^9, 3.794887521002942*^9, 3.7948948620492206`*^9, 
   3.79489704235404*^9, 3.794901254903392*^9, 3.794918936894989*^9, 
   3.7949209082455673`*^9, 3.7949755598880825`*^9, 3.7949776572579947`*^9, 
   3.79498575776523*^9, 3.795012554769622*^9, 3.795059726360834*^9, 
   3.7951572103584995`*^9, 3.7951589233317175`*^9, 3.7951590041270666`*^9, 
   3.795320307051711*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"4f28e3b0-2070-4327-b6af-51d6de623cfd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{3.7921458358925323`*^9, 3.7921477230234203`*^9, 
  3.794658196843397*^9},
 CellLabel->
  "In[212]:=",ExpressionUUID->"eab52d13-b77e-41d5-a37d-838115558440"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"b", "0.5022557744811286`", "0.01362693518379879`", 
      "36.85757418720725`", "7.331196751446473`*^-20"},
     {"k", "0.0832270352757851`", "0.008049495828340202`", 
      "10.339409703495233`", "1.799626011210308`*^-9"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.792147662941319*^9, 3.792147723511951*^9, 3.792151341600045*^9, 
   3.7921622339969273`*^9, 3.792165730894038*^9, 3.792166355719709*^9, 
   3.7922361716938334`*^9, 3.792236394835102*^9, 3.792246755523024*^9, 
   3.792325560366289*^9, 3.7924129293862543`*^9, 3.792415208046687*^9, 
   3.792415298851677*^9, 3.792415616464199*^9, 3.79317794716889*^9, 
   3.793285006276814*^9, 3.793285055183935*^9, 3.793378817144147*^9, 
   3.793378887220359*^9, 3.7934337359058113`*^9, 3.793445650280938*^9, 
   3.793445813190061*^9, 3.7946582075458813`*^9, 3.794673443655941*^9, {
   3.7947310580453753`*^9, 3.794731076256102*^9}, 3.7948447433515844`*^9, 
   3.794885971937854*^9, 3.7948860546063356`*^9, 3.794887521081026*^9, 
   3.794894862101081*^9, 3.794897042419039*^9, 3.794901254973234*^9, 
   3.794918936988736*^9, 3.794920908347215*^9, 3.7949755599805946`*^9, 
   3.7949776573517256`*^9, 3.7949857578131924`*^9, 3.795012554785244*^9, 
   3.795059726438939*^9, 3.795157210431305*^9, 3.795158923442422*^9, 
   3.7951590042886343`*^9, 3.7953203101309605`*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"c0a3f1cd-f2e7-420c-93fd-25c4ec2e0779"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitWithDataPlot", "[", 
  RowBox[{"fit1", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DateObject", "[", 
      RowBox[{"{", 
       RowBox[{"2020", ",", " ", "3", ",", " ", "20"}], "}"}], "]"}], ",", 
     RowBox[{"DateObject", "[", 
      RowBox[{"{", 
       RowBox[{"2020", ",", " ", "4", ",", " ", "30"}], "}"}], "]"}]}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.793178530282858*^9, 3.793178533034833*^9}, {
   3.7931817279399977`*^9, 3.7931817328002987`*^9}, 3.793183441404623*^9, {
   3.7931835528707013`*^9, 3.7931835668454313`*^9}, 3.793438582506629*^9, 
   3.793438622914377*^9, 3.7946581994836693`*^9, {3.795159089985208*^9, 
   3.7951591430984383`*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"fc64f169-3527-4b0d-b867-c71d5a38e763"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQQTPN3eOAb0Ts8Taj5gD+QfKAbyd3nyMGm3HwPx
P8wF8u/7gxQcBvEVTgD5TglPLyjdvgjiB3wC8k+W7ZsvpX8WxG+QcX/j+LBK
ZJ37w1Mg/gY3ID9j4tsae9NzIP6DAiA/aIdc6+vAByC+wGwgvxis4CGI73AU
yP90yTdJIOImiF/wHsj/Efx46ewjN0D8BZIebxzB1v+8B+JfcAby3wSCDASr
Z8gD8jvBKp6D+AYzgHxrsAdugfgJh4B8sHPiHoH4E94A+f2HvmrE9IP5B8Q8
3zi+A0nvApv3wQHIB3oG6KP7YP9nA/k3z30Huug22P9TPWH2X7QHAMA+jfM=

          "]]}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, {}}}, {{}, {}}}, {
      GraphicsComplexBox[CompressedData["
1:eJxF23c8le//B3CVZKQkiSiSVFRoS7rsJJuiaEklUlIhoyLJTDSMVKiMIrNC
6rbXOfYhm2MeWX2SltHvfX6Pruv71+fxety5z+G67/c9np/XauuLJqfncnBw
uM7n4GD/V9lobn6txoja0aDLPr07VqC2XWGZ3yDrDU8YLD0ohRov7/Jergnb
Dxe2DR+TRQ42Tt1KkC8lhf0V8NmCevYKh1lCNouPFtVuUELp9rWrbkLeblZs
JuyrjlYZrFKOg5znp+eu8XU/GvD23lIGecZnXbdZigkKjDXyHIa8U+Xbes93
R1D11Qxzfq0Rtd593491v7BG9tGy/FsgZz1SNnYrsEPxrjtMzCCXat8af/bB
CX3am/zlKmSdpghhTl43pGC+61gU5Cc/db8IhnsjtbUWJ/MgjzGVHSyZ/ihZ
6y5iQu5Y/IaL7haGvhtuvjRfe0RNouPMLl2pKNS62HrLOsilwgauDX9i0Qqp
5OoDkCuyC7et00hCv4b8/zhATuC/dUx6ZzpS5Lw+5z5kh07ZGO7q90ibu93y
PeT16m4pU+L56E9BlVYLZBf/30dqOUoQd3Uj7yzkkfyaXf6HaCgr5NJxyX0j
aqH1oblVXHVIRdllgTrk/AGzcVU/BpJUuh9wBnI3OuHVZNyMYkfUn/hBdp1/
My/0fhvy/MYdmAJ5sqTAdF1QJ9res4teB/mQ3ozh8mPdKOjOdPQEZIutnCsq
eJhI5UaTjojOiFrOa5nPV88yUdBGTZ/dkMWb1gQ6XWai7CKxpVaQaUvl9eha
TLQ3hcfzJmSbDXfC/+vpRtZ6gc5xkNX8h29N2XQjpsqaA2WQbeOyLOt9u9Bs
n0HqEGR/20NzlZQ70a+rfWf49o+o/W4W7b480I70Dt/7LQ/ZYqRI6rZDG9r7
rUbMBPIyBS7eQf5WFNCxVtQF8nyetvCMR80oM6P/3GPI8x5wKcsqfEZuKkq6
HyE3RT7pahtpRNErns/vgfzzd1OZcDQDWaXEGHHqjqgp3J1yv32xAf3ewD2+
FrIFK/mQ6qF69PXXbVtdyDlxvSu3batDtz3DL52HvD5m1jB2ay0qSZ25GAZ5
7qX3Un37q1GgZmUOE84H7azOv6vnSCCLQ/0r5sPxalrh7Rc3vRatPn8wfT1k
9YCRVxKq8ijRWDNHF3LEuL+bcOd2pHvwcrMD5D2bPflCx/YiltXPjaGQDYKs
XO8OayFv29p3WZA1tGv9yyUN0a6wIfMWyJocN7SMDx1CyYFedtOQ+T6/Ca0P
OY7E/S9kSMDxW28Qzc176AzyC0iT14Cs/j436kvSRZRheWnVacjnk4YdwoWd
0U9dJ2k/yA0N6dV1q26gXXvLj7+GvGNf1cTpr7eR8/bLtdWQO9sOle39ehfV
6h6zmGCfb8F/DwROP0SD8uXGwnC83nQ/5mWU/BT9EblzUwly06TWse9mLxEP
1+M+K8iBaYMLNHxTkNDPeddvQpb7XbdNeV8W2sOVsvkl5OMdfm+aCj4gyX6G
UTnkXWttkl46FqI55caJw5ANO/oSVvKVo5DxtUKP4Xjlv3FpqHxtBzr8JeY1
BfniUVp9VV4X6s6KyuqB7K4U6pDwqRvZ3Br6Nh+Ot/2H9rdPazBR38HgMxsg
935fdSfrKhNJ/Uo9cADyiShn535rJnLPFtS5AFki9X53pygT1XpUXguFPBJh
t/xgQjd6+ajS8Qas/xXB8P3uZjXolO7AnhZY/+KolbQkb3EUVaY8OAX5u4zb
rSdLpdHUeKmoJKxP1Zi3jPTbjYjXsk1PHfJBmYodOhLbkHCl5lsbyOueO+y7
rrEH6fX1vvSD/FYmjhUso4mMLH+6voY8ncVq3Wenh0J4d2jVQv5rW3xx4LwZ
ihYempiArBwYKW7JcxRdvSFwWxjWZ5w2oL7d1ga53Xd4uhvyrt31dWfFHNDG
L6bZVpAH3vHFB5tfQa2aIQtuQO7iprZ+cvFAWbocXXGQPZqjPqMtPnC+9EeU
QHYy7uLy0gtCe3V+HPgCWW/g3I9P6x+gMeTO5If1UcqIqppjHI3sHlw5rAD5
QPSOKzGPniPBB88Pm0GuzjT12GX8Gvl+1d7jAtnqDiOIJz0D7bi9TCQasvym
hYmf3+egTGeLJgqyuAvrlSoqQLPFi116IB+hl69w8SxFIheymkNhfe2OXbCt
ONmO7MfMHr+DbOW64YyvbBcKoJ1TbYX8OcLpwbLQbuQ6f6JsGnKf1AXFxg1M
dO9L+mdJWE+rLW8K8h2ZyFzwz6A65Hoj41ufzzPRir3hm05Dfm/Ia2iqyEQL
ltlN+UEeDp7Du7i0Gy3jVfzvKqy/aeKHwab2GpS5982OL7DeldfOqSW2SSLh
/rsGi2A9HDrMQ0yE1qN9rF4dRcg3v3vKXpiriLR0UtaaQs59+fJeQtFOdL07
dsqZfX1TfpsjMKqKbjXyZkVCthn5dVmveR/Kupr0/SNk4SfzV+QsNEY9ok/s
eiBrvSp7bOdggT5yrGBywnos/JNismndSVQcRu9aD9msI6jssJMtCveayD8A
mVuqMbR81yW0q+qujwPks1t+LUidckFCxgfVQiGPfBNT3j7XC+Up3uvOZGfX
MxvOMu6g0I8c3M2QL2it4ytg3UPW+qU205D181+b6f4OR90SywpXwfp8HEuf
znwcgwKeRCaoQ+6MzrisvSsBcbiGXTwNefus2IBvXyqKm8mn/CHfP7dJb9XU
W8R1KdzwBazPTJvptsrODrRvYORDOeRlljTDY6u70Y6ntPXDkDtfjb1vG+hG
RnO6Vy6G9VCVLXO6YsFEuwpsJxUhp+7/1HPHmYlGO06nmkIuOhz7uPYgE7Vv
uWvtAlnjXpHQ67/daPsam69+sH75XF/K5aqrkaH+lVkGrN/AznPFXw6Jod0c
Z/V/Qs6nTVzVlF+DWOl/q8Tg7/3a4XlT0i05lNcVL7wXsuucs2mn9bciD5+U
NScgD25aOWHBqYxm1x2x9oF85PTdhgljDfSewdsaDzmuLm2LoMwBlKvd/oEG
ubDVlWulnykSao/OHodcszH8Xk6LJYpzOzm2BP6+9mdzU5y9TqFvy+kHd0Cu
G/EekWTZo3OKWrctIFfvv5d34vZlRC9Yec0N8v2T46Kcu93RN6Pop08hWwUo
J149cQsZDK2ayYeccTRLXEYgEE1qF5b0Q34e2TukpH8f/VdmlsQD69Fn/1RI
a9tjJGUyXCIHuT/Lwy+kOA4Jt60TMoLMissRu6L1CiEH28dOkOvFTVVefE1H
WcUVQeGQA6SfJv35lI080IrID5B32jELlZPzkUfRhc4OyO5Rx5dP5ZXAPJna
HQzrOdfj48zAVBu68nXz0gzI4Ve8Qxntnaj7kDFXE+RywaYITddu5F3qsuUX
ZNb7iry7K5hoYJvmPXFYzwfVRSFJcL46SUi82ws5LPLwlvtwPg/dPBxzAnL+
6bXLJpRhvjOV8nwgvyqu6/jI6EZVGjaKl2D9V40oq/UL1KJnant+9cN6C9X/
WOMhK4ner8zN4oH1CIgOLbaauw5teyU+sxHy6jef3Nz1FdAPuuu4AeR5aTxh
9bQdqC+K184Jckzc97ifm1TRDlEvx4eQHU8liRW1ayOx8byDOZDf+VRVKOsa
If5DGswOyCI6YrE9luZoW2nVSw729fZA/aneyyfQ1+CV+6UhXzbs/7bq2Fkk
wGXiuo99vf2ifUbmliO6KnTT+Bxkme0ZNHlOF8RV3ZsRxJ7PBqM3P2jeRH92
boxJhVzjuT7cvcMX+fxWOt8A2etWTuaFjfeQqF5Y50/2fNd7kxAx+Qj1JYz5
r4D1+emoV5cy/AypWwoI7WVfb90stzSqxSNOSlj2JOQH8sH5omlvkKVbz6rb
kEOCRWtPrHyLdNM605/B+lwefXo561YHMmKVbi2G/NvKOjKJoxsFbsgcG4D8
bkU07/mGbnSk0MaPF9bDqVpo47ABE93lm0rZBDmdek57Cucv93CApyHkwU79
9XlWTJR81ajRCfIZMf29ovxwfluFK/jA+hVufa4juKQGbVf1duuE/S9f/cIs
MLEbXdC8cHQO/Psog1cucTuZaHeMhMRayBvWa8oUwv3rnvmNovsgP9csEta2
ZSJtVcvMpZAD/5yXjDnBRD3OTXt2QM4sE6hyhvuD+lpVpjnkhyLzlTbA9/Uc
UkgLhs//8XSDallgNSoxUO6qh+PHra20K6BkBQqI9uCYhDxd5/FuNF8KdQqK
J4rCegcz08Ryx2WRUFzQlDLk3WlpzDeDW1Aqk9l6FPJV5YQGYbvdqHn/Q1Vv
yPbnHzG/fVFHdqEPAl5A7vyygcfWXxfV2si7VEC+stus+aaoKar99CNqFPL3
3+olj7Qt0a5fPM8Xw/q+VSywH11yCm0+4q64DfLinHy6mqk94m78aH8Icjmr
f6mrxGWkxdGv6ApZ3itO/FCMG1piZnc9GvK5ta0JeX+8kc4d5dRPkPuCCnlF
XAKQkXaidy97/h/bMNPfE4a+BaoFL4DjoUFR33syKQrNpsl4bICs+PWx3+tj
cShi9tx/+pAjH/6UXFOUhKLlfus6Qrb2sLzFez8dOfWt2fcQcrq7jq2vVjZi
rnF3y4G8xLbxyBqbfPRBfVVYG+StYuvTjhwrQbN6EiMBsN6VMbd/cJe3Idf/
xGpSIfcUd71qz+pEAeJaQw2Q38SWBx+270YL1uUOTkJOs38tayXIRIJHgs+v
gPV88SfozVY7Jvr7UvHJHsi1eSsbVjkxkVFc7uFjkN/wNc7+UmUihbLYaG/I
nF/mXh5s60ZJ3Z51F2D9mep107ulatEyjXktvbDe3VOlt9WTJBB3bs3ZBbAe
GRwr+/96yiBZPqXPspDFHB6oZQzLI8OQYww9yPKR6rXvTXeg5b/2rnaEzFE0
1K/wHKHFynkG9yE//E81us9aG1W/1uZ6D/nFzte2Ps2GSOrKo+g2yHTpzLTn
nw+hr4nr/GYhM03mCs1ZeQL58pXOrGbf/5szXkQ0n0F6OnPMtCCHmypflZZz
RELZv3aehdytV6S6KcgZXV/42j6A/TygasElU38DiSr/uZHCPl7G9vHlnfZF
nuGHVtVBrjy/6HV4XAi6csD18STkjUY3vxW5PEID9m0OIrA+8wNaTN10n6FV
uQcqlSEviNwzsrPyJfLtsVhwHHK0oOqSbtE3KHvX5WpvyH46tm+OpmehEcO5
p57A+qgtrZcWOdiBzIYyxwvYz7Pp5gWXu7rQjvH4uj7IaxfP89tW0Y26pBJU
uGE9Nu5OEIndz0Q5CpoBcuz79bUX9urC/Hh46YmNPmRR5qjn0HEmEgpPv+sI
2XiH8/3QpUxU8Tut1gvWj1vV0PHdlhrUPd/5aDvsf0zcuWIquhtNvEgT/AvZ
Nysw4osCE50usZ2Sgp8vyPtccAqOj8rAQQ4tyJtWLhJPguOHFvPEdglkC2Oa
z1uYV/zREqLb2N8nPXXTKvg+J8xNyw+yv89g59+lJkx02FfXKBA+/76VgcFQ
cjX6sHgqcxVsdw2SN2i+AM8nEQtrVCH/1/HMvRZy40mphoWQ3WOu/mkzZaJT
A+l18uznmciEhZmw/8XuTerrIHPP/VDefoWJCrtEZpdBDrltt2e7DRO9Nw4+
sQuyt0BhTBhsj9VbLnAPPp9PYHlwiV01ulnztKYOjt91Sx0HKz1XoAy7Ba0T
kEX11I5nBEihIxqyD0XY95/zZ16Ox8si1Vt/R3ezn091Hrs/ebsF6Qh4vLNi
X8/G/DzVVu1Gxa0Z8l7s+dZUmaOarY6KL7ZYP4e8djtT+cweXdQ20WxWDnl4
8HjHyl4TtDltTdAIZF2vtvoNs0fQvJ3HPBexr2fcHntE2qyR3pSJxFbINp+O
rJ7msUefZf4cO8ieRwuOPtIddULez3QWuUDm8QguKjRzQzEHjS88hpxYZhQQ
X+6NNJv2+31kz7Ne83e1cgFoVkvsZA/ko1F97mFvwtDE6M4bXHA8Mv0i+emn
o9D5E5rm6yGLPW54dH1jHDoswNetBzm5dpVwm3cSqgwokLoI+daGvCNMm3Rk
8t1I+gHkrI39v/14spHQIzn7bMhfTv+9ekk1Hx2Z+8O+FXLwidlkJ/kSVCue
XuwPx1fc2KhGd0ob+nNJMOUN+/i+ZPIgMqYTnfj7qbUe8o9h6UNFNt1I19yy
8DvkRVm+easWMVHiSPoRUVjPxqyw6g729Wso954y5OM9Njk1cHxybrXfcRTy
V8ZD7nPwvLsztzHIC3Ikz4ynY1c3Wp4aEOsA6x8VM3/piGwtqi06U9ED662/
QJ0z30wCKfgdUeOC9Vhc4rXn2x4ZFK+8r3gD5Ec7RSouP5RHHo51pQfY7+vE
8osjRHagNJmW6QuQf4tcCTmmg9A0rUUljH0/y7FaZ0hGG60PCOx8C3nW6PZ/
kh6GaNM8VbdWyEkuh5c9fXQIGUSZXZuBLNuRO+TadxwZ665olmQ/r+za5j3x
6AyyG2pW04Qsm5uH4v9eRL082+XOQE6tGglZZuyMcl8v0vGHnO+Z+XLG5QZK
3MO8mAw54DL/3WJZX+Q2YPOzBnL0dzHWmE4IkjowfO07O9cVjTKUYH5V1R1f
DuvjNDPKP3/qKQo6d+7lbsjODyvDDoS8RDrff08ehZz54fydTzUpaCBcOd4L
sv3JmnQBjyz0SeKBcjSsz7bm/mxflQ7UdO5VVT57fatUQpSquxBfvWRRL+SK
ngMZv4q6kZSpjsgCWI/gaSv9Vm0mMiiydZWFfMqp5eECOJ/bs2Qs9CC/LX2d
4XCSicrXWdtfhLxzqV3SR2FYz/KPMTdh/bKNE0seaNSgt6xxgzbY/9W2Ct+l
4fC81Gg8OgOZQ3pXnP0mJvpjHjy0Gn6esSKrJ+oSEwnUOH7XgGzgceNrqT0T
LarbqyHA/jz6o5ZnR5gobrPmgq3s933mcbQj8H3io9o/mEFOiXgt8QvmT5mZ
uWQAfD6965eH78dquF5KxK1kvw+sqS2pcGAiufaHhYg9f6aDk7MvMpFIWFEK
H+RRNC/lgjET/XJtojaz52d2yGAa7P8F/5SCDGSTgnqmOcwnToHcZiHIPMMe
BletmUivL91gJ/v9YeF+9YVwP7ZYTLr7Lny+/tmjVuru1cijzPa6GGz3yvt5
zwV+n2zrxCQV9vO8UMK34/D7Sj+ViN4I2drJI9oDPq92iya/NORO4YVuYnA/
6MozJbsdcvuPZul62H+1aXCvAmTBLwLmL+Hfu7HSzdazfz/tZz+M2O+LKFsn
Jfb9w9yF83nh+269zqsaCt9H12KqxuhINeoMqd3HnqeI1qqx/8gKVFpH12bP
U/u5Xy/VXJRCEZbpfOx52ib6kqvRWxY1Tew6y56nU31n3pZGb0EP1+2XZs/T
5WuozMRfSmj3c7UE9vvyVXLmL1Y8U0f/dU5Vs9+Xbyl8LqEkrItOfEgpYr8v
PyYTvVOm3AS1r8/lZM/TiGV8D5VbjyDbQ35f2O/LhfcqUSzKGrXT9j5ivy/v
5KQ64/rt0CfDiGb2+3Lnw/nTNgwnJHnRzcMZctzyV9M68m7ItklzgP2+vNS3
9gY91RsVztR+Z78v7xMo+O7OFYAaS8xq2e/L553wffvkQRj6vmrrL/b78q/D
Uto/NKLQml0Nxez35a5PMroilsah3ZGW5ux52vauN33MOgmdzH159wLk12Mx
1pP66UjdYzDs/v/fLwRuzRl+jzbV3Oplvy+frPi8OHVzPpLtYTaz35c3Ky2i
iYiUoGzOPwrseTqaMZHxMaYN7cngF2fP003V1w6eedSJKr+6m7LnqYJHw0LH
k93Ifvy1PHue3soRn/jBx0TfthfXsd93F/KdW74R5ulQwA1e9jwNHnUbkILj
45h70Qv2++7eOyJa0ZpMlJs5zsmep7fOavJuYXYjA+FQHvY8lYp7vFFbvhZt
9olQY89TAY2cKoasBNIcl3jDfh+cdjqtMENcBvWZVu9mz9NRa7/QZDt5JMjk
VWXP04f9wqs1p7ajGZV4O/Y8Pbl7+QlzMYScHti+Zb8PZr5oY63j0UYHf6fo
suepTMnEHVMDQ5RRKTTEfh88nhxMP+F8CM0IDv/Hfh+87sIbX57c4+jdOU0t
9jwN2b/Y8azzGfQ7pzib/T64JMkp4zXjIqrc0vCC/T54sdKLM0VbnZGFu+o7
9vvgn7PPTHQO3ECOHxmD7PfBhQIKe7z5fdEv/pFT7HnaG5g54iIegn5XSg+x
3we/aQ4OEBODeTpLb2a/D/5SdI8W1vAUaaj9EmTPU7GJg2f5nV6i9Z66Dux5
+vu9t8jIqxTkWSYhyJ6ntYfPLQo/mYXiF3Qk/P/73Z5g8xTFDiTy6uUe9jwd
7LTv9i/pQs5FHcrseSqdafnJpKAbaQxH3OaC9ShJ17S/oMVEkQvdx9nvd616
/4h3w/l649BwHfv9Lu9ZXWk5mCdSjrkt7Pe7o09exBmKMNEF+WJu9jztZCXO
WaBXgyRbk8vY7w99ljRrLH/Qjcwd4o6w52nSgqQjz+WYSCv22Qn2PL32THxa
HuZLluP2C+x5qqr4qdfoPBPJnwtJY7+fKuvx6go6DM+rLoeub4H8wahy/2WY
J7p7Yrez52ns2YyGfjMmmv1w1M8fPl9DQEaiuaQaPR5WFGXP05Z98j3KME+r
PY/sYc/TSs7r8escmUhJVkiMPU+bFrZlyRsxkUYhawd7nm55pN6aBPsfP8Sf
yH7e5TC1lFwM82ltIq82e54eOep8MhiuJ+GbikvYz7fMSf3zGvD30faW1WHP
06uvgmi3blWjMgH3SfbzkeL6po7PcH9rxemwhj1Pi6u8JQvg970wqLiUPU//
rl549TR83gqPQz5r2PencZIFBXD/UWjCH8e+/81JZgr9gf2LPHl2hD1Pq4ec
5N7Avy9WLKax71ctUpZOisD289zuQ+z70/XF5xWM4Pva9Qsksu9P5fjPbQyw
rkacbofmsO/vh+5unpSFn7foV7zHvj65pRXb74X8Rr5Yh30//P6Fwk/2/fCR
YlYO+3pSbL76QjTsr8WMfy37/ULC3K3ZIbB9Uz4rkz3vp3uXnoyHz7/F636e
/f5QeOxvWARsl3/2rIM97zVz62p9YPu0MGcze74HhN9yETWpRthD/1rES8j1
0CjsoY3n9d63d9Mo7KHnpC+rtXbSKOyh93fOmZRvp1HYQw9nNR71a6ZR2EML
0Y3J4XoahT2UY2l0nxeNRmEPXW7mU7s8n0ZhD+Xey3uQK41GYQ+dUZ73jhlF
o7CH9gnKmF9xo1HYQ4M/V51PNKRR2EN999+Z1V9Go7CH8ndaqtvlVVLYQ/2+
afZq6VRS2ENVt2eN7oiooLCHXrd9mNT/spzCHhqj86oiwLGMwh7arG31MSSp
hMIeatctsuO9UxGFPVRmvZ1nsEE+hT3UaeiQv1lmNoU9VCB8p+ynPakU9tCY
DU0ucWohFPZQhZi3yi7bY//noZxZQZ8n3hIP1U97M+XuWEg8VNfk1L2BVRXE
Q6UvTNFFL9cQD9WaX6C+T6L+fx66Ua83LrqBeOi28RAGx3kG8dBpn+/6mj4M
4qED1SlrPFcyiIcypjY9K9FsIB46K3fzaOb2euKhtd+PjXp11RIPXS89VneM
t4Z4aKTYxh9PdOnEQx8+HD36a18F8dCSP5KnDG6UEg8dL+qmBwcVEQ+dlWux
V8rPJx6aN9Me99M9j3go5yK5VpbOe+Khuycttge9yiAeyjlel3UwJ5l4qF6A
n1028znx0JiPqkssN0UQD+1+m+pyecMN4qGLHzR/DmXSKOyh0Q4PGr510Sjs
ocMvur/HdtAo7KHrDntNeLfSKOyh398dz/vTSKOwh1qKrvXzraFR2EO/rrh3
3biURmEP1U+4vKE0m0ZhD21uCrIzi6dR2EOPfwyaJxFEo7CHPjnazvX5DI3C
HmpVLva4dRuNwh6a5zO3jhqppLCHqq4LHeS+U0lhDz3Wxvhb/7OCwh76507L
6kUbKijsoZyfGEs/CZdT2EOv8ztbPXpaSmEPPVkZKYtiiynsodnLQw+6ThVQ
2ENvSPw2r+rJo7CHLjqxxvbcsSwK++cWs1rpUEc68c+3Bxgfq+bXEf9M51IZ
uT1ZT/yTO3TWoxuOT+yf1d/PxgYEMIh/Fie0+N48xiD++eHNJqPHeQ3EP7/K
F3SMFNUT/+z+ubXoQVYI8c9XHR3xTFhv7J+TP8uEHGAeYv9cru2fqQnzEPtn
gc3YYes2GoX9c4fqNQ2jzzQK+2exdqL3gToahf3z2XDF6IIKGoX9c+LJqbqI
PBqF/ZN5emTsxGsahf1Tvn2eauN9GoX98+3X408XXaJR2D/rQlWuVqnTKOyf
+V2F84bn0Cjsn1qRH1ur4yop7J8cJWe6K1dXUtg/W7tfDHyzrqCwf26o9Gua
d7Kcwv55xWrVx2S+Mgr751enX4bfNpRQ2D8fZP1U8vtYSGH/HOd94ape/YnC
/hl1anPCjkfvKOydG1c8c/GqrSTe+eqjkmzB6VrinQJ7ldT079UT7wxyv5PY
2dtAvPOCOCtY6iaDeOdwzPBm3qsM4p0Zg1Hhil8biHfO25XFt5WrgXina98+
b4up+8Q71SZ5BZVhvbF3Kt9NGDwP5zf2zrCj80q/wvUOe6fOYK/cvRYahb1z
nsXGnz4MGoW983hhe11kFfz9/3lniaPJsEURXC//eWfywkKFiCwahb1Tmjeg
83MMjcLeec7VVSr1Fo3C3ulFd7r0wRLmwz/v7PJYdyd7LY3C3kljFsY+b6yk
sHd2q/EcHLatpLB3Rv3YtFmwsoLC3snvkt4s+6Wcwt4ZZHXS7V1pGYW9c6DO
43je+lIKe+eTW2WTM4uKKeydVld0XKbkCijsnU9Wa8lVTlcR78zbGjmyKrKO
eOf7xLX94wYNxDtl9FwlhA8wiHde6tIu+BjIIN7p+Xtd3Do1BvHO604Onftv
NRDvFHCd8x/vgzvEOxde/LRqAdy/YO9s9eCSi4fzFXvnzOoFgqFwvmLvlLVk
6dLgfMXemftyR+M4nK/YO90/KK2QhPsX7J1+p1TE9SppFPZO921Sxtaf4O//
zzvF4is581NoFPbO/GXbSi6G0yjsnYkif1Nar9Io7J19k4U+VvtpFPZOmxpz
iQY++Pf/vFPI/s/OrtRKCnvn4HoV58vbKynsnX9/iFmtuV5BYe/0MIlxFfMp
p7B3DpdEq61AZRT2TvVLn/e125VQ2DtXNhaXZYgWUdg7005L0LbnUBT2zoAQ
dTGRxPcU9s2QxbdKP/2uIL6ZbSikuXpJLfFNjgfLq9QP1xPffNSnxzNW0EB8
01kv66+RC4P4pl5Vu06kJ4P4Zo55zWTSAgbxzWNrghp+rW0gvmlxcW7YLsFH
xDcDcwWOnoXzFfvmuopFp9PhfMW+qZGoiA7A9Rj7JtOmb9lCuB5j33QoT1yk
Cddj7Jub3STNH1bTKOybPjy8rR3FNAr75hqueVIf3sH+//mmlnZC/ovnNAr7
Zq76F7O/d2gU9s2ZzPMjZ07C/P7nmzyCsnMvbaJR2DfXKmz1dmJWUtg3lQ4P
/9rnWklh35TN+JboyKygsG+amavYqvNWUNg306N+R7mOl1HYN4XXfUqutCml
sG8uXva4xPxwMYV9U7yx7/fFhwUU9s1AVUPBA0pVxDcZQ2/dlhnXEd+cK/65
I3NNA/FNgX2b5fl3MIhvpg0jS/UgBvHNx9XWS+KNGMQ3Ty2t04+NaSC+mfYu
UXxNTCDxzZivX3+fKq4nvtm5xuHGzbkM4psjZwpibvsyiG9W35fdk2DHIL6Z
HW0ptfAog/im8OSzv/z+DOKbvLoLu4UUGMQ3bybqfFW9d4v45qOJXF1RmBfY
NydMs/ILYF5g3zRaNcL/DuYF9s1lVZtlZmFeYN/80dc2uQeed7BvduhyrbgD
8wL7ZleaZBEL5gX2Td915TcRBfmfb0qPB24feAPz/J9vLpK8nbUpkkZh3+yb
SX2zyZVGYd/kKePMCtCD688/34xt2T76RIBGYd98sN1RaPu7Sgr75vrAEOaP
vZUU9k0OSTF+o8AKCvumlZh7wIaH5RT2zfhpJfElFmUU9s2ndd963QNKKOyb
CT8kHkdoF1HYN19YDGtyCudT2DftPDbeCNicTWHPLPRcfrU2qIJ4Zlnwsiu2
tBrimSvuyv+K21NPPPPTR68LWakNxDODrw/k/r7EIJ55V4TTZKMXg3jm4rcC
xysEGcQz89srVt7Y3kA80zHps6KaRDjxzLBj5Q0eMC+wZy7MUfOoh3mBPfPM
Sj0BF5gX2DO55yxcowPzAnsmy1/CIQbmBfbMqqeFWxfD/Tv2zEz5irLIEhqF
PVN6QUto0XuYD/88M2qatoHjJY3CnpnYqS26LADuD/95ZrrJAlUZGzje/nmm
6jo7F3lFuL/455lhogvnbhispLBn7l220v/DjUoKe6b6hsW5+SMVFPZMhRCu
6VrRCgp7ZuKLNBndeeUU9kyz+vdvf3qVUtgzY2/4tkR4FlPYM8PKIl92lxdQ
2DPvZH08GtpIJ5759f1MaLNcHfFMj7tzTKYWNhDPzC5ZZGglyyCeaTNtJpoK
13fsmVx9vaXl5gzimU/lt/LT3jQQz3R8vovPKCmYeOaJ2Js737+qJ56Z+PFh
QsREA/HM/UPPemJuMYhnuv/t2CzoyCCeuePTHXsnMwbxzJbHPltewfMC9sxF
rTcYNbsYxDMVHvF1i4feJp5p6fo5ktuDQTxTTqlIKfgag3jmsxMJwpOqDOKZ
bSJivtowH7Fnrpn1/FzvxyCe+Vdy3Y1+GwbxzGLGIcNhmHfYM2uvDb27GupF
PDPxT466FMwr7JldO/wNa2BeYc/k++WjWg7zCnumMqrfvBzuV7Fnfncx67aG
eYU904YrjpYD8wp7ptzVY0XbaTQKe+aurQ/Uk2FeYc9kSV6a75JKo7BnfhcJ
GOeOguP3n2da/GnzN7lGo7Bnyl0RjRIzgOfbf56554G25m9BGoU9Uz2k/p1p
TiWFPfNVTlTHC41KCnvmTYOLq+mhFRT2zLj4L4WhT8op7JlpradcjtqUUdgz
A0x+yy6PKqGwZwqM336Vb1VEYc/cnMFNt9mST2HPbJ7RuCF9KZvCfsk3esH0
z8EK4pe9aUMmF5/VEL9Mvm19b+HmeuKX0VKROdrxDcQvTcLSopZcZBC/nH0q
Wl/mzSB+adQX2aYgwiB+mal0wFFWpYH4paTs03G5+HDil2d0RGzuwLzCfikU
kUT1wLzCfnn0JvNZEMwr7JfXAp0zTsO8wn75vuRbYxXMK+yXZxK2bD4A8wr7
5VaFV+t/wLzCfvkh2+KRVjaNwn5Zs71z42uYV9gvBTlkb4sFwvXtn19qXTBz
vHmaRmG/nKhe4LBgK9wf//PLc1GKB38NVVLYL+8v5pk4c6uSwn4ZIuHrbfyt
gsJ+ebNp/Ytrq2Fe/fPLHqSfvZi/nMJ++S1WN93iXimF/fKRTOueGyHFFPbL
N6eEPfb1FFDYL0PXZvgpPacTv5T+kVU2IlJH/LJ4xTYVizkNxC873aJ6dkoz
iF827upfKw/zCvultN7itVssGcQvM59evPnpbQPxy3wNBfPUN3eJX9bQTndF
Pqknfvmy68f8puEG4pez397wTcL1DPvlrlPHUqKdGMQvr28szm03ZBC/NFla
oaAF3wf75deoor3cKgzil/ktlcHGYb7ELx/+6IzNh/mE/bK7I0otzp1B/LJF
LVEySplB/LI4RkTxEMwr7JfGM1Z81B0G8UtpyTnvBU4yiF8+6PE344d5hv3y
3o4/ppH3vIlfnq5OcMq5wiB+mdcQu8jpBoP45a9qRPHC52G/tLjUaypzm0H8
0ltsB98o3M9hv4y5ve/ZUvj32C9fVJ7RKYDt2C+F567dkQg/j/3ypqnOUGPY
TeKXZ8+PZcjA/MR+mbNCk7sJ5if2y45HsvvqYH5iv5Qp3BS1BuYn9svw8pjk
qzA/sV8K8V/+rx7mJ/ZLz9fvxy1hfmK/NExtku+B+Yn9UnGQq+MTzE/slw4P
h2KuwvzEfrnZKbeuF+Yn9ktpmvLtHpif2C+Pv267LC0EP//PL4Vi18525VZS
2C8FW7lmfmhVUtgv98jNpMx7WEFhv2TO0FQ+xZZT2C9LRd1nXOzKKOyXf6Om
Sz/HllDYL72LpMQLzxZR2C+t9TjEb6rmU9gvM1ar5O8Py6awV95eabzEdXcF
8UqOE4qLjfxriFfK7ispTpWpJ1759NrwA/fYBuKVGRJbje46MIhXep978t0f
rufYK3NWDNm1rmAQr9x2UWfxH9UG4pXNFlnfcofCiVee+nU9NgjmJ/bKjAnf
mi8wP7FXPpZ5bRwO8xN7ZYL4B6srMD+xV46FHj/cB/MTe+VXB6lxW5if2Cvf
Han9vqYUrsf/vPJ6QSy/L8xP7JX+ccKcHPE0Cnvlysqg2CcwP7FXamrs3rzx
DI3CXrnwyK7o/2B+Yq8cbc9beHS4ksJeqZ/lt0LpdiWFvdJ45/L1QpMVFPZK
F5rKae21MD//eeXfkJyKoSXlFPbKTP3UEffwUgp7JUdAyuypiGIKe6VKm+yL
gbECCnulh9DVQ+P+dOKVo7bW8acW1xGvDIoPmL4yVU+8stj/bZjgagbxykIx
Djcm3F9hr/RyuJTTbsUgXmn1gatAPqeBeGV+iZp2qGII8cqrV2+6/n5UT7xS
pLXuv+7BBuKVXMHvXwrA/MReqfekfMnnywzilc6iH+/e0GcQrwy0Wki7DfMT
e2XGy7XLxBCDeGWabt/LlUvvEK/k6BOpDHZlEK/kVT/qHwv3f9grv/WHDbfA
/SL2yvyO5FwjmE/YK6Ujli5aB/MTe2WhbL+d0HEG8Upu5eyWUJif2Ctjdm57
ZiVwi3ilza3pZ8fg98FeydOYwml6k0G80qm84BITfh/slQbhvadsfRjEK/Ui
MroM4e+PvXJbMvOqInw/7JWFjdLvDWB+Yq98IDrarQ/3n9grT/xddXiZoBfx
So8U35TL8HnYK/dyCU1Nwf6xVxr0Hyszgf1jr2RVcsfqw++HvVKiV51XDrZj
n4ybZfKOwv6wT77yf3NfFvaHfbKb8jz5fulN4pO9V+80Z7NopK9JG5hQXfCF
RvqaD+effM8zQiN9TZVKDq6sMRrpa/41Gn9u+Y1G+pp25eulfv2kkb6mYHKY
vfVfGulryn3jlK7ipZO+5jTXm/3dK+ikr6nS+SebW4FO+ppR46kbbhrRSV/z
N1+pvbU7nfQ1vzR9RWNv6aSvOUfl5TO9xVWkr1l6YcTokk8V6Wvuyjk+PrSj
mvQ1SyVSd7puriF9zTmvWOp/dtSSvubTus7XoWvrSF+T+6d+5ahZPelr7r9V
uejAIgbpa/pM19TU7m8ifc3DHqqStqxm0tdUcrqr98ionfQ1xf9LDh4Z6CI+
uf7Mp5mSCibxyar7V7zfv+0lPjmgcFak+UA/8cnzX7y7T6QOEJ/kFY6aDUge
JD7pY2RdqKrFIj7ZfHy+5nAEi/hk7jn98cIXLOKTa1TvcLV6sIhPdpq5HL+5
hkV88ta08OGVqYPEJznWzz+9ZPkg8ckbXa36sa4DxCeX1t+1pjf0E5+c8NXh
uyPWT3zS5j+VS0sv9BGf5GmOkw7J7CU+yblfoFuMo5f45Ko/asNWR3uIT+6I
CE3+ncEkPul/0Why6wom8UnbiuNTrwK6iU+u3+a8WXGki/ik87ahsfN9ncQn
ZTOazfZWdRCf/BhoIWkyRCN9TY7UZun/4PzAPqko9o5TfZRG+prLe6d4Tn6l
kb6m1DZ7/aHvNNLXvFy/7OXRKRrpa3p8eL74Pied9DUNn/tfkBCkk77mtrCG
rPvSdNLXbHxWZ1qzl076muZbMyxlbOikr/nN+88SzUd00tf8Ezs6mtxJJ31N
mVre+GVaVaSv2fqOam5trCJ9TVv7lu8KidWkr9lntXFbfUEN6Wtu96Fr+b2o
JX1N0zptc4WMOtLXvOSnWHJ4dQPpa4a8U095KtpI+pp7Zs7PU/X7TPqaf8aK
a/gCW1G34PB9FzheWw4feznHv4/0NznsVGJe8AwQv3ywkzkxoDRI/PLp+Lz+
wLks4peLbJa68VxjEb88Pu7/cU08i/hl54mbSQGPWMQvu30FRB0Psohfdkd+
pzJHBpGU1ufuLMhRKw9KdZ8eJJ751snzedOhTuKZAi+NjOfC8YE9k+etf68z
HB/YM0PuRGs9g/mJPXNw09o4r3Ea6XO2puQX3J+gkT6nYOC1pxG/aaTPyfPx
hmf7HDrpc4anStnrLaKTPic//ZilrwSd9DlDBMW+CO+kkz7nHe+x9qHDdNLn
RPpPDbX96KTPaVA7O3Cmgk76nAe/pzUKb6gifc7NqepzLF9XkT7nhSPohZRD
Nelzvnce3695tYb0OfUbo92v29eSPqe9zJJ9+87VkT7nr5VnenXe15M+p6mo
vJNHCIP0OecKZJlV9zWRPqczt+7b5W9bEIcMWnyR/f5z7jk95dV9pN/ZFe7L
m5TST7zzTuTCupc/B4h3xofp+HG2DhLvnOsXsejDSRbxTq9DtnscY1nEOzfX
bRzf8IxFvPOh3L76YDsW8U7G3/V3OXlYqFAn/fVr9vPYqq8XNQIHiX8ulA0/
vvpJJ/HPmSS5gUQ4PrB/btg9LuAyTCN9T9+2TdsmYH5g/xwLutJg+h+N9D2v
FT4TOf6DRvqeO7OK7XRnaKTvqXQntyZwAZ30PQ/JKbbpC9NJ3/P7NYn9S2Tp
pO9p2pX1VW0fnfQ9Y1fd+7PvIp30PedzJLhcfkknfc8NJ2T2f5mkk77nrMCO
3a6nqkjf80fZT0d1zmrS91x9tt3Bk1VN+p6TG47u0eGtJX1PWYHX9Is9taTv
aVVglxXDUU/6nj/HcplB9xtI3/PRfe+k8OMDxD/1xHU3bHIeJP55wkvXE8mw
iH86bK5vPBrIIv4Zv6alTyGBRfyz/N3mM/ywHfvnvrNGu9NVWMQ/OaZOXgpc
0kn884j/xZZ2uD8ifU9ntSoVOL+xf2Ze/jZgAuc39s+NhRFpInB+Y/9kFW7Y
/B3uj7B/ajV3zyn+RSN9z40lcaoRHHTS9xxcvqfEeyH9f33PufzDMivppO85
zYp1c99KJ33PRQqn3oodpJO+580/gfcyvOik73m95MeJyxSd9D1PtM8ZHRWr
In3PJ1kNSq7hVaTvebbjQdMl42rS93QeLfu40biG9D3l743OTTeqJX1Py9Wt
sjTtOtL3/PUr0Fvudj3pe6YPPyqrhOcF7J8rFmVUqD1qIn1Pt8Q1Wff0W9A9
+SG6HazniOV+0y/DvaT/uSpbXM/Fs5/46Ac913ENxgDx0XuWkrTBokHio7dn
Rq7ImLGIj446pzx79YRFfPQ6XTP/cByL+OgLiVPyS66wiI++dOkwviHMQmG6
q5YkQP5UdmTq1JNB4qXa6ea/4/M7iZdOvpV67AHnN/bSySWX7m+B8xt76X9n
knMj4PzGXhp6wZn1Ge4PsJdmpo/NPJukkT7od7p5h8E0jfRBHyHFCi4uOumD
aly+kywrRCd90GfNJW0a6+ikD7rDwUvvqzqd9EGTpOpMIs/RSR/Ucnv/bOYT
OumDTrQYfeP5Qid90AnbWvufplWkD8q7lHkwaKSK9EGdvqwPSyyrJn3Q8Xd6
i22+1JA+qMS3ybjWwlrSBz3f9NUko7mO9EEPKf61sT3cQPqgRiv5Uk9uHyBe
yl1y7mq5xSDxUvsEPZlZIRbxUqtrYfk13izipQH+CefE4fzGXnrz0Jd9a0NZ
xEtXpKQ3MveziJcuHPsov2RbJ/HSzgrD5L6xQeKlWnxPUzkvsIiXtkev81CD
+2PspcfRpZBdj1nES3NlkuVzw1jES9seGEedgfsN7KVrF3LO1fFhES/NOJyw
S2u8g3ipXr9TSiXMF+yllmEhO6VgvmAvzf/x+8smmC/YS0s8BRr74fkLe+mW
oNSFCTBfsJe+dan4awXzBXvpW86t96fg+Qt7qaPrBp+XfHTSB104FXOPQ5xO
+qDRG3olPirSSR80eZ7wxzITOumDPlyrsd37Op30QTPncBg+z6WTPqi6m31S
0LIq0gctbh/saQmuIn3QBy6ng3g0q0kftPbsouF4VEP6oMf/aDhmatSSPuh2
g525XDvqSB/UJ0clpO58PemDyn2JPFSyiUH6oBvvxPwpudhE+qChQtKjqSta
kMW2T69t2f9/9rGTmiO1vaQfeqQAtTBs+omnOp5sDZ5bOEA81dDj2rOT2YPE
U71+LVvVqccinjr3XfwNOzgesKcedlDyTHjOIp7KyFttEOzKIp6a2C9pvngl
C7nRGEUvIH+P5enUjx8kvirHd3vAq76T+KpR7TnpszBfsK8G7dvmsQTmC/bV
6MHzQ+dhvmBfjdNob30M8wX7avLl+U81YL5gX02XnJpmwPMH9tU1vlG1uvPp
pC+a3fBYUmopnfRFtyw+v4W1lk76ome8HDpbVOmkLzq8wPJO8xk66YsusnI+
8C2STvqiEU8uWR/oo5O+KMdSX97LelWkL9r+wzF1KbOK9EV3P4//VfC+mvRF
ZRckfGA11pC+6PnFw43+mbWkL+qqufSSZkkd6Yvyc8+RlVBpIH1RiXjrqkyJ
AeKrrEYL1zv7B4mvLjSff3aYj0V81WNJGY/QdRbx1YV0xa95cD5jX5WvPRcx
dp9FfLWBYRLz0ZBFfHXEbXLcXquT+OrGIbmfj/sGia/uCtDr4LZlEV/t9Dku
+BOuR9hXo3enSO6H6xX21YdF9Q2KISziqyZCK9UH4ftgX5Vjei7Lv8Mivtrz
V//sCY5O4quFVpcNk+F+FvuqnsSxI60xLOKr8ffCz6nAz2NflY5Xa1KHeYp9
dZbz/Vqjlyziq0/d1HJ+PmQRX4171xyZCtuxr+4pPt6l1NlBfDW56fLbAphv
2Fdvf85OFIL5hn01+Id5thjMN+yrt1r16XSYb9hXezjqV3vBfMO+KhC9TF8W
5hv21Yc7m0LewHzDvtqcwZO7C+Yb9tWxu3nJF8XopC+667dDOlOBTvqierUD
dnHGdNIXTdK8ofHVg076otP2Nxy1sumkL7ojUdzPVrCK9EVF3p3+vsq/ivRF
Ra7a5juqVJO+aCu3cSnnzhrSF5VgnDlpoFJL+qKORzktCzfVkb7o/oWxc+tO
1JO+6KXxHz0/VjJIX/TE6dqHuVZNpC9qfXR5o+ucFpT3bv3js3B82W6++MSi
qJf0R49vFUw9adFP/HWEM4L6mD1A/FX4oYjNzYxB4q/VTariK+B6if3VS7Kq
ZksUi/grmszzV4brIfbX7PfHnue4sYi/Wjgzig5IstAYn8KT5+zjJzThW/ar
QeKxYceWnL3a1kk8lmUh+sAK5hv22B/NZbvmwHzDHnttYelhc5hv2GMfHlA+
cB3mG/bYGiXvbcIw37DH2g4VckTCfMMe27g72G6Mk076pJGr3iyKEaSTPqnG
6tsCKjDfsMfWxyqvbkB00iddbmYS53maTvqkVY+5SkUi6KRPqlUfJO/KpJM+
6fxPlT6UThXpk6556n/8YlsV6ZMOVEZ2jaVWkz7pXqp8qpZWQ/qk5j/MVf6+
riV90l3qOqqpH+pInzS455vwRvkG0ietNcg5lC00QDz2nskpuSK1QeKxCtkz
WloLWMRjX384nxThziIea6WTH+EC8wR7rMVgjYk6nN/YY4XMowWjTVjEY6Nq
xnQlDDqJx86t6155pGuQeOzm5itqIzYs4rEb8u4hZZhv2GM5ygwD0FMW8Vi5
W7SDxsEs4rEh0t2zgjB/sMf2nJqUOO/PIh476xfwdYK7k3isnnTG7kzYH/bY
zQEGu2LgeR577NixjP0Ct1nEY39J3H+3A/aPPXZ63k+VWvbx/M9jObSvqVk/
YBGP9b1v0LoE/j7YYyMefgz9ONBBPLY29LFtWDSLeGwpmunggus/9lidGYuW
Cfh57LECV2Uqn8N27LE/u4SLU2A79lizJdc7VeH7YY/VXM+3vwDmK/ZYFZ/5
4wgy9tg3y9Ilcxs7iMeKnkJaH2HeYo/9IDgzzg/zFnvsuaGUdEGYt9hjeTf0
nsiHeYs99sMds4MXYN5ij7X78EFmCcxb7LFzJn6c9IN5iz12SOJt+VyYt9hj
7yy1pK2DeYs99ujx3oErMG+xx5rZpbEEYN5ij82rXdC4HuYt9tgWvfh5ou/p
pE86ki5xt0WgivRJN08/dS/1rSJ90j1Fx8TkdleTPmlHtlnNhy01pE+qtu3V
DqndtaRPukP5Z0jChjrSJxVuOUm1HaknfdIbqSUJ4sIM0ie1Fhy8oWbaRPqk
Xx05koe/N6Oxnx2C7Hl77UZfrn9eL+mXBtk/eyNh0v+/fqlzirFg1gDxWpqZ
5k6/1EHitTvfFYkp7GMRr319J5srNJJFvPawTEL9TTg+sdfaeeeZ0eD8xV57
Prxv4eBqFlqf3MHDnrd1LSPTw8mDxG/fzfK9+trVSfw280zGIXOYt9hv+w6w
1v+G4wP7bdWXiQQ9mLfYb4O3tsdchHmL/XZ9EpX29zuN9E13r/2+1x3mLfZb
VfXux/kwb7HfbvnVcO84zFvst2pWirIsaTrpm57T5O8wgnmL/TasuSqwzoZO
+qbRT+LqN4XTSd+0o30gdEk3nfRNT79bZD2kXUX6plWJKWufN1eRvulzNeY+
/uRq0jf9nf/Eo7q0hvRNY9ZsMlJLrCV901knl/mj7+pI39R3hW7L3vUNpG86
Fv3VS3HxAPFbx1e7+ZtVBonfzl3qNPuFk0X8NvHp5mBTuD5iv/2cPelhCOc7
9luz5e3DgzBvsd9u7CyxWWDGIn6b1urs4mbSSfzWgHWRlt4+SPxWW+rcnkOn
WMRvL7oeffkZ5h/229alEXvfwXzEftuw6+XPw0Es4rcKlxe9WQPzBvvtuek6
8b0BLOK3Y6M/FBF/J/HbjJUmXQqwP+y3Ibb6frPwedhvM+NHLn+7xSJ+6/Nx
s7kc7B/77VhLck4AHM/Yb03XugXfg/tp7Ld7q6lhFfj7YL/N5r4/wDHcQfw2
bdEbew6Yt9hvOdPffLKAeYr9tuT4TsVW+Hnst4bXDI0MYTvxW/4vSnTYjv3W
e+b7Yw34fthva8Yf3A2A+Yr91nfK2vEaZOy3CstivH63dBC/FSqLXBoN+8N+
23j0b8ssZOy3ZU3pAXth/9hvhXQ/8QnC/uY+fvaZfX1xNcu27YGMPffTfc1h
Hvj3uH9K/2naGwj7w77b1n43Zjdsx54bmOSS517Xgf4Pfskb2g==
       "], {{{}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[0.576832, 0.6185346666666667, 0.8388646666666667], 
           Opacity[0.5]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwl12WYlGUUBuBdurtDuku6u8MgpbtEJKS7UxGU7lRAsehWQkUBQZHu7pJU
QLxf/HFf73OeOTu7s/N9s5Cpbfd63aJEREREMjdqRMQfQgXnLeViWpKFaLTS
x+UHeQiVOGS/ou62vCTskJXotNbHY4c8lMr8ab+S7o68NOyQjRi00cdnpzyM
Khy2X1l3V14WdshOTNrqE7BLHk5VjtivorsnfxZ2yEEs2ukTslseQTWO2q+q
uy9/HnbISWza6xPxozyS6hyzX033l7w87JCLOHTQJ+YneRQ1OG6/uu6BvCLs
kJu4dNQn4Wd5NDU5Yb+G7qG8MuyQh3h00idljzyGWpy0X1P3SP4i7JCX+HTW
J+MXeSy1OWW/lu6x/GXYIR8JeFefnF/lcdThtP3auifyqrBDfhLSRZ+CvfJ4
3uCM/Tq6p/JXYYcCJOI9fUr2yRN4k7P239D9LX8ddnidxHTVp2K/PJG3OGf/
Td0/8jdhh4Ik4X19an6TP+Rtztt/S/dM/jbsUIikdNOn4YD8EXW5YP9t3XP5
u7BDYZLRXZ+Wg/Ik6nHRfl3dC3l12KEIyemhT8fv8sfU55L9erp/5TVhh6Kk
oKc+fbgH5ck04LL9+rqX8tqwQzFS8oH+NQ7JU2jIFfsNdBGsCzsUJxVXPdZQ
H8l6cy9KkJprHrvODW5yi9s0shuFDXZ6U5I04Wt1GfhT/oRG3LH/ji4qG819
KEXa8LW6jByWP+Ud7tpvrIvGJnNfSjPInINT8mzShecyZ+KIPJXG3PP1TXTR
2WzuRxkGm3NyWp5D+vDc5swclacxRi7IFbkJw+Q8nJPnh+tZLsJ1+b7v01SO
wZZwbTmL018e5SzAJbksQ+RcnAnvubMUc8P95CzMTK6F35mzLHPCexh+dmcW
pnEsXF/OksxiunmssxAzuBreb2cZZtPUPNyZN+xyPlw/ztIsCPeasyg3wu/e
WS58fnlNzZwx2Rquf2cJBsijna9zWS7HUDk3Z+V5ZKC/OSvH5Rk0Y4Q5Hxfk
hTzwPZqbY7HNPJDyZGSALhsn5Jk056H9FrrYbA/XARXIxCOPPeYJT/mbf3jG
c17wLy/DHzL7kUShpeeKw/fhuqAimcPPosvOSXkWLRhpzs9FeRET5WLcDNec
s3zU//9GRjUX8m1+9716sYfX6ML3/OGxFM62bOBj868kCNcR34TPAPMHfM1f
lNNNpaD8OgXITz7ykofc5CInOchONrJSl558xX3Keq5PySJP4hfih/uFr8Nn
nLkHq7hHGd0nZA6vi+RyG9bzkXkP8cL9ylfhM9X8G0nklqyhuzmVsz2b+NLc
1bmDu3Jp5xQyhdfu/Jn0vMt2DobnDM/DbpLxK61Zx4ceP+DswY+kYS8d2RKe
z+P7ne+zk7j8Ej6TWBX+bnj8oLMnP5GWfXRiK/s93s25i8ThWmQ13fQpne3Y
yBfm95w/cEcu5ZxMRjmdszPbOGBO6mzFWiaaUzs7sDn8DOY44TM2/K7C30Hz
PhKF+4bvwmsxr+Q2JcO1RAZ5Aj8SO3ymh5+JOua9JAz3Nt/S1byCW5QwTwrX
qjye3cQyN2AltcPrYjk3KR7e+/AeyePYRUxzfVZQy9yFz7lBsfAekU5OS5rw
esM1QU3e5TOuUzT8Pkgp16Azy7hGEf0EUsjV6cRSrlJYP57k8lh2EiPcTyyn
mrkjS7hCId24cC3JY9hBdHNdPqequQOLuUxB3ViSyqP5gWjhfuEzqpjbs4hL
4V7VjSGJPIrviRruD5ZR2dyOhVwM97VudLi+5JFsJ0q4NllKJXNbFnAhfAbo
RpFIHsE2IsO1whIqmtswn/Pk040koTycrRERr/5xX4fFVDC2Zh7nyKsbQQJ5
GFt4SW3dIsrLrZjLWfLohhNfHspm/qWWbiHl5JbM4Qy5dcOIJw9hEy/C9aBb
QFm5BbM5TS7d0HDvyoPZyPNwjejmU0ZuzixOkVM3hDjyIDbwLFw3unmUlpsx
k5Pk0A0mtjyQ9fxDNd1cSslNmcEJsusGEUsewDr+pqpuDiXlJkznONl0A4kp
92ctT6mim00JuTHTOEZW3QBiyP1YwxMq62ZRXH6HqRwli64/0eW+rOYxlXQz
KSY34lOOkFnXj2hyH77jERV1MygqN+QTDpNJ1zfy1T8fI3rzLQ+poJtOEbkB
U/iTjLo+ka/+5Eb04hseUF43jcJyfSZziAy63pH//3/zP/ohtPE=
             "]]}]}, {
          EdgeForm[], 
          Directive[
           RGBColor[0.576832, 0.6185346666666667, 0.8388646666666667], 
           Opacity[0.5]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwl1mWYVVUUBmC6u7u7u5GwSOnulJRSwO4CFQRbGpRUOkVSKQVUQEkxSEFK
lFR818OPl/2t78zd9+w7Z5gp2HtY60cSJUiQICGfJ767Puqf/OyTJ9CGyryj
q8df8mJGEa99TFeA/fJE2lKFd3X1uSoviX3xFglG6wpyQH6bdlTlPV0D/paX
xr4kYYyuED/Kk2hPNd7XNeQfeVnsS1LG6grzkzyZDlTnA929XJOXx74k43Fd
EQ7GGelIDT7U3cd1eUXsS3Ke0BXlUJyRTtTkI9393JBXxr6k4EldMQ7HGelM
LT7WPcBNeVXsS0qe0hXnSJyRLtRmiu5BbsmrY19S8bSuBEfjjHSlDlN1jbgt
r4l9Sc0zupIcizPSjbpM0zXmX3lt7EsantWV4uc4I925h+m6Jvwnr4t9Sctz
utIcjzPSg3rM0DXljvxF7Es6nteV4Zc4Iz2pz0xds4R3H871sS/pecFcll/j
jPSiAbN0zUnIl7EvGXjRXI7f4oz0piGzdQ+RiA2xLxl5yVye3+OM9OFe5uha
kJiNsS+ZeNlcgRNxRvpyH5/oWpKETbEvmXnFXJGTcUb6cT+f6lqRlM2xL1l4
1VyJU3FG+vMAc3WtScaW2JesvGauzOk4Iw/zINl4XV+FM3EeBtCI7IzTV+Vs
3DsDaUwOcpKL3ORhvK+rxh9x3wyiCfN0bUjO1rh38vKGuTrn4r4ZTFPm69qS
gq/i3snHm+YanI89GcIScxfS8425GQvkdqTk6zgf+XnLXJM/4z0YylJzVzLw
rbk5C+X2pGJbPMfWfuRknHmFtQeZ2Wv+0jqAPBQwT7DW4oK8yTqYBfIaax+y
84h5mbUbGeNziY7d+vXWh+N+yB33wAi+i2fT9UXWDuwkdXyfGRqvZXv8HFn7
x+dBrvgMGB73ynjXV1p7soss8RkzjD3xHq5vsA4kb+zHSArqJ1prc1HebB3C
QnmttS85Yh/zcmt3MsWe5hZ8JnckDTvie88quRdZ+d5ciLflOlyKczKclnyu
60TaOHc8CxRmkrkul+M9GEErilCUYhSnBCUpRWnKUJZylKcCFZlsr3u4Eu/J
SFqzWNeZdPG5xbPEark32fjBvNE6iHxxRkbFuajk2m6/5Mb6RZSDYWz2Syy9
tT+j5LUkl7tTVh7MUu7QXnfR6zPKLXiX36ml/1b/DbvYyQ62s42v+YqtbGEz
m7hABq9/iHf4jZr22qj/k/Tm5kzmV2q4tkFfRh7EEv6jnf68Pp3cjEn8QnX9
l/qR8hqSmbtRWh7IYv6lre6crxsmrySxuTNp5S9IKfekqZzROoC35eNUk9d7
bXbrI2zSPWpNRz9GmEdbszCY1eYR1qR0pZR5jDUrQ+J+zSOtqekd72V+zJqJ
gXxuHm69bW1j/cN7Z7MOjc9GN8qahj5xP+bM1kGskBNZO8V1eR0p5B40kTNY
H2ai/DNV5S/svVFOK/dluLyKJHIXSsrrSSX3itfLn3GL1uazXj9UXk5Cc8c4
l9yYCRyjim6drysh92cRN2mlP6MfIi+LP7TMHUglN+ItjlJZt9bXFZf7sZAb
tNSf1qeUH+RNjlBJv0ZfTO7LAq7H86w/pU8hP8AbHKZifM/0J0luvp/xHKKC
a6v0K1nBck6QzLX7GMdByvu6ZfrfSWq+l9f5iXKuLdX/RhJzQ17jR8q6tkRf
VO7DfK7Fz4v+V31iuQGvcoAy+sX6InJv5vFP/Azpf9EnkuvzCvspnfTu39WF
5V7M5e/4GdIfj7+35Xq8zD5K6T/TF5J78ilXaar/Of54lu/hJX6gpH6RvqDc
g0/4iyb6Y/o71DW/yPeU0C/UFZC7M4cr8bzoj+r/o475Bb6juH6BLr/cjdlc
judDf0T/L7XNz7OXYvr5unxyV2ZxKZ4P/WH9bWqZn2MPRfXzdHnlLszkYjwf
+kP6W9Q0P8tuiujn6vLInZnBhXhm9Af1N6lhfoZvKaz/VJdb7sR0/oxnR/+T
/gbVzU/zDYX0n+hyyR2Zxvl4nvQ/6q9TzfwUuyion6PLKXdgKufiGdMf0F+j
qvlJdlJAP1uXQ27PFP6IZ0y/X/8PVcxPsIP8+lnxf5/cjo85G8+Yfp/+byqb
H2c7+fQz4/8ruS0fcSaeMf0P+qtUMo9lG3n1M3RZ5TZ8yOl4xvTf6/+ionkM
X5NHP12XRW7NB5yirv47/RUqmEfzFbn103SZ5Va8z0nq6PfqL1Pe/BhbyaWf
qsskt+Q9TlBbv0d/iXLmR9lCTv0U3f9/Ysws
             "]]}]}, {}, {}}, {{}, {}, {}, 
         TagBox[{
           Directive[
            Opacity[1.], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            RGBColor[0.365248, 0.427802, 0.758297]], 
           LineBox[CompressedData["
1:eJwl1XWYVWUQB+Clu7tZuru7O5duWLqWUgQbW1AplTAw6JAuXcouUMoEO8BA
RRHEwHce/njvN/O7u3PPnHv22cTkaUkpaRISEo57ifMGL6U4qV5IH+ryqKwl
v6u3Mou03CgrzSn1IvpSj8dkrfhDvS3mko7ZskROqxfTj/o8LmvNJfX2mEt6
bpKV4QP1EvrTgGWyNvyp3hFzycAcWVk+VC9lAA1ZLmvLZfXOmEtG5srK8VHs
yEAasULWjivqXTGXTNwsK8/HsSODaMxKWXv+Uu+OuWTmFlkFPokdGUwTnpB1
4Kp6T8wlC7fKKvJp7MgQmvKkrCN/q/fGXLJym6wSZ2JHhtKMp2Sd+Ee9L+aS
jdtllTkbOzKM5jwt68y/6v0xl+zcIavCZ7Ejw2nBKlkX/lO/GHPJwZ2yqnwe
OzKCljwj68o19Usxl5zMk1Xji9iRkbTiWVm3eCBJjbnk4i59db6MHRlFa56T
dY9nmAMxl9zcra/BV7EjybTheVkP0nIw5pKHe/Q1+Tp2ZDRtWS3rSToOxVzy
cq++Ft/EjoyhHWtkvUjP4ZhLPu7T1+bb2JGxtGetrDcZOBJzyc/9+jp8Fzsy
jg6skyWRkZdjLgV4QF+X72NHxtORgjwor8e52IcJdKIQ8+X1OR/XzkQ6U5gi
FKUYxVng5xrwQ1w3k+jCelkfMvFKXDsleEjfkB/juplMVzbI+pKZV+PaKcnD
+kb8FDOZwjb9EHLxjr4bG9X9yMJrsR+leETfmJ/jM5jKdv1QcvOuvjub1P3J
yuvxHDvHUoT5+l3OEeTjPf0B5wSKU1q/0NmEC+rDzslsVO9zjqYQKfodzmHk
ifsSGUflqc7xcT0Ui2tgBu/Hs+n9zc4BvEW2+J6ZGr/LG/F35BwX94OicQ+Y
HtfKAu/vdo7kbfLHPWYax+IzvH/QOZESMY+ZJMoXOZvyi/qIcwqb1PudYygc
c/Q7ncPJGzP1PdmiHkh23ozvnj3qURTguL4Mi9XN+DX2ZDq9eEE2iByxdzwL
lGWJvjm/xWcwg96UozwVqEglKlOFqlSjOjWoSS1qs9SsFlyMz2QmSWyVDSZn
3Ld4ltirTqYgJ/SHnJMoGTsyK831/591vPc/J43YkQ==
            "]]}, Annotation[#, "Charting`Private`Tag$134237#1"]& ], 
         TagBox[{}, 
          Annotation[#, "Charting`Private`Tag$134237#2"]& ]}}], {}}}, {
    PlotRange -> All, PlotRangePadding -> {Automatic, {
        Scaled[0.03], 
        Scaled[0.1]}}, FrameLabel -> {
       FormBox["\"time (d)\"", TraditionalForm], 
       FormBox["\"number infected\"", TraditionalForm]}, PlotLabel -> FormBox[
       InterpretationBox[
       "\"Estimated variance = \
\\!\\(\\*FormBox[\\\"0.010842362252417958`\\\", TraditionalForm]\\)\"", 
        StringForm["Estimated variance = ``", 0.010842362252417958`], 
        Editable -> False], TraditionalForm], ImageSize -> 360, 
     DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, AxesOrigin -> {3.7949472*^9, 0}, 
     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic, 
     FrameTicks -> {{Automatic, Automatic}, {
        Charting`DateTicksFunction[Automatic, DateTicksFormat -> {Automatic}], 
        Charting`DateTicksFunction[
        Automatic, DateTicksFormat -> {Automatic}, "TickLabels" -> None]}}, 
     GridLines -> {{0.}, {0}}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, 
     Method -> {
      "NoShowPlotTheme" -> "Scientific", "OptimizePlotMarkers" -> True, 
       "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{3.7949472*^9, 3.7966752*^9}, {0, 0.723}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {{}, Automatic}}], 
   TagBox[
    GridBox[{{
       TemplateBox[{"\"observed\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.36, 0.054]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.36, 0.054]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.36, 0.054], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.9, 0.36, 0.054]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> 
                False], "}"}], ",", 
             RowBox[{"{", #, "}"}]}], "]"}]& ), Editable -> True]}, {
       TemplateBox[{"\"calculated\""}, "LineLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.365248, 0.427802, 0.758297]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.365248, 0.427802, 0.758297]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.2434986666666667, 0.28520133333333336`, 
                    0.5055313333333333], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.365248, 0.427802, 0.758297]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.365248, 0.427802, 0.758297], Editable -> False, 
                Selectable -> False], "}"}], ",", 
             RowBox[{"{", #, "}"}]}], "]"}]& ), Editable -> True]}, {
       TemplateBox[{"\"95% prediction band\""}, "SwatchLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[
                    0.576832, 0.6185346666666667, 0.8388646666666667], 
                    Opacity[0.5]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.3}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Opacity", "[", 
                 RowBox[{"0.5`", ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.576832, 0.6185346666666667, 0.8388646666666667], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3845546666666667, 0.41235644444444447`, 
                    0.5592431111111111], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.576832`", ",", "0.6185346666666667`", ",", 
                    "0.8388646666666667`"}], "]"}], NumberMarks -> False]], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[
                    0.576832, 0.6185346666666667, 0.8388646666666667]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.576832, 0.6185346666666667, 0.8388646666666667], 
                    Editable -> False, Selectable -> False]}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}]}], "]"}]& ), Editable -> True]}}, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
     "Column", 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Right"}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.795159112782606*^9, 3.7951591471008663`*^9}},
 CellLabel->
  "Out[234]=",ExpressionUUID->"b77e3879-c0f7-4674-bf83-9bad9a401bd8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"residualsPlot", "[", "fit1", "]"}]], "Input",
 CellChangeTimes->{{3.793178556821159*^9, 3.7931785666505527`*^9}, {
   3.793181802873312*^9, 3.793181805758328*^9}, 3.7946582022645316`*^9},
 CellLabel->
  "In[235]:=",ExpressionUUID->"645f51f8-83ad-4512-98f9-85db35dc05b1"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {{{}, {}, {}, 
         {RGBColor[0.9, 0.36, 0.054], Opacity[0.3], 
          LineBox[{{20., 0.}, {20., -0.04989205209787037}}], 
          LineBox[{{21., 0.}, {21., -0.09247384247543133}}], 
          LineBox[{{24., 0.}, {24., -0.10502080644237177`}}], 
          LineBox[{{25., 0.}, {25., -0.14341826619102305`}}], 
          LineBox[{{26., 0.}, {26., -0.060093146824628074`}}], 
          LineBox[{{27., 0.}, {27., -0.13942439927163675`}}], 
          LineBox[{{29., 0.}, {29., -0.10431621912660866`}}], 
          LineBox[{{32., 0.}, {32., -0.0424518331724249}}], 
          LineBox[{{35., 0.}, {35., -0.08594184820737794}}]}, 
         {RGBColor[0.9, 0.36, 0.054], Opacity[0.3], 
          LineBox[{{15., 0.}, {15., 0.08066696808566723}}], 
          LineBox[{{16., 0.}, {16., 0.10520679243962976`}}], 
          LineBox[{{17., 0.}, {17., 0.04696314861378309}}], 
          LineBox[{{18., 0.}, {18., 0.1351520496686444}}], 
          LineBox[{{19., 0.}, {19., 0.0310627055985907}}], 
          LineBox[{{22., 0.}, {22., 0.11394739276595522`}}], 
          LineBox[{{23., 0.}, {23., 0.08358921953284304}}], 
          LineBox[{{28., 0.}, {28., 0.18849824921439595`}}], 
          LineBox[{{30., 0.}, {30., 0.07862332133668987}}], 
          LineBox[{{31., 0.}, {31., 0.10938235544443342`}}], 
          LineBox[{{33., 0.}, {33., 0.0771281670161354}}], 
          LineBox[{{34., 0.}, {34., 0.040446659908209726`}}]}}, 
        {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
         AbsoluteThickness[1.6], CapForm["Butt"], 
         GeometricTransformationBox[InsetBox[
           FormBox[
            StyleBox[
             GraphicsBox[
              {EdgeForm[None], DiskBox[{0, 0}]}],
             StripOnInput->False,
             GraphicsBoxOptions->{DefaultBaseStyle->Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.9, 0.36, 0.054], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6]]}],
            TraditionalForm], {0., 0.}, Automatic, Offset[
           6.272]], CompressedData["
1:eJxTTMoPSmVmYGAQBWJGIGZigAE9h6wFp1WnL9tiD+EbOMxOviFy9d0uKN/Q
IWL55WO93CugfCOHXvMVE1b6HITyjR0UQtc/enZuPpRv4nAmV6+iuHvlfgjf
1OHFHa2FsWu2Q/lmDhZvU1hXaO+Fqjd3eCFimCKVthXKt3B4cUbw4JJHu6Dq
LR0KHCrmtkcfgvKtHApWLMtoP7IOyrd2mJIzceGKGwehfBuHI0F3X29VOAE1
z9bhTuj0veVbYObZOZjw3yhcoQDzr73DjHUp6dUMe6B8B4cXP53U7Pcshahv
cHDw8Xr/avW+zVB5R4eAPuHNOVuXQPgNjg4FkzI+ezBs2w8AZRpndA==
          "]]}, {
         {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], CapForm["Butt"]}, {}}, {
         {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], CapForm["Butt"]}, {}}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{14.583333333333334`, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"FitResiduals\"", TraditionalForm], None}, {
         FormBox["\"time (d)\"", TraditionalForm], None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{43.99999999999997, 0.5}, {31., 2.668850847456042}},
      ImageSize->288,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{14.583333333333334`, 35.}, {-0.14341826619102305`, 
       0.18849824921439595`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {148.8, -91.22181673948447}, 
     ImageScaled[{0.5, 0.5}], {288, 177.9937887599697}], InsetBox[
     GraphicsBox[{{}, {{{}, {}, {}, 
         {RGBColor[0.9, 0.36, 0.054], Opacity[0.3], 
          LineBox[{{0.25989205209787036`, 0.}, {
           0.25989205209787036`, -0.04989205209787037}}], 
          LineBox[{{0.3284738424754313, 0.}, {
           0.3284738424754313, -0.09247384247543133}}], 
          LineBox[{{0.5010208064423718, 0.}, {
           0.5010208064423718, -0.10502080644237177`}}], 
          LineBox[{{0.5304182661910231, 0.}, {
           0.5304182661910231, -0.14341826619102305`}}], 
          LineBox[{{0.5440931468246281, 0.}, {
           0.5440931468246281, -0.060093146824628074`}}], 
          LineBox[{{0.5444243992716368, 0.}, {
           0.5444243992716368, -0.13942439927163675`}}], 
          LineBox[{{0.5173162191266086, 0.}, {
           0.5173162191266086, -0.10431621912660866`}}], 
          LineBox[{{0.4444518331724249, 0.}, {
           0.4444518331724249, -0.0424518331724249}}], 
          LineBox[{{0.36594184820737796`, 0.}, {
           0.36594184820737796`, -0.08594184820737794}}]}, 
         {RGBColor[0.9, 0.36, 0.054], Opacity[0.3], 
          LineBox[{{0.04833303191433277, 0.}, {0.04833303191433277, 
           0.08066696808566723}}], 
          LineBox[{{0.07079320756037023, 0.}, {0.07079320756037023, 
           0.10520679243962976`}}], 
          LineBox[{{0.1020368513862169, 0.}, {0.1020368513862169, 
           0.04696314861378309}}], 
          LineBox[{{0.14384795033135564`, 0.}, {0.14384795033135564`, 
           0.1351520496686444}}], 
          LineBox[{{0.1969372944014093, 0.}, {0.1969372944014093, 
           0.0310627055985907}}], 
          LineBox[{{0.3960526072340448, 0.}, {0.3960526072340448, 
           0.11394739276595522`}}], 
          LineBox[{{0.455410780467157, 0.}, {0.455410780467157, 
           0.08358921953284304}}], 
          LineBox[{{0.534501750785604, 0.}, {0.534501750785604, 
           0.18849824921439595`}}], 
          LineBox[{{0.4953766786633101, 0.}, {0.4953766786633101, 
           0.07862332133668987}}], 
          LineBox[{{0.47061764455556654`, 0.}, {0.47061764455556654`, 
           0.10938235544443342`}}], 
          LineBox[{{0.4178718329838646, 0.}, {0.4178718329838646, 
           0.0771281670161354}}], 
          LineBox[{{0.39155334009179027`, 0.}, {0.39155334009179027`, 
           0.040446659908209726`}}]}}, 
        {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
         AbsoluteThickness[1.6], CapForm["Butt"], 
         GeometricTransformationBox[InsetBox[
           FormBox[
            StyleBox[
             GraphicsBox[
              {EdgeForm[None], DiskBox[{0, 0}]}],
             StripOnInput->False,
             GraphicsBoxOptions->{DefaultBaseStyle->Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.9, 0.36, 0.054], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6]]}],
            TraditionalForm], {0., 0.}, Automatic, Offset[
           6.272]], CompressedData["
1:eJwBZQGa/iFib1JlAwAAABUAAAABAAAAAgAAAGv0xm4bv6g/aqDLJZemtD/Z
L0DvgB+yP5tj2BTV7ro/EsywSxYfuj9Yp9PGjQuoP/eIIhGcacI/jTeokKlM
wT8ljGjDPTXJPyBVr+Lmzp8/KgsQRhKi0D/MbS54c4upv+5/wSa3BdU/6Nwq
oV2st79WNeQI7VjZPzjtZAWoK70/rIsWQnMl3T/oFDFkGma1PxYjSclcCOA/
6MwRwaTiur8Yuk+6L/ngP3BAeJ2HW8K/N93yBzZp4T9wqKZoh8SuvxuEwLfs
a+E/lGyRoajYwb/Y7GhqoxrhP8RS3eu1IMg/WdpavtqN4D/cVZe9d7S6v1XX
g2JAtN8/NA/YcaggtD94WRJ4mR7eP5iuZGd7ALw/K9wHGuZx3D/o+UImP7yl
vxt1JYBpvto/TErv6qu+sz8PXZW9NQ/ZP1COE7NstaQ/iHaSW5dr1z9wkmjz
SAC2v7O2qlA=
          "]]}, {
         {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], CapForm["Butt"]}, {}}, {
         {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], CapForm["Butt"]}, {}}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0.037997795094388935`, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"FitResiduals\"", TraditionalForm], None}, {
         FormBox["\"PredictedResponse\"", TraditionalForm], None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{44., 0.5}, {31., 2.668850847456042}},
      ImageSize->288,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{0.037997795094388935`, 
       0.5444243992716368}, {-0.14341826619102305`, 0.18849824921439595`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {446.4000000000001, -91.22181673948447},
      ImageScaled[{0.5, 0.5}], {288, 177.9937887599697}]}, {}},
  ImageSize->{
    UpTo[576], 
    UpTo[178]},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.792151471169612*^9, {3.7921515355292053`*^9, 3.792151542602171*^9}, 
   3.7921670452130623`*^9, 3.792236224779058*^9, 3.792236412343081*^9, 
   3.792246756287239*^9, 3.792325576945895*^9, 3.792591856933352*^9, 
   3.793177990711297*^9, {3.793178242138939*^9, 3.793178264546681*^9}, 
   3.793178630911213*^9, 3.793181806561247*^9, 3.7932850064656363`*^9, 
   3.793285056681158*^9, 3.793378817324523*^9, 3.793378888477478*^9, 
   3.793433742450447*^9, 3.793445650506784*^9, 3.793445814700057*^9, 
   3.79465820771767*^9, 3.7946734437954493`*^9, 3.7946734829986253`*^9, 
   3.7948447434025683`*^9, 3.7948859732978106`*^9, 3.794886055496891*^9, 
   3.7948875222376165`*^9, 3.794894862948357*^9, 3.79489704396819*^9, 
   3.794901256522735*^9, 3.7949189371605844`*^9, 3.794920908727193*^9, 
   3.794921328198595*^9, 3.7949755611355505`*^9, 3.794977658445444*^9, 
   3.794985758804624*^9, 3.7950125559317055`*^9, 3.7950597275514364`*^9, 
   3.7951572114072266`*^9, 3.7951589236279535`*^9, 3.795159164045043*^9},
 CellLabel->
  "Out[235]=",ExpressionUUID->"0f2c6d50-41d0-48b3-8c23-1553d68a81f8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ajustes SIRM", "Subsubsection",
 CellChangeTimes->{{3.7948901906197395`*^9, 
  3.794890215191774*^9}},ExpressionUUID->"363d889a-1aec-40f7-b5cb-\
ce50a6f8e8a9"],

Cell["\<\
Inicialmente parece que la \[UAcute]nica informaci\[OAcute]n disponible \
fiable es los hospitalizados, los datos de alta y los muertos, y sobre esto \
hay dudas sobre la metodolog\[IAcute]a. En definitiva nos quedamos con los \
hospitalizados y los recuperados.\
\>", "Text",
 CellChangeTimes->{{3.7949198410128307`*^9, 3.79491994658387*^9}, 
   3.79491997981094*^9, {3.7949203032728987`*^9, 
   3.794920303632825*^9}},ExpressionUUID->"c2e7db39-dcec-4e12-8abf-\
c50d8d52a181"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\[ScriptCapitalS]", 
      OverscriptBox["\[RightArrow]", 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"\[Lambda]", "[", "t", "]"}]}]], "\[ScriptCapitalI]"}], 
     "\"\<infection\>\""},
    {
     RowBox[{"\[ScriptCapitalI]", 
      OverscriptBox["\[RightArrow]", "\[Gamma]"], "\[ScriptCapitalR]"}], 
     "\"\<recovery\>\""}
   },
   AutoDelete->False,
   BaseStyle->{18},
   GridBoxAlignment->{"Columns" -> {Center, Left}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{3}}}],
  "Grid"]], "Text",
 CellChangeTimes->{{3.7937961843204465`*^9, 3.7937962101730595`*^9}, 
   3.793797403313322*^9, 3.793799021621637*^9, 
   3.794472756307598*^9},ExpressionUUID->"34be0f1d-42b4-4b37-bc5e-\
41ebf11aa7cf"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalI]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalR]], 
       CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
       CompartmentalModeling`Private`$R[1][$CellContext`\[Gamma]], 
       CompartmentalModeling`Private`$R[
       2][$CellContext`\[Beta] $CellContext`\[Lambda][$CellContext`t]]}, {{{1,
        4}, {4, 2}, {3, 5}, {5, 1}}, Null}, {
      BaseStyle -> {18}, 
       GraphLayout -> {
        "LayeredDigraphEmbedding", "RootVertex" -> 
         CompartmentalModeling`Private`$C[$CellContext`\[ScriptCapitalS]], 
         "Orientation" -> Left}, ImageSize -> 450, PerformanceGoal -> 
       "Quality", VertexShapeFunction -> {
         CompartmentalModeling`Private`vsf[{18}]}}]], Typeset`boxes, 
    Typeset`boxes$s2d = GraphicsGroupBox[{{
       Arrowheads[Medium], 
       Directive[
        Opacity[0.7], 
        Hue[0.6, 0.7, 0.5]], 
       Directive[], 
       ArrowBox[{
         DynamicLocation["VertexID$1", Automatic, Center], 
         DynamicLocation["VertexID$4", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$3", Automatic, Center], 
         DynamicLocation["VertexID$5", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$4", Automatic, Center], 
         DynamicLocation["VertexID$2", Automatic, Center]}], 
       ArrowBox[{
         DynamicLocation["VertexID$5", Automatic, Center], 
         DynamicLocation["VertexID$1", Automatic, Center]}]}, {
       Directive[
        Hue[0.6, 0.2, 0.8], 
        EdgeForm[
         Directive[
          GrayLevel[0], 
          Opacity[0.7]]]], 
       Directive[], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalI]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-1.9999999999999993`, 
         5.3589794058235685`*^-8}], "DynamicName", BoxID -> "VertexID$1"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalR]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {0., 0.}], 
        "DynamicName", BoxID -> "VertexID$2"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[ScriptCapitalS]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[0, 0, 1], Background -> RGBColor[0.87, 0.94, 1], 
            StripOnInput -> False], TraditionalForm]], {-3.9999999999999987`, 
         1.0717958811647137`*^-7}], "DynamicName", BoxID -> "VertexID$3"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox["\[Gamma]", 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-0.9999999999999997, 
         2.6794897029117842`*^-8}], "DynamicName", BoxID -> "VertexID$4"], 
       TagBox[
        InsetBox[
         BoxData[
          FormBox[
           FrameBox[
            StyleBox[
             RowBox[{"\[Beta]", " ", 
               RowBox[{"\[Lambda]", "(", "t", ")"}]}], 
             GrayLevel[0], 18, StripOnInput -> False], FrameStyle -> 
            RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85], 
            StripOnInput -> False], TraditionalForm]], {-2.999999999999999, 
         8.038469108735353*^-8}], "DynamicName", BoxID -> 
        "VertexID$5"]}}], $CellContext`flag}, 
    TagBox[
     DynamicBox[GraphComputation`NetworkGraphicsBox[
      3, Typeset`graph, Typeset`boxes, $CellContext`flag], {
      CachedValue :> Typeset`boxes, SingleEvaluation -> True, 
       SynchronousUpdating -> False, TrackedSymbols :> {$CellContext`flag}},
      ImageSizeCache->{{-9.237055564881302*^-14, 630.}, {-26.20001601798945, 
       17.99999999999999}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False,
    UnsavedVariables:>{$CellContext`flag}]],
  BaseStyle->{18},
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->450]], "Text",
 CellChangeTimes->{{3.792407289968094*^9, 3.7924072985194483`*^9}, 
   3.792591613556972*^9, 3.793138465843472*^9, 3.7937820087323027`*^9, {
   3.7937961850890136`*^9, 3.7937962103899155`*^9}, 3.7937974037550735`*^9, 
   3.7937990220136557`*^9, 
   3.79447275632539*^9},ExpressionUUID->"0a1bede5-6d15-46ac-8127-\
6f85944f81e5"],

Cell["\<\
Es necesario llegar a unos valores creibles para los par\[AAcute]metros \
\>", "Text",
 CellChangeTimes->{{3.7949233042240376`*^9, 3.7949233511805563`*^9}, 
   3.794926214832028*^9},ExpressionUUID->"f101803e-3704-4bf8-8807-\
602f88db34d2"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox["\[Beta]", TraditionalForm]],ExpressionUUID->
  "ac25c866-1a23-42ce-bcaf-03eebd298111"],
 " \tTasa de contagios (probabilidad de que una persona enferme al estar en \
contacto con un infectado); ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1", "/", "\[Beta]"}], TraditionalForm]],ExpressionUUID->
  "c378bf14-a6d3-4c82-a898-a1fdc50a9ccf"],
 "  es el tiempo promedio en que cada infectado trasmite la enfermedad a \
otra. (Ej.: \[Beta] = 1/2 significa que cada infectado trasmite la enfermedad \
a una persona cada dos d\[IAcute]as). Deberla ser un valor < 0.5."
}], "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275192391524`*^9}, {3.794728321822303*^9, 
   3.794728321824323*^9}, {3.794728413510762*^9, 3.7947284289696693`*^9}, {
   3.7947284733399296`*^9, 3.79472854921021*^9}, {3.7947285848962803`*^9, 
   3.7947286571421003`*^9}, {3.794926233275537*^9, 
   3.794926309910904*^9}},ExpressionUUID->"29f0c1d9-e160-4804-b459-\
d7c3208c8e12"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Lambda]", "[", "t", "]"}], TraditionalForm]],ExpressionUUID->
  "970a7ec9-20b4-45b3-96a3-ca4cfced6dc4"],
 " es la fuerza de la infecci\[OAcute]n (",
 StyleBox["force of infection",
  FontSlant->"Italic"],
 ") que es dependiente del tiempo. Tiene en cuenta que durante el periodo que \
un individuo infecta, su \[OpenCurlyDoubleQuote]capacidad de \
infecci\[OAcute]n varia\[CloseCurlyDoubleQuote].   "
}], "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275192391524`*^9}, {3.794729614662984*^9, 
   3.7947297034493637`*^9}},ExpressionUUID->"74e02dbb-4d27-44c8-b8bc-\
053cf4de64c4"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["\[Gamma]", TraditionalForm]],ExpressionUUID->
  "55f30af3-ac76-40d5-86cd-84bd555d1431"],
 " \tTasa de recuperaci\[OAcute]n; 1/\[Gamma] es  la duraci\[OAcute]n media \
de la infecci\[OAcute]n;   (Ej.: \[Gamma] = 1/14  significa que un infectado \
se recupera en 14 d\[IAcute]as). <0.1"
}], "ItemParagraph",
 CellChangeTimes->{{3.792320646964816*^9, 3.792320726113447*^9}, {
   3.792320796927999*^9, 3.792320891236794*^9}, {3.792320924275812*^9, 
   3.7923209403155317`*^9}, {3.792321000833158*^9, 3.7923210604068127`*^9}, {
   3.79232117881262*^9, 3.792321194186763*^9}, {3.792321265481763*^9, 
   3.792321343728095*^9}, {3.7923215456326714`*^9, 3.792321594934927*^9}, {
   3.792321816704585*^9, 3.7923218228805733`*^9}, 3.7923224348001432`*^9, {
   3.7923224676521072`*^9, 3.792322494259036*^9}, {3.7923227631786222`*^9, 
   3.792322788944479*^9}, 3.7923239085688457`*^9, {3.792323954172353*^9, 
   3.7923239601780252`*^9}, {3.793949468824667*^9, 3.7939495305276437`*^9}, {
   3.793949639262147*^9, 3.7939496860971737`*^9}, {3.7939501114809713`*^9, 
   3.7939501124185038`*^9}, {3.793950177295899*^9, 3.793950266277948*^9}, {
   3.7939503253018084`*^9, 3.7939503867621565`*^9}, {3.793950517793309*^9, 
   3.7939505472465763`*^9}, {3.79395060644983*^9, 3.7939507587625027`*^9}, {
   3.7939507926215715`*^9, 3.7939508403092675`*^9}, {3.7939510346058025`*^9, 
   3.7939510348244677`*^9}, {3.7939511129807854`*^9, 3.793951114028015*^9}, {
   3.793951590199898*^9, 3.7939516543406916`*^9}, {3.793951789783286*^9, 
   3.793951822481185*^9}, {3.793952918885169*^9, 3.793953019259796*^9}, 
   3.793953301605796*^9, {3.794318212606047*^9, 3.794318213466023*^9}, {
   3.794727517688017*^9, 3.7947275192391524`*^9}, {3.794728321822303*^9, 
   3.794728321824323*^9}, {3.794728413510762*^9, 3.7947284314673567`*^9}, {
   3.7947287716024227`*^9, 3.794728906873157*^9}, {3.794926316961571*^9, 
   3.79492633426921*^9}},ExpressionUUID->"acd8023b-62c3-4634-8426-\
705d9eeb738a"],

Cell["\<\
\[Zeta]\tTasa de incubaci\[OAcute]n. 1/ \[Zeta] es la duraci\[OAcute]n media \
de la incubaci\[OAcute]n. (Ej.: \[Zeta]  = 1/7  significa que el periodo d e \
incubaci\[OAcute]n es de 7 d\[IAcute]as)\
\>", "ItemParagraph",
 CellChangeTimes->{{3.794729195020359*^9, 3.794729217690321*^9}, 
   3.7947292601924953`*^9, {3.794729386085451*^9, 3.7947294822495594`*^9}, 
   3.794739849217879*^9},ExpressionUUID->"e4839bba-686f-417e-ba2e-\
ff40a840fa82"]
}, Open  ]],

Cell[TextData[{
 "Se a\[NTilde]ade  un par\[AAcute]metro de \
\[OpenCurlyQuote]traslaci\[OAcute]n\[CloseCurlyQuote] (o retardo) y \[Mu], k \
que corresponden a los  coeficientes de ",
 Cell[BoxData[
  FractionBox["\[Beta]", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[Mu]", " ", 
      SuperscriptBox["t", "k"]}]]}]]],
  CellChangeTimes->{{3.7948891538897943`*^9, 3.7948891825084352`*^9}},
  ExpressionUUID->"04133666-db5a-479f-b796-0f0be396e5fc"],
 " la  para conseguir que la curva de hospitalizados encaje mejor con los \
datos: "
}], "Text",
 CellChangeTimes->{{3.794849254019932*^9, 3.7948493252732024`*^9}, {
  3.794850975955946*^9, 3.79485097622787*^9}, {3.794920000888355*^9, 
  3.7949200266597137`*^9}, {3.794926584745234*^9, 
  3.794926668793894*^9}},ExpressionUUID->"91afbe3e-bd98-4a40-be4f-\
a5bcb64a40ce"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[ScriptCapitalS]", ",", "\[ScriptCapitalI]", ",", "\[ScriptCapitalR]", 
   ",", " ", "\[Beta]", ",", "\[Gamma]", ",", " ", "\[Mu]", ",", "k"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7948318967451286`*^9, 3.7948319159407234`*^9}, {
  3.794889260518407*^9, 3.794889261058097*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"bb6dce56-ecdc-4aab-a678-16bc1bd2adde"],

Cell[CellGroupData[{

Cell[BoxData["infectedSIRM"], "Input",
 CellLabel->
  "In[214]:=",ExpressionUUID->"7d5c399f-07f5-49fb-a2fe-dd2c8d44d0e0"],

Cell[BoxData[
 TagBox[
  TemplateBox[{
    RowBox[{
      StyleBox[
       TagBox["ParametricFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{
       Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquarePlusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}]], 
               GraphicsBox[{{}, {}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                   0.0874367476365131, 0.08197166587636243}, {
                   0.18222810297558026`, 0.1358255024317191}, {
                   0.27073779576926765`, 0.13315455086535802`}, {
                   0.3575112797365835, 0.08143316377978886}, {
                   0.4516394623155443, -0.007347854733426912}, {
                   0.5394859823491253, -0.08816932746972758}, {
                   0.6346872009943513, -0.13787329990112937`}, {
                   0.7281522108132057, -0.12816574147938434`}, {
                   0.8153355580866803, -0.07001063326902106}, {
                   0.9098736039718, 0.02121659675083076}, {0.9999999090909091,
                    0.10024804094746914`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                   0.0874367476365131, 0.08090369567458766}, {
                   0.18222810297558026`, 0.12746559200130417`}, {
                   0.27073779576926765`, 0.1116266937044405}, {
                   0.3575112797365835, 0.046963725126600256`}, {
                   0.4516394623155443, -0.04509050859182233}, {
                   0.5394859823491253, -0.11115559892361665`}, {
                   0.6346872009943513, -0.12642564594664163`}, {
                   0.7281522108132057, -0.07740196037964171}, {
                   0.8153355580866803, 0.004179083230780074}, {
                   0.9098736039718, 0.08937493944143977}, {0.9999999090909091,
                    0.12834702174618903`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                   0.0874367476365131, 0.07984396759533968}, {
                   0.18222810297558026`, 0.11939549826670079`}, {
                   0.27073779576926765`, 0.09184904274707059}, {
                   0.3575112797365835, 0.017913117173780694`}, {
                   0.4516394623155443, -0.07109962300031061}, {
                   0.5394859823491253, -0.11717052830989395`}, {
                   0.6346872009943513, -0.09879571259704382}, {
                   0.7281522108132057, -0.022693471356141894`}, {
                   0.8153355580866803, 0.06128703302641453}, {0.9098736039718,
                    0.11605625481609519`}, {0.9999999090909091, 
                   0.10415981267620744`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                   0.0874367476365131, 0.07879243663407876}, {
                   0.18222810297558026`, 0.1116081822210312}, {
                   0.27073779576926765`, 0.07372482040530459}, {
                   0.3575112797365835, -0.006267252216927747}, {
                   0.4516394623155443, -0.08743897872291118}, {
                   0.5394859823491253, -0.11109134853087661`}, {
                   0.6346872009943513, -0.06371549528296311}, {
                   0.7281522108132057, 0.02544576624054603}, {
                   0.8153355580866803, 0.09464282937855747}, {0.9098736039718,
                    0.10731931496853601`}, {0.9999999090909091, 
                   0.0516787429232188}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                   0.0874367476365131, 0.07774905743802465}, {
                   0.18222810297558026`, 0.10409673959866513`}, {
                   0.27073779576926765`, 0.05716133039337165}, {
                   0.3575112797365835, -0.026084496726167965`}, {
                   0.4516394623155443, -0.09591154799603378}, {
                   0.5394859823491253, -0.09685594593277226}, {
                   0.6346872009943513, -0.02730376120671303}, {
                   0.7281522108132057, 0.061646715198529656`}, {
                   0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 
                   0.07509702498429204}, {
                   0.9999999090909091, -0.006536873471333553}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                   0.0874367476365131, 0.07671378556951527}, {
                   0.18222810297558026`, 0.09685439581479163}, {
                   0.27073779576926765`, 0.042069810325321415`}, {
                   0.3575112797365835, -0.042006785469922474`}, {
                   0.4516394623155443, -0.09808544986431629}, {
                   0.5394859823491253, -0.07760167026270944}, {
                   0.6346872009943513, 0.0063643674428021085`}, {
                   0.7281522108132057, 0.08405712128907425}, {
                   0.8153355580866803, 0.09555213349985489}, {0.9098736039718,
                    0.03202960165577907}, {
                   0.9999999090909091, -0.054402034659985464`}}]}}, 
                AspectRatio -> 1, Axes -> {False, False}, 
                AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                DisplayFunction -> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Thickness[Tiny], 
                  GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}},
                 GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                LabelStyle -> {FontFamily -> "Arial"}, 
                Method -> {"ScalingFunctions" -> None}, 
                PlotRange -> {All, All}, PlotRangeClipping -> True, 
                PlotRangePadding -> {Automatic, Automatic}, 
                Ticks -> {Automatic, Automatic}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["\[ScriptCapitalI]", HoldForm], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    
                    RowBox[{
                    "\[Beta]", ",", "\[Gamma]", ",", "\[Mu]", ",", "k"}], 
                    "}"}], "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquareMinusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}]], 
               GraphicsBox[{{}, {}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, {
                   0.0874367476365131, 0.08197166587636243}, {
                   0.18222810297558026`, 0.1358255024317191}, {
                   0.27073779576926765`, 0.13315455086535802`}, {
                   0.3575112797365835, 0.08143316377978886}, {
                   0.4516394623155443, -0.007347854733426912}, {
                   0.5394859823491253, -0.08816932746972758}, {
                   0.6346872009943513, -0.13787329990112937`}, {
                   0.7281522108132057, -0.12816574147938434`}, {
                   0.8153355580866803, -0.07001063326902106}, {
                   0.9098736039718, 0.02121659675083076}, {0.9999999090909091,
                    0.10024804094746914`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, {
                   0.0874367476365131, 0.08090369567458766}, {
                   0.18222810297558026`, 0.12746559200130417`}, {
                   0.27073779576926765`, 0.1116266937044405}, {
                   0.3575112797365835, 0.046963725126600256`}, {
                   0.4516394623155443, -0.04509050859182233}, {
                   0.5394859823491253, -0.11115559892361665`}, {
                   0.6346872009943513, -0.12642564594664163`}, {
                   0.7281522108132057, -0.07740196037964171}, {
                   0.8153355580866803, 0.004179083230780074}, {
                   0.9098736039718, 0.08937493944143977}, {0.9999999090909091,
                    0.12834702174618903`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, {
                   0.0874367476365131, 0.07984396759533968}, {
                   0.18222810297558026`, 0.11939549826670079`}, {
                   0.27073779576926765`, 0.09184904274707059}, {
                   0.3575112797365835, 0.017913117173780694`}, {
                   0.4516394623155443, -0.07109962300031061}, {
                   0.5394859823491253, -0.11717052830989395`}, {
                   0.6346872009943513, -0.09879571259704382}, {
                   0.7281522108132057, -0.022693471356141894`}, {
                   0.8153355580866803, 0.06128703302641453}, {0.9098736039718,
                    0.11605625481609519`}, {0.9999999090909091, 
                   0.10415981267620744`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, {
                   0.0874367476365131, 0.07879243663407876}, {
                   0.18222810297558026`, 0.1116081822210312}, {
                   0.27073779576926765`, 0.07372482040530459}, {
                   0.3575112797365835, -0.006267252216927747}, {
                   0.4516394623155443, -0.08743897872291118}, {
                   0.5394859823491253, -0.11109134853087661`}, {
                   0.6346872009943513, -0.06371549528296311}, {
                   0.7281522108132057, 0.02544576624054603}, {
                   0.8153355580866803, 0.09464282937855747}, {0.9098736039718,
                    0.10731931496853601`}, {0.9999999090909091, 
                   0.0516787429232188}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, {
                   0.0874367476365131, 0.07774905743802465}, {
                   0.18222810297558026`, 0.10409673959866513`}, {
                   0.27073779576926765`, 0.05716133039337165}, {
                   0.3575112797365835, -0.026084496726167965`}, {
                   0.4516394623155443, -0.09591154799603378}, {
                   0.5394859823491253, -0.09685594593277226}, {
                   0.6346872009943513, -0.02730376120671303}, {
                   0.7281522108132057, 0.061646715198529656`}, {
                   0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 
                   0.07509702498429204}, {
                   0.9999999090909091, -0.006536873471333553}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  Opacity[1.], 
                  
                  LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, {
                   0.0874367476365131, 0.07671378556951527}, {
                   0.18222810297558026`, 0.09685439581479163}, {
                   0.27073779576926765`, 0.042069810325321415`}, {
                   0.3575112797365835, -0.042006785469922474`}, {
                   0.4516394623155443, -0.09808544986431629}, {
                   0.5394859823491253, -0.07760167026270944}, {
                   0.6346872009943513, 0.0063643674428021085`}, {
                   0.7281522108132057, 0.08405712128907425}, {
                   0.8153355580866803, 0.09555213349985489}, {0.9098736039718,
                    0.03202960165577907}, {
                   0.9999999090909091, -0.054402034659985464`}}]}}, 
                AspectRatio -> 1, Axes -> {False, False}, 
                AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> 
                GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
                DisplayFunction -> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Thickness[Tiny], 
                  GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}},
                 GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                LabelStyle -> {FontFamily -> "Arial"}, 
                Method -> {"ScalingFunctions" -> None}, 
                PlotRange -> {All, All}, PlotRangeClipping -> True, 
                PlotRangePadding -> {Automatic, Automatic}, 
                Ticks -> {Automatic, Automatic}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Expression: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TagBox["\[ScriptCapitalI]", HoldForm], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    
                    RowBox[{
                    "\[Beta]", ",", "\[Gamma]", ",", "\[Mu]", ",", "k"}], 
                    "}"}], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Generator: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["ParametricNDSolve", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox[
                    "\"Dependent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{
                    "\[ScriptCapitalI]", ",", "\[ScriptCapitalR]", ",", 
                    "\[ScriptCapitalS]"}], "}"}], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox[
                    "\"Independent variables: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], 
       DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("ParametricFunction[<>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.794980503461442*^9, 3.79498191400793*^9, 
  3.7949857944069037`*^9, 3.795012557173046*^9, 3.7950597296933546`*^9, 
  3.7953203560911064`*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"3d24358c-acd9-4ea3-a356-ba7fb09afba2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{"hospitalizadosCM", ",", "recuperadosCM"}], "}"}], 
   "]"}]}]], "Input",
 CellLabel->
  "In[216]:=",ExpressionUUID->"2b1b1ac8-839d-49ad-b907-20628f2ce9c5"],

Cell[BoxData[
 GraphicsBox[{{}, {{
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVzTsKwkAUheGLm7DWBUh8P6JmTG2VJQhTWbiBFFOIC3AJ1rGzsFDQoBAS
3YFLsVBzzi0MDD8fZ8jUFqvIVkSk+j2/4muYMuEOFQ99J3QTXe/pFuod6Daa
HukO+jrR3bIuvtA9OEnpPmxv9ADO7vQQnWf0CN3ktI/714Ieo/6DnmCvP+kp
ulUH2M9q828Hi9V9hj3n/x291PdCONIdlqAwHy5sNwQ=
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQF6DmBqQS2EZjCA0Dt6oXxDNL4RhM6A8Y0hdMck
KN8EQkvMgPJNIfSauVC+GYSWWwDlm0PoZwuhfAsIvW45lG8JoUPWQflWEHrL
ZijfGkJv2wHl20Bo571Qvi2YbjA7AOXbQWjLQ1C+PURe9SiU7wChLU5A6AYo
n/c0VN4RQjOeg8pD+AfUL0DlnSDmvYLyG6D8XxcdAAiXMM8=
       "]]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {}, {}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{14.541666666666666`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{14.541666666666666`, 37.}, {0, 18410.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.795320822442046*^9},
 CellLabel->
  "Out[216]=",ExpressionUUID->"957310cd-02f4-4575-8637-e2bf5bd4d0a3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"infectedSIRM", "[", 
         RowBox[{
         "\[Beta]", ",", "\[Gamma]", ",", " ", "\[Mu]", ",", " ", "k"}], 
         "]"}], "[", 
        RowBox[{"t", "-", "c"}], "]"}], ",", 
       RowBox[{
        RowBox[{"recoveredSIRM", "[", 
         RowBox[{
         "\[Beta]", ",", "\[Gamma]", ",", " ", "\[Mu]", ",", " ", "k"}], 
         "]"}], "[", 
        RowBox[{"t", "-", "c"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", 
       RowBox[{"Max", "[", 
        RowBox[{"1", ",", "c"}], "]"}], ",", " ", "50"}], "}"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Hospitalizados\>\"", ",", "\"\<Recuperados\>\""}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", " ", "0.68"}], "}"}], ",", " ", "0", ",", " ", 
     "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", " ", "0.073"}], "}"}], ",", " ", "0", ",", " ",
      "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", " ", "0.00098"}], "}"}], ",", " ", "0", ",", " ", 
     "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "2"}], "}"}], ",", " ", "0.0001", ",", "3"}], "}"}], 
   " ", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", 
       RowBox[{"-", "10.5"}]}], "}"}], ",", " ", 
     RowBox[{"-", "20"}], ",", " ", "20"}], "}"}]}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.794830869245244*^9, 3.7948309479071007`*^9}, {
   3.794831000958572*^9, 3.7948310462551804`*^9}, {3.794831575710306*^9, 
   3.7948316760187273`*^9}, {3.7948320529454317`*^9, 3.7948320534800835`*^9}, 
   3.7948320902102375`*^9, 3.794834337303155*^9, {3.79483441072109*^9, 
   3.794834441026548*^9}, 3.794834483584674*^9, {3.794841161284951*^9, 
   3.7948411707325096`*^9}, {3.7948413902341876`*^9, 3.794841390880536*^9}, {
   3.794841502512663*^9, 3.794841520102446*^9}, {3.794841723360612*^9, 
   3.7948417241693373`*^9}, {3.7948417843302965`*^9, 
   3.7948417850438128`*^9}, {3.7948418177995243`*^9, 
   3.7948418238387237`*^9}, {3.794842230978882*^9, 3.7948422417738223`*^9}, {
   3.794842306916494*^9, 3.794842313093043*^9}, {3.794842346267254*^9, 
   3.794842402882064*^9}, {3.794842461845952*^9, 3.794842473460579*^9}, {
   3.7948431603520007`*^9, 3.7948431622562075`*^9}, {3.794843197851559*^9, 
   3.794843284531636*^9}, {3.794843342358306*^9, 3.7948433471865997`*^9}, 
   3.794843409815298*^9, {3.7948448552229156`*^9, 3.794844875981277*^9}, 
   3.7948459966154656`*^9, {3.7948461576786976`*^9, 3.7948461924226007`*^9}, {
   3.7948475641040144`*^9, 3.7948476455375085`*^9}, 3.794853255699642*^9, {
   3.7948905694110026`*^9, 3.794890769417946*^9}, 3.7948908654492145`*^9, 
   3.7948909424897213`*^9, {3.794895180623513*^9, 3.7948952489937534`*^9}, {
   3.79489535350914*^9, 3.7948953946539783`*^9}, {3.7948954998955584`*^9, 
   3.7948956046583967`*^9}, {3.7948956418077946`*^9, 
   3.7948956504213963`*^9}, {3.79489573755079*^9, 3.7948957621594906`*^9}, {
   3.7948957939042253`*^9, 3.794895858732869*^9}, {3.794895890725932*^9, 
   3.79489589254942*^9}, {3.794897256100023*^9, 3.794897269600334*^9}, {
   3.79497775410256*^9, 3.7949777644774313`*^9}, {3.7949779424302397`*^9, 
   3.794977949492655*^9}, {3.7949808517587924`*^9, 3.794980861790008*^9}, 
   3.7949857866211014`*^9, {3.7953208735795155`*^9, 3.7953209613827343`*^9}, {
   3.7953209947338257`*^9, 3.7953210502593794`*^9}, {3.795321106329487*^9, 
   3.795321153961297*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"6d01f032-b3e5-4c32-8c5b-b96114010d53"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = -10.5, $CellContext`k$$ = 
    2, $CellContext`\[Beta]$$ = 0.68, $CellContext`\[Gamma]$$ = 
    0.073, $CellContext`\[Mu]$$ = 0.00098, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Beta]$$], 0.68}, 0, 1}, {{
       Hold[$CellContext`\[Gamma]$$], 0.073}, 0, 1}, {{
       Hold[$CellContext`\[Mu]$$], 0.00098}, 0, 1}, {{
       Hold[$CellContext`k$$], 2}, 0.0001, 3}, {{
       Hold[$CellContext`c$$], -10.5}, -20, 20}}, Typeset`size$$ = {
    684., {146., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = -10.5, $CellContext`k$$ = 
        2, $CellContext`\[Beta]$$ = 0.68, $CellContext`\[Gamma]$$ = 
        0.073, $CellContext`\[Mu]$$ = 0.00098}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         $CellContext`infectedSIRM[$CellContext`\[Beta]$$, $CellContext`\
\[Gamma]$$, $CellContext`\[Mu]$$, $CellContext`k$$][$CellContext`t - \
$CellContext`c$$], 
         $CellContext`recoveredSIRM[$CellContext`\[Beta]$$, $CellContext`\
\[Gamma]$$, $CellContext`\[Mu]$$, $CellContext`k$$][$CellContext`t - \
$CellContext`c$$]}, {$CellContext`t, 
         Max[1, $CellContext`c$$], 50}, 
        PlotLegends -> {"Hospitalizados", "Recuperados"}], 
      "Specifications" :> {{{$CellContext`\[Beta]$$, 0.68}, 0, 
         1}, {{$CellContext`\[Gamma]$$, 0.073}, 0, 
         1}, {{$CellContext`\[Mu]$$, 0.00098}, 0, 1}, {{$CellContext`k$$, 2}, 
         0.0001, 3}, {{$CellContext`c$$, -10.5}, -20, 20}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{747., {247., 255.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7948955771223745`*^9, 3.794895607646586*^9, 3.7948956547455125`*^9, {
   3.7948958198220143`*^9, 3.7948958674708776`*^9}, 3.794897272364996*^9, 
   3.7948982029376335`*^9, 3.7949190779046783`*^9, 3.7949213526742477`*^9, 
   3.7949755951149855`*^9, {3.7949777689302406`*^9, 3.794977797071131*^9}, 
   3.7949779542110257`*^9, 3.7949807142579565`*^9, 3.7949807859613743`*^9, 
   3.7949808660708447`*^9, 3.794982060820845*^9, 3.7949857944912586`*^9, 
   3.7950125572436056`*^9, 3.7950597298183465`*^9, 3.7953203562119365`*^9, 
   3.7953209674106607`*^9, 3.7953209994584723`*^9, {3.7953210542802925`*^9, 
   3.795321093901968*^9}, 3.7953211607205205`*^9},
 CellLabel->
  "Out[225]=",ExpressionUUID->"192ce5ec-d4d5-48d2-97e8-ccffdbc1d9b1"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Initialization", "Chapter",
 CellChangeTimes->{{3.7923169646029463`*^9, 
  3.792316968066401*^9}},ExpressionUUID->"59fca96b-41f4-40a9-9224-\
4e23366139d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "@", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "\"\<CompartmentalModeling.wl\>\"", "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.793138151449808*^9, 3.793138214424975*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"9c0dbf9c-895a-433b-9eed-f9b6a024f109"],

Cell[CellGroupData[{

Cell["General", "Section",
 CellChangeTimes->{{3.7924026973454247`*^9, 
  3.792402699057727*^9}},ExpressionUUID->"a9922b51-7865-4408-85e6-\
0a505751d2a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"closeCellGroup", "[", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"SelectionMove", "[", 
     RowBox[{
      RowBox[{"EvaluationCell", "[", "]"}], ",", " ", "Next", ",", "Cell"}], 
     "]"}], ";", " ", "\[IndentingNewLine]", 
    RowBox[{"FrontEndExecute", "[", 
     RowBox[{
     "FrontEndToken", "[", "\"\<SelectionCloseUnselectedCells\>\"", "]"}], 
     "]"}]}], ")"}]}]], "Code",
 CellChangeTimes->{{3.792591483391305*^9, 3.7925915232056007`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"325223de-399b-40e5-9d77-8f0cd7f6b5d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$PlotTheme", "=", "\"\<Scientific\>\""}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"ColorData", "[", "108", "]"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Scan", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SetOptions", "[", 
       RowBox[{"#1", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Axes", "\[Rule]", "False"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}]}], "}"}]}], "]"}], "&"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "Plot", ",", "LogPlot", ",", "LogLinearPlot", ",", "LogLogPlot", ",", 
       "ListPlot", ",", "ListLogPlot", ",", "ListLogLinearPlot", ",", 
       "ListLogLogPlot", ",", "ListLinePlot", ",", "ListStepPlot", ",", 
       "DateListPlot", ",", "DateListStepPlot", ",", "DateListLogPlot", ",", 
       "Histogram", ",", "DateHistogram"}], "}"}]}], "\[IndentingNewLine]", 
    "]"}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"Scan", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"SetOptions", "[", 
      RowBox[{"#1", ",", 
       RowBox[{"{", 
        RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], "}"}]}], "]"}], 
     "&"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "ListPlot", ",", "ListLogPlot", ",", "ListLogLinearPlot", ",", 
      "ListLogLogPlot", ",", "DateListPlot", ",", "DateListLogPlot"}], 
     "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input",
 InitializationCell->True,
 CellLabel->"In[6]:=",ExpressionUUID->"2117b6d7-eddd-4449-b891-68d232642f8e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"labeledGrid", "[", 
   RowBox[{
   "grid_", ",", " ", "columnLabels_", ",", " ", "rowLabels_", ",", " ", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", "\n", 
  "\t", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"MapThread", "[", 
     RowBox[{"Prepend", ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Prepend", "[", 
         RowBox[{"grid", ",", " ", "columnLabels"}], "]"}], ",", " ", 
        RowBox[{"Prepend", "[", 
         RowBox[{"rowLabels", ",", " ", "\"\<\>\""}], "]"}]}], "}"}]}], "]"}],
     ",", " ", "\n", "\t\t", "opts", ",", "\n", "\t\t", 
    RowBox[{"Dividers", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"False", ",", " ", "True", ",", " ", "False"}], "}"}], ",", 
       " ", 
       RowBox[{"{", 
        RowBox[{"False", ",", " ", "True", ",", " ", "False"}], "}"}]}], 
      "}"}]}], ",", " ", "\n", "\t\t", 
    RowBox[{"Alignment", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", "Center", "}"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"{", "Top", "}"}], "}"}]}], "}"}]}]}], "\n", "\t\t", 
   "]"}]}]], "Code",
 CellChangeTimes->{{3.7923322926175632`*^9, 3.792332433202401*^9}, {
  3.792332727188075*^9, 3.7923327976010036`*^9}, {3.792332843647834*^9, 
  3.792332873607421*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"001c61b9-8a8c-4510-b606-4b4444fb437a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tfn", "[", "data_", "]"}], " ", ":=", " ", 
  RowBox[{"TableForm", "[", 
   RowBox[{"data", ",", " ", 
    RowBox[{"TableDepth", " ", "->", " ", "2"}], ",", " ", 
    RowBox[{"TableHeadings", " ", "->", " ", "Automatic"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"tfc", "[", "data_", "]"}], " ", ":=", " ", 
  RowBox[{"TableForm", "[", 
   RowBox[{
    RowBox[{"Rest", "[", "data", "]"}], ",", " ", 
    RowBox[{"TableDepth", " ", "->", " ", "2"}], ",", " ", 
    RowBox[{"TableHeadings", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{"None", ",", " ", 
       RowBox[{"First", "[", "data", "]"}]}], "}"}]}]}], "]"}]}]}], "Code",
 CellChangeTimes->{{3.7929197750466547`*^9, 3.792919798370639*^9}, {
  3.79291987763988*^9, 3.7929199106390867`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"2ef5f4f8-3ac2-4855-bcd1-85930ac79efa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Fitting data", "Section",
 CellChangeTimes->{{3.792402731776301*^9, 
  3.7924027338727293`*^9}},ExpressionUUID->"493de7e3-f266-428c-b055-\
9bbdb2a8ef0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "is", " ", "measured", " ", "in", " ", "Days"}], " ", 
   "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"toModelTime", "[", 
     RowBox[{"t0_DateObject", ",", " ", "date_DateObject"}], "]"}], " ", ":=",
     " ", "\n", "\t", 
    RowBox[{"QuantityMagnitude", "[", 
     RowBox[{"DateDifference", "[", 
      RowBox[{"t0", ",", " ", "date"}], "]"}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"toDataDate", "[", 
     RowBox[{"t0_DateObject", ",", " ", 
      RowBox[{"time", ":", 
       RowBox[{"(", 
        RowBox[{"_Integer", "|", "_Real"}], ")"}]}]}], "]"}], " ", ":=", " ", 
    "\n", "\t", 
    RowBox[{"DatePlus", "[", 
     RowBox[{"t0", ",", " ", "time"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.792148544989461*^9, 3.792148740885351*^9}, {
  3.7921488495380583`*^9, 3.792148894664774*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"3699c3c2-02f8-4ee4-b021-03ead1c84f6d"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "fitDataWDR", "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fitDataWDR", "::", "usage"}], " ", "=", " ", 
    "\"\<fitDataWDR[locale, startDate] gives data for infected, recovered, \
and dead \\\nrelative to the given date for the onset of infection for the \
given locale, either an administrative \\\ndivision or a country. For \
reference, cases were first reported on 31 Dec 2019.\>\""}], ";"}], " ", 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fitDataWDR", "::", "locnf"}], " ", "=", " ", 
    "\"\<Locale `` not found.\>\""}], ";"}], " ", "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "fitDataWDR", "]"}], " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<makeCorrectionForHubei\>\"", " ", "->", " ", "False"}], 
      ",", " ", 
      RowBox[{"\"\<dateRange\>\"", " ", "->", " ", "All"}]}], "}"}]}], ";"}], 
  " ", "\n"}], "\n", 
 RowBox[{
  RowBox[{"fitDataWDR", "[", 
   RowBox[{
    RowBox[{"locale", ":", 
     RowBox[{
      RowBox[{"Entity", "[", 
       RowBox[{"\"\<AdministrativeDivision\>\"", ",", " ", "_"}], "]"}], " ", 
      "|", " ", 
      RowBox[{"Entity", "[", 
       RowBox[{"\"\<Country\>\"", ",", " ", "_"}], "]"}]}]}], ",", " ", 
    "date0_", ",", " ", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", "\n", 
  "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "covid19Data", ",", " ", "confirmed", ",", " ", "recovered", ",", " ", 
      "dead", ",", " ", "correctionQ", ",", " ", "dateRange"}], "}"}], ",", 
    " ", "\n", "\t\t", 
    RowBox[{
     RowBox[{"covid19Data", " ", "=", " ", 
      RowBox[{
      "ResourceData", "[", 
       "\"\<Epidemic Data for Novel Coronavirus COVID-19\>\"", "]"}]}], ";", 
     " ", "\n", "\t\t", "\n", "\t\t", 
     RowBox[{"Switch", "[", 
      RowBox[{"locale", ",", " ", "\n", "\t\t\t", 
       RowBox[{"Entity", "[", 
        RowBox[{"\"\<AdministrativeDivision\>\"", ",", " ", "_"}], "]"}], ",",
        " ", "\n", "\t\t\t\t", 
       RowBox[{"If", "[", " ", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"covid19Data", "[", 
             RowBox[{"All", ",", " ", "\"\<AdministrativeDivision\>\""}], 
             "]"}], ",", " ", "locale"}], "]"}]}], ",", " ", "\n", 
         "\t\t\t\t\t", 
         RowBox[{
          RowBox[{"Message", "[", 
           RowBox[{
            RowBox[{"fitDataWDR", "::", "locnf"}], ",", " ", "locale"}], 
           "]"}], ";", " ", "\n", "\t\t\t\t\t", 
          RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t\t\t", 
        "]"}], ",", " ", "\n", "\t\t\t", 
       RowBox[{"Entity", "[", 
        RowBox[{"\"\<Country\>\"", ",", " ", "_"}], "]"}], ",", " ", "\n", 
       "\t\t\t\t", 
       RowBox[{"If", "[", " ", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"covid19Data", "[", 
             RowBox[{"All", ",", " ", "\"\<Country\>\""}], "]"}], ",", " ", 
            "locale"}], "]"}]}], ",", " ", "\n", "\t\t\t\t\t", 
         RowBox[{
          RowBox[{"Message", "[", 
           RowBox[{
            RowBox[{"fitDataWDR", "::", "locnf"}], ",", " ", "locale"}], 
           "]"}], ";", " ", "\n", "\t\t\t\t\t", 
          RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t\t\t", 
        "]"}]}], "\n", "\t\t\t", "]"}], ";", " ", "\n", "\t\t", "\n", "\t\t", 
     RowBox[{"correctionQ", " ", "=", " ", 
      RowBox[{"OptionValue", "[", "\"\<makeCorrectionForHubei\>\"", "]"}]}], 
     ";", " ", "\n", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{"correctionQ", ",", " ", 
         RowBox[{"Except", "[", 
          RowBox[{"True", " ", "|", " ", "False"}], "]"}]}], "]"}], ",", " ", 
       "\n", "\t\t\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"fitDataWDR", "::", "opttf"}], ",", " ", 
          "\"\<makeCorrectionForHubei\>\"", ",", " ", "correctionQ"}], "]"}], 
        ";", " ", "\n", "\t\t\t", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t", "]"}], 
     ";", " ", "\n", "\t\t", "\n", "\t\t", 
     RowBox[{"dateRange", " ", "=", " ", 
      RowBox[{"OptionValue", "[", "\"\<dateRange\>\"", "]"}]}], ";", " ", 
     "\n", "\t\t", 
     RowBox[{"dateRange", " ", "=", " ", 
      RowBox[{"Switch", "[", 
       RowBox[{
       "dateRange", ",", " ", "\n", "\t\t\t", "All", ",", " ", "\n", 
        "\t\t\t\t", 
        RowBox[{
         RowBox[{"covid19Data", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "\"\<ConfirmedCases\>\""}], "]"}], "]"}], " ", "/@",
          " ", 
         RowBox[{"{", 
          RowBox[{"\"\<FirstDate\>\"", ",", " ", "\"\<LastDate\>\""}], 
          "}"}]}], ",", " ", "\n", "\t\t\t", 
        RowBox[{"{", 
         RowBox[{"_", ",", " ", "_"}], "}"}], ",", " ", "\n", "\t\t\t\t", 
        RowBox[{
         RowBox[{"dateRange", " ", "=", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Quiet", "[", 
              RowBox[{"DateObject", "[", 
               RowBox[{"#1", ",", " ", "\"\<Instant\>\""}], "]"}], "]"}], " ",
              "&"}], " ", ")"}], " ", "/@", " ", "\n", "\t\t\t\t\t", 
           RowBox[{"(", 
            RowBox[{"dateRange", " ", "//.", " ", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"All", ",", " ", "b_"}], "}"}], " ", ":>", " ", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"covid19Data", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "\"\<ConfirmedCases\>\""}], "]"}], 
                    "]"}], "[", "\"\<FirstDate\>\"", "]"}], ",", " ", "b"}], 
                 "}"}]}], ",", " ", "\n", "\t\t\t\t\t\t", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"a_", ",", " ", "All"}], "}"}], " ", ":>", " ", 
                RowBox[{"{", 
                 RowBox[{"a", ",", " ", 
                  RowBox[{
                   RowBox[{"covid19Data", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "\"\<ConfirmedCases\>\""}], "]"}], 
                    "]"}], "[", "\"\<LastDate\>\"", "]"}]}], "}"}]}]}], 
              "}"}]}], ")"}]}]}], ";", " ", "\n", "\t\t\t\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"MatchQ", "[", 
            RowBox[{"dateRange", ",", " ", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"DateObject", "[", 
                RowBox[{
                 RowBox[{"{", "__", "}"}], ",", " ", "_String", ",", " ", 
                 "_String", ",", " ", "_Real"}], "]"}], ",", " ", 
               RowBox[{"DateObject", "[", 
                RowBox[{
                 RowBox[{"{", "__", "}"}], ",", " ", "_String", ",", " ", 
                 "_String", ",", " ", "_Real"}], "]"}]}], "}"}]}], "]"}], ",",
            " ", "\n", "\t\t\t\t\t", "dateRange", ",", " ", "\n", 
           "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"Message", "[", 
             RowBox[{
              RowBox[{"fitDataWDR", "::", "optvg"}], ",", " ", 
              "\"\<dateRange\>\"", ",", " ", 
              RowBox[{"OptionValue", "[", "\"\<dateRange\>\"", "]"}], ",", 
              " ", "\"\<All or a list of two dates\>\""}], "]"}], ";", " ", 
            "\n", "\t\t\t\t\t", 
            RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t\t\t", 
          "]"}]}], ",", " ", "\n", "\t\t\t", "_", ",", " ", "\n", "\t\t\t\t", 
        RowBox[{
         RowBox[{"Message", "[", 
          RowBox[{
           RowBox[{"fitDataWDR", "::", "optvg"}], ",", " ", 
           "\"\<dateRange\>\"", ",", " ", 
           RowBox[{"OptionValue", "[", "\"\<dateRange\>\"", "]"}], ",", " ", 
           "\"\<All or a list of two dates\>\""}], "]"}], ";", " ", "\n", 
         "\t\t\t\t", 
         RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t", "]"}]}],
      ";", " ", "\n", "\t\t", "\n", "\t\t", 
     RowBox[{"Switch", "[", 
      RowBox[{"locale", ",", " ", "\n", "\t\t\t", 
       RowBox[{"Entity", "[", 
        RowBox[{"\"\<AdministrativeDivision\>\"", ",", " ", "_"}], "]"}], ",",
        " ", "\n", "\t\t\t\t", 
       RowBox[{
        RowBox[{"confirmed", " ", "=", " ", 
         RowBox[{"covid19Data", "[", 
          RowBox[{
           RowBox[{"SelectFirst", "[", 
            RowBox[{
             RowBox[{"#AdministrativeDivision", " ", "==", " ", "locale"}], 
             " ", "&"}], " ", "]"}], ",", " ", "\"\<ConfirmedCases\>\""}], 
          "]"}]}], ";", " ", "\n", "\t\t\t\t", 
        RowBox[{"recovered", " ", "=", " ", 
         RowBox[{"covid19Data", "[", 
          RowBox[{
           RowBox[{"SelectFirst", "[", 
            RowBox[{
             RowBox[{"#AdministrativeDivision", " ", "==", " ", "locale"}], 
             " ", "&"}], " ", "]"}], ",", " ", "\"\<RecoveredCases\>\""}], 
          "]"}]}], ";", " ", "\n", "\t\t\t\t", 
        RowBox[{"dead", " ", "=", " ", 
         RowBox[{"covid19Data", "[", 
          RowBox[{
           RowBox[{"SelectFirst", "[", 
            RowBox[{
             RowBox[{"#AdministrativeDivision", " ", "==", " ", "locale"}], 
             " ", "&"}], " ", "]"}], ",", " ", "\"\<Deaths\>\""}], "]"}]}]}], 
       ",", " ", "\n", "\t\t\t", 
       RowBox[{"Entity", "[", 
        RowBox[{"\"\<Country\>\"", ",", " ", "_"}], "]"}], ",", " ", "\n", 
       "\t\t\t\t", 
       RowBox[{
        RowBox[{"confirmed", " ", "=", " ", 
         RowBox[{"Plus", " ", "@@", " ", 
          RowBox[{"Normal", "[", 
           RowBox[{"covid19Data", "[", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{"#Country", " ", "==", " ", "locale"}], " ", "&"}], 
              " ", "]"}], ",", " ", "\"\<ConfirmedCases\>\""}], "]"}], 
           "]"}]}]}], ";", " ", "\n", "\t\t\t\t", 
        RowBox[{"recovered", " ", "=", " ", 
         RowBox[{"Plus", " ", "@@", " ", 
          RowBox[{"Normal", "[", 
           RowBox[{"covid19Data", "[", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{"#Country", " ", "==", " ", "locale"}], " ", "&"}], 
              " ", "]"}], ",", " ", "\"\<RecoveredCases\>\""}], "]"}], 
           "]"}]}]}], ";", " ", "\n", "\t\t\t\t", 
        RowBox[{"dead", " ", "=", " ", 
         RowBox[{"Plus", " ", "@@", " ", 
          RowBox[{"Normal", "[", 
           RowBox[{"covid19Data", "[", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{"#Country", " ", "==", " ", "locale"}], " ", "&"}], 
              " ", "]"}], ",", " ", "\"\<Deaths\>\""}], "]"}], "]"}]}]}]}]}], 
      "\n", "\t\t\t", "]"}], ";", " ", "\n", "\t\t", "\n", "\t\t", 
     RowBox[{"confirmed", " ", "=", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"correctionQ", " ", "&&", " ", "\n", "\t\t\t\t", 
         RowBox[{"MatchQ", "[", 
          RowBox[{"locale", ",", " ", 
           RowBox[{
            RowBox[{"Entity", "[", 
             RowBox[{"\"\<AdministrativeDivision\>\"", ",", " ", 
              RowBox[{"{", 
               RowBox[{"\"\<Hubei\>\"", ",", " ", "\"\<China\>\""}], "}"}]}], 
             "]"}], " ", "|", " ", 
            RowBox[{"Entity", "[", 
             RowBox[{"\"\<Country\>\"", ",", " ", "\"\<China\>\""}], 
             "]"}]}]}], "]"}]}], ",", " ", "\n", "\t\t\t", 
        RowBox[{"TimeSeries", "[", 
         RowBox[{"Apply", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#1", ",", " ", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"#1", " ", ">=", " ", 
                 RowBox[{"DateObject", "[", 
                  RowBox[{
                  "\"\<13 Feb 2020\>\"", ",", " ", "\"\<Instant\>\""}], 
                  "]"}]}], ",", " ", 
                RowBox[{"#2", " ", "-", " ", "13332"}], ",", " ", "#2"}], 
               "]"}]}], "}"}], " ", "&"}], " ", ",", " ", 
           RowBox[{"Normal", "[", "confirmed", "]"}], ",", " ", 
           RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", " ", "\n", "\t\t\t", 
        "confirmed"}], "\n", "\t\t\t", "]"}]}], ";", " ", "\n", "\t\t", "\n", 
     "\t\t", 
     RowBox[{"confirmed", " ", "=", " ", 
      RowBox[{"TimeSeriesWindow", "[", 
       RowBox[{"confirmed", ",", " ", "dateRange"}], "]"}]}], ";", " ", "\n", 
     "\t\t", 
     RowBox[{"recovered", " ", "=", " ", 
      RowBox[{"TimeSeriesWindow", "[", 
       RowBox[{"recovered", ",", " ", "dateRange"}], "]"}]}], ";", " ", "\n", 
     "\t\t", 
     RowBox[{"dead", " ", "=", " ", 
      RowBox[{"TimeSeriesWindow", "[", 
       RowBox[{"dead", ",", " ", "dateRange"}], "]"}]}], ";", " ", "\n", 
     "\t\t", "\n", "\t\t", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QuantityMagnitude", "[", 
           RowBox[{"DateDifference", "[", 
            RowBox[{"date0", ",", " ", 
             RowBox[{"First", "[", "#1", "]"}], ",", " ", "\"\<Day\>\""}], 
            "]"}], "]"}], ",", " ", 
          RowBox[{"Last", "[", "#1", "]"}]}], "}"}], " ", "&"}], " ", ",", 
       " ", "\n", "\t\t\t", 
       RowBox[{"Normal", " ", "/@", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"confirmed", " ", "-", " ", 
           RowBox[{"(", 
            RowBox[{"recovered", " ", "+", " ", "dead"}], ")"}]}], ",", " ", 
          "recovered", ",", " ", "dead"}], "}"}]}], ",", " ", 
       RowBox[{"{", "2", "}"}]}], "]"}]}]}], "\n", "\t\t", "]"}]}]}], "Code",
 CellChangeTimes->{{3.791975288590788*^9, 3.791975493767397*^9}, {
   3.7919755277266903`*^9, 3.791975529862247*^9}, {3.7919755641416397`*^9, 
   3.7919755738300447`*^9}, {3.79206497438785*^9, 3.792065011923758*^9}, {
   3.792065048354006*^9, 3.792065137374846*^9}, {3.792065196006762*^9, 
   3.792065262509305*^9}, {3.792251332165761*^9, 3.792251339004093*^9}, {
   3.7922514090281687`*^9, 3.792251447199684*^9}, {3.792251485424408*^9, 
   3.792251548460628*^9}, {3.792251618999198*^9, 3.7922516480676107`*^9}, {
   3.792251715479554*^9, 3.7922518986038017`*^9}, {3.792251944872662*^9, 
   3.792252017142509*^9}, {3.792252400834079*^9, 3.7922524701824102`*^9}, {
   3.792252524708219*^9, 3.792252568332457*^9}, 3.792343148372032*^9, {
   3.792343610973219*^9, 3.7923436137238827`*^9}, {3.7923439462503347`*^9, 
   3.792343951945382*^9}, {3.7924288440296097`*^9, 3.7924289922856073`*^9}, {
   3.792429341219191*^9, 3.792429354180642*^9}, {3.7924295470455*^9, 
   3.792429567691675*^9}, {3.7925994481030083`*^9, 3.792599459160543*^9}, {
   3.7925995546701317`*^9, 3.79259982658296*^9}, {3.792603634357692*^9, 
   3.792603795414365*^9}, {3.792604005389573*^9, 3.792604011409666*^9}, {
   3.7926040751537743`*^9, 3.792604079048397*^9}, {3.792680070834078*^9, 
   3.7926802269134007`*^9}, {3.792680258505474*^9, 3.792680390749405*^9}, {
   3.7926806473336973`*^9, 3.792680725097458*^9}, {3.792680846003161*^9, 
   3.79268086715028*^9}, {3.792681062078258*^9, 3.792681122992668*^9}, {
   3.7926817334491177`*^9, 3.792681758648752*^9}, 3.792682170054566*^9, {
   3.792682245522847*^9, 3.792682248345405*^9}, {3.792682306694759*^9, 
   3.7926824866417303`*^9}, {3.792682531863309*^9, 3.792682582581821*^9}, {
   3.792682642652125*^9, 3.792682796433895*^9}, {3.7926828753908978`*^9, 
   3.7926830124104137`*^9}, {3.792683193396613*^9, 3.7926831944605427`*^9}, {
   3.7926835558717833`*^9, 3.792683605700927*^9}, {3.792683671114949*^9, 
   3.7926836906989403`*^9}, {3.7926837242902527`*^9, 3.792683789263616*^9}, {
   3.792683860141748*^9, 3.792683925019878*^9}, {3.79268395744385*^9, 
   3.79268399129099*^9}, {3.792684027577765*^9, 3.792684039281999*^9}, {
   3.7926841112077723`*^9, 3.792684113293841*^9}, {3.7926841781893597`*^9, 
   3.7926841796196413`*^9}, {3.792684241074793*^9, 3.792684251080909*^9}, {
   3.792684315890663*^9, 3.792684318454487*^9}, {3.792684409492915*^9, 
   3.792684473080782*^9}, {3.792684510087997*^9, 3.792684523351156*^9}, {
   3.7926851830651083`*^9, 3.792685641248996*^9}, {3.7926860947756968`*^9, 
   3.792686121179042*^9}, {3.792686170119134*^9, 3.792686178566516*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"d602800f-a9d4-47e7-8a03-2ea709325544"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fitDataWDR", "[", 
     RowBox[{
      RowBox[{"country", ":", 
       TagBox[
        RowBox[{"Entity", "[", 
         RowBox[{"\"\<Country\>\"", ",", "_"}], "]"}],
        FullForm]}], ",", "date0_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"covid19Data", "[", 
       RowBox[{"All", ",", "\"\<Country\>\""}], "]"}], ",", "country"}], 
     "]"}]}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "confirmed", ",", "recovered", ",", " ", "dead", ",", "correctionQ"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"correctionQ", "=", 
       RowBox[{"OptionValue", "[", "\"\<makeCorrectionForHubei\>\"", "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MatchQ", "[", 
         RowBox[{"correctionQ", ",", 
          RowBox[{"Except", "[", 
           RowBox[{"True", "|", "False"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Message", "[", 
          RowBox[{
           RowBox[{"fitDataWDR", "::", "opttf"}], ",", 
           "\"\<makeCorrectionForHubei\>\"", ",", "correctionQ"}], "]"}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\[IndentingNewLine]", 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"confirmed", "=", 
       RowBox[{"Plus", "@@", 
        RowBox[{"Normal", "@", 
         RowBox[{"covid19Data", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"#Country", "\[Equal]", "country"}], "&"}], "]"}], ",", 
           "\"\<ConfirmedCases\>\""}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"recovered", "=", 
       RowBox[{"Plus", "@@", 
        RowBox[{"Normal", "@", 
         RowBox[{"covid19Data", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"#Country", "\[Equal]", "country"}], "&"}], "]"}], ",", 
           "\"\<RecoveredCases\>\""}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dead", "=", 
       RowBox[{"Plus", "@@", 
        RowBox[{"Normal", "@", 
         RowBox[{"covid19Data", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"#Country", "\[Equal]", "country"}], "&"}], "]"}], ",", 
           "\"\<Deaths\>\""}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"confirmed", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"correctionQ", " ", "&&", " ", 
          RowBox[{"country", "\[Equal]", 
           RowBox[{"Entity", "[", 
            RowBox[{"\"\<Country\>\"", ",", "\"\<China\>\""}], "]"}]}]}], ",",
          "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"#1", "\[GreaterEqual]", 
                 RowBox[{"DateObject", "[", 
                  RowBox[{"\"\<13 Feb 2020\>\"", ",", "\"\<Instant\>\""}], 
                  "]"}]}], ",", 
                RowBox[{"#2", "-", "13332"}], ",", "#2"}], "]"}]}], "}"}], 
            "&"}], "@@@", 
           RowBox[{"Normal", "@", "confirmed"}]}], "//", "TimeSeries"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", 
         "confirmed"}], "\[IndentingNewLine]", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"QuantityMagnitude", "@", 
            RowBox[{"DateDifference", "[", 
             RowBox[{"date0", ",", 
              RowBox[{"First", "@", "#"}], ",", "\"\<Day\>\""}], "]"}]}], ",", 
           RowBox[{"Last", "@", "#"}]}], "}"}], "&"}], ",", 
        RowBox[{"Normal", "/@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"confirmed", "-", 
            RowBox[{"(", 
             RowBox[{"recovered", "+", "dead"}], ")"}]}], ",", "recovered", 
           ",", "dead"}], "}"}]}], ",", 
        RowBox[{"{", "2", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  "*)"}]], "Code",
 CellChangeTimes->{{3.791975288590788*^9, 3.791975493767397*^9}, {
   3.7919755277266903`*^9, 3.791975529862247*^9}, {3.7919755641416397`*^9, 
   3.7919755738300447`*^9}, {3.79206497438785*^9, 3.792065011923758*^9}, {
   3.792065048354006*^9, 3.792065137374846*^9}, {3.792065196006762*^9, 
   3.792065262509305*^9}, {3.792251332165761*^9, 3.792251339004093*^9}, {
   3.7922514090281687`*^9, 3.792251447199684*^9}, {3.792251485424408*^9, 
   3.792251548460628*^9}, {3.792251618999198*^9, 3.7922516480676107`*^9}, {
   3.792251715479554*^9, 3.7922518986038017`*^9}, {3.792251944872662*^9, 
   3.792252017142509*^9}, {3.792252400834079*^9, 3.7922524701824102`*^9}, {
   3.792252524708219*^9, 3.792252568332457*^9}, 3.792343148372032*^9, {
   3.792343610973219*^9, 3.7923436137238827`*^9}, {3.7923439462503347`*^9, 
   3.792343951945382*^9}, {3.7924288440296097`*^9, 3.7924289922856073`*^9}, {
   3.792429341219191*^9, 3.792429354180642*^9}, {3.7924295470455*^9, 
   3.792429567691675*^9}, {3.7925994481030083`*^9, 3.792599459160543*^9}, {
   3.7925995546701317`*^9, 3.79259982658296*^9}, {3.792603634357692*^9, 
   3.792603795414365*^9}, {3.792604005389573*^9, 3.792604011409666*^9}, {
   3.7926040751537743`*^9, 3.792604079048397*^9}, {3.792680070834078*^9, 
   3.7926802269134007`*^9}, {3.792680258505474*^9, 3.792680390749405*^9}, {
   3.7926806473336973`*^9, 3.792680725097458*^9}, {3.792680846003161*^9, 
   3.79268086715028*^9}, {3.792681062078258*^9, 3.792681122992668*^9}, {
   3.7926817334491177`*^9, 3.792681758648752*^9}, 3.792682170054566*^9, {
   3.792682245522847*^9, 3.792682248345405*^9}, {3.792682306694759*^9, 
   3.7926824866417303`*^9}, {3.792682531863309*^9, 3.792682582581821*^9}, {
   3.792682642652125*^9, 3.792682796433895*^9}, {3.7926828753908978`*^9, 
   3.7926830124104137`*^9}, {3.792683193396613*^9, 3.7926831944605427`*^9}, {
   3.7926835558717833`*^9, 3.792683605700927*^9}, {3.792683671114949*^9, 
   3.7926836906989403`*^9}, {3.7926837242902527`*^9, 3.792683789263616*^9}, {
   3.792683860141748*^9, 3.792683925019878*^9}, {3.79268395744385*^9, 
   3.79268399129099*^9}, {3.792684027577765*^9, 3.792684039281999*^9}, {
   3.7926841112077723`*^9, 3.792684113293841*^9}, {3.7926841781893597`*^9, 
   3.7926841796196413`*^9}, {3.792684241074793*^9, 3.792684251080909*^9}, {
   3.792684315890663*^9, 3.792684318454487*^9}, {3.792684409492915*^9, 
   3.792684473080782*^9}, {3.792684510087997*^9, 3.792684523351156*^9}, 
   3.7926851830651083`*^9, {3.79268618047633*^9, 3.792686181252347*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"170bc241-1e15-4d4f-be09-4171c290fd46"]
}, Closed]],

Cell[CellGroupData[{

Cell["Fitting error", "Section",
 CellChangeTimes->{{3.792402750375814*^9, 
  3.792402752903825*^9}},ExpressionUUID->"d04f35da-9ef5-47da-a7f7-\
c3447f60c2dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Exp10", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"10", "^", "x"}]}]], "Code",
 CellChangeTimes->{{3.792282600713114*^9, 3.7922826122681723`*^9}, 
   3.7923510175169563`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"22aa23f4-4c27-49b7-86c0-4c5c2713815d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"toLog", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Log", "[", "x", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"fromLog", "[", "y_", "]"}], " ", ":=", " ", 
  RowBox[{"Exp", "[", "y", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"toLogit", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Log", "[", 
   RowBox[{"x", "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", "x"}], ")"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"fromLogit", "[", "y_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Exp", "[", "y", "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"1", " ", "+", " ", 
     RowBox[{"Exp", "[", "y", "]"}]}], ")"}]}]}]}], "Code",
 CellChangeTimes->{{3.792828162614887*^9, 3.792828313750463*^9}, {
   3.7928284312923594`*^9, 3.792828476483944*^9}, {3.792828542497551*^9, 
   3.792828545134602*^9}, 3.792829316271591*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"99365597-7bc8-4a83-a522-53588d918cae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"toLogit", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.792829040682435*^9, 3.792829061719203*^9}, 
   3.792829244516286*^9},ExpressionUUID->"902e8ec3-c97c-4f67-bd24-\
2c82fcef9a8e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
      CapForm["Butt"], LineBox[CompressedData["
1:eJwVV2k81OsXN2aYsc+MfUsYSkmSVMh52siSmz3SWLKlhaSkUIRbZKkkN12U
peLKTiHzJFEq2YqSJdmZ+VFJyfLv/+J8zqvzXc7n++IcVc8AW29+Pj6+L3/q
/93Ce6wNjzuYyOUY3JWs2IApOxUC++X1welAfXjFupV4Y2ba7TL5XbCPXjHk
ckMZDymxIkM0rcFxxlCuZ1YRW77pKv1X3h4CNggRsy0KmHVFOXdZxRlchSIT
NCfk8YLFoZsemmzgFxmWY62XxxPRnQ0eqR4QNfvTdD5ZDjt5zT25Ju8FjhuZ
CVyqHG7YqVD17LYPVJedZJCSZLGu+rbi7yqH4e5ec743arL4Nr/7A43sI6Be
x476gmUwbTDqrqPmcTg6nBQU6iuDqwfa3zyzDwSXuQI1PWkZHLjPy8I19QSY
yBZfXnohjXvX/70zQT4Y0r8tlWaBNE7JlMMaB06BTIvCdSOSNLaQyDeuu30a
VK0s6IcapXAl7/UmQiUUlELEX/U6S+GjbHbp3x5nQfjmh4HUVVJYrYXQWZl9
DkKU3ISz5yRxYiFztY1mBPQ5T98b/VcS71bOyRn3PQ+mfE8DXp6UxBGNt+hP
7S/Ao4D679aWkljfQDvBOTUSBHKMR18uMXGW9F+xcfLR0PCM+fVFMBOfe3Oz
wbE6GoZGRjRm7ZnYMWaAX/1ADFR+y1vFNGBi0dkT52tux8LJfa2jo/MMfKYz
5cyUymWYWTg0XZfAwHZXeisf4cvgmjEdzQpmYJ1dmrPRHnFg9BPTNQ8w8FBZ
1Qnl7HgQtXy7YWANA9tc/+hvrZkIj9QWoi+00rG2pfoDhaZEKGgXLmHU0DGN
fHR0xDcJaDaPhOl5dOz2eKmEY58MHbVWhjvD6VhaK1lnf+pV0H+QZyavS8eR
tLJVl+VTwIPhaZRuLoHXmF29VBqYAo5yCpVRmhK4PSZgvKcpBcKCL2b8Jktg
Flm7QOf0DWjMmqEmYXHcuJij09meCg0xsc7PQRyLfkvdpHLlHzg0nHDYyk4M
V2w4lbrnyz9ACn8dFLZZDLMD7eZOGN6CH6PxK6hKYriIK/G4YewW2KXnyKmP
iGLbsUvG/rtvwzBRFrI1QhSn9Z7dWbGUAcYFcRTjWhG8Xck5p88hE2jNXt6r
c0XwhMtmAVphJjRGUv61TRTBK6ZCDxWuy4Jgg+G/DniI4IDDBhp8n7KAU76M
FIVFMNOr6H7ulruwUSyby/YWxvud7xRNz+RATfOAbbWxECZ67IXvKuRCyYe3
D1O0hXAsm+ZttzMX7Pu211xREsJlhwIUKlNyoTg5WK1zgYbFj2+LObc5D97R
rF3L62j4edQHF8Hwe+AT6uN2yIyG9f5jCCrR8iHs4O0QDX8qfqnz3P2Nbj4Y
Xrthwn+Qit1LztREOOfD8J7NZl//ouKEyv7Az/n5kJCVpitiQMVjuLAnb28B
1CquYimQqTjjnXnJhuv/AS+c/0l4liAWWY50NVtRBMEy1xwYowI47bATW9u0
CJJNIg9ofxLArE5td8bxIrjXRNpv3yaATR50Hep5UgRF85YlzTUC+PGD1Ioq
nWJY39/uu/eqAObaTdVathTDugGB4GQTAexw/+ark2Kl0BKQcsH6DgVr2PDG
nsWXQ8pvm5SGKDJWOG9m6HunHB4P2I1nhpIxvTArXriqHOpTv/+6GEjG8zQ7
HZvBcrC595HiwybjVlx1sm9LBbDjl18nGZLxWd3IpZ/DFXC9VVv/yHd+3CIh
JaWDqmDjnFhdxzF+HNKyFdK+P4b5gctRF4NJWFynYvglrRpK44Iepx0j4ZwE
3Su/lapB89Wz4lIfEm6zWvWBvbsa7CIm6r/vJ+G1r6ROaqRWw+8T1AfF20i4
v4nIK91cA+0M2j4SjYTNnuaKvzlbCw8+fa3vyuTDsuWMPhKJA6E7pMdYlcuc
ysGdr98a14NlUYBEXtUCp97/X0XnqQYoOj2ucE5lnjOruU2i8FgT2BF/v7Yk
5jj8vwroihrNMNTGp69aP8sxWHavtHv4GlaUWJHv93/jvI7Wb2lc8xYS7p7r
tlX/ylFJnvz1gNcK4fKzX9IPTHMm5/r73um2w7xa0OGRBC4nZ6KmWTyxAybd
GPqfdk9wxJXvEUNDnXDLsU83RXuUc+VwhU8W6z18ZwnLKLsPcX6ggiG/811A
Ns5Gukc/c4L1GsplnnXD74KHTfTTvZz+hw3xbaofofvphHvIky7Ob//OdK2z
PbBBYIadbNDOWbuduuRT8wn8T5bMbDBu5pjdVfUtke2DCreWkPWJdZwQZTe1
z679sO3UsssVrxyO9pSDSNfeAWge0PJ2PZ0NkhLTtIb5ATByVTqb4MkBCie9
SP32ZwgTTRzJ6H4JR/RrPghZDsK5D8lBvWfaocDcM6vuxyCc3ST2/MNCF8xO
KtBHUr9At5rSC3eDXqiwMyOn7BqCIojLzor4DOf3xGSWjwwBu+Bqstn2IVDt
tejOjhkGwx/9rRm0UTDcHJ0irzcCyvnx6Rc0JsB1xdtfpI4R2HLOU1dIiwuz
zQmDgZGjwH7keUPcfBrSKOxgW9YYvL0Rv+QyOwOSfRV3+RvGoMbB0Dej+BsI
hEfabz0xDoToYoBRySzwPWAXDTIn4JeDnYl3+RwE3SpKYNZPgBJbL1RBeh6e
rL1EYxyfhNWgZRL23wIwLIK0o8SnoFt3dd8672XIeiohYsiYgoa+a5PPTyyD
7tbC8RnJKZCZ8Q3xjlgG69VjeR7yU2ASPqtfc3MZ4gTZqttZUxC5jxRS37wM
lGfmMnyGU/AtlEKw5PnQDyNVvgjvKbixduPzpot86NO61o7Q2inQOLwlf86H
hDInGeFkzhT81/LLcfQYCXk+sNNMeDoFuqHRbT3BJDTO6jqT1TgFfvrXrTui
SOiHYp9yU+sUWMQO7FjMICGG8JSv1PAUPJMqZu3qJiHTEerCQzEuOKG26I/W
/Kg4A1hDbC7MVawaYVuT0bez36geHly4Zmdfe8eRjAyc7k32HuKCjepi9SSb
jGokJMq6/LgQ8rf04RsBZNR4oW/7qyAueKw8LrX9Khn1eIa7lcZyYYVP7TXB
92QkuKrm1oWHXKBrtzJqvCnInBwQsVjMhU/T8WKkAAq60q/mebaMC71jRrv3
naEgRlqcVvAjLkT8PvhYOJ6ClIRcHvnWc0G27+avmWIK0pv8+c76PRcW710d
v71EQQeLDBjKS1xQdCs1EbsrgCpdfoq38vFAeUbrn8RCASQuWC16kcyDll36
kSseCyDsuo02TuPBaj/qLf9WAaQmvGu5XJL3577wP/loWQCNeNlwrbR4ELnh
42YbD0F0XOHoyzB7HszWrqC820BFjc/XNa134oG7Tg/vIlCRygmiYdCZB8yv
C9/M9lJRa1MQ3uP2B4854UU/TEV6p0KrpPx5kHOT1ZF/h4rm3sbm/neeB2Vy
dWwLWRq6EHMn8lM+Dy7u7VSulBFCYiFUC49CHmSmURLjNYXQLb9jzJEiHihV
bfoabiCEyiy3ZhPlPJAPEt5f4yiERhhtDfwcHnzdbnQ6N00IWWbw0bQ6eJDV
Heh5T00YdSf5tBa++8P/JD49Vl8YeUW+TtPr5kHA+wzNeFNhFOGVpmXcywNs
FPpc8IgwKl6ja/nXKA/uWCuo9FQII5kqt8RTv3ng0n5dO8tOBGXff+44v8iD
qqzo+2v9RJDurbUq5/kI2E+qER0PE0Hm4XNFlwQIWGW3I34xTwSF7UxqS5cg
oNrCT6hgUQQNvq2TqlcnIA18BdQrRVHAU1avqSYBa7QXpx1bRNFCaVzuq9UE
XM6UmW8dEUXSqY4G79YREFbTLJEhJ4b2uPKcxjYTYNJ5/XjLeTFUOKacLm5F
AC/XcbcjWxxd+jfGvc+aAEfK4y/W58WRly1X46ENAU9FrRJfZYkjpdra4r1O
BAyucTjuOSyO4pIONF7x/DMft2nyyikJ5LPrWbyrNwEix5yN1qZLoB2/1tho
+xGQr/am4/RTCfTLc77n1TECrLcfkZKj0ZGfwT8zwqEEUD4mTocdoKNdk3xV
H88RcCcm8YjvCTpSyfILy48gQN1hOvnF33T0XmgL1SKaAPOXO6QolXS0u/e9
0uWkP/qiLdYLyzPQymsmg/uvETCz09zSdiMDLZjm3Vt9g4DvWLLJ1JqByotP
6b24RYCg34ifSywDqUVL7aHmEbCjzjTdk4+JlraEiXXdJyDl+hNTpMpEH7hf
2vMKCLjOin+vs5OJkp3KDpqWEOB0ryYjLo6JjooqqsuUE3B67+cFtWIm2vM0
amy4kgCFG21a6l1MtLzG9mRMLQEvXE3s32pJoo/9j7c4cAioEHfGdQ6SqDJF
dYlVT0CyXuGqjIuS6PjS9KWGJgIsPQzspoYlkUXZfuuU5j9+V1rKvlGQQhp+
WNLrDQEBTWaL0bZS6FNbUga5g4BE5vLSu1dS6FHs3KGOdwSsTmI8NxWXRilG
blrZ3QSoXV+73sxBGgVON/KCegjYtfVHUPQdaWSZq1O+o4+AELdzR999k0aa
LqmhzM8EWOV/YpnvlUH8Eksmg18I0Ok8ZWFcJIP6nnlTSkcIsG27z39WURZV
n3nzMnKcgH8CBDUCU2RR6rpNSTZTBFwQ+h4TqyyHTgzetlclCLjhu5KvukYO
Wd2kKMzMEBA1NKbSeFoerbY62o+/E9A6yNPLPKCAKKTOnOS5P3nf2qOYGKWI
BiqM/N3nCXi/JNYiq6aMav2z1+su/tk3dvLVG1NBN1VEZpeX/+Q1edP//0P0
P0k4vXM=
       "]]},
     Annotation[#, "Charting`Private`Tag$1394450#1"]& ]}, {}},
  ExpressionUUID -> "afc221c0-5fac-4647-936c-1160ad87e038",
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Automatic,
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{-15., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-10., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {10., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {15., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-20., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-19., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-18., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-17., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-14., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-12., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-11., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {12., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {13., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {14., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {16., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {17., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {18., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {19., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {20., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.25, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.3, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.35, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.45, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.55, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.65, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.7, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.75, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.85, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.95, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7928290630614758`*^9, {3.792829245680027*^9, 3.792829255164794*^9}},
 CellLabel->
  "Out[298]=",ExpressionUUID->"fa6a6c6e-eda4-45da-82fd-55454bbcf5af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"toLog", "[", "x", "]"}], "//", "fromLog"}]], "Input",
 CellChangeTimes->{{3.792828478555182*^9, 
  3.792828488011314*^9}},ExpressionUUID->"fde3b7f4-8f60-4797-b46d-\
d901443c60fd"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.7928284886949167`*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"f2c58929-36f0-404d-b917-66ca2b8f02a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"toLogit", "[", "x", "]"}], "//", "fromLogit"}], "//", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"x", "\[Element]", "Reals"}]}]}], "]"}], "&"}]}]], "Input",
 CellChangeTimes->{{3.7928284902837677`*^9, 3.792828526304879*^9}, {
  3.792829325942689*^9, 
  3.7928293351573257`*^9}},ExpressionUUID->"c586016e-1d56-4187-aa16-\
87eabf877d94"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{{3.792828501132495*^9, 3.792828549885694*^9}},
 CellLabel->
  "Out[290]=",ExpressionUUID->"7bfbb06b-7898-42ee-8a47-6bb1e811a3f1"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "sumSquaredError", "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"sumSquaredError", "::", "usage"}], " ", "=", " ", 
    "\"\<sumSquaredError[data, model, parameters] gives the sum of \\\n\
squared errors for the model with the given parameters for the given data. \
The \\\ndata and model can be lists of the same length.\>\""}], ";"}], 
  " "}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"sumSquaredError", "::", "len"}], " ", "=", " ", 
    "\"\<The length of the data list `` is not the same as the length \\\nof \
the model list ``.\>\""}], ";"}], " "}], "\n", 
 RowBox[{
  RowBox[{"sumSquaredError", "[", 
   RowBox[{
    RowBox[{"fitData", ":", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"_", "?", "NumberQ"}], ",", " ", 
         RowBox[{"_", "?", "NumberQ"}]}], "}"}], ".."}], "}"}]}], ",", " ", 
    RowBox[{"model", ":", 
     RowBox[{"Except", "[", 
      RowBox[{"{", "__", "}"}], "]"}]}], ",", " ", "params_"}], "]"}], " ", ":=",
   " ", "\n", "\t", 
  RowBox[{"sumSquaredError", "[", 
   RowBox[{
    RowBox[{"{", "fitData", "}"}], ",", " ", 
    RowBox[{"{", "model", "}"}], ",", " ", "params"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"sumSquaredError", "[", 
    RowBox[{
     RowBox[{"fitDataList", ":", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"_", "?", "NumberQ"}], ",", " ", 
            RowBox[{"_", "?", "NumberQ"}]}], "}"}], ".."}], "}"}], ".."}], 
       "}"}]}], ",", " ", 
     RowBox[{"modelList", ":", 
      RowBox[{"{", "__", "}"}]}], ",", " ", "\n", "\t\t", 
     RowBox[{"params", ":", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"_", " ", "->", " ", 
          RowBox[{"_", "?", "NumberQ"}]}], ")"}], ".."}], "}"}]}]}], "]"}], 
   " ", "/;", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "fitDataList", "]"}], " ", "==", " ", 
     RowBox[{"Length", "[", "modelList", "]"}]}], " ", "||", " ", "\n", 
    "\t\t", 
    RowBox[{"Message", "[", 
     RowBox[{
      RowBox[{"sumSquaredError", "::", "len"}], ",", " ", 
      RowBox[{"Length", "[", "fitDataList", "]"}], ",", " ", 
      RowBox[{"Length", "[", "modelList", "]"}]}], "]"}]}]}], " ", ":=", " ", 
  "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "time", ",", " ", "observed", ",", " ", "calculated", ",", " ", "sse"}], 
     "}"}], ",", " ", "\n", "\t\t", 
    RowBox[{
     RowBox[{"sse", " ", "=", " ", 
      RowBox[{
       RowBox[{"MapThread", "[", "\n", "\t\t\t", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"data", ",", " ", "model"}], "}"}], ",", " ", "\n", 
           "\t\t\t\t", 
           RowBox[{
            RowBox[{"time", " ", "=", " ", 
             RowBox[{"First", " ", "/@", " ", "data"}]}], ";", " ", "\n", 
            "\t\t\t\t", 
            RowBox[{"observed", " ", "=", " ", 
             RowBox[{"Last", " ", "/@", " ", "data"}]}], ";", " ", "\n", 
            "\t\t\t\t", 
            RowBox[{"calculated", " ", "=", " ", 
             RowBox[{"Quiet", "[", 
              RowBox[{"Check", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"model", " ", "/@", " ", "time"}], " ", "/.", " ", 
                 "params"}], ",", " ", "$Failed"}], "]"}], "]"}]}], ";", " ", 
            "\n", "\t\t\t\t", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"calculated", " ", "-", " ", "observed"}], ")"}], "^", 
             "2"}]}]}], "\n", "\t\t\t\t", "]"}], ",", " ", "\n", "\t\t\t", 
         RowBox[{"{", 
          RowBox[{"fitDataList", ",", " ", "modelList"}], "}"}]}], "\n", 
        "\t\t\t", "]"}], " ", "//", " ", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"#", ",", " ", "2"}], "]"}], "&"}]}]}], ";", " ", "\n", 
     "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"sse", ",", " ", "$Failed"}], "]"}], ",", " ", "\n", "\t\t\t",
        "sse", ",", " ", "\n", "\t\t  ", 
       RowBox[{"(*", " ", "else", " ", "*)"}], "\n", "\t\t\t", 
       RowBox[{"Sqrt", "[", "$MaxMachineNumber", "]"}]}], "\n", "\t\t\t", 
      "]"}]}]}], "\n", "\t\t", "]"}]}]}], "Code",
 CellChangeTimes->{{3.792146135117447*^9, 3.792146309012884*^9}, {
   3.792147257639427*^9, 3.7921473948651867`*^9}, 3.792151091664019*^9, {
   3.7921511404293003`*^9, 3.792151143197048*^9}, {3.7921511835594683`*^9, 
   3.792151266916642*^9}, {3.792261398540921*^9, 3.792261401175178*^9}, {
   3.792310311041988*^9, 3.792310571338513*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"8be35864-ecca-4174-808c-caf33b502ce5"]
}, Closed]],

Cell[CellGroupData[{

Cell["SEIRD", "Section",
 CellChangeTimes->{{3.7924027910633707`*^9, 3.792402793662904*^9}, 
   3.792403910178136*^9},ExpressionUUID->"8b28b90f-61f3-4a55-a6d6-\
82e9a8615fae"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "fitErrorSEIRD", "]"}], "\n", 
 RowBox[{
  RowBox[{"fitErrorSEIRD", "[", 
   RowBox[{
   "fitData_", ",", " ", "\n", "\t\t", "pop_", ",", " ", "I0_", ",", " ", 
    "\n", "\t\t", 
    RowBox[{
     RowBox[{"(", "logBeta_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logZeta_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logGamma_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logMu_", ")"}], "?", "NumberQ"}]}], "]"}], " ", ":=", " ", 
  "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"params", " ", "=", " ", 
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\[Beta]", ",", " ", "\[Zeta]", ",", " ", "\[Gamma]", ",", " ", 
          "\[Mu]"}], "}"}], " ", "->", " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"{", 
          RowBox[{
          "logBeta", ",", " ", "logZeta", ",", " ", "logGamma", ",", " ", 
           "logMu"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", " ", "\n", "\t\t", 
    RowBox[{"sumSquaredError", "[", "\n", "\t\t\t", 
     RowBox[{"fitData", ",", " ", "\n", "\t\t\t", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"infectedSEIRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Gamma]", ",", " ", "\[Mu]"}], "]"}], ",", " ", "\n", 
        "\t\t\t\t", 
        RowBox[{"recoveredSEIRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Gamma]", ",", " ", "\[Mu]"}], "]"}], ",", " ", "\n", 
        "\t\t\t\t", 
        RowBox[{"deadSEIRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Gamma]", ",", " ", "\[Mu]"}], "]"}]}], "}"}], ",", " ", 
      "\n", "\t\t\t", "params"}], "\n", "\t\t\t", "]"}]}], "\n", "\t\t", 
   "]"}]}]}], "Code",
 CellChangeTimes->{{3.792350669067708*^9, 3.7923508067793913`*^9}, {
   3.792350855018297*^9, 3.792350906535918*^9}, {3.7923509623837643`*^9, 
   3.7923509651829987`*^9}, {3.7923511098847313`*^9, 
   3.7923511100032682`*^9}, {3.792353307110271*^9, 3.792353309477016*^9}, 
   3.792355195429665*^9, {3.792355619539825*^9, 3.792355684542968*^9}, {
   3.7924003349690123`*^9, 3.792400339704535*^9}, {3.7924029752614403`*^9, 
   3.792403028991947*^9}, {3.792403567584937*^9, 3.7924036096396*^9}, {
   3.792403927238126*^9, 3.7924039816735353`*^9}, 3.792404013643457*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"e46ac30b-5f3e-4cef-b8c2-cfc9c008e449"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "plotFitSEIRD", "]"}], "\n", 
 RowBox[{
  RowBox[{"plotFitSEIRD", "[", 
   RowBox[{"fitData_", ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "pop_", ",", " ", "I0_", ",", " ", "beta_", ",", " ", "zeta_", ",", " ", 
      "gamma_", ",", " ", "mu_"}], "}"}], ",", " ", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", 
      RowBox[{"{", 
       RowBox[{"Plot", ",", " ", "ListPlot"}], "}"}], "]"}]}]}], "]"}], " ", ":=",
   " ", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmax", " ", "=", " ", "100"}], ",", " ", 
      RowBox[{"ymax", " ", "=", " ", "40000"}], ",", " ", 
      RowBox[{"scale", " ", "=", " ", 
       RowBox[{"50000", "/", "pop"}]}]}], "}"}], ",", " ", "\n", "\t\t", 
    RowBox[{"Show", "[", "\n", "\t\t\t", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", "\n", "\t\t\t\t", 
          RowBox[{
           RowBox[{"scale", "*", 
            RowBox[{
             RowBox[{"susceptibleSEIRD", "[", 
              RowBox[{
              "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
               " ", "gamma", ",", " ", "mu"}], "]"}], "[", "t", "]"}]}], ",", 
           " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"exposedSEIRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "mu"}], "]"}], "[", "t", "]"}], ",", 
           " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"infectedSEIRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "mu"}], "]"}], "[", "t", "]"}], ",", 
           " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"recoveredSEIRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "mu"}], "]"}], "[", "t", "]"}], ",", 
           " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"deadSEIRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "mu"}], "]"}], "[", "t", "]"}]}], "}"}],
          " ", "//", " ", "Evaluate"}], ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"{", 
         RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}], ",", " ", 
        "\n", "\t\t\t\t", 
        RowBox[{"PlotRangePadding", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"Automatic", ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Scaled", "[", "0.03", "]"}], ",", " ", 
             RowBox[{"Scaled", "[", "0.03", "]"}]}], "}"}]}], "}"}]}], ",", 
        " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotLegends", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"N", "[", "scale", "]"}], "*", "\[ScriptCapitalS]"}], ",",
            " ", "\[ScriptCapitalE]", ",", " ", "\[ScriptCapitalI]", ",", " ",
            "\[ScriptCapitalR]", ",", " ", "\[ScriptCapitalD]"}], "}"}]}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotLabel", " ", "->", " ", 
         RowBox[{"StringForm", "[", 
          RowBox[{
          "\"\<\[ScriptCapitalN] = ``, SSE = ``\>\"", ",", " ", "pop", ",", 
           " ", "\n", "\t\t\t\t\t", 
           RowBox[{"fitErrorSEIRD", "[", 
            RowBox[{
            "fitData", ",", " ", "pop", ",", " ", "I0", ",", " ", "\n", 
             "\t\t\t\t\t\t", 
             RowBox[{"Log", "[", "beta", "]"}], ",", " ", 
             RowBox[{"Log", "[", "zeta", "]"}], ",", " ", 
             RowBox[{"Log", "[", "gamma", "]"}], ",", " ", 
             RowBox[{"Log", "[", "mu", "]"}]}], "]"}]}], "]"}]}], ",", " ", 
        "\n", "\t\t\t\t", 
        RowBox[{"FrameLabel", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<time\>\"", ",", " ", "\"\<# people\>\""}], "}"}]}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotStyle", " ", "->", " ", 
         RowBox[{"{", "\n", "\t\t\t\t\t", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Green\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Sunglow\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Scarlet\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<NavyBlue\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<OuterSpace\>\"", "]"}]}], "\n", "\t\t\t\t\t", "}"}]}], ",", 
        "\n", "\t\t\t\t", 
        RowBox[{"Evaluate", "@", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", " ", 
           RowBox[{"Options", "[", "Plot", "]"}]}], "]"}]}], ",", " ", "\n", 
        "\t\t\t\t", 
        RowBox[{"PlotRange", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "tmax"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "ymax"}], "}"}]}], "}"}]}], ",", " ", "\n",
         "\t\t\t\t", 
        RowBox[{"GridLines", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"None", ",", " ", "None"}], "}"}]}]}], "\n", "\t\t\t\t", 
       "]"}], ",", " ", "\n", "\t\t\t", 
      RowBox[{"ListPlot", "[", 
       RowBox[{"fitData", ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotStyle", " ", "->", " ", 
         RowBox[{"{", "\n", "\t\t\t\t\t", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Scarlet\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<NavyBlue\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<OuterSpace\>\"", "]"}]}], "\n", "\t\t\t\t\t", "}"}]}], ",", 
        "\n", "\t\t\t\t", 
        RowBox[{"Evaluate", "@", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", " ", 
           RowBox[{"Options", "[", "ListPlot", "]"}]}], "]"}]}]}], "\n", 
       "\t\t\t\t", "]"}]}], "\n", "\t\t\t", "]"}]}], "\n", "\t\t", 
   "]"}]}]}], "Code",
 CellChangeTimes->{{3.7923525323727617`*^9, 3.792352574483754*^9}, {
   3.792352614863934*^9, 3.792352730627131*^9}, {3.7923527701148567`*^9, 
   3.792352786393939*^9}, {3.792352852001048*^9, 3.792352864169425*^9}, {
   3.792352952478792*^9, 3.7923529546666727`*^9}, {3.792353166991868*^9, 
   3.79235318353627*^9}, {3.7923534771311007`*^9, 3.792353514928952*^9}, 
   3.792355195479148*^9, {3.792355696634768*^9, 3.792355885826722*^9}, {
   3.792400349939271*^9, 3.792400367305859*^9}, {3.79240066401698*^9, 
   3.792400668006661*^9}, {3.7924011954216347`*^9, 3.7924012004792223`*^9}, {
   3.792403211408025*^9, 3.7924033080418453`*^9}, {3.7924033452880096`*^9, 
   3.792403407125783*^9}, {3.792403451173809*^9, 3.7924034890597563`*^9}, {
   3.792403536121573*^9, 3.792403537969922*^9}, {3.792403822644065*^9, 
   3.792403838026383*^9}, {3.792403933676025*^9, 3.792403941833068*^9}, 
   3.792404472990106*^9, {3.792404569066637*^9, 3.7924045698805103`*^9}, {
   3.792404604441498*^9, 3.792404655149557*^9}, 3.792419573686696*^9, {
   3.792433673156706*^9, 3.792433764438423*^9}, {3.792433850111534*^9, 
   3.792433860842516*^9}, {3.79243429824817*^9, 3.792434317368742*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"1c980817-0a23-45b5-a33b-131e1529037a"]
}, Closed]],

Cell[CellGroupData[{

Cell["SEIQRD", "Section",
 CellChangeTimes->{{3.7924027910633707`*^9, 
  3.792402793662904*^9}},ExpressionUUID->"a4004430-241f-4beb-829f-\
32265e62b6fb"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "fitErrorSEIQRD", "]"}], "\n", 
 RowBox[{
  RowBox[{"fitErrorSEIQRD", "[", 
   RowBox[{
   "fitData_", ",", " ", "\n", "\t\t", "pop_", ",", " ", "I0_", ",", " ", 
    "\n", "\t\t", 
    RowBox[{
     RowBox[{"(", "logBeta_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logZeta_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logGamma_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logDelta_", ")"}], "?", "NumberQ"}], ",", " ", "\n", 
    "\t\t", 
    RowBox[{
     RowBox[{"(", "logMu_", ")"}], "?", "NumberQ"}]}], "]"}], " ", ":=", " ", 
  "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"params", " ", "=", " ", 
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\[Beta]", ",", " ", "\[Zeta]", ",", " ", "\[Gamma]", ",", " ", 
          "\[Delta]", ",", " ", "\[Mu]"}], "}"}], " ", "->", " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"{", 
          RowBox[{
          "logBeta", ",", " ", "logZeta", ",", " ", "logGamma", ",", " ", 
           "logDelta", ",", " ", "logMu"}], "}"}], "]"}]}], "]"}]}], "}"}], 
    ",", " ", "\n", "\t\t", 
    RowBox[{"sumSquaredError", "[", "\n", "\t\t\t", 
     RowBox[{"fitData", ",", " ", "\n", "\t\t\t", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"quarantinedSEIQRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Gamma]", ",", " ", "\[Delta]", ",", " ", "\[Mu]"}], "]"}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"recoveredSEIQRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Gamma]", ",", " ", "\[Delta]", ",", " ", "\[Mu]"}], "]"}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"deadSEIQRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Gamma]", ",", " ", "\[Delta]", ",", " ", "\[Mu]"}], 
         "]"}]}], "}"}], ",", " ", "\n", "\t\t\t", "params"}], "\n", "\t\t\t",
      "]"}]}], "\n", "\t\t", "]"}]}]}], "Code",
 CellChangeTimes->{{3.792350669067708*^9, 3.7923508067793913`*^9}, {
   3.792350855018297*^9, 3.792350906535918*^9}, {3.7923509623837643`*^9, 
   3.7923509651829987`*^9}, {3.7923511098847313`*^9, 
   3.7923511100032682`*^9}, {3.792353307110271*^9, 3.792353309477016*^9}, 
   3.792355195429665*^9, {3.792355619539825*^9, 3.792355684542968*^9}, {
   3.7924003349690123`*^9, 3.792400339704535*^9}, {3.7924029752614403`*^9, 
   3.792403028991947*^9}, {3.792403567584937*^9, 3.7924036096396*^9}, 
   3.792404024947777*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"382be83b-bfe1-46ed-aa37-2383a36d2e8f"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "plotFitSEIQRD", "]"}], "\n", 
 RowBox[{
  RowBox[{"plotFitSEIQRD", "[", 
   RowBox[{"fitData_", ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "pop_", ",", " ", "I0_", ",", " ", "beta_", ",", " ", "zeta_", ",", " ", 
      "gamma_", ",", " ", "delta_", ",", " ", "mu_"}], "}"}], ",", " ", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", 
      RowBox[{"{", 
       RowBox[{"Plot", ",", " ", "ListPlot"}], "}"}], "]"}]}]}], "]"}], " ", ":=",
   " ", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmax", " ", "=", " ", "100"}], ",", " ", 
      RowBox[{"ymax", " ", "=", " ", "40000"}], ",", " ", 
      RowBox[{"scale", " ", "=", " ", 
       RowBox[{"50000", "/", "pop"}]}]}], "}"}], ",", " ", "\n", "\t\t", 
    RowBox[{"Show", "[", "\n", "\t\t\t", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", "\n", "\t\t\t\t", 
          RowBox[{
           RowBox[{"scale", "*", 
            RowBox[{
             RowBox[{"susceptibleSEIQRD", "[", 
              RowBox[{
              "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
               " ", "gamma", ",", " ", "delta", ",", " ", "mu"}], "]"}], "[", 
             "t", "]"}]}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"exposedSEIQRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "delta", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"infectedSEIQRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "delta", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"quarantinedSEIQRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "delta", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"recoveredSEIQRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "delta", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"deadSEIQRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "gamma", ",", " ", "delta", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}]}], "}"}], " ", "//", " ", "Evaluate"}], ",", " ", "\n",
         "\t\t\t\t", 
        RowBox[{"{", 
         RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}], ",", " ", 
        "\n", "\t\t\t\t", 
        RowBox[{"PlotRangePadding", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"Automatic", ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Scaled", "[", "0.03", "]"}], ",", " ", 
             RowBox[{"Scaled", "[", "0.03", "]"}]}], "}"}]}], "}"}]}], ",", 
        " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotLegends", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"N", "[", "scale", "]"}], "*", "\[ScriptCapitalS]"}], ",",
            " ", "\[ScriptCapitalE]", ",", " ", "\[ScriptCapitalI]", ",", " ",
            "\[ScriptCapitalQ]", ",", " ", "\[ScriptCapitalR]", ",", " ", 
           "\[ScriptCapitalD]"}], "}"}]}], ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotLabel", " ", "->", " ", 
         RowBox[{"StringForm", "[", 
          RowBox[{
          "\"\<\[ScriptCapitalN] = ``, SSE = ``\>\"", ",", " ", "pop", ",", 
           "\n", "\t\t\t\t\t", 
           RowBox[{"fitErrorSEIQRD", "[", 
            RowBox[{
            "fitData", ",", " ", "pop", ",", " ", "I0", ",", " ", "\n", 
             "\t\t\t\t\t\t", 
             RowBox[{"Log", "[", "beta", "]"}], ",", " ", 
             RowBox[{"Log", "[", "zeta", "]"}], ",", " ", 
             RowBox[{"Log", "[", "gamma", "]"}], ",", " ", 
             RowBox[{"Log", "[", "delta", "]"}], ",", " ", 
             RowBox[{"Log", "[", "mu", "]"}]}], "]"}]}], "]"}]}], ",", " ", 
        "\n", "\t\t\t\t", 
        RowBox[{"FrameLabel", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<time\>\"", ",", " ", "\"\<# people\>\""}], "}"}]}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotStyle", " ", "->", " ", 
         RowBox[{"{", "\n", "\t\t\t\t\t", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Green\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Sunglow\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Scarlet\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Fuchsia\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<NavyBlue\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<OuterSpace\>\"", "]"}]}], "\n", "\t\t\t\t\t", "}"}]}], ",", 
        "\n", "\t\t\t\t", 
        RowBox[{"Evaluate", "@", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", " ", 
           RowBox[{"Options", "[", "Plot", "]"}]}], "]"}]}], ",", " ", "\n", 
        "\t\t\t\t", 
        RowBox[{"PlotRange", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "tmax"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "ymax"}], "}"}]}], "}"}]}], ",", " ", "\n",
         "\t\t\t\t", 
        RowBox[{"GridLines", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"None", ",", " ", "None"}], "}"}]}]}], "\n", "\t\t\t\t", 
       "]"}], ",", " ", "\n", "\t\t\t", 
      RowBox[{"ListPlot", "[", 
       RowBox[{"fitData", ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotStyle", " ", "->", " ", 
         RowBox[{"{", "\n", "\t\t\t\t\t", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Fuchsia\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<NavyBlue\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<OuterSpace\>\"", "]"}]}], "\n", "\t\t\t\t\t", "}"}]}], ",", 
        "\n", "\t\t\t\t", 
        RowBox[{"Evaluate", "@", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", " ", 
           RowBox[{"Options", "[", "Plot", "]"}]}], "]"}]}]}], "\n", 
       "\t\t\t\t", "]"}]}], "\n", "\t\t\t", "]"}]}], "\n", "\t\t", 
   "]"}]}]}], "Code",
 CellChangeTimes->{{3.7923525323727617`*^9, 3.792352574483754*^9}, {
   3.792352614863934*^9, 3.792352730627131*^9}, {3.7923527701148567`*^9, 
   3.792352786393939*^9}, {3.792352852001048*^9, 3.792352864169425*^9}, {
   3.792352952478792*^9, 3.7923529546666727`*^9}, {3.792353166991868*^9, 
   3.79235318353627*^9}, {3.7923534771311007`*^9, 3.792353514928952*^9}, 
   3.792355195479148*^9, {3.792355696634768*^9, 3.792355885826722*^9}, {
   3.792400349939271*^9, 3.792400367305859*^9}, {3.79240066401698*^9, 
   3.792400668006661*^9}, {3.7924011954216347`*^9, 3.7924012004792223`*^9}, {
   3.792403211408025*^9, 3.7924033080418453`*^9}, {3.7924033452880096`*^9, 
   3.792403407125783*^9}, {3.792403451173809*^9, 3.7924034890597563`*^9}, {
   3.792403536121573*^9, 3.792403537969922*^9}, {3.792403822644065*^9, 
   3.792403838026383*^9}, {3.792417498861058*^9, 3.792417505170742*^9}, {
   3.792419525154255*^9, 3.7924195399276123`*^9}, 3.792419955937891*^9, {
   3.792434234421505*^9, 3.792434271546279*^9}, {3.792434350233083*^9, 
   3.7924343588108683`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"8c11c621-289e-45bb-b891-f409b19639ff"]
}, Closed]],

Cell[CellGroupData[{

Cell["SEIsaRD", "Section",
 CellChangeTimes->{{3.7924027910633707`*^9, 3.792402793662904*^9}, {
  3.792829525976166*^9, 
  3.792829526703642*^9}},ExpressionUUID->"7901f667-9f36-4520-9ac2-\
ea9cffc5209d"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "fitErrorSEIsaRD", "]"}], "\n", 
 RowBox[{
  RowBox[{"fitErrorSEIsaRD", "[", 
   RowBox[{
   "fitData_", ",", " ", "\n", "\t\t", "pop_", ",", " ", "I0_", ",", " ", 
    "\n", "\t\t", 
    RowBox[{
     RowBox[{"(", "logBeta_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logZeta_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logitRho_", ")"}], "?", "NumberQ"}], ",", " ", 
    RowBox[{
     RowBox[{"(", "logGamma_", ")"}], "?", "NumberQ"}], ",", " ", "\n", 
    "\t\t", 
    RowBox[{
     RowBox[{"(", "logMu_", ")"}], "?", "NumberQ"}]}], "]"}], " ", ":=", " ", 
  "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"params", " ", "=", " ", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"#1", " ", "\[Rule]", " ", 
          RowBox[{"#2", "[", "#3", "]"}]}], "&"}], ",", " ", "\n", "\t\t\t", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\[Beta]", ",", " ", "\[Zeta]", ",", " ", "\[Rho]", ",", " ", 
            "\[Gamma]", ",", " ", "\[Mu]"}], "}"}], ",", " ", "\n", "\t\t\t", 
          RowBox[{"{", 
           RowBox[{
           "fromLog", ",", " ", "fromLog", ",", " ", "fromLogit", ",", " ", 
            "fromLog", ",", " ", "fromLog"}], "}"}], ",", " ", "\n", "\t\t\t", 
          RowBox[{"{", 
           RowBox[{
           "logBeta", ",", " ", "logZeta", ",", " ", "logitRho", ",", " ", 
            "logGamma", ",", " ", "logMu"}], "}"}]}], "}"}]}], "]"}]}], "}"}],
     ",", " ", "\n", "\t\t", 
    RowBox[{"sumSquaredError", "[", "\n", "\t\t\t", 
     RowBox[{"fitData", ",", " ", "\n", "\t\t\t", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"infectedSymptomaticSEIsaRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Rho]", ",", " ", "\[Gamma]", ",", " ", "\[Mu]"}], "]"}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"recoveredSymptomaticSEIsaRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Rho]", ",", 
          " ", "\[Zeta]", ",", " ", "\[Gamma]", ",", " ", "\[Mu]"}], "]"}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"deadSEIsaRD", "[", 
         RowBox[{
         "pop", ",", " ", "I0", ",", " ", "\[Beta]", ",", " ", "\[Zeta]", ",",
           " ", "\[Rho]", ",", " ", "\[Gamma]", ",", " ", "\[Mu]"}], "]"}]}], 
       "}"}], ",", " ", "\n", "\t\t\t", "params"}], "\n", "\t\t\t", "]"}]}], 
   "\n", "\t\t", "]"}]}]}], "Code",
 CellChangeTimes->{{3.792350669067708*^9, 3.7923508067793913`*^9}, {
   3.792350855018297*^9, 3.792350906535918*^9}, {3.7923509623837643`*^9, 
   3.7923509651829987`*^9}, {3.7923511098847313`*^9, 
   3.7923511100032682`*^9}, {3.792353307110271*^9, 3.792353309477016*^9}, 
   3.792355195429665*^9, {3.792355619539825*^9, 3.792355684542968*^9}, {
   3.7924003349690123`*^9, 3.792400339704535*^9}, {3.7924029752614403`*^9, 
   3.792403028991947*^9}, {3.792403567584937*^9, 3.7924036096396*^9}, 
   3.792404024947777*^9, {3.792795961432015*^9, 3.7927959658782883`*^9}, {
   3.792796285093473*^9, 3.7927963866891108`*^9}, {3.792796463201232*^9, 
   3.79279647885452*^9}, {3.792829615352663*^9, 3.7928297439129553`*^9}, {
   3.7928298616497097`*^9, 3.792829899236697*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"124f094d-a5e2-49ef-a804-e64bdb5415d7"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "plotFitSEIsaRD", "]"}], "\n", 
 RowBox[{
  RowBox[{"plotFitSEIsaRD", "[", 
   RowBox[{"fitData_", ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "pop_", ",", " ", "I0_", ",", " ", "beta_", ",", " ", "zeta_", ",", " ", 
      "rho_", ",", " ", "gamma_", ",", " ", "mu_"}], "}"}], ",", " ", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", 
      RowBox[{"{", 
       RowBox[{"Plot", ",", " ", "ListPlot"}], "}"}], "]"}]}]}], "]"}], " ", ":=",
   " ", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmax", " ", "=", " ", "100"}], ",", " ", 
      RowBox[{"ymax", " ", "=", " ", "40000"}], ",", " ", 
      RowBox[{"scale", " ", "=", " ", 
       RowBox[{"50000", "/", "pop"}]}]}], "}"}], ",", " ", "\n", "\t\t", 
    RowBox[{"Show", "[", "\n", "\t\t\t", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", "\n", "\t\t\t\t", 
          RowBox[{
           RowBox[{"scale", "*", 
            RowBox[{
             RowBox[{"susceptibleSEIsaRD", "[", 
              RowBox[{
              "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
               " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
             "t", "]"}]}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"exposedSEIsaRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"infectedSymptomaticSEIsaRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"infectedAsymptomaticSEIsaRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"recoveredSymptomaticSEIsaRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"recoveredAsymptomaticSEIsaRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}], ",", " ", "\n", "\t\t\t\t", 
           RowBox[{
            RowBox[{"deadSEIsaRD", "[", 
             RowBox[{
             "pop", ",", " ", "I0", ",", " ", "beta", ",", " ", "zeta", ",", 
              " ", "rho", ",", " ", "gamma", ",", " ", "mu"}], "]"}], "[", 
            "t", "]"}]}], "}"}], " ", "//", " ", "Evaluate"}], ",", " ", "\n",
         "\t\t\t\t", 
        RowBox[{"{", 
         RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}], ",", " ", 
        "\n", "\t\t\t\t", 
        RowBox[{"PlotRangePadding", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"Automatic", ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Scaled", "[", "0.03", "]"}], ",", " ", 
             RowBox[{"Scaled", "[", "0.03", "]"}]}], "}"}]}], "}"}]}], ",", 
        " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotLegends", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"N", "[", "scale", "]"}], "*", "\[ScriptCapitalS]"}], ",",
            " ", "\[ScriptCapitalE]", ",", " ", 
           SubscriptBox["\[ScriptCapitalI]", "\"\<s\>\""], ",", " ", 
           SubscriptBox["\[ScriptCapitalI]", "\"\<a\>\""], ",", " ", 
           SubscriptBox["\[ScriptCapitalR]", "\"\<s\>\""], ",", " ", 
           SubscriptBox["\[ScriptCapitalR]", "\"\<a\>\""], ",", " ", 
           "\[ScriptCapitalD]"}], "}"}]}], ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotLabel", " ", "->", " ", 
         RowBox[{"StringForm", "[", 
          RowBox[{
          "\"\<\[ScriptCapitalN] = ``, SSE = ``\>\"", ",", " ", "pop", ",", 
           "\n", "\t\t\t\t\t", 
           RowBox[{"fitErrorSEIsaRD", "[", 
            RowBox[{
            "fitData", ",", " ", "pop", ",", " ", "I0", ",", " ", "\n", 
             "\t\t\t\t\t\t", 
             RowBox[{"toLog", "[", "beta", "]"}], ",", " ", 
             RowBox[{"toLog", "[", "zeta", "]"}], ",", " ", 
             RowBox[{"toLogit", "[", "rho", "]"}], ",", " ", 
             RowBox[{"toLog", "[", "gamma", "]"}], ",", " ", 
             RowBox[{"toLog", "[", "mu", "]"}]}], "]"}]}], "]"}]}], ",", " ", 
        "\n", "\t\t\t\t", 
        RowBox[{"FrameLabel", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<time\>\"", ",", " ", "\"\<# people\>\""}], "}"}]}], 
        ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotStyle", " ", "->", " ", 
         RowBox[{"{", "\n", "\t\t\t\t\t", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Green\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Sunglow\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Scarlet\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{"Directive", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
              "\"\<Scarlet\>\"", "]"}], ",", " ", "Dashed"}], "]"}], ",", " ",
            "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<NavyBlue\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{"Directive", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
              "\"\<NavyBlue\>\"", "]"}], ",", " ", "Dashed"}], "]"}], ",", 
           " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<OuterSpace\>\"", "]"}]}], "\n", "\t\t\t\t\t", "}"}]}], ",", 
        "\n", "\t\t\t\t", 
        RowBox[{"Evaluate", "@", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", " ", 
           RowBox[{"Options", "[", "Plot", "]"}]}], "]"}]}], ",", " ", "\n", 
        "\t\t\t\t", 
        RowBox[{"PlotRange", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "tmax"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "ymax"}], "}"}]}], "}"}]}], ",", " ", "\n",
         "\t\t\t\t", 
        RowBox[{"GridLines", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"None", ",", " ", "None"}], "}"}]}]}], "\n", "\t\t\t\t", 
       "]"}], ",", " ", "\n", "\t\t\t", 
      RowBox[{"ListPlot", "[", 
       RowBox[{"fitData", ",", " ", "\n", "\t\t\t\t", 
        RowBox[{"PlotStyle", " ", "->", " ", 
         RowBox[{"{", "\n", "\t\t\t\t\t", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<Scarlet\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<NavyBlue\>\"", "]"}], ",", " ", "\n", "\t\t\t\t\t", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
            "\"\<OuterSpace\>\"", "]"}]}], "\n", "\t\t\t\t\t", "}"}]}], ",", 
        "\n", "\t\t\t\t", 
        RowBox[{"Evaluate", "@", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", " ", 
           RowBox[{"Options", "[", "Plot", "]"}]}], "]"}]}]}], "\n", 
       "\t\t\t\t", "]"}]}], "\n", "\t\t\t", "]"}]}], "\n", "\t\t", 
   "]"}]}]}], "Code",
 CellChangeTimes->{{3.7923525323727617`*^9, 3.792352574483754*^9}, {
   3.792352614863934*^9, 3.792352730627131*^9}, {3.7923527701148567`*^9, 
   3.792352786393939*^9}, {3.792352852001048*^9, 3.792352864169425*^9}, {
   3.792352952478792*^9, 3.7923529546666727`*^9}, {3.792353166991868*^9, 
   3.79235318353627*^9}, {3.7923534771311007`*^9, 3.792353514928952*^9}, 
   3.792355195479148*^9, {3.792355696634768*^9, 3.792355885826722*^9}, {
   3.792400349939271*^9, 3.792400367305859*^9}, {3.79240066401698*^9, 
   3.792400668006661*^9}, {3.7924011954216347`*^9, 3.7924012004792223`*^9}, {
   3.792403211408025*^9, 3.7924033080418453`*^9}, {3.7924033452880096`*^9, 
   3.792403407125783*^9}, {3.792403451173809*^9, 3.7924034890597563`*^9}, {
   3.792403536121573*^9, 3.792403537969922*^9}, {3.792403822644065*^9, 
   3.792403838026383*^9}, {3.792417498861058*^9, 3.792417505170742*^9}, {
   3.792419525154255*^9, 3.7924195399276123`*^9}, 3.792419955937891*^9, {
   3.792434234421505*^9, 3.792434271546279*^9}, {3.792434350233083*^9, 
   3.7924343588108683`*^9}, {3.792795970994772*^9, 3.792796260894251*^9}, {
   3.792830779155954*^9, 3.792830788425489*^9}, {3.792831006569083*^9, 
   3.7928310208658257`*^9}, {3.792831058936968*^9, 3.7928310750954533`*^9}, {
   3.792831117110229*^9, 3.792831124868903*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"9cfcfbe7-47a1-4dc2-93a8-b30ae9d57d5c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Fit visualization", "Section",
 CellChangeTimes->{{3.792402731776301*^9, 3.7924027338727293`*^9}, {
  3.793178790538457*^9, 
  3.793178799481329*^9}},ExpressionUUID->"cf03407e-1e65-4e8d-ab2c-\
5cb423573e1f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "Needs", "[", "\"\<DifferentialEquations`InterpolatingFunctionAnatomy`\>\"",
    "]"}], ";"}]], "Input",
 InitializationCell->True,
 CellLabel->"In[42]:=",ExpressionUUID->"b4775daa-4164-4d22-bb8d-69210ac7c334"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "is", " ", "measured", " ", "in", " ", "Days"}], " ", 
   "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"toModelTime", "[", 
     RowBox[{"t0_DateObject", ",", " ", "date_DateObject"}], "]"}], " ", ":=",
     " ", "\n", "\t", 
    RowBox[{"QuantityMagnitude", "[", 
     RowBox[{"DateDifference", "[", 
      RowBox[{"t0", ",", " ", "date"}], "]"}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"toDataDate", "[", 
     RowBox[{"t0_DateObject", ",", " ", 
      RowBox[{"time", ":", 
       RowBox[{"(", 
        RowBox[{"_Integer", "|", "_Real"}], ")"}]}]}], "]"}], " ", ":=", " ", 
    "\n", "\t", 
    RowBox[{"DatePlus", "[", 
     RowBox[{"t0", ",", " ", "time"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.792148544989461*^9, 3.792148740885351*^9}, {
  3.7921488495380583`*^9, 3.792148894664774*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"d0f88a97-dc2f-4eb0-b4b0-942c281474e2"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "fitWithDataPlot", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fitWithDataPlot", "[", 
   RowBox[{"fit_FittedModel", ",", 
    RowBox[{"{", 
     RowBox[{"dateMin_DateObject", ",", "dateMax_DateObject"}], "}"}]}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plotData", ",", "bands", ",", 
      RowBox[{"cd", "=", 
       RowBox[{"ColorData", "[", "108", "]"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"plotData", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"toDataDate", "[", 
           RowBox[{"dateMin", ",", "#1"}], "]"}], ",", "#2"}], "}"}], "&"}], "@@@", 
       RowBox[{"fit", "[", "\"\<Data\>\"", "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"bands", "[", "x_", "]"}], "=", 
      RowBox[{"Quiet", "[", 
       RowBox[{
        RowBox[{"fit", "[", 
         RowBox[{"\"\<SinglePredictionBands\>\"", ",", 
          RowBox[{"ConfidenceLevel", "\[Rule]", "0.95"}]}], "]"}], "/.", 
        RowBox[{"t", "\[Rule]", "x"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DateListPlot", "[", 
         RowBox[{"plotData", ",", "\[IndentingNewLine]", 
          RowBox[{"Joined", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
          RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"fit", "[", 
             RowBox[{"toModelTime", "[", 
              RowBox[{"dateMin", ",", 
               RowBox[{"FromAbsoluteTime", "@", "t"}]}], "]"}], "]"}], ",", 
            RowBox[{"bands", "[", 
             RowBox[{"toModelTime", "[", 
              RowBox[{"dateMin", ",", 
               RowBox[{"FromAbsoluteTime", "@", "t"}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", 
            RowBox[{"AbsoluteTime", "@", "dateMin"}], ",", 
            RowBox[{"AbsoluteTime", "@", "dateMax"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"cd", "[", "2", "]"}], ",", "None"}], "}"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Filling", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2", "\[Rule]", 
             RowBox[{"{", "1", "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"FillingStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Opacity", "[", 
             RowBox[{"0.5", ",", 
              RowBox[{"Lighter", "@", 
               RowBox[{"cd", "[", "2", "]"}]}]}], "]"}], "}"}]}]}], 
         "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRangePadding", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Automatic", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Scaled", "[", "0.03", "]"}], ",", 
             RowBox[{"Scaled", "[", "0.1", "]"}]}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<time (d)\>\"", ",", "\"\<number infected\>\""}], 
          "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"StringForm", "[", 
          RowBox[{"\"\<Estimated variance = ``\>\"", ",", 
           RowBox[{"fit", "[", "\"\<EstimatedVariance\>\"", "]"}]}], "]"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"ImageSize", "\[Rule]", "360"}]}], "\[IndentingNewLine]", 
       "]"}], "//", 
      RowBox[{
       RowBox[{"Labeled", "[", 
        RowBox[{"#", ",", 
         RowBox[{"Column", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"PointLegend", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"cd", "[", "1", "]"}], "}"}], ",", 
               RowBox[{"{", "\"\<observed\>\"", "}"}]}], "]"}], ",", 
             RowBox[{"LineLegend", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"cd", "[", "2", "]"}], "}"}], ",", 
               RowBox[{"{", "\"\<calculated\>\"", "}"}]}], "]"}], ",", 
             RowBox[{"SwatchLegend", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"Opacity", "[", 
                 RowBox[{"0.5", ",", 
                  RowBox[{"Lighter", "@", 
                   RowBox[{"cd", "[", "2", "]"}]}]}], "]"}], "}"}], ",", 
               RowBox[{"{", "\"\<95% prediction band\>\"", "}"}]}], "]"}]}], 
            "}"}], ",", "Left"}], "]"}], ",", "Right"}], "]"}], "&"}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.792145846266114*^9, {3.792147793989195*^9, 3.792147807900331*^9}, 
   3.792147881148107*^9, {3.7921479771770267`*^9, 3.7921480148058777`*^9}, {
   3.7921480895793056`*^9, 3.792148089867198*^9}, {3.792149341828432*^9, 
   3.7921493621079397`*^9}, 3.79214943340987*^9, 3.792149476354847*^9, {
   3.7921497823723497`*^9, 3.792149812061308*^9}, {3.792151394019319*^9, 
   3.792151394473147*^9}, {3.792151576347845*^9, 3.79215158053102*^9}, {
   3.792165742110551*^9, 3.7921657466849327`*^9}, {3.792166101826405*^9, 
   3.792166104289009*^9}, {3.7921661852653112`*^9, 3.7921662903315773`*^9}, {
   3.792166390394074*^9, 3.792166416728426*^9}, 3.792167035190199*^9, 
   3.792591843639657*^9, {3.793142341439519*^9, 3.793142346099848*^9}, 
   3.793178345093574*^9, {3.793178393200684*^9, 3.793178414543993*^9}, {
   3.793178457782935*^9, 3.793178513501192*^9}, {3.7931791801625977`*^9, 
   3.7931792022884827`*^9}, {3.79318174612571*^9, 3.793181747939999*^9}, {
   3.79318317030241*^9, 3.793183232964347*^9}, {3.793183832065531*^9, 
   3.793183881246016*^9}, {3.7931839465896873`*^9, 3.793183947851763*^9}, {
   3.793183994458675*^9, 3.793184006681102*^9}, {3.793184091681727*^9, 
   3.7931840921663027`*^9}, 3.793184201102146*^9, {3.793184621848575*^9, 
   3.793184622501752*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"f82d4c70-afbb-439b-a8b6-b000cbd31336"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "residualsPlot", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"residualsPlot", "[", "fit_FittedModel", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"width", "=", 
      RowBox[{"4", " ", "72"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"GraphicsGrid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListPlot", "[", 
          RowBox[{
           RowBox[{"Thread", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"First", "/@", 
               RowBox[{"fit", "[", "\"\<Data\>\"", "]"}]}], ",", 
              RowBox[{"fit", "[", "\"\<FitResiduals\>\"", "]"}]}], "}"}], 
            "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<time (d)\>\"", ",", "\"\<FitResiduals\>\""}], 
             "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", 
           RowBox[{"ImageSize", "\[Rule]", "width"}]}], "\[IndentingNewLine]",
           "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"ListPlot", "[", 
          RowBox[{
           RowBox[{"Thread", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"fit", "[", "\"\<PredictedResponse\>\"", "]"}], ",", 
              RowBox[{"fit", "[", "\"\<FitResiduals\>\"", "]"}]}], "}"}], 
            "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<PredictedResponse\>\"", ",", "\"\<FitResiduals\>\""}], 
             "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", 
           RowBox[{"ImageSize", "\[Rule]", "width"}]}], "\[IndentingNewLine]",
           "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Spacings", "\[Rule]", 
       RowBox[{"Scaled", "[", "0.05", "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.792145847165649*^9, {3.792151534434173*^9, 3.792151541317621*^9}, 
   3.792165695359761*^9, 3.79259185552835*^9, {3.793178064372459*^9, 
   3.7931780864256077`*^9}, {3.7931781279289722`*^9, 3.793178129735955*^9}, {
   3.79317822604557*^9, 3.7931782631719227`*^9}, {3.7931785766939363`*^9, 
   3.793178625868226*^9}, {3.793179184225634*^9, 3.7931792101820173`*^9}, {
   3.7931817564657288`*^9, 3.7931817661123743`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"99743192-7269-455d-b2bf-5a7902b8fd6d"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "modelSensitivityPlot", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"modelSensitivityPlot", "[", 
   RowBox[{
    RowBox[{"modelIn", ":", 
     RowBox[{"(", 
      RowBox[{"_ParametricFunction", "[", "__", "]"}], ")"}]}], ",", 
    "fit_FittedModel", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"tMin_", "?", "NumberQ"}], ",", 
        RowBox[{"tMax_", "?", "NumberQ"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"yMin_", "?", "NumberQ"}], ",", 
        RowBox[{"yMax_", "?", "NumberQ"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"scale", ":", 
     RowBox[{"{", 
      RowBox[{"__", "?", "NumberQ"}], "}"}]}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"model", ",", "sensitivities", ",", 
      RowBox[{"cd", "=", 
       RowBox[{"ColorData", "[", "108", "]"}]}], ",", "params", ",", "t"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"params", "=", 
      RowBox[{"fit", "[", "\"\<BestFitParameters\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"model", "=", 
      RowBox[{
       RowBox[{"modelIn", "[", "t", "]"}], "/.", "params"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sensitivities", "=", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"model", "+", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"#2", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "1"}], "}"}], 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"modelIn", ",", "#1"}], "]"}], "[", "t", "]"}]}], "/.",
             "params"}], ")"}]}], "&"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Keys", "@", "params"}], ",", "scale"}], "}"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"TabView", "@", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"p", ",", "bands", ",", "sf"}], "}"}], ",", 
          RowBox[{"p", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Show", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"ListPlot", "[", 
                RowBox[{
                 RowBox[{"fit", "[", "\"\<Data\>\"", "]"}], ",", 
                 RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Plot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"model", ",", "bands"}], "}"}], "//", "Evaluate"}],
                  ",", 
                 RowBox[{"{", 
                  RowBox[{"t", ",", "tMin", ",", "tMax"}], "}"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"PlotStyle", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"cd", "[", "2", "]"}], ",", 
                    RowBox[{"Lighter", "@", 
                    RowBox[{"cd", "[", "3", "]"}]}], ",", 
                    RowBox[{"Lighter", "@", 
                    RowBox[{"cd", "[", "4", "]"}]}]}], "}"}]}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Filling", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"2", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "1", "}"}], ",", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{"0.5", ",", 
                    RowBox[{"Lighter", "@", 
                    RowBox[{"cd", "[", "3", "]"}]}]}], "]"}]}], "}"}]}], ",", 
                    RowBox[{"3", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "1", "}"}], ",", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{"0.5", ",", 
                    RowBox[{"Lighter", "@", 
                    RowBox[{"cd", "[", "4", "]"}]}]}], "]"}]}], "}"}]}]}], 
                   "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"PlotRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"All", ",", 
                  RowBox[{"{", 
                   RowBox[{"yMin", ",", "yMax"}], "}"}]}], "}"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"PlotRangePadding", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Automatic", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Scaled", "[", "0.03", "]"}], ",", 
                    RowBox[{"Scaled", "[", "0.1", "]"}]}], "}"}]}], "}"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"FrameLabel", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"\"\<time (d)\>\"", ",", "\"\<number infected\>\""}],
                  "}"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
               "PlotLabel", "\[Rule]", "\"\<Parameter sensitivity\>\""}], ",",
                "\[IndentingNewLine]", 
               RowBox[{"Epilog", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"StringForm", "[", 
                    RowBox[{"\"\<scale factor = ``\>\"", ",", 
                    RowBox[{"TraditionalForm", "[", "sf", "]"}]}], "]"}], ",", 
                   RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "}"}]}]}],
               "\[IndentingNewLine]", "]"}], "//", 
             RowBox[{
              RowBox[{"Labeled", "[", 
               RowBox[{"#", ",", 
                RowBox[{"Column", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"PointLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"cd", "[", "1", "]"}], "}"}], ",", 
                    RowBox[{"{", "\"\<observed\>\"", "}"}]}], "]"}], ",", 
                    RowBox[{"LineLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"cd", "[", "2", "]"}], "}"}], ",", 
                    RowBox[{"{", "\"\<calculated\>\"", "}"}]}], "]"}], ",", 
                    RowBox[{"SwatchLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{"0.5", ",", 
                    RowBox[{"Lighter", "@", 
                    RowBox[{"cd", "[", "3", "]"}]}]}], "]"}], "}"}], ",", 
                    RowBox[{"{", "\"\<negative sensitivity\>\"", "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"SwatchLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{"0.5", ",", 
                    RowBox[{"Lighter", "@", 
                    RowBox[{"cd", "[", "4", "]"}]}]}], "]"}], "}"}], ",", 
                    RowBox[{"{", "\"\<positive sensitivity\>\"", "}"}]}], 
                    "]"}]}], "}"}], ",", "Left"}], "]"}], ",", "Right"}], 
               "]"}], "&"}]}], ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Keys", "@", "params"}], ",", "sensitivities", ",", 
          "scale"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.792159499073976*^9, 3.792159513940597*^9}, {
   3.792159567388979*^9, 3.7921595716188707`*^9}, {3.792159660267771*^9, 
   3.792159767468451*^9}, {3.792159808365535*^9, 3.79215985271412*^9}, {
   3.792159890109367*^9, 3.79215995875974*^9}, {3.7921602025487556`*^9, 
   3.7921602027991257`*^9}, {3.792160552019643*^9, 3.792160573251502*^9}, {
   3.792162281880547*^9, 3.792162284039794*^9}, {3.792162369419147*^9, 
   3.7921623909289007`*^9}, {3.792246552457828*^9, 3.792246588187531*^9}, {
   3.7922467833185883`*^9, 3.792246798180126*^9}, {3.792412945905463*^9, 
   3.792412957191729*^9}, 3.792412987603828*^9, {3.7924150779794827`*^9, 
   3.792415139237876*^9}, 3.79259187443966*^9, 3.793179076507935*^9, {
   3.793179125195963*^9, 3.7931791311453657`*^9}, {3.793179166897084*^9, 
   3.7931791691129923`*^9}, {3.7931793189403343`*^9, 3.793179343953496*^9}, {
   3.7931793822864637`*^9, 3.7931794067072573`*^9}, {3.7931794562560053`*^9, 
   3.793179456671589*^9}, {3.7931795002459087`*^9, 3.793179519308918*^9}, {
   3.793179594723529*^9, 3.793179603202682*^9}, {3.7931796723439617`*^9, 
   3.793179725423414*^9}, {3.7931797617477903`*^9, 3.793179762467099*^9}, 
   3.793179887022709*^9, {3.7931799433332453`*^9, 3.793179943717041*^9}, 
   3.793180031210267*^9, {3.793180065657494*^9, 3.7931800660006933`*^9}, {
   3.793180202045628*^9, 3.7931802471871367`*^9}, {3.7931802795305023`*^9, 
   3.793180281433275*^9}, {3.793180339360449*^9, 3.793180339800378*^9}, 
   3.793180373591999*^9, {3.793180419495864*^9, 3.793180434391509*^9}, {
   3.7931804698889093`*^9, 3.793180477403709*^9}, {3.79318051180359*^9, 
   3.79318055731313*^9}, {3.793180596424155*^9, 3.7931806331506844`*^9}, {
   3.793181773851757*^9, 3.793181781462129*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"d959e4c6-d01d-423f-b9e4-c85ba70e5bc9"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "epidemicSizePlot", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"epidemicSizePlot", "[", 
   RowBox[{
    RowBox[{"susceptibleIn", ":", 
     RowBox[{"(", 
      RowBox[{"_ParametricFunction", "[", "__", "]"}], ")"}]}], ",", 
    "fit_FittedModel", ",", 
    RowBox[{"populationSize_", "?", "Positive"}], ",", 
    RowBox[{"actualSize_", "?", "Positive"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"tMin_", "?", "NumberQ"}], ",", 
        RowBox[{"tMax_", "?", "NumberQ"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"yMin_", "?", "NumberQ"}], ",", 
        RowBox[{"yMax_", "?", "NumberQ"}]}], "}"}]}], "}"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "susceptible", ",", "params", ",", "t", ",", "domain", ",", "size"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"params", "=", 
      RowBox[{"fit", "[", "\"\<BestFitParameters\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"susceptible", "=", 
      RowBox[{"susceptibleIn", "/.", "params"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"domain", "=", 
      RowBox[{"First", "@", 
       RowBox[{"InterpolatingFunctionDomain", "[", "susceptible", "]"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"size", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"populationSize", "-", 
          RowBox[{"susceptible", "[", "t", "]"}]}], ")"}], "/", 
        "populationSize"}], "/.", 
       RowBox[{"t", "\[Rule]", 
        RowBox[{"Last", "@", "domain"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"populationSize", "-", 
          RowBox[{"susceptible", "[", "t", "]"}]}], "/.", 
         RowBox[{"fit", "[", "\"\<BestFitParameters\>\"", "]"}]}], "//", 
        "Evaluate"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "tMin", ",", "tMax"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"yMin", ",", "yMax"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRangePadding", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Scaled", "[", "0.03", "]"}], ",", 
            RowBox[{"Scaled", "[", "0.03", "]"}]}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<Epidemic Size = ``\>\"", ",", " ", 
          RowBox[{"Quantity", "[", 
           RowBox[{
            RowBox[{"100", "size"}], ",", "\"\<Percent\>\""}], "]"}]}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<time\>\"", ",", "\"\<epidemic size\>\""}], "}"}]}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"GridLines", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "actualSize", ",", "populationSize"}], "}"}]}], 
         "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"ColorData", "[", "\"\<Crayola\>\"", "]"}], "[", 
          "\"\<Scarlet\>\"", "]"}], "\[IndentingNewLine]", "}"}]}]}], 
      "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.792250560375626*^9, 3.792250606985882*^9}, {
   3.7922506519953623`*^9, 3.792250706015623*^9}, 3.7923229567448997`*^9, {
   3.7923260560427427`*^9, 3.792326056183935*^9}, {3.792326227276574*^9, 
   3.7923262286603813`*^9}, 3.792330018860619*^9, {3.792413032053738*^9, 
   3.792413071242066*^9}, {3.792413193872826*^9, 3.792413200006093*^9}, 
   3.792591890471182*^9, {3.793181823617195*^9, 3.7931818439980516`*^9}, {
   3.7931818788537703`*^9, 3.793181879668502*^9}, {3.793181923597522*^9, 
   3.79318194289919*^9}, {3.793181989851796*^9, 3.793182040479775*^9}, {
   3.793182081399169*^9, 3.7931821932580976`*^9}, {3.7931822311143827`*^9, 
   3.793182268161336*^9}, {3.793182456701106*^9, 3.793182482410571*^9}, {
   3.7931826258954487`*^9, 3.7931826345267563`*^9}, {3.793182692772771*^9, 
   3.793182739722139*^9}, {3.79318277044913*^9, 3.79318278485649*^9}, {
   3.793182822351305*^9, 3.793182920867996*^9}, {3.793186339520063*^9, 
   3.79318637286031*^9}, {3.793186450327073*^9, 3.793186469370287*^9}, {
   3.7931866022877693`*^9, 3.793186618101507*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"5aa0064d-1d89-40b2-89ac-c3b34c2b8fa1"]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1363, 1007},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules->{"TryRealOnly" -> False},
Magnification:>1.4 Inherited,
FrontEndVersion->"12.1 para Microsoft Windows (64-bit) (March 14, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4d4bbaab-6bd3-489c-b0a7-12cc5d246b81"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 583, 10, 219, "Title",ExpressionUUID->"eaf95af9-27df-4816-aa31-76f05f0b15c0"],
Cell[1166, 34, 1653, 25, 43, "Author",ExpressionUUID->"92597376-7ce2-47eb-8add-11ff8bccf552"],
Cell[2822, 61, 451, 11, 48, "Text",ExpressionUUID->"490c8d54-8bae-40d2-ad55-372b85131e5d"],
Cell[3276, 74, 153, 3, 43, "Item",ExpressionUUID->"954471e2-c574-4923-b2b7-ff96854c8110"],
Cell[CellGroupData[{
Cell[3454, 81, 285, 4, 39, "Input",ExpressionUUID->"8ee74037-186c-4e50-9e9c-39319f89fc27"],
Cell[3742, 87, 1000, 21, 59, "Output",ExpressionUUID->"92b12661-7742-4dc9-8df0-c5bf5f80da1a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4779, 113, 266, 4, 93, "Section",ExpressionUUID->"8b75c487-07b1-48e9-b3f3-ffb602fa4631"],
Cell[5048, 119, 809, 15, 79, "Text",ExpressionUUID->"080fa5f7-0b1c-4a4c-a368-5bd62c3c0c2c"],
Cell[5860, 136, 342, 7, 61, "Input",ExpressionUUID->"5b363478-0b32-4bbb-8b70-327ce7ecc93a",
 InitializationCell->True],
Cell[6205, 145, 173, 3, 48, "Text",ExpressionUUID->"938dbb3d-4926-415f-b34a-7a4638866abc"],
Cell[6381, 150, 542, 11, 43, "Item",ExpressionUUID->"e3b93ec8-9373-48b4-b7c2-0d865ff9d5ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6960, 166, 164, 3, 93, "Section",ExpressionUUID->"3d785454-0c47-4edf-ba3f-79c15bdd1bd6"],
Cell[7127, 171, 950, 18, 100, "Item",ExpressionUUID->"15198c46-b371-4b50-8a64-f4bfcfdae97d"],
Cell[8080, 191, 355, 9, 39, "Input",ExpressionUUID->"ed40dc68-99cd-45a6-9ed3-b764da523a6d"],
Cell[8438, 202, 588, 13, 43, "Item",ExpressionUUID->"894237f7-48e5-48f0-87f4-e466b472a629"],
Cell[CellGroupData[{
Cell[9051, 219, 228, 4, 39, "Input",ExpressionUUID->"22b5a605-c416-407c-bed8-82883548b3f5"],
Cell[9282, 225, 30711, 677, 165, "Output",ExpressionUUID->"93a6b267-34d5-46e4-98ca-e0f92b1a7a2c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40030, 907, 2520, 51, 91, "Input",ExpressionUUID->"ecccc27e-48f6-4322-903e-18cf8db5de41"],
Cell[42553, 960, 23612, 508, 364, "Output",ExpressionUUID->"7b669fb4-57ee-41d3-8bc4-28b1bf9153a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66202, 1473, 2648, 53, 91, "Input",ExpressionUUID->"f2a33c21-ffc1-4722-8904-fcd6137c08c2"],
Cell[68853, 1528, 23458, 506, 364, "Output",ExpressionUUID->"ffa0c006-268c-48a9-89c2-effa620c9fcf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92348, 2039, 1467, 28, 66, "Input",ExpressionUUID->"a60479a2-7eba-41ee-92e6-667d35e49a81"],
Cell[93818, 2069, 23082, 500, 368, "Output",ExpressionUUID->"fd2d7cd5-7425-404b-90c3-1c60cba3c762"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116937, 2574, 1465, 28, 66, "Input",ExpressionUUID->"71acd089-7100-401e-a5a2-3ad141fd712a"],
Cell[118405, 2604, 23152, 501, 367, "Output",ExpressionUUID->"ad3fd403-a224-4f86-b594-935b72523584"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[141606, 3111, 334, 6, 72, "Section",ExpressionUUID->"d668d555-8d3c-424b-b57d-f4dd11c5d031"],
Cell[CellGroupData[{
Cell[141965, 3121, 249, 4, 75, "Subsection",ExpressionUUID->"f861be97-8aac-4fe6-981e-00840b19fc68"],
Cell[142217, 3127, 591, 14, 79, "Text",ExpressionUUID->"19ce19d6-0c44-459c-9a05-bc2061a040a4"],
Cell[142811, 3143, 359, 7, 48, "Text",ExpressionUUID->"d0cec62f-5f0a-4853-b6d4-0b46e5617256"],
Cell[CellGroupData[{
Cell[143195, 3154, 280, 4, 61, "Subsubsection",ExpressionUUID->"9b9a72a2-aebd-4c27-b0e5-4b69323b86c0"],
Cell[CellGroupData[{
Cell[143500, 3162, 589, 12, 118, "Input",ExpressionUUID->"8f7afe46-36cf-487d-904e-6202bbaf7104"],
Cell[144092, 3176, 245202, 4537, 818, "Output",ExpressionUUID->"4af868b7-9124-473b-8009-abe8608f448d"]
}, Open  ]],
Cell[389309, 7716, 290, 7, 43, "Item",ExpressionUUID->"3b3adb0a-f0ce-46b4-a2b8-8e63d28cf68e"],
Cell[389602, 7725, 361, 9, 39, "Input",ExpressionUUID->"33b40183-6caf-4065-bba1-6dbb8ee233ae"],
Cell[CellGroupData[{
Cell[389988, 7738, 418, 9, 39, "Input",ExpressionUUID->"899ad48c-dfdc-4898-9ac6-59168e4878cc"],
Cell[390409, 7749, 136142, 2725, 818, "Output",ExpressionUUID->"79dd86be-b9e7-4f52-ab18-e2385bd0e098"]
}, Open  ]],
Cell[526566, 10477, 794, 21, 66, "Input",ExpressionUUID->"0082ee01-57b9-4109-b59e-404e9d0461eb"],
Cell[CellGroupData[{
Cell[527385, 10502, 728, 17, 66, "Input",ExpressionUUID->"1ed3adca-c60d-4008-9bd4-f666bb5ad2c2"],
Cell[528116, 10521, 27629, 596, 339, "Output",ExpressionUUID->"04b7eb3f-9ca8-4ef9-8798-3a3ef9b990b2"]
}, Open  ]],
Cell[555760, 11120, 166, 3, 43, "Item",ExpressionUUID->"143578f3-42a7-45ca-8b8d-ad8473b4a57b"],
Cell[555929, 11125, 868, 13, 110, "Text",ExpressionUUID->"afa8d250-087b-49f1-9ece-ca263d33346f"],
Cell[556800, 11140, 639, 13, 145, "Input",ExpressionUUID->"dc2efab4-6520-487e-b51f-af4aede0ce44"],
Cell[557442, 11155, 189, 3, 43, "Item",ExpressionUUID->"d9ef1b6b-cb66-448b-b37a-36fddacc59e7"],
Cell[CellGroupData[{
Cell[557656, 11162, 591, 12, 39, "Input",ExpressionUUID->"bcf67bcc-553f-45ea-9f11-18fd36532b09"],
Cell[558250, 11176, 1246, 19, 44, "Output",ExpressionUUID->"bdc42ac4-8b36-4206-822c-cd14aa38e01a"]
}, Open  ]],
Cell[559511, 11198, 1247, 24, 39, "Input",ExpressionUUID->"388e83cd-5bf4-4825-bf26-ef807f152a7e"],
Cell[560761, 11224, 493, 11, 39, "Input",ExpressionUUID->"5c48292a-c75f-4475-b349-75dd8bc0f78e"],
Cell[561257, 11237, 404, 8, 39, "Input",ExpressionUUID->"2c6a749c-be43-4247-b51c-8060d9870d9c"],
Cell[561664, 11247, 465, 11, 39, "Input",ExpressionUUID->"4f226b15-69c1-4e82-a9fc-756540b01690"],
Cell[CellGroupData[{
Cell[562154, 11262, 435, 9, 39, "Input",ExpressionUUID->"ee9fe475-178b-4a13-b982-82a29bd9ce25"],
Cell[562592, 11273, 3565, 107, 550, "Output",ExpressionUUID->"6420feba-dd44-4afb-bc1c-8dc3820eec7f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[566206, 11386, 305, 5, 61, "Subsubsection",ExpressionUUID->"34cf2e47-4ffc-4f32-bcb5-ebde27367fc0"],
Cell[566514, 11393, 639, 13, 118, "Input",ExpressionUUID->"eb642e71-5a1d-4651-8ad8-cffe04068806"],
Cell[CellGroupData[{
Cell[567178, 11410, 437, 10, 39, "Input",ExpressionUUID->"2de54345-9b49-4bfd-b1ad-e8760100681c"],
Cell[567618, 11422, 649, 11, 44, "Output",ExpressionUUID->"c5a9f086-39fa-4058-9ba0-3a7bc69c16ef"]
}, Open  ]],
Cell[568282, 11436, 1257, 26, 39, "Input",ExpressionUUID->"87dc7ae6-b6ec-4e88-89ee-ef1a9c450058"],
Cell[569542, 11464, 367, 9, 39, "Input",ExpressionUUID->"c54d7853-07c7-44e3-aa8b-4a8cedf72b54"],
Cell[569912, 11475, 305, 7, 39, "Input",ExpressionUUID->"d8c9386c-69f0-4371-9c42-911e6265167e"],
Cell[CellGroupData[{
Cell[570242, 11486, 488, 10, 39, "Input",ExpressionUUID->"7e2d2dbd-6aca-471f-8276-ed003f2d5463"],
Cell[570733, 11498, 3405, 104, 550, "Output",ExpressionUUID->"eca0169f-e17e-49fc-93a7-93be050396a9"]
}, Open  ]],
Cell[574153, 11605, 512, 12, 39, "Input",ExpressionUUID->"afd69859-3522-4e27-bf1f-14de10b95ea6"],
Cell[574668, 11619, 688, 11, 129, "Item",ExpressionUUID->"e1f4b8c3-d328-4fbf-8c9f-aa795d8ec64f"],
Cell[CellGroupData[{
Cell[575381, 11634, 1395, 27, 118, "Input",ExpressionUUID->"bd3bedf2-82dd-4e00-83e0-0e0884b247d3"],
Cell[576779, 11663, 4280, 113, 581, "Output",ExpressionUUID->"74004b71-c34b-4be0-991c-b5ed5d72f4fc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[581120, 11783, 335, 6, 75, "Subsection",ExpressionUUID->"172cce2d-11e9-46e1-95d3-3e1b43ce0df3"],
Cell[CellGroupData[{
Cell[581480, 11793, 158, 3, 61, "Subsubsection",ExpressionUUID->"18ede96d-fc1c-48d5-884f-6c0c336e727c"],
Cell[581641, 11798, 447, 8, 43, "Item",ExpressionUUID->"517915ab-45f7-4781-a27a-a1d60333ff79"],
Cell[582091, 11808, 625, 16, 66, "Input",ExpressionUUID->"4f79356d-999b-4e7a-9961-bfd5532483ef"],
Cell[582719, 11826, 1154, 19, 101, "Text",ExpressionUUID->"17b3242f-13b9-4533-85ee-184bba571001"],
Cell[583876, 11847, 1414, 27, 80, "Text",ExpressionUUID->"15436f38-20a8-4e8b-915c-9c4f4233ce5f"],
Cell[585293, 11876, 317, 7, 43, "Item",ExpressionUUID->"92310b9d-b3b2-463a-8414-b56b11333a55"],
Cell[CellGroupData[{
Cell[585635, 11887, 327, 5, 39, "Input",ExpressionUUID->"0991c59a-6e96-45f2-a5cf-391f966206e0"],
Cell[585965, 11894, 1420, 20, 44, "Output",ExpressionUUID->"3ed846ba-c01e-4fe6-ac07-8a1a11a1580f"]
}, Open  ]],
Cell[587400, 11917, 385, 8, 43, "Item",ExpressionUUID->"b309760b-f463-47cb-b17b-a67f9c8a1d1f"],
Cell[587788, 11927, 598, 13, 39, "Input",ExpressionUUID->"b1eed990-03ee-4f92-add5-3443daad5874"],
Cell[CellGroupData[{
Cell[588411, 11944, 542, 10, 39, "Input",ExpressionUUID->"26fd89c8-f605-4a67-a059-3f785087c192"],
Cell[588956, 11956, 606, 10, 44, "Output",ExpressionUUID->"6b277510-0b4e-42d8-93bf-e89bc505b69a"]
}, Open  ]],
Cell[589577, 11969, 266, 5, 39, "Input",ExpressionUUID->"55b9dfaf-e519-40d7-bac4-e22cdb15c0f2"],
Cell[589846, 11976, 174, 3, 43, "Item",ExpressionUUID->"258f40a3-da4d-4b7b-82df-89d476930a5b"],
Cell[590023, 11981, 684, 13, 66, "Input",ExpressionUUID->"23b46a90-8b18-468a-ae8d-08a974d990d9"],
Cell[CellGroupData[{
Cell[590732, 11998, 1216, 19, 39, "Input",ExpressionUUID->"90068a3e-0abe-4a66-ada6-fa7e1ff7551c"],
Cell[591951, 12019, 3449, 64, 308, "Output",ExpressionUUID->"44c7babc-c758-4488-aed2-4267382c71ef"]
}, Open  ]],
Cell[595415, 12086, 653, 12, 39, "Input",ExpressionUUID->"18cc4956-a963-4ed4-b6c3-0cc1188eed73"],
Cell[596071, 12100, 606, 12, 39, "Input",ExpressionUUID->"d843cb97-c6cf-48ab-9531-c2c8c532b87e"],
Cell[CellGroupData[{
Cell[596702, 12116, 392, 9, 39, "Input",ExpressionUUID->"6d3abe49-c91a-4b65-a85c-759a909ff805"],
Cell[597097, 12127, 856, 14, 44, "Output",ExpressionUUID->"41215d26-9293-46f4-8a12-96b3bd126ce2"]
}, Open  ]],
Cell[597968, 12144, 229, 4, 43, "Item",ExpressionUUID->"c3aaba25-e7b2-4214-a551-0a48ffcc48d5"],
Cell[CellGroupData[{
Cell[598222, 12152, 814, 17, 39, "Input",ExpressionUUID->"6401e669-5ad8-4541-af01-84e3b4cbf984"],
Cell[599039, 12171, 3355, 83, 150, "Output",ExpressionUUID->"ec338827-285b-47b3-ae3e-842a5b972188"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[602443, 12260, 159, 3, 48, "Subsubsection",ExpressionUUID->"3545a414-4e1d-4299-ae16-154369d75401"],
Cell[602605, 12265, 656, 19, 66, "Input",ExpressionUUID->"61800f95-e5d7-4425-847f-9d354dba52c3"],
Cell[CellGroupData[{
Cell[603286, 12288, 569, 10, 39, "Input",ExpressionUUID->"c347f7ee-56b9-47ed-bbd8-9f6ecabc29f0"],
Cell[603858, 12300, 4138, 93, 596, "Output",ExpressionUUID->"a1b3c44b-0c09-487f-97ca-cad87374183c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[608033, 12398, 929, 19, 66, "Input",ExpressionUUID->"263adb99-9bf9-4a6a-a6c0-197c384c9d77"],
Cell[608965, 12419, 29154, 608, 332, "Output",ExpressionUUID->"96f461e2-f35b-4a52-94d6-d68796c85442"]
}, Open  ]],
Cell[CellGroupData[{
Cell[638156, 13032, 368, 7, 39, "Input",ExpressionUUID->"35744e65-5f2e-4c9a-8bf6-50c89ea667fe"],
Cell[638527, 13041, 3230, 67, 333, "Output",ExpressionUUID->"b8b38348-efb1-4da7-aebf-ac0d2d1dbbe5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[641806, 13114, 174, 3, 48, "Subsubsection",ExpressionUUID->"2a38b17d-117d-4110-a9e5-125bd53cc42a"],
Cell[641983, 13119, 710, 20, 66, "Input",ExpressionUUID->"7c6850c7-67ed-4030-b5e5-00b508d8d46a"],
Cell[CellGroupData[{
Cell[642718, 13143, 317, 7, 39, "Input",ExpressionUUID->"aef433af-1412-4cf8-adce-8fa016f59df1"],
Cell[643038, 13152, 3959, 82, 596, "Output",ExpressionUUID->"2b436c87-ac07-4c0c-8f48-84a2ec29a266"]
}, Open  ]],
Cell[647012, 13237, 281, 7, 48, "Text",ExpressionUUID->"c226a2c2-7b68-47d0-914b-544cdfd34394"],
Cell[CellGroupData[{
Cell[647318, 13248, 956, 19, 39, "Input",ExpressionUUID->"e76b90bf-4b39-4132-bcf5-1f9758674d38"],
Cell[648277, 13269, 33886, 742, 336, "Output",ExpressionUUID->"3b9bc3ad-24a8-4162-96c6-da357af82bd3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[682200, 14016, 409, 8, 39, "Input",ExpressionUUID->"695b4aa8-23c6-41e5-a6bb-37295d65afe2"],
Cell[682612, 14026, 14699, 367, 329, "Output",ExpressionUUID->"fc58e8df-373b-4e77-a50f-4a97b47dda4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[697348, 14398, 421, 8, 39, "Input",ExpressionUUID->"3e55f8c2-2f5b-464c-b51b-f13edb4b7206"],
Cell[697772, 14408, 3986, 81, 340, "Output",ExpressionUUID->"6078b2f6-85d8-4c3e-9f49-aeb87fc2128d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[701807, 14495, 489, 9, 82, "Subsubsection",ExpressionUUID->"6f76c464-5e7f-4c62-9841-3bbfbcfd4752"],
Cell[702299, 14506, 780, 20, 66, "Input",ExpressionUUID->"26f02257-9284-45f7-8b08-063a732eff13"],
Cell[CellGroupData[{
Cell[703104, 14530, 621, 11, 39, "Input",ExpressionUUID->"ea5b1428-ba81-4ff9-85ea-ff1bab524e7a"],
Cell[703728, 14543, 3740, 72, 596, "Output",ExpressionUUID->"050f00bb-4802-4f20-92a2-91a6028763f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[707505, 14620, 1027, 20, 66, "Input",ExpressionUUID->"7e223273-75ea-4ac1-8ac4-d443b788b33d"],
Cell[708535, 14642, 29314, 611, 335, "Output",ExpressionUUID->"0a1410e8-918f-4c77-a015-948b9c76ca1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[737886, 15258, 471, 8, 39, "Input",ExpressionUUID->"b501faf9-d9e8-4919-aab6-5f5480903a84"],
Cell[738360, 15268, 3510, 69, 338, "Output",ExpressionUUID->"064f9381-26ec-4dc2-94c5-108e65713457"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[741943, 15345, 352, 5, 72, "Section",ExpressionUUID->"3c25c37e-4721-45c8-99af-48641bc49e0d"],
Cell[742298, 15352, 484, 9, 110, "Text",ExpressionUUID->"8f12376d-ed05-4b1c-b9c3-81c329b91c61"],
Cell[CellGroupData[{
Cell[742807, 15365, 171, 3, 61, "Subsubsection",ExpressionUUID->"db2f7ce0-52b2-4db8-be06-9808a5d7625a"],
Cell[CellGroupData[{
Cell[743003, 15372, 265, 5, 34, "ItemParagraph",ExpressionUUID->"8bdc7651-064f-4849-9818-66dcbb93e0c7"],
Cell[743271, 15379, 1602, 22, 34, "ItemParagraph",ExpressionUUID->"ebc26541-a578-4364-90c4-46f8afd68c47"],
Cell[744876, 15403, 1713, 24, 34, "ItemParagraph",ExpressionUUID->"94e52491-3e31-4f7f-a241-3de4dbed486a"],
Cell[746592, 15429, 1849, 27, 34, "ItemParagraph",ExpressionUUID->"e7da9f63-0224-447b-93c0-999e6b9d9a27"],
Cell[748444, 15458, 1638, 22, 34, "ItemParagraph",ExpressionUUID->"23f2a3ba-ffc6-45b3-a37d-effc538792a6"],
Cell[750085, 15482, 2250, 36, 90, "ItemParagraph",ExpressionUUID->"a549df8f-f596-4b9d-bdd9-8ccdec68944b"],
Cell[752338, 15520, 1986, 32, 62, "ItemParagraph",ExpressionUUID->"765b3fa1-03ed-4531-9024-8eb6a1144d93"],
Cell[754327, 15554, 1952, 30, 34, "ItemParagraph",ExpressionUUID->"cee6aa64-646a-4b02-a9aa-31a871854d51"],
Cell[756282, 15586, 456, 8, 34, "ItemParagraph",ExpressionUUID->"fcc62f44-0fae-4e96-9a93-e719adc54daa"]
}, Open  ]],
Cell[756753, 15597, 267, 4, 48, "Text",ExpressionUUID->"589414cd-26c1-45df-af99-a5fb145f61df"],
Cell[CellGroupData[{
Cell[757045, 15605, 324, 5, 32, "SubitemParagraph",ExpressionUUID->"7732dbce-8b87-4161-8bb6-da9f37f2ee97"],
Cell[757372, 15612, 352, 7, 32, "SubitemParagraph",ExpressionUUID->"a957ea1c-4926-4516-a49e-6b58c4ef5cf9"],
Cell[757727, 15621, 316, 6, 32, "SubitemParagraph",ExpressionUUID->"00b249b1-5aa7-450f-9ab9-1389ace475fd"],
Cell[758046, 15629, 289, 5, 32, "SubitemParagraph",ExpressionUUID->"e5f7c781-243f-41dd-8242-edb1740beab2"],
Cell[758338, 15636, 264, 4, 32, "SubitemParagraph",ExpressionUUID->"cccbbb45-3d12-4e90-9f22-04f3605cf1f3"],
Cell[758605, 15642, 267, 4, 32, "SubitemParagraph",ExpressionUUID->"b3adf7a6-9a72-4f54-be3e-0aa7d8bce0cc"],
Cell[758875, 15648, 280, 4, 32, "SubitemParagraph",ExpressionUUID->"26b395e7-cae0-40cd-88b8-b68da96455d0"]
}, Open  ]],
Cell[759170, 15655, 503, 11, 48, "Text",ExpressionUUID->"93b8db31-d033-445b-8455-34f61565e2c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[759710, 15671, 363, 6, 75, "Subsection",ExpressionUUID->"e9d40eea-e100-4ab7-a627-baed324963a4"],
Cell[760076, 15679, 1106, 18, 79, "Text",ExpressionUUID->"e606173a-66e4-422f-9b3c-633c8ea3df27"],
Cell[761185, 15699, 263, 5, 43, "Item",ExpressionUUID->"8f530a16-4823-4350-8e2b-fcd157559e15"],
Cell[761451, 15706, 821, 22, 104, "Text",ExpressionUUID->"2ab04dfe-295d-4d7b-a1cc-23b8f628a520"],
Cell[762275, 15730, 5055, 118, 65, "Text",ExpressionUUID->"83ec79b4-590d-482f-9e84-524430afd8be"],
Cell[767333, 15850, 2047, 50, 266, "Text",ExpressionUUID->"ff10024e-ab83-4932-86a9-70833686925f"],
Cell[769383, 15902, 283, 6, 39, "Input",ExpressionUUID->"5c18e97a-3635-438a-a606-b492e8597865"],
Cell[769669, 15910, 960, 15, 141, "Text",ExpressionUUID->"4149d1aa-85cd-4d1c-b266-4fb92fdffae0"],
Cell[770632, 15927, 422, 12, 66, "Input",ExpressionUUID->"5fc70f0c-cea9-4554-b4b3-c2d6ae8efcbe"],
Cell[771057, 15941, 868, 14, 141, "Text",ExpressionUUID->"9999b3e1-6add-4f72-aff3-a2af12bfb1c3"],
Cell[771928, 15957, 511, 14, 66, "Input",ExpressionUUID->"fafb36c0-e4dd-4b19-8d98-19f197ee8edd"],
Cell[772442, 15973, 453, 8, 47, "Text",ExpressionUUID->"e2e2584a-99d8-4dfe-b926-4adc7c9056ca"],
Cell[772898, 15983, 361, 10, 67, "Input",ExpressionUUID->"ea8f49f7-970b-45c0-a349-2adfe48b09ce"],
Cell[773262, 15995, 830, 16, 78, "Text",ExpressionUUID->"c4f69326-c3e1-4dbe-8daa-ad7f672320d6"],
Cell[CellGroupData[{
Cell[774117, 16015, 1181, 28, 39, "Input",ExpressionUUID->"cbff123c-9f41-4118-b512-f643b422966e"],
Cell[775301, 16045, 56675, 1063, 70, "Output",ExpressionUUID->"7c42d628-e333-4dbb-9625-d793e462497f"]
}, Open  ]],
Cell[831991, 17111, 252, 4, 47, "Text",ExpressionUUID->"0fce0521-29e5-4c92-84c6-50fdeeb3355a"],
Cell[CellGroupData[{
Cell[832268, 17119, 564, 13, 39, "Input",ExpressionUUID->"c0f17eb8-0da6-4317-97a2-a7dd4b5325e1"],
Cell[832835, 17134, 55772, 1061, 70, "Output",ExpressionUUID->"7b8cc58d-cc59-4b45-9807-fc78fb35c21f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[888644, 18200, 723, 19, 39, "Input",ExpressionUUID->"5af89866-e408-4dd9-9cc7-33062fb05274"],
Cell[889370, 18221, 26364, 454, 70, "Output",ExpressionUUID->"f237b234-88ac-4084-8c8a-de1e1550b3d2"]
}, Open  ]],
Cell[915749, 18678, 292, 7, 46, "Text",ExpressionUUID->"3ac8e470-0e56-40b4-b466-6f54fc564841"],
Cell[916044, 18687, 940, 28, 37, "Input",ExpressionUUID->"4513ab5e-f765-41bf-ae32-021d07d39726"],
Cell[CellGroupData[{
Cell[917009, 18719, 1910, 39, 60, "Input",ExpressionUUID->"6b14ecd2-0477-45be-bc8d-41ac94bc2746"],
Cell[918922, 18760, 58037, 1057, 70, "Output",ExpressionUUID->"8e2627ce-0609-4dd9-890f-17dae65dedeb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[976996, 19822, 457, 11, 37, "Input",ExpressionUUID->"43b19b33-f816-454c-b2f2-f2845781a1de"],
Cell[977456, 19835, 57658, 1054, 70, "Output",ExpressionUUID->"cd9ed153-5297-4c99-926d-4aeb1d831c58"]
}, Open  ]],
Cell[1035129, 20892, 177, 3, 37, "Input",ExpressionUUID->"8778ce4c-68d2-488b-869b-baf97ed9d6df"],
Cell[CellGroupData[{
Cell[1035331, 20899, 937, 25, 37, "Input",ExpressionUUID->"06150ceb-b0ee-428b-8107-59172658acfa"],
Cell[1036271, 20926, 26477, 458, 70, "Output",ExpressionUUID->"1bebecd4-6c84-438a-895a-9923950aba15"]
}, Open  ]],
Cell[1062763, 21387, 154, 3, 43, "Item",ExpressionUUID->"15aaa1d5-918e-4336-955d-7373d1fa4326"],
Cell[1062920, 21392, 2209, 44, 88, "Input",ExpressionUUID->"4824ab73-c7fe-480b-8c89-1930ad2a0894"],
Cell[CellGroupData[{
Cell[1065154, 21440, 464, 11, 39, "Input",ExpressionUUID->"0823d6a7-9216-4c4c-b856-a13fd4632193"],
Cell[1065621, 21453, 55744, 1061, 70, "Output",ExpressionUUID->"65c515ec-23e1-469a-a1cb-4a1714f95367"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1121402, 22519, 695, 17, 39, "Input",ExpressionUUID->"b3ab0f09-212d-4617-a0f1-059ba5fa256f"],
Cell[1122100, 22538, 26468, 458, 70, "Output",ExpressionUUID->"253460c5-eee3-4b55-ab63-69cca84f43a4"]
}, Open  ]],
Cell[1148583, 22999, 199, 3, 48, "Text",ExpressionUUID->"502a57e2-d664-4ec9-b36d-c4bc8b066657"],
Cell[CellGroupData[{
Cell[1148807, 23006, 1334, 33, 250, "Input",ExpressionUUID->"1e4a8a10-27b5-41da-b1ee-2e58095a6ec9"],
Cell[1150144, 23041, 23300, 406, 70, "Output",ExpressionUUID->"77212b95-c890-4141-93a4-0ca693b3dd54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1173481, 23452, 222, 4, 48, "Subsubsection",ExpressionUUID->"946a76f2-5962-4fd8-abc5-3a57d8a7361a"],
Cell[1173706, 23458, 352, 7, 46, "Text",ExpressionUUID->"4fff7865-b021-4fe5-b8a3-6125708af645"],
Cell[CellGroupData[{
Cell[1174083, 23469, 1017, 28, 37, "Input",ExpressionUUID->"950fb987-03c1-4019-9f2d-283a52b967cf"],
Cell[1175103, 23499, 2263, 51, 70, "Output",ExpressionUUID->"ca53f248-394b-48b1-9356-3933c438c582"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1177403, 23555, 219, 4, 37, "Input",ExpressionUUID->"6bc988e7-0d31-4e1a-9f25-72935395c97f"],
Cell[1177625, 23561, 2336, 54, 70, "Output",ExpressionUUID->"a37290ef-d5ea-46f3-b546-2aec42abba9a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1179998, 23620, 579, 16, 37, "Input",ExpressionUUID->"37af4419-0145-4c15-a790-7f7eb5eed2d4",
 CellID->519538955],
Cell[1180580, 23638, 597, 12, 70, "Message",ExpressionUUID->"453b08fb-e8af-4a22-a1ca-157c9056a99e"],
Cell[1181180, 23652, 778, 14, 70, "Output",ExpressionUUID->"0a48247a-15a2-4ada-a92a-c88309c7b692"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1181995, 23671, 618, 16, 37, "Input",ExpressionUUID->"9aa58e4f-2d13-4e4d-9a0c-856010eb5233",
 CellID->222971922],
Cell[1182616, 23689, 8807, 164, 70, "Output",ExpressionUUID->"4fa12eca-12d4-42db-9160-11d43bbada5e"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1191484, 23860, 264, 4, 51, "Subsection",ExpressionUUID->"ee8ba983-64fc-4f0d-ba12-e13d21a7a9cf"],
Cell[1191751, 23866, 274, 6, 47, "Text",ExpressionUUID->"d7946bc9-4723-4f18-9f5b-5f2057cd28ba"],
Cell[1192028, 23874, 783, 13, 78, "Text",ExpressionUUID->"710f553b-e23f-4ded-a83d-dce65b5a5755"],
Cell[1192814, 23889, 886, 25, 148, "Text",ExpressionUUID->"c23caa69-9e5b-49f3-90a9-ff2c14fae4b9"],
Cell[1193703, 23916, 6275, 145, 67, "Text",ExpressionUUID->"89e7cdb2-1a9a-4635-837b-1d82a255f3eb"],
Cell[1199981, 24063, 208, 4, 43, "Item",ExpressionUUID->"e2c9304c-4e85-4000-b850-6cb992916231"],
Cell[1200192, 24069, 1577, 41, 39, "Input",ExpressionUUID->"9857286f-3f48-455b-af43-d1d0bf1029c0"],
Cell[1201772, 24112, 318, 8, 39, "Input",ExpressionUUID->"1c5c00be-b916-408b-97a9-d1d744577755"],
Cell[CellGroupData[{
Cell[1202115, 24124, 2148, 52, 61, "Input",ExpressionUUID->"732a9148-128a-4214-a2a6-7dc29590f1be"],
Cell[1204266, 24178, 384, 9, 70, "Message",ExpressionUUID->"bc6dfa2a-80e3-4210-b8d3-729babdee9b0"],
Cell[1204653, 24189, 3270, 47, 70, "Message",ExpressionUUID->"30cbf39c-fd2c-4315-a467-d80fc48033a9"],
Cell[1207926, 24238, 3582, 52, 70, "Message",ExpressionUUID->"6a67ab0f-92b4-43f7-814b-c9ae870d0dcd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1211545, 24295, 157, 3, 61, "Subsubsection",ExpressionUUID->"141d6cff-4a06-4073-a362-572112659019"],
Cell[1211705, 24300, 612, 17, 46, "Text",ExpressionUUID->"af8d442d-4117-4e86-acc8-eeca49a6735e"],
Cell[1212320, 24319, 584, 10, 88, "ItemParagraph",ExpressionUUID->"6e31796d-435c-4ca0-80c9-ededa5f695ba"],
Cell[CellGroupData[{
Cell[1212929, 24333, 2972, 57, 46, "Input",ExpressionUUID->"1ee68b83-712e-47dd-9bdd-06f70f22e443"],
Cell[1215904, 24392, 14551, 395, 70, "Output",ExpressionUUID->"cffe360a-6e8e-48f4-be24-911bd764d00e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1230492, 24792, 192, 4, 37, "Input",ExpressionUUID->"aac4da37-b3a8-492c-ac09-90be83ea0e44"],
Cell[1230687, 24798, 896, 15, 70, "Output",ExpressionUUID->"38034d19-44de-4938-9ebf-f335139d163d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1231620, 24818, 173, 3, 37, "Input",ExpressionUUID->"1f4fb831-3ad1-4c6e-947b-a196b253fa4f"],
Cell[1231796, 24823, 540, 8, 70, "Output",ExpressionUUID->"718f21e7-f6a0-4a90-b3ba-f6934945e903"]
}, Open  ]],
Cell[1232351, 24834, 1242, 36, 53, "Input",ExpressionUUID->"d8aaaa2b-7cd5-426f-bbd1-1803bf14e519"],
Cell[1233596, 24872, 398, 7, 46, "Text",ExpressionUUID->"ab7079b1-197e-48b8-bd43-e59520df967c"],
Cell[1233997, 24881, 1129, 33, 37, "Input",ExpressionUUID->"7856293e-fab4-4a67-9c40-145475b293ee"],
Cell[1235129, 24916, 318, 7, 74, "Text",ExpressionUUID->"aa2b406e-dd9d-4570-b9a7-8aa8f75cd436"],
Cell[CellGroupData[{
Cell[1235472, 24927, 226, 4, 32, "ItemParagraph",ExpressionUUID->"2da70ab4-e4dc-4cdb-88eb-486689959cd3"],
Cell[1235701, 24933, 245, 4, 32, "ItemParagraph",ExpressionUUID->"c9979ee3-8d44-4c42-bdb7-0dc659dfc287"],
Cell[1235949, 24939, 235, 4, 32, "ItemParagraph",ExpressionUUID->"aba67039-ce1c-46e5-8091-4cf7ac897bfa"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1236233, 24949, 166, 3, 50, "Subsubsection",ExpressionUUID->"6803fb0b-2664-4185-82d2-d5cc4acb1c46"],
Cell[CellGroupData[{
Cell[1236424, 24956, 1180, 27, 61, "Input",ExpressionUUID->"8ac0a3fa-9b00-4c80-80f7-1f3b1a9b2aa5"],
Cell[1237607, 24985, 607, 12, 70, "Message",ExpressionUUID->"5a4761a5-0d80-4021-bf2a-8fd4d8bff6c1"],
Cell[1238217, 24999, 41669, 748, 70, "Output",ExpressionUUID->"c7023a04-75ee-4331-8e32-1db6f301da95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1279923, 25752, 254, 5, 39, "Input",ExpressionUUID->"43b74c19-4630-4e58-98d0-230168ab5138"],
Cell[1280180, 25759, 657, 10, 70, "Output",ExpressionUUID->"262e0ecd-5b28-4814-944c-28724d3bd5ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1280874, 25774, 254, 5, 39, "Input",ExpressionUUID->"c5860168-32d6-484e-a4e8-3f777854d934"],
Cell[1281131, 25781, 2121, 39, 70, "Output",ExpressionUUID->"d0fec840-ded4-48dc-a73c-02647d66af5f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1283289, 25825, 511, 10, 39, "Input",ExpressionUUID->"6a2d9734-54f2-4398-92c5-80d9d0b13c48"],
Cell[1283803, 25837, 42924, 780, 70, "Output",ExpressionUUID->"b637a168-ca9a-4967-aa40-6f469fe03e24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1326764, 26622, 294, 5, 39, "Input",ExpressionUUID->"4fd90966-1415-41f2-9727-8c50978bec80"],
Cell[1327061, 26629, 42350, 757, 70, "Output",ExpressionUUID->"3ba39786-6602-4446-9cb9-f7196aa21435"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1369460, 27392, 163, 3, 61, "Subsubsection",ExpressionUUID->"bd1e69dc-ad91-4152-978b-c631120b57ef"],
Cell[CellGroupData[{
Cell[1369648, 27399, 9470, 206, 1120, "Input",ExpressionUUID->"c7f36512-8c94-4a19-8bc6-557415796c77"],
Cell[1379121, 27607, 33110, 592, 70, "Output",ExpressionUUID->"ab0347e8-0e2c-4c2b-99cc-b4cf13579416"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1412292, 28206, 1605, 29, 63, "Subsection",ExpressionUUID->"6ed1ec0a-2270-40a8-b2b2-afb54dae1df0"],
Cell[1413900, 28237, 464, 11, 46, "Text",ExpressionUUID->"5f253081-38b5-4125-8e2d-80fbf739ae09"],
Cell[1414367, 28250, 375, 8, 46, "Text",ExpressionUUID->"39db41f1-6366-42b2-9dc8-9a5b07755069"],
Cell[1414745, 28260, 24682, 411, 158, "Text",ExpressionUUID->"6f5c62ce-52e0-4ee9-a283-23ddbf8fd791"],
Cell[1439430, 28673, 232, 4, 42, "Item",ExpressionUUID->"15b8163f-0c8e-4511-8dcf-3b427167b357"],
Cell[1439665, 28679, 15386, 258, 79, "Text",ExpressionUUID->"b33bff38-aa94-4615-ac45-18701584ba22"],
Cell[1455054, 28939, 418, 9, 37, "Input",ExpressionUUID->"bf9d9f8e-3013-476b-b87d-aadadd82b560"],
Cell[1455475, 28950, 410, 11, 70, "Input",ExpressionUUID->"6bc18dec-de69-495e-b21b-cba87747ea7f"],
Cell[1455888, 28963, 2054, 47, 37, "Input",ExpressionUUID->"257debc9-44d2-4168-a814-6f05b13f2931"],
Cell[1457945, 29012, 525, 11, 37, "Input",ExpressionUUID->"13115fbe-9490-4090-90b6-fb33e9a7f025"],
Cell[1458473, 29025, 1999, 48, 88, "Input",ExpressionUUID->"9032670c-baed-424a-8fd8-df3c83b43c21"]
}, Closed]],
Cell[CellGroupData[{
Cell[1460509, 29078, 691, 10, 51, "Subsection",ExpressionUUID->"783e6f70-0fd6-4a08-9987-f9720dab3279"],
Cell[1461203, 29090, 496, 9, 46, "Text",ExpressionUUID->"a7103386-5791-4c23-8d39-c3bf6d5ea78d"],
Cell[1461702, 29101, 30954, 513, 155, "Text",ExpressionUUID->"ce479ec0-5226-4adb-a19d-dad365ebf035"],
Cell[1492659, 29616, 384, 8, 37, "Input",ExpressionUUID->"9349e6bf-40fd-4c6b-8a65-abb764c5cfae"],
Cell[1493046, 29626, 579, 12, 37, "Input",ExpressionUUID->"0a9abd69-2c9e-4184-ad5f-d86ed1f6af65"],
Cell[1493628, 29640, 2272, 52, 37, "Input",ExpressionUUID->"0da86cca-fd47-4ab4-968e-426a1fa1b99a"],
Cell[1495903, 29694, 1935, 47, 88, "Input",ExpressionUUID->"afe409ad-2c22-4e83-bbc6-ca27afdb8371"],
Cell[CellGroupData[{
Cell[1497863, 29745, 486, 12, 37, "Input",ExpressionUUID->"d42640a0-f77d-43b5-a331-0ce9b216fc0c"],
Cell[1498352, 29759, 4345, 90, 70, "Output",ExpressionUUID->"2a565086-4160-45d7-9fe7-e75885c9b425"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1502746, 29855, 368, 5, 51, "Subsection",ExpressionUUID->"a0154c2a-9e9b-44f3-8619-fe8f3e80dce5"],
Cell[CellGroupData[{
Cell[1503139, 29864, 278, 4, 42, "Item",ExpressionUUID->"7f4e9dfe-8560-4e97-96de-eb9a245893f6"],
Cell[1503420, 29870, 704, 14, 42, "Item",ExpressionUUID->"5d4d9cd8-1a0b-47eb-924f-ba8a0e073d56"],
Cell[CellGroupData[{
Cell[1504149, 29888, 801, 16, 32, "Subitem",ExpressionUUID->"6e3113fb-c11c-47c1-8d35-a432e90bce21"],
Cell[1504953, 29906, 669, 14, 32, "Subitem",ExpressionUUID->"57313558-8453-4292-a65c-b7bbb87071e8"]
}, Open  ]]
}, Open  ]],
Cell[1505649, 29924, 1007, 29, 196, "Output",ExpressionUUID->"b1d113f1-900b-40df-8361-e39e2a71343a"],
Cell[1506659, 29955, 7677, 176, 196, "Output",ExpressionUUID->"fe3fc6c9-62c0-4f19-ac01-b4966fb1aba5"],
Cell[1514339, 30133, 3342, 81, 312, "Input",ExpressionUUID->"7ba032f4-0f69-47b0-85cc-30d05dc8f7d0"],
Cell[CellGroupData[{
Cell[1517706, 30218, 2080, 49, 116, "Input",ExpressionUUID->"51a886e9-23ae-46b9-af74-19036638f852"],
Cell[1519789, 30269, 648, 13, 70, "Message",ExpressionUUID->"81b995c4-19c0-4c1f-8076-dfb9b83ba5c0"],
Cell[1520440, 30284, 4448, 64, 70, "Message",ExpressionUUID->"d1075978-d9fa-4073-82a2-4b4ce291c990"],
Cell[1524891, 30350, 4836, 70, 70, "Message",ExpressionUUID->"34754e16-6724-4baf-a34e-ba9380e3524b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1529776, 30426, 225, 4, 51, "Subsection",ExpressionUUID->"ea4b1134-2865-4fa0-80e9-0fb1e1684e5e"],
Cell[CellGroupData[{
Cell[1530026, 30434, 518, 9, 42, "Item",ExpressionUUID->"502aa07e-4d60-496f-9bf5-96d9699155ae"],
Cell[1530547, 30445, 333, 5, 42, "Item",ExpressionUUID->"2b670fa6-d99c-4cc6-accd-ef5c5ee017a7"],
Cell[1530883, 30452, 686, 12, 42, "Item",ExpressionUUID->"7fc5d45d-93be-478f-8a9f-152b38fc9c66"],
Cell[1531572, 30466, 651, 11, 32, "Subitem",ExpressionUUID->"b4dcdf53-263d-45b4-a0bd-916f611bd4f6"],
Cell[1532226, 30479, 609, 10, 42, "Item",ExpressionUUID->"87878e2e-08e9-451a-a7fe-115fef952eac"],
Cell[1532838, 30491, 168, 3, 42, "Item",ExpressionUUID->"fe94445f-dbcd-477a-9f8c-a383119eabff"]
}, Open  ]],
Cell[1533021, 30497, 2947, 68, 214, "Input",ExpressionUUID->"36373570-779f-4a86-8f9d-8c511c26b788"],
Cell[CellGroupData[{
Cell[1535993, 30569, 1123, 22, 158, "Input",ExpressionUUID->"f30f1559-1bb3-4a56-934d-d17a4cbf49f1"],
Cell[1537119, 30593, 1342, 24, 70, "Output",ExpressionUUID->"b602bcc9-e26e-480e-988c-a921cf52e378"],
Cell[1538464, 30619, 853, 14, 70, "Output",ExpressionUUID->"f516dde0-cb1a-40cd-9b65-a8d8fd23977e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1539354, 30638, 5128, 119, 368, "Input",ExpressionUUID->"712405b5-c5cd-4e1c-b2b1-54a38147b83d"],
Cell[1544485, 30759, 1404, 23, 70, "Output",ExpressionUUID->"2bc2898f-6929-4fc1-8e36-2182fa1b5e37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1545926, 30787, 3363, 75, 168, "Input",ExpressionUUID->"e8243a8d-cc69-4991-b350-80aef61efe11"],
Cell[1549292, 30864, 652, 13, 70, "Message",ExpressionUUID->"cd618164-3b40-4607-83b5-c58d686e91ce"],
Cell[1549947, 30879, 803, 15, 70, "Message",ExpressionUUID->"b878813b-c073-425f-b3d1-14c97d6910c9"],
Cell[1550753, 30896, 6138, 91, 70, "Message",ExpressionUUID->"e3b4de13-2f89-48fa-99b7-49d9dfb38841"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1556952, 30994, 348, 5, 72, "Section",ExpressionUUID->"bca74966-5962-410d-8fb7-04944a8b9ffd"],
Cell[1557303, 31001, 371, 7, 48, "Text",ExpressionUUID->"392850c0-d80f-4b12-9855-bfd21713fb05"],
Cell[1557677, 31010, 477, 10, 147, "ItemParagraph",ExpressionUUID->"16aa7f58-5566-4e91-aac7-a30a6bdbd41a"],
Cell[1558157, 31022, 310, 7, 48, "Text",ExpressionUUID->"55bc3d1e-7262-4ecf-9a3d-42d1775947ff"],
Cell[1558470, 31031, 830, 16, 39, "Input",ExpressionUUID->"2570cf0b-0944-4cc7-ab66-f7cf4414306a"],
Cell[1559303, 31049, 319, 6, 48, "Text",ExpressionUUID->"aa1b9bc9-9c0f-44e4-93a0-f88e2bd05b40"],
Cell[CellGroupData[{
Cell[1559647, 31059, 268, 4, 34, "ItemParagraph",ExpressionUUID->"a202a0fc-a2a3-4516-bbb5-5cdd8e4ea32f"],
Cell[1559918, 31065, 1651, 22, 34, "ItemParagraph",ExpressionUUID->"87999703-e73b-4a63-83a5-e45aa9e48832"],
Cell[1561572, 31089, 240, 5, 32, "SubitemParagraph",ExpressionUUID->"7a9b088d-068d-4bd5-8384-70698fc2836f"],
Cell[1561815, 31096, 1795, 26, 34, "ItemParagraph",ExpressionUUID->"f0e0615c-2d53-441e-b1c9-c1dc7c7dc490"],
Cell[1563613, 31124, 2576, 37, 176, "ItemParagraph",ExpressionUUID->"e9038b50-735a-475c-9f78-148f51fd5181"],
Cell[1566192, 31163, 1754, 24, 34, "ItemParagraph",ExpressionUUID->"5f523d01-2dfa-4f43-9a43-caf0eaf91120"],
Cell[1567949, 31189, 1813, 26, 34, "ItemParagraph",ExpressionUUID->"7bb465a3-ffcf-4d96-8867-69ec30278a2c"]
}, Open  ]],
Cell[1569777, 31218, 488, 9, 79, "Text",ExpressionUUID->"c7e8a04c-0b68-49e1-bc31-31a781ca4c6f"],
Cell[1570268, 31229, 725, 14, 79, "Text",ExpressionUUID->"2c375a3a-c0be-45b3-a979-63f3d77bad9c"],
Cell[1570996, 31245, 407, 10, 79, "Text",ExpressionUUID->"033193e7-d4f3-44c0-bef4-2541539b1e9d"],
Cell[CellGroupData[{
Cell[1571428, 31259, 176, 3, 61, "Subsubsection",ExpressionUUID->"a2ae72b2-8c1c-4880-afda-8f18f331e593"],
Cell[1571607, 31264, 353, 7, 79, "Text",ExpressionUUID->"69ec7e88-86c9-433c-ae54-180f3f809319"],
Cell[1571963, 31273, 302, 6, 39, "Input",ExpressionUUID->"9f206634-841e-48ec-b4df-eb238cf2ef29"],
Cell[CellGroupData[{
Cell[1572290, 31283, 861, 19, 39, "Input",ExpressionUUID->"33008598-cec7-45ad-b9ae-7023e82587d0"],
Cell[1573154, 31304, 2423, 75, 158, "Output",ExpressionUUID->"2e4d8c3f-0914-480f-9aa7-a9873b3c8cd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1575614, 31384, 975, 21, 39, "Input",ExpressionUUID->"c1ede6ff-cd94-4347-8fb7-76c56171e9e4",
 CellID->74727127],
Cell[1576592, 31407, 27119, 512, 102, "Output",ExpressionUUID->"45b97260-a384-48d8-b3fa-29026251bcd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1603748, 31924, 960, 20, 39, "Input",ExpressionUUID->"1485f1c8-35c1-422b-8297-e4cecda2a447",
 CellID->874901978],
Cell[1604711, 31946, 9876, 192, 313, "Output",ExpressionUUID->"09b88865-2e2f-4e60-9002-629c293f4fb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1614624, 32143, 254, 5, 39, "Input",ExpressionUUID->"14907505-e319-4803-b979-d7f9acdd79c9"],
Cell[1614881, 32150, 688, 11, 44, "Output",ExpressionUUID->"4f28e3b0-2070-4327-b6af-51d6de623cfd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1615606, 32166, 254, 5, 39, "Input",ExpressionUUID->"eab52d13-b77e-41d5-a37d-838115558440"],
Cell[1615863, 32173, 2004, 37, 89, "Output",ExpressionUUID->"c0a3f1cd-f2e7-420c-93fd-25c4ec2e0779"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1617904, 32215, 789, 18, 39, "Input",ExpressionUUID->"fc64f169-3527-4b0d-b867-c71d5a38e763"],
Cell[1618696, 32235, 46416, 852, 370, "Output",ExpressionUUID->"b77e3879-c0f7-4674-bf83-9bad9a401bd8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1665149, 33092, 294, 5, 39, "Input",ExpressionUUID->"645f51f8-83ad-4512-98f9-85db35dc05b1"],
Cell[1665446, 33099, 10780, 222, 273, "Output",ExpressionUUID->"0f2c6d50-41d0-48b3-8c23-1553d68a81f8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1676275, 33327, 165, 3, 61, "Subsubsection",ExpressionUUID->"363d889a-1aec-40f7-b5cb-ce50a6f8e8a9"],
Cell[1676443, 33332, 487, 9, 79, "Text",ExpressionUUID->"c2e7db39-dcec-4e12-8abf-c50d8d52a181"],
Cell[1676933, 33343, 821, 22, 104, "Text",ExpressionUUID->"34be0f1d-42b4-4b37-bc5e-41ebf11aa7cf"],
Cell[1677757, 33367, 5055, 118, 65, "Text",ExpressionUUID->"0a1bede5-6d15-46ac-8127-6f85944f81e5"],
Cell[1682815, 33487, 249, 5, 48, "Text",ExpressionUUID->"f101803e-3704-4bf8-8807-602f88db34d2"],
Cell[CellGroupData[{
Cell[1683089, 33496, 2329, 37, 90, "ItemParagraph",ExpressionUUID->"29f0c1d9-e160-4804-b459-d7c3208c8e12"],
Cell[1685421, 33535, 1986, 32, 62, "ItemParagraph",ExpressionUUID->"74e02dbb-4d27-44c8-b8bc-053cf4de64c4"],
Cell[1687410, 33569, 2003, 30, 62, "ItemParagraph",ExpressionUUID->"acd8023b-62c3-4634-8426-705d9eeb738a"],
Cell[1689416, 33601, 456, 8, 34, "ItemParagraph",ExpressionUUID->"e4839bba-686f-417e-ba2e-ff40a840fa82"]
}, Open  ]],
Cell[1689887, 33612, 852, 19, 92, "Text",ExpressionUUID->"91afbe3e-bd98-4a40-be4f-a5bcb64a40ce"],
Cell[1690742, 33633, 418, 9, 39, "Input",ExpressionUUID->"bb6dce56-ecdc-4aab-a678-16bc1bd2adde"],
Cell[CellGroupData[{
Cell[1691185, 33646, 121, 2, 39, "Input",ExpressionUUID->"7d5c399f-07f5-49fb-a2fe-dd2c8d44d0e0"],
Cell[1691309, 33650, 18955, 355, 84, "Output",ExpressionUUID->"3d24358c-acd9-4ea3-a356-ba7fb09afba2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1710301, 34010, 242, 7, 39, "Input",ExpressionUUID->"2b1b1ac8-839d-49ad-b907-20628f2ce9c5"],
Cell[1710546, 34019, 2398, 56, 327, "Output",ExpressionUUID->"957310cd-02f4-4575-8637-e2bf5bd4d0a3"]
}, Open  ]],
Cell[1712959, 34078, 3894, 84, 92, "Input",ExpressionUUID->"6d01f032-b3e5-4c32-8c5b-b96114010d53",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1716856, 34164, 3322, 61, 527, "Output",ExpressionUUID->"192ce5ec-d4d5-48d2-97e8-ccffdbc1d9b1"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1720227, 34231, 161, 3, 78, "Chapter",ExpressionUUID->"59fca96b-41f4-40a9-9224-4e23366139d3"],
Cell[1720391, 34236, 379, 7, 88, "Input",ExpressionUUID->"9c0dbf9c-895a-433b-9eed-f9b6a024f109",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[1720795, 34247, 154, 3, 92, "Section",ExpressionUUID->"a9922b51-7865-4408-85e6-0a505751d2a0"],
Cell[1720952, 34252, 586, 14, 93, "Code",ExpressionUUID->"325223de-399b-40e5-9d77-8f0cd7f6b5d3"],
Cell[1721541, 34268, 1616, 43, 277, "Input",ExpressionUUID->"2117b6d7-eddd-4449-b891-68d232642f8e",
 InitializationCell->True],
Cell[1723160, 34313, 1495, 39, 191, "Code",ExpressionUUID->"001c61b9-8a8c-4510-b606-4b4444fb437a"],
Cell[1724658, 34354, 864, 19, 93, "Code",ExpressionUUID->"2ef5f4f8-3ac2-4855-bcd1-85930ac79efa"]
}, Closed]],
Cell[CellGroupData[{
Cell[1725559, 34378, 159, 3, 71, "Section",ExpressionUUID->"493de7e3-f266-428c-b055-9bbdb2a8ef0d"],
Cell[1725721, 34383, 956, 24, 154, "Code",ExpressionUUID->"3699c3c2-02f8-4ee4-b021-03ead1c84f6d"],
Cell[1726680, 34409, 16548, 364, 1694, "Code",ExpressionUUID->"d602800f-a9d4-47e7-8a03-2ea709325544"],
Cell[1743231, 34775, 7118, 152, 508, "Code",ExpressionUUID->"170bc241-1e15-4d4f-be09-4171c290fd46"]
}, Closed]],
Cell[CellGroupData[{
Cell[1750386, 34932, 158, 3, 71, "Section",ExpressionUUID->"d04f35da-9ef5-47da-a7f7-c3447f60c2dc"],
Cell[1750547, 34937, 291, 6, 60, "Code",ExpressionUUID->"22aa23f4-4c27-49b7-86c0-4c5c2713815d"],
Cell[1750841, 34945, 903, 23, 130, "Code",ExpressionUUID->"99365597-7bc8-4a83-a522-53588d918cae"],
Cell[CellGroupData[{
Cell[1751769, 34972, 323, 8, 32, "Input",ExpressionUUID->"902e8ec3-c97c-4f67-bd24-2c82fcef9a8e"],
Cell[1752095, 34982, 16330, 344, 308, "Output",ExpressionUUID->"fa6a6c6e-eda4-45da-82fd-55454bbcf5af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1768462, 35331, 214, 5, 32, "Input",ExpressionUUID->"fde3b7f4-8f60-4797-b46d-d901443c60fd"],
Cell[1768679, 35338, 155, 3, 39, "Output",ExpressionUUID->"f2c58929-36f0-404d-b917-66ca2b8f02a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1768871, 35346, 457, 12, 32, "Input",ExpressionUUID->"c586016e-1d56-4187-aa16-87eabf877d94"],
Cell[1769331, 35360, 177, 3, 39, "Output",ExpressionUUID->"7bfbb06b-7898-42ee-8a47-6bb1e811a3f1"]
}, Open  ]],
Cell[1769523, 35366, 4808, 123, 644, "Code",ExpressionUUID->"8be35864-ecca-4174-808c-caf33b502ce5"]
}, Closed]],
Cell[CellGroupData[{
Cell[1774368, 35494, 175, 3, 71, "Section",ExpressionUUID->"8b28b90f-61f3-4a55-a6d6-82e9a8615fae"],
Cell[1774546, 35499, 2640, 59, 330, "Code",ExpressionUUID->"e46ac30b-5f3e-4cef-b8c2-cfc9c008e449"],
Cell[1777189, 35560, 8041, 172, 886, "Code",ExpressionUUID->"1c980817-0a23-45b5-a33b-131e1529037a"]
}, Closed]],
Cell[CellGroupData[{
Cell[1785267, 35737, 153, 3, 71, "Section",ExpressionUUID->"a4004430-241f-4beb-829f-32265e62b6fb"],
Cell[1785423, 35742, 2819, 63, 351, "Code",ExpressionUUID->"382be83b-bfe1-46ed-aa37-2383a36d2e8f"],
Cell[1788245, 35807, 8608, 182, 931, "Code",ExpressionUUID->"8c11c621-289e-45bb-b891-f409b19639ff"]
}, Closed]],
Cell[CellGroupData[{
Cell[1796890, 35994, 203, 4, 71, "Section",ExpressionUUID->"7901f667-9f36-4520-9ac2-ea9cffc5209d"],
Cell[1797096, 36000, 3459, 74, 420, "Code",ExpressionUUID->"124f094d-a5e2-49ef-a804-e64bdb5415d7"],
Cell[1800558, 36076, 9744, 203, 975, "Code",ExpressionUUID->"9cfcfbe7-47a1-4dc2-93a8-b30ae9d57d5c"]
}, Closed]],
Cell[CellGroupData[{
Cell[1810339, 36284, 213, 4, 71, "Section",ExpressionUUID->"cf03407e-1e65-4e8d-ab2c-5cb423573e1f"],
Cell[1810555, 36290, 247, 6, 60, "Input",ExpressionUUID->"b4775daa-4164-4d22-bb8d-69210ac7c334",
 InitializationCell->True],
Cell[1810805, 36298, 956, 24, 168, "Code",ExpressionUUID->"d0f88a97-dc2f-4eb0-b4b0-942c281474e2"],
Cell[1811764, 36324, 6489, 143, 714, "Input",ExpressionUUID->"f82d4c70-afbb-439b-a8b6-b000cbd31336",
 InitializationCell->True],
Cell[1818256, 36469, 2734, 58, 494, "Input",ExpressionUUID->"99743192-7269-455d-b2bf-5a7902b8fd6d",
 InitializationCell->True],
Cell[1820993, 36529, 9791, 216, 630, "Input",ExpressionUUID->"d959e4c6-d01d-423f-b9e4-c85ba70e5bc9",
 InitializationCell->True],
Cell[1830787, 36747, 4894, 112, 575, "Input",ExpressionUUID->"5aa0064d-1d89-40b2-89ac-c3b34c2b8fa1",
 InitializationCell->True]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)