ParameterSweeps.nb

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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    226585,       4724]
NotebookOptionsPosition[    222805,       4651]
NotebookOutlinePosition[    223400,       4673]
CellTagsIndexPosition[    223357,       4670]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["MGDrivE: Software Paper Data Analysis", "Title",
 CellChangeTimes->{{3.719606471845965*^9, 3.719606478295146*^9}, {
  3.7269235411347647`*^9, 3.7269235496701107`*^9}, {3.726924385548077*^9, 
  3.726924387619165*^9}},ExpressionUUID->"2d6f6f39-7656-4852-8114-\
ddf5567954bc"],

Cell[CellGroupData[{

Cell["Functions And Constants", "Chapter",
 CellChangeTimes->{{3.719606480644713*^9, 3.719606483293655*^9}, {
  3.729433262960289*^9, 3.7294332638385897`*^9}, {3.729441508236548*^9, 
  3.729441508563078*^9}, {3.7317625262898693`*^9, 3.731762528597271*^9}, {
  3.737720112818437*^9, 
  3.737720114994378*^9}},ExpressionUUID->"730dcf91-3e4a-44fa-b20a-\
3bb895bd80a7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"baseFolders", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "baseFolderRIDL", ",", "baseFolderWolbachia", ",", 
     "baseFolderWolbachiaRadiation", ",", "baseFolderCRISPRSIT", ",", 
     "baseFolderfsRIDL", ",", "basefsRIDLEgg", ",", "baseRIDLEgg"}], "}"}], 
   "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<RIDL/\>\"", ",", "\"\<Wolbachia/\>\"", ",", 
     "\"\<WolbachiaRadiation/\>\"", ",", "\"\<CRISPR_SIT/\>\"", ",", 
     "\"\<fsRIDL/\>\"", ",", "\"\<fsRIDL_Egg/\>\"", ",", 
     "\"\<RIDL_Egg/\>\""}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "repFolderRIDL", ",", "repFolderWolbachia", ",", 
    "repFolderWolbachiaRadiation", ",", "repFolderCRISPRSIT", ",", 
    "repFolderfsRIDL", ",", "repFolderfsRIDLEgg", ",", "repFolderRIDLEgg"}], 
   "}"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#", "<>", "\"\<Repetitions/\>\""}], ")"}], "&"}], "/@", 
   "baseFolders"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "meanFolderRIDL", ",", "meanFolderWolbachia", ",", 
     "meanFolderWolbachiaRadiation", ",", "meanFolderCRISPRSIT", ",", 
     "meanFolderfsRIDL", ",", "meanFolderfsRIDLEgg", ",", 
     "meanFolderRIDLEgg"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"#", "<>", "\"\<Mean/\>\""}], ")"}], "&"}], "/@", 
    "baseFolders"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", "Functions", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ImportAndReshapeData", "[", "folderName_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "fileNames", ",", "raw", ",", "data", ",", "dataTotal", ",", 
      "maleFileNames", ",", "femaleFileNames", ",", "rawMale", ",", 
      "rawFemale", ",", "dataMale", ",", "dataFemale", ",", "dataTotalMale", 
      ",", "dataTotalFemale", ",", "genotypes"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fileNames", "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"maleFileNames", ",", "femaleFileNames"}], "}"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"FileNames", "[", 
          RowBox[{"folderName", "<>", "\"\</\>\"", "<>", "#"}], "]"}], "&"}], 
        "/@", 
        RowBox[{"{", 
         RowBox[{"\"\<ADM*.csv\>\"", ",", "\"\<AF1*.csv\>\""}], "}"}]}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"raw", "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"rawMale", ",", "rawFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ParallelMap", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Import", "[", "#", "]"}], "&"}], ",", "i"}], "]"}], ",", 
         
         RowBox[{"{", 
          RowBox[{"i", ",", "fileNames"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"data", "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dataMale", ",", "dataFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"2", ";;", "All"}], ",", 
              RowBox[{"3", ";;", "All"}]}], "]"}], "]"}], "&"}], "/@", "i"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "raw"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dataTotal", "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dataTotalMale", ",", "dataTotalFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "/@", 
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Total", "/@", "#"}], ",", "#"}], "}"}], "]"}]}], 
           "&"}], "/@", "i"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "data"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"genotypes", "=", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"rawMale", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"3", ";;", "All"}]}], "]"}], "]"}], ",", "\"\<Total\>\""}],
        "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"genotypes", ",", "dataTotal"}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CreateColorBlend", "[", 
   RowBox[{"genotypes_", ",", "colorSchemeName_", ",", 
    RowBox[{"{", 
     RowBox[{"markerSize_", ",", "labelStyle_"}], "}"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"colorPalette", ",", "colorPairs", ",", "colorSwatch"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"colorPalette", "=", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"ColorData", "[", "colorSchemeName", "]"}], "[", "#", 
           "]"}], "&"}], "/@", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "1", ",", 
           RowBox[{"1", "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Length", "[", "genotypes", "]"}], "-", "1"}], 
             ")"}]}]}], "]"}]}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Black", ",", ".75"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"colorPairs", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{"genotypes", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "\"\<Total\>\""}], 
          "]"}], ",", "colorPalette"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"colorSwatch", "=", 
      RowBox[{"SwatchLegend", "[", 
       RowBox[{
        RowBox[{"colorPairs", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"colorPairs", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"LegendMarkerSize", "\[Rule]", "markerSize"}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", "labelStyle"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Column\>\"", ",", "1"}], "}"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"colorPalette", ",", "colorSwatch"}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AggregatePopulationByGenotypeIndices", "[", 
   RowBox[{"populationDatasets_", ",", "genotypesIndicesToAggregate_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"popsDatasets", ",", "geneLabels"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"popsDatasets", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Total", "/@", 
            RowBox[{"populationDatasets", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All", ",", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], "&"}], "/@",
           "genotypesIndicesToAggregate"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "populationDatasets", "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"geneLabels", "=", 
      RowBox[{"genotypesIndicesToAggregate", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"geneLabels", ",", 
       RowBox[{"AddTotalPopulationToDataset", "[", "popsDatasets", "]"}]}], 
      "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AddTotalPopulationToDataset", "[", "dataset_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Append", "[", 
        RowBox[{"#", ",", 
         RowBox[{"Total", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
      RowBox[{"dataset", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "dataset", "]"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"topRangeGlobal", ",", "topTimeGlobal"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"12000", ",", "400"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Themes`AddThemeRules", "[", 
  RowBox[{"\"\<BrushStrokes\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataAggregateTransposed", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "i"}], "]"}], "]"}], "/", "2"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", "/", "5"}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], "\[IndentingNewLine]", ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#", ",", "30"}], "]"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Allele Count\>\"", ",", 
          RowBox[{"Rotate", "[", 
           RowBox[{"\"\<\>\"", ",", 
            RowBox[{
             RowBox[{"-", "90"}], "Degree"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Time\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}], ",", 
      RowBox[{"{", "2", "}"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thickness", "[", ".00125", "]"}], "]"}]}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "topRangeGlobal", ",", "5000"}], "]"}], ",", 
        "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "topTimeGlobal", ",", "200"}], "]"}], ",", 
        "None"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"FrameTicksStyle", "\[Rule]", 
    RowBox[{"Directive", "[", "20", "]"}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"ImageSize", "\[Rule]", "1500"}], "\[IndentingNewLine]", ",", 
   RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Speed\>\""}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "topTimeGlobal"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "topRangeGlobal"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"DefaultPlotStyle", "\[Rule]", 
    RowBox[{"Thread", "@", 
     RowBox[{"Directive", "[", 
      RowBox[{
       RowBox[{"Thickness", "[", ".00075", "]"}], ",", 
       RowBox[{"Opacity", "[", ".025", "]"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"Flatten", "[", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Thickness", "[", ".000075", "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"#", ",", "topRange"}], "}"}]}], "}"}], "]"}], "&"}], "/@",
         "releasesPattern"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Opacity", "[", "0", "]"}], ",", "LightRed", ",", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thickness", "[", ".000075", "]"}], "]"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Rectangle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", "releasesPattern", "]"}], ",", "0"}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", "releasesPattern", "]"}], ",", "topRange"}], 
          "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.7377198019873962`*^9, 3.737719881158099*^9}, {
   3.737720110745285*^9, 3.737720131250606*^9}, {3.737721212730797*^9, 
   3.7377213353085747`*^9}, {3.737721372963934*^9, 3.737721374238364*^9}, {
   3.737722486811116*^9, 3.737722598492025*^9}, {3.7377275817690973`*^9, 
   3.737727581963849*^9}, {3.7378053160078287`*^9, 3.737805367757805*^9}, 
   3.7380019662014303`*^9, {3.738005119363777*^9, 3.738005119541009*^9}, {
   3.7380053600759487`*^9, 3.738005405447691*^9}, {3.738005449851552*^9, 
   3.7380054504682283`*^9}, {3.738005493093652*^9, 3.7380054977299213`*^9}, {
   3.738440080455381*^9, 3.738440111961534*^9}, {3.738518400146637*^9, 
   3.738518519165558*^9}, {3.738526799216745*^9, 3.738526840107175*^9}, {
   3.739015677787972*^9, 3.739015685109055*^9}, {3.739015732111864*^9, 
   3.73901580552664*^9}, {3.739016089975305*^9, 
   3.739016111179081*^9}},ExpressionUUID->"55f9b925-3080-4c88-ac23-\
8157c18938de"],

Cell[BoxData["\<\"/Users/sanchez.hmsc/odrive/MGDrivE_Experiments/CRISPR_SIT\"\
\>"], "Output",
 CellChangeTimes->{
  3.7377198073933563`*^9, 3.737719881875703*^9, {3.737720123513259*^9, 
   3.73772013156664*^9}, {3.737721290294745*^9, 3.737721335653235*^9}, 
   3.737721375003083*^9, 3.737722449028373*^9, {3.7377224943588867`*^9, 
   3.737722519349884*^9}, {3.7377225640350447`*^9, 3.737722598830789*^9}, 
   3.737727582484867*^9, 3.737729284231164*^9, 3.73780464232994*^9, {
   3.737805340683423*^9, 3.737805368639079*^9}, 3.7378060152462606`*^9, 
   3.737806332031913*^9, 3.737806902584382*^9, 3.7378101628413677`*^9, 
   3.737811093136303*^9, 3.7378118090416737`*^9, 3.738001052267705*^9, 
   3.738001887547159*^9, 3.738001966354899*^9, 3.738004600049004*^9, 
   3.738005406356618*^9, 3.7380054980473537`*^9, 3.738005560587672*^9, 
   3.738005937245748*^9, 3.73800601205547*^9, 3.7383300772146873`*^9, 
   3.7383302168733063`*^9, 3.738335332430764*^9, 3.7383384246143208`*^9, 
   3.738353890430894*^9, 3.738353974269285*^9, 3.738356155257172*^9, 
   3.738409183976782*^9, 3.738410007946558*^9, 3.738422079089614*^9, 
   3.7384312020237226`*^9, 3.738440117148234*^9, 3.7385181850121527`*^9, {
   3.7385184725931673`*^9, 3.7385185200737877`*^9}, 3.738526841690074*^9, 
   3.738669915658139*^9, 3.7386949153623238`*^9, 3.738931219437492*^9, {
   3.7389323679205647`*^9, 3.738932380666607*^9}, 3.738936968520852*^9, 
   3.7390161197555113`*^9, 3.739131439006119*^9, 3.739548901721879*^9, 
   3.739559070169177*^9, 3.739639087717136*^9, 3.739639241733539*^9, 
   3.739651718121347*^9, 3.739705272969179*^9, 3.7397279422111177`*^9, 
   3.739730948374173*^9, 3.7397381741148767`*^9, 3.739879127631803*^9, 
   3.7399077706007967`*^9, 3.74113350854253*^9, 3.7411707710665617`*^9, {
   3.741170977350801*^9, 3.741170989627211*^9}, 3.741294791517909*^9, 
   3.741361653455905*^9, 
   3.741361694360661*^9},ExpressionUUID->"4020aa8f-0605-4eff-95fb-\
cdc7d2fb7943"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"RIDL/\"\>", ",", "\<\"Wolbachia/\"\>", 
   ",", "\<\"WolbachiaRadiation/\"\>", ",", "\<\"CRISPR_SIT/\"\>", 
   ",", "\<\"fsRIDL/\"\>", ",", "\<\"fsRIDL_Egg/\"\>", 
   ",", "\<\"RIDL_Egg/\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7377198073933563`*^9, 3.737719881875703*^9, {3.737720123513259*^9, 
   3.73772013156664*^9}, {3.737721290294745*^9, 3.737721335653235*^9}, 
   3.737721375003083*^9, 3.737722449028373*^9, {3.7377224943588867`*^9, 
   3.737722519349884*^9}, {3.7377225640350447`*^9, 3.737722598830789*^9}, 
   3.737727582484867*^9, 3.737729284231164*^9, 3.73780464232994*^9, {
   3.737805340683423*^9, 3.737805368639079*^9}, 3.7378060152462606`*^9, 
   3.737806332031913*^9, 3.737806902584382*^9, 3.7378101628413677`*^9, 
   3.737811093136303*^9, 3.7378118090416737`*^9, 3.738001052267705*^9, 
   3.738001887547159*^9, 3.738001966354899*^9, 3.738004600049004*^9, 
   3.738005406356618*^9, 3.7380054980473537`*^9, 3.738005560587672*^9, 
   3.738005937245748*^9, 3.73800601205547*^9, 3.7383300772146873`*^9, 
   3.7383302168733063`*^9, 3.738335332430764*^9, 3.7383384246143208`*^9, 
   3.738353890430894*^9, 3.738353974269285*^9, 3.738356155257172*^9, 
   3.738409183976782*^9, 3.738410007946558*^9, 3.738422079089614*^9, 
   3.7384312020237226`*^9, 3.738440117148234*^9, 3.7385181850121527`*^9, {
   3.7385184725931673`*^9, 3.7385185200737877`*^9}, 3.738526841690074*^9, 
   3.738669915658139*^9, 3.7386949153623238`*^9, 3.738931219437492*^9, {
   3.7389323679205647`*^9, 3.738932380666607*^9}, 3.738936968520852*^9, 
   3.7390161197555113`*^9, 3.739131439006119*^9, 3.739548901721879*^9, 
   3.739559070169177*^9, 3.739639087717136*^9, 3.739639241733539*^9, 
   3.739651718121347*^9, 3.739705272969179*^9, 3.7397279422111177`*^9, 
   3.739730948374173*^9, 3.7397381741148767`*^9, 3.739879127631803*^9, 
   3.7399077706007967`*^9, 3.74113350854253*^9, 3.7411707710665617`*^9, {
   3.741170977350801*^9, 3.741170989627211*^9}, 3.741294791517909*^9, 
   3.741361653455905*^9, 
   3.741361694376794*^9},ExpressionUUID->"f00c1e07-d196-4c79-a647-\
1e975f48589a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"RIDL/Repetitions/\"\>", ",", "\<\"Wolbachia/Repetitions/\"\>", 
   ",", "\<\"WolbachiaRadiation/Repetitions/\"\>", 
   ",", "\<\"CRISPR_SIT/Repetitions/\"\>", ",", "\<\"fsRIDL/Repetitions/\"\>",
    ",", "\<\"fsRIDL_Egg/Repetitions/\"\>", 
   ",", "\<\"RIDL_Egg/Repetitions/\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7377198073933563`*^9, 3.737719881875703*^9, {3.737720123513259*^9, 
   3.73772013156664*^9}, {3.737721290294745*^9, 3.737721335653235*^9}, 
   3.737721375003083*^9, 3.737722449028373*^9, {3.7377224943588867`*^9, 
   3.737722519349884*^9}, {3.7377225640350447`*^9, 3.737722598830789*^9}, 
   3.737727582484867*^9, 3.737729284231164*^9, 3.73780464232994*^9, {
   3.737805340683423*^9, 3.737805368639079*^9}, 3.7378060152462606`*^9, 
   3.737806332031913*^9, 3.737806902584382*^9, 3.7378101628413677`*^9, 
   3.737811093136303*^9, 3.7378118090416737`*^9, 3.738001052267705*^9, 
   3.738001887547159*^9, 3.738001966354899*^9, 3.738004600049004*^9, 
   3.738005406356618*^9, 3.7380054980473537`*^9, 3.738005560587672*^9, 
   3.738005937245748*^9, 3.73800601205547*^9, 3.7383300772146873`*^9, 
   3.7383302168733063`*^9, 3.738335332430764*^9, 3.7383384246143208`*^9, 
   3.738353890430894*^9, 3.738353974269285*^9, 3.738356155257172*^9, 
   3.738409183976782*^9, 3.738410007946558*^9, 3.738422079089614*^9, 
   3.7384312020237226`*^9, 3.738440117148234*^9, 3.7385181850121527`*^9, {
   3.7385184725931673`*^9, 3.7385185200737877`*^9}, 3.738526841690074*^9, 
   3.738669915658139*^9, 3.7386949153623238`*^9, 3.738931219437492*^9, {
   3.7389323679205647`*^9, 3.738932380666607*^9}, 3.738936968520852*^9, 
   3.7390161197555113`*^9, 3.739131439006119*^9, 3.739548901721879*^9, 
   3.739559070169177*^9, 3.739639087717136*^9, 3.739639241733539*^9, 
   3.739651718121347*^9, 3.739705272969179*^9, 3.7397279422111177`*^9, 
   3.739730948374173*^9, 3.7397381741148767`*^9, 3.739879127631803*^9, 
   3.7399077706007967`*^9, 3.74113350854253*^9, 3.7411707710665617`*^9, {
   3.741170977350801*^9, 3.741170989627211*^9}, 3.741294791517909*^9, 
   3.741361653455905*^9, 
   3.741361694386352*^9},ExpressionUUID->"b54d1512-59d7-4169-862b-\
83d6900ccc5c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"RIDL/Mean/\"\>", ",", "\<\"Wolbachia/Mean/\"\>", 
   ",", "\<\"WolbachiaRadiation/Mean/\"\>", ",", "\<\"CRISPR_SIT/Mean/\"\>", 
   ",", "\<\"fsRIDL/Mean/\"\>", ",", "\<\"fsRIDL_Egg/Mean/\"\>", 
   ",", "\<\"RIDL_Egg/Mean/\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7377198073933563`*^9, 3.737719881875703*^9, {3.737720123513259*^9, 
   3.73772013156664*^9}, {3.737721290294745*^9, 3.737721335653235*^9}, 
   3.737721375003083*^9, 3.737722449028373*^9, {3.7377224943588867`*^9, 
   3.737722519349884*^9}, {3.7377225640350447`*^9, 3.737722598830789*^9}, 
   3.737727582484867*^9, 3.737729284231164*^9, 3.73780464232994*^9, {
   3.737805340683423*^9, 3.737805368639079*^9}, 3.7378060152462606`*^9, 
   3.737806332031913*^9, 3.737806902584382*^9, 3.7378101628413677`*^9, 
   3.737811093136303*^9, 3.7378118090416737`*^9, 3.738001052267705*^9, 
   3.738001887547159*^9, 3.738001966354899*^9, 3.738004600049004*^9, 
   3.738005406356618*^9, 3.7380054980473537`*^9, 3.738005560587672*^9, 
   3.738005937245748*^9, 3.73800601205547*^9, 3.7383300772146873`*^9, 
   3.7383302168733063`*^9, 3.738335332430764*^9, 3.7383384246143208`*^9, 
   3.738353890430894*^9, 3.738353974269285*^9, 3.738356155257172*^9, 
   3.738409183976782*^9, 3.738410007946558*^9, 3.738422079089614*^9, 
   3.7384312020237226`*^9, 3.738440117148234*^9, 3.7385181850121527`*^9, {
   3.7385184725931673`*^9, 3.7385185200737877`*^9}, 3.738526841690074*^9, 
   3.738669915658139*^9, 3.7386949153623238`*^9, 3.738931219437492*^9, {
   3.7389323679205647`*^9, 3.738932380666607*^9}, 3.738936968520852*^9, 
   3.7390161197555113`*^9, 3.739131439006119*^9, 3.739548901721879*^9, 
   3.739559070169177*^9, 3.739639087717136*^9, 3.739639241733539*^9, 
   3.739651718121347*^9, 3.739705272969179*^9, 3.7397279422111177`*^9, 
   3.739730948374173*^9, 3.7397381741148767`*^9, 3.739879127631803*^9, 
   3.7399077706007967`*^9, 3.74113350854253*^9, 3.7411707710665617`*^9, {
   3.741170977350801*^9, 3.741170989627211*^9}, 3.741294791517909*^9, 
   3.741361653455905*^9, 
   3.741361694395464*^9},ExpressionUUID->"9caf3522-218a-4acb-84d3-\
68a754da8329"],

Cell[BoxData[
 TemplateBox[{
  "Part","pkspec1",
   "\"The expression \\!\\(\\*RowBox[{\\\"i\\\"}]\\) cannot be used as a part \
specification.\"",2,20,2,30055286195644721867,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.741361653527582*^9, 
  3.7413616944044313`*^9},ExpressionUUID->"7f0894f4-a96b-4cfd-af6d-\
0c8a9a7a8d7b"],

Cell[BoxData["\<\"BrushStrokes\"\>"], "Output",
 CellChangeTimes->{
  3.7377198073933563`*^9, 3.737719881875703*^9, {3.737720123513259*^9, 
   3.73772013156664*^9}, {3.737721290294745*^9, 3.737721335653235*^9}, 
   3.737721375003083*^9, 3.737722449028373*^9, {3.7377224943588867`*^9, 
   3.737722519349884*^9}, {3.7377225640350447`*^9, 3.737722598830789*^9}, 
   3.737727582484867*^9, 3.737729284231164*^9, 3.73780464232994*^9, {
   3.737805340683423*^9, 3.737805368639079*^9}, 3.7378060152462606`*^9, 
   3.737806332031913*^9, 3.737806902584382*^9, 3.7378101628413677`*^9, 
   3.737811093136303*^9, 3.7378118090416737`*^9, 3.738001052267705*^9, 
   3.738001887547159*^9, 3.738001966354899*^9, 3.738004600049004*^9, 
   3.738005406356618*^9, 3.7380054980473537`*^9, 3.738005560587672*^9, 
   3.738005937245748*^9, 3.73800601205547*^9, 3.7383300772146873`*^9, 
   3.7383302168733063`*^9, 3.738335332430764*^9, 3.7383384246143208`*^9, 
   3.738353890430894*^9, 3.738353974269285*^9, 3.738356155257172*^9, 
   3.738409183976782*^9, 3.738410007946558*^9, 3.738422079089614*^9, 
   3.7384312020237226`*^9, 3.738440117148234*^9, 3.7385181850121527`*^9, {
   3.7385184725931673`*^9, 3.7385185200737877`*^9}, 3.738526841690074*^9, 
   3.738669915658139*^9, 3.7386949153623238`*^9, 3.738931219437492*^9, {
   3.7389323679205647`*^9, 3.738932380666607*^9}, 3.738936968520852*^9, 
   3.7390161197555113`*^9, 3.739131439006119*^9, 3.739548901721879*^9, 
   3.739559070169177*^9, 3.739639087717136*^9, 3.739639241733539*^9, 
   3.739651718121347*^9, 3.739705272969179*^9, 3.7397279422111177`*^9, 
   3.739730948374173*^9, 3.7397381741148767`*^9, 3.739879127631803*^9, 
   3.7399077706007967`*^9, 3.74113350854253*^9, 3.7411707710665617`*^9, {
   3.741170977350801*^9, 3.741170989627211*^9}, 3.741294791517909*^9, 
   3.741361653455905*^9, 
   3.7413616944112453`*^9},ExpressionUUID->"b83e5835-2485-4072-966a-\
81df8aeeb429"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Paper Plots", "Chapter",
 CellChangeTimes->{{3.729359830128415*^9, 
  3.729359833961483*^9}},ExpressionUUID->"c34efbaf-7f2e-4295-966d-\
bf0ab17a22aa"],

Cell[CellGroupData[{

Cell["\[Mu] Sweep", "Subchapter",
 CellChangeTimes->{{3.739558201064348*^9, 3.739558207759872*^9}, {
  3.739564673665222*^9, 3.739564673903603*^9}, {3.7397059201252003`*^9, 
  3.7397059208953037`*^9}},ExpressionUUID->"18942a17-b432-4634-8a2d-\
538d94020127"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"folders", "=", 
   RowBox[{
    RowBox[{"FileNames", "[", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], "<>", 
      "\"\</ParameterSweeps/LifespanReduction/Repetitions/\>\"", "<>", 
      "\"\<0*\>\""}], "]"}], "//", "Reverse"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"levels", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"Last", "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"StringSplit", "[", 
           RowBox[{"#", ",", "\"\</\>\""}], "]"}], "&"}], "/@", "folders"}], 
        ")"}]}], "]"}], "/", "1000"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wildIndex", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"genotypesIndicesToAggregate", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<W\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<R\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3", ",", "3"}], "}"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataTotals", "=", 
   RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"folder", "=", 
       RowBox[{"folders", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"files", "=", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"filesMale", ",", "filesFemale"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</ADM*\>\""}], "]"}], ",", 
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</AF1_Aggregate*\>\""}], "]"}]}], 
         "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dataMale", ",", "dataFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Import", "[", "#", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"2", ";;", "All"}], ",", 
              RowBox[{"3", ";;", "All"}]}], "]"}], "]"}], "&"}], "/@", "i"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "files"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataTotal", "=", "dataFemale"}], 
      RowBox[{"(*", "dataFemale", 
       RowBox[{"(*", 
        RowBox[{"(", 
         RowBox[{"dataMale", "+", "dataFemale"}], ")"}], "*)"}], "*)"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataAggregate", "=", 
       RowBox[{
        RowBox[{"AggregatePopulationByGenotypeIndices", "[", 
         RowBox[{"dataTotal", ",", "genotypesIndicesToAggregate"}], "]"}], 
        "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dataAggregateTransposed", "=", 
       RowBox[{"Transpose", "/@", "dataAggregate"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Median", "/@", 
        RowBox[{"(", 
         RowBox[{"dataAggregateTransposed", "//", "Transpose"}], ")"}]}], "//",
        "N"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "folders", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7395581174249687`*^9, 3.739558122319133*^9}, {
   3.739558224642312*^9, 3.739558255999302*^9}, {3.739558289344817*^9, 
   3.739558335472151*^9}, {3.739558532789179*^9, 3.739558533047173*^9}, {
   3.739558591600675*^9, 3.739558634996447*^9}, {3.739558833775436*^9, 
   3.739558906476029*^9}, {3.7395590404981127`*^9, 3.739559057457623*^9}, {
   3.739559156516121*^9, 3.739559156966012*^9}, {3.739559678119132*^9, 
   3.739559731348674*^9}, {3.73955979271987*^9, 3.7395598170492687`*^9}, {
   3.739561709802397*^9, 3.739561710757423*^9}, {3.7395625414204073`*^9, 
   3.739562541794407*^9}, {3.739563296217326*^9, 3.739563335223094*^9}, {
   3.739563371016466*^9, 3.73956337700992*^9}, {3.7395634545103407`*^9, 
   3.739563459559616*^9}, {3.739563512482727*^9, 3.7395635165967903`*^9}, {
   3.73956355849058*^9, 3.739563565114977*^9}, {3.739563676090049*^9, 
   3.739563677142707*^9}, {3.7395641034857903`*^9, 3.739564126623106*^9}, {
   3.739564168878416*^9, 3.73956419467338*^9}, {3.739564680130353*^9, 
   3.739564680251964*^9}, 3.7396212859553757`*^9, 3.7396213227895107`*^9, 
   3.739622978922861*^9, {3.739625848151396*^9, 3.739625848647811*^9}, 
   3.739639315308179*^9, {3.739640168283667*^9, 3.739640169297978*^9}, {
   3.7396464939910707`*^9, 3.739646494136265*^9}, {3.739730951916876*^9, 
   3.739730952432136*^9}, 3.739887096907321*^9, {3.739888809801752*^9, 
   3.739888812368835*^9}, {3.741295014244934*^9, 3.7412950169824047`*^9}, {
   3.741361892369416*^9, 
   3.741361893897284*^9}},ExpressionUUID->"9c874fcf-167e-4e99-b9dd-\
b8a6606f4b57"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"listLine", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"dataTotals", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", "All"}], ",", "wildIndex"}], "]"}], "]"}], "/", 
     "2"}], "\[IndentingNewLine]", ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "75"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Time (days)\>\"", ",", "\"\<No. adult female\\nmosquitoes\>\""}],
         "}"}]}], ")"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameStyle", "\[Rule]", "Thick"}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5000", ",", "\"\<5k\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10000", ",", "\"\<10k\>\""}], "}"}]}], "}"}], ",", 
         "None"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"0", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"0", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"1", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"2", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"3", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"3", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"4", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"4", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"5", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"5", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"6", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"6", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"220", ",", "200"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"320", ",", "300"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"365", "+", "20"}], ",", "365"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"420", ",", "400"}], "}"}]}], "}"}], ",", "None"}], 
        "}"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameTicksStyle", "\[Rule]", "40"}], "\[IndentingNewLine]", ",", 
    
    RowBox[{"GridLines", "\[Rule]", "Automatic"}], "\[IndentingNewLine]", ",", 
    RowBox[{"GridLinesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", 
       RowBox[{"Opacity", "[", ".15", "]"}]}], "]"}]}], "\[IndentingNewLine]",
     ",", 
    RowBox[{"ImageSize", "\[Rule]", "1500"}], "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<pgSIT Eggs (100:1)\>\"", ",", "100"}], "]"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"17.5", ",", 
         RowBox[{"365", "+", "20"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "11000"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"Opacity", "[", ".75", "]"}], ",", 
        RowBox[{"Thickness", "[", ".0075", "]"}]}], "]"}], "}"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"SwatchLegend", "[", 
      RowBox[{"Automatic", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"StringPadRight", "[", 
          RowBox[{"#", ",", "4", ",", "\"\<0\>\""}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"ToString", "/@", "levels"}], ")"}]}], ",", 
       RowBox[{"LegendMarkerSize", "\[Rule]", "50"}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", "40"}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Lifespan\\nReduction\>\"", ",", "40"}], "]"}]}]}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Lifespan100Line.pdf\>\"", ",", "listLine"}], "]"}]}], "Input",
 CellChangeTimes->{{3.739728038754592*^9, 3.739728437920631*^9}, {
   3.7397284687320957`*^9, 3.739728475229534*^9}, {3.7397285207912893`*^9, 
   3.7397286006417933`*^9}, {3.7397296233269157`*^9, 3.739729643149744*^9}, 
   3.739729692852105*^9, {3.7397311119148006`*^9, 3.739731115154464*^9}, {
   3.739731857582295*^9, 3.73973187260676*^9}, {3.7397359193259*^9, 
   3.739735968140768*^9}, {3.7397362191572313`*^9, 3.7397362194110603`*^9}, {
   3.73973670931913*^9, 3.739736709713224*^9}, {3.739738015193675*^9, 
   3.7397380522022552`*^9}, {3.739738110404388*^9, 3.739738125963025*^9}, 
   3.739738357811326*^9, {3.73990887064624*^9, 3.739908870939725*^9}, 
   3.739908910955452*^9, {3.741295023524143*^9, 3.741295023675784*^9}, {
   3.741361862055654*^9, 
   3.741361862258753*^9}},ExpressionUUID->"7a9ad380-711e-4096-b76f-\
58258e2a633e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd2FlsVHUUx/G/4sqSNEAibvFCCBJBGS0iIsrf4oIidigiKtuVRZZaGRQK
uPEXwQ2FGkWJAblFVESQgmgRUC5IwgNqmhhiiA9eUaPxQZso+KAhas/3N8lc
Xk4+nG1OS+md6T1tXt3M051zq09z7v9of9pHdIRnP/f8ha/0OR3RPyNXdcR0
hdzT4vNyL4vl/EW5eVFHDOX6Puby/L7m5+R+uf39bX953mU5DzS/KF9h81bK
BZv3knxlLn+V5cuutnmr5MFW/7J8teXLHmL95fprch5qsTz/Wut/QR5m9d3l
68yzDuLhFncewNdbPEu+wWJ9ikdY3Lcfe3v9U3AwuzeUv9Hy3ekPZj9B82os
36y82c1XfqTFvzXfHDpp/k0W+35GHo/+lPzNVr90H3lcj90tFnsqj2ftJX+r
xY17yONvPyE/iv04mMOy3eRvs9iMgzmsUv52c7XyZre7lfxoi9U4mMP2j8nf
YfEaHHC98mOsfq7yuIvyd5rXfETe7C7Ertbihl3kzeFK7IoWJ2Kfc8ARTs3h
ow/pH2uuw97sftpJP16BU7wfuzrrP4w9XqN+sxuqfnx0B/3jrH4B9vgiHPAE
nJqd6t1dFkeoH//RQr85rMUprsFuvMVj2+k3h0Hqx7Xqx5eo/26LrerHPXDA
8z6gHx/bRv8EizF5j9fhgCepHx9X/z0W67DHO7bSjy/GKd6C3b0W/8Ie71U/
Hq1+5d+n/z6L1djjzVvoxwXyKV6i/okW71A//kb9eDxO8Zfv0T/J4jjs8a84
4KvUj8/FbrLFt9SPC+rH2zfTj4dgN8XiHuxxV/XjTP34cfVPtXjqXfpxwAGf
iVO8HrvY4gkc4SOah+fjGHfWfPzaOxYT3BuneBvOcFftv9/iSfIRXos9HoBj
vPtt9uPxOMHHcIprtB/3wm6axUPUR3gG9vi3TezHy3HA3bQfN2g/rsUZPgO7
6RbXMS/CV2CPv3iL/bhW+/EunODNOMVzcYY7YTfDYjPzI1yDPd6r/fg87cen
yCf4AE7xZJzhfzayf6bFTTjCkfbjpdqPG3DA/bQfH2Feih/EGe6u/Q9YXK39
+AT2+Acc48044DE4wSeb2Y/X4Ax31f5ZFpdoP56t/fhS7cffMC/gFTjBw7Qf
b9F+3EX7Z1s8QT7C+7DHc3CMq7Qftybsx0O1H7+q/Xg5dnMs3qj9+C/mefwm
jvFoHPAh7cf9tB9foP34B+rdXIvrcIRHaT/+ZQP7cYP2424b2Y8v188fPqz/
f/AT+v1Tb7EPvx8j/LF+n5vDMp4XYvL79XyDd/F8lFD/Cs9jKZ7K81tG/fl6
PnzQ8s04Mjs9X3ryM3FM/oieR/Eonm8T6o/iFM/h+TijvpuevxssvwtHeCLP
697szuZ5Pia/Hgfyg3j+T/BBnFI/lfcTGfnv9f7iIctP4v1HZHZfYY+reb8S
U/+63s+Q/xMn5rQ3739SPBZn9Dfq/dG8jujX4ggfwB4fx7G5/P4umNP+OKH+
FpySn4Uzc1ih94cly2/AVeawB0fkv8IFs/sZe+rdQXORfA8ck++LS8wbjgP5
MbjJ7CfihHkNuIX+pTilfyVuo/5VnJHfhNvJb8Vuvs1rxVXmcAhHZv81LuDv
sKf/R1zEv+OYeSdxifwpHJh3Ju/vm3BnnNDfA7fgXjg1u964jXx/nDFvAG7H
A/V5wsPmIbjK7AbjyJwOxwU8Ans8EhfNoQbHzBuDS7gWB/qLup/+8bqf+nt1
P6/3Pt1P/TTdz7zZup/6Gbqf/Ezd/4jF6bofqz8yp/W63xwadD/5ku7POTb7
ebqf+XJgXqPup/5h3U+98i3MX6T78eO6n/oluj/n9tw8t8DiQt1vDo/qfvJP
6P4Flfu82T+m+3P5mLzmlZinfKA+6H72L9P95JfrfvyU7qde/W25/oz9qm+n
/0ndv9Ci6qsWVs6LzF4uYH2e6anX6ysyT/l4YeV9Jfr1eWagXp9XNjFPTujX
54Et1Ovzw5S8Pg9tw5qfYb2+9tzrdY3mp3W/OZUjrHsKjbn76df+Ita9sdlp
Xol+OeDy/fRrfpLb30Je9Sn9ureNffo8NWvM3Z97PW5R5b6qRZX1Eda/n8Ki
yn6P9XqKuPz9z9WXsL4+gf2a35Tbn1Cvr2+Lufz5d4q1v4169WfMX6r7ma/9
brFZPw9V5vLPZ2Quf78Kiyvv9ebyz1txceU9cW5+aXHl1yMwX6+3iX7dl5Av
f/+Zp/40t7+Nev28ZFj/PtrZ/5//BRWMNPI=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd2H2wTHUYwPEfo9D4Y0mNwszJGAk1G+Ul5JfQ7UU2LyHkELnuDevlcr32
k3cuNkVEnCJJ0UZKRf1QJk3N3BHlj8pphskfptmZDI000/B8nzOz6w/PfPb5
Pb/nPHt3z55z7ho7ZeD4usaYtXWMuR7lX6HX9f/94mOWF25Eu1Td4EZ0iVO2
eH1TicvVzSSuVreQ/VapA9kvcSvZL6lvXeI2EpP1bSW/Qt1O9l+m7lByvPfJ
+iXqtDjJ3y9epO5YMk8nySf7P1ByfA9K/8SdJb9S3UWOJ3FXcTJPN4nJ/g9J
fWN1d4nlR3EP6bf/CO4psaH6Yamv8LiX9Dv4Nbbi4djh9Zp/ROobUe/EdpDu
11viFs2LbdLvUdnvP90f19f9+0hs/xV5POAw+b6yfvEh8ngqNv3Ed2geT/mS
/GMSoy/Ii93Jz8mXiRtjhycdJP84r2MndtM0/4T4Ns2LzZrPyD8p8Z9PyeOp
2DwlsXCAPG6q+f4S62m92OVZb54Wd9J6vOcT8gPEbbATm737yWckfxJb/CN2
2GGf4fi0/hmJW/ZRj+/GDu/7mHr8BzYDZf/z2OK92IlNf63Hv+SpHyTrK7HF
9bETm+7Yk++r9YPFKa0Xm+kfUY+37qUen95D/RCJt2KLx2GH12CPu2r9sxI3
fEg9PvMB9fh27PGM3dQPlXgEW/wndngz9rih1g+TOPR96nG0i3p8+T3qcYa8
GS6xElvcVutxpPW4HjbPSRyzk3p8+F3q8RXscRvWmxHMS97icq3Hp3dQj7tg
M1Lilu3U4xg7/C/2+AQ2oyRmtB6feId6fA/2ePvb1D8v8Sds8WXs8LfY4xFa
P1rizxH1uB92uGYb9fgSNqHEO1kf4KPkLW6BQ/VW9sdN35IY4WAL/XA5jvE6
bMZI7IADvG4z/fG+N+mPv99Ef3xxI/1xE/Ie98MxvsB6M5Y+OMAz3uB1vHED
/fF36+mPz+EI12O9x0fJxzjA5gWJ417ndbzmNfrjU+vojwvY4Ws4wjuwx01w
jGe+Sv9xHF+O/jiFbYlD3Bo7nF9Lf7xxDf1xdjX9cVBD//ESL63kddxgFf1L
HOJy1jscrSCql9Mf55bRH7ul9H+RfXGALbb4hyWswynscHoxfXGPRfTHg1+h
P26NzQTmwwGuWUh/fNHRHzfDDucX0F/z8+mP43lEXI5NucRdc+mPl8+hPw5n
E3Hbavrj/Ez642HY40IV/XGAzUSJXWfwOg6n0x/babyO01Ppj2uz9Nd67HF+
Cv21fjL9K1j/Ev2xqaSv5nXfiuK5HM6Rj3CG/TwuaH+8fFpxn1rejwA34P22
OOTvFeIW+vfHZ/i8RHrc+vnDns9njA/x+TUcp34fAlzG98XiQ1jfJ8f3y+Fr
+v3D5/h+e7yT80WMF3B+M5MkXuZ8GeBTnO8t/obfmxAv099HvJHf3wjv1OsF
vJbrjRgP5HrH8Dmow/VVgBfp9Rg+y/VaiK9yPejwTVw/RniHXm/iIVy/xmLX
kutjI58L9xsOsF6fWz431Vy/h7hMr/dZ35z7g4j8BezJH+B+JMbz9P5Fvieu
G/c/KRzjgO/RUu6f0uRbcH9l8XacYX177sf0e7geZ3Ej7u8c9ZtwDl/FEetn
cn+YJ/879rgX95N6HtiOY/J6/1kg30nvT+U84sbilNguwQHnmTzmvONPY0v+
Cs7gltx/h6zvjbP0G40d+Rk4R34djjie3TjP+uPY0+9XXEv+bxxTf/NR5sfN
sZHzkL0Xp3APHHCeGoDTYjcU63l5Ms7g+TgU+9U4S34bdngvztH/II7IH8F5
+h/HnvxpXEv+LI7Jn8cF8n9hw+/MZZwS26s4wHV5/pJm/S3Yin0TnBE7Nb9j
vjnOkm+FHfu1xTncDkfUd8B58h2xJ98Z15LviWPcCxdY30efJ8nvrivDKbF/
HAd4oM7P7/RQnV9sR+r87DdK5ycf6vzUj9f58USdn/XlOj/7qfPkJ+j85Ct1
fvar0Pk5/kk6P/lpOn9VcX2K3+GpOj95XZ+uKq63Yj9H52d9lc4vttN1fjxL
52d9tc6Pdb8Iz9X5qZ+t89Nf9+M6wmp9TL2uL5T0N3KdZufp/GK3UOcX+wU6
P9d1L+v85PV5aabEIfvp89Ys9WpHf31+nKNen49GWNfrdaY+H/Xsr89ba1mv
jlmv+xXI1+j8s6S/7p/C+jw4EDudJy02eryW9cn8WI8vnFXcP4v1ebVjf3Wu
JB9hnSdf0t+XHH9tyfHH4uT5eIF8Mr9cxzt9Pp8SJ8+vA6z5dHXxPJa8OiNO
3t+wuni+LPWad+S1X666ZP7q4vnyOPn7VxfPV1uSj9lf368CXnXM/g8iPhxa

         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd12/MlXMcx/Ff2Nw2s7PlQQ/aXDVawzgVSairQv7FEZFUrv4RUielGtEv
