MDA with molluscicide for PNAS.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    259620,       6438]
NotebookOptionsPosition[    247371,       6038]
NotebookOutlinePosition[    250537,       6136]
CellTagsIndexPosition[    249893,       6114]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
SWB model with MDA and molluscicide: multiple control strategies\
\>", "Title",
 CellChangeTimes->{{3.6940985994568243`*^9, 3.694098625181571*^9}, {
  3.7109485868577127`*^9, 3.7109485907957973`*^9}, {3.7136491031255856`*^9, 
  3.7136491310772424`*^9}},
 ExpressionUUID -> "4f396778-c1c0-4add-b40d-c440039b90ea"],

Cell[CellGroupData[{

Cell["Copyright: David Gurarie", "Chapter",
 CellChangeTimes->{{3.694098685377117*^9, 3.694098694229374*^9}, {
  3.7136490764317684`*^9, 3.7136490847493196`*^9}, {3.713649136581917*^9, 
  3.7136491449035797`*^9}}],

Cell[TextData[{
 "Calibration scheme of transmission coefficients ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "i"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " (snail-to-human), for age-structured SWB (i=C,S,A - Child-SAC-Adult)\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["A", "i"], "=", 
    FractionBox[
     RowBox[{
      SubscriptBox["\[Lambda]", "i"], "(", 
      RowBox[{
       SubscriptBox["\[Gamma]", "i"], "+", 
       SubscriptBox["\[Mu]", "i"]}], ")"}], "z"]}], TraditionalForm]],
  ExpressionUUID -> "2e9a151a-1c02-4c62-812c-fc4c42528623"],
 ";  equilibrium patent snail density - ",
 StyleBox["z",
  FontSlant->"Italic"],
 ". For human-to-snail need 2 auxiliary functions.\ni) Mean mated count \
(relative injectivity) \[CapitalPhi]. For C-S-A system, \
\[CapitalPhi](\[Omega]) =",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"m", "=", "1"}], "N"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Omega]", "C"], 
        SubscriptBox["hC", "m"]}], "+", 
       SubscriptBox["hS", "m"], "+", 
       RowBox[{
        SubscriptBox["\[Omega]", "A"], 
        SubscriptBox["hA", "m"]}]}], ")"}], 
     SubscriptBox["\[Phi]", "m"]}]}], TraditionalForm]],
  ExpressionUUID -> "a4cdb031-5dac-4560-b1ad-a7771ec0a713"],
 "; with relative contact/exposure rates: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Omega]", "i"], "="}], TraditionalForm]],
  ExpressionUUID -> "890f4466-37db-42cf-92c0-0dd0d26b8dbc"],
 " ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Omega]", "i"], TraditionalForm]],
  ExpressionUUID -> "2e36ccec-cbf3-446e-a331-407d49e5c830"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     SubscriptBox["\[Rho]", "i"], 
     SubscriptBox["\[Rho]", "i"]], 
    SubscriptBox["H", "i"]}], TraditionalForm]],
  ExpressionUUID -> "ccd330b6-c266-46d7-9458-b42c9fd1303d"],
 ", i={C,A}\nii) Nonlinear (NL) snail FOI:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[CapitalLambda]", "0"], "(", 
     RowBox[{"y", ",", "\[Omega]", ",", "b"}], ")"}], "=", 
    FractionBox[
     RowBox[{"\[Nu]", " ", "y"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "y"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", " ", 
        SuperscriptBox["E", 
         RowBox[{
          RowBox[{"-", "b"}], "*", 
          RowBox[{"\[CapitalPhi]", "(", "\[Omega]", ")"}]}]]}], ")"}]}]]}], 
   TraditionalForm]],
  ExpressionUUID -> "d33ac12f-8467-4044-bdc2-7016397bdab9"],
 "\nInputs for calibration scheme\ni) CSA - posterior choice dsa \
={(\[Lambda]i,ki,\[Rho]i)}, \nii) baseline snail densities: {x,y,z}, \
N=x+y+z<1; \niii) environment/behavior - {b,\[Omega]C,\[Omega]A} (SAC \
transmission, C-A relative exposure factors)\nPHL= weighted injectivity (MCB) \
generated from {\[Lambda],k,\[Rho]} -triplet\n",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Calibrated", "  ", 
    RowBox[{"outpus", ":", " ", 
     RowBox[{
      RowBox[{"{", "Ai", "}"}], " ", "+", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["\[CapitalLambda]", "0"], ",", "\[Beta]", ",", "r"}], 
       "}"}]}]}]}], " ", "=", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"max", " ", "snail", " ", "FOI"}], ",", " ", 
      RowBox[{"max", " ", "growth"}], ",", " ", "patency"}], "}"}], ".", 
    " "}]}]], "Input",
  CellChangeTimes->{{3.711716914170223*^9, 3.711716914172228*^9}},
  ExpressionUUID -> "2f28dd68-ee55-4ee0-874d-2c260fbc49e0"]
}], "Text",
 CellChangeTimes->{{3.6941743711168065`*^9, 3.694174950204933*^9}, {
   3.694174982027571*^9, 3.694174989275195*^9}, {3.6941769368445435`*^9, 
   3.694176958949155*^9}, {3.6946351785176163`*^9, 3.6946351826393647`*^9}, 
   3.695232869498705*^9, {3.6952329439033384`*^9, 3.6952330623389454`*^9}, {
   3.695233103431573*^9, 3.695233117020191*^9}, {3.695233159064266*^9, 
   3.6952332810660048`*^9}, {3.6952333490463448`*^9, 3.6952334121011467`*^9}, 
   3.6952334512622623`*^9, {3.695233481933723*^9, 3.695233534888053*^9}, {
   3.6952335676139565`*^9, 3.6952337805391817`*^9}, {3.6952340130178676`*^9, 
   3.695234359960765*^9}, {3.695234751700797*^9, 3.695234773596411*^9}, {
   3.6952372001154428`*^9, 3.695237201538384*^9}, {3.7109486086357155`*^9, 
   3.7109486185340443`*^9}, {3.7117161206756134`*^9, 
   3.7117162162776923`*^9}, {3.71171662334186*^9, 3.7117166717248554`*^9}, 
   3.7117168559397807`*^9, {3.711716928910837*^9, 3.7117170024934835`*^9}, {
   3.7117170887144356`*^9, 3.711717131539112*^9}, {3.71171717234556*^9, 
   3.7117172014574146`*^9}, {3.7136491604559608`*^9, 3.713649309449539*^9}, {
   3.713649348903799*^9, 3.7136497919753356`*^9}},
 ExpressionUUID -> "8feffbdc-3511-4d80-998c-f10c72d9eaa5"],

Cell[CellGroupData[{

Cell["Codes", "Section",
 CellChangeTimes->{{3.6908345990636425`*^9, 3.690834603408126*^9}, {
   3.6913574899773245`*^9, 3.6913574908683405`*^9}, {3.691357540988557*^9, 
   3.691357541785821*^9}, {3.6915426086847744`*^9, 3.691542609472335*^9}, {
   3.692974913864684*^9, 3.6929749269304805`*^9}, {3.6929853536089516`*^9, 
   3.6929853669332848`*^9}, {3.6929887974268045`*^9, 
   3.6929887986928644`*^9}, {3.694098721245468*^9, 3.694098722645458*^9}, {
   3.6946341012332535`*^9, 3.694634104596491*^9}, 3.694634206446901*^9, {
   3.6953179048429523`*^9, 3.695317912541085*^9}, {3.706480074693407*^9, 
   3.7064800899618564`*^9}, {3.706889575417313*^9, 3.706889640449768*^9}, {
   3.711201205443475*^9, 3.711201205995781*^9}, {3.711202932408411*^9, 
   3.711202953603839*^9}, 3.711293179689888*^9, {3.7113311003284273`*^9, 
   3.711331101847455*^9}, 3.7116304114809823`*^9, 3.7117195435195317`*^9, {
   3.7132924378464727`*^9, 3.7132924380808473`*^9}},
 CellTags->"All MDA + molluscicide codes",
 ExpressionUUID -> "10146786-9f97-4eaf-8bb2-2d41108c3e6d"],

Cell[CellGroupData[{

Cell["Transmission coefficients for C-S-A SWB coupled to snail", "Subsection",
 CellChangeTimes->{{3.6908345990636425`*^9, 3.690834603408126*^9}, {
   3.6913574899773245`*^9, 3.6913574908683405`*^9}, {3.691357540988557*^9, 
   3.691357541785821*^9}, {3.6915426086847744`*^9, 3.691542609472335*^9}, {
   3.692974913864684*^9, 3.6929749269304805`*^9}, {3.6929853536089516`*^9, 
   3.6929853669332848`*^9}, {3.6929887974268045`*^9, 
   3.6929887986928644`*^9}, {3.694098721245468*^9, 3.694098722645458*^9}, {
   3.6946341012332535`*^9, 3.694634104596491*^9}, 3.694634206446901*^9, {
   3.6953179048429523`*^9, 3.695317912541085*^9}, {3.706480074693407*^9, 
   3.7064800899618564`*^9}, {3.706889575417313*^9, 3.706889640449768*^9}, {
   3.711201205443475*^9, 3.711201205995781*^9}, {3.711202932408411*^9, 
   3.711202953603839*^9}, 3.711293179689888*^9, {3.7113311003284273`*^9, 
   3.711331101847455*^9}, 3.7116304114809823`*^9, 3.71171955301136*^9, {
   3.7136510862314863`*^9, 3.713651106822231*^9}},
 ExpressionUUID -> "ef23ea8f-70a0-4758-a723-060a712769eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"endemic", "  ", "human", " ", "infecticity"}], "  ", "=", " ", 
     RowBox[{
     "mated", " ", "count", " ", "with", " ", "relative", " ", 
      "\"\<exposure x fecundity\>\"", " ", 
      SubscriptBox["\[Omega]", "C"]}]}], ",", 
    SubscriptBox["\[Omega]", "A"], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"and", " ", "\[Lambda]"}], "\[Rule]", 
      FractionBox["\[Lambda]", 
       RowBox[{"\[Mu]", "+", "\[Gamma]"}]]}], ";", " ", 
     RowBox[{"\[Mu]", "\[Rule]", 
      FractionBox["\[Mu]", 
       RowBox[{"\[Mu]", "+", "\[Gamma]"}]]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"RelativeHI", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Lambda]C_", ",", "\[Lambda]S_", ",", "\[Lambda]A_"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Mu]C_", ",", "\[Mu]S_", ",", "\[Mu]A_"}], "}"}], ",", "n_",
        ",", "dw_", ",", 
       RowBox[{"{", 
        RowBox[{"\[Omega]C_", ",", "\[Omega]A_"}], "}"}]}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"sC", "=", 
          RowBox[{"EqSWC", "[", 
           RowBox[{"\[Lambda]C", ",", "\[Mu]C", ",", "n"}], "]"}]}], ",", 
         "sS", ",", "sA", ",", "mcb"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"sS", "=", 
         RowBox[{"EqSW", "[", 
          RowBox[{"\[Lambda]S", ",", "\[Mu]S", ",", "n", ",", " ", "sC"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"sA", "=", 
         RowBox[{"EqSW", "[", 
          RowBox[{"\[Lambda]A", ",", "\[Mu]A", ",", "n", ",", "sS"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"mcb", "=", 
         RowBox[{"MCC", "[", 
          RowBox[{"dw", " ", 
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "n"}], "]"}]}], "]"}]}], ";", 
        RowBox[{"Simplify", "[", 
         RowBox[{"HH", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Omega]C", " ", "sC"}], ",", "sS", ",", 
            RowBox[{"\[Omega]A", " ", "sA"}]}], "}"}], ".", "mcb"}], 
         "]"}]}]}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Transmision", " ", "calibration"}], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{"aLSW", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "x_", ",", "y_", ",", "z_", ",", "b_", ",", "\[Omega]C_", ",", 
         "\[Omega]A_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Mu]C_", ",", "\[Mu]S_", ",", "\[Mu]A_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]C_", ",", "\[Gamma]S_", ",", "\[Gamma]A_"}], "}"}], 
       ",", "das_"}], "]"}], ":=", 
     RowBox[{"das", "[", 
      RowBox[{
       RowBox[{"<|", 
        RowBox[{"{", 
         RowBox[{"<|", 
          RowBox[{
           RowBox[{"Ac", "->", 
            FractionBox[
             RowBox[{"dw1", " ", 
              RowBox[{"(", 
               RowBox[{"\[Mu]C", "+", "\[Gamma]C"}], ")"}], 
              "#\"\[Lambda]C\""}], "z"]}], ",", 
           RowBox[{"As", "->", 
            FractionBox[
             RowBox[{"dw1", " ", 
              RowBox[{"(", 
               RowBox[{"\[Mu]S", "+", "\[Gamma]S"}], ")"}], 
              "#\"\[Lambda]S\""}], "z"]}], ",", 
           RowBox[{"Aa", "->", 
            FractionBox[
             RowBox[{"dw1", " ", 
              RowBox[{"(", 
               RowBox[{"\[Mu]A", "+", "\[Gamma]A"}], ")"}], 
              "#\"\[Lambda]A\""}], "z"]}], ",", "\n", 
           RowBox[{"L", "->", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Nu]", " ", "y"}], "+", 
               RowBox[{"\[Nu]1", " ", "z"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"x", 
               RowBox[{"(", 
                RowBox[{"x", "+", "y", "+", "z"}], ")"}], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"E", "^", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    FractionBox["b", 
                    RowBox[{"(", 
                    RowBox[{"x", "+", "y", "+", "z"}], ")"}]]}], "*", 
                    RowBox[{"RelativeHI", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    "#\"\[Lambda]C\"", ",", "#\"\[Lambda]S\"", ",", 
                    "#\"\[Lambda]A\""}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    FractionBox["\[Mu]C", 
                    RowBox[{"\[Mu]C", "+", "\[Gamma]C"}]], ",", 
                    FractionBox["\[Mu]S", 
                    RowBox[{"\[Mu]S", "+", "\[Gamma]C"}]], ",", 
                    FractionBox["\[Mu]A", 
                    RowBox[{"\[Mu]A", "+", "\[Gamma]A"}]]}], "}"}], ",", "nS",
                     ",", "dw1", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    FractionBox["#\"\[Rho]A\"", "#\"\[Rho]C\""], 
                    "\[Omega]C"}], ",", 
                    RowBox[{
                    FractionBox["#\"\[Rho]A\"", "#\"\[Rho]C\""], 
                    "\[Omega]A"}]}], "}"}]}], "]"}]}], ")"}]}]}], ")"}]}], 
              ")"}]}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"\[Beta]", "\[Rule]", 
            FractionBox[
             RowBox[{
              RowBox[{"\[Nu]", " ", 
               RowBox[{"(", 
                RowBox[{"x", "+", "y"}], ")"}]}], "+", 
              RowBox[{"\[Nu]1", " ", "z"}]}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "x", "-", "y", "-", "z"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"x", "+", "y"}], ")"}]}]]}], ",", 
           RowBox[{"r", "\[Rule]", 
            FractionBox[
             RowBox[{"z", " ", "\[Nu]1"}], "y"]}], ",", "\[IndentingNewLine]", 
           RowBox[{"\[Rho]C", "\[Rule]", "#\"\[Rho]C\""}], ",", 
           RowBox[{"\[Rho]S", "\[Rule]", "#\"\[Rho]S\""}], ",", 
           RowBox[{"\[Rho]A", "\[Rule]", "#\"\[Rho]A\""}]}], "|>"}], "}"}], 
        "|>"}], "&"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6941780912998753`*^9, 3.694178097798479*^9}, 
   3.6941807883168764`*^9, {3.694180935755596*^9, 3.694180945347371*^9}, 
   3.694635224873805*^9, {3.695235094865794*^9, 3.695235127129326*^9}, {
   3.6952351648325157`*^9, 3.6952351780031166`*^9}, {3.6952356139985905`*^9, 
   3.695235614950225*^9}, {3.695236137435908*^9, 3.695236138155391*^9}, {
   3.695317756080612*^9, 3.695317797826051*^9}, 3.6973766550961742`*^9, {
   3.697398843245479*^9, 3.697398863431975*^9}, 3.697399723591812*^9, {
   3.6979941103944917`*^9, 3.697994112765874*^9}, 3.7064798075890427`*^9, 
   3.7068879402847853`*^9, {3.711202533983734*^9, 3.7112026636953206`*^9}, {
   3.711202715350615*^9, 3.7112027238074636`*^9}, 3.7112944123872337`*^9, {
   3.7117167002017736`*^9, 3.711716774280731*^9}, 3.7132927503949203`*^9, 
   3.7134650698025465`*^9, {3.7135558262548695`*^9, 3.713555827020443*^9}, {
   3.7136498763462996`*^9, 3.7136499424424224`*^9}, 3.7136501453892665`*^9, 
   3.713651078775513*^9},
 CellTags->"C-S-A transmission",
 ExpressionUUID -> "9be7d4cc-b8bc-42fd-ace2-f634e4af6b13"]
}, Closed]],

Cell[CellGroupData[{

Cell["Diagnostics codes", "Subsection",
 CellChangeTimes->{{3.695343842691452*^9, 3.6953438485033607`*^9}, {
   3.7064798250443745`*^9, 3.7064798277902856`*^9}, {3.711373641230585*^9, 
   3.7113736576898456`*^9}, 3.7116304467903805`*^9, {3.7135547229194927`*^9, 
   3.7135547459676037`*^9}, {3.7135547911678534`*^9, 
   3.7135547911678534`*^9}, {3.713649980527843*^9, 3.713649984783682*^9}},
 ExpressionUUID -> "d619c59a-c9b8-4d6b-b30b-68c85dd3e5c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Truncated", " ", "screened", " ", "SWB", " ", "for", " ", "total", " ", 
    "population", " ", "Nt"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TrunSW", "[", 
      RowBox[{"sw_", ",", "Nt_"}], "]"}], ":=", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"xx", "=", 
         RowBox[{"Round", "[", 
          RowBox[{"sw", " ", "Nt"}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NestWhile", "[", 
        RowBox[{"Most", ",", "xx", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Last", "[", "#", "]"}], "==", "0"}], "&"}]}], "]"}]}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{"(*", "NB", "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{"NB", "[", 
      RowBox[{"k_", ",", "p_"}], "]"}], ":=", 
     RowBox[{"NegativeBinomialDistribution", "[", 
      RowBox[{"k", ",", "p"}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"2", "-", 
     RowBox[{"parameter", " ", "SWB"}], "-", 
     RowBox[{"NB", " ", "mixture"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MixD", "[", 
      RowBox[{"k_", ",", "\[Rho]_", ",", 
       RowBox[{"(*", "Weights", "*)"}], "hw_", ",", "dw_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"MixtureDistribution", "[", 
      RowBox[{"hw", ",", 
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"NB", "[", 
            RowBox[{
             RowBox[{"k", " ", 
              RowBox[{"MCC", "[", 
               RowBox[{"dw", " ", "i"}], "]"}]}], ",", 
             FractionBox["k", 
              RowBox[{"k", "+", "\[Rho]"}]]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{"Length", "@", "hw"}], "-", "1"}]}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"(*", 
          RowBox[{"delta", "-", "0"}], "*)"}], 
         RowBox[{"BernoulliDistribution", "[", "0", "]"}]}], "]"}]}], "]"}]}],
     ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Low", " ", "EPG", " ", "prevalence"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PbL", "[", 
     RowBox[{
     "h_List", ",", "k_", ",", "\[Rho]_", ",", "dw_", ",", "eL_", ",", 
      "eH_"}], "]"}], ":=", 
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"eL", "<", "x", "<=", "eH"}], ",", 
      RowBox[{"x", "\[Distributed]", 
       RowBox[{"MixD", "[", 
        RowBox[{"k", ",", "\[Rho]", ",", "h", ",", "dw"}], "]"}]}]}], "]"}]}],
    "\n", 
   RowBox[{"(*", 
    RowBox[{"High", " ", "EPG", " ", "prevalence"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PbH", "[", 
     RowBox[{"h_List", ",", "k_", ",", "\[Rho]_", ",", "dw_", ",", "eH_"}], 
     "]"}], ":=", 
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"eH", "<", "x"}], ",", 
      RowBox[{"x", "\[Distributed]", 
       RowBox[{"MixD", "[", 
        RowBox[{"k", ",", "\[Rho]", ",", "h", ",", "dw"}], "]"}]}]}], "]"}]}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Relative", " ", "mean", " ", 
     RowBox[{"EPG", "/", "\[Rho]"}], " ", "for", " ", "SWB", " ", "vars", " ",
      "sw"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MCB", "[", 
      RowBox[{"sw_", ",", "dw_"}], "]"}], ":=", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"L", "=", 
          RowBox[{"Length", "@", "sw"}]}], ",", "rg"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"rg", "=", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", 
           RowBox[{"L", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"sw", ".", 
         RowBox[{"MCC", "[", 
          RowBox[{"dw", " ", "rg"}], "]"}]}]}]}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"EPG", "-", 
      RowBox[{
      "prevalence", " ", "for", " ", "parameter", " ", "dataset", " ", 
       "dz"}]}], ",", " ", 
     RowBox[{"age", "-", 
      RowBox[{"group", " ", "a"}]}], ",", " ", 
     RowBox[{
      RowBox[{"low", " ", "cut"}], "=", "eg"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"ESP", "[", 
     RowBox[{"dz_", ",", 
      RowBox[{"(*", 
       RowBox[{"age", "-", "group"}], "*)"}], "a_", ",", "eg_"}], "]"}], ":=",
     "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"hv", "=", 
         RowBox[{"Symbol", "[", 
          RowBox[{
           RowBox[{"ToString", "@", "ht"}], "<>", 
           RowBox[{"ToString", "@", "a"}]}], "]"}]}], ",", 
        RowBox[{"ka", "=", 
         RowBox[{"\"\<k\>\"", "<>", 
          RowBox[{"ToString", "@", "a"}]}]}], ",", 
        RowBox[{"ra", "=", 
         RowBox[{"\"\<\[Rho]\>\"", "<>", 
          RowBox[{"ToString", "@", "a"}]}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"dz", "[", 
       RowBox[{
        RowBox[{"PbH", "[", 
         RowBox[{"hv", ",", 
          RowBox[{"Slot", "[", "ka", "]"}], ",", 
          RowBox[{"Slot", "[", "ra", "]"}], ",", "dw1", ",", "eg"}], "]"}], 
        "&"}], "]"}]}], "]"}]}], "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"EPG", "-", 
      RowBox[{
      "Low", " ", "prevalence", " ", "for", " ", "parameter", " ", "dataset", 
       " ", "dz"}]}], ",", " ", 
     RowBox[{"age", "-", 
      RowBox[{"group", " ", "a"}]}], ",", " ", 
     RowBox[{
      RowBox[{"low", " ", "cut"}], "=", "eg"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"ESL", "[", 
     RowBox[{"dz_", ",", 
      RowBox[{"(*", 
       RowBox[{"age", "-", "group"}], "*)"}], "a_", ",", "eL_", ",", "eH_"}], 
     "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"hv", "=", 
         RowBox[{"Symbol", "[", 
          RowBox[{
           RowBox[{"ToString", "@", "ht"}], "<>", 
           RowBox[{"ToString", "@", "a"}]}], "]"}]}], ",", 
        RowBox[{"ka", "=", 
         RowBox[{"\"\<k\>\"", "<>", 
          RowBox[{"ToString", "@", "a"}]}]}], ",", 
        RowBox[{"ra", "=", 
         RowBox[{"\"\<\[Rho]\>\"", "<>", 
          RowBox[{"ToString", "@", "a"}]}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"dz", "[", 
       RowBox[{
        RowBox[{"PbL", "[", 
         RowBox[{"hv", ",", 
          RowBox[{"Slot", "[", "ka", "]"}], ",", 
          RowBox[{"Slot", "[", "ra", "]"}], ",", "dw1", ",", "eL", ",", 
          "eH"}], "]"}], "&"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{
  3.676210936846665*^9, 3.6762231961043577`*^9, {3.678722162637418*^9, 
   3.678722164650552*^9}, 3.678724106269489*^9, 3.7007417840070868`*^9, {
   3.713465091575744*^9, 3.7134650929823275`*^9}, 3.7136503422216434`*^9, {
   3.713650388086874*^9, 3.713650393613567*^9}, 3.713650457058051*^9},
 CellTags->"Diagnostics",
 ExpressionUUID -> "9180d783-614a-44c0-bf30-c45a17333af9"]
}, Closed]],

Cell[CellGroupData[{

Cell["MDA & molluscicide control events", "Subsection",
 CellChangeTimes->{{3.6908345990636425`*^9, 3.690834603408126*^9}, {
   3.6913574899773245`*^9, 3.6913574908683405`*^9}, {3.691357540988557*^9, 
   3.691357541785821*^9}, {3.6915426086847744`*^9, 3.691542609472335*^9}, {
   3.692974913864684*^9, 3.6929749269304805`*^9}, {3.6929853536089516`*^9, 
   3.6929853669332848`*^9}, {3.6929887974268045`*^9, 
   3.6929887986928644`*^9}, {3.6941146599613733`*^9, 3.6941146604327064`*^9}, 
   3.6952372464853716`*^9, 3.7113063890958652`*^9, 3.711308536412978*^9, {
   3.71148244299842*^9, 3.711482503001136*^9}, {3.7117176529958873`*^9, 
   3.7117176650272985`*^9}, {3.711717709413166*^9, 3.711717710931051*^9}, 
   3.711719074581026*^9, {3.7133736047256165`*^9, 3.713373606085524*^9}, {
   3.713650429499652*^9, 3.7136504378682384`*^9}},
 ExpressionUUID -> "5890c524-f8ea-478a-aa88-8f89d3e8cb4b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MDA", " ", "reshuffle"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"TrM", "[", 
     RowBox[{"hv_", ",", "e_"}], "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"n", "=", 
         RowBox[{"Length", "@", "hv"}]}], ",", "zz"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"zz", "=", 
        RowBox[{"Thread", "@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", 
             RowBox[{"n", "-", "1"}]}], "]"}], ",", "hv"}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"PadRight", "[", 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"Total", "/@", 
           RowBox[{"GroupBy", "[", 
            RowBox[{"zz", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Floor", "[", 
                RowBox[{"e", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}], "\[Rule]", 
              "Last"}]}], "]"}]}], "]"}], ",", "n"}], "]"}]}]}], "]"}]}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Endemic", " ", "initialization", " ", "for", " ", "posterior", " ", 
       "input"}], " ", "=", " ", "da"}], ",", " ", 
     RowBox[{
      RowBox[{"snail", " ", "prevalence"}], " ", "=", " ", "yq"}]}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"InS", "[", "da_", "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"(*", 
         RowBox[{"C", " ", "equilibium"}], "*)"}], 
        RowBox[{
         RowBox[{"sc", "=", 
          RowBox[{"EqSWC", "[", 
           RowBox[{
            RowBox[{"da", "[", "\"\<\[Lambda]C\>\"", "]"}], ",", 
            RowBox[{
             FractionBox["\[Mu]C", 
              RowBox[{"\[Mu]C", "+", "\[Gamma]C"}]], "/.", "parB"}], ",", 
            "nS"}], "]"}]}], ",", "ss"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ss", "=", 
         RowBox[{"EqSW", "[", 
          RowBox[{
           RowBox[{"da", "[", "\"\<\[Lambda]S\>\"", "]"}], ",", 
           RowBox[{
            FractionBox["\[Mu]S", 
             RowBox[{"\[Mu]S", "+", "\[Gamma]S"}]], "/.", "parB"}], ",", "nS",
            ",", " ", "sc"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"sc", ",", "ss", ",", 
          RowBox[{"(*", 
           RowBox[{"A", " ", "equilibrium"}], "*)"}], 
          RowBox[{"EqSW", "[", 
           RowBox[{
            RowBox[{"da", "[", "\"\<\[Lambda]A\>\"", "]"}], ",", 
            RowBox[{
             FractionBox["\[Mu]A", 
              RowBox[{"\[Mu]A", "+", "\[Gamma]A"}]], "/.", "parB"}], ",", 
            "nS", ",", " ", "ss"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Single", " ", "MDA", " ", "at", " ", "time", " ", "tp"}], "*)"}],
    "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"WEb", "[", 
      RowBox[{"(*", 
       RowBox[{"Dyn", " ", "control", " ", "vars"}], "*)"}], 
      RowBox[{"hv_", ",", 
       RowBox[{"{", 
        RowBox[{"(*", "event", "*)"}], 
        RowBox[{"ev_", ",", 
         RowBox[{"(*", "coverage", "*)"}], "fc_", ",", 
         RowBox[{"(*", "efficacy", "*)"}], "ep_"}], "}"}]}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"hz", "=", " ", 
         RowBox[{"TrM", "[", 
          RowBox[{"hv", ",", "ep"}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"WhenEvent", "[", 
        RowBox[{"ev", ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"hv", "\[Rule]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "fc"}], ")"}], "hv"}], "+", 
            RowBox[{"fc", " ", "hz"}]}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"Regular", " ", 
       RowBox[{"MDA", ":", " ", 
        RowBox[{"control", " ", "vars"}]}]}], "=", " ", "cva"}], ",", " ", 
     RowBox[{
      RowBox[{"frequency", "/", "timing"}], " ", "=", " ", "tc"}], ",", " ", 
     RowBox[{"coverage", "=", "fc"}], ",", " ", 
     RowBox[{"efficacy", " ", "=", "ep"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"WEr", "[", 
      RowBox[{"cva_", ",", "fc_", ",", "ep_", ",", "tc_"}], "]"}], ":=", 
     RowBox[{"WEb", "[", 
      RowBox[{"cva", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{"t", ",", "tc"}], "]"}], "\[Equal]", "0"}], "&&", 
          RowBox[{"t", ">", "0"}]}], ",", "fc", ",", "ep"}], "}"}]}], "]"}]}],
     ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Snail", " ", 
     RowBox[{"control", "[", 
      RowBox[{"efficacy", ",", "timing"}], "]"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"SCE", "[", 
      RowBox[{"cv_", ",", "ep_", ",", "tc_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"WhenEvent", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"t", ",", "tc"}], "]"}], "\[Equal]", "0"}], "&&", 
        RowBox[{"t", ">", "0"}]}], ",", 
       RowBox[{"cv", "\[Rule]", 
        RowBox[{"ep", "  ", "cv"}]}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.7116580999867706`*^9, {3.711658778868537*^9, 3.7116587979149017`*^9}, {
   3.711659523983887*^9, 3.711659534425335*^9}},
 CellTags->"MDA codes",
 ExpressionUUID -> "8a8ca572-3a62-4860-b1d3-229033f14ec5"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Random snail/environment inputs: for equilibria with total N=x+y+z < \
