Cell[CellGroupData[{Cell[BoxData[
 RowBox[{
  RowBox[{"MarcellusData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "1", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "1", ",", "3", ",", "0", ",", "4", ",", "0", ",", "2", ",", 
     "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "1", 
     ",", "0", ",", "2", ",", "0", ",", "2", ",", "2", ",", "1", ",", 
     "2", ",", "1", ",", "0", ",", "4", ",", "1", ",", "3", ",", "2", 
     ",", "4", ",", "1", ",", "4", ",", "2", ",", "6", ",", "7", ",", 
     "5", ",", "7", ",", "3", ",", "7", ",", "9", ",", "5", ",", "5", 
     ",", "7", ",", "8", ",", "13", ",", "9", ",", "9", ",", "10", 
     ",", "11", ",", "8", ",", "10", ",", "11", ",", "7", ",", "13", 
     ",", "13", ",", "5", ",", "5", ",", "8", ",", "13", ",", "11", 
     ",", "10", ",", "14", ",", "11", ",", "6", ",", "2", ",", "12", 
     ",", "2", ",", "6", ",", "16", ",", "22", ",", "11", ",", "14", 
     ",", "8", ",", "16", ",", "8", ",", "25", ",", "22", ",", "17", 
     ",", "9", ",", "11", ",", "17", ",", "10", ",", "14", ",", "12", 
     ",", "14", ",", "21", ",", "37", ",", "33", ",", "9", ",", "7", 
     ",", "9", ",", "8", ",", "10", ",", "16", ",", "14", ",", "13", 
     ",", "13", ",", "8", ",", "6", ",", "10", ",", "11", ",", "5", 
     ",", "7", ",", "10", ",", "11", ",", "10", ",", "9", ",", "12", 
     ",", "13", ",", "13", ",", "13", ",", "11", ",", "10", ",", "8", 
     ",", "20", ",", "20", ",", "15", ",", "17", ",", "12", ",", "10",
      ",", "12", ",", "25", ",", "25", ",", "13", ",", "16", ",", 
     "11", ",", "18", ",", "18", ",", "30", ",", "15", ",", "23", ",",
      "29", ",", "13", ",", "20", ",", "23", ",", "27", ",", "21", 
     ",", "23", ",", "26", ",", "17", ",", "30", ",", "31", ",", "21",
      ",", "26", ",", "13", ",", "33", ",", "19", ",", "10", ",", 
     "17", ",", "27", ",", "21", ",", "22", ",", "16", ",", "17", ",",
      "22", ",", "14", ",", "19", ",", "26", ",", "28", ",", "15", 
     ",", "19", ",", "13", ",", "12", ",", "23", ",", "23", ",", "17",
      ",", "12", ",", "11", ",", "16", ",", "9", ",", "22", ",", "5", 
     ",", "7", ",", "20", ",", "12", ",", "13", ",", "21", ",", "16", 
     ",", "18", ",", "14", ",", "21", ",", "9", ",", "9", ",", "13", 
     ",", "24", ",", "25", ",", "13", ",", "12", ",", "6", ",", "13", 
     ",", "11", ",", "18", ",", "18", ",", "13", ",", "8", ",", "5", 
     ",", "7", ",", "7", ",", "10", ",", "14", ",", "8", ",", "2", 
     ",", "10", ",", "6", ",", "10", ",", "14", ",", "17", ",", "7", 
     ",", "4", ",", "4", ",", "6", ",", "13", ",", "6", ",", "11", 
     ",", "7", ",", "4", ",", "3", ",", "5", ",", "7", ",", "8", ",", 
     "4", ",", "3", ",", "6", ",", "2", ",", "3", ",", "1", ",", "4", 
     ",", "5", ",", "5", ",", "4", ",", "1", ",", "1", ",", "0", ",", 
     "1", ",", "4", ",", "1", ",", "1", ",", "2", ",", "3", ",", "2", 
     ",", "1", ",", "1", ",", "1", ",", "2", ",", "0", ",", "0", ",", 
     "1", ",", "1", ",", "1", ",", "3", ",", "0", ",", "0", ",", "1", 
     ",", "1", ",", "2", ",", "2", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "2", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "1", ",", "2", ",", "1", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002209032346*^9, 3.7950022123579607`*^9}, 
   3.795002391414571*^9, 3.795002481231934*^9, 3.8173272091215982`*^9},
 CellID->697266447],

Cell[BoxData[
 RowBox[{
  RowBox[{"TroilusData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "1", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "2", ",", 
     "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", 
     ",", "1", ",", "1", ",", "0", ",", "1", ",", "3", ",", "1", ",", 
     "2", ",", "5", ",", "0", ",", "4", ",", "2", ",", "5", ",", "1", 
     ",", "5", ",", "4", ",", "6", ",", "2", ",", "1", ",", "2", ",", 
     "7", ",", "5", ",", "2", ",", "4", ",", "7", ",", "8", ",", "2", 
     ",", "4", ",", "6", ",", "4", ",", "7", ",", "6", ",", "5", ",", 
     "5", ",", "8", ",", "3", ",", "9", ",", "13", ",", "6", ",", "6",
      ",", "6", ",", "4", ",", "6", ",", "10", ",", "3", ",", "7", 
     ",", "5", ",", "4", ",", "5", ",", "4", ",", "8", ",", "4", ",", 
     "5", ",", "12", ",", "4", ",", "4", ",", "4", ",", "8", ",", 
     "10", ",", "3", ",", "9", ",", "11", ",", "8", ",", "6", ",", 
     "14", ",", "13", ",", "11", ",", "16", ",", "18", ",", "7", ",", 
     "12", ",", "30", ",", "21", ",", "12", ",", "21", ",", "9", ",", 
     "12", ",", "14", ",", "16", ",", "24", ",", "22", ",", "17", ",",
      "10", ",", "7", ",", "18", ",", "7", ",", "15", ",", "21", ",", 
     "21", ",", "15", ",", "12", ",", "9", ",", "32", ",", "18", ",", 
     "24", ",", "20", ",", "21", ",", "21", ",", "16", ",", "23", ",",
      "38", ",", "29", ",", "24", ",", "22", ",", "34", ",", "27", 
     ",", "33", ",", "42", ",", "25", ",", "28", ",", "9", ",", "22", 
     ",", "27", ",", "43", ",", "26", ",", "12", ",", "20", ",", "20",
      ",", "22", ",", "30", ",", "28", ",", "26", ",", "26", ",", 
     "22", ",", "17", ",", "25", ",", "22", ",", "24", ",", "32", ",",
      "25", ",", "20", ",", "22", ",", "17", ",", "11", ",", "29", 
     ",", "33", ",", "25", ",", "29", ",", "19", ",", "33", ",", "33",
      ",", "44", ",", "39", ",", "43", ",", "38", ",", "43", ",", 
     "42", ",", "49", ",", "53", ",", "58", ",", "55", ",", "54", ",",
      "44", ",", "54", ",", "66", ",", "86", ",", "85", ",", "68", 
     ",", "57", ",", "73", ",", "77", ",", "95", ",", "127", ",", 
     "111", ",", "92", ",", "103", ",", "62", ",", "76", ",", "87", 
     ",", "140", ",", "124", ",", "97", ",", "81", ",", "68", ",", 
     "73", ",", "70", ",", "87", ",", "96", ",", "91", ",", "65", ",",
      "58", ",", "52", ",", "62", ",", "77", ",", "71", ",", "61", 
     ",", "56", ",", "65", ",", "34", ",", "39", ",", "62", ",", "68",
      ",", "58", ",", "32", ",", "57", ",", "36", ",", "33", ",", 
     "54", ",", "38", ",", "44", ",", "54", ",", "39", ",", "38", ",",
      "25", ",", "38", ",", "38", ",", "33", ",", "32", ",", "16", 
     ",", "30", ",", "26", ",", "22", ",", "38", ",", "28", ",", "29",
      ",", "17", ",", "14", ",", "18", ",", "17", ",", "16", ",", 
     "15", ",", "17", ",", "14", ",", "18", ",", "13", ",", "10", ",",
      "12", ",", "9", ",", "7", ",", "5", ",", "7", ",", "6", ",", 
     "10", ",", "4", ",", "11", ",", "9", ",", "6", ",", "8", ",", 
     "5", ",", "0", ",", "5", ",", "7", ",", "2", ",", "1", ",", "2", 
     ",", "7", ",", "4", ",", "2", ",", "1", ",", "2", ",", "3", ",", 
     "5", ",", "1", ",", "2", ",", "2", ",", "0", ",", "0", ",", "2", 
     ",", "0", ",", "3", ",", "2", ",", "3", ",", "2", ",", "1", ",", 
     "0", ",", "2", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0", ",", 
     "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950022336984787`*^9, 3.795002236000268*^9}, 
   3.79500239478616*^9, 3.7950024798165216`*^9, 3.817327209121641*^9},
 
 CellID->1036138194],

Cell[BoxData[
 RowBox[{
  RowBox[{"PolyxenesData", "=", 
   RowBox[{"{", 
    RowBox[{
    "2", ",", "1", ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", 
     ",", "1", ",", "1", ",", "1", ",", "0", ",", "2", ",", "2", ",", 
     "2", ",", "1", ",", "0", ",", "2", ",", "5", ",", "3", ",", "4", 
     ",", "3", ",", "1", ",", "0", ",", "2", ",", "4", ",", "2", ",", 
     "1", ",", "2", ",", "3", ",", "2", ",", "1", ",", "2", ",", "3", 
     ",", "2", ",", "3", ",", "4", ",", "4", ",", "7", ",", "4", ",", 
     "3", ",", "3", ",", "5", ",", "3", ",", "1", ",", "3", ",", "12",
      ",", "12", ",", "6", ",", "8", ",", "6", ",", "11", ",", "5", 
     ",", "6", ",", "10", ",", "13", ",", "8", ",", "8", ",", "4", 
     ",", "8", ",", "20", ",", "10", ",", "9", ",", "6", ",", "13", 
     ",", "10", ",", "13", ",", "14", ",", "14", ",", "17", ",", "20",
      ",", "12", ",", "23", ",", "31", ",", "26", ",", "26", ",", 
     "22", ",", "22", ",", "24", ",", "15", ",", "19", ",", "15", ",",
      "18", ",", "27", ",", "31", ",", "20", ",", "28", ",", "11", 
     ",", "16", ",", "25", ",", "22", ",", "29", ",", "24", ",", "20",
      ",", "22", ",", "20", ",", "26", ",", "16", ",", "28", ",", 
     "24", ",", "25", ",", "28", ",", "20", ",", "24", ",", "52", ",",
      "41", ",", "41", ",", "27", ",", "27", ",", "22", ",", "32", 
     ",", "27", ",", "25", ",", "41", ",", "24", ",", "29", ",", "63",
      ",", "87", ",", "90", ",", "92", ",", "57", ",", "20", ",", 
     "36", ",", "48", ",", "56", ",", "56", ",", "34", ",", "32", ",",
      "41", ",", "43", ",", "32", ",", "36", ",", "61", ",", "41", 
     ",", "45", ",", "56", ",", "45", ",", "50", ",", "46", ",", "80",
      ",", "44", ",", "58", ",", "41", ",", "68", ",", "70", ",", 
     "65", ",", "62", ",", "71", ",", "66", ",", "60", ",", "53", ",",
      "62", ",", "61", ",", "58", ",", "61", ",", "54", ",", "39", 
     ",", "58", ",", "58", ",", "66", ",", "68", ",", "62", ",", "47",
      ",", "47", ",", "43", ",", "54", ",", "57", ",", "65", ",", 
     "59", ",", "38", ",", "56", ",", "57", ",", "54", ",", "80", ",",
      "68", ",", "71", ",", "56", ",", "58", ",", "73", ",", "64", 
     ",", "67", ",", "81", ",", "54", ",", "77", ",", "71", ",", "93",
      ",", "71", ",", "82", ",", "68", ",", "83", ",", "78", ",", 
     "70", ",", "89", ",", "70", ",", "123", ",", "106", ",", "95", 
     ",", "97", ",", "87", ",", "78", ",", "88", ",", "119", ",", 
     "92", ",", "92", ",", "96", ",", "95", ",", "100", ",", "83", 
     ",", "113", ",", "98", ",", "106", ",", "94", ",", "93", ",", 
     "76", ",", "107", ",", "115", ",", "102", ",", "119", ",", "95", 
     ",", "105", ",", "83", ",", "95", ",", "137", ",", "139", ",", 
     "98", ",", "91", ",", "100", ",", "125", ",", "93", ",", "104", 
     ",", "129", ",", "112", ",", "96", ",", "105", ",", "103", ",", 
     "102", ",", "145", ",", "134", ",", "142", ",", "96", ",", "99", 
     ",", "91", ",", "117", ",", "130", ",", "107", ",", "95", ",", 
     "90", ",", "95", ",", "85", ",", "53", ",", "130", ",", "90", 
     ",", "72", ",", "66", ",", "71", ",", "66", ",", "48", ",", "83",
      ",", "87", ",", "74", ",", "70", ",", "58", ",", "57", ",", 
     "71", ",", "94", ",", "95", ",", "73", ",", "54", ",", "56", ",",
      "52", ",", "66", ",", "51", ",", "52", ",", "49", ",", "47", 
     ",", "36", ",", "60", ",", "40", ",", "49", ",", "33", ",", "46",
      ",", "34", ",", "22", ",", "23", ",", "26", ",", "20", ",", 
     "23", ",", "24", ",", "11", ",", "20", ",", "11", ",", "15", ",",
      "19", ",", "19", ",", "25", ",", "13", ",", "11", ",", "14", 
     ",", "4", ",", "9", ",", "12", ",", "19", ",", "10", ",", "8", 
     ",", "12", ",", "14", ",", "11", ",", "13", ",", "17", ",", "15",
      ",", "6", ",", "8", ",", "11", ",", "5", ",", "5", ",", "5", 
     ",", "3", ",", "1", ",", "3", ",", "4", ",", "5", ",", "1", ",", 
     "4", ",", "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", "2", 
     ",", "1", ",", "1", ",", "1", ",", "8", ",", "3", ",", "1", ",", 
     "2", ",", "0", ",", "4", ",", "1", ",", "3", ",", "0", ",", "0", 
     ",", "3", ",", "2", ",", "0", ",", "3", ",", "2", ",", "3", ",", 
     "0", ",", "1", ",", "2", ",", "2", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "1", ",", "0", ",", "2", ",", "0", ",", "3", ",", 
     "0", ",", "0", ",", "0", ",", "3", ",", "1"}], "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002254946698*^9, 3.795002258005228*^9}, 
   3.7950023977179937`*^9, 3.7950024763270607`*^9, 
   3.8173272091216784`*^9},
 CellID->836098144],

Cell[BoxData[
 RowBox[{
  RowBox[{"CresphontesData", "=", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "2", ",", 
     "2", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "2", ",", "0", ",", "0", ",", "1", ",", "0", ",", "2", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "2", 
     ",", "1", ",", "0", ",", "0", ",", "1", ",", "3", ",", "2", ",", 
     "2", ",", "2", ",", "1", ",", "6", ",", "1", ",", "0", ",", "2", 
     ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "0", ",", 
     "7", ",", "7", ",", "6", ",", "7", ",", "0", ",", "2", ",", "5", 
     ",", "8", ",", "6", ",", "6", ",", "2", ",", "4", ",", "4", ",", 
     "4", ",", "5", ",", "2", ",", "8", ",", "4", ",", "6", ",", "5", 
     ",", "5", ",", "15", ",", "4", ",", "10", ",", "4", ",", "13", 
     ",", "8", ",", "5", ",", "12", ",", "9", ",", "6", ",", "7", ",",
      "6", ",", "12", ",", "7", ",", "11", ",", "1", ",", "6", ",", 
     "3", ",", "7", ",", "6", ",", "7", ",", "5", ",", "9", ",", "5", 
     ",", "8", ",", "5", ",", "5", ",", "4", ",", "6", ",", "7", ",", 
     "11", ",", "7", ",", "9", ",", "6", ",", "10", ",", "4", ",", 
     "8", ",", "6", ",", "4", ",", "6", ",", "3", ",", "4", ",", "9", 
     ",", "12", ",", "13", ",", "17", ",", "4", ",", "4", ",", "5", 
     ",", "2", ",", "9", ",", "7", ",", "5", ",", "2", ",", "4", ",", 
     "2", ",", "6", ",", "5", ",", "2", ",", "4", ",", "6", ",", "6", 
     ",", "11", ",", "7", ",", "6", ",", "13", ",", "12", ",", "6", 
     ",", "9", ",", "9", ",", "11", ",", "10", ",", "9", ",", "13", 
     ",", "16", ",", "25", ",", "10", ",", "12", ",", "16", ",", "21",
      ",", "10", ",", "8", ",", "12", ",", "12", ",", "23", ",", "29",
      ",", "14", ",", "11", ",", "17", ",", "17", ",", "10", ",", 
     "16", ",", "25", ",", "9", ",", "16", ",", "15", ",", "8", ",", 
     "4", ",", "9", ",", "20", ",", "13", ",", "15", ",", "10", ",", 
     "17", ",", "13", ",", "14", ",", "8", ",", "19", ",", "12", ",", 
     "14", ",", "13", ",", "10", ",", "11", ",", "7", ",", "19", ",", 
     "13", ",", "20", ",", "7", ",", "17", ",", "19", ",", "17", ",", 
     "29", ",", "20", ",", "23", ",", "32", ",", "25", ",", "23", ",",
      "34", ",", "42", ",", "33", ",", "24", ",", "27", ",", "41", 
     ",", "38", ",", "35", ",", "64", ",", "59", ",", "42", ",", "46",
      ",", "47", ",", "32", ",", "51", ",", "74", ",", "59", ",", 
     "37", ",", "31", ",", "47", ",", "41", ",", "42", ",", "74", ",",
      "53", ",", "47", ",", "29", ",", "50", ",", "32", ",", "36", 
     ",", "48", ",", "66", ",", "51", ",", "43", ",", "44", ",", "51",
      ",", "52", ",", "41", ",", "47", ",", "37", ",", "35", ",", 
     "43", ",", "32", ",", "54", ",", "43", ",", "49", ",", "48", ",",
      "40", ",", "36", ",", "18", ",", "36", ",", "30", ",", "30", 
     ",", "29", ",", "26", ",", "29", ",", "29", ",", "32", ",", "33",
      ",", "34", ",", "23", ",", "25", ",", "23", ",", "18", ",", 
     "23", ",", "25", ",", "28", ",", "26", ",", "21", ",", "13", ",",
      "21", ",", "20", ",", "17", ",", "21", ",", "15", ",", "14", 
     ",", "12", ",", "16", ",", "24", ",", "9", ",", "22", ",", "16", 
     ",", "11", ",", "13", ",", "10", ",", "9", ",", "7", ",", "13", 
     ",", "4", ",", "5", ",", "5", ",", "9", ",", "7", ",", "5", ",", 
     "4", ",", "11", ",", "7", ",", "2", ",", "8", ",", "3", ",", "5",
      ",", "6", ",", "3", ",", "6", ",", "1", ",", "3", ",", "7", ",",
      "5", ",", "3", ",", "7", ",", "5", ",", "1", ",", "1", ",", "3",
      ",", "2", ",", "4", ",", "1", ",", "3", ",", "2", ",", "1", ",",
      "2", ",", "3", ",", "2", ",", "0", ",", "2", ",", "3", ",", "2",
      ",", "2", ",", "1", ",", "1", ",", "3", ",", "1", ",", "2", ",",
      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1",
      ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",",
      "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1",
      ",", "0", ",", "3", ",", "1", ",", "0", ",", "0", ",", "1", ",",
      "0", ",", "2", ",", "1", ",", "0", ",", "1", ",", "2", ",", 
     "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002286779731*^9, 3.795002288875576*^9}, 
   3.795002400645101*^9, 3.7950024736181383`*^9, 3.817327209121714*^9},
 CellID->1825504097],

Cell[BoxData[
 RowBox[{
  RowBox[{"GlaucusData", "=", 
   RowBox[{"{", 
    RowBox[{
    "2", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "2", ",", "0", ",", "1", ",", "0", ",", "1", ",", 
     "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "2", ",", "2", ",", "0", ",", "1", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", 
     "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "4", ",", "3", ",", "2", ",", "3", ",", "3", ",", "2", ",", 
     "8", ",", "5", ",", "7", ",", "6", ",", "2", ",", "4", ",", "7", 
     ",", "8", ",", "11", ",", "9", ",", "14", ",", "10", ",", "8", 
     ",", "17", ",", "10", ",", "10", ",", "16", ",", "11", ",", "19",
      ",", "16", ",", "20", ",", "25", ",", "12", ",", "26", ",", 
     "31", ",", "33", ",", "31", ",", "25", ",", "30", ",", "29", ",",
      "44", ",", "48", ",", "53", ",", "41", ",", "38", ",", "41", 
     ",", "39", ",", "22", ",", "31", ",", "36", ",", "34", ",", "44",
      ",", "26", ",", "36", ",", "33", ",", "38", ",", "49", ",", 
     "43", ",", "52", ",", "30", ",", "43", ",", "59", ",", "57", ",",
      "66", ",", "49", ",", "32", ",", "30", ",", "49", ",", "62", 
     ",", "47", ",", "49", ",", "51", ",", "30", ",", "36", ",", 
     "165", ",", "99", ",", "59", ",", "41", ",", "35", ",", "32", 
     ",", "32", ",", "49", ",", "42", ",", "38", ",", "36", ",", "33",
      ",", "36", ",", "28", ",", "42", ",", "35", ",", "45", ",", 
     "35", ",", "49", ",", "42", ",", "55", ",", "56", ",", "68", ",",
      "61", ",", "46", ",", "47", ",", "53", ",", "59", ",", "75", 
     ",", "81", ",", "95", ",", "59", ",", "67", ",", "60", ",", "93",
      ",", "91", ",", "82", ",", "78", ",", "69", ",", "71", ",", 
     "67", ",", "65", ",", "112", ",", "70", ",", "70", ",", "60", 
     ",", "74", ",", "61", ",", "70", ",", "92", ",", "78", ",", "49",
      ",", "64", ",", "60", ",", "65", ",", "73", ",", "97", ",", 
     "78", ",", "50", ",", "85", ",", "90", ",", "64", ",", "65", ",",
      "95", ",", "113", ",", "80", ",", "78", ",", "109", ",", "118", 
     ",", "121", ",", "114", ",", "147", ",", "120", ",", "143", ",", 
     "120", ",", "164", ",", "172", ",", "182", ",", "203", ",", 
     "166", ",", "168", ",", "170", ",", "179", ",", "216", ",", 
     "277", ",", "246", ",", "199", ",", "218", ",", "297", ",", 
     "309", ",", "301", ",", "405", ",", "410", ",", "282", ",", 
     "272", ",", "278", ",", "347", ",", "273", ",", "400", ",", 
     "363", ",", "351", ",", "242", ",", "264", ",", "256", ",", 
     "236", ",", "309", ",", "315", ",", "289", ",", "212", ",", 
     "199", ",", "189", ",", "200", ",", "244", ",", "265", ",", 
     "194", ",", "186", ",", "176", ",", "149", ",", "162", ",", 
     "191", ",", "199", ",", "154", ",", "141", ",", "115", ",", 
     "121", ",", "115", ",", "155", ",", "147", ",", "130", ",", 
     "130", ",", "127", ",", "120", ",", "77", ",", "163", ",", "87", 
     ",", "69", ",", "48", ",", "61", ",", "57", ",", "36", ",", "65",
      ",", "77", ",", "48", ",", "55", ",", "54", ",", "33", ",", 
     "46", ",", "52", ",", "38", ",", "31", ",", "46", ",", "22", ",",
      "25", ",", "20", ",", "15", ",", "17", ",", "18", ",", "10", 
     ",", "15", ",", "23", ",", "10", ",", "9", ",", "13", ",", "5", 
     ",", "8", ",", "10", ",", "2", ",", "6", ",", "8", ",", "5", ",",
      "8", ",", "3", ",", "7", ",", "6", ",", "6", ",", "6", ",", 
     "13", ",", "12", ",", "12", ",", "9", ",", "4", ",", "6", ",", 
     "7", ",", "7", ",", "6", ",", "0", ",", "3", ",", "2", ",", "2", 
     ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "1", ",", 
     "0", ",", "1", ",", "1", ",", "2", ",", "0", ",", "3", ",", "1", 
     ",", "1", ",", "2", ",", "2", ",", "1", ",", "0", ",", "2", ",", 
     "2", ",", "1", ",", "3", ",", "2", ",", "5", ",", "1", ",", "3", 
     ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", 
     "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "2", ",", "0", 
     ",", "0", ",", "1", ",", "1", ",", "2", ",", "0", ",", "0", ",", 
     "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950023037336617`*^9, 3.795002306092111*^9}, 
   3.795002403907427*^9, 3.7950024718288507`*^9, 
   3.8173272091217537`*^9},
 CellID->39224083],

Cell[BoxData[
 RowBox[{
  RowBox[{"ArchippusData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "0", ",", "3", ",", "0", ",", "0", ",", "2", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
     "1", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "2", ",", "1", ",", "0", ",", "0", ",", "2", ",", "0", ",", "1", 
     ",", "1", ",", "0", ",", "1", ",", "2", ",", "1", ",", "0", ",", 
     "5", ",", "2", ",", "3", ",", "1", ",", "1", ",", "2", ",", "1", 
     ",", "0", ",", "2", ",", "1", ",", "5", ",", "4", ",", "1", ",", 
     "3", ",", "3", ",", "2", ",", "5", ",", "5", ",", "3", ",", "4", 
     ",", "4", ",", "1", ",", "5", ",", "3", ",", "3", ",", "7", ",", 
     "3", ",", "3", ",", "4", ",", "4", ",", "7", ",", "1", ",", "3", 
     ",", "2", ",", "2", ",", "5", ",", "5", ",", "4", ",", "8", ",", 
     "21", ",", "13", ",", "11", ",", "13", ",", "14", ",", "19", ",",
      "12", ",", "7", ",", "3", ",", "2", ",", "5", ",", "22", ",", 
     "24", ",", "26", ",", "17", ",", "9", ",", "5", ",", "6", ",", 
     "6", ",", "7", ",", "8", ",", "8", ",", "3", ",", "10", ",", "5",
      ",", "7", ",", "2", ",", "8", ",", "9", ",", "6", ",", "4", ",",
      "10", ",", "16", ",", "9", ",", "10", ",", "12", ",", "6", ",", 
     "7", ",", "10", ",", "19", ",", "8", ",", "17", ",", "13", ",", 
     "19", ",", "17", ",", "26", ",", "11", ",", "28", ",", "7", ",", 
     "33", ",", "28", ",", "14", ",", "23", ",", "20", ",", "25", ",",
      "17", ",", "15", ",", "28", ",", "29", ",", "22", ",", "14", 
     ",", "30", ",", "24", ",", "18", ",", "18", ",", "13", ",", "19",
      ",", "24", ",", "29", ",", "28", ",", "12", ",", "20", ",", 
     "21", ",", "18", ",", "10", ",", "20", ",", "24", ",", "15", ",",
      "23", ",", "26", ",", "30", ",", "26", ",", "35", ",", "32", 
     ",", "34", ",", "11", ",", "21", ",", "25", ",", "26", ",", "37",
      ",", "40", ",", "27", ",", "26", ",", "34", ",", "49", ",", 
     "31", ",", "43", ",", "36", ",", "38", ",", "34", ",", "48", ",",
      "47", ",", "49", ",", "52", ",", "45", ",", "37", ",", "44", 
     ",", "46", ",", "42", ",", "38", ",", "57", ",", "55", ",", "46",
      ",", "48", ",", "45", ",", "33", ",", "40", ",", "60", ",", 
     "58", ",", "31", ",", "35", ",", "46", ",", "40", ",", "41", ",",
      "42", ",", "42", ",", "53", ",", "38", ",", "44", ",", "49", 
     ",", "62", ",", "57", ",", "84", ",", "39", ",", "39", ",", "48",
      ",", "33", ",", "48", ",", "66", ",", "57", ",", "64", ",", 
     "56", ",", "49", ",", "41", ",", "33", ",", "70", ",", "56", ",",
      "53", ",", "42", ",", "44", ",", "51", ",", "43", ",", "49", 
     ",", "51", ",", "50", ",", "58", ",", "46", ",", "36", ",", "26",
      ",", "60", ",", "34", ",", "42", ",", "32", ",", "41", ",", 
     "24", ",", "22", ",", "39", ",", "32", ",", "28", ",", "28", ",",
      "20", ",", "15", ",", "16", ",", "33", ",", "24", ",", "19", 
     ",", "28", ",", "23", ",", "10", ",", "16", ",", "13", ",", "19",
      ",", "18", ",", "16", ",", "12", ",", "21", ",", "8", ",", "14",
      ",", "15", ",", "13", ",", "10", ",", "10", ",", "8", ",", "5", 
     ",", "13", ",", "9", ",", "13", ",", "6", ",", "3", ",", "0", 
     ",", "3", ",", "7", ",", "10", ",", "6", ",", "1", ",", "3", ",",
      "1", ",", "5", ",", "4", ",", "7", ",", "7", ",", "0", ",", "1",
      ",", "1", ",", "1", ",", "4", ",", "2", ",", "1", ",", "1", ",",
      "1", ",", "1", ",", "2", ",", "3", ",", "2", ",", "2", ",", "2",
      ",", "0", ",", "1", ",", "0", ",", "2", ",", "1", ",", "1", ",",
      "3", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0",
      ",", "0", ",", "1", ",", "0", ",", "3", ",", "0", ",", "1", ",",
      "0", ",", "1", ",", "0", ",", "2", ",", "1", ",", "0", ",", "0",
      ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",",
      "3", ",", "4", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002411683721*^9, 3.795002413959725*^9}, 
   3.7950024682153997`*^9, 3.817327209121787*^9},
 CellID->1924697065],

Cell[BoxData[
 RowBox[{
  RowBox[{"ArthemisData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", 
     ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "3", ",", 
     "0", ",", "3", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "1", ",", "2", ",", "5", ",", "0", ",", "1", ",", "0", ",", 
     "3", ",", "3", ",", "3", ",", "3", ",", "5", ",", "2", ",", "5", 
     ",", "5", ",", "2", ",", "9", ",", "9", ",", "5", ",", "7", ",", 
     "8", ",", "4", ",", "1", ",", "2", ",", "5", ",", "5", ",", "2", 
     ",", "8", ",", "5", ",", "6", ",", "4", ",", "8", ",", "16", ",",
      "8", ",", "6", ",", "5", ",", "8", ",", "7", ",", "12", ",", 
     "15", ",", "7", ",", "11", ",", "12", ",", "12", ",", "19", ",", 
     "31", ",", "42", ",", "38", ",", "21", ",", "22", ",", "19", ",",
      "11", ",", "18", ",", "24", ",", "12", ",", "27", ",", "20", 
     ",", "21", ",", "26", ",", "19", ",", "28", ",", "22", ",", "23",
      ",", "36", ",", "30", ",", "35", ",", "45", ",", "44", ",", 
     "39", ",", "37", ",", "30", ",", "21", ",", "28", ",", "54", ",",
      "55", ",", "36", ",", "33", ",", "34", ",", "34", ",", "36", 
     ",", "61", ",", "50", ",", "45", ",", "46", ",", "34", ",", "37",
      ",", "44", ",", "70", ",", "45", ",", "45", ",", "68", ",", 
     "50", ",", "45", ",", "48", ",", "69", ",", "52", ",", "42", ",",
      "42", ",", "42", ",", "42", ",", "47", ",", "85", ",", "63", 
     ",", "53", ",", "49", ",", "48", ",", "46", ",", "30", ",", "68",
      ",", "78", ",", "67", ",", "73", ",", "59", ",", "77", ",", 
     "74", ",", "82", ",", "83", ",", "87", ",", "71", ",", "63", ",",
      "75", ",", "98", ",", "107", ",", "125", ",", "84", ",", "71", 
     ",", "78", ",", "93", ",", "93", ",", "89", ",", "111", ",", 
     "90", ",", "83", ",", "101", ",", "119", ",", "88", ",", "121", 
     ",", "146", ",", "112", ",", "98", ",", "82", ",", "108", ",", 
     "104", ",", "100", ",", "140", ",", "99", ",", "93", ",", "75", 
     ",", "89", ",", "107", ",", "160", ",", "122", ",", "116", ",", 
     "81", ",", "105", ",", "109", ",", "122", ",", "112", ",", "145",
      ",", "145", ",", "107", ",", "122", ",", "127", ",", "127", ",",
      "185", ",", "206", ",", "124", ",", "125", ",", "114", ",", 
     "110", ",", "128", ",", "137", ",", "164", ",", "162", ",", 
     "131", ",", "105", ",", "104", ",", "81", ",", "147", ",", "111",
      ",", "95", ",", "71", ",", "85", ",", "72", ",", "80", ",", 
     "103", ",", "96", ",", "90", ",", "57", ",", "56", ",", "53", 
     ",", "53", ",", "60", ",", "68", ",", "43", ",", "35", ",", "34",
      ",", "36", ",", "27", ",", "38", ",", "44", ",", "31", ",", 
     "30", ",", "18", ",", "20", ",", "20", ",", "20", ",", "18", ",",
      "18", ",", "21", ",", "13", ",", "15", ",", "14", ",", "10", 
     ",", "11", ",", "9", ",", "8", ",", "13", ",", "9", ",", "6", 
     ",", "6", ",", "10", ",", "17", ",", "7", ",", "7", ",", "2", 
     ",", "4", ",", "3", ",", "5", ",", "7", ",", "5", ",", "3", ",", 
     "3", ",", "1", ",", "2", ",", "4", ",", "6", ",", "1", ",", "3", 
     ",", "1", ",", "4", ",", "0", ",", "3", ",", "1", ",", "2", ",", 
     "3", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "2", ",", "0", ",", 
     "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002430192256*^9, 3.795002432460437*^9}, 
   3.795002465112226*^9, 3.8173272091218224`*^9},
 CellID->1338177642],

Cell[BoxData[
 RowBox[{
  RowBox[{"ImpatiensData", "=", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
     "4", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", 
     "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "4", ",", 
     "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "0", 
     ",", "2", ",", "0", ",", "2", ",", "1", ",", "0", ",", "3", ",", 
     "2", ",", "5", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1", 
     ",", "1", ",", "3", ",", "5", ",", "2", ",", "7", ",", "4", ",", 
     "6", ",", "7", ",", "3", ",", "5", ",", "8", ",", "4", ",", "5", 
     ",", "2", ",", "2", ",", "2", ",", "6", ",", "2", ",", "7", ",", 
     "10", ",", "4", ",", "4", ",", "3", ",", "9", ",", "4", ",", "4",
      ",", "10", ",", "7", ",", "5", ",", "10", ",", "13", ",", "11", 
     ",", "13", ",", "24", ",", "12", ",", "13", ",", "8", ",", "15", 
     ",", "22", ",", "20", ",", "27", ",", "21", ",", "13", ",", "22",
      ",", "48", ",", "58", ",", "47", ",", "25", ",", "21", ",", 
     "29", ",", "21", ",", "35", ",", "49", ",", "47", ",", "40", ",",
      "33", ",", "26", ",", "22", ",", "25", ",", "33", ",", "25", 
     ",", "25", ",", "36", ",", "30", ",", "20", ",", "26", ",", "12",
      ",", "29", ",", "38", ",", "27", ",", "30", ",", "25", ",", 
     "21", ",", "23", ",", "24", ",", "20", ",", "38", ",", "35", ",",
      "29", ",", "25", ",", "30", ",", "32", ",", "34", ",", "33", 
     ",", "31", ",", "30", ",", "44", ",", "38", ",", "34", ",", "29",
      ",", "31", ",", "33", ",", "41", ",", "46", ",", "43", ",", 
     "34", ",", "40", ",", "29", ",", "30", ",", "29", ",", "41", ",",
      "37", ",", "32", ",", "46", ",", "56", ",", "57", ",", "33", 
     ",", "38", ",", "35", ",", "41", ",", "46", ",", "43", ",", "47",
      ",", "53", ",", "49", ",", "52", ",", "58", ",", "59", ",", 
     "62", ",", "51", ",", "59", ",", "66", ",", "90", ",", "84", ",",
      "77", ",", "61", ",", "68", ",", "100", ",", "76", ",", "87", 
     ",", "85", ",", "88", ",", "77", ",", "87", ",", "100", ",", 
     "107", ",", "101", ",", "114", ",", "91", ",", "96", ",", "120", 
     ",", "126", ",", "138", ",", "106", ",", "106", ",", "101", ",", 
     "94", ",", "82", ",", "106", ",", "138", ",", "132", ",", "101", 
     ",", "98", ",", "126", ",", "121", ",", "140", ",", "114", ",", 
     "118", ",", "135", ",", "113", ",", "172", ",", "128", ",", 
     "181", ",", "168", ",", "184", ",", "100", ",", "153", ",", 
     "112", ",", "138", ",", "156", ",", "159", ",", "165", ",", 
     "145", ",", "123", ",", "128", ",", "148", ",", "161", ",", 
     "202", ",", "195", ",", "167", ",", "223", ",", "219", ",", 
     "214", ",", "237", ",", "210", ",", "218", ",", "184", ",", 
     "155", ",", "169", ",", "186", ",", "214", ",", "185", ",", 
     "204", ",", "150", ",", "151", ",", "212", ",", "183", ",", 
     "220", ",", "175", ",", "195", ",", "216", ",", "218", ",", 
     "174", ",", "163", ",", "214", ",", "180", ",", "215", ",", 
     "168", ",", "193", ",", "123", ",", "155", ",", "122", ",", 
     "146", ",", "180", ",", "191", ",", "121", ",", "99", ",", "82", 
     ",", "119", ",", "118", ",", "141", ",", "111", ",", "72", ",", 
     "96", ",", "111", ",", "101", ",", "57", ",", "49", ",", "91", 
     ",", "53", ",", "43", ",", "20", ",", "25", ",", "27", ",", "38",
      ",", "34", ",", "23", ",", "29", ",", "7", ",", "6", ",", "6", 
     ",", "10", ",", "15", ",", "7", ",", "1", ",", "5", ",", "2", 
     ",", "6", ",", "5", ",", "8", ",", "10", ",", "2", ",", "6", ",",
      "6", ",", "5", ",", "3", ",", "2", ",", "2", ",", "4", ",", "5",
      ",", "3", ",", "2", ",", "3", ",", "1", ",", "1", ",", "1", ",",
      "1", ",", "2", ",", "2", ",", "5", ",", "2", ",", "0", ",", "0",
      ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",",
      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "1",
      ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",",
      "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002457916562*^9, 3.7950024631990128`*^9}, 
   3.817327209121861*^9},
 CellID->1069795200],

Cell[BoxData[
 RowBox[{
  RowBox[{"JaponicaData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "2", ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "3", ",", "0", ",", 
     "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", 
     "0", ",", "4", ",", "2", ",", "9", ",", "4", ",", "2", ",", "8", 
     ",", "10", ",", "11", ",", "15", ",", "14", ",", "8", ",", "10", 
     ",", "13", ",", "13", ",", "22", ",", "37", ",", "22", ",", "16",
      ",", "28", ",", "34", ",", "33", ",", "42", ",", "54", ",", 
     "44", ",", "67", ",", "54", ",", "47", ",", "49", ",", "77", ",",
      "80", ",", "87", ",", "101", ",", "72", ",", "71", ",", "87", 
     ",", "74", ",", "106", ",", "107", ",", "87", ",", "91", ",", 
     "112", ",", "99", ",", "100", ",", "154", ",", "132", ",", "157",
      ",", "93", ",", "117", ",", "113", ",", "128", ",", "95", ",", 
     "135", ",", "101", ",", "87", ",", "82", ",", "134", ",", "102", 
     ",", "110", ",", "110", ",", "114", ",", "83", ",", "87", ",", 
     "64", ",", "94", ",", "104", ",", "71", ",", "75", ",", "67", 
     ",", "60", ",", "51", ",", "98", ",", "72", ",", "50", ",", "80",
      ",", "72", ",", "48", ",", "47", ",", "73", ",", "47", ",", 
     "43", ",", "50", ",", "41", ",", "44", ",", "44", ",", "38", ",",
      "47", ",", "36", ",", "33", ",", "39", ",", "29", ",", "34", 
     ",", "39", ",", "40", ",", "16", ",", "32", ",", "26", ",", "29",
      ",", "30", ",", "35", ",", "31", ",", "16", ",", "16", ",", 
     "16", ",", "39", ",", "16", ",", "26", ",", "27", ",", "17", ",",
      "23", ",", "19", ",", "21", ",", "14", ",", "19", ",", "14", 
     ",", "19", ",", "16", ",", "14", ",", "17", ",", "16", ",", "6", 
     ",", "11", ",", "10", ",", "4", ",", "5", ",", "6", ",", "8", 
     ",", "7", ",", "10", ",", "5", ",", "7", ",", "1", ",", "5", ",",
      "2", ",", "1", ",", "4", ",", "2", ",", "3", ",", "1", ",", "2",
      ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",",
      "2", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "1",
      ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "1", ",",
      "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",",
      "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",",
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950025077465477`*^9, 3.7950025114905787`*^9}, 
   3.8173272091218987`*^9},
 CellID->1468525615],

Cell[BoxData[
 RowBox[{
  RowBox[{"LuctuosaData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "2", ",", "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "1", 
     ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "6", ",", 
     "3", ",", "2", ",", "1", ",", "0", ",", "4", ",", "0", ",", "5", 
     ",", "5", ",", "2", ",", "12", ",", "4", ",", "7", ",", "8", ",",
      "7", ",", "9", ",", "16", ",", "14", ",", "12", ",", "16", ",", 
     "15", ",", "15", ",", "18", ",", "20", ",", "32", ",", "18", ",",
      "27", ",", "42", ",", "52", ",", "43", ",", "64", ",", "59", 
     ",", "52", ",", "58", ",", "59", ",", "108", ",", "92", ",", 
     "103", ",", "89", ",", "65", ",", "78", ",", "118", ",", "88", 
     ",", "116", ",", "110", ",", "127", ",", "112", ",", "108", ",", 
     "163", ",", "131", ",", "156", ",", "140", ",", "121", ",", 
     "119", ",", "124", ",", "146", ",", "168", ",", "145", ",", 
     "184", ",", "171", ",", "178", ",", "131", ",", "163", ",", 
     "173", ",", "163", ",", "191", ",", "170", ",", "147", ",", 
     "241", ",", "213", ",", "221", ",", "239", ",", "212", ",", 
     "178", ",", "141", ",", "144", ",", "199", ",", "193", ",", 
     "203", ",", "182", ",", "146", ",", "127", ",", "150", ",", 
     "185", ",", "148", ",", "160", ",", "112", ",", "164", ",", 
     "169", ",", "170", ",", "149", ",", "166", ",", "183", ",", 
     "139", ",", "116", ",", "82", ",", "101", ",", "139", ",", "122",
      ",", "145", ",", "122", ",", "108", ",", "102", ",", "100", ",",
      "107", ",", "101", ",", "100", ",", "80", ",", "69", ",", "110",
      ",", "100", ",", "73", ",", "58", ",", "84", ",", "68", ",", 
     "76", ",", "68", ",", "35", ",", "73", ",", "95", ",", "61", ",",
      "57", ",", "45", ",", "67", ",", "53", ",", "53", ",", "59", 
     ",", "39", ",", "53", ",", "54", ",", "26", ",", "43", ",", "31",
      ",", "16", ",", "22", ",", "37", ",", "29", ",", "29", ",", 
     "18", ",", "25", ",", "35", ",", "33", ",", "48", ",", "17", ",",
      "20", ",", "10", ",", "22", ",", "17", ",", "15", ",", "9", ",",
      "20", ",", "11", ",", "7", ",", "6", ",", "16", ",", "9", ",", 
     "11", ",", "8", ",", "7", ",", "9", ",", "3", ",", "5", ",", "3",
      ",", "11", ",", "3", ",", "7", ",", "6", ",", "4", ",", "3", 
     ",", "2", ",", "4", ",", "6", ",", "2", ",", "1", ",", "0", ",", 
     "1", ",", "4", ",", "0", ",", "1", ",", "1", ",", "0", ",", "2", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002534309267*^9, 3.79500253848501*^9}, 
   3.817327209121933*^9},
 CellID->34611167],

Cell[BoxData[
 RowBox[{
  RowBox[{"CamellifoliaData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "1", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", 
     "0", ",", "2", ",", "3", ",", "1", ",", "4", ",", "0", ",", "3", 
     ",", "1", ",", "2", ",", "0", ",", "0", ",", "3", ",", "2", ",", 
     "0", ",", "5", ",", "1", ",", "4", ",", "2", ",", "5", ",", "4", 
     ",", "5", ",", "2", ",", "7", ",", "8", ",", "3", ",", "2", ",", 
     "5", ",", "7", ",", "9", ",", "7", ",", "8", ",", "5", ",", "3", 
     ",", "3", ",", "4", ",", "4", ",", "3", ",", "13", ",", "8", ",",
      "9", ",", "14", ",", "15", ",", "13", ",", "19", ",", "9", ",", 
     "15", ",", "17", ",", "6", ",", "6", ",", "9", ",", "8", ",", 
     "14", ",", "7", ",", "8", ",", "12", ",", "11", ",", "11", ",", 
     "13", ",", "10", ",", "14", ",", "8", ",", "7", ",", "11", ",", 
     "15", ",", "16", ",", "14", ",", "15", ",", "12", ",", "16", ",",
      "13", ",", "12", ",", "14", ",", "11", ",", "15", ",", "8", ",",
      "9", ",", "11", ",", "14", ",", "10", ",", "13", ",", "11", ",",
      "13", ",", "14", ",", "16", ",", "12", ",", "16", ",", "20", 
     ",", "18", ",", "20", ",", "9", ",", "15", ",", "19", ",", "11", 
     ",", "16", ",", "9", ",", "12", ",", "11", ",", "13", ",", "14", 
     ",", "10", ",", "17", ",", "14", ",", "7", ",", "7", ",", "6", 
     ",", "8", ",", "8", ",", "6", ",", "4", ",", "4", ",", "5", ",", 
     "2", ",", "12", ",", "7", ",", "7", ",", "5", ",", "5", ",", 
     "14", ",", "8", ",", "9", ",", "13", ",", "5", ",", "5", ",", 
     "10", ",", "12", ",", "3", ",", "9", ",", "6", ",", "7", ",", 
     "8", ",", "4", ",", "4", ",", "7", ",", "5", ",", "5", ",", "4", 
     ",", "7", ",", "3", ",", "4", ",", "4", ",", "2", ",", "4", ",", 
     "3", ",", "4", ",", "2", ",", "5", ",", "2", ",", "1", ",", "5", 
     ",", "3", ",", "1", ",", "4", ",", "2", ",", "2", ",", "1", ",", 
     "1", ",", "3", ",", "2", ",", "1", ",", "1", ",", "3", ",", "7", 
     ",", "6", ",", "3", ",", "2", ",", "1", ",", "1", ",", "2", ",", 
     "3", ",", "0", ",", "3", ",", "2", ",", "3", ",", "1", ",", "0", 
     ",", "5", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
     "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", 
     "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002601742353*^9, 3.79500260549961*^9}, 
   3.795002822254601*^9, {3.795003427972884*^9, 
   3.7950034358755503`*^9}, 3.795095795101553*^9, 
   3.817327209121969*^9},
 CellID->223018918],

Cell[BoxData[
 RowBox[{
  RowBox[{"TibicenData", "=", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", 
     "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "3", ",", "1", 
     ",", "3", ",", "1", ",", "2", ",", "2", ",", "1", ",", "2", ",", 
     "0", ",", "1", ",", "3", ",", "0", ",", "2", ",", "2", ",", "3", 
     ",", "2", ",", "1", ",", "2", ",", "2", ",", "7", ",", "2", ",", 
     "6", ",", "2", ",", "2", ",", "7", ",", "3", ",", "6", ",", "13",
      ",", "5", ",", "12", ",", "12", ",", "16", ",", "6", ",", "9", 
     ",", "12", ",", "10", ",", "4", ",", "9", ",", "11", ",", "12", 
     ",", "8", ",", "11", ",", "12", ",", "23", ",", "19", ",", "11", 
     ",", "13", ",", "25", ",", "15", ",", "18", ",", "10", ",", "19",
      ",", "12", ",", "14", ",", "10", ",", "14", ",", "17", ",", 
     "17", ",", "12", ",", "11", ",", "5", ",", "10", ",", "11", ",", 
     "10", ",", "13", ",", "16", ",", "14", ",", "15", ",", "14", ",",
      "16", ",", "15", ",", "6", ",", "10", ",", "10", ",", "16", ",",
      "14", ",", "15", ",", "18", ",", "16", ",", "12", ",", "7", ",",
      "10", ",", "12", ",", "9", ",", "7", ",", "2", ",", "12", ",", 
     "7", ",", "10", ",", "5", ",", "4", ",", "5", ",", "6", ",", "6",
      ",", "6", ",", "5", ",", "5", ",", "5", ",", "2", ",", "1", ",",
      "4", ",", "3", ",", "1", ",", "2", ",", "1", ",", "3", ",", "0",
      ",", "1", ",", "2", ",", "0", ",", "0", ",", "2", ",", "1", ",",
      "1", ",", "2", ",", "0", ",", "0", ",", "0", ",", "2", ",", "1",
      ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",",
      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795094204891201*^9, 3.795094228101742*^9}, 
   3.817327209122007*^9},
 CellID->1438142078],

Cell[BoxData[
 RowBox[{
  RowBox[{"PruinosusData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", 
     "0", ",", "3", ",", "0", ",", "1", ",", "3", ",", "0", ",", "0", 
     ",", "2", ",", "0", ",", "0", ",", "2", ",", "1", ",", "1", ",", 
     "0", ",", "4", ",", "2", ",", "0", ",", "5", ",", "2", ",", "5", 
     ",", "2", ",", "2", ",", "4", ",", "0", ",", "2", ",", "2", ",", 
     "5", ",", "3", ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", 
     ",", "2", ",", "6", ",", "5", ",", "5", ",", "6", ",", "4", ",", 
     "5", ",", "4", ",", "10", ",", "10", ",", "4", ",", "10", ",", 
     "5", ",", "13", ",", "3", ",", "11", ",", "4", ",", "3", ",", 
     "9", ",", "11", ",", "9", ",", "5", ",", "1", ",", "5", ",", "8",
      ",", "10", ",", "10", ",", "5", ",", "7", ",", "12", ",", "10", 
     ",", "13", ",", "6", ",", "10", ",", "9", ",", "2", ",", "6", 
     ",", "3", ",", "13", ",", "9", ",", "10", ",", "6", ",", "16", 
     ",", "16", ",", "14", ",", "14", ",", "14", ",", "12", ",", "13",
      ",", "16", ",", "8", ",", "9", ",", "12", ",", "13", ",", "10", 
     ",", "11", ",", "9", ",", "14", ",", "19", ",", "5", ",", "14", 
     ",", "9", ",", "5", ",", "7", ",", "4", ",", "11", ",", "8", ",",
      "12", ",", "9", ",", "7", ",", "3", ",", "6", ",", "7", ",", 
     "6", ",", "5", ",", "6", ",", "3", ",", "4", ",", "4", ",", "2", 
     ",", "1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "1", ",", 
     "3", ",", "2", ",", "0", ",", "1", ",", "2", ",", "4", ",", "0", 
     ",", "3", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", 
     "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795094195541472*^9, 3.795094198236669*^9}, 
   3.7950942320696287`*^9, 3.81732720912204*^9},
 CellID->271687298],

Cell[BoxData[
 RowBox[{
  RowBox[{"LyricenData", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", 
     "1", ",", "1", ",", "2", ",", "1", ",", "0", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "2", ",", 
     "3", ",", "4", ",", "2", ",", "2", ",", "2", ",", "0", ",", "2", 
     ",", "0", ",", "2", ",", "3", ",", "3", ",", "4", ",", "2", ",", 
     "2", ",", "3", ",", "2", ",", "7", ",", "7", ",", "11", ",", "6",
      ",", "11", ",", "2", ",", "11", ",", "8", ",", "18", ",", "11", 
     ",", "13", ",", "11", ",", "10", ",", "9", ",", "8", ",", "2", 
     ",", "11", ",", "14", ",", "13", ",", "7", ",", "3", ",", "10", 
     ",", "6", ",", "1", ",", "8", ",", "2", ",", "2", ",", "3", ",", 
     "3", ",", "4", ",", "5", ",", "5", ",", "3", ",", "4", ",", "1", 
     ",", "6", ",", "0", ",", "3", ",", "0", ",", "3", ",", "3", ",", 
     "2", ",", "0", ",", "1", ",", "7", ",", "0", ",", "0", ",", "2", 
     ",", "1", ",", "0", ",", "2", ",", "1", ",", "3", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
     "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795094220317038*^9, 3.7950942254591017`*^9}, 
   3.817327209122072*^9},
 CellID->1203503417],

Cell[BoxData[
 RowBox[{
  RowBox[{"PapilioFastOn", "=", 
   RowBox[{"{", 
    RowBox[{
    "GlaucusData", ",", "PolyxenesData", ",", "TroilusData", ",", 
     "CresphontesData"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002686833725*^9, 3.795002742254751*^9}, {
   3.795002781314204*^9, 3.795002943724909*^9}, {3.795002987278544*^9,
    3.7950030067075777`*^9}, {3.7950033240650177`*^9, 
   3.795003331860923*^9}, {3.7950034414190474`*^9, 
   3.7950034523406563`*^9}, 3.795010324856658*^9, {
   3.795010367883493*^9, 3.795010368493515*^9}, {3.795014204110868*^9,
    3.795014207196308*^9}, {3.795014286295722*^9, 
   3.795014289386941*^9}, 3.79509580085596*^9, {
   3.7950971401055603`*^9, 3.7950971695047092`*^9}, 
   3.795193758588079*^9, 3.817327209122106*^9},
 CellID->220619638],

Cell[BoxData[
 RowBox[{
  RowBox[{"PapilioDiffs", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "-", 
       RowBox[{"#2", " ", "MarcellusData"}]}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{"PapilioFastOn", ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "1", ",", 
         RowBox[{"2", "/", "3"}]}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002686833725*^9, 3.795002742254751*^9}, {
   3.795002781314204*^9, 3.795002943724909*^9}, {3.795002987278544*^9,
    3.7950030067075777`*^9}, {3.7950033240650177`*^9, 
   3.795003331860923*^9}, {3.7950034414190474`*^9, 
   3.7950034523406563`*^9}, 3.795010324856658*^9, {
   3.795010367883493*^9, 3.795010368493515*^9}, {3.795014204110868*^9,
    3.795014207196308*^9}, {3.795014286295722*^9, 
   3.795014289386941*^9}, 3.79509580085596*^9, {
   3.7950971401055603`*^9, 3.7950971695047092`*^9}, {
   3.795193758588079*^9, 3.7951937615876427`*^9}, 
   3.8173272091221447`*^9},
 CellID->1339547617],

Cell[BoxData[
 RowBox[{
  RowBox[{"TibicenMixed", "=", 
   RowBox[{"{", 
    RowBox[{"TibicenData", ",", "PruinosusData", ",", "LyricenData"}],
     "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002686833725*^9, 3.795002742254751*^9}, {
   3.795002781314204*^9, 3.795002943724909*^9}, {3.795002987278544*^9,
    3.7950030067075777`*^9}, {3.7950033240650177`*^9, 
   3.795003331860923*^9}, {3.7950034414190474`*^9, 
   3.7950034523406563`*^9}, 3.795010324856658*^9, {
   3.795010367883493*^9, 3.795010368493515*^9}, {3.795014204110868*^9,
    3.795014207196308*^9}, {3.795014286295722*^9, 
   3.795014289386941*^9}, 3.79509580085596*^9, {
   3.7950971401055603`*^9, 3.7950971695047092`*^9}, {
   3.795193758588079*^9, 3.795193763927659*^9}, 3.81732720912218*^9},
 CellID->1705727418],

Cell[BoxData[
 RowBox[{
  RowBox[{"ArthropodSlowOn", "=", 
   RowBox[{"{", 
    RowBox[{
    "ArchippusData", ",", "ArthemisData", ",", "ImpatiensData"}], 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002686833725*^9, 3.795002742254751*^9}, {
   3.795002781314204*^9, 3.795002943724909*^9}, {3.795002987278544*^9,
    3.7950030067075777`*^9}, {3.7950033240650177`*^9, 
   3.795003331860923*^9}, {3.7950034414190474`*^9, 
   3.7950034523406563`*^9}, 3.795010324856658*^9, {
   3.795010367883493*^9, 3.795010368493515*^9}, {3.795014204110868*^9,
    3.795014207196308*^9}, {3.795014286295722*^9, 
   3.795014289386941*^9}, 3.79509580085596*^9, {
   3.7950971401055603`*^9, 3.7950971695047092`*^9}, {
   3.795193758588079*^9, 3.7951937665149593`*^9}, 
   3.817327209122211*^9},
 CellID->1401510523],

Cell[BoxData[
 RowBox[{
  RowBox[{"ArthropodFastOn", "=", 
   RowBox[{"{", 
    RowBox[{
    "JaponicaData", ",", "LuctuosaData", ",", "CamellifoliaData"}], 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795002686833725*^9, 3.795002742254751*^9}, {
   3.795002781314204*^9, 3.795002943724909*^9}, {3.795002987278544*^9,
    3.7950030067075777`*^9}, {3.7950033240650177`*^9, 
   3.795003331860923*^9}, {3.7950034414190474`*^9, 
   3.7950034523406563`*^9}, 3.795010324856658*^9, {
   3.795010367883493*^9, 3.795010368493515*^9}, {3.795014204110868*^9,
    3.795014207196308*^9}, {3.795014286295722*^9, 
   3.795014289386941*^9}, 3.79509580085596*^9, {
   3.7950971401055603`*^9, 3.7950971695047092`*^9}, {
   3.795193758588079*^9, 3.7951937665149593`*^9}, 3.81732720912224*^9},
 CellID->1586719765],

Cell[BoxData[
 RowBox[{
  RowBox[{"ChinaCOVIDCases", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "17", ",", "0", ",", "15", ",", "0", ",", "0",
      ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
      "0", ",", "0", ",", "0", ",", "4", ",", "17", ",", "136", ",", 
     "19", ",", "151", ",", "140", ",", "97", ",", "259", ",", "441", 
     ",", "665", ",", "787", ",", "1753", ",", "1466", ",", "1740", 
     ",", "1980", ",", "2095", ",", "2590", ",", "2812", ",", "3237", 
     ",", "3872", ",", "3727", ",", "3160", ",", "3418", ",", "2607", 
     ",", "2974", ",", "2490", ",", "2028", ",", "15141", ",", "4156",
      ",", "2538", ",", "2007", ",", "2052", ",", "1890", ",", "1750",
      ",", "394", ",", "891", ",", "826", ",", "647", ",", "218", ",",
      "515", ",", "410", ",", "439", ",", "329", ",", "428", ",", 
     "574", ",", "205", ",", "127", ",", "119", ",", "117", ",", 
     "170", ",", "101", ",", "46", ",", "45", ",", "20", ",", "29", 
     ",", "24", ",", "22", ",", "19", ",", "22", ",", "25", ",", "43",
      ",", "23", ",", "44", ",", "99", ",", "52", ",", "65", ",", 
     "138", ",", "69", ",", "78", ",", "102", ",", "94", ",", "119", 
     ",", "113", ",", "98", ",", "84", ",", "54", ",", "100", ",", 
     "70", ",", "62"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795003644726074*^9, 3.795003701687956*^9}, {
   3.7950051842171803`*^9, 3.7950051846069736`*^9}, 
   3.7951937743001833`*^9, 3.817327209122272*^9},
 CellID->1533974345],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Remove", " ", "points", " ", 
    RowBox[{"w", "/", " ", "known"}], " ", "systematic", " ", 
    "error"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ChinaCOVIDCasesCut", "=", 
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"Length", "[", "ChinaCOVIDCases", "]"}], "]"}], ",",
          "ChinaCOVIDCases"}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"44", "|", "45"}], ",", "_"}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795003644726074*^9, 3.795003701687956*^9}, {
   3.7950051842171803`*^9, 3.7950051846069736`*^9}, 
   3.7951937743001833`*^9, 3.8173272091223*^9},
 CellID->547161909],

Cell[BoxData[
 RowBox[{
  RowBox[{"IterateRev", "[", "xn_", "]"}], ":=", 
  RowBox[{"1", "-", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "-", "xn"}], "]"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.79500515346393*^9, 3.795005160939767*^9}, {
   3.7950438711560307`*^9, 3.795043883341741*^9}, 
   3.795193786956307*^9, {3.795731636541972*^9, 3.795731639439391*^9},
    3.817327209122336*^9},
 CellID->1761353931],

Cell[BoxData[
 RowBox[{
  RowBox[{"LSigmoidRev", "=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"NestWhileList", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"IterateRev", "[", "#", "]"}], "&"}], ",", 
       RowBox[{"1", "-", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "5"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"#", "\[GreaterEqual]", 
         RowBox[{"0", "+", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "10"}], ")"}]}]}]}], "&"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ";;", "16"}], "]"}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.79500515346393*^9, 3.795005160939767*^9}, {
   3.7950438711560307`*^9, 3.795043883341741*^9}, {
   3.795193786956307*^9, 3.795193793706316*^9}, 3.817327209122369*^9},
 
 CellID->625228109],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogisticPRev", "=", 
   RowBox[{"Normalize", "[", 
    RowBox[{"Differences", "[", 
     RowBox[{"-", "LSigmoidRev"}], "]"}], "]"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.79500515346393*^9, 3.795005160939767*^9}, {
   3.7950438711560307`*^9, 3.795043883341741*^9}, {
   3.795193786956307*^9, 3.795193793706316*^9}, 3.817327209122406*^9},
 
 CellID->571343192],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogisticPeakRev", "[", "t_", "]"}], ":=", 
  RowBox[{"LogisticPeakRev", "[", 
   RowBox[{"t", ",", 
    RowBox[{"10", "^", 
     RowBox[{"(", 
      RowBox[{"-", "5"}], ")"}]}]}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795012778250226*^9, 3.7950127801161537`*^9}, {
   3.795079926503612*^9, 3.795079927723*^9}, {3.7950993725260487`*^9, 
   3.7950993756071653`*^9}, 3.79519379810505*^9, 
   3.8173272091224422`*^9},
 CellID->1830373043],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogisticPeakRev", "[", 
   RowBox[{"t_", ",", "c0_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{"Times", "[", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"2", "^", "t"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "c0"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "^", "t"}], ")"}]}], ",", 
     RowBox[{"Log", "[", "2", "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"2", "c0"}]}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795012778250226*^9, 3.7950127801161537`*^9}, {
   3.795079926503612*^9, 3.795079927723*^9}, {3.7950993725260487`*^9, 
   3.7950993756071653`*^9}, 3.79519379810505*^9, 3.817327209122507*^9},
 CellID->1165642207],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"PapilioFits", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"FindFit", "[", 
        RowBox[{"#", ",", 
         RowBox[{"A", " ", 
          RowBox[{"LogisticPeakRev", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], "]"}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"A", ",", 
             RowBox[{"2", 
              RowBox[{"Max", "[", "#", "]"}]}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"t0", ",", "450"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"T0", ",", "15"}], "}"}]}], "}"}], ",", "t"}], 
        "]"}], "&"}], "/@", "PapilioDiffs"}], "]"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PapilioFits", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "1006.1810278126417`"}], ",", 
        RowBox[{"t0", "\[Rule]", "393.56074580185924`"}], ",", 
        RowBox[{"T0", "\[Rule]", "11.57816895698748`"}]}], "}"}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "324.7940392886853`"}], ",", 
        RowBox[{"t0", "\[Rule]", "549.9440132088428`"}], ",", 
        RowBox[{"T0", "\[Rule]", "20.529039361731144`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "301.1400570591007`"}], ",", 
        RowBox[{"t0", "\[Rule]", "417.40231878753303`"}], ",", 
        RowBox[{"T0", "\[Rule]", "13.054140171919986`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "167.6754235540642`"}], ",", 
        RowBox[{"t0", "\[Rule]", "494.6046701180805`"}], ",", 
        RowBox[{"T0", "\[Rule]", "17.15912900917047`"}]}], "}"}]}], 
     "}"}]}], ";"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.79500580805971*^9, 3.7950058240071917`*^9}, {
   3.795005856179823*^9, 3.7950059069947443`*^9}, {
   3.795006845086371*^9, 3.795006864945683*^9}, 
   3.795007020353236*^9, {3.795012793384742*^9, 3.79501279378811*^9}, 
   3.817327209122538*^9},
 CellID->1671252288],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"TibicenFits", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"Riffle", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"FindFit", "[", 
          RowBox[{"#", ",", 
           RowBox[{"A", " ", 
            RowBox[{"LogisticPeakRev", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], "]"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"A", ",", 
               RowBox[{"2", 
                RowBox[{"Max", "[", "#", "]"}]}]}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"t0", ",", "400"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"T0", ",", "12"}], "}"}]}], "}"}], ",", "t"}], 
          "]"}], "&"}], "/@", 
        RowBox[{"TibicenMixed", "[", 
         RowBox[{"[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"FindFit", "[", 
          RowBox[{"#", ",", 
           RowBox[{"A", " ", 
            RowBox[{"LogisticPeakRev", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "+", "t0"}], ")"}], "/", "T0"}], "]"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"A", ",", 
               RowBox[{"2", 
                RowBox[{"Max", "[", "#", "]"}]}]}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"t0", ",", "30"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"T0", ",", "17"}], "}"}]}], "}"}], ",", "t"}], 
          "]"}], "&"}], "/@", 
        RowBox[{"TibicenMixed", "[", 
         RowBox[{"[", 
          RowBox[{"{", "2", "}"}], "]"}], "]"}]}]}], "]"}], "]"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TibicenFits", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "59.34106834153694`"}], ",", 
        RowBox[{"t0", "\[Rule]", "458.57378425087586`"}], ",", 
        RowBox[{"T0", "\[Rule]", "15.750795230720872`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "45.21735156993479`"}], ",", 
        RowBox[{"t0", "\[Rule]", "24.047094906119916`"}], ",", 
        RowBox[{"T0", "\[Rule]", "16.82590852901284`"}]}], "}"}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "41.09428432258933`"}], ",", 
        RowBox[{"t0", "\[Rule]", "323.34302938821287`"}], ",", 
        RowBox[{"T0", "\[Rule]", "7.356566203186968`"}]}], "}"}]}], 
     "}"}]}], ";"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795097199251086*^9, 3.7950972370732307`*^9}, {
   3.7950972907795677`*^9, 3.7950973232748337`*^9}, {
   3.79509757133066*^9, 3.795097590553529*^9}, 3.795097637399757*^9, {
   3.7950978197592897`*^9, 3.7950978915640497`*^9}, {
   3.7950994834408703`*^9, 3.7950995203199997`*^9}, 
   3.817327209122573*^9},
 CellID->1019166296],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"FastOnFits", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"FindFit", "[", 
        RowBox[{"#", ",", 
         RowBox[{"A", " ", 
          RowBox[{"LogisticPeakRev", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], "]"}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"A", ",", 
             RowBox[{"2", 
              RowBox[{"Max", "[", "#", "]"}]}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"t0", ",", "450"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"T0", ",", "15"}], "}"}]}], "}"}], ",", "t"}], 
        "]"}], "&"}], "/@", "ArthropodFastOn"}], "]"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FastOnFits", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "442.8288175904017`"}], ",", 
        RowBox[{"t0", "\[Rule]", "421.93409507423394`"}], ",", 
        RowBox[{"T0", "\[Rule]", "14.807801272911309`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "719.0256810253618`"}], ",", 
        RowBox[{"t0", "\[Rule]", "480.2193243575722`"}], ",", 
        RowBox[{"T0", "\[Rule]", "18.985751626633594`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "52.90745917389072`"}], ",", 
        RowBox[{"t0", "\[Rule]", "594.0434890656691`"}], ",", 
        RowBox[{"T0", "\[Rule]", "25.31651902980542`"}]}], "}"}]}], 
     "}"}]}], ";"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950059714932117`*^9, 3.7950059796823883`*^9}, {
   3.7950068149069777`*^9, 3.795006841802984*^9}, 
   3.7950070163420277`*^9, 3.79501030979758*^9, {3.795010379640308*^9,
    3.79501038322007*^9}, 3.795012799204274*^9, {3.795095812056405*^9,
    3.7950958344974117`*^9}, {3.795193815530796*^9, 
   3.7951938180727367`*^9}, 3.817327209122607*^9},
 CellID->1346805715],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"NLFitMods", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Quiet", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"NonlinearModelFit", "[", 
           RowBox[{"#", ",", 
            RowBox[{"A", " ", 
             RowBox[{"LogisticPeakRev", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", "t0"}], ")"}], "/", "T0"}], "]"}]}],
             ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"A", ",", 
                RowBox[{"Max", "[", "#", "]"}]}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{"t0", ",", "150"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"T0", ",", "25"}], "}"}]}], "}"}], ",", "t", 
            ",", 
            RowBox[{"ConfidenceLevel", "\[Rule]", ".997"}]}], "]"}], 
          "&"}], "/@", "ArthropodSlowOn"}], "]"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
        "#", "[", "\"\<ParameterConfidenceIntervals\>\"", "]"}], "[", 
        
        RowBox[{"[", "3", "]"}], "]"}]}], "&"}], "/@", 
     "NLFitMods"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"SlowOnFits", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"FindFit", "[", 
        RowBox[{"#", ",", 
         RowBox[{"A", " ", 
          RowBox[{"LogisticPeakRev", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"t", "+", "t0"}], ")"}], "/", "T0"}], "]"}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"A", ",", 
             RowBox[{"Max", "[", "#", "]"}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"t0", ",", "150"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"T0", ",", "25"}], "}"}]}], "}"}], ",", "t"}], 
        "]"}], "&"}], "/@", "ArthropodSlowOn"}], "]"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"SlowOnFits", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "197.8367161912211`"}], ",", 
        RowBox[{"t0", "\[Rule]", "208.1282526135983`"}], ",", 
        RowBox[{"T0", "\[Rule]", "28.581597054974825`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "495.4464409548776`"}], ",", 
        RowBox[{"t0", "\[Rule]", "151.24750146595204`"}], ",", 
        RowBox[{"T0", "\[Rule]", "24.370205900739823`"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "752.5465341472163`"}], ",", 
        RowBox[{"t0", "\[Rule]", "111.99078345786754`"}], ",", 
        RowBox[{"T0", "\[Rule]", "23.916559303931134`"}]}], "}"}]}], 
     "}"}]}], ";"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795006005165492*^9, 3.795006027681378*^9}, {
   3.795006615294427*^9, 3.795006674030652*^9}, {3.795006877167715*^9,
    3.7950068904772673`*^9}, 3.7950070140936737`*^9, 
   3.795012804733078*^9, {3.795086590429723*^9, 
   3.7950866222720757`*^9}, {3.795086653674178*^9, 
   3.795086764483061*^9}, 3.817327209122643*^9},
 CellID->1894242735],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"CovidFit", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"FindFit", "[", 
      RowBox[{"ChinaCOVIDCasesCut", ",", 
       RowBox[{"A", " ", 
        RowBox[{"LogisticPeakRev", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"A", ",", 
           RowBox[{"Max", "[", "ChinaCOVIDCasesCut", "]"}]}], "}"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"t0", ",", "200"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"T0", ",", "6"}], "}"}]}], "}"}], ",", "t"}], "]"}],
      "]"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CovidFit", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"A", "\[Rule]", "12945.331469512468`"}], ",", 
      RowBox[{"t0", "\[Rule]", "117.74376373748736`"}], ",", 
      RowBox[{"T0", "\[Rule]", "5.182514508087864`"}]}], "}"}]}], 
   ";"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795006961423251*^9, 3.7950070117957363`*^9}, 
   3.795012809492723*^9, 3.8173272091226788`*^9},
 CellID->1111466399],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"LogisticOverlap", "[", 
     RowBox[{"dat_", ",", "fitFun_"}], "]"}], ":=", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"off", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"dat", ",", 
            RowBox[{"Max", "[", "dat", "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"fitFun", ",", 
            RowBox[{"Max", "[", "fitFun", "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"off", "<", "0"}], ",", "0", ",", 
        RowBox[{"Dot", "[", 
         RowBox[{
          RowBox[{"Normalize", "@", "fitFun"}], ",", 
          RowBox[{"PadRight", "[", 
           RowBox[{
            RowBox[{"Normalize", "@", 
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"1", "+", "off"}], ";;", 
                RowBox[{"-", "1"}]}], "]"}], "]"}]}], ",", "15"}], 
           " ", "]"}]}], "]"}]}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MaxOverlap", "[", 
     RowBox[{"data_", ",", "onset_", ",", "bin_", ",", "fitFun_"}], 
     "]"}], ":=", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vals", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"LogisticOverlap", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Total", "/@", 
             RowBox[{"Partition", "[", 
              RowBox[{
               RowBox[{"data", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"onset", "+", "#"}], ";;", 
                  RowBox[{"-", "1"}]}], "]"}], "]"}], " ", ",", 
               "bin"}], "]"}]}], ",", "fitFun"}], " ", "]"}], "&"}], "/@", 
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"-", "bin"}], ",", "bin"}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "-", "1", "-", "bin"}], ",", 
          RowBox[{"vals", "[", 
           RowBox[{"[", "#", "]"}], "]"}]}], "}"}], "&"}], "@", 
       RowBox[{
        RowBox[{"Position", "[", 
         RowBox[{"vals", ",", 
          RowBox[{"Max", "[", "vals", "]"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "dat", "}"}], ",", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"#", ",", 
               RowBox[{"MaxOverlap", "[", 
                RowBox[{
                "dat", ",", "150", ",", "#", ",", "LogisticPRev"}], 
                "]"}]}], "}"}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "30", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/@", 
     "PapilioDiffs"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "dat", "}"}], ",", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"#", ",", 
               RowBox[{"MaxOverlap", "[", 
                RowBox[{
                "dat", ",", "100", ",", "#", ",", "LogisticPRev"}], 
                "]"}]}], "}"}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "30", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/@", 
     RowBox[{"TibicenMixed", "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "dat", "}"}], ",", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"#", ",", 
               RowBox[{"MaxOverlap", "[", 
                RowBox[{
                 RowBox[{"Reverse", "@", "dat"}], ",", 
                 RowBox[{"1", "+", "#"}], ",", "#", ",", 
                 "LogisticPRev"}], "]"}]}], "}"}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "30", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/@", 
     RowBox[{"TibicenMixed", "[", 
      RowBox[{"[", 
       RowBox[{"{", "2", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "dat", "}"}], ",", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"#", ",", 
               RowBox[{"MaxOverlap", "[", 
                RowBox[{
                "dat", ",", "100", ",", "#", ",", "LogisticPRev"}], 
                "]"}]}], "}"}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "30", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/@", 
     "ArthropodFastOn"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "dat", "}"}], ",", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"#", ",", 
               RowBox[{"MaxOverlap", "[", 
                RowBox[{
                 RowBox[{"Reverse", "@", "dat"}], ",", 
                 RowBox[{"1", "+", "#"}], ",", "#", ",", 
                 "LogisticPRev"}], "]"}]}], "}"}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "30", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/@", 
     "ArthropodSlowOn"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "dat", "}"}], ",", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"#", ",", 
               RowBox[{"MaxOverlap", "[", 
                RowBox[{
                "dat", ",", "10", ",", "#", ",", "LogisticPRev"}], 
                "]"}]}], "}"}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "6", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "@", 
     RowBox[{"ChinaCOVIDCasesCut", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}]}], "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795012877132949*^9, 3.79501288967377*^9}, 
   3.795015934323289*^9, {3.7950960207647552`*^9, 
   3.7950960669451647`*^9}, {3.795096272047555*^9, 
   3.7950962733717823`*^9}, {3.795097935974867*^9, 
   3.7950979902151747`*^9}, {3.795099918156876*^9, 
   3.7950999217253027`*^9}, 3.817327209122711*^9},
 CellID->773104671],

Cell[BoxData[
 RowBox[{
  RowBox[{"ChinaDiscreteFit", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"10", "-", "1", "+", 
       RowBox[{"(", 
        RowBox[{"5", 
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"1", "/", "2"}], "+", 
           RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"1", "/", "5"}], " ", "LogisticPRev", " ", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"ChinaCOVIDCasesCut", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", 
        RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{
  3.795012963385274*^9, {3.79501304231399*^9, 
   3.7950130424947557`*^9}, {3.795095938685215*^9, 
   3.795095995380403*^9}, 3.795197569783568*^9, 3.817327209122746*^9},
 
 CellID->779914116],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"AnomalousDiscreteFits", "=", 
    RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"10", "+", "#3", "+", 
           RowBox[{"(", 
            RowBox[{"#1", 
             RowBox[{"(", 
              RowBox[{"#2", "-", 
               RowBox[{"1", "/", "2"}], "+", 
               RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}], 
          ",", 
          RowBox[{
           RowBox[{"1", "/", "#1"}], " ", "LogisticPRev", " ", 
           RowBox[{"#4", "/", 
            RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}], 
        "]"}], "&"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"25", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"5", " ", 
           RowBox[{"Total", "[", 
            RowBox[{"ArthropodFastOn", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "All", ",", "2"}], "]"}], "]"}], 
            "]"}]}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"ChinaCOVIDCasesCut", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], 
         "}"}]}], "}"}]}], "]"}]}], ";"}], "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795096089394293*^9, 3.795096098242917*^9}, {
   3.795096129451172*^9, 3.7950961319771442`*^9}, 
   3.795197571086835*^9, 3.8173272091227818`*^9},
 CellID->450493184],