7lJpOv4lMS6E/ImD9B8/emI2djZN5tE1j7Wdh2w9sPq+v7edz3lwf/c639/3
9zn3fc59Xb8zbP6y6YvOCCFsGxTCqWqP7sRTP+OmozlPWN3s7jtd44BrVgfW
ny/rh5yu+YCHnq5pYH1mft49XOYvlP1HyPxImb9YfKnV9e7LrK5z1+31bXCP
st/vOfdo88B+Y2z/gfVXWO13X2n7bXSPtfVb3FfJ+nGy/9VWB+bH236D3dfY
fot/xNea9/+ArzOf455g88sSnmg1fY9zy1+AozmU3p9k/RrzEc/x/Saz3vvm
uMT7Uyw/eN8c+nz/661e8B19c7zhW/o3mNcfoY+X43CjebD3zWHRYfpTre48
RB//dpD+TTZ/Lo7mMOsA/ZutrsLRHOd5/xar/+6nb45LcbjV6u/76OMpONxm
9fA39M3xOA7TzAe9P43X5/3brX9sL31zmIrDHdbf+zV9c7gEh4bVCTg3x4t8
Pf7lK3Ni/Qwc7rTa+ZJ5c2zgiH9tM49P4DDd/BfO8Q4c8eU+bw5rv2D+Lqv9
nzOPt+9hHh/ECX+Nw91WR+Acz/2Medz/KfN41yfMz7B69GPmcYUj/hknPBOH
e6yWu5nHf37EPO7DCU/+kPl7rU7HOZ6CIz7+AfO4jsNMq2t2MY+PvM88Djjh
QTjcZ/XEe8zjTTjik+8yj+/GYZbVPSXz+Gwc8Zk44X3vMH+/1fNw7n6bedx9
i3l86E3mZ/N6dzKPF+KIazjhJW8wP8fqMzuYx/F1Ku7fzjx+9jXm5zKHc9x9
lXk8Fye8/RXmH+D5l5nHx15iHp9ssQ4fwqHg98EZTtvYDzdftFrgv7eyP175
gtUS17awD96x2WqF+3CYhzeRj//ZSD7ubCAf7+onH299jnw8BCe89lny8e71
5M9n/0i+ex35+KenycfZWvJx7Sny8cgnycfdNeTjA6vJX0DOKvbF3ZU8j9sr
yMd/PE4+DrjE9eXk+/5N8nGxlLmFeAn5uPEIc+6HWYfzxeTj7oPk43IR+Qt7
962o/ncJrPP3McP+Ocl9Hz63hdv/z3A2uzc34zqRfH+uWxUuuY4GXrdftzM3
1/kc+32mwNzXQnRzXyxx4j6cvM99vnJzbggPUTlnZNjPKbn3OdcUbs5N0ddP
Jt/7k8h3c66r3BOovI+cI0PmHk++exz5/r6PpXqfc3DpHkO+ezT57lFUPld+
Ls/cnNtz98Xku0eS7x5Bvji5h5MvDnzOwzDy3Rn57qHki6N7CPniJK7E4VEq
35sycS4uxNHN97BSnNx95IvDkl5n4lzs14lwFvluvieW4iSuxOGxXmdu+x4a
cnEhjuJSnMSVOCztdSbOxQPXzYp8N49SnMSVOCzrdSbOxYU4iktxElfi0Ox1
TZyJ6+Jc3BAX4qY4ilviUtwWJ3FHXIm74rC81zVxJq6Lc3FDXIib4ihuiUtx
W5zEHXEl7or93OCPmjgT18W5uCEuxE1xFLfEpbgtTuKOuBJ3xWFFr2viTFwX
5+KGuBA3xVHcEpfitjiJO+JK3BWHlb2uiTNxXZyLG+JC3BRHcUtcitviJO6I
K3FXHJ7odU2cieviXNwQF+KmOIpb4lLcFidxR1yJu+Kwqtc1cSaui3NxQ1yI
m+IobolLcVucxB1xJe6Kw+pe18SZuC7OxQ1xIW6Ko7glLsVtcRJ3xJW4Kw5r
el0TZ+K6OBc3xIW4KY7ilrgUt8VJ3BFX4u7//g8oi8sZ
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd10uMFGUUxfFPYyIxxPSCRE0wFgQJGkLaFyAglLxURGwRERClRAaHUaF5
oxLzKSADKDS+RcTyCSJoi4goKAUmxoWLxpULYyquNemVYWmc+79t+szm5Ne3
Tt2enqaqGLZ01dyei0MIey4K4b+0n/aUgdj2Y8oLA5ludQ8ayKLfXRnI+KJ7
iB2/3X1l2n2+oTJP7Hyd+XCZjzDvcI+0fMU9yuZ73Ndb7nKPtuz0x9i+zvFV
8073DfJ+b7TszG+y43e7bx7I+LL7Ftk/1uad32ecufN+xtv5OvtutfkW9wTL
y90Tbd5zDk8ayPTEWXybzS91T7Z5X4GnWB47g1M7fiGOKb+vz2+3HEw/4nl+
vqmW+3yOO/umWV7w8+PL/PzTLa/+gTme/T3zGfb+tp1mbg5rcZhpeYXPzbHv
FPM7LPd/xxy3vmV+px0/CEe8/CTzuyyfxtEcl/h8lrn9DXO8GIe7LX86wRxf
g8Nsy71fM8cHcbjHcofP8TCfz7F9e44zN4cLXzG/1+Y9OJrD+WPMa5Z/4NQc
T+OI5+MCn/+S/n2WM3Fqjqea9PFYXOCZOMy1vA6nOP+CPj76OX18+ij9+y3P
HqHv/ow+PoMLfACHeZaX4BRfe5g+nvYpfTzvEP0HLFccpI+X4YiruMCHP6E/
3/Lvj+njoTjiGR/Rx6s/pP+g5Ryc4qtwxG9/QB//8z79BZYTcIo35/Txhvfo
+/E4LLQ8d4A+/vNd+vjkfvp48zv0F3G+ffTxX2/Rx4dwgSs4PGS56E36eO4b
9PH01+nj6mv0F1uOfJU+/vkV+ng+LvCRvfQftvy1QR+399DHyW76uPcl+o9Y
Ht9FH/++kz7+ZQd9vL+f/hLLEdvp49+20cf9W+njcgv9zHI0TvCkFzgfTp+3
zPD0yPnxpucsc9y/mX24/ix7ce0Z9j9q2d7EfrxgI3t9vp79OK4jcWUt+3F1
Dftx72r2+/nr7F9q2VrJfhyeYj8u+9iP273sx8Xj7MdxOa/jag/n8fM9xh6y
zusJ9s8h9eP43DLs36OI/XubY/93U/jxC2Qv14GwjOO5LiXYr4upz7nuZm6u
+xFz3wi597kPFW7ua6V7Fsnnwn04JJj7eEh9zn0/8znPEdHnU9nvc55jCp9P
Zr97IsnfyZ+zEhzHs9/n49jv5jnP/848F4bczXNk4a6y3z2G5Hvjz6mJm+fY
1D2K/W6eg6N7BPvdw9kvLt0J2dvtxD2U/W6e4zNxdA9hv7hwV9gvDiu6nbgH
s989iP3iKM7dgf3iUhz6up2IUzf/L8rEUZyLC3EpDk90OxGn4kwcxbm4EJdu
/3my24k4FWfiKM7FhbgU+3W2s1+cijNxFOfiQlyKw0rZL07FmTiKc3EhLsVh
lewXp+JMHMW5uBCX4lDvdkWciKviVFwTZ+K6OIob4lzcFBfilrgUt8Vhdbcr
4kRcFafimjgT18VR3BDn4qa4ELfEpbgtDmu6XREn4qo4FdfEmbgujuKGOBc3
xYW4JS7FbXFY2+2KOBFXxam4Js7EdXEUN8S5uCkuxC1xKW6Lw7puV8SJuCpO
xTVxJq6Lo7ghzsVNcSFuiUtxWxzWd7siTsRVcSquiTNxXRzFDXEubooLcUtc
itvisKHbFXEiropTcU2cieviKG6Ic3FTXIhb4lLcFoeN3a6IE3FVnIpr4kxc
F0dxQ5yLm+JC3BKX4rY4bOp2RZyIq+JUXBNn4ro4ihviXNwUF+KWuBS3//e/
4L2t8w==
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd10msFFUUxvGrKxIxaRMkhBBT4kSIkgZBQKYLDiCgtoiKA1IiKMrUTEIg
xiuKgE+gFUdELRUUFbVFxREpNRoWxnR048JFLTS6cNFLF8YYOP/zTH+9eCe/
Ove7p+u911XV5y5ePW/p6SGEPaeFcLLaqzvt5M+489vIgVM19XvAqVo+7q7F
3vWDbP0T7iFWt7uHWb5/fWa1f7/hlu9zny/zL5T9Rsi8keY97out7naPsn7/
vLq5vz9aPMbOr//9XGp1l3us1f7+OFvfP/8yOb/xp+r/5z9Bzm+i9Vvuy60/
2D3J+su+wZNt3tGv8RRbf4Z7qnltiadZ/f44jlaX4IQL70+3/c8mn8xpke83
w97PAe/jpvevoHrfnM7y/a+0eslX9HHjGP2rrPZ9SR9vxOFqq+d5H6/8gv5M
m3fwc/rm8PNn9GdZHYzTLM7vU/rXmDfgZA4LvD/b+r9/Qh/PxWGO+dhR+nN4
vzjMtfrCx/TxQRyutfwW75vDUO9fZ/2+j+ibQ/dD+tdbfz5O+PgR+g2r3+GI
X8HJnKbgkv7RD8jfYPUcHPHeNnk8AJd4IA7zrP70Pnmc4YQnv0ceT3iX/I1W
xx4mj8e8Qx5fhEv8x9vk51udiSNe8xZ5vPUQebz7TfI3WT30Bnm8DSc8E5f4
yEHyN1v96wB5PBQnPPl18njZa+RvsToDR/zvq+TxZlziHwvyC6yeiSM+8DJ5
PPYl8viX/eRvtTobR7ziRfLe30ce//M8+dusnniOPG49Sx6PxCXe9wz5263+
8DR5/Ote8vi3p8i7nyR/B26Rx5tw8v4e8njHbvILrQ7ZRR6nPir+eyd5vH4H
+Tut7t9OHp94jDw+vI083vEo+UVWFzxCHte3ksfhYfI4TxzPOd+HrGb4zwfZ
D3e3kMONzeyP0yarha9/gHk44Mr3X8/xu6x21jEfF2uZj/M1VBybzMW1VeRw
ewXzcbac+b7ffcxfzLp7WYfDPczBaQk579/NcTe1cDOn9Dy/98q9UPbh/zJz
8zmJbj63OfbrRsJ+XSp8Pde50tdz3ay8z3U8cF7cJ0KG/T4UcTmb+d7nPui/
F7+vFr4f9+HSzX298vUzOL6UOp35bp5Donsq892T2Mc9kfnu8cx3j2O+m+c2
/zvznBcy92jmu+vMd49ivnsk890jmO/mubVyX0Dl/47n3JC5hzPfzXNyLk7u
Ycx389xdiitxWEYdxHxxdNeYL07ugcx3D2C+uBIH/xwG5oujOBcnceG27zGh
FFficH+vM3EU5+IkLsSlm1clDst7nYmjOBcncSEuxZU4rJD54ijOxUlciEtx
JQ4rZb44inNxEhfiUlyJwyqZL47iXJzEhbgUV+KwWuaLozgXJ3EhLsWVODR7
XRNn4ro4ihviXNwUJ3FLXIjb4lLcEVfirjis6XVNnInr4ihuiHNxU5zELXEh
botLcUdcibvisLbXNXEmroujuCHOxU1xErfEhbgtLsUdcSXuisO6XtfEmbgu
juKGOBc3xUncEhfitrgUd8SVuCsO63tdE2fiujiKG+Jc3BQncUtciNviUtwR
V+KuOGzodU2cieviKG6Ic3FTnMQtcSFui0txR1yJu2L/XuavmjgT18VR3BDn
4qY4iVviQtwWl+KOuBJ3xWFjr2viTFwXR3FDnIub4iRuiQtxW1yKO+JK3BWH
Tb2uiTNxXRzFDXEuboqTuCUuxG1xKe6IK3H3f/8HaE+kpg==
         
         "]]}}}, {}, {}, {}, {}}, {
    DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     AxesOrigin -> {19.3375, 0}, PlotRange -> {{17.5, 385}, {0, 11000}}, 
     PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> 
     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {19.3375, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox[
         "\"No. adult female\\nmosquitoes\"", 75, StripOnInput -> False], 
         TraditionalForm], None}, {
        FormBox[
         StyleBox["\"Time (days)\"", 75, StripOnInput -> False], 
         TraditionalForm], None}}, FrameStyle -> Thickness[Large], 
     FrameTicks -> {{{{0, 
          FormBox["0", TraditionalForm]}, {5000, 
          FormBox["\"5k\"", TraditionalForm]}, {10000, 
          FormBox["\"10k\"", TraditionalForm]}}, None}, {{{20, 
          FormBox["0", TraditionalForm]}, {48, 
          FormBox["28", TraditionalForm]}, {76, 
          FormBox["56", TraditionalForm]}, {104, 
          FormBox["84", TraditionalForm]}, {132, 
          FormBox["112", TraditionalForm]}, {160, 
          FormBox["140", TraditionalForm]}, {188, 
          FormBox["168", TraditionalForm]}, {220, 
          FormBox["200", TraditionalForm]}, {320, 
          FormBox["300", TraditionalForm]}, {385, 
          FormBox["365", TraditionalForm]}, {420, 
          FormBox["400", TraditionalForm]}}, None}}, FrameTicksStyle -> 40, 
     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
       Thickness[Large], 
       Opacity[0.15]], ImageSize -> 1500, 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"pgSIT Eggs (100:1)\"", 100, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{17.5, 385}, {0, 11000}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"0.90\"", "\"0.75\"", "\"0.50\"", "\"0.18\"", "\"0.00\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox[
                StyleBox[
                "\"Lifespan\\nReduction\"", 40, StripOnInput -> False], {
                FontSize -> 40, FontFamily -> "Arial"}, Background -> 
                Automatic, StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #3}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #4}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 40, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "40"}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", 
             StyleBox[
             "\"Lifespan\\nReduction\"", 40, StripOnInput -> False]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "50"}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.739735936692525*^9, 3.739735969020727*^9}, 
   3.739736219867983*^9, 3.739736711952474*^9, 3.7397369471972923`*^9, 
   3.739737147541009*^9, 3.739738196667202*^9, {3.73973835873606*^9, 
   3.7397383770672092`*^9}, 3.739887112742566*^9, 3.7399088724716578`*^9, 
   3.739908911659223*^9, 3.740935683197526*^9, 3.740935877125884*^9, 
   3.741295070602234*^9, 3.741361770948702*^9, {3.741361835529325*^9, 
   3.741361862790619*^9}, 
   3.741361929073821*^9},ExpressionUUID->"df53d2e5-4a72-4d2b-b9f0-\
2cd3bfcc28b2"],

Cell[BoxData["\<\"Lifespan100Line.pdf\"\>"], "Output",
 CellChangeTimes->{{3.739735936692525*^9, 3.739735969020727*^9}, 
   3.739736219867983*^9, 3.739736711952474*^9, 3.7397369471972923`*^9, 
   3.739737147541009*^9, 3.739738196667202*^9, {3.73973835873606*^9, 
   3.7397383770672092`*^9}, 3.739887112742566*^9, 3.7399088724716578`*^9, 
   3.739908911659223*^9, 3.740935683197526*^9, 3.740935877125884*^9, 
   3.741295070602234*^9, 3.741361770948702*^9, {3.741361835529325*^9, 
   3.741361862790619*^9}, 
   3.741361929360074*^9},ExpressionUUID->"02f82d25-de3b-4610-bdbc-\
d2261e7c4421"]
}, Open  ]],