1-\[Nu]/\[Beta] (=max ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["N", "*"], ")"}], TraditionalForm]],
  ExpressionUUID -> "ef59a47e-117c-4f14-9b99-60b4b8fd3e5a"]
}], "Subsection",
 CellChangeTimes->{{3.7117187870861473`*^9, 3.7117188509209127`*^9}, {
   3.7117191213748827`*^9, 3.711719132606044*^9}, 3.711719241831882*^9, {
   3.7127120900083094`*^9, 3.712712101751169*^9}, {3.71275649822138*^9, 
   3.71275650920291*^9}, {3.713651288934907*^9, 3.713651328919095*^9}},
 ExpressionUUID -> "0bda96f6-73cb-42c1-b6d7-06fbd9cbae7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Equil", " ", "snail", " ", 
      RowBox[{"input", ":", " ", "n"}]}], "=", 
     RowBox[{"total", " ", "controlled", " ", "by", " ", 
      RowBox[{"\[Nu]", "/", "\[Beta]"}]}]}], ",", " ", 
    RowBox[{"c", "=", 
     RowBox[{"patency", " ", "fraction"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EqS", "[", 
      RowBox[{"{", 
       RowBox[{"n_", ",", "y_", ",", "c_"}], "}"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "c"}], ")"}], "y"}]}], ",", "y", ",", 
       RowBox[{"c", " ", "y"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"Random", " ", "snail", " ", 
       RowBox[{"inputs", ":", " ", "N"}]}], "=", "total"}], ",", " ", "y", 
     ",", " ", 
     RowBox[{"c", "=", 
      RowBox[{"patency", " ", "fraction"}]}]}], "*)"}], "\n", 
   RowBox[{"raS", ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"RandomReal", "[", "#", "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{".6", ",", ".95"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{".15", ",", ".45"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{".05", ",", ".15"}], "}"}]}], "}"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Random", " ", 
      RowBox[{"env", "/", 
       RowBox[{"behav", ":", " ", "b"}]}]}], ",", " ", "\[Omega]C", ",", " ", 
     "\[Omega]A"}], "*)"}], "\n", 
   RowBox[{"reB", ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"RandomReal", "[", "#", "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{".5", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "1.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "1.5"}], "}"}]}], "}"}]}]}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"snail", "-", 
      RowBox[{
      "env", " ", "input", " ", "with", " ", "low", " ", "density", " ", 
       "cut"}], "-", "off"}], "=", ".001"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"sebR", ":=", 
    RowBox[{"Round", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"EqS", "@", "raS"}], ",", "reB"}], "]"}], ",", ".001"}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.711586218500864*^9, 3.71158624600638*^9}, 
   3.711586829207967*^9, 3.711587394537738*^9, 3.711675432551811*^9, {
   3.711717794467532*^9, 3.7117177984116387`*^9}, {3.711719124710308*^9, 
   3.7117191253250523`*^9}, {3.7117268245067205`*^9, 3.711726831775339*^9}, {
   3.712711851483536*^9, 3.7127119324592514`*^9}, {3.7133738353388243`*^9, 
   3.7133739023935833`*^9}},
 CellTags->"random transmision inputs",
 ExpressionUUID -> "2380019e-7c8f-4b84-80b6-3fe374f74ef5"]
}, Closed]],

Cell[CellGroupData[{

Cell["SWB Codes", "Subsection",
 CellChangeTimes->{{3.713650694946049*^9, 3.7136507066808815`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Rules", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"InR", ":=", 
     RowBox[{
      RowBox[{"InterpolatingFunction", "[", "x__", "]"}], ":>", 
      RowBox[{
       RowBox[{"InterpolatingFunction", "[", "x", "]"}], "[", "t", "]"}]}]}], 
    ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"var", "\[Rule]", 
     RowBox[{"dynamic", " ", "var", " ", "Rule"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Dva", "[", 
      RowBox[{"v_", ",", "t__"}], "]"}], ":=", 
     RowBox[{"AssociationMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "t", "]"}], "&"}], ",", 
       RowBox[{"Flatten", "@", "v"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Convert", " ", "AS"}], " ", "->", " ", 
     RowBox[{"DS", " ", "and", " ", "initialize"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"DSV", "[", 
      RowBox[{"(*", 
       RowBox[{"structured", " ", "algebraic", " ", "system"}], "*)"}], 
      RowBox[{"as_", ",", 
       RowBox[{"(*", 
        RowBox[{"structured", " ", "variables"}], "*)"}], "v_", ",", 
       RowBox[{"(*", 
        RowBox[{"initial", " ", "values"}], "*)"}], "iv_", ",", 
       RowBox[{"(*", 
        RowBox[{"initial", " ", "time"}], "*)"}], "t0_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "va", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"va", "[", "t_", "]"}], "=", 
         RowBox[{"v", "/.", 
          RowBox[{"Dva", "[", 
           RowBox[{"v", ",", "t"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"va", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"(", 
            RowBox[{"as", "/.", 
             RowBox[{"Dva", "[", 
              RowBox[{"v", ",", "t"}], "]"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"va", "[", "t0", "]"}], "\[Equal]", "iv"}]}], "}"}]}]}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Unit", "-", 
     RowBox[{"vect", " ", "source"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"UV", "[", "n_", "]"}], ":=", 
     RowBox[{"UnitVector", "[", 
      RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"Convert", " ", "AS"}], " ", "->", " ", "DDS"}], ",", " ", 
     RowBox[{"initialize", " ", "DDS"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"DDSV", "[", 
      RowBox[{"(*", 
       RowBox[{"algebraic", " ", "system"}], "*)"}], 
      RowBox[{"as_", ",", 
       RowBox[{"(*", "variables", "*)"}], "v_", ",", 
       RowBox[{"(*", 
        RowBox[{"initial", " ", "values"}], "*)"}], "iv_", ",", 
       RowBox[{"(*", 
        RowBox[{"initial", " ", "time"}], "*)"}], "t0_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", "va", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"va", "[", "t_", "]"}], "=", 
         RowBox[{"v", "/.", 
          RowBox[{"Dva", "[", 
           RowBox[{"v", ",", "t"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"va", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"(", 
            RowBox[{"as", "/.", 
             RowBox[{"Dva", "[", 
              RowBox[{"v", ",", "t"}], "]"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"va", "[", 
            RowBox[{"t", "/;", 
             RowBox[{"t", "<=", "t0"}]}], "]"}], "\[Equal]", "iv"}]}], 
         "}"}]}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6552073781265817`*^9, 3.655207394628606*^9}, {
   3.664473316714491*^9, 3.664473318100423*^9}, {3.6644738974076166`*^9, 
   3.6644739112318535`*^9}, {3.66447400215124*^9, 3.664474003192944*^9}, {
   3.667649933466176*^9, 3.667649945756586*^9}, 3.675708898599803*^9, {
   3.6797541473372736`*^9, 3.6797541499943743`*^9}, 3.6797542890081367`*^9, {
   3.6797543338374014`*^9, 3.6797543488808327`*^9}, {3.6797545431140485`*^9, 
   3.679754553034453*^9}, {3.679754591739684*^9, 3.6797546286777296`*^9}, {
   3.679755442728655*^9, 3.6797554440258*^9}, {3.6797556256046295`*^9, 
   3.679755631390093*^9}, 3.679755755983491*^9, {3.679962520790552*^9, 
   3.6799625367192135`*^9}, {3.6890280413660717`*^9, 3.6890280507774363`*^9}, 
   3.6890281064532175`*^9, 3.6890281393255343`*^9, 3.68902874091395*^9, 
   3.690574806783487*^9, 3.6905799515694923`*^9, 3.6946225190828547`*^9, 
   3.7005020563912067`*^9, {3.713650719693571*^9, 3.71365072731666*^9}, {
   3.713651153650606*^9, 3.7136511548023796`*^9}},
 CellTags->{"General", "Basic SWB", "snail"},
 ExpressionUUID -> "100d3676-4de1-4488-ad53-f799e78179ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Mated", " ", "Couple", " ", "Count"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"MCC", "[", "n_", "]"}], "=", 
     RowBox[{
      FractionBox["n", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox["2", 
          RowBox[{
           RowBox[{"-", "2"}], 
           RowBox[{"Floor", "[", 
            RowBox[{"n", "/", "2"}], "]"}]}]], 
         RowBox[{"Binomial", "[", 
          RowBox[{
           RowBox[{"2", 
            RowBox[{"Floor", "[", 
             RowBox[{"n", "/", "2"}], "]"}]}], ",", 
           RowBox[{"Floor", "[", 
            RowBox[{"n", "/", "2"}], "]"}]}], "]"}]}]}], ")"}]}]}], ";"}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{"Basic", " ", "SWB", " ", "system"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"HTM", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Lambda]_", ",", "\[Mu]_", ",", "\[Gamma]_"}], "}"}], ",", 
       "n_", ",", "h_"}], "]"}], ":=", 
     RowBox[{"(*", 
      RowBox[{
      "h_", " ", "is", " ", "a", " ", "label", " ", "for", " ", "the", " ", 
       "SWB", " ", "variables", " ", "h"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Lambda]", " ", 
          SubscriptBox["h", 
           RowBox[{"k", "-", "1"}]]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"Sign", "[", 
              RowBox[{"n", "-", "k"}], "]"}]}], "+", 
            RowBox[{"k", " ", "\[Gamma]"}], "+", "\[Mu]"}], ")"}], 
          SubscriptBox["h", "k"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"k", "+", "1"}], ")"}], "\[Gamma]", " ", 
          SubscriptBox["h", 
           RowBox[{"k", "+", "1"}]]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["h", 
          RowBox[{"-", "1"}]], "\[Rule]", "0"}], ",", 
        RowBox[{
         SubscriptBox["h", 
          RowBox[{"n", "+", "1"}]], "\[Rule]", "0"}]}], "}"}]}]}], ";"}], 
   "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"SWB", " ", "eq"}], "-", "ns", " ", "+", "variables", "+", " ", 
      RowBox[{"snail", " ", 
       RowBox[{"FOI", ":", " ", 
        RowBox[{"\[Mu]", " ", "-", " ", 
         RowBox[{"age", " ", "specific", " ", "mortality"}], " ", "+", 
         "maturation"}]}]}]}], ";", " ", 
     RowBox[{"\[Lambda]", " ", "=", " ", "MWB"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"SWB", "[", 
      RowBox[{"(*", "strata", "*)"}], 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n_", ",", "dw_", ",", 
         RowBox[{"(*", 
          RowBox[{"var", " ", "name"}], "*)"}], "h_"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"infection", " ", "pars"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"\[Lambda]_", ",", "\[Gamma]_"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", "crowding", "*)"}], "u_", ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Source", "-", "turnover"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"S_", ",", "\[Mu]_"}], "}"}]}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"rg", "=", 
          RowBox[{"Range", "[", 
           RowBox[{"0", ",", "n"}], "]"}]}], ",", "hv"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"HTM", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              FractionBox["\[Lambda]", "dw"], ",", "\[Mu]", ",", "\[Gamma]"}],
              "}"}], ",", "n", ",", "h"}], "]"}], "+", "S"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", "variables", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"hv", "=", 
          RowBox[{
           RowBox[{
            SubscriptBox["h", "#"], "&"}], "/@", "rg"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"relative", " ", "weighted", " ", "infectivity"}], " ", 
           "=", " ", 
           RowBox[{"mean", " ", "mated", " ", "count"}]}], "*)"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MCC", "[", 
             RowBox[{"dw", " ", "rg"}], "]"}], " ", 
            SuperscriptBox["u", "rg"]}], ")"}], ".", "hv"}]}], "}"}]}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Equilibrium", " ", "SWB", " ", "with", " ", "FOI", " ", "\[Lambda]"}], 
      "=", 
      RowBox[{
       RowBox[{"MWB", "/", "dw"}], "\[Rule]", 
       FractionBox["\[Lambda]", 
        RowBox[{"\[Mu]", "+", "\[Gamma]"}]]}]}], ",", " ", 
     RowBox[{
      RowBox[{"relative", " ", 
       RowBox[{"t", "/", "o"}], " ", "\[Mu]"}], "=", 
      RowBox[{"\[Mu]", "/", 
       RowBox[{"(", 
        RowBox[{"\[Mu]", "+", "\[Gamma]"}], ")"}]}]}], ",", 
     RowBox[{
      RowBox[{"strata", " ", "#"}], "=", "n"}], ",", 
     RowBox[{"source", "=", "so"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     StyleBox[
      RowBox[{"EqSW", "[", 
       RowBox[{"\[Lambda]_", ",", "\[Mu]_", ",", "n_", ",", "so_"}], "]"}],
      FontColor->GrayLevel[0]], 
     StyleBox[":=",
      FontColor->GrayLevel[0]], 
     StyleBox["\[IndentingNewLine]",
      FontColor->GrayLevel[0]], 
     RowBox[{
      StyleBox["Block",
       FontColor->GrayLevel[0]], 
      StyleBox["[",
       FontColor->GrayLevel[0]], 
      RowBox[{
       StyleBox[
        RowBox[{"{", 
         RowBox[{
         "az", ",", "h", ",", "hv", ",", "bz", ",", "mz", ",", "sw", ",", 
          "rg"}], "}"}],
        FontColor->GrayLevel[0]], 
       StyleBox[",",
        FontColor->GrayLevel[0]], 
       StyleBox["\[IndentingNewLine]",
        FontColor->GrayLevel[0]], 
       RowBox[{
        RowBox[{"rg", "=", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "n"}], "]"}]}], ";", 
        StyleBox["\[IndentingNewLine]",
         FontColor->GrayLevel[0]], 
        StyleBox[
         RowBox[{"az", "=", 
          RowBox[{
           RowBox[{"HTM", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\[Lambda]", ",", "\[Mu]", ",", 
               RowBox[{"1", "-", "\[Mu]"}]}], "}"}], ",", "n", ",", "h"}], 
            "]"}], "+", "so"}]}],
         FontColor->GrayLevel[0]], 
        StyleBox[";",
         FontColor->GrayLevel[0]], 
        StyleBox["\[IndentingNewLine]",
         FontColor->GrayLevel[0]], 
        RowBox[{"hv", "=", 
         RowBox[{
          RowBox[{
           SubscriptBox["h", "#"], "&"}], "/@", "rg"}]}], ";", 
        "\[IndentingNewLine]", 
        StyleBox[
         RowBox[{
          RowBox[{"{", 
           RowBox[{"bz", ",", "mz"}], "}"}], "=", 
          RowBox[{"CoefficientArrays", "[", 
           RowBox[{"az", ",", "hv"}], "]"}]}],
         FontColor->GrayLevel[0]], 
        StyleBox[";",
         FontColor->GrayLevel[0]], 
        StyleBox["\[IndentingNewLine]",
         FontColor->GrayLevel[0]], 
        StyleBox[
         RowBox[{"sw", "=", 
          RowBox[{"LinearSolve", "[", 
           RowBox[{"mz", ",", 
            RowBox[{"-", "bz"}]}], "]"}]}],
         FontColor->GrayLevel[0]], 
        StyleBox[";",
         FontColor->GrayLevel[0]], 
        StyleBox["\[IndentingNewLine]",
         FontColor->GrayLevel[0]], 
        FractionBox[
         StyleBox["sw",
          FontColor->GrayLevel[0]], 
         RowBox[{"Total", "@", "sw"}]]}]}], 
      StyleBox["]",
       FontColor->GrayLevel[0]]}]}], 
    StyleBox[";",
     FontColor->GrayLevel[0]]}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"Child", " ", "equilibrium", " ", "for", " ", "\[Lambda]"}], "->", 
      RowBox[{"\[Lambda]", "/", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}]}]}], ",", " ", 
     RowBox[{"\[Mu]", "->", 
      RowBox[{"\[Mu]", "/", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}]}]}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"EqSWC", "[", 
      RowBox[{"\[Lambda]_", ",", "\[Mu]_", ",", "n_"}], "]"}], ":=", 
     RowBox[{"EqSW", "[", 
      RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "n", ",", 
       RowBox[{"UnitVector", "[", 
        RowBox[{
         RowBox[{"n", "+", "1"}], ",", "1"}], "]"}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6552073781265817`*^9, 3.655207394628606*^9}, {
   3.664473316714491*^9, 3.664473318100423*^9}, {3.6644738974076166`*^9, 
   3.6644739112318535`*^9}, {3.66447400215124*^9, 3.664474003192944*^9}, {
   3.667649933466176*^9, 3.667649945756586*^9}, 3.675708898599803*^9, {
   3.6797541473372736`*^9, 3.6797541499943743`*^9}, 3.6797542890081367`*^9, {
   3.6797543338374014`*^9, 3.6797543488808327`*^9}, {3.6797545431140485`*^9, 
   3.679754553034453*^9}, {3.679754591739684*^9, 3.6797546286777296`*^9}, {
   3.679755442728655*^9, 3.6797554440258*^9}, {3.6797556256046295`*^9, 
   3.679755631390093*^9}, 3.679755755983491*^9, {3.679962520790552*^9, 
   3.6799625367192135`*^9}, {3.6890280413660717`*^9, 3.6890280507774363`*^9}, 
   3.6890281064532175`*^9, 3.6890281393255343`*^9, 3.68902874091395*^9, 
   3.690574806783487*^9, 3.6905799515694923`*^9, 3.6946225190828547`*^9, 
   3.7005020563912067`*^9, 3.7112933410759373`*^9, {3.7134651034351225`*^9, 
   3.713465126585063*^9}},
 CellTags->{"General", "Basic SWB", "snail"},
 ExpressionUUID -> "53d767e7-db93-4e29-b99a-c3521ad35892"]
}, Closed]],

Cell[CellGroupData[{

Cell["Leslie demographics", "Subsection",
 CellChangeTimes->{{3.7136512555296135`*^9, 3.7136512649338865`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Leslie", " ", 
     RowBox[{"matrix", ":", " ", 
      RowBox[{"\[Mu]", "-", "mort"}]}]}], ",", " ", 
    RowBox[{"\[Tau]", "-", "maturation"}], ",", " ", 
    RowBox[{"b", " ", "-", " ", "birth"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LeS", "[", 
     RowBox[{"\[Mu]_", ",", "\[Tau]_", ",", "b_"}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"L", "=", 
        RowBox[{"SparseArray", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Band", "@", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}]}], "\[Rule]", 
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"\[Mu]", "+", "\[Tau]"}], ")"}]}]}], ",", 
           RowBox[{
            RowBox[{"Band", "@", 
             RowBox[{"{", 
              RowBox[{"2", ",", "1"}], "}"}]}], "\[Rule]", 
            RowBox[{"Most", "@", "\[Tau]"}]}]}], "}"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ReplacePart", "[", 
       RowBox[{"L", ",", 
        RowBox[{"1", "\[Rule]", 
         RowBox[{
          RowBox[{"L", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"PadLeft", "[", 
           RowBox[{"b", ",", 
            RowBox[{"Length", "@", "\[Mu]"}]}], "]"}]}]}]}], "]"}]}], "]"}]}],
    "\n", 
   RowBox[{"(*", 
    RowBox[{"Leslie", " ", 
     RowBox[{"outputs", ":", " ", 
      RowBox[{
       RowBox[{"Pop", " ", "growth", " ", "rate"}], " ", "+", " ", 
       RowBox[{"pop", " ", "fractions"}]}]}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"LesR", "[", 
     RowBox[{"mor_", ",", "mat_", ",", "b_"}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"ee", ",", "ev", ",", "v", ",", "ka"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"ee", ",", "ev"}], "}"}], "=", 
        RowBox[{"Chop", "@", 
         RowBox[{"Eigensystem", "@", 
          RowBox[{"LeS", "[", 
           RowBox[{"mor", ",", "mat", ",", "b"}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"ka", "=", 
        RowBox[{"KeySort", "@", 
         RowBox[{"Thread", "[", 
          RowBox[{"ee", "->", "ev"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"v", "=", 
        RowBox[{"Last", "@", "ka"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Last", "@", 
          RowBox[{"Keys", "@", "ka"}]}], ",", 
         FractionBox["v", 
          RowBox[{"Total", "@", "v"}]]}], "}"}]}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.698625821415879*^9, 3.6986259076373067`*^9}, {
   3.698626433802854*^9, 3.698626450417833*^9}, {3.698626534505722*^9, 
   3.698626573351653*^9}, {3.698628080943373*^9, 3.698628213036271*^9}, {
   3.698628255941095*^9, 3.698628323130776*^9}, {3.698628409343615*^9, 
   3.6986284100315104`*^9}, {3.6986291922621155`*^9, 3.698629194418682*^9}, 
   3.6986296182998157`*^9, 3.69862986070308*^9, {3.6986314383006372`*^9, 
   3.698631454193509*^9}},
 CellTags->{"Stationary Leslie", "Dynamic Leslie"},
 ExpressionUUID -> "9db11985-5514-4742-afda-3d40fe73ae35"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots", "Subsection",
 CellChangeTimes->{{3.690825876587347*^9, 3.690825880587858*^9}, {
   3.7114834920798073`*^9, 3.711483494165271*^9}, 3.7136501946381435`*^9},
 ExpressionUUID -> "35b2fe75-65e1-4219-ba7d-3db9c17f4fec"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GRo", "[", 
    RowBox[{"g_", ",", "op___"}], "]"}], ":=", 
   RowBox[{"GraphicsRow", "[", 
    RowBox[{"g", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", "op"}], "]"}]}], "\n", 
  RowBox[{"(*", 
   RowBox[{"Plot", " ", "time", " ", "series"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"PTS", "[", 
    RowBox[{"f_", ",", 
     RowBox[{"{", 
      RowBox[{"t1_", ",", "t2_"}], "}"}], ",", "ra_", ",", "st_", ",", "la_", 
     ",", "op___"}], "]"}], ":=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "@", "f"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "t1", ",", "t2"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "ra"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "st"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", "la"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"12", ",", "Italic"}], "}"}]}], ",", "op"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Bas", "=", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"12", ",", "Italic"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Discrete", " ", "plot"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"PDS", "[", 
    RowBox[{"fd_", ",", "ra_", ",", "st_", ",", "la_", ",", "op___"}], "]"}], 
   ":=", "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"fd", ",", 
     RowBox[{"PlotRange", "\[Rule]", "ra"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "st"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", "la"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"12", ",", "Italic"}], "}"}]}], ",", "op"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.692658942260765*^9, 3.69265898963787*^9}, {
   3.692659042572957*^9, 3.6926590627574387`*^9}, {3.6926591096742587`*^9, 
   3.69265918455128*^9}, {3.692659226455839*^9, 3.6926592704974165`*^9}, {
   3.6926595116341124`*^9, 3.692659565264785*^9}, 3.692659675953422*^9, {
   3.6926675613791084`*^9, 3.692667578330489*^9}, 3.692669883900247*^9, 
   3.6941312989271135`*^9, {3.706481464426114*^9, 3.706481466035815*^9}, {
   3.7064815314695387`*^9, 3.7064815858674445`*^9}, {3.7064817243603373`*^9, 
   3.706481726020664*^9}, {3.7065401285822773`*^9, 3.70654014004725*^9}, 
   3.711561819142147*^9, 3.711719769344409*^9, {3.7132965364128003`*^9, 
   3.7132965407931614`*^9}, {3.7136501991521564`*^9, 3.713650215348963*^9}, 
   3.713650284587172*^9},
 CellTags->"Plots",
 ExpressionUUID -> "0414c254-ff60-475f-b9e1-f196ac93ee64"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Generate coupled human-snail system", "Section",
 CellChangeTimes->{{3.7136506051230965`*^9, 3.7136506125870757`*^9}, {
  3.713653137217415*^9, 3.7136531412090764`*^9}}],

Cell[CellGroupData[{

Cell["Snail model: variables, pars", "Subsection",
 CellChangeTimes->{{3.6674124131161785`*^9, 3.6674124187859635`*^9}, {
  3.6705954324544287`*^9, 3.67059543813527*^9}, {3.670598831163965*^9, 
  3.670598833205056*^9}, {3.670604583094017*^9, 3.670604587062992*^9}, {
  3.6757153205137215`*^9, 3.6757153220353107`*^9}, {3.676159058264952*^9, 
  3.6761590597932024`*^9}, {3.678643407110956*^9, 3.678643417980027*^9}, {
  3.678651710578598*^9, 3.6786517196797237`*^9}, {3.678652379879716*^9, 
  3.6786523811783967`*^9}, {3.700576809668298*^9, 3.7005768101246204`*^9}, {
  3.7136505294753885`*^9, 3.713650530539094*^9}},
 ExpressionUUID -> "91e053bb-5f96-4e77-be72-6e0251273189"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Logistic", " ", "SEI", " ", "snail", " ", "with", " ", "FOI"}], 
     "=", "L"}], ",", " ", 
    RowBox[{"r", "-", " ", 
     RowBox[{"infection", " ", "removal", " ", "rate"}]}], ",", " ", 
    RowBox[{
     RowBox[{"c", "-", " ", 
      RowBox[{"patent", " ", "conversion", " ", "fraction"}]}], ";", " ", 
     RowBox[{"\[Nu]", " ", "-", " ", 
      RowBox[{"snail", " ", "mortality"}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"LgS", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"(*", 
         RowBox[{"source", "/", "birth"}], "*)"}], 
        RowBox[{"\[Beta]_", ",", "\[Nu]_", ",", "\[Nu]1_", ",", "r_"}], "}"}],
        ",", 
       RowBox[{"(*", "FOI", "*)"}], "L_"}], "]"}], "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Beta]", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"(", 
            RowBox[{"x", "+", "y", "+", "z"}], ")"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"x", "+", "y"}], ")"}]}], "-", 
        RowBox[{"L", " ", "x"}], "-", 
        RowBox[{"\[Nu]", " ", "x"}]}], ",", 
       RowBox[{
        RowBox[{"L", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"r", "+", "\[Nu]"}], ")"}], "y"}]}], " ", ",", " ", 
       RowBox[{
        RowBox[{"r", " ", "y"}], "-", 
        RowBox[{"\[Nu]1", " ", "z"}]}]}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Snail", " ", "variables"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"sva", "=", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Snail", " ", "paremeter", " ", "names"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"parS", "=", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", "\[Nu]", ",", "\[Nu]1", ",", "r"}], "}"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6762096796021633`*^9, 3.6762096973519564`*^9}, {
   3.6762976651777873`*^9, 3.676297666789621*^9}, {3.67865198969201*^9, 
   3.678652021987811*^9}, {3.678652254006609*^9, 3.678652258340761*^9}, {
   3.6786523010832343`*^9, 3.678652308309866*^9}, 3.6786563777312703`*^9, {
   3.6787195868029757`*^9, 3.6787196234438276`*^9}, 3.698181579393577*^9, 
   3.6981816182405677`*^9, {3.698183087935463*^9, 3.6981830880604467`*^9}, {
   3.698191046872781*^9, 3.6981910519044547`*^9}, 3.698191771494191*^9, {
   3.6981927826569057`*^9, 3.6981927991388893`*^9}, 3.69825019497408*^9, {
   3.7111414318783116`*^9, 3.7111414804013186`*^9}, 3.7111417591816387`*^9, {
   3.7112039625211964`*^9, 3.711203995122225*^9}, {3.7112969092594995`*^9, 
   3.711296913435066*^9}, {3.7112969476508703`*^9, 3.71129695199527*^9}, {
   3.7136511822567*^9, 3.713651197840103*^9}},
 CellTags->"snail",
 ExpressionUUID -> "619229df-aee0-493d-b3ee-14ef1ad215cc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Compute demographics for CSA groups (0-5-15)", "Subsection",
 CellChangeTimes->{{3.6940991031214123`*^9, 3.694099124267358*^9}, {
   3.6940999053276825`*^9, 3.6940999058490515`*^9}, 3.6940999665689683`*^9, {
   3.69463357025185*^9, 3.694633594275881*^9}, 3.7113122954262767`*^9, {
   3.7114816431920605`*^9, 3.711481649802616*^9}, 3.713650831945363*^9, {
   3.713651367030531*^9, 3.7136513763247385`*^9}},
 ExpressionUUID -> "3595d70d-4140-418f-95de-7ff371834fe2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Host", " ", "mortality"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"moR", "=", 
     RowBox[{"{", 
      RowBox[{".01", ",", "0", ",", ".02"}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", "Maturation", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"maT", "=", 
     RowBox[{"{", 
      RowBox[{".2", ",", ".1", ",", "0"}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", "Turnover", "*)"}], 
   RowBox[{
    RowBox[{"toV", "=", 
     RowBox[{"moR", "+", "maT"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Age", "-", 
     RowBox[{"specific", " ", "worm", " ", "mort", " ", "\[Gamma]"}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]ss", "=", 
     RowBox[{"{", 
      RowBox[{".2", ",", ".2", ",", ".25"}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pop", " ", "growth"}], " ", "+", " ", "age", "-", 
     RowBox[{"group", " ", "pop", " ", "fractions"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Gro", ",", "HH"}], "}"}], "=", 
     RowBox[{"LesR", "[", 
      RowBox[{"moR", ",", "maT", ",", 
       RowBox[{"(*", 
        RowBox[{"fertility", "/", "year"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         StyleBox[".08",
          FontColor->RGBColor[1, 0, 0]]}], 
        StyleBox["}",
         FontColor->RGBColor[1, 0, 0]]}]}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Child", "/", "adult"}], " ", "fraction"}], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"HC", ",", "HS", ",", "HA"}], "}"}], "=", "HH"}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Relative", " ", 
     RowBox[{"turnover", ":", " ", 
      FractionBox["\[Mu]", 
       RowBox[{"\[Mu]", "+", "\[Gamma]"}]]}]}], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"muC", ",", "muS", ",", "muA"}], "}"}], "=", 
     RowBox[{"Round", "[", 
      RowBox[{
       FractionBox["toV", 
        RowBox[{"\[Gamma]ss", "+", "toV"}]], ",", ".01"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Param", " ", "rule"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"parB", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thread", "/@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Mu]C", ",", "\[Mu]S", ",", "\[Mu]A"}], "}"}], 
            "\[Rule]", "toV"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Gamma]C", ",", "\[Gamma]S", ",", "\[Gamma]A"}], "}"}],
             "\[Rule]", "\[Gamma]ss"}]}], "}"}]}], ",", 
        RowBox[{"\[Nu]", "\[Rule]", "4"}], ",", 
        RowBox[{"\[Nu]1", "\[Rule]", "12"}]}], "}"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6786347887971373`*^9, 3.6786348081779213`*^9}, {
   3.678634855396823*^9, 3.6786348573170085`*^9}, 3.6786350166181283`*^9, {
   3.678636094705088*^9, 3.678636106075522*^9}, 3.6786458383353662`*^9, {
   3.678646456002263*^9, 3.678646458321084*^9}, {3.67864701245737*^9, 
   3.6786470158420134`*^9}, 3.6786474910969887`*^9, {3.678647549678457*^9, 
   3.6786475535910425`*^9}, 3.678653498125183*^9, {3.6786535415337715`*^9, 
   3.6786535595428705`*^9}, {3.678655060628448*^9, 3.678655090503129*^9}, 
   3.678655951367693*^9, {3.678655989716962*^9, 3.6786559965363536`*^9}, 
   3.6786560339976797`*^9, {3.6786560993518925`*^9, 3.678656126956209*^9}, 
   3.678719287676733*^9, {3.6797090374292917`*^9, 3.6797090572890186`*^9}, {
   3.6905787159100695`*^9, 3.6905787661176467`*^9}, 3.6905787980504675`*^9, 
   3.6925765533152037`*^9, {3.692576646684203*^9, 3.6925766726435847`*^9}, {
   3.6925767077874713`*^9, 3.692576768969799*^9}, {3.6925786448504553`*^9, 
   3.692578649421692*^9}, 3.6926489299495773`*^9, {3.6941001891299176`*^9, 
   3.6941001979521546`*^9}, {3.694105410991222*^9, 3.6941054226446266`*^9}, {
   3.6941780422076697`*^9, 3.6941780433534803`*^9}, {3.695248836609432*^9, 
   3.69524885539297*^9}, {3.6953252150623045`*^9, 3.6953252968084197`*^9}, {
   3.7112033891058397`*^9, 3.7112034440782595`*^9}, {3.711203482988185*^9, 
   3.711203539583229*^9}, {3.7112035780660324`*^9, 3.71120359960883*^9}, 
   3.7112036955926456`*^9, {3.7112040995779505`*^9, 3.7112041684428034`*^9}, 
   3.711377757293605*^9, {3.7114879764413357`*^9, 3.711487976634472*^9}},
 CellTags->"generate Leslie",
 ExpressionUUID -> "955a2110-4c96-499b-baa6-c602bed4a489"],

Cell[BoxData[
 RowBox[{"NumberForm", "[", 
  RowBox[{
   RowBox[{"TableForm", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"HH", ",", "toV", ",", "\[Gamma]ss"}], 
      RowBox[{"(*", 
       RowBox[{",", "reC", ",", "reF"}], "*)"}], "}"}], ",", 
     RowBox[{"TableHeadings", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<Population fractions\>\"", ",", "\"\<Host turnover/year\>\"", 
          ",", "\"\<Worm mortality/year\>\"", ",", "\[IndentingNewLine]", 
          "\"\<Relative exposure\>\"", ",", "\"\<Relative fecundity\>\""}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<C\>\"", ",", "\"\<S\>\"", ",", "\"\<A\>\""}], "}"}]}], 
       "}"}]}]}], "]"}], ",", "2"}], "]"}]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.6761555982718143`*^9, 3.6761556018719597`*^9}, {
   3.676155842613465*^9, 3.676155877865103*^9}, {3.676155911569725*^9, 
   3.676155912570097*^9}, 3.6761559459661694`*^9, {3.6761563012678056`*^9, 
   3.676156302268221*^9}, {3.6761563575999722`*^9, 3.6761564146270204`*^9}, {
   3.6761564798565187`*^9, 3.6761565028919888`*^9}, {3.676156722069909*^9, 
   3.676156747915887*^9}, {3.6761567850469265`*^9, 3.6761568659917164`*^9}, {
   3.676165285900247*^9, 3.6761652941976767`*^9}, 3.6761657518930645`*^9, {
   3.6761658395626383`*^9, 3.67616587091072*^9}, {3.67616590204626*^9, 
   3.6761659227132816`*^9}, {3.6761659575138*^9, 3.6761660264136925`*^9}, {
   3.676166462679516*^9, 3.6761664746722584`*^9}, {3.6761666077958813`*^9, 
   3.6761666632132616`*^9}, {3.676166701661727*^9, 3.676167003536776*^9}, 
   3.676167034282864*^9, {3.676167146830119*^9, 3.6761671545102825`*^9}, 
   3.676322073840782*^9, {3.676907609378969*^9, 3.6769076310985565`*^9}, 
   3.6769076651559515`*^9, 3.6769077132790604`*^9, {3.6769079446319737`*^9, 
   3.676907958273611*^9}, 3.6769080119885955`*^9, 3.6769080548604317`*^9, 
   3.6769081836459312`*^9, {3.6786337905990496`*^9, 3.678633797008501*^9}, {
   3.678633971109919*^9, 3.6786339717817993`*^9}, 3.6786347538149743`*^9, {
   3.6786475928693247`*^9, 3.6786475938724213`*^9}, 3.6786550620071344`*^9, {
   3.678656170791789*^9, 3.678656203986557*^9}, {3.6905787823041306`*^9, 
   3.690578788898698*^9}, 3.694105417957162*^9, {3.711203659420871*^9, 
   3.711203664936242*^9}},ExpressionUUID->"f48df3d8-e218-48c9-833d-\
fc9650cfd864"]
}, Closed]],