Cell[BoxData[
 RowBox[{
  RowBox[{"PapilioDiscreteFits", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"150", "+", "#3", "+", 
          RowBox[{"(", 
           RowBox[{"#1", 
            RowBox[{"(", 
             RowBox[{"#2", "-", 
              RowBox[{"1", "/", "2"}], "+", 
              RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}], 
         ",", 
         RowBox[{
          RowBox[{"1", "/", "#1"}], " ", "LogisticPRev", " ", 
          RowBox[{"#4", "/", 
           RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}], 
       "]"}], "&"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"11", ",", "20", ",", "13", ",", "17"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "8"}], ",", 
         RowBox[{"-", "10"}], ",", 
         RowBox[{"-", "7"}], ",", 
         RowBox[{"-", "15"}]}], "}"}], ",", 
       RowBox[{"Total", "/@", "PapilioDiffs"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795012667664947*^9, 3.795012684891247*^9}, {
   3.795014230158945*^9, 3.795014260963529*^9}, 
   3.7951975722455463`*^9, 3.817327209122816*^9},
 CellID->1947695340],

Cell[BoxData[
 RowBox[{
  RowBox[{"FastOnDiscreteFits", "=", 
   RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"100", "+", "#3", "+", 
          RowBox[{"(", 
           RowBox[{"#1", 
            RowBox[{"(", 
             RowBox[{"#2", "-", 
              RowBox[{"1", "/", "2"}], "+", 
              RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}], 
         ",", 
         RowBox[{
          RowBox[{"1", "/", "#1"}], " ", "LogisticPRev", " ", 
          RowBox[{"#4", "/", 
           RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}], 
       "]"}], "&"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"15", ",", "19", ",", "27"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "20"}]}], "}"}], ",", 
       RowBox[{"Total", "/@", "ArthropodFastOn"}]}], "}"}]}], "]"}]}],
   ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950129473217573`*^9, 3.795013004780819*^9}, {
   3.7950142394800673`*^9, 3.7950142745194902`*^9}, {
   3.7950961371746597`*^9, 3.795096164022977*^9}, 
   3.795197573359487*^9, 3.817327209122847*^9},
 CellID->1537886419],

Cell[BoxData[
 RowBox[{
  RowBox[{"TibicenDiscreteFits", "=", 
   RowBox[{"Riffle", "[", 
    RowBox[{
     RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"100", "+", "#3", "+", 
            RowBox[{"(", 
             RowBox[{"#1", 
              RowBox[{"(", 
               RowBox[{"#2", "-", 
                RowBox[{"1", "/", "2"}], "+", 
                RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}],
            ",", 
           RowBox[{
            RowBox[{"1", "/", "#1"}], " ", "LogisticPRev", " ", 
            RowBox[{"#4", "/", 
             RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}],
          "]"}], "&"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"16", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "13"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "6"}], ",", 
           RowBox[{"-", "6"}]}], "}"}], ",", 
         RowBox[{"Total", "/@", 
          RowBox[{"TibicenMixed", "[", 
           RowBox[{"[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], "]"}], "]"}]}]}], 
        "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"365", "-", "#3", "-", 
            RowBox[{"(", 
             RowBox[{"#1", 
              RowBox[{"(", 
               RowBox[{"#2", "-", 
                RowBox[{"1", "/", "2"}], "+", 
                RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}],
            ",", 
           RowBox[{
            RowBox[{"1", "/", "#1"}], " ", "LogisticPRev", " ", 
            RowBox[{"#4", "/", 
             RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}],
          "]"}], "&"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "17", "}"}], ",", 
         RowBox[{"{", "4", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"-", "1"}], "}"}], ",", 
         RowBox[{"Total", "/@", 
          RowBox[{"TibicenMixed", "[", 
           RowBox[{"[", 
            RowBox[{"{", "2", "}"}], "]"}], "]"}]}]}], "}"}]}], 
      "]"}]}], "]"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.79509801253026*^9, 3.795098111015614*^9}, {
   3.795098175582*^9, 3.795098424490117*^9}, {3.795098463696175*^9, 
   3.7950985014690323`*^9}, {3.795098532822894*^9, 
   3.795098588941739*^9}, {3.795098635802442*^9, 
   3.795098661630291*^9}, {3.795098704972988*^9, 
   3.795098728949585*^9}, {3.795197574315811*^9, 
   3.7951975753732653`*^9}, 3.817327209122883*^9},
 CellID->221982620],

Cell[BoxData[
 RowBox[{
  RowBox[{"SlowOnDiscreteFits", "=", 
   RowBox[{"MapThread", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"365", "-", "#3", "-", 
          RowBox[{"(", 
           RowBox[{"#1", 
            RowBox[{"(", 
             RowBox[{"#2", "-", 
              RowBox[{"1", "/", "2"}], "+", 
              RowBox[{"Range", "[", "15", "]"}]}], ")"}]}], ")"}]}], 
         ",", 
         RowBox[{
          RowBox[{"1", "/", "#1"}], " ", "LogisticPRev", " ", 
          RowBox[{"#4", "/", 
           RowBox[{"Total", "[", "LogisticPRev", "]"}]}]}]}], "}"}], 
       "]"}], "&"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"29", ",", "26", ",", "25"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "4"}], ",", 
         RowBox[{"-", "7"}], ",", 
         RowBox[{"-", "10"}]}], "}"}], ",", 
       RowBox[{"Total", "/@", "ArthropodSlowOn"}]}], "}"}]}], "]"}]}],
   ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795013026411936*^9, 3.7950130540891*^9}, {
   3.79501425164435*^9, 3.795014269607236*^9}, 3.795197576396983*^9, 
   3.81732720912292*^9},
 CellID->320507511],

Cell[BoxData[
 RowBox[{
  RowBox[{"names", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<Papilio glaucus\>\"", ",", "\"\<Papilio polyxenes\>\"", 
       ",", "\"\<Papilio troilus\>\"", ",", 
       "\"\<Papilio cresphontes\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Neotibicen tibicen\>\"", ",", 
       "\"\<Neotibicen pruinosus\>\"", ",", 
       "\"\<Neotibicen lyricen\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Popillia japonica\>\"", ",", "\"\<Libellula Luctuosa\>\"", 
       ",", "\"\<Pterophylla camellifolia\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Limenitis archippus\>\"", ",", 
       "\"\<Limenitis arthemis\>\"", ",", 
       "\"\<Bombus impatiens\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", "\"\<new cases (China)\>\"", "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.795013735432055*^9, 3.795013818232411*^9}, {
   3.795013851615591*^9, 3.795013953257883*^9}, {3.795014429727792*^9,
    3.795014466962564*^9}, {3.7950145482177887`*^9, 
   3.79501456715652*^9}, {3.795098739196883*^9, 
   3.795098789060813*^9}, {3.795193858859123*^9, 
   3.795193890624227*^9}, {3.795194322233012*^9, 
   3.7951943245719337`*^9}, 3.817327209122952*^9},
 CellID->1294005005],

Cell[BoxData[
 RowBox[{
  RowBox[{"OverlapAccuracy", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"ToString", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "99.7", ",", "\"\<99.0\>\"", ",", "99.8", ",", "99.7"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"99.2", ",", "99.5", ",", "99.1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"99.9", ",", "99.7", ",", "99.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"99.8", ",", "99.8", ",", "99.4"}], "}"}], ",", 
       RowBox[{"{", "99.2", "}"}]}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950160724330883`*^9, 3.795016107119835*^9}, {
   3.795016146845867*^9, 3.795016169968295*^9}, 
   3.7950164742375517`*^9, 3.795016527395281*^9, 
   3.795096182628683*^9, {3.795096239094738*^9, 
   3.79509624092773*^9}, {3.7950963110029297`*^9, 
   3.795096317111319*^9}, {3.795098825302713*^9, 
   3.795098856834055*^9}, {3.795121004162929*^9, 
   3.7951210289386377`*^9}, {3.7951210678556757`*^9, 
   3.79512107284674*^9}, {3.7951211771276407`*^9, 
   3.795121187282629*^9}, {3.795121311816805*^9, 
   3.7951213130823517`*^9}, 3.795193898746862*^9, 
   3.817327209122991*^9},
 CellID->1077422722],

Cell[BoxData[
 RowBox[{
  RowBox[{"BinWidths", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11", ",", "20", ",", "13", ",", "17"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16", ",", "17", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15", ",", "19", ",", "27"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"29", ",", "26", ",", "25"}], "}"}], ",", 
     RowBox[{"{", "5", "}"}]}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950160724330883`*^9, 3.795016107119835*^9}, {
   3.795016146845867*^9, 3.795016169968295*^9}, 
   3.7950164742375517`*^9, 3.795016527395281*^9, 
   3.795096182628683*^9, {3.795096239094738*^9, 
   3.79509624092773*^9}, {3.7950963110029297`*^9, 
   3.795096317111319*^9}, {3.795098825302713*^9, 
   3.795098856834055*^9}, {3.795121004162929*^9, 
   3.7951210289386377`*^9}, {3.7951210678556757`*^9, 
   3.79512107284674*^9}, {3.7951211771276407`*^9, 
   3.795121187282629*^9}, {3.795121311816805*^9, 
   3.7951213130823517`*^9}, {3.795193898746862*^9, 
   3.795193901649184*^9}, 3.817327209123023*^9},
 CellID->1650255942],

Cell[BoxData[
 RowBox[{
  RowBox[{"PeakDay", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ToString", "[", 
       RowBox[{"Round", "@", 
        RowBox[{
         RowBox[{"Cases", "[", 
          RowBox[{"#", ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x_", ",", 
              RowBox[{"Max", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], 
             "}"}], "\[RuleDelayed]", "x"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "PapilioDiscreteFits", ",", "\[IndentingNewLine]", 
       "TibicenDiscreteFits", ",", "FastOnDiscreteFits", ",", 
       "SlowOnDiscreteFits", ",", 
       RowBox[{"{", "ChinaDiscreteFit", "}"}]}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.7950160724330883`*^9, 3.795016107119835*^9}, {
   3.795016146845867*^9, 3.795016169968295*^9}, 
   3.7950164742375517`*^9, 3.795016527395281*^9, 
   3.795096182628683*^9, {3.795096239094738*^9, 
   3.79509624092773*^9}, {3.7950963110029297`*^9, 
   3.795096317111319*^9}, {3.795098825302713*^9, 
   3.795098856834055*^9}, {3.795121004162929*^9, 
   3.7951210289386377`*^9}, {3.7951210678556757`*^9, 
   3.79512107284674*^9}, {3.7951211771276407`*^9, 
   3.795121187282629*^9}, {3.795121311816805*^9, 
   3.7951213130823517`*^9}, {3.795193898746862*^9, 
   3.795193901649184*^9}, 3.8173272091230516`*^9},
 CellID->1100316189],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"Or", "[", 
       RowBox[{
        RowBox[{"And", "[", 
         RowBox[{
          RowBox[{"group", ">", "1"}], ",", 
          RowBox[{"ind", ">", "3"}]}], "]"}], ",", 
        RowBox[{"group", "\[Equal]", "5"}]}], "]"}], ",", 
      RowBox[{"ind", "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", 
    
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Quiet", "@", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"ListLinePlot", "[", 
            RowBox[{
             RowBox[{"Switch", "[", 
              RowBox[{"group", ",", "\[IndentingNewLine]", "1", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"PapilioDiffs", "[", 
                  RowBox[{"[", "ind", "]"}], "]"}], ",", 
                 RowBox[{"MarcellusData", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"4", ",", "3", ",", "1", ",", 
                    RowBox[{"2", "/", "3"}]}], "}"}], "[", 
                   RowBox[{"[", "ind", "]"}], "]"}]}], ",", 
                 RowBox[{"PapilioFastOn", "[", 
                  RowBox[{"[", "ind", "]"}], "]"}]}], "}"}], ",", 
               "\[IndentingNewLine]", "2", ",", 
               RowBox[{"TibicenMixed", "[", 
                RowBox[{"[", "ind", "]"}], "]"}], ",", 
               "\[IndentingNewLine]", "3", ",", 
               RowBox[{"ArthropodFastOn", "[", 
                RowBox[{"[", "ind", "]"}], "]"}], ",", 
               "\[IndentingNewLine]", "4", ",", 
               RowBox[{"ArthropodSlowOn", "[", 
                RowBox[{"[", "ind", "]"}], "]"}], ",", 
               "\[IndentingNewLine]", "5", ",", 
               "ChinaCOVIDCasesCut"}], "\[IndentingNewLine]", "]"}], 
             ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Darker", "@", "Yellow"}], ",", 
                RowBox[{"Lighter", "@", "Gray"}], ",", 
                RowBox[{"Darker", "@", "Green"}]}], "}"}]}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\<day\>\"", ",", "\"\<number observed\>\""}], 
               "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Switch", "[", 
              RowBox[{"group", ",", "\[IndentingNewLine]", "1", ",", 
               RowBox[{
                RowBox[{"A", " ", 
                 RowBox[{"LogisticPeakRev", "[", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], 
                  "]"}]}], "/.", 
                RowBox[{"PapilioFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", "2", ",", 
               RowBox[{"Switch", "[", 
                RowBox[{"ind", ",", "\[IndentingNewLine]", 
                 RowBox[{"1", "|", "3"}], ",", " ", 
                 RowBox[{
                  RowBox[{"A", " ", 
                   RowBox[{"LogisticPeakRev", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], 
                    "]"}]}], "/.", 
                  RowBox[{"TibicenFits", "[", 
                   RowBox[{"[", "ind", "]"}], "]"}]}], ",", 
                 "\[IndentingNewLine]", "2", ",", " ", 
                 RowBox[{
                  RowBox[{"A", " ", 
                   RowBox[{"LogisticPeakRev", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"t0", "+", "t"}], ")"}], "/", "T0"}], 
                    "]"}]}], "/.", 
                  RowBox[{"TibicenFits", "[", 
                   RowBox[{"[", "ind", "]"}], "]"}]}]}], "]"}], ",", 
               "\[IndentingNewLine]", "3", ",", 
               RowBox[{
                RowBox[{"A", " ", 
                 RowBox[{"LogisticPeakRev", "[", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], 
                  "]"}]}], "/.", 
                RowBox[{"FastOnFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", "4", ",", 
               RowBox[{
                RowBox[{"A", " ", 
                 RowBox[{"LogisticPeakRev", "[", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"t", "+", "t0"}], ")"}], "/", "T0"}], 
                  "]"}]}], "/.", 
                RowBox[{"SlowOnFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", "5", ",", 
               RowBox[{
                RowBox[{"A", " ", 
                 RowBox[{"LogisticPeakRev", "[", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"t0", "-", "t"}], ")"}], "/", "T0"}], 
                  "]"}]}], "/.", "CovidFit"}]}], 
              "\[IndentingNewLine]", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "365"}], "}"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
                RowBox[{"Darker", "@", "Blue"}]}], "]"}]}]}], "]"}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"ListPlot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Switch", "[", 
               RowBox[{
               "group", ",", "\[IndentingNewLine]", "1", ",", 
                RowBox[{"PapilioDiscreteFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}], ",", 
                "\[IndentingNewLine]", "2", ",", 
                RowBox[{"TibicenDiscreteFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}], ",", 
                "\[IndentingNewLine]", "3", ",", 
                RowBox[{"FastOnDiscreteFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}], ",", 
                "\[IndentingNewLine]", "4", ",", 
                RowBox[{"SlowOnDiscreteFits", "[", 
                 RowBox[{"[", "ind", "]"}], "]"}], ",", 
                "\[IndentingNewLine]", "5", ",", "ChinaDiscreteFit"}],
                "]"}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"Directive", "[", 
               RowBox[{"Red", ",", 
                RowBox[{"PointSize", "[", "0.02", "]"}]}], "]"}]}]}], 
            "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"group", "\[Equal]", "5"}], ",", "100", ",",
                   "365"}], "]"}]}], "}"}], ",", "All"}], "}"}]}], 
           ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"460", ",", "287"}], "}"}]}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"group", "\[Equal]", "1"}], ",", 
          RowBox[{
          "Text", "@", 
           "\"\<gray: baseline, green: observations, yellow: fit \
data, red/blue: fit\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "Text", "@", 
           "\"\<green: observations/fit data, red/blue: fit\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Text", "@", 
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<maximum outbreak on day \>\"", ",", 
            RowBox[{"PeakDay", "[", 
             RowBox[{"[", 
              RowBox[{"group", ",", "ind"}], "]"}], "]"}]}], "}"}], 
          "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"Text", "@", 
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<99.7% duration of \>\"", ",", 
            RowBox[{"ToString", "[", 
             RowBox[{"11", "*", 
              RowBox[{"BinWidths", "[", 
               RowBox[{"[", 
                RowBox[{"group", ",", "ind"}], "]"}], "]"}]}], "]"}], 
            ",", "\"\< days\>\""}], "}"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Text", "@", 
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<(in 11 intervals of \>\"", ",", 
            RowBox[{"ToString", "[", 
             RowBox[{"BinWidths", "[", 
              RowBox[{"[", 
               RowBox[{"group", ",", "ind"}], "]"}], "]"}], "]"}], 
            ",", "\"\< days)\>\""}], "}"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Text", "@", 
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<data/theory overlap of \>\"", ",", 
            RowBox[{"OverlapAccuracy", "[", 
             RowBox[{"[", 
              RowBox[{"group", ",", "ind"}], "]"}], "]"}], ",", 
            "\"\<%\>\""}], "}"}], "]"}]}]}], "\[IndentingNewLine]", 
       "}"}], ",", 
      RowBox[{"Alignment", "\[Rule]", "Center"}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"group", ",", "1", ",", "\"\<Group\>\""}], "}"}], ",", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Rule", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", "5", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Papilio\>\"", ",", "\"\<Neotibicen\>\"", ",", 
           "\"\<quick emergence\>\"", ",", "\"\<slow emergence\>\"", 
           ",", "\"\<COVID-19\>\""}], "}"}]}], "}"}]}], "]"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ind", ",", "1", ",", "\"\<species\>\""}], "}"}], ",", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Rule", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"Length", "[", 
           RowBox[{"names", "[", 
            RowBox[{"[", "group", "]"}], "]"}], " ", "]"}], "]"}], 
         ",", 
         RowBox[{"names", "[", 
          RowBox[{"[", "group", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ContentSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"600", ",", " ", "460"}], "}"}]}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Center"}], ",", " ", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Top"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.795013090075816*^9, 3.795013282284561*^9}, {
   3.795013316004242*^9, 3.795013416553234*^9}, {
   3.7950134731985683`*^9, 3.795013519957859*^9}, {
   3.795013551365514*^9, 3.795013643058426*^9}, {
   3.7950136840046377`*^9, 3.7950136910815363`*^9}, {
   3.795013962216133*^9, 3.795014000134411*^9}, {3.795014037821081*^9,
    3.795014091346135*^9}, {3.79501412823625*^9, 
   3.795014130956691*^9}, {3.7950143043814497`*^9, 
   3.795014421907609*^9}, {3.795014477296647*^9, 
   3.795014538423299*^9}, {3.795014584944962*^9, 
   3.795014593275653*^9}, 3.79501462768814*^9, {3.795014677792444*^9, 
   3.795014678102006*^9}, {3.7950147404790087`*^9, 
   3.795014901287332*^9}, {3.7950149636458473`*^9, 
   3.795014970192512*^9}, {3.79501501379008*^9, 
   3.795015021161607*^9}, {3.795015436780513*^9, 
   3.79501548452497*^9}, {3.795015529068511*^9, 
   3.795015593665742*^9}, {3.7950156961405*^9, 
   3.795015755689104*^9}, {3.795015850385612*^9, 
   3.7950158527832003`*^9}, {3.795016568544592*^9, 
   3.7950166011791697`*^9}, {3.795016633556616*^9, 
   3.795016726372525*^9}, {3.795016756384107*^9, 
   3.7950168164064093`*^9}, {3.795017000558879*^9, 
   3.795017137554614*^9}, {3.795017292439807*^9, 
   3.79501731424094*^9}, {3.795019938289443*^9, 
   3.795019954488895*^9}, {3.795020034525223*^9, 
   3.795020090557067*^9}, {3.7950201207481127`*^9, 
   3.7950202355849543`*^9}, {3.795020287503229*^9, 
   3.795020330806035*^9}, {3.795082867793457*^9, 
   3.795082868365896*^9}, {3.7950829170336227`*^9, 
   3.795082925210012*^9}, {3.795083107416444*^9, 
   3.795083115464867*^9}, {3.795098889439816*^9, 
   3.7950990550278187`*^9}, {3.795099124993919*^9, 
   3.7950991483392982`*^9}, {3.7950997142114763`*^9, 
   3.795099764041389*^9}, {3.795121077068101*^9, 
   3.795121088298027*^9}, {3.795121144923007*^9, 
   3.795121147239233*^9}, {3.795121202618265*^9, 
   3.795121206788536*^9}, 3.795128346792921*^9, {
   3.7951793693988595`*^9, 3.7951793743905797`*^9}, {
   3.7951794121075234`*^9, 3.795179413716758*^9}, 
   3.795193914533718*^9, {3.795193968577241*^9, 
   3.795194007333706*^9}, {3.795194079256497*^9, 
   3.795194214345478*^9}, {3.795194365580615*^9, 
   3.795194368729473*^9}, {3.7951944006811943`*^9, 
   3.7951944013208647`*^9}, {3.795194585734148*^9, 
   3.7951945913008537`*^9}, {3.795194621519023*^9, 
   3.795194628706745*^9}, {3.795198250282393*^9, 
   3.795198256984795*^9}, 3.817327209116633*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`group$$ = 1, $CellContext`ind$$ = 1,
     Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`group$$], 1, "Group"}, {
      1 -> "Papilio", 2 -> "Neotibicen", 3 -> "quick emergence", 4 -> 
       "slow emergence", 5 -> "COVID-19"}}, {{
       Hold[$CellContext`ind$$], 1, "species"}, 
      Dynamic[
       MapThread[Rule, {
         Range[
          Length[
           Part[$CellContext`names, $CellContext`group$$]]], 
         Part[$CellContext`names, $CellContext`group$$]}]]}}, 
    Typeset`size$$ = {460., {204.134033203125, 209.865966796875}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     False, $CellContext`group$5977$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`group$$ = 1, $CellContext`ind$$ = 
        1}, "ControllerVariables" :> {
        Hold[$CellContext`group$$, $CellContext`group$5977$$, False]},
       "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> (If[
         Or[
          
          And[$CellContext`group$$ > 1, $CellContext`ind$$ > 
           3], $CellContext`group$$ == 5], $CellContext`ind$$ = 1]; 
       Column[{
          Quiet[
           Show[
            ListLinePlot[
             Switch[$CellContext`group$$, 1, {
               
               Part[$CellContext`PapilioDiffs, $CellContext`ind$$], \
$CellContext`MarcellusData Part[{4, 3, 1, 2/3}, $CellContext`ind$$], 
               Part[$CellContext`PapilioFastOn, $CellContext`ind$$]}, 
              2, 
              Part[$CellContext`TibicenMixed, $CellContext`ind$$], 3, 
              
              Part[$CellContext`ArthropodFastOn, $CellContext`ind$$], 
              4, 
              Part[$CellContext`ArthropodSlowOn, $CellContext`ind$$], 
              5, $CellContext`ChinaCOVIDCasesCut], PlotStyle -> {
               Darker[Yellow], 
               Lighter[Gray], 
               Darker[Green]}, PlotRange -> All, 
             AxesLabel -> {"day", "number observed"}], 
            Plot[
             Switch[$CellContext`group$$, 1, 
              
              ReplaceAll[$CellContext`A \
$CellContext`LogisticPeakRev[($CellContext`t0 - \
$CellContext`t)/$CellContext`T0], 
               Part[$CellContext`PapilioFits, $CellContext`ind$$]], 2, 
              Switch[$CellContext`ind$$, 
               Alternatives[1, 3], 
               
               ReplaceAll[$CellContext`A \
$CellContext`LogisticPeakRev[($CellContext`t0 - \
$CellContext`t)/$CellContext`T0], 
                Part[$CellContext`TibicenFits, $CellContext`ind$$]], 
               2, 
               
               ReplaceAll[$CellContext`A \
$CellContext`LogisticPeakRev[($CellContext`t0 + \
$CellContext`t)/$CellContext`T0], 
                Part[$CellContext`TibicenFits, $CellContext`ind$$]]], 
              3, 
              
              ReplaceAll[$CellContext`A \
$CellContext`LogisticPeakRev[($CellContext`t0 - \
$CellContext`t)/$CellContext`T0], 
               Part[$CellContext`FastOnFits, $CellContext`ind$$]], 4, 
              
              
              ReplaceAll[$CellContext`A \
$CellContext`LogisticPeakRev[($CellContext`t + \
$CellContext`t0)/$CellContext`T0], 
               Part[$CellContext`SlowOnFits, $CellContext`ind$$]], 5, 
              
              
              ReplaceAll[$CellContext`A \
$CellContext`LogisticPeakRev[($CellContext`t0 - \
$CellContext`t)/$CellContext`T0], $CellContext`CovidFit]], \
{$CellContext`t, 0, 365}, PlotRange -> All, PlotStyle -> Directive[
               Thickness[0.01], 
               Darker[Blue]]], 
            ListPlot[{
              Switch[$CellContext`group$$, 1, 
               
               Part[$CellContext`PapilioDiscreteFits, \
$CellContext`ind$$], 2, 
               
               Part[$CellContext`TibicenDiscreteFits, \
$CellContext`ind$$], 3, 
               
               Part[$CellContext`FastOnDiscreteFits, \
$CellContext`ind$$], 4, 
               
               Part[$CellContext`SlowOnDiscreteFits, \
$CellContext`ind$$], 5, $CellContext`ChinaDiscreteFit]}, PlotStyle -> 
             Directive[Red, 
               PointSize[0.02]]], PlotRange -> {{0, 
               If[$CellContext`group$$ == 5, 100, 365]}, All}, 
            ImageSize -> {460, 287}]], Null, 
          If[$CellContext`group$$ == 1, 
           Text[
           "gray: baseline, green: observations, yellow: fit data, \
red/blue: fit"], 
           Text["green: observations/fit data, red/blue: fit"]], 
          Text[
           Row[{"maximum outbreak on day ", 
             
             Part[$CellContext`PeakDay, $CellContext`group$$, \
$CellContext`ind$$]}]], 
          Text[
           Row[{"99.7% duration of ", 
             ToString[
             11 Part[$CellContext`BinWidths, $CellContext`group$$, \
$CellContext`ind$$]], " days"}]], 
          Text[
           Row[{"(in 11 intervals of ", 
             ToString[
              
              Part[$CellContext`BinWidths, $CellContext`group$$, \
$CellContext`ind$$]], " days)"}]], 
          Text[
           Row[{"data/theory overlap of ", 
             
             Part[$CellContext`OverlapAccuracy, $CellContext`group$$, \
$CellContext`ind$$], "%"}]]}, Alignment -> Center]), 
      "Specifications" :> {{{$CellContext`group$$, 1, "Group"}, {
         1 -> "Papilio", 2 -> "Neotibicen", 3 -> "quick emergence", 4 -> 
          "slow emergence", 5 -> "COVID-19"}}, {{$CellContext`ind$$, 
          1, "species"}, 
         Dynamic[
          MapThread[Rule, {
            Range[
             Length[
              Part[$CellContext`names, $CellContext`group$$]]], 
            Part[$CellContext`names, $CellContext`group$$]}]], 
         ControlType -> PopupMenu}}, 
      "Options" :> {
       ContentSize -> {600, 460}, Alignment -> Center, 
        ControlPlacement -> Top}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{614., {274., 279.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`PapilioDiffs = {CompressedData["
1:eJxtlM1LVFEYxu+9OU6TjWkf9h1GYJQWJUi0ClftjTbtsqhVKbURyTYtCv8L
29YqWxaIq4KERIKESmhREBWmYs5k3n4PPgcOtznwm+ec97zn433Pe+fo4NDA
7TRJklv8ZOh6nudIIluxZdbUfmk0Di2sL66r2/63wXzYL7Bin0WfUY/mgq/m
a7Y10f+DZlaxEcVRhlXb1vLNJi17j2Z0Cf0Out9P++oeX+2/7jXyfw+rPkfj
Zatsv6Atys8e2AkVkN83+O2z5L/b8zprP9oK2mMOttL/grY4Ls1/QufhAygv
JecnxLLFa95CO/0FdC9ahdw5WfM9l0zI83bfQ7HvoN/uc0t+w12gO7U5nrrP
094H7at9joFilL/iO+Wx8nqAfinyrzmv2xgrN6+gg/4P52rRcb5z3uX7Gmag
6lh131lQ7va5xpTrw45V9hNwBPqhC7odyyXogWG4B1dgCAZhBO7DXXgOL+Ez
PIFx5Vv1RcDz6GV0IN2cf6F6gnOMP6Jn0DJ0w7TqGt7AlOJUXVh1xiRMwFP7
zMJjeAaPYAxG4SE88P1kuwZX4YLtN+EG3PH9r8NZz12E885Vn9+n0/OyH4Lj
0AvK4WnFAB1+t5Ou06prpsX9VteJakc11+y3rrg2lW+984a/1cRvJbvqqOw1
YV57NvmMivuZ/XJ/t4nXZl5Xcz3krkXZ4/+pYAvrYlvsG4/D/qVoHFqa/L9/
0ZY18C/aGvWLrdF/6z9o2NjE
         "], CompressedData["
1:eJxdlNtPU0EQh88pbS0XwQoBhaCUAAlBCWCUqFxEjVyMhCiggTdeNCaKr/6h
BHzR18ZEiKJVuXj4/cK3cdOTfN3ZmdmZ2dntVra2n79PkyR5p5+cxn9ZliV8
ueT/l0b4k1uWwyeN/E2DyDMG24n886xLI7+wPiOvxyN8/2i8UFdTIarnVPpG
jS3oSpFPqN3rL5Lf+mPqLmE7Jbb1v4Rz/cX3BNk+9m8i7qHmx+Ba95G/Q5Ha
v4mQ2/Mf5MhYc8g+W0VNchM5qpJ3ifmV+uxXFp81/ySq2LM6+SdxE+L8FnOS
B4T34l5dZv+t7Nt6x74ancuo6BBtoisaXd8wPW4nzhD+oe/d+F9hjefe+4Ho
lFyEPLjOLurbo9cH9LLKedWwOccXelBG36dxh3s1wnk7n/fpfvSylx7Ryz5r
9KuC/4ToF3fEoLghpplfQ74tnol5+nkfvWPPseaBuC4einHxmJqce4U1L/Gd
ES/EGvpHyG/EgljC95XYEE+x2/aatR/FKn6LYll8YO0S83XxRLhPb9HNijHq
vitusq8FarknJtm/9Zvkc5xb9Mv7miLOOHdgmN5M0cdR+jdIfzvpl8/b96/M
PWlG79H/6UvJ+f1q53ya8U+xF7H5Pvq+tOBTQGffNvxKkS0Q3qbwVhWYWw5v
Uq5Ojt/AUhQjvDX5KGb4GiJ7kIM9zhF/8Tsbrw1vVZjb5wwv+0qw
         
         "], CompressedData["
1:eJyVlMlLw0AUh5O0NV3UahXqUgt1OwiCKCqiFUG8eBApXr3oWXvx7xbBpXYz
/h58g0Mo0j74OvP2yZs0jYd26zkMguDJfiSJJBhDXFwIJtE/+T+yhyP8obd3
vqG3hp4v8WqEXk2/buLlmGRTvSIvJoNu0pfNiKhrYv1tn+EsTu+wDsnp0buL
fYp91zuvi/9m7eBP6DlgNd32r/i/qN2j15v4JH/I2Qb0sXzX29X/IGbWm4eb
SVEU0CPmk6dekZyS5zdZFDnsMTVK5FmfCnnOtyTK+OfFNNg8svSfoYZ7rph+
MWfKUXvALPrEZXheq/eOHjOrCHuG+hE9FsQyNjtXlTOuiS1RFxtiW+yIBvsT
cSFuRZPYJrZr0Rb34ka0xKG4xPciHsWduBLn4kycot/ACXm74ph8ZzvCVuOs
e+IAasTUuR/zrXLGfbHJc1SIWWdd4a5WmUmFuCr6HHOqsJ8m3u3LzLTgvQM5
iFkL3EGe/RS+LO+AuzP3/kXefbv/Q4Ru9iD4exeDlO6v6e9SmLI58WPStnTc
JPZxZNLcUd/WX58SKUU=
         "], {
         1, (-2)/3, 1, 0, 1, 0, 0, 0, 1, 0, 0, (-2)/3, 2, 2, 1, 1, 
          0, (-2)/3, 0, 1, 2, 0, 0, (-1)/3, 0, 4/3, 0, 0, 0, 0, 
          1, (-2)/3, 4/3, 1/3, -2, 0, (-5)/3, 3, 2/3, 4/3, 4/3, 1, 16/
          3, 1, (-4)/3, 4/3, 0, (-1)/3, 2, 5/3, 8/3, (-2)/3, 17/3, 19/
          3, 6, 13/3, (-2)/3, 0, 11/3, 16/3, 16/3, 10/3, 2/3, 0, (-2)/
          3, 2/3, 1/3, 0, 10/3, -2, 8/3, 5/3, 1/3, 29/3, (-14)/3, 
          4, -2, 19/3, 2/3, (-1)/3, 16/3, 5/3, 4/3, (-5)/3, (-8)/3, 
          26/3, 11/3, 17/3, (-23)/3, (-4)/3, (-11)/3, (-7)/3, (-4)/3, 
          3, 11/3, 1, 11/3, 4, (-17)/3, (-29)/3, (-10)/3, (-10)/3, 5/
          3, 1/3, 5/3, (-23)/3, (-26)/3, (-4)/3, -2, 2/3, (-16)/
          3, (-8)/3, (-10)/3, -5, (-16)/3, -5, (-38)/3, -9, 11, (-2)/
          3, -2, (-1)/3, (-14)/3, (-5)/3, (-7)/3, (-11)/3, (-20)/
          3, (-4)/3, -2, (-2)/3, (-7)/3, (-4)/3, (-2)/3, (-2)/3, (-4)/
          3, 13/3, 1, -2, 13/3, 10/3, (-8)/3, 5/3, 7/3, 17/3, (-10)/
          3, (-13)/3, 3, 14/3, 17, 10/3, 4, (-2)/3, 13/3, 4/3, (-8)/3,
           14/3, 0, 11, 9, 4, (-13)/3, (-7)/3, 25/3, (-10)/3, 2/3, 
          7, -5, 2/3, (-7)/3, (-10)/3, -16, (-35)/3, 6, (-13)/3, 19/
          3, -12, 13/3, 19/3, 8/3, -10, 5, (-8)/3, 10/3, 5/3, (-14)/3,
           5/3, (-17)/3, 5/3, (-17)/3, 10, (-17)/3, 25/3, 11, 5/3, 41/
          3, 26/3, 15, 74/3, 43/3, 17, 58/3, 116/3, 85/3, 32/3, 19, 
          97/3, 24, 73/3, 52, 149/3, 28, 40, 41, 70/3, 35, 172/3, 151/
          3, 29, 27, 115/3, 101/3, 30, 62, 133/3, 125/3, 77/3, 136/3, 
          82/3, 88/3, 116/3, 182/3, 149/3, 109/3, 40, 133/3, 128/3, 
          89/3, 127/3, 103/3, 97/3, 39, 70/3, 50, 107/3, 133/3, 136/3,
           38, 98/3, 40/3, 92/3, 82/3, 28, 25, 74/3, 27, 85/3, 88/3, 
          89/3, 92/3, 61/3, 73/3, 67/3, 18, 67/3, 67/3, 82/3, 76/3, 
          59/3, 11, 59/3, 58/3, 49/3, 61/3, 41/3, 14, 12, 46/3, 70/3, 
          25/3, 20, 16, 11, 37/3, 28/3, 23/3, 17/3, 13, 4, 5, 5, 23/3,
           19/3, 5, 8/3, 11, 7, 2, 22/3, 3, 11/3, 6, 3, 6, 1, 7/3, 17/
          3, 13/3, 7/3, 7, 5, 1, 1, 3, 2, 4, 1, 3, 2, 1, 2, 3, 2, 0, 
          2, 3, 2, 2, 1, 1, 3, 1, 2, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 
          0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 3, 1, 0, 0, 1, 0, 2, 1/3, 0, 
          1, 2, 0}}, $CellContext`MarcellusData = CompressedData["
1:eJydUEtOxTAMrJ2PEydOk7ZpaR881AUX4ghvj7j/jqSAxBrLHsuWxvLM+fh8
f8AwDB8den0H/EH8nQDUoAcEaAtsOSBC6xoUatBoyZAibww58Z6D40AixjgJ
nILFiDavIbns9rX4UDjFVN9OT95xTiLOcjDEgX0UaRy3LGOJHPddcpim+7i9
yLLd6naU+2s95Jy53Oqay5rm43mcJW5biSH71dASpeYpVe/laZdopR0QZ4g4
OWTLqZDWVmwgrdq/WllUoI3RXVwDVE0m4I/ohoiXFV119+WaoFvxj7hIX2LH
DIE=
        "], $CellContext`PapilioFastOn = CompressedData["
1:eJylWFlrnVUU3bn35ibpzdCb3NsmaZMm1SYdbdomsUltTbS2Gq00lTq01k7i
VGodcEJF7IMgzkhf6psTIj4Igg+CCL4o+OqD+Bt8EvHZtfjW5uz75Sa0+MHi
THvvM+2z9jnf6LlLx54umFkJuNhixrx/Lbb0K+Ta8ulyX6GJbvxW0m+x5cfl
eY6/KLliyLcDrUAbUFZdSWW2VYAOoBtYpbqq8sRqyfQpXwMGgE5gENgAjCpl
/TAwBGwHJoApYAswpnQcWCP5G4GNkh1UeVSyu4BtwKRsMr8PmAFuU/uI2pg/
AOxUfo/qae8L4Lx02f8N0huR7Fb1530zXa96yu5Q6rI3A3uBg8B+4Cb1O6U+
7gYWgdMq3w7cApwCTgLHgHuBO4DDap8HngEOCZRfkH2WH5YOxzCndurcBZxV
227gOHBCMvMaw7PAUclcBF4EXgGeAz4GXgY+UPo58A3wPfAb8CXwFfA18B3w
B1CHw/2L9BfgT64pylPADuAKcBUYBFYDa4CTQBX4ELgAnAb+hl47HRf4yzL9
fcAo8Lts/wj8CvwDdKD+Z6Q/AN8CV4BPgZ8kexV4D3hec2P6ieZ3WXhDczwC
fAY8oD2Y0DrPaO/nJTOhvZ6WX3CfJ+UrG1SmH9PneSZ6LDs3vZadG5bXKs/z
1WXZOWxXHc9h2dL5ZMoz6+fUQb1OgXZKqm8LsmbpvBcs8UUx5CNPRT4p5uqi
bCy7/dZQ9q/FltrP1+X561o47Vq/OGYv5/vKzyk/T86Lc3IejW0lW7quzcqu
7/zqtorBvq+d76n7ANOK5Jinj3SprV22mNYs+ZT7h8t2C1XJ0T59kP46KKwR
+i3z0T6l9Nt1kqXueo2HnD8gnSHp1VSuyeZqyfdLdr3aWOaZ2SKsE6g7ovyA
2vpl/1bLziZ5jLw3I1s8mzyTe4WNskHdbcpTZr/qdkiOKbmR55U8yFgzKxly
OPmVZ57xg3zM2EJ+nVLdfskzJReMqzwr2YOWYs9OjWVa46ZdxoAxjWVGbUel
d1j1tEUun7MsHixK7ohkTik9Jr37LONzjv0hpa8CT1nG+We1hpR5EHhJa0mc
kcyjssP4cE66j6ive4ALlvHoY9KnzpPSYf5t4B3pnpS916X/BPCmZTHtjPQe
l62PgLeA99V2XvovWMbTF2T/hNLj2ovLqrtT6+57NaExcb4LWotZrfVhzem0
1nda6z0p3T3K79Le0X+495tV57xPX6PP8izR32vK02crKjP180TQr7tUzzPJ
88sz26l2v2t1qr0i+arsOC84Jzgih5Qs8XGeo2I+cmC7NcYFk26e04vWGCMK
oT32Eb88z5o12vTy9fL7SvZXkl2urtmdfaWYFPvMx7W4lq2qL1ljrGy1FLfj
vrSpLX8nLwR5ry9b8gHfQ79XxPuC662ydJ/w/j1tD+VOSzHL21YF+xVL8anb
kk+T83tlnzZ4364rX7fk692S5VnhGfK3RVvQ75FOXXm/64xIxmOOy9Aezx95
dSjY5jllTOG55V3dY1GH2tlGfh5UHzVLsWxYsjFOVi3Fvn6NZyDoVLUWQ+pz
QPk+lQnGm3H1O6aUYyO/kNfIVX7P3K6U3HS/ZdxHvieXkb8YD8hlvMtesozP
yauMP+RscuC7wGuWxYBF6VP3kNrPWMa38+p7Uvoeaxjn9qp9o8Z+QHZmtQZ+
Vx7VeMfC2MdVHlA6JrkR7dtwWN8xrfmQ1rJb+12VbE+u3u867h/u234+2Fay
9KaN92sLsvkz2Ox+12rNea4ZJ+bvkvk7p3/NuGs5nrqe+mv5/o9utNEszbf7
F+NQM9lm69CM1/NrG+vju8fby03sxb0tqS6+odqCvHOsc6rzscM523k0cnOP
6twX/Q7vXNsR+iurjvlKGHt8B7qPd4RxeV/xLVhR6va9f59HKdiOdxG/c+Tn
Fs9XfAOVc3W+Rt5/fLOWZcfjSHwL+7vCzzPLdWu8F/n7hfzgd6SqpRjiNjos
8YXvCetq6qtH8lVL7yTK9VmKUc4tPo8+1dVUrqquqvH4HXBEY2CefEluJ98x
XjDe+L8v/kOas+w9QBn/b0R93kMX1LbJsjfYTuluVduU6tj3bkvvHd5//S7L
2LLd0r12i3Q2qX9/J00rv0v6m2WrV+mwpf94g0qHpDuqea4N8+4NZY+hda1f
XWtVtRTfuy3teb+l+Oz/Gn0v3Ae7LPlmqzX6pvO987rfjfwdXbTEB/E+FPMt
1sglpVw5/863XLmQs7HSvw2zRj5cKU7k5cyW3p+bcWPs/z+3UKfP
        
        "], $CellContext`TibicenMixed = CompressedData["
1:eJy1k81yAiEMgMkvkACueuj02FfqI3jv9P1vDe44q63jpRpYEn6GhC/Zj9P3
5wlTShTfF6QU/SwX/XyBR3fD7wlsE4CECSgaIkwrIVJYmFFjIO3S2qK1GVdv
xdvb0fv77mDHNmzs983F3PoydmPZqVkYh6VlazVjKGFRVRFB4HAR14eThDDH
UAnXMGALDe7E/DR5XQIeezivzqfRJJxWBIkxCQoiB3OhwBM9WCkLm7FJJ2eq
XgWkmElu1tUqKvVquixjjNaXUls3r+Moo0pmL0GeNKsoMU/QyECR2PBC5xhg
zfqj6OH2JX9P/4fjk3IAd+3r/wC3JQhBuFQYEiNi7CNNizBnV0cvB+9utaCP
nskUCs4TIsSgQY8mx7zW7UzjtfuN3OsK+AcL3QoD
        
        "], $CellContext`ArthropodFastOn = CompressedData["
1:eJydUltrE0EUnuvOzF5mZ5MYMTW2aa3RJpJam4KNQqWVtt4oUYjipVCTKjbG
KlWxCBUq+lAFWy8PoiBUilZ86YOXJ/HJB1/10d8g/gNnEyM2sRY9y+zunHPm
zPd9fLGR89kRBADAep2DoBw/P9VANftqC1zWCIEeg+o7a5rqj0MMIITVmv9T
rqLyAwgSBHHTciU3HSfcGlbrm2NtXcnertS2A0O5wkB/bu/Zsdyx8VP5Rzee
nLh04frwrUIue3O0VLp4KNdz8kz/vt6d20cGOoYG2lODqUTHlmRyU2pjLB5t
jm9WTZHohpZGpVRcRRq8tcE1MiiDSnrKsExCDc5MyiBFkCDsg/HB+RRRhe0y
BWAN+wqLGgF+29dmV4q6Iqx7r3oaVQQtwzWwryqgFNmEcSaUtJXrBkJNgYa2
zkRPprM7Uzx++ujug5ePTJSmxovz049vX71ybe757NuXS9Pzr+bfL977/uXr
t89Ld+5+/PDp9dzUw3f3n44/e7H4YOHNzES2MDM5O1kczY8V8kN7SvnB7sN9
+/taBod37djam05n4umuSKJRhVuj0cC6lli7FzLDnitCFjOUsDQeTLGFmUEw
IoYvOfGVRAD+kfLf+K+qzX/HCpN/GRpWTQwq2P2MDgS0iwjAvoUwAlS7ihKK
GMeIMsE4xZgQ7HAhXScoXM8wBJeM25blmJIzy1XStZVjS8vlwpKmYzlS2SoU
CAk3aClh673pScYMzg2iJ9uMUSq5cCg1bSwMxgnRGcL0PYhgfT2CVENC2hrY
X8w3B0RYw8NQAyxzgv+qpO+2H2aiVQY=
        
        "], $CellContext`ArthropodSlowOn = CompressedData["
1:eJyNUmtv22QUznvz6zh2rnYuju3ETuLmnrhtWNN2G9rKOhidWNaqW6dClTVi
axkpFdpox7ZKICGq7UMHAqFN4i6GhODLEBtfENo3hPiAUEEDiV/Af+B1Eu3C
J450znn0+PhI73Mes91ttaHH40EszwHPgwAe0KuMh30C9Dp8ZMIl3Qbd7GGG
CETA7RAQDBCChCCMAUGIIgYoQJBRmFckn+SPiJQNRONqyEs4jvI8EgiFvJfD
QtAriBwVInxIioRUn0ZNzR+TE6GApkf9RjwcliJxXRNlJSzI8UBMNdRM2vIp
CTWXT6qWkyplbatec0YruXK1aDf3VOsVMz85nspU84VisWGXnX3N2aGhulk/
0HxyzCmYh8YaxfJIyRkZHq9m1UmrmC7Eo0NpTZMDQTMe0WJCUIqEg6LC+wOS
IPBE8koc8iAqcACxt1LKFAAYsgIgeyQThGkAkNsGSoIe5armIoQ9/yvAoLh/
PcZ52HLU/wSJu5AFYeJCr5dQHgMX8oTDfJDnCE/FAPWJYiRVtJVoxBeOi0lZ
USNaNJY1MpXyUM5QtCf2ZE3Lyu4drlStXPlQpTI1XKk/NVpkUZvb33DqVWPq
6MGnJ2aeaR2fn95/pL16aXb66OLiye7C8c6FExvX19qtl84sXz29eOTk6keb
rx47e25zbWdndfPKlbu/vH5p/eWttz/75I2zZ469031heu7wcy8uLTTHGo3J
qVLGyibtcsoIy7IcDitSwC/4vLzk5TghRCnEiFBmIQCxKzb2MIQG5ut77xHP
Puz/0e8h696JiTaw+IMx0F8J+oAF7h3PTXY25lRmZ/ekBFLMUUR4TNidOUgF
jJEXY4ESgdk6Lkp8IConFSlaH68lFF3JOLW8qUYTZiKRNWRV1O2kkVBicdnO
6AkjbZkpo2xbesosVEtWXjf0Qi5dHWuadoYRtYYzOj6xb2TiwMLszN6p5Wfn
507MzC+vdtZPLb12eXtlpfN8a2X7zU778sbV9fNvvfLV1re37ix/sLZ988PP
dy5uvfvxT/e++PvP3X9+vX/nxpff7979+b33f/vur2/u/XH/6093b/9+68eL
Nzav3/5h43Trwvlr3cNL3U7TOdUoyYmkbcV0yi4QoIBAZiEBchxhEmBWUM/n
kMDHzAnBQOV/AeMwkNI=
        
        "], $CellContext`ChinaCOVIDCasesCut = CompressedData["
1:eJw1kkcvhFEUhq/R6+i9jd5HL4PRy+hG7zHKkliIhYUlEYmlsLCzEXshfgJb
wk8QP8HCc3KPSZ4835l8d+57zhlXYN+/5zDGrIE4yNiPQx0MCRCidSg4IUzr
cHWEOlIdpY5Wx6hj1XFqpzpe/X9Xoj4nwRkk63MKXEEqXEAabEK6ZCV8Bn7C
mfiaJrLkHE1k409C5+BnmsjFr9R5+IUm8rGbJlw4l/AF+BcX4jvCF+F8whbj
S8KX4EW+L8XLNFUm53m/HN/SdIXcwzAq8Q+/X4O/qd34g7pW+uS+Ohygrsfv
5GnA5+RvxMfkbsIe3IxP6acFf0Gr9Evdhm9434MfcTv24Q78gDuxl/e8+A26
4AS64Qh64BB64R76YAf6jc08ANUwqDsYMnaGwzpzn+5iRPczqvWYsbsYN3YG
E7qrSaiCKdiCaWN79WuWGekfZvXuOT07D7uwAOsye82/BAeyA5kjrOjZVWNn
Jv/rbT0jPWwYO4s/rtAzRg==
        "], $CellContext`LogisticPeakRev[
         Pattern[$CellContext`t, 
          Blank[]]] := $CellContext`LogisticPeakRev[$CellContext`t, 
         10^(-5)], $CellContext`LogisticPeakRev[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`c0, 
          Blank[]]] := 
       N[(((-2^$CellContext`t) (1 - 2 $CellContext`c0)^(
             2^$CellContext`t)) Log[2]) 
         Log[1 - 
           2 $CellContext`c0]], $CellContext`PapilioFits = \
{{$CellContext`A -> 1006.1810278126417`, $CellContext`t0 -> 
          393.56074580185924`, $CellContext`T0 -> 
          11.57816895698748}, {$CellContext`A -> 
          324.7940392886853, $CellContext`t0 -> 
          549.9440132088428, $CellContext`T0 -> 
          20.529039361731144`}, {$CellContext`A -> 
          301.1400570591007, $CellContext`t0 -> 
          417.40231878753303`, $CellContext`T0 -> 
          13.054140171919986`}, {$CellContext`A -> 
          167.6754235540642, $CellContext`t0 -> 
          494.6046701180805, $CellContext`T0 -> 
          17.15912900917047}}, $CellContext`TibicenFits = \
{{$CellContext`A -> 59.34106834153694, $CellContext`t0 -> 
          458.57378425087586`, $CellContext`T0 -> 
          15.750795230720872`}, {$CellContext`A -> 
          45.21735156993479, $CellContext`t0 -> 
          24.047094906119916`, $CellContext`T0 -> 
          16.82590852901284}, {$CellContext`A -> 
          41.09428432258933, $CellContext`t0 -> 
          323.34302938821287`, $CellContext`T0 -> 
          7.356566203186968}}, $CellContext`FastOnFits = \
{{$CellContext`A -> 442.8288175904017, $CellContext`t0 -> 
          421.93409507423394`, $CellContext`T0 -> 
          14.807801272911309`}, {$CellContext`A -> 
          719.0256810253618, $CellContext`t0 -> 
          480.2193243575722, $CellContext`T0 -> 
          18.985751626633594`}, {$CellContext`A -> 
          52.90745917389072, $CellContext`t0 -> 
          594.0434890656691, $CellContext`T0 -> 
          25.31651902980542}}, $CellContext`SlowOnFits = \
{{$CellContext`A -> 197.8367161912211, $CellContext`t0 -> 
          208.1282526135983, $CellContext`T0 -> 
          28.581597054974825`}, {$CellContext`A -> 
          495.4464409548776, $CellContext`t0 -> 
          151.24750146595204`, $CellContext`T0 -> 
          24.370205900739823`}, {$CellContext`A -> 
          752.5465341472163, $CellContext`t0 -> 
          111.99078345786754`, $CellContext`T0 -> 
          23.916559303931134`}}, $CellContext`CovidFit = \
{$CellContext`A -> 12945.331469512468`, $CellContext`t0 -> 
         117.74376373748736`, $CellContext`T0 -> 
         5.182514508087864}, $CellContext`PapilioDiscreteFits = {{{
          361/2, 3.1428099941570906`}, {383/2, 52.91245690901054}, {
          405/2, 180.35990664588806`}, {427/2, 249.07980557644842`}, {
          449/2, 210.22974586871953`}, {471/2, 137.11889357310096`}, {
          493/2, 78.38302486972027}, {515/2, 41.91593054385179}, {
          537/2, 21.675548968741946`}, {559/2, 11.021925378111877`}, {
          581/2, 5.5576074052470705`}, {603/2, 2.7905415584339925`}, {
          625/2, 1.3982148783701387`}, {647/2, 0.6998446715498727}, {
          669/2, 0.350106795012307}}, {{170, 1.0247028353201508`}, {
          190, 17.25193209873326}, {210, 58.8057528332021}, {
          230, 81.21164927873174}, {250, 68.54471541735333}, {
          270, 44.70716310611792}, {290, 25.556526794269054`}, {
          310, 13.666550937924933`}, {330, 7.067241267109336}, {
          350, 3.593662425229591}, {370, 1.8120395685200577`}, {
          390, 0.9098468734419761}, {410, 0.45588335054183543`}, {
          430, 0.22818204745247128`}, {450, 0.11415116605233429`}}, {{
          351/2, 0.9872620733966204}, {377/2, 16.621578146186838`}, {
          403/2, 56.657098495894644`}, {429/2, 78.24432458589799}, {
          455/2, 66.04021725203359}, {481/2, 43.07364537547787}, {
          507/2, 24.622738185206018`}, {533/2, 13.167200236096553`}, {
          559/2, 6.809017235109543}, {585/2, 3.4623565923004564`}, {
          611/2, 1.7458309666283889`}, {637/2, 0.8766027376777121}, {
          663/2, 0.439226209169522}, {689/2, 0.21984469400773093`}, {
          715/2, 0.10998029183969145`}}, {{
          355/2, 0.5308870169503491}, {389/2, 8.93803203507772}, {
          423/2, 30.466599315482814`}, {457/2, 42.074842326100885`}, {
          491/2, 35.51224632286691}, {525/2, 23.16227850614293}, {
          559/2, 13.240549167781111`}, {593/2, 7.080486370634605}, {
          627/2, 3.661458234564036}, {661/2, 1.8618360944230492`}, {
          695/2, 0.938797325399275}, {729/2, 0.47138143457200393`}, {
          763/2, 0.23618803784305875`}, {
          797/2, 0.11821855304598405`}, {
          831/2, 0.05914043558588755}}}, \
$CellContext`TibicenDiscreteFits = {{{166, 0.1811243856091742}, {
          182, 3.04941637150636}, {198, 10.394385069570843`}, {
          214, 14.354805679172655`}, {230, 12.115824255375387`}, {
          246, 7.902347071573004}, {262, 4.517319611465853}, {
          278, 2.4156717017912395`}, {294, 1.2491911687323973`}, {
          310, 0.6352084491433285}, {326, 0.3202924225784607}, {
          342, 0.16082267977634562`}, {358, 0.08058101229957432}, {
          374, 0.040332993846903586`}, {390, 0.02017712755848885}}, {{
          579/2, 0.14097628682119684`}, {
          545/2, 2.3734816026062426`}, {511/2, 8.090361802853577}, {
          477/2, 11.172914104764736`}, {443/2, 9.430226137448933}, {
          409/2, 6.150709875845083}, {375/2, 3.5160088635617206`}, {
          341/2, 1.88021301246761}, {307/2, 0.9722949889128816}, {
          273/2, 0.4944079076734862}, {239/2, 0.24929628487192484`}, {
          205/2, 0.1251746646662205}, {171/2, 0.06271939509459282}, {
          137/2, 0.03139276740564217}, {
          103/2, 0.015704657947335617`}}, {{
          377/2, 0.1558688945643383}, {391/2, 2.624214057618406}, {
          405/2, 8.94502032413247}, {419/2, 12.353210669967327`}, {
          433/2, 10.426426718134328`}, {447/2, 6.800465317616687}, {
          461/2, 3.8874368675695563`}, {475/2, 2.078837018671895}, {
          489/2, 1.0750073542830016`}, {503/2, 0.5466367129577905}, {
          517/2, 0.27563171947681614`}, {
          531/2, 0.13839800330201293`}, {545/2, 0.0693450154034577}, {
          559/2, 0.034709071030072786`}, {
          573/2, 0.017363683843275957`}}}, \
$CellContext`FastOnDiscreteFits = {{{293/2, 1.389815960260864}, {
          323/2, 23.398989199307703`}, {353/2, 79.75890280151799}, {
          383/2, 110.14827170984162`}, {413/2, 92.96796709732223}, {
          443/2, 60.636827264614155`}, {473/2, 34.66260422360624}, {
          503/2, 18.536096476508536`}, {533/2, 9.585378677101055}, {
          563/2, 4.8741246947105346`}, {593/2, 2.457689611219388}, {
          623/2, 1.234035529635309}, {653/2, 0.6183197067101758}, {
          683/2, 0.309485872843676}, {
          713/2, 0.15482450813396564`}}, {{
          255/2, 2.2087196139390777`}, {293/2, 37.1860792137968}, {
          331/2, 126.7542308054281}, {369/2, 175.04954261811318`}, {
          407/2, 147.74630473905103`}, {445/2, 96.36509691632187}, {
          483/2, 55.08641144437322}, {521/2, 29.45788580946137}, {
          559/2, 15.23324993848301}, {597/2, 7.746043448782466}, {
          635/2, 3.905802929659611}, {673/2, 1.961150653422926}, {
          711/2, 0.9826443953338156}, {749/2, 0.4918403134891177}, {
          787/2, 0.24604979192336707`}}, {{
          241/2, 0.1528823250795367}, {295/2, 2.57393207128639}, {
          349/2, 8.77362676407898}, {403/2, 12.116513526965383`}, {
          457/2, 10.22664825714674}, {511/2, 6.670163102689114}, {
          565/2, 3.81295054779917}, {619/2, 2.039004881405542}, {
          673/2, 1.0544093756470931`}, {727/2, 0.536162727556437}, {
          781/2, 0.27035040093835006`}, {
          835/2, 0.13574618970845048`}, {
          889/2, 0.06801631086939444}, {
          943/2, 0.034044018181177145`}, {
          997/2, 0.017030982129729994`}}}, \
$CellContext`SlowOnDiscreteFits = {{{651/2, 0.6231804308588359}, {
          593/2, 10.49188711874403}, {535/2, 35.76314334694263}, {
          477/2, 49.38945111093076}, {419/2, 41.6859637882594}, {
          361/2, 27.18898416850993}, {303/2, 15.542386367977665`}, {
          245/2, 8.311411668134385}, {187/2, 4.297993824174924}, {
          129/2, 2.1855117613840624`}, {71/2, 1.1020049521877051`}, {
          13/2, 0.5533299480234057}, {(-45)/2, 
           0.2772487525354308}, {(-103)/2, 
           0.13877056034616603`}, {(-161)/2, 0.06942185616311557}}, {{
          307, 1.473252138273802}, {281, 24.80372355549527}, {
          255, 84.54714685867718}, {229, 116.76091041092174`}, {
          203, 98.54920380349532}, {177, 64.27709709778006}, {
          151, 36.743538173918616`}, {125, 19.648892047649245`}, {
          99, 10.16082707062354}, {73, 5.166737779689637}, {
          47, 2.605234490372855}, {
          21, 1.308119589013657}, {-5, 0.6554398971476885}, {-31, 
           0.32806554030858814`}, {-57, 0.16411923894063046`}}, {{
          675/2, 2.3534581321930603`}, {625/2, 39.62290187390862}, {
          575/2, 135.06049993683763`}, {525/2, 186.5206280649425}, {
          475/2, 157.4281951385725}, {425/2, 102.67995066735782`}, {
          375/2, 58.696251968299364`}, {325/2, 31.388276030134286`}, {
          275/2, 16.231492544911646`}, {225/2, 8.253645610701179}, {
          175/2, 4.161752179651914}, {125/2, 2.089665851937885}, {
          75/2, 1.0470375817091326`}, {
          25/2, 0.5240708590697903}, {(-25)/2, 
           0.2621735597728208}}}, $CellContext`ChinaDiscreteFit = {{
         43/2, 39.86108219771626}, {53/2, 671.1025477373369}, {
         63/2, 2287.551928799429}, {73/2, 3159.144403362783}, {
         83/2, 2666.398922002143}, {93/2, 1739.1148360030593`}, {
         103/2, 994.1524314375669}, {113/2, 531.6307240681148}, {
         123/2, 274.91666398221963`}, {133/2, 139.79396600202233`}, {
         143/2, 70.48859015182225}, {153/2, 35.39316937507507}, {
         163/2, 17.733925468100093`}, {173/2, 8.876313245199903}, {
         183/2, 4.440496167413869}}, $CellContext`PeakDay = {{
         "214", "230", "214", "228"}, {"214", "238", "210"}, {
         "192", "184", "202"}, {"238", "229", "262"}, {
         "36"}}, $CellContext`BinWidths = {{11, 20, 13, 17}, {16, 17, 
         7}, {15, 19, 27}, {29, 26, 25}, {
         5}}, $CellContext`OverlapAccuracy = {{
         "99.7", "99.0", "99.8", "99.7"}, {"99.2", "99.5", "99.1"}, {
         "99.9", "99.7", "99.3"}, {"99.8", "99.8", "99.4"}, {
         "99.2"}}, $CellContext`names = {{
         "Papilio glaucus", "Papilio polyxenes", "Papilio troilus", 
          "Papilio cresphontes"}, {
         "Neotibicen tibicen", "Neotibicen pruinosus", 
          "Neotibicen lyricen"}, {
         "Popillia japonica", "Libellula Luctuosa", 
          "Pterophylla camellifolia"}, {
         "Limenitis archippus", "Limenitis arthemis", 
          "Bombus impatiens"}, {"new cases (China)"}}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.795731711547659*^9, 3.795731750681305*^9, 
  3.8173272091167927`*^9},
 CellID->590565071]
}, {44}]]