Cell[CellGroupData[{

Cell["150:1", "Section",
 CellChangeTimes->{{3.739621305418523*^9, 3.739621308905542*^9}, {
  3.739622692423895*^9, 3.73962269361873*^9}, {3.739623613691367*^9, 
  3.7396236139057503`*^9}, {3.7396416312070932`*^9, 3.7396416317695007`*^9}, {
  3.7396433277488194`*^9, 3.739643327860962*^9}, {3.739646443951228*^9, 
  3.739646444420246*^9}},ExpressionUUID->"b3a7f3a8-0ba8-44e8-94cc-\
a26b570bfef9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"folders", "=", 
   RowBox[{"FileNames", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], "<>", 
     "\"\</Output/SW2/Repetitions150/\>\"", "<>", "\"\<0*\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"levels", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"Last", "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"StringSplit", "[", 
           RowBox[{"#", ",", "\"\</\>\""}], "]"}], "&"}], "/@", "folders"}], 
        ")"}]}], "]"}], "/", "1000"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wildIndex", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"genotypesIndicesToAggregate", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<W\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<R\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3", ",", "3"}], "}"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataTotals", "=", 
   RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"folder", "=", 
       RowBox[{"folders", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"files", "=", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"filesMale", ",", "filesFemale"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</ADM*\>\""}], "]"}], ",", 
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</AF1_Aggregate*\>\""}], "]"}]}], 
         "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dataMale", ",", "dataFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Import", "[", "#", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"2", ";;", "All"}], ",", 
              RowBox[{"3", ";;", "All"}]}], "]"}], "]"}], "&"}], "/@", "i"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "files"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataTotal", "=", "dataFemale"}], 
      RowBox[{"(*", "dataFemale", 
       RowBox[{"(*", 
        RowBox[{"(", 
         RowBox[{"dataMale", "+", "dataFemale"}], ")"}], "*)"}], "*)"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataAggregate", "=", 
       RowBox[{
        RowBox[{"AggregatePopulationByGenotypeIndices", "[", 
         RowBox[{"dataTotal", ",", "genotypesIndicesToAggregate"}], "]"}], 
        "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dataAggregateTransposed", "=", 
       RowBox[{"Transpose", "/@", "dataAggregate"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Median", "/@", 
        RowBox[{"(", 
         RowBox[{"dataAggregateTransposed", "//", "Transpose"}], ")"}]}], "//",
        "N"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "folders", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7395581174249687`*^9, 3.739558122319133*^9}, {
   3.739558224642312*^9, 3.739558255999302*^9}, {3.739558289344817*^9, 
   3.739558335472151*^9}, {3.739558532789179*^9, 3.739558533047173*^9}, {
   3.739558591600675*^9, 3.739558634996447*^9}, {3.739558833775436*^9, 
   3.739558906476029*^9}, {3.7395590404981127`*^9, 3.739559057457623*^9}, {
   3.739559156516121*^9, 3.739559156966012*^9}, {3.739559678119132*^9, 
   3.739559731348674*^9}, {3.73955979271987*^9, 3.7395598170492687`*^9}, {
   3.739561709802397*^9, 3.739561710757423*^9}, {3.7395625414204073`*^9, 
   3.739562541794407*^9}, {3.739563296217326*^9, 3.739563335223094*^9}, {
   3.739563371016466*^9, 3.73956337700992*^9}, {3.7395634545103407`*^9, 
   3.739563459559616*^9}, {3.739563512482727*^9, 3.7395635165967903`*^9}, {
   3.73956355849058*^9, 3.739563565114977*^9}, {3.739563676090049*^9, 
   3.739563677142707*^9}, {3.7395641034857903`*^9, 3.739564126623106*^9}, {
   3.739564168878416*^9, 3.73956419467338*^9}, {3.739564680130353*^9, 
   3.739564680251964*^9}, 3.7396212859553757`*^9, 3.7396213227895107`*^9, 
   3.739622978922861*^9, 3.739623803156514*^9, {3.739624727888973*^9, 
   3.739624728187457*^9}, {3.739629406238904*^9, 3.739629406461227*^9}, {
   3.739629810374916*^9, 3.739629810558755*^9}, {3.739641642275893*^9, 
   3.7396416444854317`*^9}, {3.739643339376375*^9, 3.7396433401977262`*^9}, {
   3.739646449767516*^9, 3.73964645010712*^9}, {3.739705465135964*^9, 
   3.739705465260244*^9}},ExpressionUUID->"0d26c81a-0cd5-4c92-a104-\
9aca77dd9914"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"matrix", "=", 
   RowBox[{"MatrixPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"dataTotals", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "wildIndex"}], "]"}], "]"}], "/", "2"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "1.5"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"ColorData", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<LakeColors\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", ".5"}], "}"}]}], "}"}], "]"}]}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], "\[IndentingNewLine]", ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"#", ",", "50"}], "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"\"\<Lifespan Reduction\>\"", ",", "\"\<Time\>\""}], "}"}]}],
        ")"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"FrameStyle", "\[Rule]", "Thick"}], "\[IndentingNewLine]", ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Range", "[", 
              RowBox[{"Length", "[", "levels", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"StringPadRight", "[", 
                RowBox[{"#", ",", "5", ",", "\"\<0\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{"ToString", "/@", "levels"}], ")"}]}]}], "}"}], "//", 
           "Transpose"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Range", "[", 
              RowBox[{"Length", "[", "levels", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"StringPadRight", "[", 
                RowBox[{"#", ",", "5", ",", "\"\<0\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{"ToString", "/@", "levels"}], ")"}]}]}], "}"}], "//", 
           "Transpose"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "20"}], "\[IndentingNewLine]", ",", 
     RowBox[{"ImageSize", "\[Rule]", "2000"}], "\[IndentingNewLine]", ",", 
     RowBox[{"Mesh", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "None"}], "}"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Thin"}], "\[IndentingNewLine]", ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Releasing pgSIT Eggs at a 150:1 Ratio\>\"", ",", "75"}], 
       "]"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"BarLegend", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"LegendLabel", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<No. adult female mosquitoes\>\"", ",", "30"}], "]"}],
            ",", "Top"}], "]"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", "25"}], ",", 
        RowBox[{"LegendMargins", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"25", ",", "25"}], "}"}]}], "}"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", "None"}]}], "\[IndentingNewLine]",
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Lifespan150.pdf\>\"", ",", "matrix"}], "]"}]}], "Input",
 CellChangeTimes->{{3.739624866275964*^9, 3.739625115577261*^9}, {
   3.73962522064034*^9, 3.739625275535327*^9}, {3.739625341708488*^9, 
   3.739625403783732*^9}, {3.739625439097527*^9, 3.739625491383623*^9}, {
   3.73962554110924*^9, 3.7396255868833303`*^9}, {3.739625666425226*^9, 
   3.739625666563736*^9}, {3.739625703564727*^9, 3.739625811099782*^9}, 
   3.739629401789763*^9, {3.739629724721293*^9, 3.7396297584222803`*^9}, {
   3.739630076613164*^9, 3.7396300770604753`*^9}, {3.739641719887282*^9, 
   3.73964172207588*^9}, {3.7396437981586447`*^9, 3.739643819376145*^9}, {
   3.73964645301602*^9, 3.739646458051548*^9}, 
   3.739705814982725*^9},ExpressionUUID->"20b48645-d281-4ccd-907e-\
5e43f897b257"],

Cell[BoxData["\<\"Lifespan150.pdf\"\>"], "Output",
 CellChangeTimes->{{3.739624869928534*^9, 3.739624899125813*^9}, {
   3.739624949221209*^9, 3.739625009875463*^9}, {3.73962507264192*^9, 
   3.7396251166539927`*^9}, {3.739625224757167*^9, 3.7396252761462517`*^9}, {
   3.739625354658217*^9, 3.739625404462257*^9}, {3.7396254499221153`*^9, 
   3.7396254920855007`*^9}, {3.739625568977028*^9, 3.739625588321106*^9}, 
   3.739625667464774*^9, {3.739625704570099*^9, 3.7396257176639137`*^9}, {
   3.7396257563595657`*^9, 3.739625811696739*^9}, 3.739629615839657*^9, {
   3.739629738449461*^9, 3.739629759255224*^9}, 3.7396417297498913`*^9, 
   3.7396428513789167`*^9, 3.739643416038712*^9, {3.7396438707367287`*^9, 
   3.739643871243773*^9}, 3.739705261447096*^9, 3.739705363713084*^9, 
   3.7397055319424973`*^9, 3.739709776660962*^9, 
   3.739710977682201*^9},ExpressionUUID->"07d74542-5ade-4d0c-ab43-\
44da03b660fa"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Xi] Sweep", "Subchapter",
 CellChangeTimes->{{3.739558201064348*^9, 3.739558207759872*^9}, {
  3.739564673665222*^9, 3.739564673903603*^9}, {3.739705915709676*^9, 
  3.7397059277372932`*^9}},ExpressionUUID->"dcdee46c-8b63-438c-b687-\
a3019d88467d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"folders", "=", 
   RowBox[{"FileNames", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], "<>", 
     "\"\</ParameterSweeps/MatingEfficacy/Repetitions/\>\"", "<>", 
     "\"\<0*\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"levels", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"Last", "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"StringSplit", "[", 
           RowBox[{"#", ",", "\"\</\>\""}], "]"}], "&"}], "/@", "folders"}], 
        ")"}]}], "]"}], "/", "1000"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wildIndex", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"genotypesIndicesToAggregate", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<W\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<R\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3", ",", "3"}], "}"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataTotals", "=", 
   RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"folder", "=", 
       RowBox[{"folders", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"files", "=", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"filesMale", ",", "filesFemale"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</ADM*\>\""}], "]"}], ",", 
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</AF1_Aggregate*\>\""}], "]"}]}], 
         "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dataMale", ",", "dataFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Import", "[", "#", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"2", ";;", "All"}], ",", 
              RowBox[{"3", ";;", "All"}]}], "]"}], "]"}], "&"}], "/@", "i"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "files"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataTotal", "=", "dataFemale"}], 
      RowBox[{"(*", "dataFemale", 
       RowBox[{"(*", 
        RowBox[{"(", 
         RowBox[{"dataMale", "+", "dataFemale"}], ")"}], "*)"}], "*)"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataAggregate", "=", 
       RowBox[{
        RowBox[{"AggregatePopulationByGenotypeIndices", "[", 
         RowBox[{"dataTotal", ",", "genotypesIndicesToAggregate"}], "]"}], 
        "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dataAggregateTransposed", "=", 
       RowBox[{"Transpose", "/@", "dataAggregate"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Median", "/@", 
        RowBox[{"(", 
         RowBox[{"dataAggregateTransposed", "//", "Transpose"}], ")"}]}], "//",
        "N"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "folders", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7395581174249687`*^9, 3.739558122319133*^9}, {
   3.739558224642312*^9, 3.739558255999302*^9}, {3.739558289344817*^9, 
   3.739558335472151*^9}, {3.739558532789179*^9, 3.739558533047173*^9}, {
   3.739558591600675*^9, 3.739558634996447*^9}, {3.739558833775436*^9, 
   3.739558906476029*^9}, {3.7395590404981127`*^9, 3.739559057457623*^9}, {
   3.739559156516121*^9, 3.739559156966012*^9}, {3.739559678119132*^9, 
   3.739559731348674*^9}, {3.73955979271987*^9, 3.7395598170492687`*^9}, {
   3.739561709802397*^9, 3.739561710757423*^9}, {3.7395625414204073`*^9, 
   3.739562541794407*^9}, {3.739563296217326*^9, 3.739563335223094*^9}, {
   3.739563371016466*^9, 3.73956337700992*^9}, {3.7395634545103407`*^9, 
   3.739563459559616*^9}, {3.739563512482727*^9, 3.7395635165967903`*^9}, {
   3.73956355849058*^9, 3.739563565114977*^9}, {3.739563676090049*^9, 
   3.739563677142707*^9}, {3.7395641034857903`*^9, 3.739564126623106*^9}, {
   3.739564168878416*^9, 3.73956419467338*^9}, {3.739564680130353*^9, 
   3.739564680251964*^9}, 3.7396212859553757`*^9, 3.7396213227895107`*^9, 
   3.739622978922861*^9, {3.739625848151396*^9, 3.739625848647811*^9}, 
   3.739639315308179*^9, {3.739640168283667*^9, 3.739640169297978*^9}, {
   3.7396464939910707`*^9, 3.739646494136265*^9}, {3.739706565184204*^9, 
   3.739706565296187*^9}, {3.739727971454492*^9, 3.7397279719778214`*^9}, 
   3.739887054852406*^9, {3.739888800764889*^9, 3.73988880308936*^9}, {
   3.7412947951040382`*^9, 
   3.7412948209935293`*^9}},ExpressionUUID->"ebadce1e-1b19-4476-b709-\
ec61e7d9aa6b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"listLine", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"dataTotals", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "wildIndex"}], "]"}], "]"}], "/", "2"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "75"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Time (days)\>\"", ",", "\"\<No. adult female\\nmosquitoes\>\""}],
         "}"}]}], ")"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameStyle", "\[Rule]", "Thick"}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5000", ",", "\"\<5k\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10000", ",", "\"\<10k\>\""}], "}"}]}], "}"}], ",", 
         "None"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"0", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"0", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"1", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"2", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"3", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"3", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"4", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"4", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"5", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"5", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"6", "*", 
               RowBox[{"(", 
                RowBox[{"7", "*", "4"}], ")"}]}], "+", "20"}], ",", 
             RowBox[{"6", "*", "7", "*", "4"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"220", ",", "200"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"320", ",", "300"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"365", "+", "20"}], ",", "365"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"420", ",", "400"}], "}"}]}], "}"}], ",", "None"}], 
        "}"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"FrameTicksStyle", "\[Rule]", "40"}], "\[IndentingNewLine]", ",", 
    
    RowBox[{"GridLines", "\[Rule]", "Automatic"}], "\[IndentingNewLine]", ",", 
    RowBox[{"GridLinesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", 
       RowBox[{"Opacity", "[", ".15", "]"}]}], "]"}]}], "\[IndentingNewLine]",
     ",", 
    RowBox[{"ImageSize", "\[Rule]", "1500"}], "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<pgSIT Eggs (200:1)\>\"", ",", "100"}], "]"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"17.5", ",", 
         RowBox[{"365", "+", "20"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "11000"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"Opacity", "[", ".75", "]"}], ",", 
        RowBox[{"Thickness", "[", ".0075", "]"}]}], "]"}], "}"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"SwatchLegend", "[", 
      RowBox[{"Automatic", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"StringPadRight", "[", 
          RowBox[{"#", ",", "4", ",", "\"\<0\>\""}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"ToString", "/@", "levels"}], ")"}]}], ",", 
       RowBox[{"LegendMarkerSize", "\[Rule]", "50"}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", "35"}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Male mating\\ncompetitiveness\>\"", ",", "40"}], 
         "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Mating100Line.pdf\>\"", ",", "listLine"}], "]"}]}], "Input",
 CellChangeTimes->{{3.739728038754592*^9, 3.739728437920631*^9}, {
  3.7397284687320957`*^9, 3.739728475229534*^9}, {3.7397285207912893`*^9, 
  3.7397286006417933`*^9}, {3.739731882221348*^9, 3.739731903420573*^9}, {
  3.739737301553204*^9, 3.7397373457170258`*^9}, {3.739737899984894*^9, 
  3.739737900097953*^9}, {3.739738009520073*^9, 3.739738043162744*^9}, {
  3.739738098291885*^9, 3.739738105963554*^9}, {3.7397383372240267`*^9, 
  3.739738352418591*^9}, {3.7399090102804403`*^9, 3.739909023274282*^9}, {
  3.741294898124917*^9, 
  3.741294898346005*^9}},ExpressionUUID->"118c1a72-b21a-4270-8444-\
7d193d2685a0"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd2H+slmMcx/FLDrLFnlmzGHZrzYzGU0SFupB+KDwO+iFyd/QLJ+fpF8mp
rnL6oQ49+RmKWyU5kptCRG5l+IPt2Zg1G7v/aKs1fzxrCZuN6fv+PNt5+qPv
Xud7fa/vc51zP/d9XffFLW3N03s459ad4tz/0f7Vhv//v195wPMDi6vkniej
r7twMobVcu+G8X0sPiVfYOPr80fmp+W+J2PWKfez+Kx8ifVfK19q7pAvM9fn
69/Q7wqL9XyxIT/A+q+RB1qs+yobX/98VzfkB1l9ff3XmOv9rrXPt0IebK7/
/oY0zD/UfGw/vs5iX/l6i8O+wjdYnJHhYVZ/w5d4uMVvvsDe8v1xwBOVv9Hi
MeXN4YN95G8yz2L+gA8rf7PFX1WPuz4nP8Li2r3k8dLPyN9iseNT8vgW7EZa
PLCHvDmc+IT8KItn44D7fkx+tMVRH5E3h47d5MdYXIUDnqr8rRb/3EUet2E3
1ub7+UPyeAh24yx2fUDeHL7F7jbzDuXNbrzyt1s8mJLHzdjdYXH9++Txmp3k
SxZ3Y49fwAH/+57FDA/C7k6LY3ZQjye/Sz1e1EU93oJds8Vt2OMrcMBL36Ee
791O/V0Wa29TjwfhgKfjDM/G7m6LvVSPy9uox9++RT0+B7t7LE7bSj3egAPe
hDPcjN14iz9soR4XccDrNlOPj75J/QSL55L3+CIc8C+Mz3BZ9RMtHk6ox804
4NVvUI9/w26SxePYT+o+PuD0derlTdTfa7FrI/U4fY16fBxnuA/j3WSL28l7
fOhV6nETzvC5r1B/n8WBG6jHrTjg+TjDPbG7n/zL1OOdL1GPD71IPT4duynU
YY+bccDHX6AeT8HuAYt7nqceH3uOetwfZ3gcdnF3R7gJe9y+3mKMD1aYHxdx
gt06+mGPc3w9dlMtbniW/njPM9ThjZ30x61r6Y/HraE/nogzPALn+Ken6d9i
8fhq+uMm7PGRlfTHh1bQH9dwgqs4wyWc46SD/g9a3P0U/XG+nP7Y4Rj/tYz+
eA9OcAlnmj8wLy5gN415ltAfFxbTH+ft9McVHHDyJBGni+iv+Z9gHjx6If2n
WzzyGP1xij2Ocaz8AubF382nPz44j/64Opf+8hz6z7C4EEe4iL3yZfrjShv9
sXuU/jhupT9OHqY/rj1E3UzmwRFOZtFfeWI8s/vn0s/1e0w0nr9zhuvXlfIt
1NFH35MIp/reYt1HYo3nPhaw7qP63LpPZzL3/Vzz8RxxrFvPrUi/F55zHus5
HGs8z3H93rRPSHDOPiPD2rfkmh87/i7aV0XyWPpg7fNi5dk3BuXZF+rvzL7P
ZTL7rlzm87pHiOwLIqznrMd6DsVY9+mAdV9LcKq/P9b3KNd47LhOq1xPEdZ1
6XUd6/rDuk4CTnGC9XfKNL+u/9buP3ezyfN9inCu7x8ezfc9xke4fwRc5n6V
aLzuf3gc99scj1hFf763FZ4PEf5azx88nudbjPvo+Yo7eP4muK+e97jKfiDH
J7R/YN3j2b9EuIn9ksed7MdifOtm+uM/2C8meL/2q6pnf5vj+eynHfe1+ezX
C3gk+/sIX8j5oWgOkzhfeNyP80iJ8b/jmPwuzjtl3K7zEh7GeapC/amcxxLc
hVM8g/NbRv2ZnO+qeCvOGV/ifFgj73R+tOssbMcFrrtRnD8j8kcxz4XQznnV
M/4fXMLLON/GjG/i/Fsm36nzMPmzOC9XyK/GCfkjOCU/gfN2hvdinmuhF+d/
vkdhKK7hqXo/wHNxOS6Ysx04MofvcJF8DXvqe/P+oUT+GhxTfzsuM74NB/Kr
cMXst+EE78Mp8/+IM+arYZ7z/rT9rJ/x5+Ma4wdixz5hJC7gyTgyZy24aPZt
2JNfgku4E8fM9wouU78FB3NIcUX7Fpww/gBOGf89zhif4yrjD+Gc8UdxDdff
J9m+KfyNC2bfg/dPkTk7AxcZ3wt79l3n4RL1F+KY8f1wmfkuxwEPwBXmuxIn
eDBOmW8ozsgPx1U8AueMvxHX+Hxj9H7Nnit+NC7wnClp/ebsTq2f/N1avzlM
1PrJT9H6qZfL5Fu0fvIztH4+zyNaP+Nnaf2Mn67101/5Km7V+ql/WOsnP1vr
Z1+t8QU8V+vHc7R+s39U6zeHNq0fl7V+xs/T+vECrZ/5F2n9eKHWz3wanzaM
zxpcxY9p/Xix1s98T2r9j3evL5i9HGGNLzbY43atHwetn/mXav3moHwgv0zr
b3CC9f48xXp/nDGf3h9X6b9c62+or5kz9Xe2j/L6fIWF3eePzPX32UXysiev
9+cl5lM+Zrw+X9lcf98eGK/35xXmkxPGa74U6316Rr1cpZ+cY/WrUd9xwP8H
sLv2Xg==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd10usE2UYxvFPQ9S4sQuMLIgZCSEnxJAKKnf5QFQULwWPchF1RMCDCJSL
SJTgp0blAELxLhEdBRHvVbzgfURjXGjSnS5czJKVqYkLwkrh/b81fc6CJ7++
88zb9px2hkuWr1+48uwQwt6zQjid9tOddfrfOPxj5IEzmZ5xn2e51107k7E3
H2nH9+ajLPe4R9vxO93ZmSx7HiPHj7Xc7R4n+wdsX28+3s7Xcl9q+3rHT5B+
XV7fZZY9T7R+7/yT5Plebv1d7ivkfFda9o6fbNk7foodv8M91fb1PM3mfx/H
0y0vds+w5zPtBzzTvKLEV1lO+R7PsvztWxwtJ+NkTit9Ptt8yuf46HfM51g2
OX/CJ31+tR1/wvvmUH7DfK7lga+Z411fMb/G+vu+ZG4Oi3G41vL3Y8zxBThc
Z5l9wRxP+Jz5PDv/gs+Ym8POT5lfb/NtOJnDEp/fYHniKHM8H4f5lkc+YY7P
xeFGO//aj5njzTjcZDnoc3P6q838ZvNynMzh4EfMb7F85EPmeNUHzBuWi3DE
F+KEl71vWeLme/QXWK54l777Hfp45RH6eAiHhZYzcMSH36aP/zxMH596i/6t
lhfhiKcfoi8u8Tk4DFoOH6SPqzfp49G4xINv0L/Ncn9BHw/jhJfiEv/8Ov3b
LQ+9Rh83DtDHI16lj4/vp7/IcjuOeAAn3HyFPh56mf5i9r1EH497kT4+/wX6
uHye/hLLdTji8jn6+J9neRzXcFhqOWoffTyxRR+f2Esf13G4w3LsHvr4p930
cWMXfVwO019mObiDPv71afq4jks89yn6d1oOPEkfn3yCPv7lcfq4/Rj9u+jj
iFuJPj72KH08ajv9u3l92+jj8mH6uLuVx3ENh9wye4jEtS2cD/+x2TLHrU2c
H8eNloX3N7APz2taVr5vPfvvob+Wx3F7DY/jajX7cTbEfpyvYr97JfvdKzgP
rt/L/uX9mZFtf10+533Lsf8dJOx/d4XP/XPgcz43lc/5HAd/HnwvZNi/x6LP
+d7L3XyPJjffy4Wb60CJ/bpTubmOBd4XroMhw5HraMQl12V/H/06nrw/h/3u
2fTc3HdU7pkkvyfuc0Lmnsp+N/dN/nvlPuu/GxVyEvt9PpH9bu7rKjf3gYG/
G+4TQ+Yez373APvd3IcmN/ephXsM+8WVOyPvI0ezXxzd3Efn4uQeyX5xKa7c
NXKo3/658vv8KM7FyT2C/e7AfnElDqv7nYmj2/5fEnJxEhfiUlyJw/39zsRR
nIuTuHDzU4orcVjT70wcxbk4iQtxKa7E4QHZL47iXJzEhbgUV+KwVvaLozgX
J3EhLsWVOKyT/eIozsVJXIhLcSUO6/udiaM4FydxIS7FlTg0+10TZ+K6OIob
4lzcFCdxS1yI2+JS3BFX4q44bOh3TZyJ6+IobohzcVOcxC1xIW6LS3FHXIm7
4rCx3zVxJq6Lo7ghzsVNcRK3xIW4LS7FHXEl7orDpn7XxJm4Lo7ihjgXN8VJ
3BIX4ra4FHfElbgrDpv7XRNn4ro4ihviXNwUJ3FLXIjb4lLcEVfirjg82O+a
OBPXxVHcEOfipjiJW+JC3BaX4o64EnfFYUu/a+JMXBdHcUOci5viJG6JC3Fb
XIo74krcFYeH+l0TZ+K6OIob4lzcFCdxS1yI2+JS3BFX4q44bO13TZyJ6+Io
bohzcVOcxC1xIW6LS3FHXIm7//tfCg6YAg==
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd10uMFFUUxvGrK3TViQTH4KIkhEwIIY2APES54ANE0QZFx3eBjg4iTqug
qGiuAkIISqOoQTSWD3wCtuADUbHExLgwplesjKmlwWjaHUvjnO+06X9vvvw4
96vTzKOr5qI1oyuHzw4h7D4rhP/SXt2FY7Hjx6h/GMv0vHvcWMbt7prlNvd4
m/fOD5h78wste/1sLMud7kl2vrd/su3veQquP4jzU+16vfk0m291T7f5Fnfd
rt+bz8D1L8b7n2nu9WdZv3d+NnyJuXd+DvbNxXyevb/evvk2//OkfKl5wL3A
PO8H+TJ7f6tL+XLLWd/LC+38L9/J0XKGnMxpyOeLLP/2uTkdOaH5YsthXT/J
p31+heXv3pcPf6v5lXa9Xd9obg5PHNf8Ksunv9ZcXiSHq63/0zHN5TNfab7E
8hw5yRO/1Hyp5fwvNJdHP9f8GsvVcjKnOT5fZnn8qObygByutRw5ork5/fyZ
5tdZXiAnc5ro8+Xm023N5c1yuN7y1081l1uHNb/BcuiQ5vLkg5o3LGtylA99
ovPy6Y8tS/mvj9RfYfnbh+rLJz5QXz76vvryHjmstFwiR3nfAfXlk++pL596
V/0bLf94R335fDnJ/7ytvnxADjdZnidHeUWhvjzwlvry3jfVX2U54Q315YP7
1ZfPlUt54HX1b1buU18+9pr6cvNV9eWlr6h3i+WpverLy+Qkb35ZfXnrS+oP
yXvUl1NLKQ/uVl8eelH9Wy3zF9SXa7vUl9NO9eUzO9S/zXJku/pyd5t68ly5
9PNb1b9d+7eoLzeeU18efFZ9eVxS/w7lM+rL1Wb15eIp9eX6k+rdadnapL4c
HldfThvVl2sbdO4u5aPqux9RT+421ZfLUZ27W+9vvfrudeq716on5yPq55bZ
/Uq5GNb15HivenK5RteX02r15Lqf8+vpfVd+3r/u6vn3NXPr5yzK/nOey/mq
/r3+e1249TlRyv65VPn19DkW/P+xXPvd+tyObt0HcjnqPpJ8rvtS4dZ9zL9O
fh+s3IuV9+i87sOZrPt4iO4F2u+er557rva752i/e7b2u2cq9X3Vc07I3HXt
d0/Xfvc07XdP1X73oPa7p2i/e7JyuN+Ze5L2uzPth5Nbz5X+c6vnzlDClXuC
8j7leO1367k2wjmc4MI9TvvhCg76vdNzdu/30B3hHE5wAZduPddXcBjpdwZH
OIcTXMAlXMFhrb9fe2VwhHM4wQVcwhUcHsB+OMI5nOACLuEKDuuwH45wDie4
gEu4gsOD2A9HOIcTXMAlXMFhPfbDEc7hBBdwCVdweAj74QjncIILuIQrOIz2
O4MjnMMJLuASruDQ7HcNzuA6HOEGnMNNOMEtuIDbcAl34AruwuHhftfgDK7D
EW7AOdyEE9yCC7gNl3AHruAu7M+Z/qrBGVyHI9yAc7gJJ7gFF3AbLuEOXMFd
2J+7/VWDM7gOR7gB53ATTnALLuA2XMIduIK7cNjQ7xqcwXU4wg04h5twgltw
AbfhEu7AFdyFw8Z+1+AMrsMRbsA53IQT3IILuA2XcAeu4C4cHut3Dc7gOhzh
BpzDTTjBLbiA23AJd+AK7sL+d7q/anAG1+EIN+AcbsIJbsEF3IZLuANXcBcO
m/pdgzO4Dke4AedwE05wCy7gNlzCHbiCu//7XwgmjBI=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd10nsE3UYxvEfJCoXkx6IIcZlRGKIEiwq8GdRRsQV1IqiKKgju4BQFkUj
wZ8CsohSd+MC445bqLghiv7UC/HUxIsXdQ4mGk/14smDgfd5a+bbA08+feeZ
tw3tdP7nLFo7d+nwEMLeYSEcT3v0Zxz/N+76IdcTJzJ/wj3iRMbH3Q3L3e6R
dvwO9yjz4HxnWA7Ol9l80B9tucc9Buc/D/2xJzIN5udbDvaPs/MPXu94O367
u2nvZ5t7gh3/qPsi8yPuiy0HvsTOt9U90TzoT0J/Mo4fshx4Cl7fVMu/v5en
WZ7pnm7HT/1OvtT2LU7yZZbTv5Vn2Pv98aicmy+QoznM8/nlln/4XD7wjeYz
rb9a54/m8JfPr7D5b96XD36t+SzzU19pLm8+ovmVllu+1FyeLYer9H4Oa24O
w+Rwtc1P/UJz+fTPNb/GcvJnmsurPtX8WssFcpTH+Pw6O9++TzQ3h38OaT7b
cpoc5Z0faz7H8peu5vJPcrjecr/PzfEsn99gedJBzeWjH2l+o+WWDzWXJ32g
ecvyFDmXd72v4+VD71km+cAB9W+yfPZd9eX2O+rLS95WXz5bDnMtj7ylvjxc
jvKFb6ovz3pD/Zst57+uvryuVF8eJye5s1/9WyyX7VNfDq+pL+98RX355Jd1
3DzLfS+pL//7ovryHDnJC19Q/1bLSc+rLzeeU1/+9Rn15cNPq3+benIuv9pR
Xy73qi///qT68y2H9qgvx91KudqpvhzkcLtyh/pytV19ubNNfXloq3p3KB9T
Xz4W1ZcbcpK7W9RbYPnnZvXloYfVl4uH1JfLTeovVD6gvvzzRvXlYxvUl7vr
1bvTsr1OfbnVVl+Oa9SXm6vVv0uvZ6X6crVCPbm1XH2fL1X/bp1vifpyWqS+
nN+j5+WsUL+o7/HnC73PXPb/l8LtnxPv63NZyv49ST7X967yvr7HQa/LryOZ
7Ncpf91+HSx8rutsdOu6Xbr1O5Dc+t2o/HyzlIs0n6n9sv/u5e4Z2u+erp5b
v9Ole4r2uydrv3uicrFS9xWZHCdov8+b2u8er+Pc47Tfrfug5B6r/W7dRwV9
bvw+K3Ofq/3u0drvzrTfrfu60j1K++HKfZrSP8cjtR/O3brPLOAIl+4R2g9X
cFhWd+YO2g8XcIRLt91HhwRXcFhedwbncAFHuIQTXLn9saLuDM7hAo5wCSe4
gsO92A/ncAFHuIQTXMFhJfbDOVzAES7hBFdwWIX9cA4XcIRLOMEVHFbXncE5
XMARLuEEV3C4D/vhHC7gCJdwgis4rMF+OIcLOMIlnOAKDmuxH87hAo5wCSe4
gkO77gacwU04h1twAbfhCHfgEu7CCe7BFdyHw7q6G3AGN+EcbsEF3IYj3IFL
uAsnuAdXcB8O6+tuwBnchHO4BRdwG45wBy7hLpzgHlzBfThsqLsBZ3ATzuEW
XMBtOMIduIS7cIJ7cAX34bCx7gacwU04h1twAbfhCHfgEu7CCe7BFdyHw/11
N+AMbsI53IILuA1HuAOXcBdOcA+u4D7sf/f6owFncBPO4RZcwG04wh24hLtw
gntwBffhsKnuBpzBTTiHW3ABt+EId+AS7sIJ7sEV3IfDg3U34Axuwjncggu4
DUe4A5dwF05wD67g/v/+Dw1If54=
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.006944444444444445], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6], 
         Opacity[0.75], 
         Thickness[0.0075]], 
        LineBox[CompressedData["
1:eJxd1kmMFGUYxvFPvRBPfSBxTCamJMQQJaZRWWSRUlxwwxY3RGWK0cERR2hA
lighn4bFQQytIsG4lbhEJWqrqIijfm5HSceTiZe6ePPQBw8cPBh4n7dN/efA
kx/v99TbDT3VdfHoxpVj54YQDp4Twpm0n/7SM3/G/T/n+ouzmQaeZjlwA55+
NuPz7iHr73EPn8184Mxyr3uG5WA+087vc19iObj+LLv+bvellgPPttcz6F9u
ecDdtOtPuufY+cHruQKv50o7P5hfhflc9OfZ6xvsn499C+z8c+6rLQdeaPnP
T/Ii61/kXmz9xT/KS2w+luRrLOf/IC+18799J+eW8+Qor/H5tXb+X5+bw9T3
ml9nuU3Xj3Lf58usX3lf7k5pfr350Leam8Ouk5rfYDn5jebySjncaP1TJzSX
z5PDTZYXfK25POMrzZfb+eaXmstrj2t+s/bJ0Ryn+/wWyz1faC7/+bnmt1oO
y9EcJz7T/DbLE13N5aNyuN3Oj/jcHH79VPMVlpOfaC4v/FjzOyz/Oqa5fOwj
zVuWE3IuBznKF35omeTzP9C5Oy3/fl99+dR76stT76ovj8thpeXpd9SXL5Oj
vPqo+vKGt9W/y3Jnqb68/C315cNvqi9PvaH+3ZZHXldfXvya+vLJV9WXFxxR
/x7L3w+rLy+Uo7zzFfXlvYfUv9dy9GX15RUvqS/Pe1F9ebij/n2WQwfVl6sX
1JdXHVBf/mW/+qssZ02qL3f2qS9P26u+PLRH/fsts93qy6efVV/+4xn15eNR
/dU6v0t9ubtTfbn9tPrytKfUf8Cy3KG+3Niuvjy+VX05bVH/QcvWZvXlYpP6
Pm+rJ5cb1H9InlDfvV59OY0r3evUX6P3O6a+nD+ivtwfVU9Oa9UfsWwX6o3U
e3Gk/j6T7P/OQT3/f87c+pzlsn/OC5/r9yj6XL+Xpc91n0g+132ncus+Fvx9
6D6ZybrPhtyt+3bh1vdAdC/Tfr/eddrv1vdW5V6qHFUu0X73Iu1363u5cM/X
Xvdc7XfruSC59RxRuecoH1Y2td89W/vdeq4p3LO0363notI9U/vhyj1Dqc+Z
P4dl7mHthwv3kPbDpXu69sOVW8+NYazuzK3nzBwu4AiX7qD9cAWHdXVncA4X
bntODhEu4QRXcHi07gzO4QKObv2UcIIrOIzXncE5XMARLuEEV3B4DPvhHC7g
CJdwgis4rMd+OIcLOMIlnOAKDo9jP5zDBRzhEk5wBYcJ7IdzuIAjXMIJruDw
BPbDOVzAES7hBFdw2FB3BudwAUe4hBNcwWEj9sM5XMARLuEEV3Bo192AM7gJ
53ALLuA2HOEOXMJdOME9uIL7cNhUdwPO4Cacwy24gNtwhDtwCXfhBPfgCu7D
YXPdDTiDm3AOt+ACbsMR7sAl3IUT3IMruA+HLXU34Axuwjncggu4DUe4A5dw
F05wD67gPhyerLsBZ3ATzuEWXMBtOMIduIS7cIJ7cAX34bC17gacwU04h1tw
AbfhCHfgEu7CCe7BFdyHw7a6G3AGN+EcbsEF3IYj3IFLuAsnuAdXcB8O2+tu
wBnchHO4BRdwG45wBy7hLpzgHlzBfTjsqLsBZ3ATzuEWXMBtOMIduIS7cIJ7
cAX3//d/vbp7Qw==
         "]]}}}, {}, {}, {}, {}}, {
    DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     AxesOrigin -> {19.3375, 0}, PlotRange -> {{17.5, 385}, {0, 11000}}, 
     PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> 
     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {19.3375, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox[
         "\"No. adult female\\nmosquitoes\"", 75, StripOnInput -> False], 
         TraditionalForm], None}, {
        FormBox[
         StyleBox["\"Time (days)\"", 75, StripOnInput -> False], 
         TraditionalForm], None}}, FrameStyle -> Thickness[Large], 
     FrameTicks -> {{{{0, 
          FormBox["0", TraditionalForm]}, {5000, 
          FormBox["\"5k\"", TraditionalForm]}, {10000, 
          FormBox["\"10k\"", TraditionalForm]}}, None}, {{{20, 
          FormBox["0", TraditionalForm]}, {48, 
          FormBox["28", TraditionalForm]}, {76, 
          FormBox["56", TraditionalForm]}, {104, 
          FormBox["84", TraditionalForm]}, {132, 
          FormBox["112", TraditionalForm]}, {160, 
          FormBox["140", TraditionalForm]}, {188, 
          FormBox["168", TraditionalForm]}, {220, 
          FormBox["200", TraditionalForm]}, {320, 
          FormBox["300", TraditionalForm]}, {385, 
          FormBox["365", TraditionalForm]}, {420, 
          FormBox["400", TraditionalForm]}}, None}}, FrameTicksStyle -> 40, 
     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
       Thickness[Large], 
       Opacity[0.15]], ImageSize -> 1500, 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"pgSIT Eggs (200:1)\"", 100, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{17.5, 385}, {0, 11000}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"0.05\"", "\"0.25\"", "\"0.50\"", "\"0.78\"", "\"1.00\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox[
                StyleBox[
                "\"Male mating\\ncompetitiveness\"", 40, StripOnInput -> 
                 False], {FontSize -> 35, FontFamily -> "Arial"}, Background -> 
                Automatic, StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.22] -> Baseline)], #}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.22] -> Baseline)], #2}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.22] -> Baseline)], #3}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.22] -> Baseline)], #4}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.05], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.75], 
                    Thickness[0.054]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.22] -> Baseline)], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 35, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.75`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0075`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "35"}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", 
             StyleBox[
             "\"Male mating\\ncompetitiveness\"", 40, StripOnInput -> 
              False]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "50"}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7397280536323433`*^9, 3.739728109427984*^9}, {
   3.739728140570959*^9, 3.739728181525968*^9}, {3.739728247544464*^9, 
   3.739728251137999*^9}, {3.739728309038266*^9, 3.739728379113977*^9}, {
   3.739728411033722*^9, 3.7397284337380123`*^9}, {3.739728471820353*^9, 
   3.739728475674245*^9}, {3.7397285516047287`*^9, 3.7397285596877337`*^9}, 
   3.739728601025902*^9, 3.739731904359236*^9, {3.739737336265726*^9, 
   3.739737369890828*^9}, 3.7397382989585543`*^9, 3.7397383381785183`*^9, 
   3.739738389889271*^9, 3.739887081669544*^9, 3.739909024042547*^9, {
   3.740935465588908*^9, 3.740935475817922*^9}, 3.7409355184343777`*^9, 
   3.740936324470516*^9, {3.741294887196727*^9, 
   3.741294898814582*^9}},ExpressionUUID->"c399aa3e-c0c8-4f5f-83b2-\
ff466c0929e9"],

Cell[BoxData["\<\"Mating100Line.pdf\"\>"], "Output",
 CellChangeTimes->{{3.7397280536323433`*^9, 3.739728109427984*^9}, {
   3.739728140570959*^9, 3.739728181525968*^9}, {3.739728247544464*^9, 
   3.739728251137999*^9}, {3.739728309038266*^9, 3.739728379113977*^9}, {
   3.739728411033722*^9, 3.7397284337380123`*^9}, {3.739728471820353*^9, 
   3.739728475674245*^9}, {3.7397285516047287`*^9, 3.7397285596877337`*^9}, 
   3.739728601025902*^9, 3.739731904359236*^9, {3.739737336265726*^9, 
   3.739737369890828*^9}, 3.7397382989585543`*^9, 3.7397383381785183`*^9, 
   3.739738389889271*^9, 3.739887081669544*^9, 3.739909024042547*^9, {
   3.740935465588908*^9, 3.740935475817922*^9}, 3.7409355184343777`*^9, 
   3.740936324470516*^9, {3.741294887196727*^9, 
   3.741294899310412*^9}},ExpressionUUID->"103eb1f4-13fa-456e-8c1b-\
40147d6f79da"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[Mu] and \[Xi] Sweep", "Subchapter",
 CellChangeTimes->{{3.739558201064348*^9, 3.739558207759872*^9}, {
  3.739564673665222*^9, 3.739564673903603*^9}, {3.739705915709676*^9, 
  3.7397059277372932`*^9}, {3.739879135098997*^9, 
  3.739879136843363*^9}},ExpressionUUID->"a5e31886-8cb7-4a61-9c4d-\
18bc9c31f71a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"folders", "=", 
   RowBox[{"FileNames", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], "<>", 
     "\"\</ParameterSweeps/LifespanAndMatinFactorial/\>\"", "<>", 
     "\"\<*0\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"levels", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"StringSplit", "[", 
          RowBox[{"#", ",", "\"\<_\>\""}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"Last", "/@", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"StringSplit", "[", 
              RowBox[{"#", ",", "\"\</\>\""}], "]"}], "&"}], "/@", 
            "folders"}], ")"}]}], ")"}]}], ")"}], "]"}], "/", "1000"}], "//", 
    "N"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.7398791585841618`*^9, {3.7398793059055643`*^9, 3.739879311981389*^9}, {
   3.7398793549798937`*^9, 3.739879443935053*^9}, {3.7398806544695473`*^9, 
   3.739880656157439*^9}, 3.739883246720327*^9, {3.741133579692692*^9, 
   3.7411336078599663`*^9}},ExpressionUUID->"1ef248c2-96c2-42b2-ae6b-\
ac242e073198"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wildIndex", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"genotypesIndicesToAggregate", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<W\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<R\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3", ",", "3"}], "}"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataTotals", "=", 
   RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"folder", "=", 
       RowBox[{"folders", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"files", "=", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"filesMale", ",", "filesFemale"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</ADM*\>\""}], "]"}], ",", 
          RowBox[{"FileNames", "[", 
           RowBox[{"folder", "<>", "\"\</AF1_Aggregate*\>\""}], "]"}]}], 
         "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dataMale", ",", "dataFemale"}], "}"}], "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Import", "[", "#", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"2", ";;", "All"}], ",", 
              RowBox[{"3", ";;", "All"}]}], "]"}], "]"}], "&"}], "/@", "i"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "files"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataTotal", "=", "dataFemale"}], 
      RowBox[{"(*", "dataFemale", 
       RowBox[{"(*", 
        RowBox[{"(", 
         RowBox[{"dataMale", "+", "dataFemale"}], ")"}], "*)"}], "*)"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dataAggregate", "=", 
       RowBox[{
        RowBox[{"AggregatePopulationByGenotypeIndices", "[", 
         RowBox[{"dataTotal", ",", "genotypesIndicesToAggregate"}], "]"}], 
        "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dataAggregateTransposed", "=", 
       RowBox[{"Transpose", "/@", "dataAggregate"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Median", "/@", 
        RowBox[{"(", 
         RowBox[{"dataAggregateTransposed", "//", "Transpose"}], ")"}]}], "//",
        "N"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "folders", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",ExpressionUUID->"8f5fdd1f-9866-49c8-9e5b-e62f1b6b3458"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"minPopValues", "=", 
   RowBox[{"Min", "/@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dataTotals", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "wildIndex"}], "]"}], "]"}], "/", "2"}], 
     ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tuples", "=", 
   RowBox[{"Flatten", "/@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"levels", ",", 
       RowBox[{"ReplaceAll", "[", 
        RowBox[{
         RowBox[{"Chop", "[", "minPopValues", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", "\[Rule]", 
           RowBox[{"-", "1000"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fixedTuples", "=", 
    RowBox[{"Map", "[", 
     RowBox[{"Chop", ",", "tuples", ",", "Infinity"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"colorLevels", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ColorData", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<LakeColors\>\"", ",", "\"\<Reverse\>\""}], "}"}], "]"}], 
      "[", "#1", "]"}], "&"}], "/@", 
    RowBox[{"Reverse", "[", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "1", ",", ".2"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"popValues", "=", 
   RowBox[{"Reverse", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", 
      RowBox[{
       RowBox[{"Max", "[", "minPopValues", "]"}], "-", "1"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Max", "[", "minPopValues", "]"}], "-", 
         RowBox[{"Min", "[", "minPopValues", "]"}]}], ")"}], "/", 
       RowBox[{"Length", "[", "colorLevels", "]"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"swatch", "=", 
    RowBox[{"SwatchLegend", "[", 
     RowBox[{"colorLevels", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<75%\>\"", ",", "\"\<80%\>\"", ",", "\"\<85%\>\"", ",", 
        "\"\<90%\>\"", ",", "\"\<95%\>\"", ",", "\"\<100%\>\""}], "}"}], ",", 
      
      RowBox[{"LegendMarkerSize", "\[Rule]", "50"}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", "50"}], ",", 
      RowBox[{"LegendLabel", "\[Rule]", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Maximum adult\\nfemale suppression\>\"", ",", "50"}], 
        "]"}]}], ",", 
      RowBox[{"LegendLayout", "\[Rule]", "\"\<Column\>\""}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"density", "=", 
  RowBox[{"ListDensityPlot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], "/@", 
     "fixedTuples"}], "\[IndentingNewLine]", ",", 
    RowBox[{"AspectRatio", "\[Rule]", "1"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ColorFunction", "\[Rule]", 
     RowBox[{"ColorData", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<LakeColors\>\"", ",", "\"\<Reverse\>\""}], "}"}], "]"}]}],
     "\[IndentingNewLine]", ",", 
    RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Male mating competitiveness\>\"", ",", "75"}], "]"}], 
       ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Lifespan reduction\>\"", ",", "75"}], "]"}]}], "}"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"FrameTicksStyle", "\[Rule]", "40"}], "\[IndentingNewLine]", ",", 
    
    RowBox[{"FrameStyle", "\[Rule]", "Thick"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "1500"}], "\[IndentingNewLine]", ",", 
    RowBox[{"InterpolationOrder", "\[Rule]", "0"}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"MaxPlotPoints", "\[Rule]", "Infinity"}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"Mesh", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"20", ",", "18"}], "}"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"MeshStyle", "\[Rule]", "None"}], "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<pgSIT Eggs (200:1)\>\"", ",", "80"}], "]"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{"swatch", ",", "Right"}], "]"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", ".025"}], ",", "1.025"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", ".025"}], ",", ".925"}], "}"}]}], "}"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"PlotRangePadding", "\[Rule]", "0"}], "\[IndentingNewLine]", ",", 
    
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Opacity", "[", "0", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Disk", "[", 
           RowBox[{"#", ",", "0.0025"}], "]"}], "&"}], "/@", 
         RowBox[{"fixedTuples", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Thickness", "[", ".002", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"#", "+", ".025"}], ",", 
                RowBox[{"-", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"#", "+", ".025"}], ",", "5"}], "}"}]}], "}"}], "]"}],
            "&"}], "/@", 
          RowBox[{"tuples", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "//", 
         "DeleteDuplicates"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", 
                RowBox[{"#", "+", ".025"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", 
                RowBox[{"#", "+", ".025"}]}], "}"}]}], "}"}], "]"}], "&"}], "/@", 
          RowBox[{"tuples", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "//", 
         "DeleteDuplicates"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<FactorialSweep.pdf\>\"", ",", "density"}], "]"}]}], "Input",
 CellChangeTimes->{{3.739879970926447*^9, 3.739880006526671*^9}, {
   3.739880062552367*^9, 3.739880109361829*^9}, {3.739880163506571*^9, 
   3.7398801657811747`*^9}, {3.7398801961894827`*^9, 3.739880219055015*^9}, {
   3.739880252571561*^9, 3.739880324318416*^9}, {3.7398803905307627`*^9, 
   3.739880584381035*^9}, {3.7398806942283783`*^9, 3.739880763209218*^9}, {
   3.739881045896559*^9, 3.7398810464205503`*^9}, {3.739881126598577*^9, 
   3.7398812466469507`*^9}, {3.739881279501383*^9, 3.739881342694091*^9}, {
   3.739881380022814*^9, 3.739881407070952*^9}, {3.73988143932257*^9, 
   3.73988145624914*^9}, {3.739881548200885*^9, 3.7398815957636347`*^9}, {
   3.739881684793833*^9, 3.739881709642164*^9}, {3.739881776901001*^9, 
   3.7398818092882547`*^9}, {3.739881949870504*^9, 3.739881952058488*^9}, {
   3.739881993872677*^9, 3.739881994154499*^9}, {3.7398823136347923`*^9, 
   3.739882449324394*^9}, {3.739882546099164*^9, 3.73988260219347*^9}, {
   3.739882789877308*^9, 3.739883102576007*^9}, {3.739883215622057*^9, 
   3.739883216005192*^9}, {3.739883275562707*^9, 3.7398833070115213`*^9}, {
   3.739883420217882*^9, 3.739883422066086*^9}, {3.739883456602889*^9, 
   3.739883480911179*^9}, {3.7398836249593897`*^9, 3.739883721566889*^9}, {
   3.739883754457642*^9, 3.739883838545516*^9}, {3.7398838762011557`*^9, 
   3.739883876329062*^9}, {3.7398839113362513`*^9, 3.7398840079526987`*^9}, {
   3.739884045002718*^9, 3.739884160021772*^9}, {3.73988421514361*^9, 
   3.739884309310597*^9}, {3.739884359635148*^9, 3.7398843649733667`*^9}, {
   3.739884401988454*^9, 3.739884542084235*^9}, {3.7398846258709717`*^9, 
   3.7398846514825983`*^9}, {3.739884702519166*^9, 3.739884718574369*^9}, 
   3.7398848493781033`*^9, {3.739884922115653*^9, 3.7398849742286167`*^9}, {
   3.739885113079008*^9, 3.739885132149808*^9}, {3.739885228471884*^9, 
   3.7398852696873283`*^9}, {3.739885311127334*^9, 3.7398853238809547`*^9}, {
   3.739885480647312*^9, 3.739885493321376*^9}, {3.73988608083431*^9, 
   3.739886137295862*^9}, {3.7398862423528337`*^9, 3.7398863477684107`*^9}, {
   3.739886384586062*^9, 3.739886427238339*^9}, {3.739886501126905*^9, 
   3.739886539594306*^9}, {3.739886587566757*^9, 3.739886698621142*^9}, {
   3.739886742347561*^9, 3.739886769596319*^9}, 3.739886821782057*^9, {
   3.739886870513475*^9, 3.739886872071707*^9}, 3.739886929043468*^9, {
   3.7398869683422203`*^9, 3.739886968577188*^9}, {3.7398908979363422`*^9, 
   3.739890957302503*^9}, {3.739891135768475*^9, 3.7398911612451563`*^9}, {
   3.739891336037217*^9, 3.739891336218193*^9}, {3.7399076363846292`*^9, 
   3.739907640335742*^9}, {3.73990813190842*^9, 3.739908132144259*^9}, {
   3.739908518950131*^9, 3.7399085593664513`*^9}, {3.7399086264794083`*^9, 
   3.739908628255169*^9}, {3.739909762726358*^9, 3.7399097938108377`*^9}, {
   3.741170779251042*^9, 
   3.741170779491033*^9}},ExpressionUUID->"2e47934a-efe2-4b34-9c5d-\
db6186f79799"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[
    GraphicsComplexBox[CompressedData["
1:eJztnc+LZtlZx2sCs1QiZC3xP4j91kSysVfij50iLoUx09W6UDdCIPsEF0JW
kVT1SBiQwGzcjAsDQgUXbbDfGmkoqAoNRdmposvqLrsXwYXBtEy993Mvz+f0
d553iAsX9ubl2+d5vufc5zz3fO/5cW/9yh/9+e/d+9zOzs43f3Fn55Pfg/3b
f3fT74Ppd3f1yb+Poh3l2O/c/vvB4O9y/Pdu/z2M5fen8m9P+Gh9+y/6Uw7e
2D0e/D9QOfab4uPB3+XfK+09jf4uvw3H6sng/4HKsd9c39ng/4HKicfm+s6j
v8vv3ZY/jf6U1+u5iP6Uf1jidxn9Xb65vmfRn/J6PVdD+YHKv1baex39Xb5p
74voT/mBcHffdPcR2DzJLvEZ+9f3a8Idj/nA3L++n7v7v+MD+34Hp/HC/uCV
+Gr8Hsfxwtj+iY/6PF4k7PrNtyu+Gr/TYTzqxi+3byU++N/ReOTxy9j+iQ/M
+OXxzuOb6zffSny1v8+H8dHjoet3+3bFV8ufxvHUGH+3Dz7sa/wuhvG3G6/d
vpX47pT8uhzGa4/Prt/t2xUfeFPvszi+G+Pv9pmv9sfVoAedfpjvK+KjfusB
2Hrh+t2+XfHV+I36Yv1x/W5f0ifwStg60OlO0o1OL/zb6ZB1odOL1I6Oj997
QS8STjzmA6MPxL/Tj/vyT3zgTi+sR/ZPfGDrTdIP19fx1bidRv0xtj/4LfHV
/h/1IumH/RMf2HrT6cc78ofvv19/8u9wtv/phK0PST9cv9tX+/tc5YteJP1w
/W6f+cC3Zq9/POhP0o978oeP+uD7XMmvS+XfqB+u3+3bER944zfqRcL4u33m
q/l7NehP0g/7g98SX82na8V31A/X7/bV/rjW/THqi/XH9bt99jc//Q/em8bF
Tp/AjKt/I7ytrpjP9ZvP4/a2v0l3zEf9e/p/26V2dHyUrxu9ML4nnsQH7vTC
+Ej+iY96HwW9SBh/890TX437adQf47X84bsvvvpcMuqFset3+8wH3vyeDfpT
8+JsqK/je2/C1oekH67ffHviq3k16kXC+Lt9NV+fKn4Xg/7AZ2x/2vee+Ch/
IH1I+uH63T7w+5M9eDfoRcIH8n8gjH3tj6tBf3YCtj/te098Xy3xu1Z8R/1w
/W4f+P5kX+M36ku9f18M9bt9SZ/A7wp7Xcv6hH+dV47rXtvOW8yf1tU8L+G6
O11J63aJz+P2XvPbzYPMR3mnF2DX1/HVdcesF8brwGO+f53w5uc46s8jleNv
viPx1fidDvqzJ+z63b6PxVf7P+sF2PW7feYDb9o56kXC9gevxfeo9Mu5xpNR
P1yf21fjf676nir/Rv1w/W6f+agPvUj6Y4y/+R6Jj/62Xlh/0A/X7/atxVfX
TRa9SPrh+t0+89X+uBr0Zy9g+4Mfie+fS/wWvUF/rB+u3+1bi6/eH6O+7AVM
/W5f0ifwD4XTvoj1yfsoaZ+jWxczf9qnSetQ3bwl7eN061qdrlg/7J/4PG53
v66v4wN3epHa0fHxuyk+VjtH/eh4zFfjdxr1x9j+ia/2/6gXxq6/46vz1LNB
f5J+2B+8Lz4w+mD9+XT9OBvaV+N1rvJRL4xdv9tnPjD6YP1J+mF/8L74HpS8
uhz0x/rh+t2+A/HVdfdRL4xdv9tnvtofV4P+WD9cX8dX8+l60B/rh+s334H4
6v0x6ov1x/W7fUmfwPvCG/PxHFB3bugD4U4v0jkD128+cKcXxumcgPnSvKHD
+Cc+njMo31ZX0jrbvcAH7vQi6VzHB07/n3Bnx29dl8x6YWwe/2Jf+3/Ui4Tx
d/vMB7bedPph/8RH/daH9YSp70i46mnmq/k66kXCa/knPjD6QPs6/bB/4qv5
dan8G/XD9ZvvkfjAnV4YVz3NfOCNXdYLY/tX/Vz4/qXE71rxHfXjzXp6POCq
d8dRX6w/rt/ts7/5jbkvO33qzoV1emH8gfzhf0t8lNd12X4fJu37g7EHozfd
upjrc/vAaR0K/4TTvpCx5yXb6orr6/g8jq+3/O10qMbxNP5/0o/Ozr+cl6j5
kXHiMR+Y9Tr8k364vo6v9k/Wizr/Wurr+Gq+Zr0wtn/iq3G7iHphvCf/xMd4
wfqg9Wct7PrMtyM+MOuDSX+Mqc/tgw/7Gr8r5XfWD/vvBr6f3V7nyaA3ST9c
v/nA2IM38Xze6o3rT+3D3vyvJ3vwarpvtj23jH06B5z0x/h78off58K8z17z
bdQP1+/2pX37uq/V78PYP/F5narmQ8b35d/tm2w7b3F9HV8a143TPKrj87i9
7S/+HV89d5j1IrWj4+O30wvjdwKP+cjfTi+Mqc98VcfPZ9zphTH1uX3mA3d6
YXxf/vCtxEc5eoE/epH0g/rcPvPVc6mLPhhbPx7IP/HV/sh6YWz/xEe8rDdJ
P1yf+d4RX70/Xgz6Ap8x/m6f/c2/EiavO31K77GA07nkVcDdezI+d8w5me4c
WXovxxh7cLevn86xuX3ep6e804t0zsDtMx94v9GLtA+U+N68r9PPW9K+0H7g
S+N6wmmdLfHV/s96wW83DzIfOP1/wp1d7fezQR/QH+4nyhOP+fCv5xJHvUjY
/keBD4w+0F7rhbH9Ex/Y+pCw6+/4wBu/rBfG9k98tT+yXhjbP/HV+F0P+rMS
dn0dH/hnmg+hL9Yf19/xdfzkXadP3XuTnV4YfyB/89fzHss5YfyTfri+xIe/
z3Ul/TG2v88x+1xYpxdg1+/2rcWX9j06/bC/cd0n875Gv05m//3Al+YNnX6s
5d+ta9X7NOtKt85mHXnzuN3/7sqf9q3FV/vnXOPJaOd67Ge+6pf1wngdePhl
/lTjdxH1wnhP/sbw1fEj64Ux9SU+7Gv/ZL0wtv+DwFfjlvXC2P6Jj37axC/r
hTH1me9IfODXQW8Sxt/t6/jeXD6+V2998nvxHwp3emF8IP+qn+N7k7zHkfQn
vefp9sGHfzoXnN5rcf1uH/hPJnvwpp/WUX+Mqd/tMx/YepH0w/V3fOBu3yWd
M+j40rpUh9O+jPkot94Yr4Tx7/jAna6keVTHB0464V/Xbz7rCuWuJ9kl3Ut8
NX4Xim/G98XjX+xrfl0q/7J+4O/2mY9y1geTXhjj3/HVOGe9MF7JP/ExfmzG
k2v1U9YP/M23J74av2U+9Drojet3+/YaPtdHv3X65O+8HAhbH5J+mN/1m4/n
pDr/Gt+rtH7U/baRD/+at4s+oD9JP/B3++BDf+pzXtYLY+p3+8wHrvOr/hzZ
Wv7me/O5535f3/W5febj+pJeJP1I+/7mo7zOv/K6WDonkPjSvKHDXjdLfGlc
7/QjzWuSbuDX/aZ5VacLrifZub7kx+9bZfwY9SJh8/i37qddtHpR3/9a6nP7
zFfjN+pFwrvyT3w1fos+oBfWD9fX8YHRlxrfF4PeuP7Pyufyes4061P3XbGk
FwkfyN/89bz98h699Sfph/2N8fd7jvin9yxdv9vn9+zrOaisF2DX7/aZz+eE
k/5YP47kbz6fA9723JjrT+eY15N92ldP2PW5febzPkjSC7Dr6/jSulSHV/Lv
9k22nbe4PvN5HpLG9aQrri/Ne7D3uL3tL/UnHarjyGX8/6QfO+H/zUd5pxfG
5kl8tT+yXhiv5J/4qLfTC2P8Ex/2lG/Gv1FfEsbf7av9OPK5vhqHrE/pu8Pg
Ti+MP5R/911K9Mn6Y/1wfYkP//rcNH7nJekH/m4fGP0Bd3oBdv1un/nAm/CN
70l+un7k9zDTeybduWTX7/aZr/bHqBdJP9byh8/nwCjf/Ga9AHfnnM0H3nbf
JZ1DS3y1f8Z1sKQf3T5NXWcf5w0Jd/s4npfU+I3zmqQf1Of2mc/jdtKNpHOJ
r573eDb/Jr2w30GwM1+N36gXCe8Gnl3x8f/Wi6Qfrs/t2xUf5Z4PoT/WG9fv
9t1p+FxfjUvWJ38H+UC40wtj+5sf+/WEOR9f8y3rR91vG/nw/3jC1gf0J+kH
/m4f9eFPufWhw/i7feYDWy86/bB/4gNv+96L609868m+PleO55BXAaf3YsxH
eacXYNff8YG33dd3fR1f2vfocNr3T/sq266Lub6OL80bOv3o1tGwT+N6px/2
T3wet1fNr+tPfDWOV0M9yc71JT9+6X/0IemPy83jX+zB6In1ZyXs+t2+dcPn
+u4V3c361H13P+lFwgfyN3/dT1u+M8n1dfpR99tGPvz9HUrrT9IP/N0+6uO7
YrVf+u/CuH63z3xg9Am+Tj+O5G++ul92PejFWjh9R8DtA/u9yaQXST/W8vd7
kdjX+7Q/l+z6Oj7wtufGXF/HB952X9/1Jb71ZO99kG33YbwPfyS+vcm+xq9f
F3N9bp/5ar7285ZuH8frWLV/sq543H8gf/N5HO/0wr/WHeM6jlzr/MaoF6kd
HV+N34tBf6w35v2sfC7nt9Mn/x2XA+GkFwl/Tf7mr/tlL3R+I39H2fUlPvzB
G56Hg/4k/bC/v5ucvkNZ82bErt/tMx/Y+tDpx1r+5sMf3L2373L77we+ui6e
9cKY+js+yq0PHca/4wNvey7Z9ZnP54zrfd+fG3N9bh98+Nf8Gs+BJf3A3+2D
D/1J+x4Jp3Noe4GPdan6fd68Tub6zFfz/3KYB+Cf5jGu3+1L85KkFwnvyj/N
U2r8Rr1I+pF0x3yUJ30xdn2flc/lmzjftPpU98dutD920+qF8YH8zY/9gwm/
fes3focfbP2o+20jH/7gTZzyd/pdbv+3Ax+40wvjd+Wf+MDsb9X4Zv04kr/5
8Adv+10Y1+/2gY8m+/dLf4x6kfSjntdY2mc+yrv3+MGur+MDp/dc4DdeyT/x
vV/itehF0g/Xn/g+nuy5P6wX6dyY63f7zFfj1+/ru37zHYgP7H2STj/wd/vM
R7n1wvqDfrj+jq/Gr5+3uP6Ob3/CSS+MXZ/5an9cz+XE2friX9fn9nV8Lt/E
4WWrT3V/7KX2x15GvUj4Q/mbv+6XvZzXB5P+oB+uL/HhD7Y+dNj+bwnX8xsv
W70w3pO/cd0veznoRacfa/knPrD14kjY5fY3Xk/2tT9GvUj6cST/R4EPbH1I
2PV1fOCkFwnbH3xHfLV/zgf9sX64PrfPfLsT7vTCekT9HV+N38WgP0k/qK/j
o7ye37iJ+uH6Oz7KrQ8Ju77Et5rsa/xGvUh4V/7GdZ3x5awX1p/9CVs/7F/X
SRc+ypO+GLt+t6/jcznYetTpibH9u/Hd/h7vPV6bz+Otsfm68dT+Hl89Ptq/
G+/Ml8Yv+6fxzNj+dT9/webz+JDGC/N197/56v76eD+bb/M73p/JP91v5kv3
n7H9fb+Au/t5ui8O63rD/mF9nhvLyfdkz/2R7MnnZF/Pp4725GuyJz+T/WrK
x2S/N+Vfsq/zudGe9cxkX/VwtK96NtqTL8le+/iDPfsAyX6njOejPeWb6351
90//9vb/I/6vKT8SPr2dmB9G/KP3NvmR8H9uLiDij6b8SPj3jzb5kfAvTPmR
8MM7m/xImPxI+O2jTX4k/O6UHwn/4+39/OOI3z7Y5EfCf3Fnkx8Jf+lokx8J
/9Xt7/WMn03jS1fuccXrnp9tXLqZxrc0Lx3HIdvX9wiWeWAap2z/bilf5nlp
HLP9D0v5zV3be5yz/X4pX+ZpaRy0fT2nf3PX9h4nbb/RlRPF71TxXsZR29dy
4zTOnkV/23sc9rqc+WzvcXqv4HGdz/Yex9O8yPOYNM6nec+b50WjDtwpeJxH
2d46sS745q75bG8d2Sv45q75ku7U/Hmu+F0rHi8Ur3lcOXy/YPL3ueJxo/i9
DPjmrvk6e41jh24n42WN16vZ/683/z+Pk2DGPTDjGJhxCfyN57/7D7/8jUfi
ezxjxiEw40LlP50x92Gt70x85zPmPql8F2rPpfifie9qxl/88re/+f5Pr8T3
QvXxPsGsDzMmfqmceCZ7vg+f7B1PY/oj8dE/5gPTP8m+zt9G+7peNdrTn8m+
zudGe8a5ZE//J3uXkw+V72ood/87X5I/+WP8s0n/WY8Akw+pnHxI9vem/k72
9Heyp7+TPf2d7OnvZL879Xeyp7+TvcvfjJ+q/eczfj093yb7v7z9d6Hru4z+
xuRL8kenkv0X/u43/+3rX7iO9s4fdCuVg+nng5LHy9+T37ac8T9h/10o+rcr
37Z/3Z+U3yvteDrj1P+1/otYbr7N+vbFjB+of50/qb6EWQ8yf72eq8E+5QP5
lPyPQn7V9uV8Svlnf2P+ninjG5h8S+WMZ8m+5tloz3iW7BnPkj3jWbInn5M9
41myJ59t73xO9nvKV/LLf183leNfr+8y5n/iBzO+JT7yz3/fNpWvdH+Qf9vy
Of+6/DR/8jf+zpQX5C+YfE3l5Guypx3JnnxN9uRrsidfkz35muzJ12RPviZ7
8jvZk5/JnvxL9uRfsie/kj35lOzJF+eP/VO+dPlk/k/3P9b4eazxciyv4+Vo
7/I6Ph5rPBzLyZdk7/I6Xo5/b7Yrp/8S3lz+v89/L6c+b5/o+XosZ/8v2e9N
91+yr8/Xo319vh7tuY5kz/2X7Jl/Jft6/m60r89Xoz37Zcke/Uj29flqtK/P
P6N9fb5Z7FP/234zPjwf8K9OcSAfwPR/Kuf+SfaM18me/k/29H+y5/5K9vR/
sud+S/bcf8me/k/2jNfJnvE62XN/J/vV1P/Jfj31f7Jn/E32jL/JnvL3pusm
P8DkQyrnfaJkTz4ke/Ih2e9P+ZDsyYdkTz4ke/Ih2ZMPyZ58SPbkQ7InH5I9
+ZDsyYdkTz4ke/Ih2XPOONlTvp6ui/wA1+95jOXsOyX7vSkfkj35kOzJh2Rf
dX60Jx+S/arcd6N9fR93tCcfkj35kOzRn2SP/iR78iHZoz/J3uWvlQ9g2kV8
Ph2P3xEE+zsX9X2fsfw7k54me8a/hDn/a0y7/F2n+j7uUj/l6OdBsXs4lIPr
vuloj17aHuzvNdd91PF7mrYnX5N9fd9hsXf5geKUcPoux7bl/v4SuPrtz5jx
JpXTH8ne3x+yPf2R7OmPZO/vvdne5cS/rtudxfJ6Hna0dzn9lTDjQ8KMB8Yf
l37cnzHxTuXEO9n7+xq2J97Jnngn+/UU/2TP/ZLsmb8ke/oj2dM/yZ75S7Kn
/5I941myp3+TPfdnst+MZ9fR3vlhe8r/ePp/3pcHkw+pnHxI9rxfnuzXUz4k
e/Ih2fN+drInH5I993OyJx+S/XrKh2S/N+VDsicfkj3jcLJnHEj25EOy5zx4
st+Zxv9kT3nVjX3pxkexnHxI9pyLSvaMJ8mefEj2jP/JnnxI9uRDsicfkj35
kOwZT5I9+ZDsreO2ZzxJ9uRDst+b8iDZM74ke8o5L8PzYX3/4aNYTj4k+70p
H5I940myJx+Svd/Ptb3L/f6R3zftyhkf/D5NKqc/k73L6R/jL9+2a3l/Aky8
wcQXzPMAmPuv8j2e8XqKV+U7nTHxAROfyn8+Y+6HyncxY/QWTH5XvqsZOx7k
7//W+SuftyIe/1fPV+1M9/H/58dnyo/Dim98vuyw4hudP+H85HKeuJbfzPtJ
b7a/0X4Y53fXodznganvJOAbrcfuH1Z8o/W2/cOKb2adq+dLx/fmKdf8U/hG
84v9w4pv9Py0f1ix32vbP/R7bnU83T/U/SC8vGe9P8X5exN+PcWR8jtT3Op3
s+a4DeuCxAXseXmdZ+z7uofnMManuq64vvvtUv9yboPr8fVRzvX5euu5ySfD
9ddzS2dDPFalfedDfOr15L9DSrwcv69M5Z4nEz/Hk/akeDIOGjue4A399wd7
xxdMueMLptzxBVNe1zOW+Hsd2fF3vP13g+BP60LsqxJvxx//NO+kPs8byIsu
/oyXjieYcvQIHscXjL3jm+Jdv6s9rtvX+3JcN0vfRU3zcM+b9L7JgIkTvHVf
YDln5XiBKXd8UjzrueYnQzwpJ371vND5EM963mL5u1N1XXRZR3S88U/rXsSh
zuuX+PO+zrbxNv78L33yb9bv+TmpXsfjuR1df2Hv/gFT7v4A13PlT4b+opz+
cX/tl/aeD/1X78OLof+6dWCvK7r/unUm6vc6Qb0fjod4fnp/HA/xBdfvDJ4M
8cff8QVTXp8XHuv+yPt23sd4c/zzujr1p3Vd/NO6nddZ4Kvj9+k8joEdXzDl
9TqPdV2nc3wdf8od3xTv2p5x35PyTX48nfRu+bs16e+Epn0Lyr0O7niCuS6v
W6X4sm9fx8EnQ3zBm/nDjwZ7xxtc/27cydAf+Fe9PNXzyxM9D+Z9Zcd/VXgv
hv54p9TzbOiPbh+C8rTOTP1eJ6Q/6nc9H87zfOLd9Y/jX7/TeTLEH37H906p
50zPh0v8u337bfc9HV/vs6V9Ha/DO/5eZ+V6qt6eSy/P53h2/VHtj2dcn3eW
+Nf3np4M8Xe8u3MP9f3TyyHe2+5bpn0xytO+B+X1+WaZl3HfMb508cae/AUT
3/od2JM2/vjX5xXHP58bcXwdz27fEH7Hy/tAdV/gaYwf/Ur8Ntf54xi/Wr7o
jOOT4ou/41XH53yuhr8X6XMM3hf3vmnaJ6Pc+xz1+fhy63hhT7zqdxFP2vjh
TzwcL8qJh+PVxafbV+72DdN5jxSv1VQv8QKneNXy5e8lER/Hk3LHB1z5zof4
+VwL9rv6Tfvs3T4q77N7H6w+/19pPBv/Hgnx6uKJPfGEz/FK8cXf8avjXX8u
jfts23NE6dyKzyW4P7p9aq7H+4z1+eg6YvcP5VVvcn+5P/ZKu5bv0Vf9WfqL
8jpfuNL4eT3EH7ypN5/Dc/+4P+BP50S6cwD4E//f+e5Pfvu7P3m+dfyNd8pz
1/IeFvF2/9Ty5fv7jm/qD/wd7zo+P5deLf3hcRL7dA7L8ab+dI4C/6pfy3kJ
f4+0ix/25Cv7E45Himf9fujyvc+q70s86/74eI61i1/93uR4bsn7NI4n5cRr
M/4s+43pe67ED0z8wMTP8dzU+x9DfMD4E0/Hn/K633Gj8frlHD/Hd7e0f/l+
XdW/8XuRxNPxxt/xrPPTl8P3GVO8P2t8HS/Hx/H4ea/f1/vsoz/70m/8+lLf
17/2yb+F/1uf/+If/sGvLf7f+vuvvv1Pv+V4sU+57LtyfeD6fMg+77JPqv09
7Xv6O0Pjvqf3Oev4/Ur7Mq+0D/Jq7i8w1wPmemr58n20Oh6/0nj7SvPmVxpv
X83xru27mDH9W69n+T5ZHX9f3fX1d+fQaj4v+3feT/J6fDp3RrnX+4kb5cQ1
rcelc2eUE/e0noF9mo97PcTzTc/n6RfPR9N8Avv0/Oz5iJ/v/Pydnu+Sfu5N
9t63r/F73o5v6RxAzc/9YX/c++8b+H3db8v+k/dLvR/q/R/yiXKvv3o9YuO2
PE/6ec769vOOj/X7PQ91vsnfK1ow9wWYPAfTHjB5XPmW7wkxXoBpL9jtpX/r
9ziW7+vQXjDtrd8LOZkx7a3f6/H3cZbvf9A+cF1vW/ZLwdTn/dHa3vO5nP6r
3/tYvgdR1w+X/Uvs67nYZX+x7t8t39sgPvX7Eiczpr31ex5nut5xf9D7gfV7
G8v3Jbz/53hyPfX9/Id633/5vgLXU78/cDJjrqd+v+FMfOd63/9C31MY95sp
N677PevhenyOufbXsfrrOO5Hgmt/Lftf3u/yfha45vdybgJMe8D1/lr2Qev7
3Cczrvl/Mrenvp+/vJ9OvoPdvpr/i97W94Mf6n3i5X1t2l/fZz6ZMe2t74Of
ie9c7x9f6P3s5f1m2g+m/WDaX9/f/YHeV32o91vXep/2ZMa0v76PfCb/c9V3
MeN6fuVM6xNnWg86n9sLpn0VL3n4WnlwR3H1b1pnBNfzHuP6PfWDXyvvvH6e
9gfA9Ed9/rrUc/JSTjzA5F+9ruU7GrQP+7QeC07rzencDO0B0x6fG6jrKifS
7SdDP3id1+uLXk/0uSif26nPSY+1LnGi54YnQx64Hx2ntA7qX9rrc5rpXBHt
rffJuO9fn3OeDHFxvfU596HmMYvOUL/nOfV9j2XcpP7Kv8wjiA+Y9oFpH+sZ
1F/XS5b3L7xeBR/nc+Hj+RQ+MO0Hw1fP15/p+fZc5/Of6v2A5Xw97QHTnnq+
/KHOwy/n5WlvPX9+MmPaW/3Pxf9U5+8vdZ5/Of/u+NEvtN/Pz3U+u8yLdB7d
582lz/s+X+7z5DP2e1N1vnQ+5B3l2+Yd2L86D373fwD84muZ
     "], {{{
        EdgeForm[], 
        GrayLevel[0.8], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwt1XmQz2UcB/DvytH+dldjypHWsfQHazKUNLWIMlF2G5kyzMRamqYoa3O1
jk1I5KpFarOODEqs3XVkRoOYYVoqrSMpM2pC486Os6LXM19/vOf9ft7P+/M8
n+d7ZgzN7zeyVhRFFXAXTEqOov5JUVSE760XRTcTUZRTP4oy0qKoo3HtlChq
gFOhCW8/dJb/k5+dGkVNLZKuZi3ugxuofclcyd1RNEp2r8zbdaLoYf7PdaPo
lEwveid/CP8hOkXuD/4zdD69WO04a1Rb8yCMl23Iv6G+Ea6A2/RNaEe/GXqT
H0OvUDuRbqmmt4Oe5f0FR5yvlXE5fVjdAai0Z6UeyqG9mgrrPGb+pGy27Gl8
TSaFXxdam3saJ2RX4kw8UM+P8kuN2xgX4nT8Ir8nvyc9mM6m79FbH+MrtaPo
EqzX43zoR0+zTwe50XoZCWd556Ad7xOZQnoCTKfTcYH8ILmluL1Me954ujk9
QN+/u7cD8Qb7Ncev85vLtIC35Pbxc/i79dUjnFnf3XnbrbkDqu2zDz6nN8g/
gbOghC6T7+K+dIVu9C9qu6h93/xMmAU5/Aec9/mwv1wLaKa2vzXb4jr14/vR
GpryDsF36qqgr9oOaofITFCXJZ9K7zG3F3bBp/IznWUWzLPGfOjIO4NT5f9N
i69duIbnoXG4Lon4mQrnb8nLgNF069rxtcmUqcZfWGcyvwfdBcbwhzrHZmte
ML4IZyCJ3zj0Zs3VaorptuHdgUl0t3BP1KxxliL1O2Re0Ptnifi5D8//MvpH
WOB5vGX+ZLg+9BbefnqVTCfZDvRcZ7tqvcfNdwrvEq8z/Oc+XufvocfKPyI/
G8+oE9+TUBNqw3WaqG4cXJFdg4/Y5yn5VfRyiGQP8pbRJbDReHV4H3Eruanm
+jrXEuPZ5r83zna2RjKNYbl1S823kc2DYea2yC6SO8Y/Cs/J1HfNmvCKzeXz
RsFP9FRnWYs/hl567w0bzZXBBlgX3mffn2RrVNNT5L8M7zcsoYuT4usf7tuc
O5l3+S/zK+l/PKtXYSl9Tf/34RJoEc6qnzx6sp7zwzUJfTvTWOPl9DB1Delc
KONPCFnYSA/DOfZr5ly11BbTeXp4kC4yt1nmFbwJ1tGFeGjo31oFMp1hWyK+
t5lqJ7pXNeZr6BG8N2CAM7zjLAf4X+FdxuvxNjhOH4Vv6ZN4F95p7SluaRZ9
nh7On0U30le+vdLtOce4gD8XL8Sl+LD1U+x7wTgVH4fb7kOkh2/Mn+Bvx5Ww
j96TFN+7acbT4VZ4V3i/hW82vZpemRx/Y8vrxd/ZY/SrvCqZrvqoSsTPZqjP
lX8Pb5LJxFtlFuBC/kK8Qu5QeD/VzTMew/8wMGQlxf+nE2rb4AJed7nDifgZ
D89QOVTAZnOHZL7G99sjTV/X5cYZ9+SPx6et05X+wXx56JeuwDX8IvoyPgLn
XJ5B/DLX6m9rX4YhIcfPw4PhIp2bHH+PLtz5tnc3XszvgU/xTodn3BrP2i/y
nOSGb5Kelui9FLaG/wTuGP5/cjPwkzK39bBVP7+q+8Ba+fRs3MdcTSL+Z14K
/0rP1WtwUW1ftVnh3wQ3EvF/vuLOfT0uu0qmSj8fmbtOT5HvJrvbXou0t1Nm
uGyavUbg/wEq6iPN
           "]], 
          PolygonBox[CompressedData["
1:eJwtmXmcT9Ubx+/MNDP3e7/f74wl4afsWymyDrIUCdnK2GXfRtmXYixhsoy1
pMieNbQRhQhF9i1pQcqStYTsot/703P++Lzu+dzPc5Z77lme85wCHXs37hXr
ed6dGM97gOdrSZ43Iex5m33PGxn1vI0RzztP+gJ4B94HzCI9CJum4Cv0i/A/
wLtoU2VDQX3BdLQIfF+C550KPO+5JLOpE+95deMtbwDfgX4CvRZ6P95ti/O8
JvAc8JFgNvWco/xp2A4h3QLMhw9QXdhvwr4x9g8mWZ2n0E771paBvFuKvR/y
vIXwdPjb8APo4+CvwsfBA/RF8Lbk70J55SgvjJbCu1WJnlcKm5JgCdpS8Dx6
VvTW2LeEPwkPwevCw/Cc8Bj4R+TPD88Lj4UXhjeivCTKSgbPYX+bH5AV/V+0
HvCPsK8Pz459VfqmGtgIrwhvBgqRbwpllFFfYv8v+bOje2gvg3x8y1S+r5e+
D9tU8C68NzwJnKG8i9jXwXYQmIy+A/0NtMHwN+F74GPgw+HvwY/Dp8Czgavk
/4v8z6ONALPQT6K/hZZMezzas5s2nITnBPex/xv7ethG4UfgZ+G14UPANPJ/
T/7xaFnAH+h/otdFGwZmoB9Dn4z2Onwm/Df4m/ChGlPwn+AT4b3gLeEL4APh
HWjPa/RnZcqLoPUAr4C+aP1AdvRk2nuA9v6u/oHfYy7sgp+CZ4XHoe+Bn4aP
BS/Az8MvkS6I3hB+Dv4nfLnGEPkz4Af1/eh50L+Hn4XngOeAfwc/A5/Jt84C
39G+Q6AAej30M668qvpH6IPBDbRY3sWAp3n/DMjNuwLY/4D9uai1SW27AP4i
XQ2b4eR9HdzC9nf6JoX29Uffix7wbrdv/1z//nH4SMq7iX4NvSR8LPwW/Dr8
Ms9u8I6gEyiO3pvnVd5fRS8C7w6/Ar/i5l9nyl5LHa/Dz5F+mvoHou+L2npT
S3OPYbMYVCH/TvLH0Be39f3ww/B4+J2ojdd3sB9KGcNAdfSj6Inod9F/pfxv
NBZ49sCuDPo89Lukb6L3JH9ztLnY9IffJD2Tcuah/wh/BPvq2P+mPtR6Az7B
dhR2/cibAP+cvjxKfTXhk+DTGF/PwrPAffgG9F/gz8KzUV4C5e1146cbfAr2
NdCTk6zMdpSd7uqK0xgi/4/oNdxYbYY+27cx2wf+EvwDrcHwNpTXjvLKYB+g
9Qcd0FehD3VjZRHlHQ5szJzDviL8S3gF+D/Yfsj3L6Z9P2PbCT2D8qqhR9Gf
4N3jIJV0E60t6LX4npPY/8H7PPCy8GPw8/CW2DxGmYtYnxaDi1qj0E87+wbo
d7RWo+UAbeHPYn+VdC300uDJqK1zzUFTkBd9BPpIUBleh/bX1RqhtRpk0t6n
KTMJrSb8T+qLwu9TTl79U9AQrZHmDPpZ9DD6Pa0n8Pvk7wbPg94QXgieDx6n
tQ0+gb1sIpgEmsCfQS+OnqD1C34V3gmeGz4YfgbeDp4L3oV9rit4H14KvpZv
6cg4L01/fEn9w7C/hX0X9P+hD4TvgzeHPwT/HPtm2D+B/Xr3L4bSD4+E7Z90
xn4M9tXd/1IfjQL5wtZ3XdEnoj/j+mcWz8a0JxU0AWnoU9FruvHYH74D3tTt
v+q7gpT3b2B92Bf9a/RUt9+WgA+nP2/Qvr+xfRTeD/63Ww9y0I6FwIPPh2eQ
Zz78DuNzDvwN+AL4ffg8eFHy9yB/T3AZfkJrPehL/iKM0w2ke1FcefhG9O7Y
HyHv9LDNv/y8K057Y+AvwHuif0p7G9DebPq/PFfD14DeESuzKCgWY3UVJX8L
8mcl/SL2L2Dzg3wf+APwFvDnyVuCchI1puBF4cXibLwshR9gnLyN/qjWKvjL
8FdAEfhB7XW0vynt305db6G3RRuLfSH5JvDO8HHwwvD92O/DPhX7b7GfiF4V
faj2CvSbpG+B2+ATtN94ngAn5X9hky6/gXQlMAH9A3CI9DTeP0b+8fBy8MHw
/PC91Pc19TWivm3U9yB6Nv7FQbc/1kV7HhSDfwE/hP0ReHP4Dvh+7D9mXH0C
ylPeUfUbfdsNfRd6BerpQV/1BO2x/Vn/nvxd0HeifwBWw9eA7WjFtZ/yP7KT
bqy1kjxp5C3v/LNW8GbwUnBf/UW9B8BBcBgtF8hL+w+7/Xev+gDtU+zLYT8X
PpPvnwWKwt+Hz9d8Ry+utRb+EuWXdv7dQyqT8g65/XsM7xbrG+EL4OtJp9H2
svANqo9883h3izE0W3uJ+on+2AliKOtX3q3j3VF4PHw79l1Z27qBNHCHvLc1
h7D5Cdud6P143x8MACnkWU171miPlm+m/YD37UEHUBa+AG1hrO1/yeS/Rvo6
qKXxwrtNlH2c+hM0NjQm4f3gf1HvFX0/5WwjXxW+tRr8J/ImuP1YPkk6+q7A
fJX/yYfjf92G19f/1z/VWKG8fynvFPZX6Iur4D20jtoj0dPhXeFd4Dnho+Dd
4Z3V5/AR8LSo9dExylofsr7rhJ6D9HD0bvIdNT9pz2bqr4TWTW1CH4f+Cnqa
1jT4ZHgP+EHs/yJ9GcyAP8azBCgKGsInaD3h/+cPbP43x742/DE3/7uCXJT3
BvYvY/sZ7+fwndfgM7UfYp+KfUk3PmvD/6H/sjl//2n4cbjv/Jdt8k0YP/PA
Fngp9PHot53/NVBnEBCGL4bXlM9Hf9fkXRvtL1qD0RqRfzXvniD/G+QfHWv+
3Ne8m4pWHZtN8G91hpPvrXkPH6U5QfoG72bBR8MXwWOxfx/+FekB5E+BfwUf
IP+R72vm9ivt3ZMT7YyiPVxrRFFs63i2djyL/WXakuT2Z/mge8DpsPmm5eRP
kb+Iznnkr6g64WXhreDFIrZHaG+QfykfdyraW2HzfeVTPATuBuZryP84Rf21
qTM/+arAd6GnYP9SkvkoS0CJsPkuebGpge0J5/9VBlvRy6O3Rj8gnwGtJWOw
CSik/dq3NqgtD8MrkP8X5w9lidiZSGchnSf2y4dFq0fei9rDNabhCaAS5ayl
3aUZv2XAOtJPoW+n/gquvWN5rsOO7F6UPMlggM46mj/aA+Gvkn5N8wGepLks
Xxd0gdcHOUnnAg1IN6L8J0i/SLp9kpXZFx4KWV2/oK/S3qMK+Y4PeZfXszGv
sV8H/R7tq837dtpvtX6oPnh3+HKeuTybw5rLy+A5PJuzmrsPypfHfpjmO9oK
kMezNUBrQQ3Ku0j5Ndz4XhL9rxneIH0P6Sa8n6G1RN8ctj1He89ysE++qXwq
0kvoyzLyV8Al1vcL4CJoozXENx9cvnhJ+bxgHvZtyPeSfGz0NvJBeP8ZZa6S
TwFWau+Rf+ubjy5fvQW8nm9nDJ012sN7wzvBO8Bbw1v55sPLl28Jf9G3M6vO
rqU1h0Av6v6G8vfw3At2gENae7VekP6B54+KFZCvsGdrnNa6JMZNMgjAcWf7
Kzji8rRSn1FfK/L1xv5jrRGerYlaG3UmnoM+OGxnZa2RU+D9wqYXgTflf2Rx
/lEprZHwgmHz14vBW8Ozuf26rMYDvLCbz3dpw3Xf1hitNYqBpKI3TLTYyKMa
T775hPINs8Nv++Yzynf8jGcD2luc9q5DK6n5mGhnBPm7OvNlYaxmjbGzoM6c
kZDFgHQWXcWztmdrktam3fIhNf+wP4ZWFR4Xsj1de7tiCAt1lnL/R3O0Mqjo
29zVGXIe6XT3v5Ph5+n7P1z84qRiX+CCi7fkpuwx2I9VfCZse1yG9qKwjXft
UZmK1YTtfz6M/UT4JJ3/wrbHva69JmzzJw/6ePgE0Cdse+RI7XVhm29ZtUZS
/yUXr9EeNRq9Z9jmbyX4FvqvnFvf2sF7oHfUOg9vq/7x7Uyps6X26+yh/0JN
3geqD2DiycXPyvuHIfko735g5y3ZJHu2xytvPvQiiZZB/rnO8Nt9i0HpbF+B
cZoCyoB1mme8L+tZTOu/2JbWaDBGcQkwCW0cyARVsdmD/SbSDZ3/uk79Ci/j
/LEt8Cnwam7/26h5Da/g9rMvNY/h5dz5Qj52NdaJ6jr/RezMFw9SI3YW1J6j
vWevb7GhE5ov8J3w0do/+L4BlFUhxva5nVq/Kb8+77Zqb4HPgtcM2X6/FMyA
14Bvdnuc9rq0WIutjCA9X/toyPbrelrzqSsryAaqaN1GHwUywD703Twbu/OD
xngibUkL2dj/CX4XvbPzv3WG0lnqZ99iG4px1uNfroiz2GdrxfWwPwVahSxG
qXPVKxGLXX5H3h/RmrnzgHxq+dbvgtkRO8c9Sv2FY+zsVQjkBflAH7TR2I3R
eQjM1FmK8g5SXhN3XiqP3ZOgNOgXsjOVzlZddaZRLIp3j6DlArnBcfk1fMsW
xXC0P2Pfm+/JiX028Lj2BMZaUbA2Ynu09upoxGKB8pnkO42ItdiY4g/yK59T
DBU+hPoaUk8jkK4zBu/Ko62njhRnK1+0XoLlWab1EduR2H5H+m/1G+97gmsR
8ymaKrYVMl/jnuJFaPsoYz+Il48JP+LiT1f4vm/1r3SuRFuj9ZT+etzFC77Q
vgx/0sUbEph7ieAG+W8G5uP3p74pIfP9tUYpNnw2wdauDPkr6FNDVr7qVOzr
gai1ZZN8cfAlWB6yNt6nzZMTrO03KH862lwXX5MPrbP0Yd98a52ZdXYuGGex
F8Vk/gFnYi1Wc0tnH/IvcOefe/BP4EvgR6J2vlgLXwY/Rvou+jL4IhfPui7f
ED4b/oMrO0IbL8ZaHTrz/Iq+MWRnoVidgeCf60wUNZ9ne4yd2+QL6Qyls9Tc
WIstxik+gL7W2VfWHODbDoLMqJ3JdDb7FFRAK5Zkc0JzYU7EYp6bfLtzUSw0
hP02+u43dx8yHJu79E1XF5+6BG+AvkW+YZLFMD5HbxRYbONreCfG8nwXb1Jc
eQ72cxMsvtwrYjERzVnN3W3Mgc1gC5gSWAymA+PjQbf/6l9/Qd5VCfbP5UMN
ovylgflWyynrd9p/BrwdtZjOdWwvB7Zf606gJ2WPD+yuQHc4R7UeBHa3s470
arBG62tgZ4y91F8x7M4e8Gm66wnbXY1i/CX43gKBxf51R3GW/v8mZPFrxUSX
Kdbs/Cvd+fTxLQat/b89z0/hK0FG2O4UplNercDuGnSnEEdbugd216Az/X7a
U8n5A1v43s0R8xHlK86hL2aA98BHgd2RxJI/LbC7E91pbOLf3w/ZXUei9iT6
55iLD+uMlQnfE5g/dJOyhyVYzF6x+0zKHQ8mgLHxtmZlB70CW8sGac2i/W1d
vFF+awf5rfHmv2ag58a+D+8fSbIz/w3akyWwWIDGiMZK53iLVV5Gb0ndW915
fxt8a8R8UvmmmaRLU94gFy9qTZ5moDmYzbsD6H/St5cUk+PbVmK7Cnym+BRI
13mb9nZ08VLFpCrzfoiLVWkNLqY+DWxtlg+huGOeqPkWWnNrJ1gMWGvxZHgj
8o/CviD8NjwDbTe8OnwcvOQD5jPId6gBvxBr64DWmnkRiwFpTmpuPqX579ud
lP7XUPmrtLezi8+O1nla+5jrT90hplLexZDdLconKUF9rwZWn+7UhsTYnYX8
G5356sMHh+wsOAL7X3y7Y9N4Gan1yLc7Lo0/xch6UX9KYLGzM2HzKeRL6Ozc
PGpnEJ095K9fwP4pvn9DYPeFb9GXE8EksCIwn+Q0+TeHzFd5F/sTvt3haX6u
gJ/17c5V81NnqBXkXRnY2aowfL9vd6j6XvksilXM9MyXWQnW+3anqvkqH+cb
sCNsvs+r5D/I97TQHpxkPoxiDxt9823k4+WnbWU88/20Zh8G18K2lr+oc49v
d36a/z58l28+l75He5T2wm2+7V0vox/17Q5R81tnqt58z6LAxrP6SH1VJcHu
WrUmT1esNLDxkEm+DeRPoT0FQnavtBWeHGNnDd0rDuJ7BmtMk/dN0Fo+jIvn
6g59oWd3XFrfZZMeZ3eRyiufpRv2mYH5MrrTUAxLfoPG9/mI3dnorkb+xP8B
eCsssg==
           "]], 
          PolygonBox[CompressedData["
1:eJwt2nfAl9P/x/HPvbvv+/NJm4ZRikoaGkJLW5KKigipNKxUCtkU2XuvzGjJ
FvmilAiVhlCSlb1nxu/x/p3PH8/7er9f17nOda7rc673eZ9z7oYnnj74tMJM
JlPTnxLH78szmZHsYzEC3/ErKjKZz9hb8THK+WeiWXEm0xhNMIX/jrI556tE
GbzNvw/3FGQy9+I+zOa3xHD3OgbHohW/M65gX4mrcDU60s5yPBvn4AD+tzhG
3UMxDN/w11VmMpud34KPsJ4/rjSTGY/RGIMVFenes7XhLtxdkNo2Cn+65hf8
ihP5T2GN86vwFp7kN0Z353ugJ5rwX8P3zn+Fr7EsnsN9LirKZM7FeejEn+L+
Z2IizsBK2oh4FvVsx5fxHvjF2Uxmk3rex/P8j3KZzAeObTxnC+yL9/mTsJ8y
bdEO7fE/dfZSdzccjJf4l6j3UszATHRy3QP0U/3Q4zAe9/Nfp/+hjj/xF1by
F9IfcP4e3IsFFen9T1fPVEzL/z7L8ZNrfsYvWMF/Xtm22tASrfAcvw99rmse
xiPozR+ElexleA0D+Y/hRfUswUvxXPn3/7bjO1hdkH6f6FsV3kclsoWp72Xc
ZwX7VSzFf7Qv9YXerumD7uiB0+g7O9ZATZzKH+Haj/1eH2IzjuVvc+0+zrfA
vvikMj3fr+wf8GNBev5DsMjt52E++vI3YR9t2At7473y9F53uOY3/F6Q3vuj
7nOB93sOpmMOfymGeW+DcQRe5W/CIvY8zMd7/I+iv6m7Iw7AFv7T9L2db4Q9
8RR/QfRV93sZr2AefyL2YDdEI+wZ/djzHeLYD2c5/47+t8b1t6vnJtyM1fxi
vBvfd7x3FPEPVf5Zz/4EnkQ/fkN0jO8WL1TJZGap/4CIHd7vRJyBjvy+9GLn
S1CKQ/h16TWcr4laqMevjVJ2GaqgDn+U+4/GGJyEH9xzX/og5/vjMLTgH4MP
2BuwEcP5Yyv/v8tk3DIT3adaeYp3x6nneJxQmOLh3gp1dc2BOAh78QdiMfsF
vIhB/N64i3037kEf/knuUZZJsdXry+xUnn8W56uhelF61mjPe+xNeL8otTf6
4Bb2R9halPpoPHM5uxglRemd9MX97AfwIA7hj3ffmu5XHTVQy31PoH/l/Nf4
BiP5TeK7ZrdDezTm7xnfL7slWqFRxBL1jfaixuAknMC/Wf/o5cF6oyeWZFMf
PNB7OwidClMf3RNdteFAHIRG5WkM2eb8J/i0MI0x7Vw/lz0P89Ge3xHPsp/D
89HPs6m/rWavwdrC1B9v05YnteEpPI012RQrWzrfCq0LUyyNuN1LG7rh4EyK
6xEnljn/GpYXpjhyaVXvzDOe6Mc7Ac3U3w/lnr0ClTiUX+Y+2yI2RKxSz1Za
Ndf/rp6f8DN24v/i3FT2NJyFX/mzlH2RvQQv4cBsGs+OYh+N4YVpvIvY0ZTd
DM0LU2y53bW76lC7oQE+yaaYOkfzH8VjmRRz47dr7Tdsg/2K0m8b/eMh9n2Y
XZT6T/SFb9nb8WVR6iu3Rxs916WYgdvKUz9f4vxzeL4ofQc/eE9TnZ+G65V5
N5fG9BHacBSOzqQx/05cq8wVuBJ38J9TtrnjQGX2ibGDf5b6eni/PdELQ6J+
dGZ3QVccETFCHfVQHw1wuutP1Z7q8pEscjiFvz9O19YJOBkdKlKMXuCeC/F4
JsXw6fSDXNMB++OcivQN3+uaO3BnUfrGL1N2jPudgJGYWZ7GkFrs2qiTH2M2
R3xhV2I8/81cyi9+c7/f8Ucm5R8nq7PS/UpRhgn8M2Lscb4ZmqOBchdEe5zv
jh44vyLFz0naNRlTilJ8HeA+e3tHTdEMzeO7jRirnujeimWqlqfc5HzOBbiw
KOUuESsHsA+P37YoH0vV11Yd7dAeg/mH0591/gk8iQFxnXs0cH5X7IbD+aeh
kfvtgYaoG2MPrSl7L+yN+rTzaUNcMxTDcAx/OvqzD8MAHFWZcoTlrlmB1zMp
h7jIvQ/zcH1xCC7kz8DR7CMxBJfyH/WNbGBvxFo0943fSv+EvQUfYSsucp/j
3O/4iHM4jn+9cm86txwrcB1/offQSazpjI5YnE3f9dle8hScWZi++4h3nbS1
M7pkUjyMPnOifjEKowtSn2qsPSPVfSJG4Ub1NaHNcq9x/PG4mbYnbWaMD/wR
uJ420HEQrmVf4lwjZYq1uwTtxa/WaKi9A+kFtGb8xtg9l765pu4/IPpb/ptc
jH3Zw2iD8bRrno1+RTs08rcY62l7q+/KiL/ufTvudf89aGfR9uO3xRW03WlT
o3/x98XltLq0EyN+6D8/Yno25Z2Ra97nfc7Gm7T2yi2izePPxzu0/WmLaR3E
vv3xJW0/2sO0qcpMwwraC9rcJvJ87T0Oz2pzW+UeUe5sZaZguXINaKfRamlb
bdRBPdpo2m/a9nvk88rVp51E+5v/T3w7tF1pE2n1XFMfM2i70I6jfarMZzib
1o72kPs9jEfwFu3F+La0b7y2jcbzlSnvOpt2mH7RN5+XvUEbSyvhZ2KOUJny
0ZbsVmhekPLVFcoNUW69YqsD2kramBjn+H/hPdrrtGG0D/gbsJb2k+MJtJGR
B7E30hpiln5yKWZgD/7OOJl9EsaiDr8+prEnYTLq8V+LOKGupep6Cato/6N1
pd3Ivwav0JbTjoh8k/8G3qYtpR1GW8J/Lr512oe0pz3nM5gTbedvwkPs+aFh
R2XK8afSpsVYX5DmAO8r9wj/Sf4C/ENbQmtPO139EyJHpb1He4D2iDL34w/a
Rtq9MX7xb4n8nfYSbX/ama6biCW0t2iTI+dV5gB8TnubdibtYH4nfEFbT7ub
djP/upg30VrhSe9tARaiZcRI/eVu/eme+K4wW39pQ3tQv5qo/5yB12in085T
fnCMixiu/km0i2kj+SdiBG0i7QLaUfyjI8bSTqOdSzucPzB02qm0c2IuwO8X
cZf2K/7Q5svFtFmRU7lvFeVaasuR+veQyKlp5bTWkc9GDhvzKFolrV3kwvyx
OJ42mXape4xV/7iIseo/hXZ2zNf4fWIcoI2nTaa1iXWCGK/Zo2gTHOtEXhv5
DvsC2viYm3hPJRHD3eNC2hW00yIPwC2082njIunnF8RYQZtKmxJxktwBiyJn
pzWPPCHyaRyl3BTaDOcmaNvJMT5o3zjapPgOXdcCCyJPpp0c+Ql/58jF2GNo
p8T4yK+HufHstNMdm8SYEHNH9km0Ux135+8ac8r82BPjzevauxIPaUtOuS6R
p2rbDIym7UTrHmX512Nc5Mq03WmN+U1iXI9Yx6+PXWLuEfMkWrFye9Ca8ZvH
2E8rpO1Ga8hvEHMpWtYxh34R45wrUOY/76E6+y/9Ygf6ONeSfg/tOH30eLxC
W+u6aY7rHI92bmdl6mAoexXtLZzp/L/qy9G+i/kXetL+oVXStvO/RHfaNY5t
HK9z/CvyKmV+xw72fbTZaOt8Nffo6dqb1X8LxtNq0QbTXua/EnNRWm3akbTl
/BWRU9Fq0vrHmMRfiNNoVWndaFfwr8RJtOq0frQ5/EfxGEppTWnd2T3iG1Hu
L+0roW3Qto3oQtsR8wjah/zN6EbrrHyXojT3jPnmgly6vidtqGNJ1VR/G/3j
efHiKTwd4zx/X8xnz8GjaBHjNO5k34JbsRf/C3Wu9652d8962DnmMrQ3aQX8
v8WmHG07bWPMnWh7oC7tS9pm2v78/VCf9jPtt8hT+efEXIX2E+1n2mR+LDQ2
zbe9mWfq5Vm64YiY9yi3TbneMSd0/Jr/FT5m94j3hF2V+yzWJMrTemVV1KR9
TnuXVpdfC7Vpn9LeopXxC1E9m2LYn7Qr+TPRMpvmmAvYC/FYYZqDxhxzMfsF
PFOY5qDxu5Vq8yb+OnTO/25VaB/Fuhy6ZlPc2Id2aMwVMCz/He3K3g27Ojc/
l/p4VfaPsYaJHtnUf6MfX8+/Kuas2fRt1VDuH/4f6J2N5N1z0orU9y+tbzZ9
h/E97kSriJhF+9O1hbS3lHk95uO0q9FNDDmP3smxYXzjmMZvFTkxZuZzs1G0
n9X1Hc7Jx5cetBv510Qsz8f7NrQRESMj5mfTNz2M9g7/jZiX5POh42lf8Lfh
rGz6/iMOrOevxtT8d3kEbSn/JUyk1aAdRlvEnxdzuPy3OoS2kr8Mk2gVtLa0
UfzjMCI/9rSP9ZCIkaHnY2fXmMfxL8ao/Dd9MO1q/uUYk8+zL6Md750Mj5yf
1tCxESbTd3OclM+1I+c+gj8A1+TzxLG0/9T1F87P58Vn09or0xqzaHfgdsyK
OUrkjsVpHnC5cmPYJ+CGiLu0g2jT4z1hZH78bUUbxh8cMTWbctYxtD/5v+Dc
+M2jTTE3iFwcd2ZTbnGVcrP5d+E+WjPajbQ1/FV4mDZdbv2r4zTHs9BZmQf4
85yfjzm4nz8gxgHX7im27Ib6ubR+vVh/fiHWMArS+nbkwI/HXMyY8CBW0d6I
PD9svBvjA9bHeBE+3o6cH+/Hd+34GbZiE/9D/MD+Ed/gA/7W6EfaWhvV8BH/
GW151pj9DGZGXhR9KsZofi3URv/KtPZYxi5EUZW0Ntk1cm3PtAUfoQv/V89Q
Egt7KMAv/C/xsft9iM3Yzs8pe5jzfXEIsvxyHMzuhM6oEvmf9sxWfqxnOBGv
xtgduvPNsQ8K+f8osyt7F9TF37FmETkqey3exYEx7/a8N8acPebe3v+EmLfQ
ptOq0WrG/JNWpuxBrumA/VHKf8K9S7WhDIV4PJvmyje51zq/9/riNJdeGHGR
vQO/4Xcsihjm2Xfgp4iDrvvDsb9j9Wi383Ujt+fviByAVgM1cXCMqzFHioVS
ZWY7dudvVG4u+2E8gk601yLmsI/CD9rRkbaE1pV/IL6idaFdyL4I5+J3WteY
O7Mvw8X4Mz+X7IAD+J/zv8BB/IH8QeiP72gX0W6JcdpzbsZcWj/a9xEnowyq
a/chtG9p30YfwE6xzqdsd++yB7rgBf6dkTuzh2Ag/pdNawgHsA/EHfk1hqfj
++fnUCXWOCMPcI/Nzi+J/RWURf+OOOt8XdTCM9HvY50G+yrTFJ/Rern244id
/GUod+1qxzX4lP4ZHqf1Ue4L9gf0DdiIbRFjHOujDj7mX6LcDzFP5v+Cmq49
I969vnSM/nZsQLuYtiryJmUujz6STXPEAfriyzEXxFsx18WL7Dfz88BlEUti
TIh9LfwPWyrS3tUEz3kyTilJe1sx3+os1nRBV2yPOTGeyaQ9itiXmJOvsz97
ccz7Mumer9B60O7i3x17UrRXaT1ps/n3YzntZVr3WIPl34SllWnf5lxtOA/n
l6R9ndejz7AvxiVYmU3x6Vv2d/i+JMWvucpew74W1+H6+P6xFMtijhdrFGEr
O8nxIeUnO7aummLgx+xt+CQfI+N3r82ug51LUr/YGPeO+2Ez3sumPtiV3Q0H
l6Q++jzastuhPTrEmov73eF4J+7C3SVpzj7YO1gVvxneya8pDI1Yz9+EdytT
HraKViz/KEGNfA63mlYt8rLI2fI53FpanchDUSeb8tN1tAaR+2EX2ie0N2j/
+m3/Q7V8LvohrV3sGaABrVHktI6NC1PuGjns95FTxho2bTD2zKYccyutG/9g
7JZNayhH0tbGM2BNZVoji/XpQfz+scdVmdZu9qOdxB+Lxfn1jS606/jX49XK
tNcb+7tf8b+O9ZbKtBY8jlbFM5QXpLXiWKtqHfs0yoyMdY+IzbGfEuuj/Avw
Mq2Wcj/G2M3+27d1Ty6tR3RQbpIyk2O9pTKt4bWgHckfgmfyax7taKfwT8WL
tB+jvhgjPP/J2DubYky537kClSUpBsUa6lBxbxiOKk5rrPH97+x73AV18/Eh
9hwbs5tgr9K0JxlxqDl7H7QoTTHp7Zirsq/HDXinIu1bd2f3QM/StK/9G6oY
H8pRgd8r0p7okc4PwdDStGca85zHnJ+LeWVpHhTzoWfYz+K5sjRfivFxHXs9
NpSl8TPG6i2RK2BraRrLIxauZb+LdaUpLt7iPV3o97oIF+PW8rSPcRX7alxT
kPY5Yq9kZqzr4vKCtJcSOUKh+xWhuCzlELHWX8W7LEdFcdoLiNj2svu9Enu/
pSn2xT5GVed3QrXitM8Re8ALnF+Ix0vTHvGWyHnZWeRQFYsil/AbFqMET8YY
EPOyyFvQK9a7Y+x1/Jz/BbbHeMy/On4793sWz+H54pRPVVdvjYj1pSnfijXA
ca4ZjwllaY1wl8hD2KdjYuQrlSlXfFQdj8X4WZxyyfjfkb3Ye6Npcfrfkmvj
N2YvxTK8ll/X7+d4KPoXp3X/2APpye6F3sVpj6R3rAO43x/4E31yaT1yCvtM
TC1L65VVYz+BPQiDsVNlyqfqxXk0KEv5VsyVb2PfjjvK0lw6csCt7I+xrSzl
iLE2OpN9GS4vS2unkdt1ifPoVpZyv8jjWkT/jHW+spTnRd7VkX1A5G9lKS+r
QM/4fdAblZUpf+zHPhT9y1J++a3n265/He7b7YeG2bTmO5r2t2/8n4jHyh3r
N94/Yo/rlke/V+aXeFfKXey6S7Bvfh4/nX0uzsM++Xn8T7F3wz8j9iJpR6qv
gfrOUdf0eJ4YE2g14l78EWhKG0SrRhvKHxZrD7H2TGtEu4p/dXyXsVZM+9f7
3iPeXcwjcmm/IqPcXvHeY/051sYxv0p+nwZP5fONEfH90+fGmidtVC6tMcZa
47ns83Jpnyn2lp5kT8U0dOJ3xmb1vxf5Pe2YmDfSXuO/HL9Lvs1DsR/7Clqr
XFq3+NR7OSTWqbB7Nr3nDjEeKrMy8nxljqI1od3Mvw5taU35zTCbfxfa59Ja
7nDag57hIYyMPB6bYu8nvvn4drJpXXQ3923t9Vyn3KnKHB1rD659RF334wEM
ifU/2iXs86O/KTci1glp3/C/RY98+xrTbuDfiHa042l9aP/y/4v5Sy7lnR9q
x2Lf/Quokkv55NZYN+OvQAXtBNqgWBfVtlaxtpxLc66Ye53KPy321mjn0L6O
Mcq7G4LGnu08Wi/13Wb+envs28Y8NPpG5InKvIKDaOfSGkbcj31KDKL1oL1P
eyrGHZS6R2/aNtoq/lsRG2l9aV9FjI+4HnEyn7d/Q/uK/3XMHXNp/hLzmL/5
/2DnXJrLxJymasQM1KMNj34ROQF/CTrm0lzjTeUudd0M/JVN/apd5JXKLI1v
PZfmM8uUG67MMfgxm+ZC6yLH5T+Awnw+/nn0gYj1Ed9zaf7xHe2HuC5ici7N
mTbQ5vAfRVEuzWdeoQ3gH47vsym+REzpox3dsadyM2MeRFvNXxPz03gH/Bp+
r5qoGvNk2pj4DmPt3rnqfpeH+QXqfJy9KPa++QvL0xgQcf8MdZ0S89hc2sd5
NPb643+58G9l2mO5J8bNGCvj/6MqUz/t4fi9676KNiqzBc8pt1GZtSjMpvhS
XbmjlTkSTXJpH+d+5R5U5qH4v7bKFJtqOh6vzPCIJ8rc4NyNuKkg7ctsyPfd
1p6tDVrEPnYu7W3Hfvbu/HqxJ027FYuMp0/EfMlxdTZ9M/EPRQX42z36KjMr
9k0wLv4PAN9Wpn2rB2mP8efib9r/AbBxMSQ=
           "]], 
          PolygonBox[CompressedData["
1:eJwl1HlMl2UcAPAHRAFROkxrIaWkm1p/YVNXtqCVbZqWaMtjoySzzUo7JC88
ia1Dy5Crkqw03fJYWmp5Yloz70qy1JwuRCltXCoeSJ93/PHZ832+7/N8n+N9
f7/uOZOzJsWGEIbRjoFJIRyLD+E4D3cM4YT2IbkmcXNiCOsMXs839O+gbR9C
NxO7U6XfkBBCufGdGW/uC/Qxt0V+mVwX8TXx5+I6c5vM6yw3QP+gsfuJsc5y
/YLkEPZ6NkE/JiaEWNpw3LML8tXyZzjLUPtJs/4BNReouZDr+pettdT4ONLV
7kuaufdr28qdFG80fwObqIzWMC/V2q+plRoXwh3Ml8un3pw5xpQYW0q+uEGu
Qp1i91dChnwmK+V+4wPx+ywi1/ha44/IF+ovpogZ8nXyp+Ur9HfyA9XyCdYt
dL7FFFFMCaVMt89dxq02L9G4GuPbazvZe2jj3ojltqhvbJk5H/Exn7CEcnpZ
+1N3spR+an2m7S13WDxL/Txm84z6o1gh/lq7jvWs1D9mbK45D7rzgYzUj5df
IVfJKVsYpT+aE+Ij0VjxPHEeO/RnaR+QO2y/Jd5hKS3OU6b9RW6GZ09ZbzhZ
jGBmdH/e0UzymMU0ysyLMWev8+1jP7H6V+xrPh3MnWjuSySLT1p/lfyr4gVy
C3lZ/F9S648jhljacKNtCH+pPySq46yDjemoTYhiudXmrmINu9TYzVrxr+ZU
mLuTrWxjO4O8m7/t7ZDae9lHkjpT1c1QM5On9R+J7jX6fsyp5HeO8gd/Us1Z
zlHDP/xLb/UL1T/gXg5yiJX20uTZFa5yjes0U08DjVzkEpfJsHYmNb6PKjLs
KZMeavfznfUnS90B2p5yZfSK1qcP93KfvXSVTzGmC0OMv12bIreEUcaMZgzl
+mO1PxvzlvYr/QLtXPbIxbmntrQjngQSudPzFLqSyl3cTTe6k8Y99KBndF73
0UAjF1mj9loGezaEJxjKMJ5ktWfnjKuhijNUx7V+K69415N41/t+L7H1mzoq
ny1+llqfUx31pDvPc84+jhz66rd3P2OMq/L8DNWcZazc42pdde+D1FsvvhTF
2vEUyE0xd4P4W9/JbG0W/cRZnvXXpjNc7hTb1NvKdk7bb7wzXXeGZm7QQnDW
GBaJP6SQxRRRTF91d9jDZraQrj/GHr7wbBnL+ZIV0ffGbOYwl3nR/yr5dLD2
j/axm/P2coEkuWy1HlPzotq11PGovY/zjnP4yX09r82m3vhGJon3yE/WTqRB
LtkZbuJmbuFWOvFO9Pu31gTOW+dF7dtyI607gtToP8ma05jORnM28R3fs5kt
vO4MbzCFXN5kKv8DhXICwA==
           "]], 
          
          PolygonBox[{{676, 677, 678, 679, 680, 2556, 681}, {2080, 2081, 2082,
            2083, 2084, 2896, 2085}, {1324, 1325, 1326, 1327, 1328, 2713, 
           1329}}], 
          
          PolygonBox[{{1210, 1211, 1212, 1213, 3236, 1214, 2702, 1215}, {1426,
            1427, 1428, 1429, 3274, 1430, 2732, 1431}}], 
          
          PolygonBox[{{348, 349, 2434, 3537, 2436, 2437, 346, 2432, 
           3538}}]}]}, {}, {}, {}, {}}}, VertexColors -> CompressedData["
1:eJzt3XtYTVn/APBUiqKHZhKVbk66mJdGjQqvb4ouyNBFNV0IjTRKEV0GIZF0
GZcJk0lIQ9PNJYo0Km+T3OqEcrqdc/beSU6/aiRnGvKe3/P7e/vNet593r1j
/dXzfJ7z7PbZ++y11/qu73cto7Wb3YMVFRQU9msoKCjJ/m4XqT73+J0PAYpL
x+qtL4Ab+xw39/cJ4dFAzHo3zUb4PLdeMf5mMVirn+efNREh+9yG7d8cF/Nh
t3Vx36qOQui8n5+no4zus4vI2vcUH0oFp9wqNIpA8noKP14F3a+nVRXt12uE
kNNWGj8pXgLH/RIX/hfoPu272+frJXywN92umhpWBG+cBwyXqKP729vUA8E7
PrhcUZO4/KMYNLUmdTpqo7t5qrtNyAs+9O0+mGeyoAj69A/8SY5B954dlXm/
KjdCiu8bl2L/YtDf0GetoYfuTN13ps5HfbRa/9g3fBijM1+/+q8iUK2edzxW
E92Z+l5KRPTqLUN8MFxz7J8/ahXDOMmFivbP0Z2p34+P72/Zrx/zISLz3Y4y
o0KoN5OO2z8kRHZXrcydNS18kD5/OidpdyG0xvH9Vrxnz1GvQ9TNfM3mSyQc
r5t8rJ5HgYbWVevJFj3IXhMzq8ojj4T6rlHl5ZMp+GGCsrfEnD3PjhTZu2SQ
EGKn03BASoJ90cyAaBZ9fPjc3Q4pJFwNyvUL6yLhxLCjcD6LrpRblVayjYTA
8qDGL++QoN9v5Vxmxp63ZUWNzwsiYXBcXNfbcyQ8TA90W8Si2zd6+WkvJKEn
vbI7dzMJ+Q3rbPabsucVTuPtlPRl56mX//USGxKCNszcWzadPU+Ldq4JfUWA
bW1867M/CDgudem9bcKeRxgI+6uLZN58ydF0PwEW9ZN5c3js+VdJZ1Ozwgng
tdu7fD+VgE6PadIyY/b8ntHpa0JFAjzTzz0LjBDDsxAXu8WG7PkJO5f3BkfE
cMFzmeVXN0UQYyKdd2Uqex47seqU5TsRJBnNXaFXJ4StKTNDo1TZ83jdo85b
tURw0fZWlF94OxyotIy5XvmSNaceqqTpKQnhau5ZJ7+rAtB8fTB/in03a14c
+muAe1MbhK4q8jrW9RTSCzJDl13vYs3/2j7VF8a0gE/JA+PlKrJ+dPvZl5Jb
nay5wspNc5q9myErSxJRerkOLsfvfqQrIJE9ZTDGaKr+/8CPJ/lDfoo9UHJe
44+44m7s2P+rPidtitP2ThLGvind4RdLQbz1vkVLZ/Sw5mHjaoK3ikiwVH+/
cHkkBTNaNVRmsui/3XXR6n0mG3eYd22cG0xBQVOgmSKLPvHAvTuhfBLOODcc
nu5LwazGwiVPLdjzklEN09ZWk/DZvnOiYXsKrOqWp+9i0fPsfGc/ySehoj3Q
t1qPghvlCwaHzNnzpt7UNYsPk5DmtiYjro8Eyaoy/W9Y9F8Ma3vyv5WN66VW
09Rk52vc1XgoyIw9P6dqc3GfIQmE5tieFfNIOPTZRqPa6ex56Dxe7M4cAlIS
0+PHRhEQdvcH74Fp7Lm0qZFc8VwMvOGcSZMWiUFdqToox4A9H3Qo2PX6jgiy
1I4YeocI4ZaDnldoqYQ1j0o+lQU3O2BPm7bq+y8FkBlu5hqi3s2aw0X76KMv
BOAW5yj4s74Bnm66nxR4oRPZudZPwI4dO/aR7u4Pep8MECRMHeXf4bmNAq8k
1/PzZf1qtpxr44tdCTzl4FoSejYH6I1zpeCA8Z0HmRbsOdf681yb39lqGzlH
8poAk4rWWOEgAZU5CWmPTNjz2PV6qsFqBOhE3ri0ZYcYvMOkkyIN2fPOLWZd
mb4ieBXtv3iNXwestYAziUYS1tz2uuWV8yWt0N3rr9Pd9xjKNQI8rr18juxc
a1exY8eOHfvH7VzrP7u9sAoobCZhS6Gdrs06Ck7sqWwesmDPjYfN1/mXkbA6
f9Ym0pKClCnrNRex6F7rFi/4MpyE44Ilf00tJSFbkrAx1Yw9v58jOHK/goCa
zI5Xy7MImP4spiOVx57fy1onGHASg3jvht/CHUSQKtU++laXPU++XZ/o39UG
Hguqe61VmiAv7tYsp+ouZOdau4EdO3bs2LH/Nz1tlk+4bTcJPRvuhATHU1Ax
x98qSNZvZMsFYwzOhzWRsMPq0H2rIAoSZvAOvrJgz7lWX8C1fIDDyUHuNyvF
YP/j7PbLqmLIkLiPv6vPni+rVRAOPG+H4cc9gz9XNcPi+NLyru0vkJ1rzyl2
7NixY8f+KTvX8rHXLloe1VlHgiD4RpmmGwWXHg5vyrNgz7mWv7rvi2PSfkMC
Iia9tyvMFkND3JjiAUP23EvR00dU2wHZlmkll10FUKzZ1vn2825k59pzgR07
duzYsWPnjnNt/p1r64G0d64Lbg0lYGHYV/6R2gT8snLp2Bxj9jzNeTDBzUII
V5XvRebMb4EjOT42ltHdyM613yF27NixY8eOnTvOtXxRrtUTJQde2+NQQMAS
sWeu4V4CFHjt+0x57PnrrEO87eFCGHYMdbho3gph4zesGX7ajexc+x1ix44d
O3bs2LnjVH1GxlAPCfXNjzw3J1LwztbaOFrWT2PLX8bvdFxdQYLtiRe5/bYU
dEQ+WxFkwZ4/3eS+z/cJAboLeTuSqwg43ZkUM9GEPf9+10b1dzlCUGnTu+b0
vBX0Zo5bfm7aS2Tn2u8QO3bs2LFjx46dzp1Hx5AbHpBQ46ftPWUlBS1xduPK
ZP00tjygbZXBVSUSbqn4tyiPJ+GCt9OQwXT2/M95JWsk7ULIPq02qqK4DZqy
DyVrbnuJ7Fy779ixY8eOHTt27HTOtfpurtVTZ+xxfWunLgLpTfXeB0vaYcO9
M4d8rrxEdq7dd+zYsWPHjh07djrPSd6SGNFKgpfBYtWFGyloSjj5+4QZPax5
waPCnybakGBb6rYtZTUJo41ibyw1Zc/Nju39Z858EVzMoE7nDLaDSuR7xYfS
l8jOtfuOHTt27NixY8dO51zb//SUz4q3BitIiPPo/enhARIuCKr/aDNlz1+d
T3CI9xTBz2UJe0+6doBH0RuLVToSZOfafceOHTt27NixY6dzrq0PWbU6a+eM
9SQQik2JShdIkM47KXE3Y88z9bfaFn8vgkzt/AJxQwc0BNaUbFopQXau3Xfs
2LFjx44dO3Y61/3a8dqbLhIGJVo6a3dScFFYQfjK+mlsuT51Qt96KwmRNcpz
ZtwmYWDRn7/kmbHny+tuJd35WQTZLe+SZ/OEAEfd6jz2SJCda/cdO3bs2LFj
x46dzusO31bZ0UdCxcMv/th2kAJTKrwyUdZPY8szLm78+mY8CZrHnrgse0xC
zRn9O6/M2POxJ34KjSgXQd6kpMb9vkI4s20oPSJfguxcu+/YsWPHjh07duwj
xc0KJkyoPCjrn33nWvEtSUK4+9iFM817WPN/BUcv02sRQclKTb2WNCGM9vnF
K7VJguxcu87YsWPHjh07duwjxRNnq1+6e4IEr1nR4WlvSQj12/g2UdZPY8sz
TqoRab0i+PZh9ZmQy0JwWvSvmUsHJMjOteuMHTt27NixY8c+Ujz0lbXR0kwS
HEweq/+oQMEx1ZzMY7J+Glv+zcHYVXw1MVyIKh5+JBLCz4+Pn/9ZB925dp2x
Y8eOnc6TJ/1uPiGHBIW9J2fna1Bgura/9vf/3f8U0f+IaE3XNxSD6mkn2zHK
IlBMUeudotsD20Wqzz1+50OA4tKxeusL4MY+x839fUJ4NBCz3k2zET7PrVeM
v1kM1urn+WdNRLQ+t2H7N8fFfNhtXdy3qqMQOu/n5+ko0/vsIrL2PcWHUsEp
twqNIpC8nsKPV6H362lVRfv1GiHktJXGT4qXwHG/xIX/Bb1P++72+XoJH+xN
t6umhhXBG+cBwyXq9P72NvVA8I4PLlfUJC7/KAZNrUmdjtr0bp7qbhPygg99
uw/mmSwogj79A3+SY+i9Z0dl3q/KjZDi+8al2L8Y9Df0WWvo0Tvq9UQ9vvpo
tf6xb/gwRme+fvVfRaBaPe94rCa9o56PEhG9essQHwzXHPvnj1rFME5yoaL9
c3pHvf4+vr9lv37Mh4jMdzvKjAqh3kw6bv+QkNZdtTJ31rTwQfr86Zyk3YXQ
Gsf3W/GeOac7T661J9ixc8Hl/f6iex6jbuZrNl8i4Xjd5GP1PAo0tK5aT7bo
oXWFlZvmNHs3Q1aWJKL0ch1cjt/9SFdA0jrqdYCL9tFHXwjALc5R8Gd9Azzd
dD8p8EInraMe3/a65ZXzJa3Q3euv0933GMo1AjyuvXxO68j38XZ9on9XG3gs
qO61VmmCvLhbs5yqu2gd9fjLahWEA8/bYfhxz+DPVc2wOL60vGv7C1pHPb6X
oqePqLYDsi3TSi67CqBYs63z7ef0jnr8NOfBBDcLIVxVvheZM78FjuT42FhG
0zvq8eW9v7y89yeV9/5W8t4fQd7r68p7fTZ5r+8h7/pQedcXyDs/Td7zm0zF
x5h6/zJ1fNRxKOq4kqnxI+p4EHV8hzpeQx1/yXs8RdfvqomZVeWRR0J916jy
8skU/DBB2VtiTu/ZkSJ7lwwSQux0Gg5ISbAvmhkQ/QEfHz53t0MKCVeDcv3C
ukg4MewonP8BV8qtSivZRkJgeVDjl3dI0O+3ci4zY87bsqLG5wWRMDguruvt
ORIepge6LfqA2zd6+WkvJKEnvbI7dzMJ+Q3rbPab0nuF03g7JX3ZcfTyv15i
Q0LQhpl7y6bTe1q0c03oKwJsa+Nbn/1BwHGpS+9tE3qPMBD2VxfJvPmSo+l+
AizqJ/Pm8Oj9q6SzqVnhBPDa7V2+n0pAp8c0aZkxvd8zOn1NqEiAZ/q5Z4ER
YngW4mK32JDeT9i5vDc4ImvfPJdZfnVTBDEm0nlXptJ77MSqU5bvRJBkNHeF
Xp0QtqbMDI1S7YF43aPOW7Vk73HbW1F+4e1woNIy5nrlS6AeqqTpKcn6b7ln
nfyuCkDz9cH8KfbdtF4c+muAe1MbhK4q8jrW9RTSCzJDl13vQva/tk/1hTEt
4FPywHi5iuy5bz/7UnKrk7HxyEhx1PXWUNfv/e2ui1bvM1m7Yd61cW4wBQVN
gWaKH/CJB+7dCeWTcMa54fB0XwpmNRYueWpB7yWjGqatrSbhs33nRMP2FFjV
LU/f9QHPs/Od/SSfhIr2QN9qPQpulC8YHDKn96be1DWLD5OQ5rYmI66PBMmq
Mv1vPuC/GNb25H8ra1elVtPUZMcz7mo8FGRG7/Le7yx0Hi92Zw4BKYnp8WOj
CAi7+4P3wDR6lzY1kiuei4E3nDNp0iIxqCtVB+UY0PugQ8Gu13dEkKV2xNA7
RAi3HPS8QksltB6VfCoLbnbAnjZt1fdfCiAz3Mw1RL2b1uU9rv/U3P1B75MB
goSpo/w7PLdR4JXken6+7Lmjc9Tnd1cCTzm4Vvbe3BygN86VggPGdx5kWjDn
qM+vvB21f7LVNnKO5DUBJhWtscJBAipzEtIemdB77Ho91WA1AnQib1zaskMM
3mHSSZGGzHnnFrOuTF8RvIr2X7zGrwPWWsCZRCMJY44aN2Mqnob943bUdgzV
3V5YBRQ2k7Cl0E7XZh0FJ/ZUNg9ZMOfGw+br/MtIWJ0/axNpSUHKlPWaiz7g
XusWL/gyXDa+Eyz5a2opCdmShI2pZsz5/RzBkfsVBNRkdrxankXA9GcxHak8
dL+XtU4w4CQG8d4Nv4U7iCBVqn30rS5zjhonZyp+jh3735qnmOUTbtst67ds
uBMSHE9BxRx/qyBZe0LnqPspo8ZzmBpHHE4Ocr9ZKQb7H2e3X1YVQ4bEffxd
feZc3vNT2NmNJ9CNf7l2/tix/x1H7e+hxsnbO9cFt4YSsDDsK/9IbQJ+Wbl0
bI5xD2Pz3dixc8FRx2Wo8ZnkwGt7HAoIWCL2zDXcS4ACr32fKY/emcr3wI6d
C07VZ2QM9cj6Xc2PPDcnUvDO1to4WvYc0fnL+J2OqytIsD3xIrffloKOyGcr
gizo/ekm932+TwjQXcjbkVxFwOnOpJiJJvTOVL4Tduwj0Z1Hx5AbHpBQ46ft
PWUlBS1xduPKZM9RQNsqg6tKJNxS8W9RHk/CBW+nIQPZuJup/D22HDW+QRd/
YCrPENVzkrckRrSS4GWwWHXhRgqaEk7+PmEGHrd+qo66TzHe/xe7PBx1fxmu
nT927PJwea//j9fbx4797ztT6xtz7Xthx84FZ2p9SK59L+wfh9OtQ8W18/zU
HHV9AHnXCeK6P7z+yUh0uueIqfU0mKpHQ82rR82blXf+HmreC+o8Puq8JFPz
MqjxOtT4A+p4iqn+Id17hK7uW97tPN3nmarLpnuumaqDRq1rHul1yqh1x0zV
EdPVBY+UemHUet6RXp+LWlc7UupbudbPYctR8wOZqq9kqs6Ra9dzpDtq3rW8
6+CYql/j2nXG/v+MRxDrvORdt8VUvRXXrvOn5msXLY/qrCNBEHyjTNONgksP
hzflydoxOkddb2TfF8ek/YYEREx6b1eYLYaGuDHFA4b0ztT6jdjZfQ+i1hnh
+qOP23HdDfa/47h+BPt/4nT1Dqh1EB9rfcRId6bqO7hW94H9/5yu/qXgUeFP
E21k7Xmp27aU1SSMNoq9sdSU3plaxxv7hx11fU66uhVcz8Kuo87jVK3O2jlj
vaz9VGxKVLpAgnTeSYm7Gb0ztS49dm667teO197IxvmDEi2dtTspuCisIHxl
vxM6p6snwnVGn6bjOhrs/4njuo+P21HrDrh2/tiZdab2oeba9+Ka0+Uby/v/
ou7vM9LzObl23z81p8sfRs23pMuvYysfnu7zqPPsIz0fHjWuixo/RI1TocZD
RnrePt3zhVp/RPdeoMuvpjsO6vwyXd4m3fHp8h/oPj9S1n2i6w/Iu+4AtY4A
tS6Aqbx9pvLzUfPnUfPhUfPP6fLJmfpd0eWBMLUvz6eWR42an4yabzzS84pR
82aZyo/91PYd+NTW4cfrq3+4PUfN3/tY8/RQ89no8tO49r1QHTUvi6n/i5ov
xLXrxpSj5mlw7fxRHXU+mmvnz5Sjzqty7fxp4zY0831cO0+mnK35L7o4AI7P
fxzOVLyOay7vODNdnJYuHksXd0WNr/4bUdwjDg==
      "]], {
    DisplayFunction -> Identity, AspectRatio -> 1, 
     AxesOrigin -> {Automatic, Automatic}, DisplayFunction :> Identity, 
     Epilog -> {
       Opacity[0], 
       DiskBox[{0, 0}, 0.0025], 
       DiskBox[{0, 0.05}, 0.0025], 
       DiskBox[{0, 0.1}, 0.0025], 
       DiskBox[{0, 0.15}, 0.0025], 
       DiskBox[{0, 0.2}, 0.0025], 
       DiskBox[{0, 0.25}, 0.0025], 
       DiskBox[{0, 0.3}, 0.0025], 
       DiskBox[{0, 0.35}, 0.0025], 
       DiskBox[{0, 0.4}, 0.0025], 
       DiskBox[{0, 0.45}, 0.0025], 
       DiskBox[{0, 0.5}, 0.0025], 
       DiskBox[{0, 0.55}, 0.0025], 
       DiskBox[{0, 0.6}, 0.0025], 
       DiskBox[{0, 0.65}, 0.0025], 
       DiskBox[{0, 0.7}, 0.0025], 
       DiskBox[{0, 0.75}, 0.0025], 
       DiskBox[{0, 0.8}, 0.0025], 
       DiskBox[{0, 0.85}, 0.0025], 
       DiskBox[{0, 0.9}, 0.0025], 
       DiskBox[{0.05, 0}, 0.0025], 
       DiskBox[{0.05, 0.05}, 0.0025], 
       DiskBox[{0.05, 0.1}, 0.0025], 
       DiskBox[{0.05, 0.15}, 0.0025], 
       DiskBox[{0.05, 0.2}, 0.0025], 
       DiskBox[{0.05, 0.25}, 0.0025], 
       DiskBox[{0.05, 0.3}, 0.0025], 
       DiskBox[{0.05, 0.35}, 0.0025], 
       DiskBox[{0.05, 0.4}, 0.0025], 
       DiskBox[{0.05, 0.45}, 0.0025], 
       DiskBox[{0.05, 0.5}, 0.0025], 
       DiskBox[{0.05, 0.55}, 0.0025], 
       DiskBox[{0.05, 0.6}, 0.0025], 
       DiskBox[{0.05, 0.65}, 0.0025], 
       DiskBox[{0.05, 0.7}, 0.0025], 
       DiskBox[{0.05, 0.75}, 0.0025], 
       DiskBox[{0.05, 0.8}, 0.0025], 
       DiskBox[{0.05, 0.85}, 0.0025], 
       DiskBox[{0.05, 0.9}, 0.0025], 
       DiskBox[{0.1, 0}, 0.0025], 
       DiskBox[{0.1, 0.05}, 0.0025], 
       DiskBox[{0.1, 0.1}, 0.0025], 
       DiskBox[{0.1, 0.15}, 0.0025], 
       DiskBox[{0.1, 0.2}, 0.0025], 
       DiskBox[{0.1, 0.25}, 0.0025], 
       DiskBox[{0.1, 0.3}, 0.0025], 
       DiskBox[{0.1, 0.35}, 0.0025], 
       DiskBox[{0.1, 0.4}, 0.0025], 
       DiskBox[{0.1, 0.45}, 0.0025], 
       DiskBox[{0.1, 0.5}, 0.0025], 
       DiskBox[{0.1, 0.55}, 0.0025], 
       DiskBox[{0.1, 0.6}, 0.0025], 
       DiskBox[{0.1, 0.65}, 0.0025], 
       DiskBox[{0.1, 0.7}, 0.0025], 
       DiskBox[{0.1, 0.75}, 0.0025], 
       DiskBox[{0.1, 0.8}, 0.0025], 
       DiskBox[{0.1, 0.85}, 0.0025], 
       DiskBox[{0.1, 0.9}, 0.0025], 
       DiskBox[{0.15, 0}, 0.0025], 
       DiskBox[{0.15, 0.05}, 0.0025], 
       DiskBox[{0.15, 0.1}, 0.0025], 
       DiskBox[{0.15, 0.15}, 0.0025], 
       DiskBox[{0.15, 0.2}, 0.0025], 
       DiskBox[{0.15, 0.25}, 0.0025], 
       DiskBox[{0.15, 0.3}, 0.0025], 
       DiskBox[{0.15, 0.35}, 0.0025], 
       DiskBox[{0.15, 0.4}, 0.0025], 
       DiskBox[{0.15, 0.45}, 0.0025], 
       DiskBox[{0.15, 0.5}, 0.0025], 
       DiskBox[{0.15, 0.55}, 0.0025], 
       DiskBox[{0.15, 0.6}, 0.0025], 
       DiskBox[{0.15, 0.65}, 0.0025], 
       DiskBox[{0.15, 0.7}, 0.0025], 
       DiskBox[{0.15, 0.75}, 0.0025], 
       DiskBox[{0.15, 0.8}, 0.0025], 
       DiskBox[{0.15, 0.85}, 0.0025], 
       DiskBox[{0.15, 0.9}, 0.0025], 
       DiskBox[{0.2, 0}, 0.0025], 
       DiskBox[{0.2, 0.05}, 0.0025], 
       DiskBox[{0.2, 0.1}, 0.0025], 
       DiskBox[{0.2, 0.15}, 0.0025], 
       DiskBox[{0.2, 0.2}, 0.0025], 
       DiskBox[{0.2, 0.25}, 0.0025], 
       DiskBox[{0.2, 0.3}, 0.0025], 
       DiskBox[{0.2, 0.35}, 0.0025], 
       DiskBox[{0.2, 0.4}, 0.0025], 
       DiskBox[{0.2, 0.45}, 0.0025], 
       DiskBox[{0.2, 0.5}, 0.0025], 
       DiskBox[{0.2, 0.55}, 0.0025], 
       DiskBox[{0.2, 0.6}, 0.0025], 
       DiskBox[{0.2, 0.65}, 0.0025], 
       DiskBox[{0.2, 0.7}, 0.0025], 
       DiskBox[{0.2, 0.75}, 0.0025], 
       DiskBox[{0.2, 0.8}, 0.0025], 
       DiskBox[{0.2, 0.85}, 0.0025], 
       DiskBox[{0.2, 0.9}, 0.0025], 
       DiskBox[{0.25, 0}, 0.0025], 
       DiskBox[{0.25, 0.05}, 0.0025], 
       DiskBox[{0.25, 0.1}, 0.0025], 
       DiskBox[{0.25, 0.15}, 0.0025], 
       DiskBox[{0.25, 0.2}, 0.0025], 
       DiskBox[{0.25, 0.25}, 0.0025], 
       DiskBox[{0.25, 0.3}, 0.0025], 
       DiskBox[{0.25, 0.35}, 0.0025], 
       DiskBox[{0.25, 0.4}, 0.0025], 
       DiskBox[{0.25, 0.45}, 0.0025], 
       DiskBox[{0.25, 0.5}, 0.0025], 
       DiskBox[{0.25, 0.55}, 0.0025], 
       DiskBox[{0.25, 0.6}, 0.0025], 
       DiskBox[{0.25, 0.65}, 0.0025], 
       DiskBox[{0.25, 0.7}, 0.0025], 
       DiskBox[{0.25, 0.75}, 0.0025], 
       DiskBox[{0.25, 0.8}, 0.0025], 
       DiskBox[{0.25, 0.85}, 0.0025], 
       DiskBox[{0.25, 0.9}, 0.0025], 
       DiskBox[{0.3, 0}, 0.0025], 
       DiskBox[{0.3, 0.05}, 0.0025], 
       DiskBox[{0.3, 0.1}, 0.0025], 
       DiskBox[{0.3, 0.15}, 0.0025], 
       DiskBox[{0.3, 0.2}, 0.0025], 
       DiskBox[{0.3, 0.25}, 0.0025], 
       DiskBox[{0.3, 0.3}, 0.0025], 
       DiskBox[{0.3, 0.35}, 0.0025], 
       DiskBox[{0.3, 0.4}, 0.0025], 
       DiskBox[{0.3, 0.45}, 0.0025], 
       DiskBox[{0.3, 0.5}, 0.0025], 
       DiskBox[{0.3, 0.55}, 0.0025], 
       DiskBox[{0.3, 0.6}, 0.0025], 
       DiskBox[{0.3, 0.65}, 0.0025], 
       DiskBox[{0.3, 0.7}, 0.0025], 
       DiskBox[{0.3, 0.75}, 0.0025], 
       DiskBox[{0.3, 0.8}, 0.0025], 
       DiskBox[{0.3, 0.85}, 0.0025], 
       DiskBox[{0.3, 0.9}, 0.0025], 
       DiskBox[{0.35, 0}, 0.0025], 
       DiskBox[{0.35, 0.05}, 0.0025], 
       DiskBox[{0.35, 0.1}, 0.0025], 
       DiskBox[{0.35, 0.15}, 0.0025], 
       DiskBox[{0.35, 0.2}, 0.0025], 
       DiskBox[{0.35, 0.25}, 0.0025], 
       DiskBox[{0.35, 0.3}, 0.0025], 
       DiskBox[{0.35, 0.35}, 0.0025], 
       DiskBox[{0.35, 0.4}, 0.0025], 
       DiskBox[{0.35, 0.45}, 0.0025], 
       DiskBox[{0.35, 0.5}, 0.0025], 
       DiskBox[{0.35, 0.55}, 0.0025], 
       DiskBox[{0.35, 0.6}, 0.0025], 
       DiskBox[{0.35, 0.65}, 0.0025], 
       DiskBox[{0.35, 0.7}, 0.0025], 
       DiskBox[{0.35, 0.75}, 0.0025], 
       DiskBox[{0.35, 0.8}, 0.0025], 
       DiskBox[{0.35, 0.85}, 0.0025], 
       DiskBox[{0.35, 0.9}, 0.0025], 
       DiskBox[{0.4, 0}, 0.0025], 
       DiskBox[{0.4, 0.05}, 0.0025], 
       DiskBox[{0.4, 0.1}, 0.0025], 
       DiskBox[{0.4, 0.15}, 0.0025], 
       DiskBox[{0.4, 0.2}, 0.0025], 
       DiskBox[{0.4, 0.25}, 0.0025], 
       DiskBox[{0.4, 0.3}, 0.0025], 
       DiskBox[{0.4, 0.35}, 0.0025], 
       DiskBox[{0.4, 0.4}, 0.0025], 
       DiskBox[{0.4, 0.45}, 0.0025], 
       DiskBox[{0.4, 0.5}, 0.0025], 
       DiskBox[{0.4, 0.55}, 0.0025], 
       DiskBox[{0.4, 0.6}, 0.0025], 
       DiskBox[{0.4, 0.65}, 0.0025], 
       DiskBox[{0.4, 0.7}, 0.0025], 
       DiskBox[{0.4, 0.75}, 0.0025], 
       DiskBox[{0.4, 0.8}, 0.0025], 
       DiskBox[{0.4, 0.85}, 0.0025], 
       DiskBox[{0.4, 0.9}, 0.0025], 
       DiskBox[{0.45, 0}, 0.0025], 
       DiskBox[{0.45, 0.05}, 0.0025], 
       DiskBox[{0.45, 0.1}, 0.0025], 
       DiskBox[{0.45, 0.15}, 0.0025], 
       DiskBox[{0.45, 0.2}, 0.0025], 
       DiskBox[{0.45, 0.25}, 0.0025], 
       DiskBox[{0.45, 0.3}, 0.0025], 
       DiskBox[{0.45, 0.35}, 0.0025], 
       DiskBox[{0.45, 0.4}, 0.0025], 
       DiskBox[{0.45, 0.45}, 0.0025], 
       DiskBox[{0.45, 0.5}, 0.0025], 
       DiskBox[{0.45, 0.55}, 0.0025], 
       DiskBox[{0.45, 0.6}, 0.0025], 
       DiskBox[{0.45, 0.65}, 0.0025], 
       DiskBox[{0.45, 0.7}, 0.0025], 
       DiskBox[{0.45, 0.75}, 0.0025], 
       DiskBox[{0.45, 0.8}, 0.0025], 
       DiskBox[{0.45, 0.85}, 0.0025], 
       DiskBox[{0.45, 0.9}, 0.0025], 
       DiskBox[{0.5, 0}, 0.0025], 
       DiskBox[{0.5, 0.05}, 0.0025], 
       DiskBox[{0.5, 0.1}, 0.0025], 
       DiskBox[{0.5, 0.15}, 0.0025], 
       DiskBox[{0.5, 0.2}, 0.0025], 
       DiskBox[{0.5, 0.25}, 0.0025], 
       DiskBox[{0.5, 0.3}, 0.0025], 
       DiskBox[{0.5, 0.35}, 0.0025], 
       DiskBox[{0.5, 0.4}, 0.0025], 
       DiskBox[{0.5, 0.45}, 0.0025], 
       DiskBox[{0.5, 0.5}, 0.0025], 
       DiskBox[{0.5, 0.55}, 0.0025], 
       DiskBox[{0.5, 0.6}, 0.0025], 
       DiskBox[{0.5, 0.65}, 0.0025], 
       DiskBox[{0.5, 0.7}, 0.0025], 
       DiskBox[{0.5, 0.75}, 0.0025], 
       DiskBox[{0.5, 0.8}, 0.0025], 
       DiskBox[{0.5, 0.85}, 0.0025], 
       DiskBox[{0.5, 0.9}, 0.0025], 
       DiskBox[{0.55, 0}, 0.0025], 
       DiskBox[{0.55, 0.05}, 0.0025], 
       DiskBox[{0.55, 0.1}, 0.0025], 
       DiskBox[{0.55, 0.15}, 0.0025], 
       DiskBox[{0.55, 0.2}, 0.0025], 
       DiskBox[{0.55, 0.25}, 0.0025], 
       DiskBox[{0.55, 0.3}, 0.0025], 
       DiskBox[{0.55, 0.35}, 0.0025], 
       DiskBox[{0.55, 0.4}, 0.0025], 
       DiskBox[{0.55, 0.45}, 0.0025], 
       DiskBox[{0.55, 0.5}, 0.0025], 
       DiskBox[{0.55, 0.55}, 0.0025], 
       DiskBox[{0.55, 0.6}, 0.0025], 
       DiskBox[{0.55, 0.65}, 0.0025], 
       DiskBox[{0.55, 0.7}, 0.0025], 
       DiskBox[{0.55, 0.75}, 0.0025], 
       DiskBox[{0.55, 0.8}, 0.0025], 
       DiskBox[{0.55, 0.85}, 0.0025], 
       DiskBox[{0.55, 0.9}, 0.0025], 
       DiskBox[{0.6, 0}, 0.0025], 
       DiskBox[{0.6, 0.05}, 0.0025], 
       DiskBox[{0.6, 0.1}, 0.0025], 
       DiskBox[{0.6, 0.15}, 0.0025], 
       DiskBox[{0.6, 0.2}, 0.0025], 
       DiskBox[{0.6, 0.25}, 0.0025], 
       DiskBox[{0.6, 0.3}, 0.0025], 
       DiskBox[{0.6, 0.35}, 0.0025], 
       DiskBox[{0.6, 0.4}, 0.0025], 
       DiskBox[{0.6, 0.45}, 0.0025], 
       DiskBox[{0.6, 0.5}, 0.0025], 
       DiskBox[{0.6, 0.55}, 0.0025], 
       DiskBox[{0.6, 0.6}, 0.0025], 
       DiskBox[{0.6, 0.65}, 0.0025], 
       DiskBox[{0.6, 0.7}, 0.0025], 
       DiskBox[{0.6, 0.75}, 0.0025], 
       DiskBox[{0.6, 0.8}, 0.0025], 
       DiskBox[{0.6, 0.85}, 0.0025], 
       DiskBox[{0.6, 0.9}, 0.0025], 
       DiskBox[{0.65, 0}, 0.0025], 
       DiskBox[{0.65, 0.05}, 0.0025], 
       DiskBox[{0.65, 0.1}, 0.0025], 
       DiskBox[{0.65, 0.15}, 0.0025], 
       DiskBox[{0.65, 0.2}, 0.0025], 
       DiskBox[{0.65, 0.25}, 0.0025], 
       DiskBox[{0.65, 0.3}, 0.0025], 
       DiskBox[{0.65, 0.35}, 0.0025], 
       DiskBox[{0.65, 0.4}, 0.0025], 
       DiskBox[{0.65, 0.45}, 0.0025], 
       DiskBox[{0.65, 0.5}, 0.0025], 
       DiskBox[{0.65, 0.55}, 0.0025], 
       DiskBox[{0.65, 0.6}, 0.0025], 
       DiskBox[{0.65, 0.65}, 0.0025], 
       DiskBox[{0.65, 0.7}, 0.0025], 
       DiskBox[{0.65, 0.75}, 0.0025], 
       DiskBox[{0.65, 0.8}, 0.0025], 
       DiskBox[{0.65, 0.85}, 0.0025], 
       DiskBox[{0.65, 0.9}, 0.0025], 
       DiskBox[{0.7, 0}, 0.0025], 
       DiskBox[{0.7, 0.05}, 0.0025], 
       DiskBox[{0.7, 0.1}, 0.0025], 
       DiskBox[{0.7, 0.15}, 0.0025], 
       DiskBox[{0.7, 0.2}, 0.0025], 
       DiskBox[{0.7, 0.25}, 0.0025], 
       DiskBox[{0.7, 0.3}, 0.0025], 
       DiskBox[{0.7, 0.35}, 0.0025], 
       DiskBox[{0.7, 0.4}, 0.0025], 
       DiskBox[{0.7, 0.45}, 0.0025], 
       DiskBox[{0.7, 0.5}, 0.0025], 
       DiskBox[{0.7, 0.55}, 0.0025], 
       DiskBox[{0.7, 0.6}, 0.0025], 
       DiskBox[{0.7, 0.65}, 0.0025], 
       DiskBox[{0.7, 0.7}, 0.0025], 
       DiskBox[{0.7, 0.75}, 0.0025], 
       DiskBox[{0.7, 0.8}, 0.0025], 
       DiskBox[{0.7, 0.85}, 0.0025], 
       DiskBox[{0.7, 0.9}, 0.0025], 
       DiskBox[{0.75, 0}, 0.0025], 
       DiskBox[{0.75, 0.05}, 0.0025], 
       DiskBox[{0.75, 0.1}, 0.0025], 
       DiskBox[{0.75, 0.15}, 0.0025], 
       DiskBox[{0.75, 0.2}, 0.0025], 
       DiskBox[{0.75, 0.25}, 0.0025], 
       DiskBox[{0.75, 0.3}, 0.0025], 
       DiskBox[{0.75, 0.35}, 0.0025], 
       DiskBox[{0.75, 0.4}, 0.0025], 
       DiskBox[{0.75, 0.45}, 0.0025], 
       DiskBox[{0.75, 0.5}, 0.0025], 
       DiskBox[{0.75, 0.55}, 0.0025], 
       DiskBox[{0.75, 0.6}, 0.0025], 
       DiskBox[{0.75, 0.65}, 0.0025], 
       DiskBox[{0.75, 0.7}, 0.0025], 
       DiskBox[{0.75, 0.75}, 0.0025], 
       DiskBox[{0.75, 0.8}, 0.0025], 
       DiskBox[{0.75, 0.85}, 0.0025], 
       DiskBox[{0.75, 0.9}, 0.0025], 
       DiskBox[{0.8, 0}, 0.0025], 
       DiskBox[{0.8, 0.05}, 0.0025], 
       DiskBox[{0.8, 0.1}, 0.0025], 
       DiskBox[{0.8, 0.15}, 0.0025], 
       DiskBox[{0.8, 0.2}, 0.0025], 
       DiskBox[{0.8, 0.25}, 0.0025], 
       DiskBox[{0.8, 0.3}, 0.0025], 
       DiskBox[{0.8, 0.35}, 0.0025], 
       DiskBox[{0.8, 0.4}, 0.0025], 
       DiskBox[{0.8, 0.45}, 0.0025], 
       DiskBox[{0.8, 0.5}, 0.0025], 
       DiskBox[{0.8, 0.55}, 0.0025], 
       DiskBox[{0.8, 0.6}, 0.0025], 
       DiskBox[{0.8, 0.65}, 0.0025], 
       DiskBox[{0.8, 0.7}, 0.0025], 
       DiskBox[{0.8, 0.75}, 0.0025], 
       DiskBox[{0.8, 0.8}, 0.0025], 
       DiskBox[{0.8, 0.85}, 0.0025], 
       DiskBox[{0.8, 0.9}, 0.0025], 
       DiskBox[{0.85, 0}, 0.0025], 
       DiskBox[{0.85, 0.05}, 0.0025], 
       DiskBox[{0.85, 0.1}, 0.0025], 
       DiskBox[{0.85, 0.15}, 0.0025], 
       DiskBox[{0.85, 0.2}, 0.0025], 
       DiskBox[{0.85, 0.25}, 0.0025], 
       DiskBox[{0.85, 0.3}, 0.0025], 
       DiskBox[{0.85, 0.35}, 0.0025], 
       DiskBox[{0.85, 0.4}, 0.0025], 
       DiskBox[{0.85, 0.45}, 0.0025], 
       DiskBox[{0.85, 0.5}, 0.0025], 
       DiskBox[{0.85, 0.55}, 0.0025], 
       DiskBox[{0.85, 0.6}, 0.0025], 
       DiskBox[{0.85, 0.65}, 0.0025], 
       DiskBox[{0.85, 0.7}, 0.0025], 
       DiskBox[{0.85, 0.75}, 0.0025], 
       DiskBox[{0.85, 0.8}, 0.0025], 
       DiskBox[{0.85, 0.85}, 0.0025], 
       DiskBox[{0.85, 0.9}, 0.0025], 
       DiskBox[{0.9, 0}, 0.0025], 
       DiskBox[{0.9, 0.05}, 0.0025], 
       DiskBox[{0.9, 0.1}, 0.0025], 
       DiskBox[{0.9, 0.15}, 0.0025], 
       DiskBox[{0.9, 0.2}, 0.0025], 
       DiskBox[{0.9, 0.25}, 0.0025], 
       DiskBox[{0.9, 0.3}, 0.0025], 
       DiskBox[{0.9, 0.35}, 0.0025], 
       DiskBox[{0.9, 0.4}, 0.0025], 
       DiskBox[{0.9, 0.45}, 0.0025], 
       DiskBox[{0.9, 0.5}, 0.0025], 
       DiskBox[{0.9, 0.55}, 0.0025], 
       DiskBox[{0.9, 0.6}, 0.0025], 
       DiskBox[{0.9, 0.65}, 0.0025], 
       DiskBox[{0.9, 0.7}, 0.0025], 
       DiskBox[{0.9, 0.75}, 0.0025], 
       DiskBox[{0.9, 0.8}, 0.0025], 
       DiskBox[{0.9, 0.85}, 0.0025], 
       DiskBox[{0.9, 0.9}, 0.0025], 
       DiskBox[{0.95, 0}, 0.0025], 
       DiskBox[{0.95, 0.05}, 0.0025], 
       DiskBox[{0.95, 0.1}, 0.0025], 
       DiskBox[{0.95, 0.15}, 0.0025], 
       DiskBox[{0.95, 0.2}, 0.0025], 
       DiskBox[{0.95, 0.25}, 0.0025], 
       DiskBox[{0.95, 0.3}, 0.0025], 
       DiskBox[{0.95, 0.35}, 0.0025], 
       DiskBox[{0.95, 0.4}, 0.0025], 
       DiskBox[{0.95, 0.45}, 0.0025], 
       DiskBox[{0.95, 0.5}, 0.0025], 
       DiskBox[{0.95, 0.55}, 0.0025], 
       DiskBox[{0.95, 0.6}, 0.0025], 
       DiskBox[{0.95, 0.65}, 0.0025], 
       DiskBox[{0.95, 0.7}, 0.0025], 
       DiskBox[{0.95, 0.75}, 0.0025], 
       DiskBox[{0.95, 0.8}, 0.0025], 
       DiskBox[{0.95, 0.85}, 0.0025], 
       DiskBox[{0.95, 0.9}, 0.0025], 
       DiskBox[{1., 0}, 0.0025], 
       DiskBox[{1., 0.05}, 0.0025], 
       DiskBox[{1., 0.1}, 0.0025], 
       DiskBox[{1., 0.15}, 0.0025], 
       DiskBox[{1., 0.2}, 0.0025], 
       DiskBox[{1., 0.25}, 0.0025], 
       DiskBox[{1., 0.3}, 0.0025], 
       DiskBox[{1., 0.35}, 0.0025], 
       DiskBox[{1., 0.4}, 0.0025], 
       DiskBox[{1., 0.45}, 0.0025], 
       DiskBox[{1., 0.5}, 0.0025], 
       DiskBox[{1., 0.55}, 0.0025], 
       DiskBox[{1., 0.6}, 0.0025], 
       DiskBox[{1., 0.65}, 0.0025], 
       DiskBox[{1., 0.7}, 0.0025], 
       DiskBox[{1., 0.75}, 0.0025], 
       DiskBox[{1., 0.8}, 0.0025], 
       DiskBox[{1., 0.85}, 0.0025], 
       DiskBox[{1., 0.9}, 0.0025], 
       Opacity[0.5], 
       Thickness[0.002], 
       LineBox[{{0.025, -5}, {0.025, 5}}], 
       LineBox[{{0.07500000000000001, -5}, {0.07500000000000001, 5}}], 
       LineBox[{{0.125, -5}, {0.125, 5}}], 
       LineBox[{{0.175, -5}, {0.175, 5}}], 
       LineBox[{{0.225, -5}, {0.225, 5}}], 
       LineBox[{{0.275, -5}, {0.275, 5}}], 
       LineBox[{{0.325, -5}, {0.325, 5}}], 
       LineBox[{{0.375, -5}, {0.375, 5}}], 
       LineBox[{{0.42500000000000004`, -5}, {0.42500000000000004`, 5}}], 
       LineBox[{{0.47500000000000003`, -5}, {0.47500000000000003`, 5}}], 
       LineBox[{{0.525, -5}, {0.525, 5}}], 
       LineBox[{{0.5750000000000001, -5}, {0.5750000000000001, 5}}], 
       LineBox[{{0.625, -5}, {0.625, 5}}], 
       LineBox[{{0.675, -5}, {0.675, 5}}], 
       LineBox[{{0.725, -5}, {0.725, 5}}], 
       LineBox[{{0.775, -5}, {0.775, 5}}], 
       LineBox[{{0.8250000000000001, -5}, {0.8250000000000001, 5}}], 
       LineBox[{{0.875, -5}, {0.875, 5}}], 
       LineBox[{{0.925, -5}, {0.925, 5}}], 
       LineBox[{{0.975, -5}, {0.975, 5}}], 
       LineBox[{{1.025, -5}, {1.025, 5}}], 
       LineBox[{{-1, 0.025}, {2, 0.025}}], 
       LineBox[{{-1, 0.07500000000000001}, {2, 0.07500000000000001}}], 
       LineBox[{{-1, 0.125}, {2, 0.125}}], 
       LineBox[{{-1, 0.175}, {2, 0.175}}], 
       LineBox[{{-1, 0.225}, {2, 0.225}}], 
       LineBox[{{-1, 0.275}, {2, 0.275}}], 
       LineBox[{{-1, 0.325}, {2, 0.325}}], 
       LineBox[{{-1, 0.375}, {2, 0.375}}], 
       LineBox[{{-1, 0.42500000000000004`}, {2, 0.42500000000000004`}}], 
       LineBox[{{-1, 0.47500000000000003`}, {2, 0.47500000000000003`}}], 
       LineBox[{{-1, 0.525}, {2, 0.525}}], 
       LineBox[{{-1, 0.5750000000000001}, {2, 0.5750000000000001}}], 
       LineBox[{{-1, 0.625}, {2, 0.625}}], 
       LineBox[{{-1, 0.675}, {2, 0.675}}], 
       LineBox[{{-1, 0.725}, {2, 0.725}}], 
       LineBox[{{-1, 0.775}, {2, 0.775}}], 
       LineBox[{{-1, 0.8250000000000001}, {2, 0.8250000000000001}}], 
       LineBox[{{-1, 0.875}, {2, 0.875}}], 
       LineBox[{{-1, 0.925}, {2, 0.925}}]}, Frame -> True, FrameLabel -> {{
        FormBox[
         StyleBox["\"Lifespan reduction\"", 75, StripOnInput -> False], 
         TraditionalForm], None}, {
        FormBox[
         StyleBox[
         "\"Male mating competitiveness\"", 75, StripOnInput -> False], 
         TraditionalForm], None}}, FrameStyle -> Thickness[Large], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> 40, GridLines -> {None, None}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> 1500, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultColorFunction" -> 
       "M10DefaultDensityGradient", "GridLinesInFront" -> True}, PlotLabel -> 
     FormBox[
       StyleBox["\"pgSIT Eggs (200:1)\"", 80, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-0.025, 1.025}, {-0.025, 0.925}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"75%\"", "\"80%\"", "\"85%\"", "\"90%\"", "\"95%\"", "\"100%\""}, 
      "SwatchLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox[
                StyleBox[
                "\"Maximum adult\\nfemale suppression\"", 50, StripOnInput -> 
                 False], {FontSize -> 50, FontFamily -> "Arial"}, Background -> 
                Automatic, StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.293416, 0.0574044, 0.529412]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[
                    0.45565900000000004`, 0.33950075999999996`, 
                    0.7574641999999999]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.603583, 0.5914516, 0.9104053999999999]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.722869, 0.7831114, 0.9131246000000001]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.834049, 0.870814, 0.8820358]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.941176, 0.906538, 0.834043]], 
                    RectangleBox[{0, 0}, {50, 50}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {50, 50}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 50, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.293416, 0.0574044, 0.529412], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.19561066666666668`, 0.0382696, 0.35294133333333333`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.293416, 0.0574044, 0.529412]"], Appearance -> 
                 None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.293416, 0.0574044, 0.529412]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.293416, 0.0574044, 0.529412], Editable -> False, 
                Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.45565900000000004`, 0.33950075999999996`, 
                    0.7574641999999999], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.3037726666666667, 0.22633383999999998`, 
                    0.5049761333333334], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.45565900000000004, 0.33950075999999996, \