Cell[CellGroupData[{

Cell["Generate C-S-A SWB and coupled human-snail", "Subsection",
 CellChangeTimes->{{3.6676523021554594`*^9, 3.667652321164471*^9}, {
   3.694099740417618*^9, 3.6940997464729075`*^9}, {3.694099782697502*^9, 
   3.6940998453532925`*^9}, {3.694634165838931*^9, 3.694634166919646*^9}, {
   3.6953186425534353`*^9, 3.6953186779310355`*^9}, {3.7113738145040226`*^9, 
   3.7113738271881657`*^9}, {3.7114816688684845`*^9, 
   3.7114816707282867`*^9}, {3.711549240693962*^9, 3.7115492526285653`*^9}, 
   3.713650827873645*^9, {3.7136510096473665`*^9, 3.7136510107671185`*^9}, {
   3.713651412228699*^9, 3.713651442661013*^9}},
 ExpressionUUID -> "fd2ef609-a026-4482-824d-44d6fe438814"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"#", " ", "strata"}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"nS", "=", "20"}], ";", 
    RowBox[{"(*", 
     RowBox[{"worm", " ", "step"}], "*)"}], 
    RowBox[{"dw1", "=", "6."}], ";"}], "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"generate", " ", "combined", " ", 
      RowBox[{"SWB", ":", " ", 
       RowBox[{"eq", "-", "ns"}]}]}], ",", " ", "vars", ",", " ", 
     RowBox[{"snail", " ", "FOI"}]}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"swC", ",", "hvC", ",", "foC"}], "}"}], "=", 
     RowBox[{"SWB", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nS", ",", "dw1", ",", "hC"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Lambda]C", " ", ",", "\[Gamma]C"}], "}"}], ",", "1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Mu]C", " ", 
          RowBox[{"UV", "[", 
           RowBox[{"nS", "+", "1"}], "]"}]}], ",", "\[Mu]C"}], "}"}]}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"swS", ",", "hvS", ",", "foS"}], "}"}], "=", 
     RowBox[{"SWB", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nS", ",", "dw1", ",", "hS"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Lambda]S", " ", ",", "\[Gamma]C"}], "}"}], ",", "1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Mu]S", " ", "hvC"}], ",", "\[Mu]S"}], "}"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"swA", ",", "hvA", ",", "foA"}], "}"}], "=", 
     RowBox[{"SWB", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nS", ",", "dw1", ",", "hA"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Lambda]A", ",", "\[Gamma]A"}], "}"}], ",", "1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Mu]A", " ", "hvS"}], ",", "\[Mu]A"}], "}"}]}], "]"}]}], 
    ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Combined", " ", "SWB", " ", "vars"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"Hva", "=", 
     RowBox[{"{", 
      RowBox[{"hvC", ",", "hvS", ",", "hvA"}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Combined", " ", "Human", " ", "infectivity", " ", "with", " ", 
      "relative", " ", 
      RowBox[{"child", "/", "adult"}], " ", "factors", " ", "\[Omega]C"}], 
     ",", " ", 
     RowBox[{
      RowBox[{"\[Omega]A", ".", " ", "No"}], " ", "fecundity"}]}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CoHI", "[", 
      RowBox[{"\[Omega]C_", ",", "\[Omega]A_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"HH", 
        RowBox[{"{", 
         RowBox[{"\[Omega]C", ",", "1", ",", "\[Omega]A"}], "}"}]}], ")"}], 
      ".", 
      RowBox[{"{", 
       RowBox[{"foC", ",", "foS", ",", "foA"}], "}"}]}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"all", " ", "vars"}], "*)"}], 
   RowBox[{
    RowBox[{"Ava", "=", 
     RowBox[{"Flatten", "@", 
      RowBox[{"{", 
       RowBox[{"hvC", ",", "hvS", ",", "hvA", ",", "sva"}], "}"}]}]}], ";"}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{"Dynamic", " ", "control", " ", "vars"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"htC", ",", "htS", ",", "htA", ",", "stv"}], "}"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Through", "[", 
        RowBox[{"#", "@", "t"}], "]"}], "&"}], "/@", 
      RowBox[{"{", 
       RowBox[{"hvC", ",", "hvS", ",", "hvA", ",", "sva"}], "}"}]}]}], ";"}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Coupled", " ", "SWB"}], "-", 
     RowBox[{"snail", " ", "with", " ", "snail", " ", "FOI", " ", "L"}]}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CHuS", "[", 
      RowBox[{"aC_", ",", "aS_", ",", "aA_", ",", "L_"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"swC", "/.", 
        RowBox[{"\[Lambda]C", "\[Rule]", 
         RowBox[{"aC", " ", "z"}]}]}], ",", 
       RowBox[{"swS", "/.", 
        RowBox[{"\[Lambda]S", "\[Rule]", 
         RowBox[{"aS", " ", "z"}]}]}], ",", 
       RowBox[{"swA", "/.", 
        RowBox[{"\[Lambda]A", "\[Rule]", 
         RowBox[{"aA", " ", "z"}]}]}], ",", 
       RowBox[{"LgS", "[", 
        RowBox[{"sva", ",", "parS", ",", 
         RowBox[{"L", 
          RowBox[{"(", 
           RowBox[{"x", "+", "y", "+", "z"}], ")"}]}]}], "]"}]}], "}"}]}], 
    ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Child", "-", 
      RowBox[{"adult", " ", "human"}], "-", 
      RowBox[{
      "snail", " ", "AS", " ", "for", " ", "NL", " ", "FOI", " ", "with", " ", 
       RowBox[{"estimated", ":", " ", "Ac"}]}]}], ",", "Aa", ",", "b"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"CAHS", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "xq_", ",", "yq_", ",", "zq_", ",", "b_", ",", "\[Omega]c_", ",", 
         "\[Omega]a_"}], "}"}], ",", "das_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"calibrated", " ", "Ai"}], "-", "\[CapitalLambda]"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"aLE", "=", 
         RowBox[{"aLSW", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "xq", ",", "yq", ",", "zq", ",", "b", ",", "\[Omega]c", ",", 
             "\[Omega]a"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"host", " ", "turnover"}], "*)"}], "toV", ",", 
           RowBox[{"(*", 
            RowBox[{"worm", " ", "mortality"}], "*)"}], "\[Gamma]ss", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"Human", " ", "baseline", " ", "posterior"}], "*)"}], 
           "das"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"CHuS", "[", 
          RowBox[{"Ac", ",", "As", ",", "Aa", ",", 
           RowBox[{"L", " ", 
            RowBox[{"(", 
             RowBox[{"x", "+", "y", "+", "z"}], ")"}], 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"E", "^", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "b"}], 
                  RowBox[{"x", "+", "y", "+", "z"}]], "*", 
                 RowBox[{"CoHI", "[", 
                  RowBox[{
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[Rho]C", " "}], "\[Rho]S"], "\[Omega]c"}], ",", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[Rho]A", " "}], "\[Rho]S"], "\[Omega]a"}]}], 
                  "]"}]}], ")"}]}]}], ")"}]}]}], "]"}], "/.", 
         RowBox[{"Normal", "@", "aLE"}]}], "/.", "parB"}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.6940996992335167`*^9, {3.6941303455206103`*^9, 3.6941303503730397`*^9}, 
   3.694174319959648*^9, 3.6941780703690815`*^9, {3.694181001615142*^9, 
   3.6941810065356197`*^9}, {3.6952487217388124`*^9, 
   3.6952487223211927`*^9}, {3.7112037194591503`*^9, 3.711203929294292*^9}, {
   3.7112042170778937`*^9, 3.7112042616941147`*^9}, {3.7112042947502346`*^9, 
   3.7112043029811344`*^9}, {3.7112049758376703`*^9, 3.7112049818855915`*^9}, 
   3.7113100488112154`*^9, {3.7113108094556103`*^9, 3.711310832810607*^9}, 
   3.7113315460395007`*^9, 3.711370803769346*^9, {3.711371178246974*^9, 
   3.71137121341842*^9}, 3.711373872400243*^9, {3.711380711652907*^9, 
   3.7113807230628395`*^9}, {3.7115492754998584`*^9, 
   3.7115492843133945`*^9}, {3.71166175072945*^9, 3.7116618522795696`*^9}, 
   3.7117175923190346`*^9, {3.7135557010805364`*^9, 3.71355572088398*^9}, {
   3.7135557559644213`*^9, 3.713555767925778*^9}, {3.7136508096184597`*^9, 
   3.713650816497054*^9}},
 CellTags->"Generate SWB",
 ExpressionUUID -> "398e7f59-e05a-422f-ac1f-04ec5d73abe6"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Control simulations with noncompliance (fraction =fN)", "Section",
 CellChangeTimes->{{3.711660354270264*^9, 3.7116603663264065`*^9}, {
  3.7136516890025964`*^9, 3.7136517042347636`*^9}, {3.7136517539149294`*^9, 
  3.713651762146423*^9}},
 ExpressionUUID -> "61f964bd-f406-46e7-b991-05be40956769"],

Cell[CellGroupData[{

Cell["Codes", "Subsection",
 CellChangeTimes->{{3.711675059805543*^9, 3.7116750610086727`*^9}},
 ExpressionUUID -> "2d37ecb3-50a9-4977-911a-5c6df72475d2"],

Cell[CellGroupData[{

Cell["Variables and noncompliant AS", "Subsubsection",
 CellChangeTimes->{{3.711662260691472*^9, 3.7116622778752823`*^9}, {
  3.7136517740273533`*^9, 3.713651779899272*^9}},
 ExpressionUUID -> "62588622-cfc8-43b6-b66a-66fb36552e00"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Noncomplient", " ", "rule"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"NcR", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["hC", "i_"], "\[Rule]", 
        SubscriptBox["hCn", "i"]}], ",", 
       RowBox[{
        SubscriptBox["hS", "i_"], "\[Rule]", 
        SubscriptBox["hSn", "i"]}], ",", 
       RowBox[{
        SubscriptBox["hA", "i_"], "\[Rule]", 
        SubscriptBox["hAn", "i"]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Noncomplient", " ", "system", " ", "vars"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"swCn", ",", "hvCn", ",", "foCn"}], "}"}], "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"swC", ",", "hvC", ",", "foC"}], "}"}], "/.", "NcR"}]}], ";"}],
    "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"swSn", ",", "hvSn", ",", "foSn"}], "}"}], "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"swS", ",", "hvS", ",", "foS"}], "}"}], "/.", "NcR"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"swAn", ",", "hvAn", ",", "foAn"}], "}"}], "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"swA", ",", "hvA", ",", "foA"}], "}"}], "/.", "NcR"}]}], ";"}],
    "\n", 
   RowBox[{"(*", 
    RowBox[{"All", " ", "vars"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Hvn", "=", 
     RowBox[{"{", 
      RowBox[{
      "hvC", ",", "hvS", ",", "hvA", ",", "hvCn", ",", "hvSn", ",", "hvAn"}], 
      "}"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Avn", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{"Hvn", ",", "sva"}], "}"}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Coupled", " ", "SWB"}], "-", 
     RowBox[{"snail", " ", "with", " ", "snail", " ", "FOI", " ", "L"}]}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CHuSN", "[", 
      RowBox[{"aC_", ",", "aS_", ",", "aA_", ",", "L_"}], "]"}], "=", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"swC", "/.", 
        RowBox[{"\[Lambda]C", "\[Rule]", 
         RowBox[{"aC", " ", "z"}]}]}], ",", 
       RowBox[{"swS", "/.", 
        RowBox[{"\[Lambda]S", "\[Rule]", 
         RowBox[{"aS", " ", "z"}]}]}], ",", 
       RowBox[{"swA", "/.", 
        RowBox[{"\[Lambda]A", "\[Rule]", 
         RowBox[{"aA", " ", "z"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"swCn", "/.", 
        RowBox[{"\[Lambda]C", "\[Rule]", 
         RowBox[{"aC", " ", "z"}]}]}], ",", 
       RowBox[{"swSn", "/.", 
        RowBox[{"\[Lambda]S", "\[Rule]", 
         RowBox[{"aS", " ", "z"}]}]}], ",", 
       RowBox[{"swAn", "/.", 
        RowBox[{"\[Lambda]A", "\[Rule]", 
         RowBox[{"aA", " ", "z"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LgS", "[", 
         RowBox[{"sva", ",", "parS", ",", 
          RowBox[{"L", 
           RowBox[{"(", 
            RowBox[{"x", "+", "y", "+", "z"}], ")"}]}]}], "]"}], "+", 
        RowBox[{"(*", "transport", "*)"}], 
        RowBox[{"rM", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"xE", "-", "x"}], ",", 
           RowBox[{"yE", "-", "y"}], ",", 
           RowBox[{"zE", "-", "z"}]}], "}"}]}]}]}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Combined", " ", "Human", " ", "infectivity", " ", "with", " ", 
      "relative", " ", 
      RowBox[{"child", "/", "adult"}], " ", "factors", " ", "\[Omega]C"}], 
     ",", " ", 
     RowBox[{
      RowBox[{"\[Omega]A", ".", " ", "Noncompliant"}], " ", "=", "fN"}]}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CoHIn", "[", 
      RowBox[{"\[Omega]C_", ",", "\[Omega]A_", ",", "fN_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"HH", 
        RowBox[{"{", 
         RowBox[{"\[Omega]C", ",", "1", ",", "\[Omega]A"}], "}"}]}], ")"}], 
      ".", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "fN"}], ")"}], 
         RowBox[{"{", 
          RowBox[{"foC", ",", "foS", ",", "foA"}], "}"}]}], "+", 
        RowBox[{"fN", 
         RowBox[{"{", 
          RowBox[{"foCn", ",", "foSn", ",", "foAn"}], "}"}]}]}], ")"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"calibrated", " ", "Ai"}], "-", "\[CapitalLambda]"}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{"aLEC", "[", 
     RowBox[{"pbs_", ",", "da_"}], "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Normal", "@", 
     RowBox[{"aLSW", "[", 
      RowBox[{"pbs", ",", 
       RowBox[{"(*", 
        RowBox[{"host", " ", "turnover"}], "*)"}], "toV", ",", 
       RowBox[{"(*", 
        RowBox[{"wrm", " ", "mortality"}], "*)"}], "\[Gamma]ss", ",", 
       RowBox[{"(*", 
        RowBox[{"Human", " ", "baseline", " ", "posterior"}], "*)"}], "da"}], 
      "]"}]}]}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Child", "-", 
      RowBox[{"adult", " ", "human"}], "-", 
      RowBox[{
      "snail", " ", "AS", " ", "for", " ", "NL", " ", "FOI", " ", "with", " ", 
       RowBox[{"estimated", ":", " ", "Ac"}]}]}], ",", "Aa", ",", 
     RowBox[{"b", ";", " ", 
      RowBox[{"noncomp", " ", "=", "fN"}], ";", " ", 
      RowBox[{"external", " ", "FOI", " ", "fraction", " ", "fL"}]}]}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CAHSN", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "xq_", ",", "yq_", ",", "zq_", ",", "b_", ",", "\[Omega]c_", ",", 
         "\[Omega]a_"}], "}"}], ",", "das_", ",", "fN_", ",", "fL_"}], "]"}], 
     ":=", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"CHuSN", "[", 
        RowBox[{"Ac", ",", "As", ",", "Aa", ",", 
         RowBox[{"L", " ", 
          RowBox[{"(", 
           RowBox[{"fL", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "fL"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"x", "+", "y", "+", "z"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"E", "^", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"-", "b"}], 
                   RowBox[{"x", "+", "y", "+", "z"}]], "*", 
                  RowBox[{"CoHIn", "[", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[Rho]C", " "}], "\[Rho]S"], "\[Omega]c"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[Rho]A", " "}], "\[Rho]S"], "\[Omega]a"}], ",", 
                    "fN"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], "]"}], "/.", 
       RowBox[{"aLEC", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "xq", ",", "yq", ",", "zq", ",", "b", ",", "\[Omega]c", ",", 
           "\[Omega]a"}], "}"}], ",", "das"}], "]"}]}], "/.", "parB"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.711661004450873*^9, 3.7116610632859163`*^9}, 
   3.711934826030631*^9, {3.7120610191550956`*^9, 3.7120610463100953`*^9}, {
   3.712061102348193*^9, 3.7120611270342174`*^9}, 3.7120627432384467`*^9, 
   3.7120991573336*^9},
 ExpressionUUID -> "f16b5d22-ea2f-4a51-98df-3d58f014932d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Codes: dynamic DS, prevalence outputs", "Subsubsection",
 CellChangeTimes->{{3.711662619204381*^9, 3.7116626210015965`*^9}, {
   3.7116750972607517`*^9, 3.7116751047036576`*^9}, 3.7119348442078857`*^9, {
   3.7136517205146303`*^9, 3.713651731029647*^9}},
 ExpressionUUID -> "f6511a24-6693-4920-a6ad-0993a6f65acf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Generate", " ", "DS", " ", "for", " ", "human"}], "-", 
     RowBox[{"snail", ".", " ", 
      RowBox[{"Inputs", ":", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", "i", ")"}], " ", 
         RowBox[{"{", 
          RowBox[{"\[Omega]", ",", "b", ",", "yq"}], "}"}]}], "-", 
        "transmission"}]}]}]}], ";", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", "ii", ")"}], " ", "das"}], "=", 
     RowBox[{"baseline", " ", "posterior", " ", "choice"}]}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"DSBN", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "xq_", ",", "yq_", ",", "zq_", ",", "b_", ",", "\[Omega]c_", ",", 
         "\[Omega]a_"}], "}"}], ",", "das_", ",", "fN_", ",", 
       RowBox[{"(*", 
        RowBox[{"transport", " ", "fraction"}], "*)"}], " ", "fT_", ",", 
       RowBox[{"(*", 
        RowBox[{"external", " ", "FOI"}], "*)"}], "fL_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Module", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"as", "=", 
          RowBox[{"CAHS", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "xq", ",", "yq", ",", "zq", ",", "b", ",", "\[Omega]c", ",", 
              "\[Omega]a"}], "}"}], ",", "das"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"aLb", "=", 
          RowBox[{"aLEC", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "xq", ",", "yq", ",", "zq", ",", "b", ",", "\[Omega]c", ",", 
              "\[Omega]a"}], "}"}], ",", "das"}], "]"}]}], ",", 
         "\[IndentingNewLine]", "asn", ",", "inh", ",", "inH", ",", "inS", 
         ",", "zz", ",", "ds", ",", "inz", ",", "\[Beta]1", ",", "asm"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Noncomp", " ", "AS"}], "*)"}], 
       RowBox[{
        RowBox[{"asn", "=", 
         RowBox[{"CAHSN", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "xq", ",", "yq", ",", "zq", ",", "b", ",", "\[Omega]c", ",", 
             "\[Omega]a"}], "}"}], ",", "das", ",", "fN", ",", "fL"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Endemic", " ", "initialization"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"inh", "=", 
         RowBox[{"InS", "[", "das", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Initial", " ", "input", " ", "for", " ", "FindRoot"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"zz", "=", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"MapThread", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"{", "##", "}"}], "&"}], ",", 
             RowBox[{"{", 
              RowBox[{"Hva", ",", "inh"}], "}"}], ",", "2"}], "]"}], ",", 
           RowBox[{"Thread", "[", 
            RowBox[{"{", 
             RowBox[{"sva", ",", 
              RowBox[{"{", 
               RowBox[{"xq", ",", "yq", ",", "zq"}], "}"}]}], "}"}], "]"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"inH", ",", "inS"}], "}"}], "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"hvC", ",", "hvS", ",", "hvA"}], "}"}], ",", "sva"}], 
           "}"}], "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{"as", "\[Equal]", "0"}], ",", 
            RowBox[{"Flatten", "[", 
             RowBox[{"zz", ",", "1"}], "]"}], ",", 
            RowBox[{"AccuracyGoal", "\[Rule]", "2"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "Augment", " ", "AS", " ", "with", " ", "transposrt", " ", "terms"}],
          "*)"}], "\[IndentingNewLine]", 
        RowBox[{"\[Beta]1", "=", 
         RowBox[{
          RowBox[{"aLb", "@", "\[Beta]"}], "/.", "parB"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Estimated", " ", "transport"}], "*)"}], 
        RowBox[{"asm", "=", 
         RowBox[{
          RowBox[{"asn", "/.", 
           RowBox[{"rM", "\[Rule]", 
            RowBox[{"\[Beta]1", " ", "fT"}]}]}], "/.", 
          RowBox[{"Thread", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"xE", ",", "yE", ",", "zE"}], "}"}], "\[Rule]", "inS"}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Generate", " ", "DS"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"DSV", "[", 
         RowBox[{"asm", ",", 
          RowBox[{"{", 
           RowBox[{
           "hvC", ",", "hvS", ",", "hvA", ",", "hvCn", ",", "hvSn", ",", 
            "hvAn", ",", "sva"}], "}"}], ",", 
          RowBox[{"Append", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"inH", ",", "inH"}], "]"}], ",", "inS"}], "]"}], ",", 
          RowBox[{"(*", 
           RowBox[{"initial", " ", "time"}], "*)"}], "0"}], "]"}]}]}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Age", "-", 
     RowBox[{"prev", " ", "Keys"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"keP", "=", 
     RowBox[{"{", 
      RowBox[{"CL", ",", "SL", ",", "AL", ",", "CH", ",", "SH", ",", "AH"}], 
      "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
    "Discrete", " ", "Prevalance", " ", "outputs", " ", "for", " ", 
     "ensemble", " ", "run"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"PDTN", "[", 
      RowBox[{"(*", 
       RowBox[{"input", " ", "pars"}], "*)"}], 
      RowBox[{"ipp_", ",", 
       RowBox[{"(*", "post", "*)"}], "das_", ",", 
       RowBox[{"(*", "noncomp", "*)"}], "fN_", ",", 
       RowBox[{"(*", "transport", "*)"}], "fT_", ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"external", " ", "FOI"}], "*)"}], "fL_", ",", 
       RowBox[{"(*", "controls", "*)"}], "evv_", ",", 
       RowBox[{"(*", 
        RowBox[{"discrete", " ", "time"}], "*)"}], "td_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ds", "=", 
          RowBox[{"DSBN", "[", 
           RowBox[{"ipp", ",", "das", ",", "fN", ",", "fT", ",", "fL"}], 
           "]"}]}], ",", "\[IndentingNewLine]", "so", ",", "pp", ",", "pq", 
         ",", "cp"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"so", "=", 
         RowBox[{
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"ds", ",", 
              RowBox[{"(*", 
               RowBox[{"Event", " ", "control"}], "*)"}], "evv"}], "}"}], ",",
             "Avn", ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", 
              RowBox[{"tf", "=", "10"}]}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"compliant", " ", "prev"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"pp", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ESL", "[", 
            RowBox[{"das", ",", "C", ",", "0", ",", "50"}], "]"}], ",", 
           RowBox[{"ESL", "[", 
            RowBox[{"das", ",", "S", ",", "0", ",", "50"}], "]"}], ",", 
           RowBox[{"ESL", "[", 
            RowBox[{"das", ",", "A", ",", "0", ",", "50"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ESP", "[", 
            RowBox[{"das", ",", "C", ",", "50"}], "]"}], ",", 
           RowBox[{"ESP", "[", 
            RowBox[{"das", ",", "S", ",", "50"}], "]"}], ",", 
           RowBox[{"ESP", "[", 
            RowBox[{"das", ",", "A", ",", "50"}], "]"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"noncompliant", " ", "prev"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"pq", "=", 
         RowBox[{"pp", "/.", "NcR"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Estimated", " ", "combined", " ", "prev"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"cp", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "fN"}], ")"}], "pp"}], "+", 
             RowBox[{"fN", " ", "pq"}]}], ")"}], "/.", "so"}], "/.", 
          RowBox[{"t", "\[Rule]", "td"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"AssociationThread", "[", 
         RowBox[{"keP", ",", "cp"}], "]"}]}]}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Ensemble", " ", "run", " ", "for", " ", "a", " ", "strategy", " ", 
      "stg"}], ",", " ", 
     RowBox[{
      RowBox[{"with", " ", "Random", " ", "sebR", " ", 
       RowBox[{"(", 
        RowBox[{"snail", "-", "envir", "-", "beh"}], ")"}], " ", "is", " ", 
       "coupled", " ", "to", " ", "random", " ", "postrior"}], " ", 
      "\[IndentingNewLine]", "=", 
      RowBox[{">", " ", 
       RowBox[{
        RowBox[{"6", " ", "discretized", " ", "Mean"}], "+", 
        RowBox[{"STD", " ", "outputs"}]}]}]}]}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"EnsRun", "[", 
      RowBox[{"stg_", ",", "fN_", ",", "fT_", ",", "fL_"}], "]"}], ":=", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"pens", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"PDTN", "[", 
            RowBox[{
             RowBox[{"sebZ", "[", 
              RowBox[{"[", "j", "]"}], "]"}], ",", 
             RowBox[{"dkL", "@", "j"}], ",", 
             RowBox[{"(*", "noncompliance", "*)"}], 
             StyleBox["fN",
              FontColor->RGBColor[1, 0, 0]], 
             StyleBox[",",
              FontColor->RGBColor[1, 0, 0]], 
             StyleBox[
              RowBox[{"(*", "transport", "*)"}],
              FontColor->RGBColor[1, 0, 0]], 
             StyleBox["fT",
              FontColor->RGBColor[1, 0, 0]], 
             StyleBox[",",
              FontColor->RGBColor[1, 0, 0]], 
             StyleBox[
              RowBox[{"(*", 
               RowBox[{"ext", " ", "FOI"}], "*)"}],
              FontColor->RGBColor[1, 0, 0]], 
             StyleBox["fL",
              FontColor->RGBColor[1, 0, 0]], ",", "stg", ",", "trag"}], "]"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{"MST", "=", 
         RowBox[{"Merge", "[", 
          RowBox[{"pens", ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Mean", "@", "#"}], ",", 
              RowBox[{"StandardDeviation", "@", "#"}]}], "}"}], "&"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"Thread", "[", 
           RowBox[{"Join", "@@", "MST"}], "]"}], ",", "Xcon"}], "]"}]}]}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.711672264770548*^9, 3.7116723057327166`*^9}, {
   3.7116723462320967`*^9, 3.711672358420025*^9}, {3.7116724006765027`*^9, 
   3.7116724276735926`*^9}, {3.711672857227325*^9, 3.7116728781103897`*^9}, 
   3.7119348569772162`*^9, {3.7119357493318996`*^9, 3.7119357502548532`*^9}, 
   3.7119363406470823`*^9, 3.71193647975729*^9, {3.7120618655401955`*^9, 
   3.7120618872864575`*^9}, {3.7120621634254923`*^9, 
   3.7120621769562216`*^9}, {3.7120622454534826`*^9, 
   3.7120622475632377`*^9}, {3.712062283635373*^9, 3.71206229665902*^9}, {
   3.712062659513876*^9, 3.7120626617485943`*^9}, {3.712063445094262*^9, 
   3.7120635850119376`*^9}, {3.7120637075320873`*^9, 
   3.7120637220143623`*^9}, {3.712063757704457*^9, 3.712063771808147*^9}, {
   3.712063830666119*^9, 3.7120638792212305`*^9}, {3.71206392841146*^9, 
   3.712063959838459*^9}, {3.712064070084732*^9, 3.7120641211527596`*^9}, {
   3.71206416528189*^9, 3.712064174170706*^9}, 3.712065068278942*^9, 
   3.7120654964831305`*^9, {3.7120660121530805`*^9, 3.71206601555905*^9}, {
   3.712069348397191*^9, 3.7120693701174965`*^9}, {3.7120694160757723`*^9, 
   3.712069444570306*^9}, {3.7120695854325857`*^9, 3.7120695860266905`*^9}, {
   3.712098669019123*^9, 3.712098691743626*^9}, {3.7120987235410466`*^9, 
   3.712098746518133*^9}, {3.712099653710251*^9, 3.712099659515887*^9}, 
   3.712247869474839*^9, 3.7122479681770763`*^9, {3.7136526275656567`*^9, 
   3.713652648497632*^9}, 3.713653721174369*^9},
 ExpressionUUID -> "af9fc5d7-5133-48b4-943a-8cf2a8555468"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Export", ":", " ", 
    RowBox[{"xls", " ", "Column", " ", "names"}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"Xcon", "=", 
     RowBox[{"Flatten", "@", 
      RowBox[{"Outer", "[", 
       RowBox[{"StringJoin", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Light\>\"", ",", "\"\<Heavy\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<-Child\>\"", ",", "\"\<-SAC\>\"", ",", "\"\<-Adult\>\""}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<-Mean\>\"", ",", "\"\<-STD\>\""}], "}"}]}], "]"}]}]}], 
    ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Export", " ", "xls"}], "-", 
     RowBox[{
     "sheet", " ", "for", " ", "indexed", " ", "Table", " ", "of", "  ", 
      "CSA"}], "-", 
     RowBox[{"LH", " ", "Mean"}], "-", 
     RowBox[{"STD", " ", "data"}], "-", "association"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"XLS", "[", "da_", "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pa", "=", 
        RowBox[{"PositionIndex", "[", "da", "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"KeyValueMap", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\"\<Strategy\>\"", "<>", 
           RowBox[{"ToString", "@", 
            RowBox[{"#2", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "\[Rule]", "#"}], "&"}], ",",
         "pa"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.711672264770548*^9, 3.7116723057327166`*^9}, {
   3.7116723462320967`*^9, 3.711672358420025*^9}, {3.7116724006765027`*^9, 
   3.7116724276735926`*^9}, {3.711672857227325*^9, 3.7116728781103897`*^9}, 
   3.7119348569772162`*^9, {3.7119357493318996`*^9, 3.7119357502548532`*^9}, 
   3.7119363406470823`*^9, {3.71193647975729*^9, 3.711936483508037*^9}, {
   3.7136518252675514`*^9, 3.7136518270117188`*^9}, {3.7136520060755405`*^9, 
   3.713652008596223*^9}},
 ExpressionUUID -> "c57ac0fa-6c6c-49f3-befc-750990e5a011"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example: parameter-ensemble simulations for fN=.1", "Subsection",
 CellChangeTimes->{{3.7115875447421865`*^9, 3.7115875605655212`*^9}, {
  3.7116739495221243`*^9, 3.7116739532258215`*^9}, {3.7116745925188665`*^9, 
  3.711674595964502*^9}, {3.7117202226473536`*^9, 3.7117202234553337`*^9}, {
  3.713652111505085*^9, 3.713652120592151*^9}, {3.713653016153323*^9, 
  3.7136530166816745`*^9}, {3.713653080121021*^9, 3.71365308650828*^9}},
 ExpressionUUID -> "dfbe7b9d-9867-4a95-ba47-84a261caef34"],

Cell[CellGroupData[{

Cell["Load baseline posterior data for MSambweni", "Subsubsection",
 CellChangeTimes->{{3.6940987407799053`*^9, 3.6940987474296026`*^9}, {
  3.713293854854353*^9, 3.7132938595280848`*^9}, {3.713650963640499*^9, 
  3.713650973095974*^9}, {3.7136514979324446`*^9, 3.7136515016759467`*^9}},
 ExpressionUUID -> "9dcb4976-33d8-46a6-8a38-98db67eb6520"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ESWpar", "=", 
   RowBox[{
   "<<", "\"\<C:\\\\Users\\\\David\\\\Dropbox\\\\Schistosomiasis (Case)\\\\nb\
\\\\Baseline calibration\\\\CSA Msambweni posterior 8-6-17\>\""}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.71365236992675*^9, 3.7136524055669327`*^9}},
 CellTags->"Posterior"]
}, Closed]],

Cell[CellGroupData[{

Cell["Select village", "Subsubsection",
 CellChangeTimes->{{3.711936053145808*^9, 3.7119360605373707`*^9}, {
  3.7129577415671844`*^9, 3.7129577518088245`*^9}, {3.713294312564073*^9, 
  3.713294317328617*^9}, {3.7136521282642765`*^9, 3.713652129632187*^9}},
 ExpressionUUID -> "9043e2e1-9a2e-4278-853a-a49d38cd80e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"1000", " ", "calibrated", " ", "posterior"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"e1", "=", 
        RowBox[{"ESWpar", "@", "\"\<Milalani\>\""}]}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"HPost", "=", 
        RowBox[{"Thread", "@", 
         RowBox[{"Values", "@", "e1"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"par", " ", "names"}], "*)"}], "\n", 
       RowBox[{"paN", "=", 
        RowBox[{"Symbol", "/@", 
         RowBox[{"Keys", "@", "e1"}]}]}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Generate", " ", "50"}], "-", 
     RowBox[{"parameter", " ", "dataset"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"Random", " ", "posterior", " ", "draw"}], "*)"}], 
       RowBox[{"EHP", "=", 
        RowBox[{"RandomSample", "[", 
         RowBox[{"HPost", ",", "50"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"dkL", "=", 
       RowBox[{"Dataset", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"<|", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"ToString", "/@", "paN"}], "\[Rule]", "#"}], "]"}], 
           "|>"}], "&"}], "/@", "EHP"}], "]"}]}]}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7112016333917913`*^9, 3.7112016711763415`*^9}, {
   3.711201947450555*^9, 3.711201988443102*^9}, {3.7112932380933247`*^9, 
   3.7112932500441074`*^9}, 3.7114831399277897`*^9, {3.711483224005225*^9, 
   3.711483237116771*^9}, 3.7117160312633133`*^9, {3.7136519409951034`*^9, 
   3.7136519484510803`*^9}},
 CellTags->"Milalani",
 ExpressionUUID -> "a2c43062-a565-4647-b84d-8adc41421d45"]
}, Closed]],