0.7574641999999999]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                 Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[
                    0.45565900000000004`, 0.33950075999999996`, 
                    0.7574641999999999]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[
                0.45565900000000004`, 0.33950075999999996`, 
                 0.7574641999999999], Editable -> False, Selectable -> False],
                ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.603583, 0.5914516, 0.9104053999999999], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.4023886666666667, 0.39430106666666664`, 
                    0.6069369333333333], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.603583, 0.5914516, 0.9104053999999999]"], 
                 Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                 Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.603583, 0.5914516, 0.9104053999999999]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.603583, 0.5914516, 0.9104053999999999], Editable -> 
                False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.722869, 0.7831114, 0.9131246000000001], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.48191266666666666`, 0.5220742666666667, 
                    0.6087497333333334], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.722869, 0.7831114, 0.9131246000000001]"], 
                 Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                 Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.722869, 0.7831114, 0.9131246000000001]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.722869, 0.7831114, 0.9131246000000001], Editable -> 
                False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.834049, 0.870814, 0.8820358], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5560326666666667, 0.5805426666666667, 
                    0.5880238666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.834049, 0.870814, 0.8820358]"], Appearance -> 
                 None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.834049, 0.870814, 0.8820358]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.834049, 0.870814, 0.8820358], Editable -> False, 
                Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.941176, 0.906538, 0.834043], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.6274506666666667, 0.6043586666666667, 
                    0.5560286666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.941176, 0.906538, 0.834043]"], Appearance -> 
                 None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.941176, 0.906538, 0.834043]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.941176, 0.906538, 0.834043], Editable -> False, 
                Selectable -> False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", "50"}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", 
             StyleBox[
             "\"Maximum adult\\nfemale suppression\"", 50, StripOnInput -> 
              False]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "50"}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.739883087777727*^9, 3.7398831030972967`*^9}, 
   3.7398832165080976`*^9, {3.739883277825778*^9, 3.7398833074545717`*^9}, 
   3.739883422670877*^9, 3.7398834574580173`*^9, {3.7398836258577003`*^9, 
   3.739883632156863*^9}, {3.73988366992813*^9, 3.739883716386475*^9}, {
   3.739883755238064*^9, 3.7398838390249147`*^9}, 3.7398838770207043`*^9, {
   3.739883915680545*^9, 3.7398840083829823`*^9}, {3.7398840457978783`*^9, 
   3.739884160603216*^9}, 3.739884220936262*^9, {3.739884264002509*^9, 
   3.73988426838074*^9}, {3.739884301699417*^9, 3.73988430969226*^9}, {
   3.7398843612485332`*^9, 3.739884365473257*^9}, {3.7398844075683413`*^9, 
   3.7398845425034924`*^9}, {3.739884626557393*^9, 3.739884651901244*^9}, {
   3.73988470430147*^9, 3.739884719198717*^9}, 3.739884850228237*^9, {
   3.7398849241000633`*^9, 3.739884984858077*^9}, {3.7398852237368507`*^9, 
   3.739885231973538*^9}, 3.73988527049262*^9, 3.7398853322028847`*^9, 
   3.739885501211495*^9, {3.739886082265829*^9, 3.73988610322554*^9}, {
   3.7398861337601633`*^9, 3.739886137582806*^9}, {3.73988626035605*^9, 
   3.739886348347353*^9}, {3.7398863858811913`*^9, 3.739886427709703*^9}, {
   3.7398865022526503`*^9, 3.739886540127748*^9}, {3.73988658831269*^9, 
   3.739886645077672*^9}, {3.739886675363277*^9, 3.739886701269603*^9}, {
   3.739886746039941*^9, 3.7398867724926977`*^9}, 3.7398868245763903`*^9, 
   3.739886874779155*^9, 3.7398869321257887`*^9, 3.739886971500637*^9, 
   3.739890793510186*^9, {3.739890909083397*^9, 3.739890960169717*^9}, {
   3.7398911391184273`*^9, 3.739891164112155*^9}, 3.739891339146636*^9, 
   3.739908476012686*^9, {3.739908544688487*^9, 3.739908560111638*^9}, 
   3.7399086287425213`*^9, 3.739909711469925*^9, 3.7399097943897057`*^9, 
   3.740929775699396*^9, 3.741133519360364*^9, 
   3.741172573400118*^9},ExpressionUUID->"deb675c5-f7b1-4be3-9e2f-\
9139a24af443"],

Cell[BoxData["\<\"FactorialSweep.pdf\"\>"], "Output",
 CellChangeTimes->{{3.739883087777727*^9, 3.7398831030972967`*^9}, 
   3.7398832165080976`*^9, {3.739883277825778*^9, 3.7398833074545717`*^9}, 
   3.739883422670877*^9, 3.7398834574580173`*^9, {3.7398836258577003`*^9, 
   3.739883632156863*^9}, {3.73988366992813*^9, 3.739883716386475*^9}, {
   3.739883755238064*^9, 3.7398838390249147`*^9}, 3.7398838770207043`*^9, {
   3.739883915680545*^9, 3.7398840083829823`*^9}, {3.7398840457978783`*^9, 
   3.739884160603216*^9}, 3.739884220936262*^9, {3.739884264002509*^9, 
   3.73988426838074*^9}, {3.739884301699417*^9, 3.73988430969226*^9}, {
   3.7398843612485332`*^9, 3.739884365473257*^9}, {3.7398844075683413`*^9, 
   3.7398845425034924`*^9}, {3.739884626557393*^9, 3.739884651901244*^9}, {
   3.73988470430147*^9, 3.739884719198717*^9}, 3.739884850228237*^9, {
   3.7398849241000633`*^9, 3.739884984858077*^9}, {3.7398852237368507`*^9, 
   3.739885231973538*^9}, 3.73988527049262*^9, 3.7398853322028847`*^9, 
   3.739885501211495*^9, {3.739886082265829*^9, 3.73988610322554*^9}, {
   3.7398861337601633`*^9, 3.739886137582806*^9}, {3.73988626035605*^9, 
   3.739886348347353*^9}, {3.7398863858811913`*^9, 3.739886427709703*^9}, {
   3.7398865022526503`*^9, 3.739886540127748*^9}, {3.73988658831269*^9, 
   3.739886645077672*^9}, {3.739886675363277*^9, 3.739886701269603*^9}, {
   3.739886746039941*^9, 3.7398867724926977`*^9}, 3.7398868245763903`*^9, 
   3.739886874779155*^9, 3.7398869321257887`*^9, 3.739886971500637*^9, 
   3.739890793510186*^9, {3.739890909083397*^9, 3.739890960169717*^9}, {
   3.7398911391184273`*^9, 3.739891164112155*^9}, 3.739891339146636*^9, 
   3.739908476012686*^9, {3.739908544688487*^9, 3.739908560111638*^9}, 
   3.7399086287425213`*^9, 3.739909711469925*^9, 3.7399097943897057`*^9, 
   3.740929775699396*^9, 3.741133519360364*^9, 
   3.741172576354403*^9},ExpressionUUID->"cd1c1488-c728-4545-82bb-\
e7323ce394df"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1434, 792},
WindowMargins->{{Automatic, 1}, {Automatic, 0}},
TaggingRules->{
 "Openers" -> {
   "ExampleSection" -> {
     "1" -> Closed, "2" -> Closed, "3" -> Closed, "4" -> Closed, "0" -> 
      Closed}, "PrimaryExamplesSection" -> Open, "NotesSection" -> Closed}},