Cell[CellGroupData[{

Cell["Run 10-year MDA + molluscicide", "Subsubsection",
 CellChangeTimes->{{3.713651962777643*^9, 3.7136519685054626`*^9}, {
  3.713653026625313*^9, 3.7136530285936255`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Input", " ", 
    RowBox[{"values", ":", " ", 
     RowBox[{"snail", " ", "+", " ", "environment"}]}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"sep2", "=", 
     RowBox[{"{", 
      RowBox[{".35", ",", "0.4`", ",", "0.05`", ",", 
       RowBox[{"b1", "=", "2.2"}], ",", 
       RowBox[{"\[Omega]c1", "=", ".9"}], ",", 
       RowBox[{"\[Omega]a1", "=", ".6"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "controls", "*)"}], "\n", 
   RowBox[{"(*", "C", "*)"}], 
   RowBox[{
    RowBox[{"WC1", "=", 
     RowBox[{"WEr", "[", 
      RowBox[{"htC", ",", ".5", ",", ".1", ",", "1"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "S", "*)"}], 
   RowBox[{
    RowBox[{"WS1", "=", 
     RowBox[{"WEr", "[", 
      RowBox[{"htS", ",", ".75", ",", ".1", ",", "1"}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", "A", "*)"}], 
   RowBox[{
    RowBox[{"WA1", "=", 
     RowBox[{"WEr", "[", 
      RowBox[{"htA", ",", ".5", ",", ".1", ",", "1"}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"snail", " ", "control"}], "*)"}], 
   RowBox[{
    RowBox[{"SC1", "=", 
     RowBox[{"SCE", "[", 
      RowBox[{"stv", ",", ".2", ",", "1"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.711551576031766*^9, {3.711551828232293*^9, 3.711551842191784*^9}, 
   3.7116588285850306`*^9, {3.711659596174002*^9, 3.7116595972991896`*^9}, 
   3.7117196899214597`*^9, {3.711935466392864*^9, 3.711935472449334*^9}, 
   3.7132932094251227`*^9, {3.7136521631375227`*^9, 3.7136521695856094`*^9}},
 CellTags->{"inputs", "special controls"},
 ExpressionUUID -> "b0454ada-d8c9-465c-9558-56d69263ea81"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Discrete", " ", "time", " ", "range"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"trag", "=", 
     RowBox[{"Subdivide", "[", 
      RowBox[{"0", ",", 
       RowBox[{"tf", "=", "10"}], ",", "120"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Discretized", " ", "prev", " ", "for", " ", "posterior"}], " ", 
     "=", " ", "ens"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pens", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"PDTN", "[", 
           RowBox[{"sebR", ",", 
            RowBox[{"dkL", "@", "j"}], ",", 
            RowBox[{"(*", 
             RowBox[{"noncompliant", " ", "fraction"}], "*)"}], 
            StyleBox[".1",
             FontColor->RGBColor[1, 0, 0]], 
            StyleBox[",",
             FontColor->RGBColor[1, 0, 0]], 
            StyleBox[
             RowBox[{"(*", "transport", "*)"}],
             FontColor->RGBColor[1, 0, 0]], 
            StyleBox["0",
             FontColor->RGBColor[1, 0, 0]], 
            StyleBox[",",
             FontColor->RGBColor[1, 0, 0]], 
            StyleBox[
             RowBox[{"(*", 
              RowBox[{"ext", " ", "FOI"}], "*)"}],
             FontColor->RGBColor[1, 0, 0]], 
            StyleBox[".5",
             FontColor->RGBColor[1, 0, 0]], ",", 
            RowBox[{"{", 
             RowBox[{"WC1", ",", "WS1", ",", "WA1", ",", "SC1"}], "}"}], ",", 
            "trag"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "21", ",", "40"}], "}"}]}], "]"}]}], "}"}], ",", 
      "\n", 
      RowBox[{"pLM2", "=", 
       RowBox[{"Merge", "[", 
        RowBox[{"pens", ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Mean", "@", "#"}], ",", 
            RowBox[{"StandardDeviation", "@", "#"}]}], "}"}], "&"}]}], 
        "]"}]}]}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.7129578053897953`*^9, {3.7129579323416247`*^9, 3.7129579332083654`*^9}, {
   3.713652863604714*^9, 3.7136528645733624`*^9}},
 ExpressionUUID -> "cdfe4b59-145d-436e-b428-151b7746453e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Generate", " ", "random", " ", "environment"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sebZ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"sebR", ",", "20"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487104854937`*^9, 3.712248746743271*^9}, 
   3.712248851135318*^9, 3.7122560040824366`*^9, {3.71365288333788*^9, 
   3.713652890707802*^9}},
 ExpressionUUID -> "85b029b8-545f-457a-946a-5d4663574514"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "history", " ", "ensemble"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"pens", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"PDTN", "[", 
       RowBox[{
        RowBox[{"sebZ", "[", 
         RowBox[{"[", "j", "]"}], "]"}], ",", 
        RowBox[{"dkL", "@", "j"}], ",", 
        RowBox[{"(*", 
         RowBox[{"noncompliant", " ", "fraction"}], "*)"}], 
        StyleBox[".1",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox[",",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox[
         RowBox[{"(*", "transport", "*)"}],
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox["0",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox[",",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox[
         RowBox[{"(*", 
          RowBox[{"ext", " ", "FOI"}], "*)"}],
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox[".5",
         FontColor->RGBColor[1, 0, 0]], ",", 
        RowBox[{"{", 
         RowBox[{"WC1", ",", "WS1", ",", "WA1", ",", "SC1"}], "}"}], ",", 
        "trag"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487699923706`*^9, 3.712248772039379*^9}, 
   3.7122488677694387`*^9, {3.71225601581137*^9, 3.7122560160145545`*^9}, {
   3.713652898045703*^9, 3.713652914406621*^9}},
 ExpressionUUID -> "11e05bfc-9749-4e67-8c51-a01e3d6f0b51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"mean", " ", "+", " ", 
    RowBox[{"SD", " ", "histories"}]}], "*)"}], 
  RowBox[{
   RowBox[{"pLM2", "=", 
    RowBox[{"Merge", "[", 
     RowBox[{"pens", ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Mean", "@", "#"}], ",", 
         RowBox[{"StandardDeviation", "@", "#"}]}], "}"}], "&"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.712248915735132*^9, 3.7122489344568696`*^9}, {
  3.7136529370575233`*^9, 3.7136529442092967`*^9}},
 ExpressionUUID -> "3d79827f-5f90-48fb-a7c6-09350cd6da17"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Plot", " ", "mean"}], " ", "+", 
    RowBox[{"SDD", " ", "histories"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"PDS", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", ".5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thin", ",", "Thick", ",", "Thin"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<Year\>\"", ",", "\"\<Prevalence\>\""}], "}"}], ",", 
      RowBox[{"Filling", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", "\[Rule]", 
         RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
      RowBox[{"DataRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "tf"}], "}"}]}]}], "]"}], "&"}], "/@", 
   "pLM2"}]}]], "Input",
 CellChangeTimes->{{3.7115071814193916`*^9, 3.711507307689147*^9}, {
   3.7115073490049124`*^9, 3.711507389964757*^9}, {3.71155188954478*^9, 
   3.7115518907795076`*^9}, 3.7115542209549265`*^9, 3.7115620186705627`*^9, {
   3.711587639743003*^9, 3.711587640352398*^9}, 3.7115881592629175`*^9, {
   3.713652971242345*^9, 3.7136529835615644`*^9}},
 ExpressionUUID -> "7dbad896-1fd5-4906-b414-bd4d35122f4c"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"CL", "\[Rule]", 
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJxFmHk8VHsfxyc7TYx9mTFmkYab9lKJ8+XK1mpEO9EqklTcoiilpGRPGbJn
KWmK5pIW4imJUjy2ulqUXCZRSKmn5z7ne575Z17n9Xufeb2/8zvn+/mew/Xe
LdwqQ6PRfCfQaP/9xk+//uc9tORrhNs/n1LCZZmJ7qJzeFxDJHPPZEtE14j/
0U8IqTR9qCcX15uJ8Ulbps+7do0o/OfTTqx6JZ6/pRL5LqKla8RU8hDXXxNa
kvL6Z814fjcRPDN/S8wr5HsIi4lm09v7kO8lIONBROkI8v2EFf9eEF9GTPID
hF8AM0JAF5Prn4ingz51P0OzyfMHCcdqfkOucTbJfyY2nL8RHNmbRfJfiHDG
28V9r7JIfpiwlw/dH6mG/Chx/x7LZapfNsl/JdYoHb/r2Yu/P0bIEYJR49Ac
kv9OHCspcDink0vy44TkyXndYnEuyf8glAt7uoKW5pE8DX4/OTwy/iqPXKfB
qpo5dr9/OE+ePwF6HklLekXnSV4G6Lm71vaHnSd5GSgID41efQt5WXiovXz7
yi0XSF4OlmtbvlqwO5Xk5SBK7uOhjVUikpeHLCul/TuJdJJXgCS72SstGi6S
vAI4RzGs469mkLwiGGeb2VXuyyR5JSg+6tJ+YA7+f0rQEz8vM3ZqEskrg6qe
sXCmTBLJq4Cz1YmDVbQkkleBW6febd63CvmJ4H2W21iqmUzydNjxXjJl8vxz
JE+HmDk9abKXUkh+EnBjB+0FNlivKsyJvVWS3Y/1qsKDu5L1bqI0klcDve8M
lqXdRZJngLQizzQwAOtjgNP36q1dKxLI8xkQrXqnZs+sBJJXh3fP/T39LRNI
Xh0O9Vg6Pj6HvDocCEu9HumZSPIaYP3lySf5M1ifBjjWXcnKlsd6NODnkYaz
qoUpJK8JJzkVp828LpC8JjhGvo67biAieU3wm/Ho5OnHaSSvBacc+2Vm7L9I
8loQ/UWZY3EsnuS1gHltUxX4xZO8NswfMTldeCCe5LXBMXTjx/w25LVhYYtx
xr0crFcH6EW+ohvNiSSvAwk+9qJRl2SS14ES27P1tmPnSF4X/PaY2+4txetR
FwK/BjKs9uJ+6MJcgf/kP8zQXw9emi5SSWxJJ3k9+DurI2SlMfroweCRb0Xv
VdFfH5Jmn272ZKO/PohWVK75GYa8Psyan/3HsaXobwCMgGXQehj9DWB5i+qq
U9/x+jMAs5DKPzzy0J8JWrpfVy/cjP5MOK3woKKRh/5M6BkrOfWpQ0TyLPDL
PPpZ6RT6s6Bk32cRdzCO5FnwuHFWkMrLOJI3BJ7lXpsYaRzJG4L30eMpIyvR
3xB2KLwPZLPRnw09EVebZFzQnw3b6mneDo3oz4bcu1JJ5QH0N4LeQMFGoQX6
G0HXQQ+6ZOQCyRtBVHy+/p1r6M+B6CGfsvpN6f9bN+OAUWZgk3kz+nEg/6uH
Z8s90j+cA07x9S3SJqyPA5JjzBX35pL70cwB4drVObNk0Z8LS+40m7vMSyR/
nwuMuSydhht4P3CB1ng8MdKT9A/nwviabeG7DLG/ceHYzSA9i5fk/dDMBRWD
O/biFPTnQXHozhgbR/TngXjcXZNfjf48KI/tm2hTgv6/jq0assX30J8H89ZX
pN8xRn8eGHfMPuc6iNcbH/wqwsIiJ6M/H7I6w6q0ctCfD6JsL8Pu5ejPBxPf
35s+0tGfD002caW9j9GfD0smsrqyT6K/MfhWOH4JmY/9l0arTbTvK3hRSuWx
yfahcd5feFxD9D+Q9QzoLqXyuCeA7p3+EdebiQ0ub7Y9/FZK5bHCuKZNhlIZ
lcenYipf+GuXUXl8b/FRoptbRuWxsyPX9b058j0E0f5MK2AB8r2EPDtKLcIO
+X7ihEM73WQF8gPEddX0ao+1uP6JKJw6PfGuST6Vx1snW2zsu3OJymPbFZYF
ZyIu/T+PM94M+kRdovL42nr6Eq3nyI8SZaa7ssvc86k8niGZphf/A39/jDCk
708IKS+g8jhP/QhP+XAhlcf2Mwu/JdgUUXmcsdCgcZR2mcrjzWax/Xbll6k8
TvLNWPfRBvNhArj7+01nGGRQeezqHnwlg5lB5fFwyMiaWg/kZWF8w/zMb93I
y8GTH3kx5jmZVB7XVjm83ROJ84g8jK3xGokIwflDASx6Wxq7g3KoPF5g3hz+
IgDnC0UwqZoTMG8rzhNKoOjlFjzggv+fEtDcxybPo6dSeTz/tteAwjvMSxVo
f6LsHKuO/U0FisS5hsO3kZ8IF9S6bPhDeL3Soeb6yRJBYjqVx9J/v3zkaI31
ToJnJ45FayzG+UAVhuYfjlYQ4nygCkT4hrqdG3GeUoN96hF//vTG+YkBNpeT
jpZtwvoYsM671OjqBLyfGOBfszd2fy/mpTpIaz3Hthtjv1MH4cIdX0P+Ql4d
kjVuaF7gpFJ5DMyMMtkGnH80IOD54YLoKqxHA9aLRrz1/XG/NEHYwa4wOpJJ
5XHlW2FCRjzWowlRp8eeuqfjfmnB09qd9r9l5VB5LHfSZDmYp1B5XLzY79QI
E/21ISTQnBm3HucZbfhRX9D5lon+2jD6dX56hxfulw7wnLWimzXRXweGhJYh
T+jorwNLhN9bgrXRXxdUfH6LqjFDf12w2VmUdsEa/XVBEDB5w9Wl6K8HjLoN
1j1C9NeDTz/2fs56jPOKHpzgBFV9vY15ow+P7dRXKU5Af31ocy6Lj63GevVB
2lluFzYR/Q3gwcG6QIc7eH0ZgLfUTFamPI3K4weOpuL3bTifMaE0YqTVXBb9
mXAh1PXMV130Z0LDiEQ6aQr6s2CsyUd12TT0Z8GazisvgtLQnwXpB2Iz9GPR
3xCER5iX3J+do/J4aqvMQHcy+htCnmO5pfgvnL/Z0K5XQ1gloj8bbDN3TRef
RX82hMS0rV1Tgv5GwNX5sPqxFO8PI5h7e72xkhz6G4F/fEZjvCb6c6CWq9G3
jJlD5fHf1wd/O3AU/TgQ0ySxbdqPecOBKUVxqdf+xPo4wPKzaKs5lELl8R9i
nzNjtejPhWSll6s7QlKpPK6+eSs5IxjnYy64Tf01baZcpPJ4rOqnpdEb7G9c
6JjiZx47mknlsUKAXb67EvrzwGtaqrWQgf48WPJ39bBsIPrz4JlYbkLdVvTn
gV9Nd6ZiIfrzwLXVbfcWf/TnQbjTSHr9TfTng2PUC5tnfujPB/v+R9HlO9Cf
D9XT2kw7o9CfDzXLgkJaOtCfD3cVlvpt/oT+fGAfVPNynoD+xuDTETRnpzL2
Ixrtotr5ba6Ty6k8/hZ+963yFDyuIewCDhoIppVTefx68MAT1wW43kxUJHqn
b7Avp/JYorffqdMV+S7CelFE3GQvXH9N+D9zEg/vwvO7CUPPCzZwEPkewqHg
0Jh8JPK9RF2qU+rKOOT7iae+Q1kCEfIDxNhljlxSHq5/IiK2fd545Anm2yBx
9IRz36z1mH+fCYF8VXsi6/L/83jGm4vvZyA/TLDEIk5WCvKjRH5c5RewuULl
sdKO1t33NYqpPJ7Xdm9a02gxlccPAteMH+y+SuVxr+OLj4t2lFB5LOrO9ahs
L6Hy2OZd4qfFTvg+gAbh+0w0rc5ifkwASZCXQtFW3D8Z4LRbFDsH4/O5DKTc
nNG36S/kZUHn6kPVxvO4v3LwNbBk6u1YfD6XA0fZFOXSojwqj/kJ1jeE/8b5
QwGMZyWOXFUooPJY8PR8tWAWzheKIHhlLbrqVkTl8SZirdb23fj/KcFpumdz
/37sB8owU7zCQboF+7UKzJ1VS58eh9erCizbJf67Qgv730T44LBineMHzFc6
qMNlls4o9hM6JCU9fKBmiv1vEiT/6+xQrE8ulcf1punWllfwfYMqGGR0vivs
w/lLDTpzxt++4uP8xIBE0bGOsZVYHwN8H+S1HbqOecMAl1DB+gNZOL+qw7Bk
ZZLXJHweVQcte2e3JE2sRx3ahO/+bBnAejUgM+NmZbgizj8asPTjlNY/Cdw/
DSgbUTz82wncL03YZNI1vfApzgea4B55Y+N7XZx3NKEz/Kzne7d8Ko83fvCI
vh1VQOXxIYPfQ51asF9rgU17sLD4ET6PasPt/tmFwVb4PKcNNwyHH3I88H2I
NnTEmDQcPIv+OiDa93LRt3zcHx0wZeuZP3+D+6ED1rLXHBrM0V8XPPRhz9OD
6K8LD1cbXk+uxv3QhXn1Cbk8OfTXg5lhqcGRC9FfD0bW0Xd9CUJ/PWDdGWid
uBv99UHePbmp+A32Q33Qsb9az1VEf31oBh8lq63obwB3q7KFHWHobwCWEfy2
WxXobwCzo+v2SxTQnwldIYPHb69CfyZIv1Qtik5HfyYIAvX1+F14v7DA2i0+
K0kX/VlAs9vOrndEfxbs5kvrBLbobwhH/1VNN5KgvyEMm4c7PO/E680QAmvs
ZbJXoj8b3rnvaqnwRX82qFnuOqyaj/5sEEzzPnRgCPuDETwetDryyQb9jWDM
+qTtnNPobwQpHX4a9g3o/yuPnT6GzsX7/Vce36wNPH5/OvpxYF+RhkmDaRqV
x/L33Tfty8D6OBDu6rq5riadyuNGeWtLr8Xoz4UBwdBd8aZMKo8t04qjF6Th
/cCFZruAJ6092VQeB62tv3nCAvsVFz4PiRrkjuZReazoamq+6j7688CXPaEs
4ns+lcdvW2e0v+WgPw/6nrOGhUz05wF72fjFDfHoz4MAtwFCWYL+PJCu3/gs
yxr9+RBfZCjDWIf+fPjyI9qsJBn9fx1vEKT6vEZ/Pox0102aOxP9+XDOr/HQ
0xD050OylNFkexv9jYG11sk/eTif+A8lDfys
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
          None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwt08VSHAAQBNDF3d3d3d3dYXGHxUkCcfntuCePSg6vuubQp64pC90H78ID
gUAY7//nwx1BJFFEE0MsccSTQCJJJJNCKmmkk0EmWWSTQy555FNAIUUUU0Ip
ZZRTQSVVVFNDLXXU00AjTTTTQitttNNBJ11000MvffQzwCBDDDPCKGOMM8Ek
U0wzwyxzzLPAIksss8IqawRZZ4NNtthmh1322OeAQ4445oRTQpxxzgWXXHHN
Dbc84jFPuOOepzzjOS94ySte84a3vHvoGvmWG6654pILzjkjxCknHHPEIQfs
s8cuO2yzxSYbrBNkjVVWWGaJRRaYZ45ZZphmikkmGGeMUUYYZohBBuinj156
6KaLTjpop41WWmimiUYaqKeOWmqopopKKiinjFJKKKaIQgrIJ49ccsgmi0wy
SCeNVFJIJolEEognjlhiiCaKSCIIJyzs30P+Eb/5xU9+8J1vfOULn/nERz7w
FzZ6QyA=
            "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011111111111111112`], Thickness[Tiny], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121}]}, 
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011111111111111112`], Thickness[Large], 
          LineBox[{122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
            134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
           147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
           160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 
           173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
           186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
           199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
           212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
           238, 239, 240, 241, 242}]}, 
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011111111111111112`], Thickness[Tiny], LineBox[CompressedData["
1:eJwNy8NWBAAAAMDdbNu2bds2N9d7de67s5vDHKc09LB2HwwEAo888cwLr7zx
zgeffPHND7/8EZCDhBFOBJFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFP
AYUUUUwJpZRRTgWVVFFNDbXUUU8DjTTRTAuttNFOB5100U0PvfTRzwCDDDHM
CKOMMc4Ek0wxzQyzzDHPAossscwKq6yxzgabbLHNDrvssc8BhxxxzAmnhDjj
nAsuueKaG2654x8U6SXQ
           "]]}}}], {}, {}, {{}, {}}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->{True, True},
     AxesLabel->{None, None},
     AxesOrigin->{0, 0},
     BaseStyle->{12, Italic},
     DisplayFunction->Identity,
     Frame->{{True, True}, {True, True}},
     FrameLabel->{{
        FormBox["\"Prevalence\"", TraditionalForm], None}, {
        FormBox["\"Year\"", TraditionalForm], None}},
     FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
     GridLines->{None, None},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     ImagePadding->All,
     Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}},
     PlotRange->{{0, 10.}, {0, 0.5}},
     PlotRangeClipping->True,
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}},
     Ticks->{Automatic, Automatic}]}], ",", 
   RowBox[{"SL", "\[Rule]", 
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJw92Hk8VHsfB3Bb9m0wxjpmUSoq6Ul750uXW7jlQVSo6HIrRKUSEqKQ2yJX
3a5Ki5I1ZJedNCIhRGSJ5KarIkvF0/M85/ubf+Y1r9/nzOt95vzO7/M7w3X1
tnETERIS8hAWEvrvO75iuXHPLQsaqa3/e+VQEg3C6X7kczW1d7Rz/arCRur/
6UbKcV7tEY8iHH9BrV13p7ShuJFK/t+rg5rYU3TSuATzPZRwwteKs6U43kfp
fG53qS7D4weooo/3TXrLMT9EXVk/+3NPBeaHKZkjEw5VlZgfoR5sFxw7X4X5
UWrlHPGoDdU4/pFirhHatyYwlz7+ExVfuWVquXYenR+jzjqck+ZP5dH5caop
/O1xpQUFdP4LFeyUZMLNKaTzk9R4o4P4bGwxnZ+idh36FJOSWkLnpyl2b96r
E15ldP4bFaLldIpxqpzOf6e+hQiOWp+voPMz1P5c/5agc5V0XggmnDOU7U5W
0eNCsMPPpF30WQZ9vDA47hMxfxn4gM6LQK2TC6PBNJPOi4DZtEd5kGMWnReF
tTym65c32XReDHI1zj/a051D58UgZv2OqOi5+XR+DlTYBFsFXMDzFYek6SqP
opliOi8OC0cvaWc4ldJ5CdAd+23pxkY8X0lYPL0hzaK/nM5LwlPV2lYPozQ6
LwWjtU5dFzal03lpiFnD8IwozqDz0qDhc6KwfvgBnZeB6DYLdU/PLDovC/Yj
Az0vXR/SeVkYaHE9PZucS+flwD11c6CkRgGdlwej9u81gnNFdF4e1ifkbVEa
f0TnFWB+XuuZzVz0K8K08/Z311fh9VKEm1uUI0w9UunjFeHZn8esO/3T6DwD
Ble7BEcNpNN5BtQoiif+FvCAzjNgh+MXjdNTmXReCeypCv3O99l0XgmUBKL2
l4xwfirBu3m6n3QS8um8Mlj8szXGR6WIzivD9Z/qnpoEPKLzylB4UEZokaCU
zquAqvdvJ7xmyui8CszWLR0zZ6JfBZaYpem7ctHPhKzUnz33RqCfCXt3tsQt
tkQ/Eyq8ozWuPUa/Kjh1L/hsUIB+Vbhl6ihj+R3nkyr4n+GUJe1DPws4F+CG
TVchnWeB9JLwt6I/oZ8F4hnOvT9dQr8azMidWG/Xj341iN5uceHmmxQ6rwb6
a1KNaz+k0nl1cIw95Vdmi351mJZaHjq1BP3qYN++xjskBf0a0H3JyZkVj34N
2OYl0Wn9Gv0asKYv6riEJfo14caeKa/tJejXhJqPJ5qF5qJfE+L+tg0K8EW/
FlRWBt3Ta0G/FmwfuTsRXYV+LXiov874cD36tSHzwu5DrKXo14a89jYDDTb6
tSHVV8Fd7U/0s6EiZ8USjUj0s2FyaE9/Qx362TD2rvnYghXo14FuscErNsno
14H5FWO9Igz064DLxdbeB7vRz4HSP+LfeArK/j++kAOZ7jz7rLQU+ngOFCsn
DhXm0P5gDlw0W+x8SC2d/j4ODCc+e7WPQd+/Lzig4uGQJReNfi50Lh08kBGQ
TX8/Fzw+6o0qlOTQ38+F01ot25YtoP3BXFA2DpHaFF9Ifz8XdF0S2ZKi9P37
gguP7sbV99qgnwdRN8wv3q1EPw86hmr/VR+Pfh5sFCrtWn4H/Txw3fKHhKk4
+nmwf6vYd3lJ9PPAsbru4OFQ9POhbmnqqqaD6OeDUdLy9sls9PMh/bZE7QQb
/XzYqTjFFI1BPx+CLI/HNk7S/fGCD1WazID6jejXhdSeovm5Jbge/WjMbtt9
rteaSB8L/on1jCSfq6kyyfWNBtebSB/nfHDs0L+B4y8or6pnm35JaCJ9XC/B
19t/E/M9VN4j56sHbuF4H5UVLTRkcxuPH6CYBowLzDuYH6K2iEQI8u5gfpgK
Zw+Wr0nE/AgVFqbXcDsR86PUmYMHFn0i4x+puA5Om+Ms/h6fqLjIRH55WhHp
43MTtg/C0rFfx6ncDm6J0grs1y/U3HUl7GI+/j6TlMnEseBQZ1yvp6i/+wou
z8nEfp2mpPW97spJV5E+Xv0xfR3XsZr0sUOhwt3G+BrSx+vCblFP6x6TPhYS
HEpf8LaW9PGKiFu7/Jfg/ScM6aXscKUP2K8ikPW4qLtOFu9HEWga+fVCSS32
kyhoNok97uJiP4nBL48285w+YD+Jwd6pFVaMyRLSxyuF0hz8JctJH7+XGFeV
+R3PTxyEhzxHpIWrSB9PxC6VOLK7mvRx4cO/jEWT8fwkoa4v5vL1zEzSx0/f
7c51O4D9Kg3mZjYrLX/PJn3s/MfecmsrnN8yAMVr78en4P5JFmwuag4bhuD1
lIXRitytUXHYr3IwnsqqjtmJ10seauxj2yqGcX8gDzNq1J0e90rSx7tfHxxM
acDrpQgDOZd/zuDUkD4OuuRbX2GH+x1FWBxZ0npEAf0MkJLR/RZqgNeHAWe3
JJ/4+x3uFxhQxLkS8uVn9CtB+6Nzdwa1cH1UgmDB24xjRrg+KoHpJfYpziL0
K4PoQ6O5ToU435RBrtmlenBFJenjQ9sXC/beRL8KvNslmmE/jvNNBTg6I7Fu
K9CvAkYdV/bUjuL6woS7yb8PhMiinwnuQXcvh9Winwni05XaBnPRrwqN6QPW
w5MFpI/N0v98nCyHflUQSwzwPa+BfhZsg/L87nvoZ0G7nl989lz0s+BaqdHN
lPPoV4Mvvg4bDN+gXw3cV+Uv2qOPfjXwtgtUH+lHvzoc4gicq2dw/6kOMwKV
ba0F6FeHc3J2PpFM9GvAYIpysNcQ+jVAOfN4YdQ33G9qQF7nfKnnDPRrwrLj
vbnMG+jXhNiAhrRZLfRrQrYX33XeGfRrga6NvN5IJ/q1INXQL2PlXPRrgYn6
8bRFXejXhpUFw8X7J9CvDRE3E2JbM9GvDWsjtzu/kUU/G2Jef/de/hr9bDAf
1fur/xP62VCp0x39Shb9OjBsskeBdRX9OtCx69pbaTX064DStHiGZSj6OaB7
SKZ5ZVs16WNT1goHfy7evxywGtzsL/Yyk/RxzenA5U2fskgfr454er429SHp
Y97xnW0uEujnwnC3hYzVywLSxzalxwpS3+P6ywVZ9ycKyVJlpI/73K4v6YrD
+5cLUl5drm0qlaSP+xpbLi04iX4epIWKhBm2oJ8HT30mz42x0c+DtqRIlmEr
+nkgH/Xv1pR/0M8D8xTTfsv76OeBqqFr33lR9PPBvr/9++IX6OfD0dGo+Q5D
6OdDZcCE1wEJ9POhoStVPj4W/XzQT1R7cFUJ/XzQZPpZTgWiXxck+6SylZpw
PRUSMohnCB8PaSF9/Dtjvv5V8rmaUuMmuHBCW0gfK+T9s/59KI6/oK5bfm2u
O9VC+vh2SlTDtTDM91BenaUH/x2O432U2bz5B3rC8fgBytvdr3vTacwPUeI1
ir+cP435YWr2cYt+9mnMj1DbMsJ080l+lGrtam1MIOMfKZa/iVlgaCnp49p7
3+fN08H5OkbV1snqf87E/ew4Vc9aHBJ5C3+/L5S0VVL82/cVpI8lxatOhPtg
H01R96Kn3XJksH+mqS++PJ9rd7Ffv1Gfq4UnDZc9IX2c9cnuhXWygPSxoo0g
WV3qKeljKWPjTbOb60kfm9jpNh86hv0qDMKqa6osd+H8EIF4I9XUJ635pI93
9TrvmlmOz1OiMB0ypl+9s4T08aclZzYsnC0jfazTIS1hOVBB+lihTV0qrxbn
hziExUj45V/F8xOHkTYFqxLbWtLHguVfX90cfUL62Nz7c2mRTx3pY8PC8g0S
goekjzneyjMi+Tmkjyvf/7XaZm0e6eOEQtva5jRcb2RgLGHxqvrhYtLH964m
TVVuQb8sBG0Lj5E2Qb8c5IlKWnEN0S8Ph8vvW3Lk0S8PXS63OCubH5M+viIh
ZyYViH5FaJRrTSyVqCN9bHDytf2bw7g+KoKvmcmcIBf0M+CGHysfBvH6MMD6
3GZ77234/woDtAZXDbnHoV8JFl1Pkz8+D+ebEhwbGBBbrI77HSVQVNaXW0r2
c8rg4rNaOHgY13dlqBPdeccg6zHpY4lpe5UiZ/SrQLH1jR7qvYD0scm28gy9
X9GvAk8ZjpmvrdHPhM9BE7HPWtDPhF+v+13pMEM/EyzCvnKKQtH/43m41LrN
Vgv9qjAm+95kjgL6VcFS/G2EhRD6WZCwso+r0ot+FujnLzJzu49+FuTdy33+
cCv61eBD59KNsgPoVwNxc8tLR4hfDTaevcU6SvzqkHfU5mRyM/rVQSR6bFH2
BvSrQ42p58GLJ9GvARMubs9dNNCvAb9Nj1v1yaJfA6zNo7eyZ/D/qh/Pv1CT
O9ONfk0wm+n6GHQP/Zrw14DWHAU79GtBeM+1u1n96P/Rx8Na/Qv3ol8LkuKb
S2/aol8b1BYmlm1qRb82bN+/71sM+f214em123YPgtHPhkwx121JxM8Gwdcj
C74RPxuiLZqcdYlfB9xCbJvEXqNfBxJ2ws5Y4tcB3xTeyHri50DkZv9ysTcC
0scGX51OaXri/cuBQlPLYH2HHNLHVcMuaz1e4v87HIja/8RUb2MB6WPDM27f
csj84cK36jZbX018fuVCfM2e8jtyeP9y4cWj+YcL0f+jjwsNAzv+eF1N+jh4
wd7chUmPSR+7b+6GPuLnQaNbydFC4ueBvlf0qVBv9P94fn6+DMx2oJ8HHp7t
Scav0M8DnnDIkwgL9PPg+dVJm9Qw9PPhoECk10wL/Xxw1vIp3iGPfj5kzP17
Yvcs+vngtcw5xrgH/Xy4fGeMWU/8fLCLd3t5lsx/Xfi132Gd94/5/x/FZyrH

       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
          None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwt08VSHAAQBNDF3d3d3d3dYXGHxUkCcfntuCePSg6vuubQp64pC90H78ID
gUAY7//nwx1BJFFEE0MsccSTQCJJJJNCKmmkk0EmWWSTQy555FNAIUUUU0Ip
ZZRTQSVVVFNDLXXU00AjTTTTQitttNNBJ11000MvffQzwCBDDDPCKGOMM8Ek
U0wzwyxzzLPAIksss8IqawRZZ4NNtthmh1322OeAQ4445oRTQpxxzgWXXHHN
Dbc84jFPuOOepzzjOS94ySte84a3vHvoGvmWG6654pILzjkjxCknHHPEIQfs
s8cuO2yzxSYbrBNkjVVWWGaJRRaYZ45ZZphmikkmGGeMUUYYZohBBuinj156
6KaLTjpop41WWmimiUYaqKeOWmqopopKKiinjFJKKKaIQgrIJ49ccsgmi0wy
SCeNVFJIJolEEognjlhiiCaKSCIIJyzs30P+Eb/5xU9+8J1vfOULn/nERz7w
FzZ6QyA=
            "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011111111111111112`], Thickness[Tiny], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121}]}, 
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011111111111111112`], Thickness[Large], 
          LineBox[{122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
            134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
           147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
           160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 
           173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
           186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
           199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
           212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
           238, 239, 240, 241, 242}]}, 
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011111111111111112`], Thickness[Tiny], LineBox[CompressedData["
1:eJwNy8NWBAAAAMDdbNu2bds2N9d7de67s5vDHKc09LB2HwwEAo888cwLr7zx
zgeffPHND7/8EZCDhBFOBJFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFP
AYUUUUwJpZRRTgWVVFFNDbXUUU8DjTTRTAuttNFOB5100U0PvfTRzwCDDDHM
CKOMMc4Ek0wxzQyzzDHPAossscwKq6yxzgabbLHNDrvssc8BhxxxzAmnhDjj
nAsuueKaG2654x8U6SXQ
           "]]}}}], {}, {}, {{}, {}}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->{True, True},
     AxesLabel->{None, None},
     AxesOrigin->{0, 0},
     BaseStyle->{12, Italic},
     DisplayFunction->Identity,
     Frame->{{True, True}, {True, True}},
     FrameLabel->{{
        FormBox["\"Prevalence\"", TraditionalForm], None}, {
        FormBox["\"Year\"", TraditionalForm], None}},
     FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
     GridLines->{None, None},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     ImagePadding->All,
     Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}},
     PlotRange->{{0, 10.}, {0, 0.5}},
     PlotRangeClipping->True,
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}},
     Ticks->{Automatic, Automatic}]}], ",", 
   RowBox[{"AL", "\[Rule]", 
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJw9mHk8lHv7x2XPMrYxhhljzFSklCQhui+dkjpthxJaFKGSNirKWlLZWk5S
pzz2bewjSVSUCaWSLFFHKBTJUkJFv37Pc1/3/OM1r+/nntf7+m7v66bresDO
XVxMTMxrmpjY///FTztz/rdRmojY9N9PMXF/yujHcyX8LiLST4ZuOa0mIv6X
ricOO7i2JGjieBMxNZS3QlFXRAj++2kjFkhkLJaejfkOwu85YwF7AY53EdOf
HvzOMsfnu4nwstEFI4D5D4SFp5rcP7aY7yPeVUVa0jdgfoB4xPk65boZ80OE
y4nIY2e34/gw8aeqvnBwUwn5/AhhEWhqk80tIfNfieLTG8NTR2+R+VFiyLbA
Uqr7Fpn/RrxcIqMXOnaLzI8TAVs7TZvnlJD5CULVwWVwxXH8/e9En3Cnw5lW
/P2fRAn7aWSP9W0yP0l0HWT80su7TeaniDDOdu0FrFIyLwY1poMrt5wpJcfF
QEnTYndDaC75/DS4Fv5EeMIpl8yLw4P41Q7X/sgl8+LQeCFtla0b5iXg47Wo
sKw6zEtCxaW61mlBeWReElw26jmMeuSTeSnQ4V+uFZkXkHlp2HL1xoGLtQVk
XhpEGwLXL9xWSOZlgAiLXLx6uJDMy0KC385iyTAhmZcFp4L/NAYfSCfz06HC
LvPcVtd0Mi8HI7acQUOPdDIvB317D4t8EzAvD7s+yviK+BlkXgFspqqOvh7O
IPMK4Njw4xltIpPMK8LFrEDFrhkCMk+DhkFFOatd2WSeBn7Xnf/yyc4h80qw
Snhe9/QXnB9l6DU+bJNmhvOhDFlH1V3iD6aQzysDrXN6Q/f+FDKvAo7pZomb
A1PIvApYV07SuZWYVwGu0G/k5IZUMq8K07PWu/sYpJF5VTB6z1xiuBTrV4Wt
QVfO/jqK9arBp2XJ+ikPsT41mPhyYdKGKSDzajCral7Tc+9sMk+HF9ElrK0V
WB8dSr6lREaxk8k8HeI1d2Y26SSTeXU4mzqm2GWcTObV4ceXenOjE5hXByNh
6TZ7JayXAW/t8q86fsZ6GdCet26pj0wamWfAiDR9XscKXF8NmAp232pzNYPM
a4Bqb46DaCSTzGvAaJ7umkXrcL2YYB8ZGSVIzybzTHCqCUl6759E5plQK1e0
6mRwEpnXhEXhGV55l5PIvCYIuUlraG8xrwnD3l8DnY5gvVpQE3umKcsB+bWg
VUMoY3w4lcxrAUNruolBURqZZ8G+LWn2C2WRnwWN17bFergjPwuEM75Pxj7M
IvNsyJcx21HPQX42MCO1S2fykYcNhXwb96+zkV8bgo7sqFgIyK8NwXM6ePGR
mNeG102u8t95yM8BHv+hjpcU8nPgdPlKsZk85OfA6+bafpddyK8DZkvAs+wO
nicdsM8Q9KzVRH4dyP61XL3HD/m5cIlWvP98E7m/DLhQUfXtdunnRPJ5LixR
unHA7Fvi//IhXLCslaykKyIvF171r1WgO5H1NHHhslS0ttww1qsLLnV3H7Ia
yf1loAuu50Y+BQ9jPbrQ1Wpuc9CE5A/RBV/lw5uiIvF86MLnbjnzj33kejTp
wmqi85T9n8jPgyEa+1BjJvLzYAf/2Ou1T5CfB+Grbp4jXiI/D97EvewO6Usk
f58HtrtbWt6aIj8PVNf0eCx+jvx86PHfaJcvRH4+lCTV+4XUIz8fwuz7B7rV
kJ8P48sE/sFeyM+Hq+1lO3Y+QX4+VGXxyxzmIv8MsFu1SMczAs/Dbx9nhBk5
OdVQPjZVWFBPc8bvImL/g8mvvG01lI9Dhv5OXuCK402Eg3BfptPuGsrHe0ul
Wsf3Y76DiFm0LbT4CI53EYe05HzdA/D5biKuu6d57CTmPxBRGW+Pe57DfB8x
cXLay6LzmB8gHIi42n9jMT9E7DHffLLnOo4PEwX9z2Y87blD+dgZ2l3m3LxD
+Vj0IiLA7dodyseu+ivdTFIx/42wE7vfSzRjfpx4Xca/d06/jPKx3I9u6e4L
ZZSPlybnFspLl1M+llO9GLoitJzyMetsXaDLVDnl4/CoRn2xE3cpH5teeR8y
OnqX8vH+lhiXvj/Rf9NAuUh5k9pS9J842BdJ5tivKqR8bMMJabYMwLwEaBuW
PvJ5hXlJuPJ2fmGQA/pSEh4EnjK52C+kfOz6tOzaq+giysezosXTjU1vUj4+
7sof5HXcpHysdvaSq865YsrHNRL1l5vnYz8jC21zMn0aKgWUj+XfmHBLH+J+
k4PvLQXnI8fRL3IQe6F7ojkQ7zN5qHA1PNvrkEP5OCLbIfCqL/YfCtAwbN1J
r8yjfFwqXl1iRcd+ggZB2x9c0XuG/QQNHrXtdxaew/lRAkf5PX8vXS6kfHx+
a0fKnp84H8qQuDbgjPgx9L8ypPHbOfNOoy9VYFCs83T4I7yvVUDr8Em9Yke8
71RgSXa8ogyB500V9Jtn/Vi/F+dDFRhVI/7CKuwXVEHimeM0awvsD9SAYdaf
5l2O9alB0Ja2pp9crEftd78QmVzbhfXSwYHdYGacjPXRodrylylI4X1AB6ua
MON7TPSlOrh5lZgGuOB9rQ41t/d+MhjDvDocXGTbwnyH9TJgYJEJn03Ponys
Hs/Z4eyL68eAD9prqrsHsT/QAFa1c+0cP+wPNSD2xnblHol8ysdj12V1/7VB
fiY4+spw3KcjPxOKt3UYrtuMvmeCuDB831Jv9I0mfFC8rHfoFvY3mhDfer0w
bgPya8Ln8UFLcQL5taBiHqsk8jD2N1rwVH7zRpemLMrH2zwObb9kj/wsEAVP
tV5sx/6GBbGb5Q/TvbGfZcFM8xRB2UQ+5WO1lqfRDRUFlI/tFkt5ZfxEX7Kh
bVDK8gXe1799bGOlXmCxHfm1Ib4u+tnfE1ivNqz1n+c47yOuFwcWi90V69NG
fg60tC25MBaK/BwYuKs+cGAa8utAkbf2eEU08uuAvAHHMFEb+XWgeNP3hpxs
5OfCqEXxz5B/Cigfe20c6bWqTqV8vGr1f1I13qZSPjZoeKljaIC8XLDITa+c
+yiN8rHSj5Ybe24hvy5kvCz0q+7PoHycVPmr5cQG3E+6cNrmVFtyvYDy8esj
LL/sbTmUjwu88gSrP+dSPqYdnHTgBCI/D0ZEj0cSTiE/D7Lkdn7sS0F+HmT0
vjAzKUd+HlyaFN4rpvpJHrCWTR1jpyI/D4Lc70SUX0Z+PigIHKYFPkb+337d
Za8TNx/5+TA17B0/uwD5+WArH+SdaoX8fPhQKfyj/Bny80F2oIlO2478M2D3
TWMlJ188D799bNq2tzzlCeXjXM0FaWtT8buIMBU/HlOR/oTycUyEyPuhAMeb
iDwfA/n0/CeUj1MO7DrefxPzHUTq9ZQX6+7geBfR6pkykHcfn+8mMpVenZis
wvwHor03u9/kMeb7CCXrY3vsn2N+gOhxsbjs2Ij5IcJnjBe9vBXHhwl10ZE4
wbF7lI+PS4T7Z6+8R/m4SbvyMM/qHuXjRpn2c25umP9GvKg6mjl1E/PjhAXL
Y4XVzPuUj8UT93HCMu5TPq6tCZC21aygfJx/SrDEbkcF5WPBeuugPzMqKB8v
D5z5j+cA5sWg4funNyuNKykfb0wWi+xvLqJ83JhcVr/7OfpSHEQa73Pahooo
H/N8Dc822aAvJWCF4twnlx7fpHxcd8T/yE/vYsrHG//6cjeDj/8fkIK0Y+/2
9Hfi/wOkYTh095uXyfj+Lw3zfWtjVN3wfV8GeiOvRX/l4vu9LAzHLPXNfI3v
97KwJaNQdSYd3zeng4N75S31mbj/5EDc8w+jjxF4P8sBd8vcOPY8vM/kgbZ/
9jNJEe5PBfCc+7VScAL7DwVIl63yj16O/lSELKPnu+UYOD80UBMFZhr14fzQ
oN7TSCH7Ls6PEkRZyV25E4P9hDIIEs6khmzF+VCGuBnv8j0D0ZfKYOkh9Dp6
He87FQjfcs6rWAnvOxX4wpOxWD2E508FHFIf6Eca5lE+XikxdWGuAOdDFab+
8nhzPQ39qgpNMYpWlUHYP6lBIuMflRvOWJ8aiFl9mtu8COtRAyIy2DmbhutL
h6pDNW6m77E+OrScdO76MoD3NR3+PZpZnq6C/ZA6LDU+5sKIwv5AHWIDJRNm
+mC96lBwu3lD+y3shxjwg1ma+9Yc+wMGrIn8HGrdievHgANaywpG63C9NIAt
o39dNgf9qgEKs2XdT0VgP6gBvjvEbiR44HoxQYZfO+pLID8TVL4Qd0pMkJ8J
S5ycz393xv5GE67Hhrxb+ArvQ004e+kKQ/cB9gea0H+q/4dAFvm14HZ13lXv
GOwPtKDy14/EKDPk1wK71n3LJ/2RnwVKDXOM/JyRnwXZEVv1dlogPwvqZqVn
D2kgPxvWCYL7LUfwvLIh6t0n9uxm7M/YIFEuUs2bzKR8TJN6nGAdgPzaUOa9
5HiEJ/Jrw33291TXfNxvHFjz763O3abIz4HZE/O5jzvRrxwIaTAaI9Yjvw5o
bAhc7maE/Drg2lxjPqGM/Drwtmlzjfkg9qNcSPqstMzicRHlY8b7AcaDBPQ/
FzafTmz9Vp1J+Zj5OjloxUpcHy7c2P/r6IqFAsrHEUM8du0J5NeFwbY0Qx+J
XMrHHRMKD4/l437ShctOHiV7TQsoHyd5u67t1sDzrgul4/q05vFCysd76hVi
fVuQnwf7wmRym4TI/9vPw6vHzgQgPw9qTg/26qch/+/3YbdLcX0zkJ8Hn1kz
mU4qyM+DvqCYPGtn5OeDcZtjwequHMrH/nrNotwY5OeDpa1fuuks5OdD3cfM
gvcyyM+HGw0b/5b/iPx8mMVcXtJVjfwzQK/qcUxQShHxf4y8GQA=
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
          None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwt08VSHAAQBNDF3d3d3d3dYXGHxUkCcfntuCePSg6vuubQp64pC90H78ID
gUAY7//nwx1BJFFEE0MsccSTQCJJJJNCKmmkk0EmWWSTQy555FNAIUUUU0Ip
ZZRTQSVVVFNDLXXU00AjTTTTQitttNNBJ11000MvffQzwCBDDDPCKGOMM8Ek
U0wzwyxzzLPAIksss8IqawRZZ4NNtthmh1322OeAQ4445oRTQpxxzgWXXHHN
Dbc84jFPuOOepzzjOS94ySte84a3vHvoGvmWG6654pILzjkjxCknHHPEIQfs
s8cuO2yzxSYbrBNkjVVWWGaJRRaYZ45ZZphmikkmGGeMUUYYZohBBuinj156
6KaLTjpop41WWmimiUYaqKeOWmqopopKKiinjFJKKKaIQgrIJ49ccsgmi0wy
SCeNVFJIJolEEognjlhiiCaKSCIIJyzs30P+Eb/5xU9+8J1vfOULn/nERz7w
FzZ6QyA=
            "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011111111111111112`], Thickness[Tiny], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121}]}, 
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011111111111111112`], Thickness[Large], 
          LineBox[{122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
            134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
           147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
           160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 
           173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
           186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
           199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
           212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
           238, 239, 240, 241, 242}]}, 
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011111111111111112`], Thickness[Tiny], LineBox[CompressedData["
1:eJwNy8NWBAAAAMDdbNu2bds2N9d7de67s5vDHKc09LB2HwwEAo888cwLr7zx
zgeffPHND7/8EZCDhBFOBJFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFP
AYUUUUwJpZRRTgWVVFFNDbXUUU8DjTTRTAuttNFOB5100U0PvfTRzwCDDDHM
CKOMMc4Ek0wxzQyzzDHPAossscwKq6yxzgabbLHNDrvssc8BhxxxzAmnhDjj
nAsuueKaG2654x8U6SXQ
           "]]}}}], {}, {}, {{}, {}}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->{True, True},
     AxesLabel->{None, None},
     AxesOrigin->{0, 0},
     BaseStyle->{12, Italic},
     DisplayFunction->Identity,
     Frame->{{True, True}, {True, True}},
     FrameLabel->{{
        FormBox["\"Prevalence\"", TraditionalForm], None}, {
        FormBox["\"Year\"", TraditionalForm], None}},
     FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
     GridLines->{None, None},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     ImagePadding->All,
     Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}},
     PlotRange->{{0, 10.}, {0, 0.5}},
     PlotRangeClipping->True,
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}},
     Ticks->{Automatic, Automatic}]}], ",", 
   RowBox[{"CH", "\[Rule]", 
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJxFmHk8lPkfwMcRmtznjGFmzNichYp0Ph+rg9UhiZWS9EutFCvbndhaEeXO
bXLmKEmRI6oVSpIjLULocOWKhGR//Xafz/Obf7y8vu+Z1/v7eo7353k0XDxs
9gvTaLRDQjTa//7iZ+n0iPVX3zxixz+fAiLO2dx21+/4fyXRPN9l1jsgj/iX
ridmy/L3x4XjejMRsaWEmCfII7L/+bQRixs0Rx1vIN9FsDOe/vxXMa73EGai
2UHK1fj994TE9dbGsSbk+wjhvBU6u7uQHyB0ZS5r/fwR+SFifdADrw9fkB8l
JNoaAyVFbpPrY0Su78CSV9tSyO9/Iszu+eXLjyaT/ARh0cKIyE9PJvnPxCXT
9+MZ/skkP0mI+N9k0+ORnyJo9Vt/MOxEfpo43P/Itdscf3+G2JrWNnevPIXk
Z4nnZhI/C69LJflvRKhbtUthbSrJzxHOjcfrn9mmkTwNMj2YD43b0sh1GvBa
Xhf9mRhNfl8ILGitWkHrokleGDjSK9rUpKJJXhgeRCT7KGkgLwLq5T70T1eR
F4Vei713ZdxiSF4UbOIMk13Ox5L8PHDdGpJyvTqO5MUgg2GQIeAmkLwY9JnZ
3Q48l0jy4lCrY13X/zqJ5CVASyWGWcC4RvISsDty/x86teEkPx8+RbpsuB8T
TvJ0cNlX66fpF07ydKivj5c3zEN+ASQYN7/YRUSQvCR8FV22ok8vkuQlQfpG
3Zm1e6JIXgpKAgpbpsuukrw0bD9JSxIY4X6lQXLWOGZtDu5XBrKNrsQs58WT
vCzUCQ2dVQ1PINdlQbtqeYZJTyj5fVk40RSVFlAWSvJyYG+z2sQ2P5Tk5UBx
tUVqwyDychAa4aEbcSGM5OXByfRMqP8p3J88uNRbLnK4F0Hy8hB343NMISeK
5BXAUzvQ/YfEqySvAMt42mdyubgfBah/OPJ7ZnIsyStC4/5TvtGseJJXhGUJ
3dk+MuijCHk3FnPMe0JIXgncx6v2nH8VQvJKUD0Yd9hIB3klML0WVvO2Ever
DK7hUW9DHoSRvDIUCXutkaahvzI0TBkt0XSPJHkVqG4+eHn/EB4fFbiZNP90
pzeeryqQGxac0jMdQ/IMmNSiPx05HkfyDAh1Dl64xz6E5BlQX7HseTwX/ZkQ
rnNqtoeJ/kywVj+f2xmLPBMe7rMU3XMI/VXBxW2RbLwr+qtCtNYBRmwmnn+q
UDsaunKZMvqzwOKC6nvJWPRnQbbSgrylPPRnAaPnsPXXTPRXA6u7B/o6tNFf
DUSLAyV3Dl8heTX4szeXUVByheTVoSRn8Fl04RWSVwdlesv6dFP0V4cJqaCU
qFXozwbF3nGl88vRnw2BhndaNE+hPxsmAnsLXfvweuHAFdE368YPoT8HJvYL
0d98vkryHKhpfe5z5iz6c+GYeswR87nYf9d1uRDsnBx74Tb6cSHhi69Q9jnS
35cLW7aHpYifxf1x4YmCnthyGnk8mrkwvXT4wVMO+msAy35Jh4RaGPn7GlCz
SnHPmBNeDxpQNRHVevo56e+rAfNHCzp3bosif18DRrP0lmW8Jq+HZg3Izjzm
mLcP/XkQ+lj28sg79OfBdO/mmIAg9OdBqlznoqc70Z8H4ZbCHtIO6M+DJwYP
ZfvaSb6ZB7VebqGO0ujPB72ABqOHdPTnw6lHe3+r3Iz+fHhgEtFz+D7686HM
fnS3F6A/H45YWdgN1aA/H9xS544ZbUd/TQh+kdh+5yVezzTaq9zW7AF2AdVj
fU22jTcX/68kGhVFyxZoFVA9ztl4taPYCNebiblKn5igtQVUj9+VRm/ib0K+
i2j66WXPYwdc7yGqQltCWAfw+++JDwaeuyS8ke8j6iw+HLjgi/wAUeeZ+SEs
GPkhouKAVrBxDPKjRLCzKNM7FdfHiOn2rriAzdepHtf6zVb5vsqgevyk65NH
YkAG1eMfD0rbBZ7MoHoccln3+Q85yE8RBixtt4ty16keT//5e83NePz9GSJy
5vIF1ZWZVI/vjPF6L3dnUj1mHW2xFAnKonrM2rnwXfSSbKrHqUcnsp1fZVM9
vlToeeatUxLV40Kl3YLZ6USqxywdE8Ol3YlUj6s4ENC9FnkRsEoMOP9CWUD1
eFojTIqug70UBTmtDn3xvmtUj5c+EqrwLcb5QwyO/sdRNDUc5w0xqMuP+5rs
jvOFOPROv03IM8d5QgLqHqx+/0EpneqxzSc3596QGKrHQlHdn4Uc8fyjQ1/1
cKbAA/tCB6NgrsMvX5BfAGVLPyYumsTzUxKc9r8cTNsRT/XYuanaX3oS+ykF
jauKag6X4HwgDTF1Fh5PN+B+pUHz+pNHUkY4T8nAsOFT/moGzk+ykCV5T+zA
TArV48SGozqHHPD+JQuTakmjvibYezmYOfhRW3gX9lIOPgo+N60cR14OmPfo
r2f/xnlIHr598XPY7o7zgDzMW7iSPczA/chDaaJ7++L+BKrHk84X69hP8Hgq
fO+pZM0KW9yPAvjMz15kbYbHSxFq2pUl9+qgvyII/V3uutYT7weKMLh47GWG
LfZeCcTMZjunffF+rQTjTuaetmz0VwJdP7uQS4borwwLdUXrG5Lx+CiDb5A8
Q2F7HNVjQ4fi82+00F8F/ONKsnYtQH8VkP04ectqVED1uO1L9ebQ3mtUj5P6
LSenG/D4MIAtJWTgLYb+DEg8YKKvNYy9ZMJ7zpsEP3X0Z0KLxtQe/zLkmVCR
tXWG3ojHSxVuufkK716P/qrgb2/s8sdULNXjzvSsaIMXOJ+xYHhjwnjoXZw/
WcAViAx4xqM/C77cFxnSKEd/Nei8HdEUkoX+arD5S6RGVz3Oj2qgrSXpuqIE
/dVh09HySPnBSKrHdXKj3k7B6K8OX03mBOPJ6M+Gl4eXVS9WRn82XIuwadav
QX82HE7fXp6VjP4ccLwrHf7uIvpzYOCEZU6mB/pzIPivasuCTPTngg3tzhpB
ZDLV428l92Qq8tGPC0Ut5e1iiZFUj39qOTOYV4f748LVPfWcLM8oqsclRds6
q/zRXwO6GMZ6v36Npnq8z0MqsvEWXg8asKFnm1n+xXiqxyWCko4dR/D+pgFu
aSoHg+wEVI/tuN/K9iWgPw9W9Z++ciUA/Xkw5WUrufca+vPAalhSf0kQ+vNg
Qiu9wr4M/XkQv+Lqu9s433/vcZTQSCDjGPrzQXd3r/7MAPrzwdNs/aIgAfrz
YU7vbUXccfTnA+NuvdNRJ/TnQ6n1o9fvNqA/Hyx/9x+7HYn+mrBzU/tmIT+8
nmm0k/+pEG27X0z1uLx3amtwOf5fSbzgZJxNqSymeryz4eSO1npcbyZ+WWM+
JtdZTPU4LoOeNTCIfBcRMNLpnj+N6z2Elbp4JFe8hOrx4yKxD2zFEqrHcd3h
GTncEqrHXo0V6c/0kR8izNaFpF8wRX6UkO01znxtjutjxLoVfwmvsrxB9dh+
0/HXw/dz/v983F+7KeBQDtXjmejlRYfcc6ges6KunzYrRX6KcHKl3epcd4Pq
8R8J5otPjePvzxCt1mb0swU3qR7HJq85xjyXS/U443S/obXlLarHg54DX40k
8PmeBi9Ke2vW/4LvA2hwskaYKxyK91chCI/yXHDPHvshDAtSmBVpO7GXwvBh
x8gTu1zkRWDNWksfO6tUqsc+gjGQVMfn7+99pvHm75ZOp3p8p6307iIZnD/E
IGK1wHhSEecNMchcd4l9jonzhTj0dQps3JlZVI9/O9idx1DAeUICNlp7rkrf
jvfj+SAb5Zy+UR17SYcj+nL1qt/njX95OoRvTBekrBVQPR6JETI5Z4fnqyR0
uax8kUfg+wtJcDjrbOGxAfcrBb992dXp6Yj7lQZ/5zCZCm/crzT8aH1s+Zlg
3K8MiFtand4lwP3KwqGY43UPc3DekgX5jls3BPXYS1nwds1YffIW3u/kIPFc
AitvHs4DcvBYJFU0bQbfJ8hBSlt6kOtp3K881L02l5M1wPlHHl6uibpotgb3
Iw9HqsdCtjvg8VWA8tofGcEncf5RgA0W8+zUYnA/ChC5pJ1Zezud6nGO/6j9
5GOcLxWhbm8Cb64ee6kIPuJWqvpF+P5DCewklKTzlfF5Wgk4jYNexxXQXwnU
XFi2RvE4/ynDh0de9xUu4PFRBs1LDtMLmnA+UIbqXdfcno/h/UQFUgzE3mYp
or8KlKh5ebUbo78KdGRY/mRgg/4MMHsgLTF7AP0ZMNFfWmO6F/0ZYHO48Vfa
JvRngpCeX6lcLj6PMkGiIPegei4eLyZUjewYLTRFf1WYdWuaYGuivyqUVgi9
Mk1Df1U4sWjvKaXH6M+CmnkyfvQ+PL9YYKU4J2dPR38W9ATUG1Vpob8aXA0c
z89bi/5qwJB/vzpCF/3VwKPtIcFQQX91KJW9aN56Cv3VIYw9scHtDPqrg7Dz
r4nbJNCfDZET3ifaJvB6YoPj16mDqpfRnw1Hu964HLuJ/hxQXCIYGWhAfw6M
VlosLJ7A93McWPqntu0NefTnQv8Y87GabgbV47uVSY0VkujHhRTjsiLTmViq
x0Nit+d1OuH+uGBhHHTfZG881ePTawpmK4ZwPtOA9LblJ1vbkqge+2w7/87B
F68HDXjb6287cS2Z6nHh9T1HMivx/qYBXi+EthT1pVI9tv+4dsuIGPrzYLGn
h106G/2/93bMr/bbDPaSB4+bdB/93Yf+PODoPd2qvQX9eWDjWPtwxBr9eeAU
evR8cwf680FnyTetZc/Qnw93nCO9Mk+gPx+SQmMb98WiPx9WBrQYrCxHfz6I
6iUaHulGfz505F/WevY3Ps9ownDeLzczVTKI/wLbqAis
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
          None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwt08VSHAAQBNDF3d3d3d3dYXGHxUkCcfntuCePSg6vuubQp64pC90H78ID
gUAY7//nwx1BJFFEE0MsccSTQCJJJJNCKmmkk0EmWWSTQy555FNAIUUUU0Ip
ZZRTQSVVVFNDLXXU00AjTTTTQitttNNBJ11000MvffQzwCBDDDPCKGOMM8Ek
U0wzwyxzzLPAIksss8IqawRZZ4NNtthmh1322OeAQ4445oRTQpxxzgWXXHHN
Dbc84jFPuOOepzzjOS94ySte84a3vHvoGvmWG6654pILzjkjxCknHHPEIQfs
s8cuO2yzxSYbrBNkjVVWWGaJRRaYZ45ZZphmikkmGGeMUUYYZohBBuinj156
6KaLTjpop41WWmimiUYaqKeOWmqopopKKiinjFJKKKaIQgrIJ49ccsgmi0wy
SCeNVFJIJolEEognjlhiiCaKSCIIJyzs30P+Eb/5xU9+8J1vfOULn/nERz7w
FzZ6QyA=
            "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011111111111111112`], Thickness[Tiny], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121}]}, 
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011111111111111112`], Thickness[Large], 
          LineBox[{122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
            134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
           147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
           160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 
           173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
           186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
           199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
           212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
           238, 239, 240, 241, 242}]}, 
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011111111111111112`], Thickness[Tiny], LineBox[CompressedData["
1:eJwNy8NWBAAAAMDdbNu2bds2N9d7de67s5vDHKc09LB2HwwEAo888cwLr7zx
zgeffPHND7/8EZCDhBFOBJFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFP
AYUUUUwJpZRRTgWVVFFNDbXUUU8DjTTRTAuttNFOB5100U0PvfTRzwCDDDHM
CKOMMc4Ek0wxzQyzzDHPAossscwKq6yxzgabbLHNDrvssc8BhxxxzAmnhDjj
nAsuueKaG2654x8U6SXQ
           "]]}}}], {}, {}, {{}, {}}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->{True, True},
     AxesLabel->{None, None},
     AxesOrigin->{0, 0},
     BaseStyle->{12, Italic},
     DisplayFunction->Identity,
     Frame->{{True, True}, {True, True}},
     FrameLabel->{{
        FormBox["\"Prevalence\"", TraditionalForm], None}, {
        FormBox["\"Year\"", TraditionalForm], None}},
     FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
     GridLines->{None, None},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     ImagePadding->All,
     Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}},
     PlotRange->{{0, 10.}, {0, 0.5}},
     PlotRangeClipping->True,
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}},
     Ticks->{Automatic, Automatic}]}], ",", 
   RowBox[{"SH", "\[Rule]", 
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJw9mHk8lGsbx8e+7zPMWGbGjJaDlKzlOM8VWRudEqJNdU4bHVJI9KqDEEoL
HUvLScmWbVCRREyLYyplIgmRk/aUrY709r7nuZ75x2c+9++ez/d2P/f1ve7H
eGOo9yZpGo0WLEWj/e8vfk7dO3lkJLaT8P3/p4YIczGbbbsfv4uIhMI2tYYD
ncS/6fvE0PFkp57DOC4hfpcI6iazO4ni/3+6CYcjx0OH8zHfT5xwXz4gI8Tx
AeJ69AbJP9dw/hDR+z5mrOIO5ocJgcnfAn0J5l8R/daRd+z6Mf+WmEizYaq+
xvwHot3osEXOGI6PEM3Fb36zZF8n538kOHL/6MtONZD5UeKLadLFytEGMj9G
XGpoSVWdi/lxIjrcOTpMdJ3MTxJJ79iJa9Y0kvnPhFlU1cX8L41k/gsx8xQ/
8mhFE5mfIhynfnzxYecNMv+V6AioEagtbCbz04S9ZfPqJVItZJ4GPu7ccJub
LeQ4DeS+Om5dsqySnC8F22Sf97ptryTz0mDR/vtYU04lmZcGsIyvPCEnJPMy
sJJZtzNBLCTzsmBCP1QVMV5F5mVBbJV+KGV7DZmXg4d6mxu30S+TeXkI8d1t
mfDoCpmXB/vdTJmTeXVkXgGsqhRUPofUk3lF0K5YYrfBtoHMK8K0m1moheAi
mVeCk99k7r3IukjmlSHVXCQUy5WSeWVYaJd3/dFwKZlXgY4VbhO6ieVkXhU+
/lBzSeFTBZlXBbHRtCRhB65XDZZe0aA7cqvJvDqce2oTVveqhsyrw7h/Zdhf
1y+TeQ3Yuu+lV3VmLZnXhA1850jzLVfJcU3wjre2HxMUk/M1wSC3c83F08Vk
XguqHnoXeGmUkHkt+EVD8tBhrITMa0GDj3tKfkYpmdeGqI+fWlXHy8m8NtQF
eFko7cH90wYZc0m57w9VZF4HFP0PJhaNVpN5HdD2Xln0rvUSmdeBmcdz9u/I
u0Lm6TC7rzXwWQTuDx3E4fsiN64qIvN0iHU5eiirrIjMM+B+QOcEx7iYzDMg
bcxSkqKI/AzIdyj9+VMh7pcumBc0zZQoI78uWCi1nE+UQX5dyNp3JnGkCp83
Pdi87qBa8j7k14Pkbfnyi/2QXw+kNRKPh1sgPxNWN2pdvS2N/ExwetLkuq6p
kMwzYSrdTzVWD/lZkBYh552YWkTmWfD+a8WYVTjuFwveBDr0ZDOQXx++BEUH
zYsqI/P60Cs1TxhTh8+TPhQO1a+fH4z8BiDYYr7I1A75DUCnNFewSR35DaDu
XJq89Qs8L4Ywi+hVcq6vJfOG0L96ymy+D/IbwsjgD6mDJYVk3ghuN21eNM8Y
+Y3gmM7zi5+Vkd8IZoqNd3uXlpB5NiwueR1dqYn8bDB5HTLFSEJ+NrACzfVM
7ZGfA7brvloekkV+DsQ6tElcevA8cMAsJezN+Rrk5wLr8GI739Taf8dNuXB+
rC9xQLqQnM8Fz0WTLl2rSf79XBg9bfN03gNcHxcS5JcdeFlPrkfCBbXpimLG
euQ3BiM5h1CzFvK8mxrDY4+O3bM2VJC/bwwfFUvajmmT/PuNgZtolunXh/XK
GFL1HYm9l8l6JTGG7I7oFp+jyM+DK2uC4g9uQX4eXK1/+jZcVED+Pg8Ky2bW
BHOQnwfsibA9J08gPw8Sf70/hxmH/Dw4bGH8bmQG8vPhwj/3os6kID8fblzP
MyhcjPx80FeLf7l6nKzP+/mwPerp+5Bm5OfDdEZCyZtc5OdDu8CdOTMS+U3g
RG1OUrMA6xGN9mmT7Na8iCeUjw0y2leKI/G7iDDaM2D6OOYJ5eOvcOkwKwHH
JYRrQ74C6/ATysczZM3VxVmY7yfk3Q5EnTuH4wPEZuWEtf5lOH+IuB2s/GP7
FcwPEy6Dolj5Zsy/IoJVAycn2jD/lsgR+FwveIT5D0TImPt8Zj+OjxDRv548
6XjwBuVjuVti0117blA+Zoab/s1MQ1+OEULtvQ/sH2F+nEhdIN+3a1Uz5WOt
pfPHQ9VbKB9PFbpOfR5Af34h5h1p8tdpFVE+DjILj91Ve5PyscVtyeojxbco
H08X9dRdzL5N+bjYoufYw4Q7lI8N44TOjeroSykweXNhQcBPNZSPDWRHDT4J
8XxJg93C86njJy5RPp5SteQmv8f9loVDIsmvkoJaysdxJi/e7TmL/pEDUWCE
SmTjNcrH0/3p8qwP2J/Ig98qb1aqVhPlY2/JXsuu2fj/VAQzwxlreh2w31AE
b39l764I7CeUIFklVy22GvsJZdAX9Btm2wkpHztZD++Y8d1H/+ZVYFxnJtfl
MPpVFVI03XkHvbEeqsIvrvN09f2vUD6uKt6ZHhRfR/m4qr26Qq6xnvKxfwZf
qoR2nfLxmZA805unGykfK6VIB82rxfVpAqctMH3VFqx3mlB9wf5odlEF5WPl
S8u1J+fi+rSA5k78PNsE16MFbTY6iwWp6FdtyG1IkLVejvupDZ3yrDXr/C9T
Praw8qmNP4DnUQfetqq2+7bg/ujAn57nws4oYL+jA69EMb43+chPhzdnz2wZ
JJCfDrlHaYHPBsspH0caxQ0W2SA/A/4q4ij6XMN6wgA18zmlMUL0KwM27qpf
4qyP/Lpgai2ZzO3H+q4LVSPqipbDuB+64JdycqKXgfx6YCp+fizYF/n1YPBs
8b2C7GuUj616rOdc68Z+lwmFPTrGs5SRnwm+qlZ6Fv7IzwTXdIn44DPsz1jQ
/Oiymsce5GfB8C2nHMNQ5GeB0HhBzsZO9JM+tNuWabNPI78+HJK8DdG+gPz6
cPc/XhlzO7A/MADT9Q56rnTkN4DXf/ibmQYgvwH4zTLrlslFfkPwdOqTqn2F
/brh937om4/fRBnlYx6nw5cfh/xGoJ4quOboifxG8NbmS9gpQH4jiGSu9vcp
Qn426Pk/s9mxA/nZkGewrutGFPKzId1/5WW3AuTnQOZPK5okL7C/4QD3Jy9Z
5znIzwGd+u3pl0KRnwvh3cORmyWNlI8f7N2X4VmB/ufCgZqO+TY/llM+7l5/
VLl1Fp4PLkQot1TmsCspH49ErUqsSEJ+YxDSOZu5P1dTPl60TT1XtBLrlTHM
L/7F4VziFcrH+WVeqzJu1VE+1s4Lmr9D7RrlY0nvM4O1y5CfB97OzvL/iJCf
B8eG5pyaEYP8PNi6g+3/RgH5eXDo/cvVKurIzwOPpKlT1nLIz4PkJdcWnAhB
fj6ElEwzPG2Rnw9jd8ut5xPIzwc13SbNlSHIz4c4W8vSE+XIz4d4KV+tO2P1
lI9v/GGlRV+A/CZwv73uenIdnmcazWMqmFixvY/ysWhgd9Kvv+F3EXHJY9Jt
NKyP8jHj3WC33x4clxAqBdM+C+L6KB9rRLVcrEzFfD8R6VKr7pyJ4wOEWs6F
oerTOH+IEL7IihspwPww8VNefsXHCsy/IsYH3WZdqcX8W8JRdddm5xuY/0Co
iGVsT7Ti+AhxfJdT3MZ4EeXjaBW2+/Nw9OUoUeWtNd51SkT5WOkmI/A1/Sbl
48dXXtHmPrhJ+Ti31GVzfOMtysfix4+XLP3rNuXjhfGBDpmDdygf/7GqhDH+
rZXycbLteJCOQRvl4xbeOEt9vpjyMY2RVRnmfJfysZXCLI6NGH0jBX0Pt2UE
aWK9kwZFu81OJn+hX7/fl51Fm/xmY/2QgbNSheJULfSrLIxHsnVtAtCvspCb
wim0fo31Qw6erHAyW2SLfpUHN9uOt48S0K/yoLmHaXm7HfsRBVBpj3hqpY//
H0XwWn/eMG0N9huKkK+6b3u2COuHEjjpVVslG2I/oQzvpNatX/IG+wlleCH4
9nvfWry/qoB0bGFLbACuVxV4E92HlIVXKR9/DtnoV07g+w01SLsbJCfYhc+z
OgwMsKIKW5soHz994eku4jZTPk4xWmYh3InvJzRhY9xgVmsDPg+akOmXH7ew
EPtbTejeJzfaI4P9gRYslP6yzKML16cFSxUzqoVeWB+1YMEi6WYXAdZHbfgS
n35uQwHWR20YrXp+sMoO66M2BCx8eKPyGZ5PHXjJvq0m5Yl+0oE/zk4Yzs7D
flEHFjkVB/mMY79Ih8UdAZxHi5GfDjadjfwKW+Snw5wsh/0KGehXBpRdWEFn
BiE/A3zWNr2v7Mf9YMBH97z3qv3Yz+lCQ4bHOrED8uuCfXdA8JM27Hd0gZ6Z
vbVtN/LrwYQRN62Agfx6wHm7su1ACPLrgbAjbDCuGfmZwHt8+vlLbeRnQjX7
wafYCexvmODuVnyr1Rf5WdD4cfvHu+bIz4IuzdIFnPPIz4KQ4z6uk+eQXx9m
2HM+8GnIrw8/FpWYFR1Ffn0YZfTeMndEfgNIMM8fr5jE82EAG5uUD0wsR34D
2CN5/mhbAfIbAm3TvdhlE3g+DOGpqxThKEZ+QzCdQxyxNEd+I7CvGQoYlEF+
I9DaGKfWEIP8RhDgOSPiWwzysyGtW1CW1IX3bzZwBV7VoUHIzwY577iVm3SR
nwPR6T6z04eQnwMbuFtYXAL5OTA9bsV6noH8XOj5ba43b6iF8jEtTmP54zJ8
/8SF/owuDQ/1KsrHCz8mXYj5G58vLhRq9f/ZuA7vf99/b+caO79A5DeGRxf+
pJvV4/3VGIqS3Rt+WVpP+XjnEsPiqi8NlI8zX1/WeNmJ7x+NQUxv0xZa3qB8
nBx+vlaYhPw8cPdv97TsQn4e2CgQM4OzkJ8HdFbqf2wn8f7Ng9RB/Zjb95Gf
Bz/3aM5Y64H8PLjzbdteK0/k54NSQGboYrzPfPfx7N56r/oFyM8HGuebnfff
yM8HQbSTTZ8Y+fkge/nY1QezkJ8Pq8I05KRikd8EJK6FV8vvthD/BXCc/KU=

       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
          None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwt08VSHAAQBNDF3d3d3d3dYXGHxUkCcfntuCePSg6vuubQp64pC90H78ID
gUAY7//nwx1BJFFEE0MsccSTQCJJJJNCKmmkk0EmWWSTQy555FNAIUUUU0Ip
ZZRTQSVVVFNDLXXU00AjTTTTQitttNNBJ11000MvffQzwCBDDDPCKGOMM8Ek
U0wzwyxzzLPAIksss8IqawRZZ4NNtthmh1322OeAQ4445oRTQpxxzgWXXHHN
Dbc84jFPuOOepzzjOS94ySte84a3vHvoGvmWG6654pILzjkjxCknHHPEIQfs
s8cuO2yzxSYbrBNkjVVWWGaJRRaYZ45ZZphmikkmGGeMUUYYZohBBuinj156
6KaLTjpop41WWmimiUYaqKeOWmqopopKKiinjFJKKKaIQgrIJ49ccsgmi0wy
SCeNVFJIJolEEognjlhiiCaKSCIIJyzs30P+Eb/5xU9+8J1vfOULn/nERz7w
FzZ6QyA=
            "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011111111111111112`], Thickness[Tiny], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121}]}, 
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011111111111111112`], Thickness[Large], 
          LineBox[{122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
            134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
           147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
           160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 
           173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
           186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
           199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
           212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
           238, 239, 240, 241, 242}]}, 
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011111111111111112`], Thickness[Tiny], LineBox[CompressedData["
1:eJwNy8NWBAAAAMDdbNu2bds2N9d7de67s5vDHKc09LB2HwwEAo888cwLr7zx
zgeffPHND7/8EZCDhBFOBJFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFP
AYUUUUwJpZRRTgWVVFFNDbXUUU8DjTTRTAuttNFOB5100U0PvfTRzwCDDDHM
CKOMMc4Ek0wxzQyzzDHPAossscwKq6yxzgabbLHNDrvssc8BhxxxzAmnhDjj
nAsuueKaG2654x8U6SXQ
           "]]}}}], {}, {}, {{}, {}}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->{True, True},
     AxesLabel->{None, None},
     AxesOrigin->{0, 0},
     BaseStyle->{12, Italic},
     DisplayFunction->Identity,
     Frame->{{True, True}, {True, True}},
     FrameLabel->{{
        FormBox["\"Prevalence\"", TraditionalForm], None}, {
        FormBox["\"Year\"", TraditionalForm], None}},
     FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
     GridLines->{None, None},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     ImagePadding->All,
     Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}},
     PlotRange->{{0, 10.}, {0, 0.5}},
     PlotRangeClipping->True,
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}},
     Ticks->{Automatic, Automatic}]}], ",", 
   RowBox[{"AH", "\[Rule]", 
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJxFmHk8VHsfxy1hopgZw2DGMjPaiKu6ETfOV6pLKpElZbn1WCp1bVGpJCWK
ZA9Zy5Y1olvjWrJESnWVSulGpVyh1b709DzP+Z5n/vGa1+99zuvzne/v/N7f
g7fL28ZdTERExEtUROQ/f/Gze7Fo/d1FQsLuv58qYnL1PU/RJfi9mRArObXR
XldI/I9+SBi93kxbZYDrnYRet3yt5hohUfjfz3Mi0dg0Z3IT8j3EbZcqW9Z2
XH9NFLnemuF54PV9xMt1AXRxP+T7iYmnQo+SY8gPEAlb3/Srn0F+iNATrnVy
SkD+ExEPxa/dMnH9M6EbDcdf9RWT138hChxqLW6fLCb5b0Rqk2rTrZ+LSX6E
4MYyZ82kkR8lnIr2rs6XRn6cqPJ/YXljGfITBH/nt7LGAOQniTNN51Mj7yE/
TQx/50990ykh+RnCdol9QkpCCcnPEulrdVs2zJSQvAhYCb/n2nmUkusiIGo1
q9sQnU1eLwqK1dWSt3Zlk7wY0B8sb69el03yYpCr/Fqp3xx5ccjbku303h/5
OcBgL3hFa0J+DpjoOicl6V0ieQnYnvnR8FbZJZKXBPFtPsMRhpdJXhJSzeZ9
Od56meSlQPDRqs/dMYfkaTDNNskKGMgheRocfakdrp+SQvJzYaAywrPVJ4Xk
peHh5d8X9P2WQvLSMMdMojIsCnkZ0P3gI24jkUry88D62+yljy2pJD8PAq74
v33eeJHk58PgZh1acl8aycvC4psNJbPcDJKXhf6grKZZl0ySl4OaUrnkAJss
kqfD9L6Ij5EjWeQ6HXRWXK07FpFIXk+H4sNWX5MOJJI8A4QJdTZbAxNJngG7
dbqdN5cjzwAXvUOfClclkTwTzobM9WZIXyB5Joh17DqyUSGZ5JmQtnBNZvt6
/H3kgdHVyzKNTiV5eRgWszX26blI8vLAHLwuE6efTvIsUPAK/Ol9VAbJs2B3
hPG6t3/EkzwLvsQMWzJK4kleAXKM86/vux5P8gqg75FfNDOGvAIIaf6/loYl
kLwiNFyZksh0xnoVoafXlXbdO4nkFSHOkxdhW3CB5NnQk1xcMH8smeTZ8HR/
mTBxC/aPDbKOPaWs0oskrwRi8zwn62XSSV4J7O/PmX7wJI7klSDDNeTVmodx
JK8MeZ4OPeov40heGXKc5VPKeJhfGRTjSlrWV2C9KqC6v9/d9FwCyavAG2OD
yNhL2C8VMDn/wPr839gvDjw24KTX62F+DjSpFrneP4f7lQMm3pOqz4Zxf3JB
9/UvTrJb0kieCwZ2YeabnDA/F3K2+BDTDphfFU78IduQ5YH5VeHxinfmpcXI
q0KMpVv5TRPMrwb97W2lwMH8aqA9I5r7y3LMrwbcsDnOM96YXx2UtcxnxZtw
v6nDcrmujM98zK8OIQIXn54wzK8B7c8dmTP95P7S0oA+f++FOXTMpwH7pC3u
5s8n84dowHeW8T/WqphXA2y7DNevdCP5Tg2wX3/wO3MM6+UBw3lDf/Bjsj9a
PBDWvWcEDGI9PHhRZxK0VpvMH8KDM97pX91DLpD350GsYvrtwB6yH508SD/r
4XJuLebng172tXOPCjA/H8QVCjJvdMeS9+cDq3Txh6znseT9+XBQYd7RbwOx
5P35cNZ06KnLcszPB6+O3rcNzZhfAPp03+Kmy5hfAPHplw/u+hPzC0Do/rNs
/xR5PoQIIC52qUybNeYXAG3ZmensCswvgPDcDPeTbMyvCTGOyyYSj+Lz8GPH
Sh5xSG6po3z8wnSosK4VvzcTEoWmKxvb6ygf87tZ4hJPcL2TCC6LilDpqaN8
3KhztHNmAPkeIiamL1J1FNdfEwGtwkOpIvWUj/8KH+KyJOspHzsvOWlyUKae
8vEpSUvtRjryQ8TF5992jisg/4moToMYNgfXPxP6Ex3LM0LLKR9Lym4Ma7As
p3w88Cp3iYxmOeXjNp1ZzXvyyI8SBn0Tjppc5McJay+9ezRD5CeIgdMdEwfd
kJ8knET7dPqTkZ8mtNSFDy06kJ8hHLdy2NKyFZSPk3ePJpZvqKB8fMvX7NWR
cFwXAXXTLkXtPbmUj/9207nqbZRL+bho8+nixkW5lI8t9mtt+tUUeXHgH/fm
bDmD/Bz44zmn1XIc+TnASm+u6AnNo3wc9XN+VKRaPuXjezuWzZxpzKd8/Jtb
btDbfQWUj5vzlw8K2VcoH2+4IrAKbbhC+fi0ce3iB4Hov7nA3NY/1mmdSfl4
vI3nXbsrk/Ixs6QoWP0O8jLQlsde17UWfTkPArc70UfasigfP/qerDPkhfPH
fJDuaFoZp4rzhCyMaPoF2j+7RPm49P4r0R0XcJ6QA+Km1YdmB5wn6FA3YltB
U8Lfjw4iiadXpl1Bf9Bh+5uuiUXp+Pww4He3oGcxzehLBuiGD1Wz16AvGdAT
LG8YxMb5gAntm645HTBA3zDhdaXHmyNROC8woWy1fY+pKNYrD50GFoXWzTgf
yMNj7baJlHM4T8lD5aaQw2YOWC8LBJLzo2s0sD4WbBXKdX6IRN+zYNwvecz8
bDLlY9/DIRekatA3CjC5dVuDsRme1wrwokl3QREP61WEJN3CRr0NOP8oQqvM
UZOA/DTKxyVwaEPCggzKx1nvpfxqq7CfbIhp0Fm2NB/7x4bsY/rvnx/AeVEJ
Skulkx3X4HyoBObVP/08eAbPMyXQ1kvZ6nAOff/Dt2/Wf3xD+UYZLi2x6Iyx
wnqV4dbFGDn15TjfqED6gdYlp1ywXyog02Z3+0Qd9ksFaB9bpi1Mcb7hwHyt
bi6nE+cbDlz1vDpRtgrzc+CQlViFPg3zc2Gt5uk155/ifuRCx0b9hy4imJ8L
48kjizwkMb8qjAz5z90LmF8VknJ69Ha0I68Kt22k06bKsV9qwCnQPbupB+dV
NZCZsjcWmGF+NbD861jUn7dxv6mD/u8qOr85Yf4f32umso9O4vOmDsN68tXX
2nG/aUBMmYvnTHo25eNar/crOCVJlI91urVDCivRlxpwWKw7Xe0TzmMaoH9d
bsgl+ALlY/MdzRxdN8zPgxY6azopPoXy8bW95mIHx7AfPFAo8F7LPppG+djG
oEuxiYnPBw8GPj31Hy7PpHyc4GizYPQK5ufD3+LcyLtBmP+HT+PNYx8dwPx8
iJeix3ocw/x8SP3FsLP9Jubng+mjEvaAOebnA3taEBH8E+YXgK1Bu2qaK+YX
gHn4lNXiJswvgMJa8b/8LDC/AIJNdSfv9qRTPt5ke+RkXgjmF8AbD0Xr4ljM
rwnPbcULX1LvWyIi73yDDlZca6B87CKQGjOpxO/NxKmt32WTrzdQPpbwGprd
LcT1TsLjVugSWl0D5ePx6B0nRZqQ7yF0es/ulL+D668JVm/CF8F9vL6PuLYv
q3zhI+T7idp3BXfYz5AfIEz+pblrtBv5IUJtW0tiQy/yn4ilytplR9/h+mfC
rkgib2NcJeXjVZ9u9GXbVVI+Dn+52rdKp5LysaT81w2BfORHifoDtQojy5Ef
J1q4/n4rHZGfIMxeFnJko5GfJA5ohEafvYv8NOFc+1qQMr+K8jEtTsatxbqK
8nFvqV1rTVIV5ePtkuEf7r3AdREwXlE5G292hfJxnmymoxoT/ScG6+93Rd6d
i/4Tg6F6vxN5hsiLQ0aJ8fMbGcjPAecMZnn00kLKxwMyug+0OgspH9fecXll
d66I8nGi6xeZyE34/i8JC8NMxC0Y+L4vBZ6/KXyVe4Lv9zRINpo7G52K7/c0
aN28uG9FIZ6vcyF9RtDkm4L+kAb64b3dlhXoS2mIkbmS0y2GPpGBmaeBEXPD
L1M+bjIytPqyDN+/58Gg1nj/4EgO5eOMaT/Pba04f8iC/ZBYks6lvP+/H7t6
Z+sfz6d8fKvxvImicwHl49BgXkCYEf5+dHg06lQkbMPziw60TW4iN5txnmAA
I1XlJ09p9CUDgny+R/nswfOaAeUeT+s1p/B5Y0LEOd1crwo8r5nQa1mV23kC
62cC3UPmM9cV65UH/kleW6gZ1icPy+wHHk9p4TwlD64LFgwZy+dRPv7zicsp
qSmcr1hgMtjr9tUVzwMWzNquuRziib5RAJMqx0OXGnE+UIBa07ldx6Lx/FOA
6ZABsYIarFcRqhyLYedFrFcRnqlsNEr1xvlAEd5GeUrutcb+skHvYnm6gRH2
kw0r74uHzV+I/WND9f3pwCIm9ksJdjztreiYxXlICYwKtu+jGaPvleCGSEWL
1wb0jTKcdtGfzS/G91FlyBoJZvgdw3qVYV+uv8NYOc4HKiBn8jjwDRvzq4CK
tlDEcBj7pQJ7FvVsFevA85ADgujN94V/4v7lQDBENh4qxP8XccDaU8pONAXn
OS74Ogzbs8MxPxf2r33v4JODvuTCxt4g+sNKfP9RhT2aXVtWqGB+Vdim8EKJ
Noz1qsK049XTxtR8owabQ+Pct+fifKMGgdOdeyUKMb8a1ERPvayJxvzqoOU4
quMShPnVIX3l+Q7xPZhfHbhbxowPbsP8GiD0jVl39NdcyscX/uVqGmeB85cG
DJfIrizZcZHy8dePQTYfGrA+DVCK74uPSE6jfGzkI7/K4i/cbzw41vRSrswm
k/Lxk7O2h1efwH7wYJH5FqkAj2zKx9HHpVVjbfD54MEl9zP0a6aXKR937fe9
mLsM8/NB08DFSoeH+fnwiPFP6PA8zM8H5s4x/aUamJ8PNTs9dPMjMD8fxt1+
dwhwxfx8aFzgoW2UgvkF4Oey5Lw/B/P/8O2NJawxd8wvgPbIf+4EW2J+AVSN
X/j2zgDzC+BOtX6Y3SLMLwCxI84fk9iYXxMGp/c7+EjlEv8GTt3uHw==
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
          None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwt08VSHAAQBNDF3d3d3d3dYXGHxUkCcfntuCePSg6vuubQp64pC90H78ID
gUAY7//nwx1BJFFEE0MsccSTQCJJJJNCKmmkk0EmWWSTQy555FNAIUUUU0Ip
ZZRTQSVVVFNDLXXU00AjTTTTQitttNNBJ11000MvffQzwCBDDDPCKGOMM8Ek
U0wzwyxzzLPAIksss8IqawRZZ4NNtthmh1322OeAQ4445oRTQpxxzgWXXHHN
Dbc84jFPuOOepzzjOS94ySte84a3vHvoGvmWG6654pILzjkjxCknHHPEIQfs
s8cuO2yzxSYbrBNkjVVWWGaJRRaYZ45ZZphmikkmGGeMUUYYZohBBuinj156
6KaLTjpop41WWmimiUYaqKeOWmqopopKKiinjFJKKKaIQgrIJ49ccsgmi0wy
SCeNVFJIJolEEognjlhiiCaKSCIIJyzs30P+Eb/5xU9+8J1vfOULn/nERz7w
FzZ6QyA=
            "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011111111111111112`], Thickness[Tiny], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121}]}, 
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011111111111111112`], Thickness[Large], 
          LineBox[{122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
            134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
           147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
           160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 
           173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
           186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
           199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
           212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
           238, 239, 240, 241, 242}]}, 
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011111111111111112`], Thickness[Tiny], LineBox[CompressedData["
1:eJwNy8NWBAAAAMDdbNu2bds2N9d7de67s5vDHKc09LB2HwwEAo888cwLr7zx
zgeffPHND7/8EZCDhBFOBJFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFP
AYUUUUwJpZRRTgWVVFFNDbXUUU8DjTTRTAuttNFOB5100U0PvfTRzwCDDDHM
CKOMMc4Ek0wxzQyzzDHPAossscwKq6yxzgabbLHNDrvssc8BhxxxzAmnhDjj
nAsuueKaG2654x8U6SXQ
           "]]}}}], {}, {}, {{}, {}}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->{True, True},
     AxesLabel->{None, None},
     AxesOrigin->{0, 0},
     BaseStyle->{12, Italic},
     DisplayFunction->Identity,
     Frame->{{True, True}, {True, True}},
     FrameLabel->{{
        FormBox["\"Prevalence\"", TraditionalForm], None}, {
        FormBox["\"Year\"", TraditionalForm], None}},
     FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
     GridLines->{None, None},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     ImagePadding->All,
     Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}},
     PlotRange->{{0, 10.}, {0, 0.5}},
     PlotRangeClipping->True,
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}},
     Ticks->{Automatic, Automatic}]}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{3.7136529594394636`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["14 control strategies: base case", "Section",
 CellChangeTimes->{{3.711630144607831*^9, 3.711630148171194*^9}, {
  3.7136532861758432`*^9, 3.7136532912822466`*^9}, {3.713653675669998*^9, 
  3.7136536782367105`*^9}},
 ExpressionUUID -> "38251a57-d7a8-4531-8356-dacbd58cd492"],

Cell[CellGroupData[{

Cell["Control strategies", "Subsection",
 CellChangeTimes->{{3.711660230075028*^9, 3.7116602324815807`*^9}, {
   3.7119350078105183`*^9, 3.711935012684802*^9}, 
   3.711935085921852*^9},ExpressionUUID->"e0ec2e29-bf74-47b8-b989-\
ef576bab07f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "CWT", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CWT", "[", 
      RowBox[{"(*", "coverage", "*)"}], 
      RowBox[{"f_", ",", 
       RowBox[{"(*", "efficacy", "*)"}], "ef_", ",", 
       RowBox[{"(*", 
        RowBox[{"Timing", " ", "period"}], "*)"}], "tc_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"WEr", "[", 
        RowBox[{"#", ",", "f", ",", "ef", ",", "tc"}], "]"}], "&"}], "/@", 
      RowBox[{"{", 
       RowBox[{"htC", ",", "htS", ",", "htA"}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "SWT", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"SBT", "[", 
      RowBox[{"(*", "coverage", "*)"}], 
      RowBox[{"f_", ",", 
       RowBox[{"(*", "efficacy", "*)"}], "ef_", ",", 
       RowBox[{"(*", 
        RowBox[{"Timing", " ", "period"}], "*)"}], "tc_"}], "]"}], ":=", 
     RowBox[{"WEr", "[", 
      RowBox[{"htS", ",", "f", ",", "ef", ",", "tc"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"14", " ", "control", " ", "strategies"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"CT14", "=", "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"CWA", "=", 
          RowBox[{"CWT", "[", 
           RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"CWB", "=", 
          RowBox[{"CWT", "[", 
           RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"SBA", "=", 
          RowBox[{"SBT", "[", 
           RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"SBB", "=", 
          RowBox[{"SBT", "[", 
           RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"SCA", "=", 
          RowBox[{"SCE", "[", 
           RowBox[{"stv", ",", ".1", ",", "1"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"SCB", "=", 
          RowBox[{"SCE", "[", 
           RowBox[{"stv", ",", ".1", ",", ".5"}], "]"}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"(*", "MDA", "*)"}], 
        RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
         RowBox[{"(*", 
          RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
         RowBox[{"(*", 
          RowBox[{"integrated", " ", "control"}], "*)"}], 
         RowBox[{"{", 
          RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.711678165865919*^9, 3.7116782125921865`*^9}, {
   3.711678320587188*^9, 3.711678329260648*^9}, {3.711678378119829*^9, 
   3.711678441839052*^9}, 3.7116786802734737`*^9, 3.711935096746828*^9, {
   3.712099882672755*^9, 3.7120998836102467`*^9}, 3.713653391311264*^9},
 CellTags->"Controls",
 ExpressionUUID -> "3dc8204d-7017-4223-872c-724406a12dbe"]
}, Closed]],

Cell[CellGroupData[{

Cell["Ensemble run", "Subsection",
 CellChangeTimes->{{3.711675183275833*^9, 3.7116751898708534`*^9}, {
   3.7132941782755694`*^9, 3.7132941973828807`*^9}, {3.713294265735824*^9, 
   3.7132942832314053`*^9}, {3.7132943359917326`*^9, 3.7132943489628267`*^9}, 
   3.7136533084558477`*^9},
 ExpressionUUID -> "4126b71f-015f-4dae-bcc5-3ca71806bdc0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Generate", " ", "random", " ", "environment"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sebZ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"sebR", ",", "20"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487104854937`*^9, 3.712248746743271*^9}, 
   3.712248851135318*^9, 3.71225522411539*^9, 3.712256038366276*^9, {
   3.713653416546101*^9, 3.7136534231034803`*^9}},
 ExpressionUUID -> "93676575-ec7b-4763-b10c-6a0bc60952bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"CWT", " ", "with", " ", "75", "%", " ", "civerage"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CWA", "=", 
    RowBox[{"CWT", "[", 
     RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7136534552489386`*^9, 3.713653467933405*^9}, 
   3.71365350070667*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "history", " ", "ensemble"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MST", "=", 
     RowBox[{"EnsRun", "[", 
      RowBox[{"CWA", ",", ".1", ",", "0", ",", "0"}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.711722824669818*^9, 3.711722829192335*^9}, {3.71206420446677*^9, 
   3.712064204951149*^9}, {3.712098765886684*^9, 3.7120987663712797`*^9}, 
   3.712255087462902*^9, 3.7136533683846693`*^9, {3.7136535084468403`*^9, 
   3.713653514007554*^9}},
 ExpressionUUID -> "211e4675-cb7e-489a-9ffc-fed5c1fc1cbc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"15.705758469345486`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7117228478280525`*^9, 3.7122552029676375`*^9, 
  3.713653540637322*^9},
 ExpressionUUID -> "9cb1fadd-3c72-4b1a-90ea-dc4364932136"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Run Milalani", "Subsection",
 CellChangeTimes->{{3.711720530988922*^9, 
  3.71172053458328*^9}},ExpressionUUID->"ed4530ea-7a82-4274-8305-\
163d2743a248"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"1000", " ", "calibrated", " ", "posterior"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"e1", "=", 
        RowBox[{"ESWpar", "@", "\"\<Milalani\>\""}]}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"HPost", "=", 
        RowBox[{"Thread", "@", 
         RowBox[{"Values", "@", "e1"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"par", " ", "names"}], "*)"}], "\n", 
       RowBox[{"paN", "=", 
        RowBox[{"Symbol", "/@", 
         RowBox[{"Keys", "@", "e1"}]}]}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parameter", " ", "dataset"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"Random", " ", "posterior", " ", "draw"}], "*)"}], 
       RowBox[{"EHP", "=", 
        RowBox[{"RandomSample", "[", 
         RowBox[{"HPost", ",", "50"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"dkL", "=", 
       RowBox[{"Dataset", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"<|", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"ToString", "/@", "paN"}], "\[Rule]", "#"}], "]"}], 
           "|>"}], "&"}], "/@", "EHP"}], "]"}]}]}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7112016333917913`*^9, 3.7112016711763415`*^9}, {
   3.711201947450555*^9, 3.711201988443102*^9}, {3.7112932380933247`*^9, 
   3.7112932500441074`*^9}, 3.7114831399277897`*^9, {3.711483224005225*^9, 
   3.711483237116771*^9}, 
   3.7117160312633133`*^9},ExpressionUUID->"f1f52c65-38b4-4383-9ae3-\
771256703587"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Random", " ", "environment"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sebZ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"sebR", ",", "20"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487104854937`*^9, 3.712248746743271*^9}, 
   3.712248851135318*^9, 3.71225522411539*^9, 
   3.7122561495072093`*^9},ExpressionUUID->"79f0f3b0-01c2-49d0-a8b8-\
99e7dffd4229"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", ".1", ",", "0", ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CT14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120987776429253`*^9, 
   3.7120987787054896`*^9}, 3.7122550884628487`*^9},
 ExpressionUUID -> "0274a501-a778-43f1-b7aa-4f34242b4430"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"161.9094901774586`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.711723547129781*^9, 3.711723996053789*^9, 
  3.712255473449635*^9, 
  3.712256318178784*^9},ExpressionUUID->"7ace7849-75e5-4b50-9402-\
9e48e366cedb"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "/@", "RS14"}]], "Input",
 CellChangeTimes->{{3.711723362313148*^9, 
  3.711723381728838*^9}},ExpressionUUID->"08cd3e30-707f-428c-9161-\
f93555eb609e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7117233721020555`*^9, 3.711723382245202*^9}, 
   3.7117235594500227`*^9, 
   3.711724029462407*^9},ExpressionUUID->"28e356af-f1b2-47d6-a24b-\
219295e40a07"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\New data\\\\Milalani 14n.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 3.7117241293499365`*^9}, 
   3.712255790087711*^9},
 ExpressionUUID -> "8bae18d9-7115-471b-9a34-bc1c9e489219"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\New data\\\\Milalani \
14n.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.7117236470978436`*^9, {3.7117237741745033`*^9, 3.711723782716881*^9}, {
   3.7117241113322163`*^9, 3.711724135342165*^9}, 3.7122558056189003`*^9, 
   3.712256802666614*^9},ExpressionUUID->"c4eccba7-0d9e-450b-87c2-\
f642ec6d0b5a"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PDS", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", ".5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thin", ",", "Thick", ",", "Thin"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Year\>\"", ",", "\"\<Prevalence\>\""}], "}"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", 
        RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
     RowBox[{"DataRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "tf"}], "}"}]}]}], "]"}], "&"}], "/@", 
  "MST"}]], "Input",
 CellChangeTimes->{{3.711676002464961*^9, 3.7116760041684494`*^9}, 
   3.711722871706207*^9},ExpressionUUID->"8b36ca71-a360-4781-be0b-\
4489ccd8f1cc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Run Mwaembe", "Subsection",
 CellChangeTimes->{{3.711720530988922*^9, 3.71172053458328*^9}, 
   3.7117322271912622`*^9},ExpressionUUID->"75b90a67-7379-454a-9c73-\
b8da42cdfd3e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"1000", " ", "calibrated", " ", "posterior"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"e1", "=", 
        RowBox[{"ESWpar", "@", "\"\<Mwaembe\>\""}]}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"HPost", "=", 
        RowBox[{"Thread", "@", 
         RowBox[{"Values", "@", "e1"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"par", " ", "names"}], "*)"}], "\n", 
       RowBox[{"paN", "=", 
        RowBox[{"Symbol", "/@", 
         RowBox[{"Keys", "@", "e1"}]}]}]}]}], "]"}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"parameter", " ", "dataset"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"Random", " ", "posterior", " ", "draw"}], "*)"}], 
       RowBox[{"EHP", "=", 
        RowBox[{"RandomSample", "[", 
         RowBox[{"HPost", ",", "50"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"dkL", "=", 
       RowBox[{"Dataset", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"<|", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"ToString", "/@", "paN"}], "\[Rule]", "#"}], "]"}], 
           "|>"}], "&"}], "/@", "EHP"}], "]"}]}]}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7112016333917913`*^9, 3.7112016711763415`*^9}, {
   3.711201947450555*^9, 3.711201988443102*^9}, {3.7112932380933247`*^9, 
   3.7112932500441074`*^9}, 3.7114831399277897`*^9, {3.711483224005225*^9, 
   3.711483237116771*^9}, 3.7117160312633133`*^9, 
   3.7117322351718035`*^9},ExpressionUUID->"0995b63a-826e-4601-887d-\
f6ce525e8efd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Random", " ", "environment"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sebZ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"sebR", ",", "20"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487104854937`*^9, 3.712248746743271*^9}, 
   3.712248851135318*^9, 3.71225522411539*^9, 
   3.7122568288368564`*^9},ExpressionUUID->"5ccb50ca-92f7-4070-9462-\
86e29a140645"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", ".1", ",", "0", ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CT14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120687029714603`*^9, 3.712068703377736*^9}, {3.7120987940796075`*^9, 
   3.712098795251767*^9}, 3.7122550893066053`*^9},
 ExpressionUUID -> "77d0e4fd-caeb-469a-907a-f30d3f6e0d53"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"170.46232859137575`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.711723547129781*^9, 3.711723996053789*^9, 
  3.71173245514214*^9, 
  3.7122570039566107`*^9},ExpressionUUID->"90b6f1a1-d224-4adc-9655-\
31a10f6f3073"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "/@", "RS14"}]], "Input",
 CellChangeTimes->{{3.711723362313148*^9, 
  3.711723381728838*^9}},ExpressionUUID->"4a53b02d-e409-4f12-8f00-\
832f76a3ab61"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"122", ",", "12"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7117233721020555`*^9, 3.711723382245202*^9}, 
   3.7117235594500227`*^9, 
   3.711724029462407*^9},ExpressionUUID->"881593e9-bf78-4114-a121-\
8d695a229b62"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\New data\\\\Mwaembe 14n.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 3.7117241293499365`*^9}, 
   3.712255790087711*^9, 
   3.7122570454326344`*^9},ExpressionUUID->"1030b349-8b5a-4c45-a508-\
c5dc72db2113"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\New data\\\\Mwaembe \
14n.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.712257062501274*^9},ExpressionUUID->"5912b856-b5fc-462d-8464-\
f098f5a6f460"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PDS", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", ".5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thin", ",", "Thick", ",", "Thin"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Year\>\"", ",", "\"\<Prevalence\>\""}], "}"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", 
        RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
     RowBox[{"DataRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "tf"}], "}"}]}]}], "]"}], "&"}], "/@", 
  "MST"}]], "Input",
 CellChangeTimes->{{3.711676002464961*^9, 3.7116760041684494`*^9}, 
   3.711722871706207*^9},ExpressionUUID->"fa754579-ebde-4ff0-9289-\
b5d3895415fe"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["One-way sensitivity", "Section",
 CellChangeTimes->{{3.711934512090442*^9, 
  3.7119345177077456`*^9}},ExpressionUUID->"a53df9cd-1edf-4610-894a-\
6cf6ac29cc46"],

Cell[CellGroupData[{

Cell["10 cases 14 strategies", "Subsection",
 CellChangeTimes->{{3.7120985499804354`*^9, 3.712098567527684*^9}, {
  3.7129605418806124`*^9, 3.7129605433497934`*^9}, {3.713371425190402*^9, 
  3.7133714253555107`*^9}},
 ExpressionUUID -> "c3126c2e-766f-4b5e-b63b-8aabce774b60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"1000", " ", "calibrated", " ", "posterior"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"e1", "=", 
        RowBox[{"ESWpar", "@", "\"\<Mwaembe\>\""}]}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"HPost", "=", 
        RowBox[{"Thread", "@", 
         RowBox[{"Values", "@", "e1"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"par", " ", "names"}], "*)"}], "\n", 
       RowBox[{"paN", "=", 
        RowBox[{"Symbol", "/@", 
         RowBox[{"Keys", "@", "e1"}]}]}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parameter", " ", "dataset"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"Random", " ", "posterior", " ", "draw"}], "*)"}], 
       RowBox[{"EHP", "=", 
        RowBox[{"RandomSample", "[", 
         RowBox[{"HPost", ",", "50"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"dkL", "=", 
       RowBox[{"Dataset", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"<|", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"ToString", "/@", "paN"}], "\[Rule]", "#"}], "]"}], 
           "|>"}], "&"}], "/@", "EHP"}], "]"}]}]}], "]"}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Generate", " ", "Random", " ", "environment"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sebZ", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"sebR", ",", "20"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7112016333917913`*^9, 3.7112016711763415`*^9}, {
   3.711201947450555*^9, 3.711201988443102*^9}, {3.7112932380933247`*^9, 
   3.7112932500441074`*^9}, 3.7114831399277897`*^9, {3.711483224005225*^9, 
   3.711483237116771*^9}, 3.7117160312633133`*^9, 3.712260691818145*^9, {
   3.7127558271771116`*^9, 3.712755828696191*^9}, 3.712960399768626*^9, 
   3.712960553508046*^9},
 ExpressionUUID -> "9fc9a406-f600-48bf-a370-abdc39f39034"],