Magnification:>0.5 Inherited,
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 279, 4, 50, "Title",ExpressionUUID->"2d6f6f39-7656-4852-8114-ddf5567954bc"],
Cell[CellGroupData[{
Cell[884, 30, 365, 6, 35, "Chapter",ExpressionUUID->"730dcf91-3e4a-44fa-b20a-3bb895bd80a7"],
Cell[CellGroupData[{
Cell[1274, 40, 13359, 350, 1, "Input",ExpressionUUID->"55f9b925-3080-4c88-ac23-8157c18938de"],
Cell[14636, 392, 1956, 29, 70, "Output",ExpressionUUID->"4020aa8f-0605-4eff-95fb-cdc7d2fb7943"],
Cell[16595, 423, 2118, 33, 70, "Output",ExpressionUUID->"f00c1e07-d196-4c79-a647-1e975f48589a"],
Cell[18716, 458, 2206, 34, 70, "Output",ExpressionUUID->"b54d1512-59d7-4169-862b-83d6900ccc5c"],
Cell[20925, 494, 2153, 33, 70, "Output",ExpressionUUID->"9caf3522-218a-4acb-84d3-68a754da8329"],
Cell[23081, 529, 351, 8, 70, "Message",ExpressionUUID->"7f0894f4-a96b-4cfd-af6d-0c8a9a7a8d7b"],
Cell[23435, 539, 1911, 28, 70, "Output",ExpressionUUID->"b83e5835-2485-4072-966a-81df8aeeb429"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25395, 573, 156, 3, 31, "Chapter",ExpressionUUID->"c34efbaf-7f2e-4295-966d-bf0ab17a22aa"],
Cell[CellGroupData[{
Cell[25576, 580, 258, 4, 33, "Subchapter",ExpressionUUID->"18942a17-b432-4634-8a2d-538d94020127"],
Cell[25837, 586, 5272, 127, 204, "Input",ExpressionUUID->"9c874fcf-167e-4e99-b9dd-b8a6606f4b57"],
Cell[CellGroupData[{
Cell[31134, 717, 6391, 157, 204, "Input",ExpressionUUID->"7a9ad380-711e-4096-b76f-58258e2a633e"],
Cell[37528, 876, 34576, 660, 548, "Output",ExpressionUUID->"df53d2e5-4a72-4d2b-b9f0-2cd3bfcc28b2"],
Cell[72107, 1538, 588, 9, 21, "Output",ExpressionUUID->"02f82d25-de3b-4610-bdbc-d2261e7c4421"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72732, 1552, 396, 6, 34, "Section",ExpressionUUID->"b3a7f3a8-0ba8-44e8-94cc-a26b570bfef9"],
Cell[73131, 1560, 5183, 124, 2, "Input",ExpressionUUID->"0d26c81a-0cd5-4c92-a104-9aca77dd9914"],
Cell[CellGroupData[{
Cell[78339, 1688, 4499, 104, 2, "Input",ExpressionUUID->"20b48645-d281-4ccd-907e-5e43f897b257"],
Cell[82841, 1794, 916, 13, 0, "Output",ExpressionUUID->"07d74542-5ade-4d0c-ab43-44da03b660fa"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[83818, 1814, 256, 4, 33, "Subchapter",ExpressionUUID->"dcdee46c-8b63-438c-b687-a3019d88467d"],
Cell[84077, 1820, 5233, 125, 102, "Input",ExpressionUUID->"ebadce1e-1b19-4476-b709-ec61e7d9aa6b"],
Cell[CellGroupData[{
Cell[89335, 1949, 6151, 154, 102, "Input",ExpressionUUID->"118c1a72-b21a-4270-8444-7d193d2685a0"],
Cell[95489, 2105, 33812, 644, 257, "Output",ExpressionUUID->"c399aa3e-c0c8-4f5f-83b2-ff466c0929e9"],
Cell[129304, 2751, 841, 12, 10, "Output",ExpressionUUID->"103eb1f4-13fa-456e-8c1b-40147d6f79da"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[130194, 2769, 315, 5, 27, "Subchapter",ExpressionUUID->"a5e31886-8cb7-4a61-9c4d-18bc9c31f71a"],
Cell[130512, 2776, 1314, 36, 19, "Input",ExpressionUUID->"1ef248c2-96c2-42b2-ae6b-ac242e073198"],
Cell[131829, 2814, 2941, 78, 85, "Input",ExpressionUUID->"8f5fdd1f-9866-49c8-9e5b-e62f1b6b3458"],
Cell[CellGroupData[{
Cell[134795, 2896, 9987, 232, 184, "Input",ExpressionUUID->"2e47934a-efe2-4b34-9c5d-db6186f79799"],
Cell[144785, 3130, 76015, 1486, 402, "Output",ExpressionUUID->"deb675c5-f7b1-4be3-9e2f-9139a24af443"],
Cell[220803, 4618, 1950, 27, 10, "Output",ExpressionUUID->"cd1c1488-c728-4545-82bb-e7323ce394df"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)