Cell[CellGroupData[{

Cell["C1. Snail transport rM/\[Beta]=.4", "Subsubsection",
 CellChangeTimes->{{3.712068427363716*^9, 3.712068488966914*^9}, {
  3.712098624884324*^9, 
  3.7120986359047384`*^9}},ExpressionUUID->"30751eca-b5b0-406c-9954-\
c88b59bb10c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[".4",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CT14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, 
   3.712255090119438*^9},
 ExpressionUUID -> "5e58cc74-22f0-4e49-b6e8-6fce0f117ee6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"185.63767601139895`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7120995727232404`*^9, 3.712257978179717*^9, 
  3.712260959932927*^9, 3.7129583020755525`*^9, 
  3.7129607508282986`*^9},ExpressionUUID->"f4fba6e7-7f45-43bc-9248-\
c321c53e1c3d"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Mwaembe C1.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7122577743697824`*^9, 3.7122607017011347`*^9, 3.712958615923232*^9, 
   3.712960409345332*^9},ExpressionUUID->"5dc00194-7488-46aa-aefd-\
c60fbd1f0911"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Mwaembe C1.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712960751536865*^9},ExpressionUUID->"b6233ce7-9c02-4d83-a23d-\
e11c2c6cbaf8"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C2. External FOI \[CapitalLambda]e/\[CapitalLambda]0 =.4", \
"Subsubsection",
 CellChangeTimes->{{3.712068427363716*^9, 3.712068488966914*^9}, {
   3.7120700737870684`*^9, 3.7120701186796417`*^9}, 3.712070159380587*^9, {
   3.7120702313415833`*^9, 3.7120702364829626`*^9}, {3.712099430167631*^9, 
   3.712099436689555*^9}},ExpressionUUID->"247b8cd9-491a-4aac-8e92-\
5c08b155a8b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[".4",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CT14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, 3.71225509105696*^9},
 ExpressionUUID -> "1f05c797-e9b6-4cc9-aeb6-d059688cdf53"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"172.86927385619924`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.712261213062211*^9, 
  3.7129588621668234`*^9},ExpressionUUID->"bb2b49f2-8e03-4815-b50b-\
ea1323f9fa7f"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C2.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7122587139619055`*^9, 3.712260704330741*^9, 
   3.712958618208002*^9},ExpressionUUID->"9e31f22c-1b24-45bb-a4ae-\
ca02a65f9312"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C2.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712958862868922*^9},ExpressionUUID->"49566022-e51c-475e-b02b-\
dd2df5e1b1f1"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C3. MDA efficacy .25", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 
  3.712099766494899*^9}},ExpressionUUID->"af2e45cd-5b03-4a7b-8666-\
8843ab5ea0ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"14", " ", "control", " ", "strategies", " ", "with", " ", "ef"}],
     "=", ".25"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CB14", "=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CWA", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".75", ",", ".25", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"CWB", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".75", ",", ".25", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBA", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".25", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBB", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".25", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"SCA", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SCB", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", ".5"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", "MDA", "*)"}], 
       RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
        RowBox[{"(*", 
         RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
        RowBox[{"(*", 
         RowBox[{"integrated", " ", "control"}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7116590296045437`*^9, 3.711659094525406*^9}, {
   3.711659256363552*^9, 3.711659269912747*^9}, {3.71165960555049*^9, 
   3.7116596752811494`*^9}, {3.7116759462327547`*^9, 3.711675952717941*^9}, 
   3.711678690865564*^9, {3.7117212782968645`*^9, 3.711721317886576*^9}, 
   3.7117213800133595`*^9, {3.7120999497633486`*^9, 3.7120999762656307`*^9}, {
   3.712100011745674*^9, 3.7121000568618574`*^9}, {3.7121022267356987`*^9, 
   3.7121022606150875`*^9}},ExpressionUUID->"a3e5033f-ac2a-4a39-b476-\
036bedb86a67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 3.712255091838483*^9},
 ExpressionUUID -> "03598f9c-2fdf-4ad0-a763-a79fe66ab50e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"172.43892782651304`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.71226139669293*^9, 
  3.712959181424419*^9},ExpressionUUID->"bc11266d-3543-4d62-9955-\
a01176f298af"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C3.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.712258745065841*^9, 
   3.7122607067480216`*^9, 
   3.7129586318094435`*^9},ExpressionUUID->"ffd3a5d1-bbb9-4ec2-bf86-\
009523a8fa61"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C3.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.7129591820100656`*^9},ExpressionUUID->"1b83252e-e2dd-4080-970d-\
86681cb81923"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C4. molluscicide efficacy .3", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 3.712099766494899*^9}, {
  3.712102601551255*^9, 
  3.712102626102786*^9}},ExpressionUUID->"3032ad17-3e80-4d7f-8ffe-\
2c95f4a20d42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"14", " ", "control", " ", "strategies", " ", "with", " ", "ef"}],
     "=", ".25"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CB14", "=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CWA", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"CWB", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBA", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBB", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"SCA", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".3", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SCB", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".3", ",", ".5"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", "MDA", "*)"}], 
       RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
        RowBox[{"(*", 
         RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
        RowBox[{"(*", 
         RowBox[{"integrated", " ", "control"}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7116590296045437`*^9, 3.711659094525406*^9}, {
   3.711659256363552*^9, 3.711659269912747*^9}, {3.71165960555049*^9, 
   3.7116596752811494`*^9}, {3.7116759462327547`*^9, 3.711675952717941*^9}, 
   3.711678690865564*^9, {3.7117212782968645`*^9, 3.711721317886576*^9}, 
   3.7117213800133595`*^9, {3.7120999497633486`*^9, 3.7120999762656307`*^9}, {
   3.712100011745674*^9, 3.7121000568618574`*^9}, {3.7121022267356987`*^9, 
   3.7121022606150875`*^9}, {3.7121026306409035`*^9, 
   3.7121026487278967`*^9}},ExpressionUUID->"f995f6d3-67e8-4f6b-92ae-\
249089463e87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 3.7122550927447968`*^9},
 ExpressionUUID -> "8385e5a3-c547-4b43-8a09-9ba3ea848287"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"172.6221073083833`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7122615723522215`*^9, 
  3.7129594120212126`*^9},ExpressionUUID->"81b88afd-57eb-4e29-9e18-\
94c118128fe6"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C4.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.7121026633738103`*^9, 
   3.712258756144683*^9, 3.7122607094503813`*^9, 
   3.7129586476757927`*^9},ExpressionUUID->"cb23cb6c-8f31-4368-982c-\
7778baab3aed"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C4.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712959412540492*^9},ExpressionUUID->"1a637a88-95d2-4ea2-96d9-\
7518ca726eff"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData["\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C4.xlsx\>\""], \
"Input",
 CellChangeTimes->{{3.712958651363717*^9, 
  3.712958651363717*^9}},ExpressionUUID->"21237936-12bb-4bd3-9023-\
f8d14225cc54"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C4.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712959412602993*^9},ExpressionUUID->"1cd5076d-b1ad-4ae0-acf3-\
98a6d48d9a07"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C5 MDA coverage 85", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 3.712099766494899*^9}, {
  3.712102601551255*^9, 3.712102626102786*^9}, {3.7121030846299124`*^9, 
  3.7121031064423366`*^9}},ExpressionUUID->"c077edf7-9baa-4ad4-a985-\
bfd25b0777c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"14", " ", "control", " ", "strategies", " ", "with", " ", "ef"}],
     "=", ".25"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CB14", "=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CWA", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".85", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"CWB", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".85", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBA", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".85", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBB", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".85", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"SCA", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SCB", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", ".5"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", "MDA", "*)"}], 
       RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
        RowBox[{"(*", 
         RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
        RowBox[{"(*", 
         RowBox[{"integrated", " ", "control"}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7116590296045437`*^9, 3.711659094525406*^9}, {
   3.711659256363552*^9, 3.711659269912747*^9}, {3.71165960555049*^9, 
   3.7116596752811494`*^9}, {3.7116759462327547`*^9, 3.711675952717941*^9}, 
   3.711678690865564*^9, {3.7117212782968645`*^9, 3.711721317886576*^9}, 
   3.7117213800133595`*^9, {3.7120999497633486`*^9, 3.7120999762656307`*^9}, {
   3.712100011745674*^9, 3.7121000568618574`*^9}, {3.7121022267356987`*^9, 
   3.7121022606150875`*^9}, {3.7121026306409035`*^9, 
   3.7121026487278967`*^9}, {3.712103114877988*^9, 
   3.712103125111042*^9}},ExpressionUUID->"a610cf5a-c2a5-43ca-ad0e-\
f49b21fff7a4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 
   3.7122550937776213`*^9},ExpressionUUID->"4286f243-93b5-44e3-9718-\
99112007ff1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"169.33816724128545`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7122617550939984`*^9, 
  3.7129600430707045`*^9},ExpressionUUID->"dd7da9c6-9628-4537-b1c5-\
7f83213e032a"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C5.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.7121026633738103`*^9, 
   3.7121031347240953`*^9, 3.7122599152379913`*^9, 3.7122607121563425`*^9, 
   3.7129586545526*^9},ExpressionUUID->"e3da0191-0a9e-4f81-8417-925f0ede1ddb"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C5.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712960043663046*^9},ExpressionUUID->"a1ea745a-518d-4a23-bf55-\
dbd023c4fd33"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData["\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C5.xlsx\>\""], \
"Input",
 CellChangeTimes->{{3.712958656365184*^9, 
  3.712958656365184*^9}},ExpressionUUID->"5942b78a-ef11-4109-b754-\
b4f156b1d4c5"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C5.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.7129600437349205`*^9},ExpressionUUID->"d4934f8a-5dd9-4ddb-9dea-\
f6fda1e27481"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C6 MDA coverage 50-75-50", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 3.712099766494899*^9}, {
  3.712102601551255*^9, 3.712102626102786*^9}, {3.7121030846299124`*^9, 
  3.7121031064423366`*^9}, {3.712103527384514*^9, 
  3.712103538480322*^9}},ExpressionUUID->"043f6cfc-37e8-4869-937f-\
59030d1a90ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Mixed", " ", "CWT"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CWZ", "[", 
    RowBox[{"(*", "coverage", "*)"}], 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"fC_", ",", "fS_", ",", "fA_"}], "}"}], ",", 
     RowBox[{"(*", "efficacy", "*)"}], "ef_", ",", 
     RowBox[{"(*", 
      RowBox[{"Timing", " ", "period"}], "*)"}], "tc_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"WEr", "[", 
      RowBox[{"htC", ",", "fC", ",", "ef", ",", "tc"}], "]"}], ",", 
     RowBox[{"WEr", "[", 
      RowBox[{"htS", ",", "fS", ",", "ef", ",", "tc"}], "]"}], ",", 
     RowBox[{"WEr", "[", 
      RowBox[{"htA", ",", "fA", ",", "ef", ",", "tc"}], "]"}]}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.7121039470223694`*^9, 3.7121040595393505`*^9}},
 ExpressionUUID -> "faf8757d-78e7-4dc9-88a4-8a212a5f5d92"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"14", " ", "control", " ", "strategies", " ", "with", " ", "ef"}],
     "=", ".25"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CB14", "=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CWA", "=", 
         RowBox[{"CWZ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".5", ",", ".75", ",", ".5"}], "}"}], ",", ".15", ",", 
           "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"CWB", "=", 
         RowBox[{"CWZ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".5", ",", ".75", ",", ".5"}], "}"}], ",", ".15", ",", 
           ".5"}], "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"SBA", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBB", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"SCA", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SCB", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", ".5"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", "MDA", "*)"}], 
       RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
        RowBox[{"(*", 
         RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
        RowBox[{"(*", 
         RowBox[{"integrated", " ", "control"}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7116590296045437`*^9, 3.711659094525406*^9}, {
   3.711659256363552*^9, 3.711659269912747*^9}, {3.71165960555049*^9, 
   3.7116596752811494`*^9}, {3.7116759462327547`*^9, 3.711675952717941*^9}, 
   3.711678690865564*^9, {3.7117212782968645`*^9, 3.711721317886576*^9}, 
   3.7117213800133595`*^9, {3.7120999497633486`*^9, 3.7120999762656307`*^9}, {
   3.712100011745674*^9, 3.7121000568618574`*^9}, {3.7121022267356987`*^9, 
   3.7121022606150875`*^9}, {3.7121026306409035`*^9, 
   3.7121026487278967`*^9}, {3.712103114877988*^9, 3.712103125111042*^9}, {
   3.7121040900082965`*^9, 3.7121041455417924`*^9}},
 ExpressionUUID -> "ae0dfd75-9ce2-496a-89cf-810a6a45f61e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 
   3.7122550949651327`*^9},ExpressionUUID->"8c07a3e7-a01e-4425-b4a4-\
55d455592b22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"173.53504296922762`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.712261939304001*^9, 
  3.712960282784275*^9},ExpressionUUID->"abba3559-2650-4604-b8bf-\
3b64f8d2f84f"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C6.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.7121026633738103`*^9, 
   3.7121031347240953`*^9, 3.71210417669855*^9, 3.712258784408613*^9, 
   3.712260719465476*^9, 
   3.7129586610363026`*^9},ExpressionUUID->"fbf53f6d-4b11-43c3-b47d-\
9cf2f3b02762"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C6.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712960283425051*^9},ExpressionUUID->"298efc45-f68a-46b4-b1b7-\
975627931fa2"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData["\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C6.xlsx\>\""], \
"Input",
 CellChangeTimes->{{3.7129586625299244`*^9, 
  3.7129586625299244`*^9}},ExpressionUUID->"07b69208-f0c5-4df2-8b25-\
f29168c63a28"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C6.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.7129602835181165`*^9},ExpressionUUID->"4a2be149-085d-40a0-ab60-\
2387274b23f8"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C7. Full compliance", "Subsubsection",
 CellChangeTimes->{{3.712068427363716*^9, 3.712068488966914*^9}, {
   3.7120700737870684`*^9, 3.7120701186796417`*^9}, 3.712070159380587*^9, {
   3.7120702313415833`*^9, 3.7120702364829626`*^9}, {3.712099430167631*^9, 
   3.712099436689555*^9}, {3.7121044419014525`*^9, 3.7121044496439776`*^9}},
 ExpressionUUID -> "9c1a5a70-c1cf-4587-ac08-3d4d3ef7afa5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CT14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712104461662511*^9, 
   3.71210446884661*^9}, 
   3.7122550958872366`*^9},ExpressionUUID->"7925d90e-b5c7-40df-b91d-\
251942df633e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"164.12388203699754`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7122621051376486`*^9, 
  3.7129604580331306`*^9},ExpressionUUID->"af736da3-8696-41e9-993a-\
7a4686e588ec"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C7.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.712104473667844*^9, 3.712260064465002*^9, 
   3.712260722654106*^9, 
   3.7129586643690224`*^9},ExpressionUUID->"ddf6f887-7c13-43ff-9e9c-\
0020b4380e83"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C7.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712960458595622*^9},ExpressionUUID->"9d20ec51-61e2-49a3-83c4-\
f74df0b97e61"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData["\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C7.xlsx\>\""], \
"Input",
 CellChangeTimes->{{3.712958665534614*^9, 
  3.712958665534614*^9}},ExpressionUUID->"c5449ee0-cd7a-44ec-86f5-\
d07763cd9ca0"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C7.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.712960458658126*^9},ExpressionUUID->"785a89e1-5880-42d7-8f88-\
daa7769034d8"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C8 MDA coverage 50", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 3.712099766494899*^9}, {
  3.712102601551255*^9, 3.712102626102786*^9}, {3.7121030846299124`*^9, 
  3.7121031064423366`*^9}, {3.7127549049489594`*^9, 
  3.7127549090264177`*^9}},ExpressionUUID->"053ee04a-48a4-407d-a827-\
bb58dab2ec4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"14", " ", "control", " ", "strategies", " ", "with", " ", "ef"}],
     "=", ".25"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CB14", "=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CWA", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".5", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"CWB", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".5", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBA", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".5", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBB", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".5", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"SCA", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SCB", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", ".5"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", "MDA", "*)"}], 
       RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
        RowBox[{"(*", 
         RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
        RowBox[{"(*", 
         RowBox[{"integrated", " ", "control"}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7116590296045437`*^9, 3.711659094525406*^9}, {
   3.711659256363552*^9, 3.711659269912747*^9}, {3.71165960555049*^9, 
   3.7116596752811494`*^9}, {3.7116759462327547`*^9, 3.711675952717941*^9}, 
   3.711678690865564*^9, {3.7117212782968645`*^9, 3.711721317886576*^9}, 
   3.7117213800133595`*^9, {3.7120999497633486`*^9, 3.7120999762656307`*^9}, {
   3.712100011745674*^9, 3.7121000568618574`*^9}, {3.7121022267356987`*^9, 
   3.7121022606150875`*^9}, {3.7121026306409035`*^9, 
   3.7121026487278967`*^9}, {3.712103114877988*^9, 3.712103125111042*^9}, {
   3.712754925013423*^9, 
   3.7127549359564595`*^9}},ExpressionUUID->"7fab9a61-2fa1-42f9-bab7-\
c868b544cce0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 
   3.7122550937776213`*^9},ExpressionUUID->"bb2166ac-0b21-4889-aaf9-\
adddedcd4e1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"167.83896602534867`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7122617550939984`*^9, 3.7127553597298956`*^9, 
  3.7127556736275387`*^9, 
  3.712756036028372*^9},ExpressionUUID->"a7da8276-8990-493a-9db1-\
6590d449f560"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Milalani C8.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.7121026633738103`*^9, 
   3.7121031347240953`*^9, 3.7122599152379913`*^9, 3.7122607121563425`*^9, 
   3.7127557771195292`*^9, {3.712755853036465*^9, 
   3.7127558545865946`*^9}},ExpressionUUID->"7d9c81e1-155e-43e6-bec7-\
743361228395"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Milalani C8.xlsx\"\>"], \
"Output",
 CellChangeTimes->{3.712261755703479*^9, 3.712755789437256*^9, 
  3.712756105147868*^9},ExpressionUUID->"d2c0d4e1-0833-4e48-b695-\
d416849464e7"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C9 Low (N,b)", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 3.712099766494899*^9}, {
  3.712102601551255*^9, 3.712102626102786*^9}, {3.7121030846299124`*^9, 
  3.7121031064423366`*^9}, {3.7127549049489594`*^9, 3.7127549090264177`*^9}, {
  3.712756355102871*^9, 
  3.712756382421587*^9}},ExpressionUUID->"2fca029d-66b7-42e1-a2b2-\
98ee830236f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Equil", " ", "snail", " ", 
      RowBox[{"input", ":", " ", "n"}]}], "=", 
     RowBox[{"total", " ", "controlled", " ", "by", " ", 
      RowBox[{"\[Nu]", "/", "\[Beta]"}]}]}], ",", " ", 
    RowBox[{"c", "=", 
     RowBox[{"patency", " ", "fraction"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EqS", "[", 
      RowBox[{"{", 
       RowBox[{"n_", ",", "y_", ",", "c_"}], "}"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "c"}], ")"}], "y"}]}], ",", "y", ",", 
       RowBox[{"c", " ", "y"}]}], "}"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"Random", " ", "snail", " ", "inputs", " ", 
     RowBox[{"{", 
      RowBox[{"y", ",", "c"}], "}"}], " ", "with", " ", "fixed", " ", "N"}], 
    " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{"RaS", "[", "n_", "]"}], ":=", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RandomReal", "[", "#", "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{".15", ",", ".45"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{".05", ",", ".15"}], "}"}]}], "}"}]}], ",", "n"}], "]"}]}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Random", " ", 
      RowBox[{"env", "/", 
       RowBox[{"behav", ":", " ", "\[Omega]C"}]}]}], ",", " ", 
     RowBox[{"\[Omega]A", " ", "with", " ", "fixed", " ", "b"}]}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{"ReB", "[", "b_", "]"}], ":=", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RandomReal", "[", "#", "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{".2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{".2", ",", "1.2"}], "}"}]}], "}"}]}], ",", "b"}], "]"}]}], 
   "\n", 
   RowBox[{"(*", 
    RowBox[{"snail", "-", 
     RowBox[{"env", " ", "input"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"SebR", "[", 
      RowBox[{"n_", ",", "b_"}], "]"}], ":=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"EqS", "@", 
        RowBox[{"RaS", "@", "n"}]}], ",", 
       RowBox[{"ReB", "@", "b"}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.711586218500864*^9, 3.71158624600638*^9}, 
   3.711586829207967*^9, 3.711587394537738*^9, 3.711675432551811*^9, {
   3.711717794467532*^9, 3.7117177984116387`*^9}, {3.711719124710308*^9, 
   3.7117191253250523`*^9}, {3.7117268245067205`*^9, 3.711726831775339*^9}, {
   3.712711851483536*^9, 3.7127119324592514`*^9}, {3.712756581912044*^9, 
   3.7127566033966684`*^9}, 3.712756816177309*^9, {3.7127568593426485`*^9, 
   3.7127568608273554`*^9}, {3.712756915647057*^9, 
   3.712756938060667*^9}},ExpressionUUID->"5f63e879-c785-4754-a1a9-\
4f43cb9f232b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"14", " ", "control", " ", "strategies"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CT14", "=", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", "Human", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CWA", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"CWB", "=", 
         RowBox[{"CWT", "[", 
          RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBA", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".15", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SBB", "=", 
         RowBox[{"SBT", "[", 
          RowBox[{".75", ",", ".15", ",", ".5"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "snail", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"SCA", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", "1"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SCB", "=", 
         RowBox[{"SCE", "[", 
          RowBox[{"stv", ",", ".1", ",", ".5"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", "MDA", "*)"}], 
       RowBox[{"CWA", ",", "CWB", ",", "SBA", ",", "SBB", ",", 
        RowBox[{"(*", 
         RowBox[{"snail", " ", "control"}], "*)"}], "SCA", ",", "SCB", ",", 
        RowBox[{"(*", 
         RowBox[{"integrated", " ", "control"}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"CWB", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBA", ",", "SCB"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCA"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SBB", ",", "SCB"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7116590296045437`*^9, 3.711659094525406*^9}, {
   3.711659256363552*^9, 3.711659269912747*^9}, {3.71165960555049*^9, 
   3.7116596752811494`*^9}, {3.7116759462327547`*^9, 3.711675952717941*^9}, 
   3.711678690865564*^9, {3.7117212782968645`*^9, 3.711721317886576*^9}, 
   3.7117213800133595`*^9, {3.7120999497633486`*^9, 3.7120999762656307`*^9}, {
   3.712100011745674*^9, 
   3.7121000568618574`*^9}},ExpressionUUID->"4a93ff2e-a0f2-48dc-b510-\
5818b08f0fcd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Generate", " ", "Random", " ", "environment"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sebZ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"SebR", "[", 
       RowBox[{".6", ",", ".5"}], "]"}], ",", "20"}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487104854937`*^9, 3.712248746743271*^9}, 
   3.712248851135318*^9, 3.71225522411539*^9, 3.7122568288368564`*^9, {
   3.7127549728334846`*^9, 3.712754976474714*^9}, {3.7127569970487947`*^9, 
   3.7127570091541314`*^9}},ExpressionUUID->"76de645c-ac2b-4d7e-aabb-\
c1db9396bcc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 
   3.7122550937776213`*^9},ExpressionUUID->"1679a226-2b62-4939-9751-\
d72870fdc835"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"166.91370722377468`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7122617550939984`*^9, 3.7127553597298956`*^9, 
  3.7127556736275387`*^9, 3.712756036028372*^9, 3.712757349636715*^9, 
  3.712961137133427*^9},ExpressionUUID->"8afcd25f-d251-4bea-ba9a-\
f2e527b24036"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Mwaembe C9.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.7121026633738103`*^9, 
   3.7121031347240953`*^9, 3.7122599152379913`*^9, 3.7122607121563425`*^9, 
   3.7127557771195292`*^9, {3.712755853036465*^9, 3.7127558545865946`*^9}, 
   3.7127573299116163`*^9, 
   3.712960872618497*^9},ExpressionUUID->"4f9bc768-1554-485a-945e-\
4794cf791b29"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Mwaembe C9.xlsx\"\>"], \
"Output",
 CellChangeTimes->{3.7127576255266666`*^9, 
  3.7129611377124834`*^9},ExpressionUUID->"04a5a3ca-6477-4d9c-ba79-\
8b01bf3af609"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["C10 high (N,b)", "Subsubsection",
 CellChangeTimes->{{3.711937582362996*^9, 3.711937602574216*^9}, {
  3.7119377209150114`*^9, 3.7119377270149317`*^9}, {3.7119378620323505`*^9, 
  3.711937875334775*^9}, {3.7120997631666126`*^9, 3.712099766494899*^9}, {
  3.712102601551255*^9, 3.712102626102786*^9}, {3.7121030846299124`*^9, 
  3.7121031064423366`*^9}, {3.7127549049489594`*^9, 3.7127549090264177`*^9}, {
  3.712756355102871*^9, 3.712756382421587*^9}, {3.7127573001384215`*^9, 
  3.7127573054628973`*^9}},ExpressionUUID->"dc614e44-c44a-4e9d-a86d-\
71e05662c811"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Generate", " ", "Random", " ", "environment"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sebZ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"SebR", "[", 
       RowBox[{".95", ",", "3"}], "]"}], ",", "20"}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7122487104854937`*^9, 3.712248746743271*^9}, 
   3.712248851135318*^9, 3.71225522411539*^9, 3.7122568288368564`*^9, {
   3.7127549728334846`*^9, 3.712754976474714*^9}, {3.7127569970487947`*^9, 
   3.7127570091541314`*^9}, {3.712757319151951*^9, 
   3.7127573235128546`*^9}},ExpressionUUID->"ef2b78f4-c5bf-459b-9033-\
1bf86a8324d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Run", " ", "14"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RS14", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"EnsRun", "[", 
        RowBox[{"stg", ",", 
         StyleBox[".1",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[",",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["0",
          FontColor->RGBColor[1, 0, 0]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"stg", ",", "CB14"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.7116757088106995`*^9, 3.7116757501527433`*^9}, {
   3.7117210590590315`*^9, 3.711721089913076*^9}, {3.711721150286325*^9, 
   3.711721180831624*^9}, {3.711721823128462*^9, 3.711721827537531*^9}, {
   3.711722546210611*^9, 3.711722554774409*^9}, {3.7117225880361032`*^9, 
   3.711722591317947*^9}, {3.711722961797521*^9, 3.7117230268151684`*^9}, {
   3.7117230759122343`*^9, 3.711723081503521*^9}, 3.711723493554776*^9, 
   3.711723526054744*^9, {3.7117238114660425`*^9, 3.711723813075986*^9}, {
   3.7120686952668734`*^9, 3.712068695735959*^9}, {3.7120988059866405`*^9, 
   3.71209880664284*^9}, {3.712098899209909*^9, 3.7120989003976994`*^9}, {
   3.712099475132946*^9, 3.7120994801175475`*^9}, {3.712102328611557*^9, 
   3.7121023372384453`*^9}, 
   3.7122550937776213`*^9},ExpressionUUID->"c1707aa0-f6ac-40eb-9e53-\
2ab6822a6f22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"182.65467493951107`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7122617550939984`*^9, 3.7127553597298956`*^9, 
  3.7127556736275387`*^9, 3.712756036028372*^9, 3.712757826053244*^9, 
  3.7129613370882273`*^9},ExpressionUUID->"6c5d8822-e149-4814-b3c6-\
d3b70cb4e63a"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis (Case)\\\\Cost \
effectiveness\\\\REVISIONS-PNAS\\\\Mwaembe C10.xlsx\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sheets\>\"", "\[Rule]", 
    RowBox[{"XLS", "@", "RS14"}]}], ",", "\"\<Rules\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.711721769263936*^9, 3.7117217877149057`*^9}, {
   3.711723629387309*^9, 3.7117236374724464`*^9}, {3.7117237686526303`*^9, 
   3.7117237700436926`*^9}, {3.7117240761463776`*^9, 
   3.7117241293499365`*^9}, {3.712098938033326*^9, 3.7120989386742163`*^9}, 
   3.7120995441068525`*^9, 3.7121024318652134`*^9, 3.7121026633738103`*^9, 
   3.7121031347240953`*^9, 3.7122599152379913`*^9, 3.7122607121563425`*^9, 
   3.7127557771195292`*^9, {3.712755853036465*^9, 3.7127558545865946`*^9}, {
   3.712757340153674*^9, 3.7127573404613347`*^9}, 
   3.7129608944114547`*^9},ExpressionUUID->"0994c438-9dcc-4114-b5c5-\
f6c6ac39ffbe"],

Cell[BoxData["\<\"C:\\\\Users\\\\dxg5\\\\Dropbox\\\\Schistosomiasis \
(Case)\\\\Cost effectiveness\\\\REVISIONS-PNAS\\\\Mwaembe C10.xlsx\"\>"], \
"Output",
 CellChangeTimes->{
  3.7129613376241703`*^9},ExpressionUUID->"7b49d4c3-cc0a-435b-aa3e-\
622e12c1b8ab"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{822, 793},
WindowMargins->{{29, Automatic}, {Automatic, 78}},
ShowCellTags->True,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "All MDA + molluscicide codes"->{
  Cell[5922, 161, 1052, 15, 84, "Section",
   CellTags->"All MDA + molluscicide codes"]},
 "C-S-A transmission"->{
  Cell[8060, 196, 7377, 179, 442, "Input",
   CellTags->"C-S-A transmission"]},
 "Diagnostics"->{
  Cell[15927, 388, 6977, 199, 512, "Input",
   CellTags->"Diagnostics"]},
 "MDA codes"->{
  Cell[23837, 606, 5716, 162, 466, "Input",
   CellTags->"MDA codes"]},
 "random transmision inputs"->{
  Cell[30227, 788, 2917, 83, 178, "Input",
   CellTags->"random transmision inputs"]},
 "General"->{
  Cell[33283, 879, 4941, 125, 349, "Input",
   CellTags->{"General", "Basic SWB", "snail"}],
  Cell[38227, 1006, 9750, 274, 602, "Input",
   CellTags->{"General", "Basic SWB", "snail"}]},
 "Basic SWB"->{
  Cell[33283, 879, 4941, 125, 349, "Input",
   CellTags->{"General", "Basic SWB", "snail"}],
  Cell[38227, 1006, 9750, 274, 602, "Input",
   CellTags->{"General", "Basic SWB", "snail"}]},
 "snail"->{
  Cell[33283, 879, 4941, 125, 349, "Input",
   CellTags->{"General", "Basic SWB", "snail"}],
  Cell[38227, 1006, 9750, 274, 602, "Input",
   CellTags->{"General", "Basic SWB", "snail"}],
  Cell[55345, 1474, 3039, 76, 178, "Input",
   CellTags->"snail"]},
 "Stationary Leslie"->{
  Cell[48128, 1288, 3332, 88, 258, "Input",
   CellTags->{"Stationary Leslie", "Dynamic Leslie"}]},
 "Dynamic Leslie"->{
  Cell[48128, 1288, 3332, 88, 258, "Input",
   CellTags->{"Stationary Leslie", "Dynamic Leslie"}]},
 "Plots"->{
  Cell[51728, 1386, 2690, 65, 197, "Input",
   CellTags->"Plots"]},
 "generate Leslie"->{
  Cell[58894, 1563, 4516, 108, 293, "Input",
   CellTags->"generate Leslie"]},
 "Generate SWB"->{
  Cell[66513, 1732, 7994, 217, 493, "Input",
   CellTags->"Generate SWB"]},
 "Posterior"->{
  Cell[98774, 2585, 320, 8, 102, "Input",
   CellTags->"Posterior"]},
 "Milalani"->{
  Cell[99450, 2604, 1884, 51, 178, "Input",
   CellTags->"Milalani"]},
 "inputs"->{
  Cell[101548, 2664, 1677, 44, 178, "Input",
   CellTags->{"inputs", "special controls"}]},
 "special controls"->{
  Cell[101548, 2664, 1677, 44, 178, "Input",
   CellTags->{"inputs", "special controls"}]},
 "Controls"->{
  Cell[164324, 3854, 3673, 94, 368, "Input",
   CellTags->"Controls"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"All MDA + molluscicide codes", 247703, 6049},
 {"C-S-A transmission", 247818, 6052},
 {"Diagnostics", 247916, 6055},
 {"MDA codes", 248006, 6058},
 {"random transmision inputs", 248110, 6061},
 {"General", 248211, 6064},
 {"Basic SWB", 248415, 6069},
 {"snail", 248615, 6074},
 {"Stationary Leslie", 248894, 6081},
 {"Dynamic Leslie", 249015, 6084},
 {"Plots", 249127, 6087},
 {"generate Leslie", 249217, 6090},
 {"Generate SWB", 249315, 6093},
 {"Posterior", 249407, 6096},
 {"Milalani", 249492, 6099},
 {"inputs", 249576, 6102},
 {"special controls", 249691, 6105},
 {"Controls", 249798, 6108}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 322, 6, 166, "Title"],
Cell[CellGroupData[{
Cell[927, 32, 213, 3, 72, "Chapter"],
Cell[1143, 37, 4754, 120, 282, "Text"],
Cell[CellGroupData[{
Cell[5922, 161, 1052, 15, 84, "Section",
 CellTags->"All MDA + molluscicide codes"],
Cell[CellGroupData[{
Cell[6999, 180, 1058, 14, 49, "Subsection"],
Cell[8060, 196, 7377, 179, 442, "Input",
 CellTags->"C-S-A transmission"]
}, Closed]],
Cell[CellGroupData[{
Cell[15474, 380, 450, 6, 41, "Subsection"],
Cell[15927, 388, 6977, 199, 512, "Input",
 CellTags->"Diagnostics"]
}, Closed]],
Cell[CellGroupData[{
Cell[22941, 592, 893, 12, 41, "Subsection"],
Cell[23837, 606, 5716, 162, 466, "Input",
 CellTags->"MDA codes"]
}, Closed]],
Cell[CellGroupData[{
Cell[29590, 773, 634, 13, 41, "Subsection"],
Cell[30227, 788, 2917, 83, 178, "Input",
 CellTags->"random transmision inputs"]
}, Closed]],
Cell[CellGroupData[{
Cell[33181, 876, 99, 1, 41, "Subsection"],
Cell[33283, 879, 4941, 125, 349, "Input",
 CellTags->{"General", "Basic SWB", "snail"}],
Cell[38227, 1006, 9750, 274, 602, "Input",
 CellTags->{"General", "Basic SWB", "snail"}]
}, Closed]],
Cell[CellGroupData[{
Cell[48014, 1285, 111, 1, 41, "Subsection"],
Cell[48128, 1288, 3332, 88, 258, "Input",
 CellTags->{"Stationary Leslie", "Dynamic Leslie"}]
}, Closed]],
Cell[CellGroupData[{
Cell[51497, 1381, 228, 3, 41, "Subsection"],
Cell[51728, 1386, 2690, 65, 197, "Input",
 CellTags->"Plots"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[54467, 1457, 175, 2, 56, "Section"],
Cell[CellGroupData[{
Cell[54667, 1463, 675, 9, 49, "Subsection"],
Cell[55345, 1474, 3039, 76, 178, "Input",
 CellTags->"snail"]
}, Closed]],
Cell[CellGroupData[{
Cell[58421, 1555, 470, 6, 41, "Subsection"],
Cell[58894, 1563, 4516, 108, 293, "Input",
 CellTags->"generate Leslie"],
Cell[63413, 1673, 2383, 43, 69, "Input",
 Evaluatable->False]
}, Closed]],
Cell[CellGroupData[{
Cell[65833, 1721, 677, 9, 41, "Subsection"],
Cell[66513, 1732, 7994, 217, 493, "Input",
 CellTags->"Generate SWB"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[74556, 1955, 303, 4, 56, "Section"],
Cell[CellGroupData[{
Cell[74884, 1963, 154, 2, 49, "Subsection"],
Cell[CellGroupData[{
Cell[75063, 1969, 232, 3, 39, "Subsubsection"],
Cell[75298, 1974, 7343, 208, 511, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[82678, 2187, 319, 4, 33, "Subsubsection"],
Cell[83000, 2193, 12775, 315, 886, "Input"],
Cell[95778, 2510, 2074, 53, 145, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[97901, 2569, 499, 6, 41, "Subsection"],
Cell[CellGroupData[{
Cell[98425, 2579, 346, 4, 39, "Subsubsection"],
Cell[98774, 2585, 320, 8, 102, "Input",
 CellTags->"Posterior"]
}, Closed]],
Cell[CellGroupData[{
Cell[99131, 2598, 316, 4, 33, "Subsubsection"],
Cell[99450, 2604, 1884, 51, 178, "Input",
 CellTags->"Milalani"]
}, Closed]],
Cell[CellGroupData[{
Cell[101371, 2660, 174, 2, 33, "Subsubsection"],
Cell[101548, 2664, 1677, 44, 178, "Input",
 CellTags->{"inputs", "special controls"}],
Cell[103228, 2710, 2233, 63, 145, "Input"],
Cell[105464, 2775, 486, 12, 50, "Input"],
Cell[105953, 2789, 1476, 41, 69, "Input"],
Cell[107432, 2832, 590, 17, 30, "Input"],
Cell[CellGroupData[{
Cell[108047, 2853, 1635, 43, 69, "Input"],
Cell[109685, 2898, 54015, 934, 464, "Output"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[163773, 3840, 280, 4, 56, "Section"],
Cell[CellGroupData[{
Cell[164078, 3848, 243, 4, 49, "Subsection"],
Cell[164324, 3854, 3673, 94, 368, "Input",
 CellTags->"Controls"]
}, Closed]],
Cell[CellGroupData[{
Cell[168034, 3953, 345, 5, 41, "Subsection"],
Cell[168382, 3960, 508, 12, 50, "Input"],
Cell[168893, 3974, 366, 10, 50, "Input"],
Cell[CellGroupData[{
Cell[169284, 3988, 695, 16, 50, "Input"],
Cell[169982, 4006, 246, 5, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[170277, 4017, 159, 3, 41, "Subsection"],
Cell[170439, 4022, 1749, 48, 164, "Input"],
Cell[172191, 4072, 440, 11, 50, "Input"],
Cell[CellGroupData[{
Cell[172656, 4087, 1126, 23, 50, "Input"],
Cell[173785, 4112, 264, 6, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[174086, 4123, 188, 4, 24, "Input"],
Cell[174277, 4129, 1100, 34, 50, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[175414, 4168, 654, 12, 82, "Input"],
Cell[176071, 4182, 422, 7, 30, "Output"]
}, Closed]],
Cell[176508, 4192, 1189, 35, 44, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[177734, 4232, 183, 3, 41, "Subsection"],
Cell[177920, 4237, 1768, 47, 164, "Input"],
Cell[179691, 4286, 440, 11, 50, "Input"],
Cell[CellGroupData[{
Cell[180156, 4301, 1124, 23, 50, "Input"],
Cell[181283, 4326, 266, 6, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[181586, 4337, 188, 4, 24, "Input"],
Cell[181777, 4343, 1100, 34, 50, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[182914, 4382, 679, 13, 82, "Input"],
Cell[183596, 4397, 269, 5, 30, "Output"]
}, Closed]],
Cell[183880, 4405, 1189, 35, 44, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[185118, 4446, 166, 3, 70, "Section"],
Cell[CellGroupData[{
Cell[185309, 4453, 275, 4, 49, "Subsection"],
Cell[185587, 4459, 2107, 56, 202, "Input"],
Cell[CellGroupData[{
Cell[187719, 4519, 235, 4, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[187979, 4527, 1474, 34, 50, "Input"],
Cell[189456, 4563, 293, 6, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[189786, 4574, 764, 14, 82, "Input"],
Cell[190553, 4590, 256, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[190858, 4601, 386, 6, 33, "Subsubsection"],
Cell[CellGroupData[{
Cell[191269, 4611, 1521, 34, 50, "Input"],
Cell[192793, 4647, 220, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[193050, 4657, 765, 14, 82, "Input"],
Cell[193818, 4673, 257, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[194124, 4684, 323, 5, 33, "Subsubsection"],
Cell[194450, 4691, 2835, 69, 259, "Input"],
Cell[CellGroupData[{
Cell[197310, 4764, 1573, 35, 50, "Input"],
Cell[198886, 4801, 217, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[199140, 4811, 795, 15, 82, "Input"],
Cell[199938, 4828, 259, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[200246, 4839, 380, 6, 33, "Subsubsection"],
Cell[200629, 4847, 2889, 70, 259, "Input"],
Cell[CellGroupData[{
Cell[203543, 4921, 1575, 35, 50, "Input"],
Cell[205121, 4958, 221, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[205379, 4968, 819, 15, 82, "Input"],
Cell[206201, 4985, 257, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[206495, 4995, 280, 5, 44, "Input"],
Cell[206778, 5002, 257, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[207084, 5013, 420, 6, 33, "Subsubsection"],
Cell[207507, 5021, 2939, 71, 240, "Input"],
Cell[CellGroupData[{
Cell[210471, 5096, 1577, 36, 50, "Input"],
Cell[212051, 5134, 222, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[212310, 5144, 839, 14, 44, "Input"],
Cell[213152, 5160, 257, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[213446, 5170, 280, 5, 24, "Input"],
Cell[213729, 5177, 259, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[214037, 5188, 475, 7, 33, "Subsubsection"],
Cell[214515, 5197, 909, 24, 69, "Input"],
Cell[215427, 5223, 3151, 75, 240, "Input"],
Cell[CellGroupData[{
Cell[218603, 5302, 1577, 36, 50, "Input"],
Cell[220183, 5340, 218, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[220438, 5350, 866, 16, 44, "Input"],
Cell[221307, 5368, 257, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[221601, 5378, 284, 5, 24, "Input"],
Cell[221888, 5385, 259, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[222196, 5396, 399, 5, 33, "Subsubsection"],
Cell[CellGroupData[{
Cell[222620, 5405, 1573, 36, 50, "Input"],
Cell[224196, 5443, 222, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[224455, 5453, 791, 15, 50, "Input"],
Cell[225249, 5470, 257, 5, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[225543, 5480, 280, 5, 30, "Input"],
Cell[225826, 5487, 257, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[226132, 5498, 473, 7, 33, "Subsubsection"],
Cell[226608, 5507, 2987, 72, 240, "Input"],
Cell[CellGroupData[{
Cell[229620, 5583, 1577, 36, 50, "Input"],
Cell[231200, 5621, 271, 6, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[231508, 5632, 897, 16, 50, "Input"],
Cell[232408, 5650, 301, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[232758, 5661, 516, 8, 33, "Subsubsection"],
Cell[233277, 5671, 2970, 84, 164, "Input"],
Cell[236250, 5757, 2732, 68, 240, "Input"],
Cell[238985, 5827, 628, 16, 50, "Input"],
Cell[CellGroupData[{
Cell[239638, 5847, 1577, 36, 50, "Input"],
Cell[241218, 5885, 315, 6, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[241570, 5896, 946, 17, 50, "Input"],
Cell[242519, 5915, 282, 5, 30, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[242850, 5926, 568, 8, 33, "Subsubsection"],
Cell[243421, 5936, 680, 17, 50, "Input"],
Cell[CellGroupData[{
Cell[244126, 5957, 1577, 36, 50, "Input"],
Cell[245706, 5995, 317, 6, 30, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[246060, 6006, 973, 17, 50, "Input"],
Cell[247036, 6025, 259, 5, 30, "Output"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)