CS_packNB_Biol15.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     43852,        823]
NotebookOptionsPosition[     43462,        808]
NotebookOutlinePosition[     43896,        825]
CellTagsIndexPosition[     43853,        822]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"CloudDeploy", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Delayed", "[", "\[IndentingNewLine]", 
    RowBox[{"APIFunction", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Switch", "[", 
        RowBox[{
         RowBox[{"RandomChoice", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
         "1", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"data", "=", 
           RowBox[{"RandomSample", "[", 
            RowBox[{
             InterpretationBox[
              DynamicModuleBox[{Typeset`open = False}, 
               TemplateBox[{"Association", "AssociationIcon", 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Head: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["Association", "IconizedItem"]}]}, {
                    RowBox[{
                    TagBox["\"Length: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["118", "IconizedItem"]}]}, {
                    RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["35192", "IconizedItem"]}]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 Dynamic[Typeset`open]},
                "IconizedObject"]],
              Association[
              "abalone" -> {"Haliotis", 52, -45, 10, 200}, 
               "African pompano" -> {"Alectis ciliaris", 42, -24, 60, 100}, 
               "Alaska pollock" -> {
                "Theragra chalcogramma", 68, 34, 50, 1280}, 
               "American harvestfish" -> {
                "Homarus americanus", 60, -38, 15, 136}, 
               "angelfish" -> {"Holacanthus bermudensis", 35, 18, 2, 92}, 
               "angler" -> {"Lophius piscatorius", 70, 36, 20, 1000}, 
               "Antarctic armless flounder" -> {
                "Diplodus annularis", -45, -56, 100, 1115}, 
               "Arctic char" -> {
                "Salvelinus alpinus alpinus", 85, 42, 30, 70}, 
               "Atlantic bigeye" -> {
                "Priacanthus arenatus", 43, -40, 10, 200}, 
               "Atlantic butterfish" -> {
                "Peprilus triacanthus", 54, 22, 15, 420}, 
               "Atlantic croaker" -> {
                "Micropogonias undulatus", 43, -37, 10, 100}, 
               "Atlantic moonfish" -> {"Selene setapinnis", 46, -45, 5, 55}, 
               "atoll butterflyfish" -> {
                "Chaetodon mertensii", 30, -33, 10, 120}, 
               "banana prawn" -> {
                "Fenneropenaeus merguiensis", 35, -25, 10, 55}, 
               "bank sea bass" -> {"Centropristis ocyurus", 37, 18, 11, 101}, 
               "barred flagtail" -> {"Kuhlia mugil", 32, -32, 3, 18}, 
               "bastard grunt" -> {"Pomadasys incisus", 47, -14, 10, 100}, 
               "beluga" -> {"Huso huso", 57, 36, 70, 180}, 
               "bicolor chromis" -> {"Chromis margaritifer", 26, -35, 2, 20}, 
               "Bigelows ray" -> {"Rajella bigelowi", 60, 10, 650, 4156}, 
               "birdbeak dogfish" -> {"Deania calcea", 66, -45, 60, 1490}, 
               "black jack" -> {"Caranx lugubris", 30, -30, 12, 10000}, 
               "blackfin icefish" -> {
                "Chaenocephalus aceratus", -50, -72, 5, 770}, 
               "blue jack mackerel" -> {
                "Thrachurus picturatus", 45, -41, 305, 10000}, 
               "bonnethead" -> {"Sphyrna tiburo", 45, -36, 10, 80}, 
               "brine shrimp" -> {"Artemia salina", 90, -90, 0, 10000}, 
               "brown sole" -> {"Achirus klunzingeri", 10, -4, 14, 40}, 
               "cape redfish" -> {"Sebastes capensis", -28, -45, 20, 275}, 
               "cocoa snapper" -> {"Paracaesio stonei", 32, -22, 200, 320}, 
               "common mora" -> {"Mora moro", 62, -50, 450, 2500}, 
               "common shrimp" -> {"Crangon crangon", 73, 24, 2, 50}, 
               "damselfish" -> {"Chromis chromis", 46, -12, 2, 40}, 
               "dark ghost shark" -> {
                "Hydrolagus novaezealandiae", -34, 47, 25, 950}, 
               "deepsea red crab" -> {"Chaceon affinis", 70, -10, 130, 2047}, 
               "deepwater catshark" -> {
                "Apristurus profundorum", 41, 37, 1100, 1750}, 
               "dover sole" -> {"Microstomus pacificus", 65, 31, 10, 1370}, 
               "dragonet" -> {"Callionymus lyra", 65, 16, 5, 430}, 
               "European flat oyster" -> {"Ostrea edulis", 60, 20, 125, 200}, 
               "fangtooth moray" -> {"Enchelycore anatina", 40, -17, 3, 60}, 
               "Fraser's lanternfish" -> {
                "Gymnoscopelus fraseri", 45, -68, 50, 250}, 
               "giant catfish" -> {"Netuma thalassina", 42, -40, 10, 195}, 
               "giant guitarfish" -> {
                "Rhynchobatus djiddensis", 35, -35, 2, 50}, 
               "glasseye" -> {
                "Heteropriacanthus cruentatus", 32, -32, 3, 300}, 
               "golden hind" -> {"Cephalopholis aurantia", 30, -59, 20, 250}, 
               "grass porgy" -> {"Calamus arctifrons", 30, 24, 1, 22}, 
               "haddock" -> {"Melanogrammus aeglefinus", 77, 34, 10, 450}, 
               "harlequin filefish" -> {
                "Oxymonacanthus longirostris", 30, -29, 4, 30}, 
               "hogfish" -> {"Lachnolaimus maximus", 60, -20, 3, 30}, 
               "horse mussel" -> {"Modiolus", 90, -90, 5, 200}, 
               "humped rockcod" -> {
                "Gobionotothen gibberifrons", -50, -67, 6, 429}, 
               "Indian pike conger" -> {
                "Congresox talabonoides", 90, -90, 800, 875}, 
               "kai soldierfish" -> {"Ostichthys kaianus", 35, -35, 310, 640},
                "king crab" -> {"Lithodes ferox", 22, -29, 160, 1100}, 
               "largeeyed rabbitfish" -> {
                "Hydrolagus mirabilis", 65, 4, 450, 1200}, 
               "latchet" -> {"Pterygotrigla polyommata", -21, -43, 35, 400}, 
               "lemon sole" -> {"Microstomus kitt", 70, 35, 20, 200}, 
               "longhorn cowfish" -> {"Lactoria cornuta", 42, -35, 18, 100}, 
               "lookdown" -> {"Centrophorus lusitanicus", 38, -26, 300, 1400},
                "Mexican foureyed octopus" -> {
                "Octopus maya", 23, 16, 10, 100}, 
               "midnight snapper" -> {"Macolor macularis", 31, -15, 3, 90}, 
               "New Zealand dory" -> {
                "Cyttus novaezealandiae", -29, -48, 20, 450}, 
               "northern puffer" -> {
                "Sphoeroides maculatus", 54, 29, 10, 183}, 
               "northern searobin" -> {
                "Prionotus carolinus", 46, 28, 15, 170}, 
               "northern wolffish" -> {
                "Anarhichas denticulatus", 89, 46, 60, 1700}, 
               "ocean whitefish" -> {
                "Caulolatilus princeps", 51, -10, 10, 91}, 
               "oilfish" -> {"Ruvettus pretiosus", 55, -43, 100, 800}, 
               "opah" -> {"Lampris guttatus", 70, -45, 50, 485}, 
               "opaleye" -> {"Girella nigricans", 38, 23, 2, 30}, 
               "outrigger triggerfish" -> {
                "Xanthichthys caeruleolineatus", 33, -24, 15, 200}, 
               "Pacific calico scallop" -> {
                "Argopecten ventricosus", 35, -33, 12, 50}, 
               "Pacific spadefish" -> {
                "Chaetodipterus zonatus", 33, -80, 3, 50}, 
               "painted sweetlip" -> {"Plectorhinchus picus", 32, -32, 3, 50},
                "pelican flounder" -> {
                "Chascanopsetta lugubris", 40, -32, 60, 3210}, 
               "peppered moray" -> {"Gymnothorax pictus", 30, -26, 5, 100}, 
               "pickhandle barracuda" -> {
                "Sphyraena jello", 27, -37, 20, 200}, 
               "pink conch" -> {"Lobatus gigas", 33, -9, 2, 73}, 
               "piper gurnard" -> {"Trigla lyra", 66, -23, 100, 700}, 
               "plunderfish" -> {
                "Pogonophryne permitini", -60, -78, 430, 1120}, 
               "purple whelk" -> {"Rapana venosa", 38, -36, 10, 60}, 
               "raucous grunt" -> {"Haemulopsis leuciscus", 32, -80, 10, 200},
                "red crab" -> {"Chaceon notialis", 90, -90, 200, 2047}, 
               "red rock lobster" -> {"Jasus edwardsii", -30, -50, 5, 200}, 
               "redfish" -> {"Centroberyx affinis", -27, -41, 10, 450}, 
               "rockcod" -> {"Nototheniops nybelini", 90, -90, 90, 400}, 
               "roughskin dogfish" -> {
                "Centroscymnus owstonii", 35, -45, 100, 1500}, 
               "roundnose grenadier" -> {
                "Coryphaenoides rupestris", 66, 20, 180, 2600}, 
               "rubyfish" -> {"Plagiogeneion rubiginosum", 10, -40, 50, 600}, 
               "rusty jobfish" -> {"Aphareus rutilans", 35, -28, 100, 330}, 
               "scamp" -> {"Mycteroperca phenax", 45, 5, 30, 100}, 
               "Senegalese hake" -> {
                "Merluccius senegalensis", 33, 12, 15, 800}, 
               "sheepshead" -> {
                "Archosargus probatocephalus", 46, -33, 15, 60}, 
               "silver barb" -> {"Barbonymus bonionotus", 24, -8, 15, 50}, 
               "slender snipe eel" -> {
                "Nemichthys scolopaceus", 55, -42, 258, 4337}, 
               "snaggletooth" -> {
                "Borostomias antarcticus", 66, -66, 300, 2630}, 
               "snow crab" -> {"Chionoecetes opilio", 90, 35, 20, 1200}, 
               "sordid rubberlip" -> {
                "Plectorhinchus sordidus", 30, -36, 2, 25}, 
               "southern lanternshark" -> {
                "Etmopterus granulosus", -29, -59, 220, 1620}, 
               "Spanish ling" -> {"Molva macrophthalma", 61, 35, 30, 754}, 
               "spiky oreo" -> {
                "Neocyttus rhomboidalis", -24, -48, 200, 1240}, 
               "spiny eel" -> {"Notacanthus chemnitzii", 61, -18, 125, 3285}, 
               "splendid alfonsino" -> {"Beryx splendens", 65, -43, 25, 1300},
                "spotted unicornfish" -> {
                "Naso brevirostris", 29, -36, 2, 122}, 
               "stargazer" -> {"Uranoscopus scaber", 5, -50, 15, 400}, 
               "striped bass" -> {"Morone saxatilis", 51, 24, 30, 50}, 
               "striped large-eye bream" -> {
                "Gnathodentex aureolineatus", 35, -30, 3, 30}, 
               "sturgeon" -> {"Acipenser sturio", 71, 34, 4, 93}, 
               "tuberculate cockle" -> {
                "Acanthocardia tuberculata", 90, -90, 5, 25}, 
               "turbot" -> {"Scophthalmus maximus", 70, 30, 20, 70}, 
               "tusk" -> {"Brosme brosme", 83, 37, 18, 1000}, 
               "velvet belly" -> {"Etmopterus spinax", 70, -38, 70, 2490}, 
               "velvet whalefish" -> {"Barbourisia rufa", 71, 59, 3, 22}, 
               "venus clam" -> {"Spisula ovalis", 68, 30, 2, 30}, 
               "West African geryon" -> {
                "Chaceon maritae", 90, -90, 200, 2047}, 
               "white perch" -> {"Morone americana", 47, 32, 10, 50}, 
               "white steenbras" -> {
                "Lithognathus lithognathus", -22, -31, 10, 150}, 
               "whiting" -> {"Merlangius merlangus", 72, 35, 10, 200}, 
               "yellow tang" -> {"Zebrasoma flavescens", 30, -25, 2, 46}, 
               "yellowstriped squirrelfish" -> {
                "Neoniphon aurolineatus", 32, 24, 30, 160}],
              SelectWithContents->True,
              Selectable->False], ",", "4"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "data", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{"Append", "[", 
            RowBox[{
             RowBox[{
             "data", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
             ",", "Blue"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "data", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{"Append", "[", 
            RowBox[{
             RowBox[{
             "data", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
             ",", "Brown"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "data", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{"Append", "[", 
            RowBox[{
             RowBox[{
             "data", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
             ",", "Brown"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "data", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{"Append", "[", 
            RowBox[{
             RowBox[{
             "data", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], 
             ",", "Brown"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"sorted", "=", 
           RowBox[{"Reverse", "[", 
            RowBox[{"SortBy", "[", 
             RowBox[{"data", ",", 
              RowBox[{
               RowBox[{
               "#", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], 
               "&"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
          "q", "=", 
           "\"\<The habitat range (latitude and bottom depth) for which of \
these aquatic species is shown in blue in the chart?\>\""}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"cubeIt", "[", 
            RowBox[{"d_List", ",", "n_Integer"}], "]"}], ":=", 
           RowBox[{"Cuboid", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"n", ",", 
               RowBox[{
               "d", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
               ",", 
               RowBox[{
               "d", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], 
              "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"n", "+", "3"}], ",", 
               RowBox[{
               "d", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
               ",", 
               RowBox[{
               "d", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}]}], 
              "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"pic", "=", 
           RowBox[{"Graphics3D", "[", 
            RowBox[{
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"sorted", "\[LeftDoubleBracket]", 
                RowBox[{"1", ",", "6"}], "\[RightDoubleBracket]"}], ",", 
               RowBox[{"cubeIt", "[", 
                RowBox[{
                 RowBox[{
                 "sorted", "\[LeftDoubleBracket]", "1", 
                  "\[RightDoubleBracket]"}], ",", "0"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"sorted", "\[LeftDoubleBracket]", 
                RowBox[{"2", ",", "6"}], "\[RightDoubleBracket]"}], ",", 
               RowBox[{"cubeIt", "[", 
                RowBox[{
                 RowBox[{
                 "sorted", "\[LeftDoubleBracket]", "2", 
                  "\[RightDoubleBracket]"}], ",", "4"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"sorted", "\[LeftDoubleBracket]", 
                RowBox[{"3", ",", "6"}], "\[RightDoubleBracket]"}], ",", 
               RowBox[{"cubeIt", "[", 
                RowBox[{
                 RowBox[{
                 "sorted", "\[LeftDoubleBracket]", "3", 
                  "\[RightDoubleBracket]"}], ",", "8"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"sorted", "\[LeftDoubleBracket]", 
                RowBox[{"4", ",", "6"}], "\[RightDoubleBracket]"}], ",", 
               RowBox[{"cubeIt", "[", 
                RowBox[{
                 RowBox[{
                 "sorted", "\[LeftDoubleBracket]", "4", 
                  "\[RightDoubleBracket]"}], ",", "12"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"EdgeForm", "[", 
                RowBox[{"Thickness", "[", ".003", "]"}], "]"}], ",", 
               "Transparent", ",", 
               RowBox[{"InfinitePlane", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "100"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"15", ",", "0", ",", "0"}], "}"}]}], "}"}], 
                "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "90"}], ",", "90"}], "}"}], ",", "Automatic"}],
                "}"}]}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "15"}], "}"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Axes", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"False", ",", "True", ",", "True"}], "}"}]}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "None", ",", "None", ",", 
                "\"\<Water\\nDepth\\n(meters)\\n \\n \>\""}], "}"}]}], ",", 
             RowBox[{"Ticks", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "90"}], ",", "\"\<South Pole\>\""}], "}"}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "60"}], ",", "\"\<60\[Degree]S\>\""}], "}"}],
                   ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "30"}], ",", "\"\<30\[Degree]S\>\""}], "}"}],
                   ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "\"\<Equator\>\""}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"30", ",", "\"\<30\[Degree]N\>\""}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"60", ",", "\"\<60\[Degree]N\>\""}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"90", ",", "\"\<North Pole\>\""}], "}"}]}], "}"}], 
                ",", "Automatic"}], "}"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"Lighting", "\[Rule]", "\"\<Neutral\>\""}], ",", 
             RowBox[{"ViewVertical", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", 
                RowBox[{"-", "1"}]}], "}"}]}], ",", 
             RowBox[{"ViewPoint", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", 
                RowBox[{"-", "3"}], ",", 
                RowBox[{"-", "2"}]}], "}"}]}], ",", 
             RowBox[{"BoxRatios", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3", ",", "3"}], "}"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", "480", "}"}], ",", 
                RowBox[{"{", "540", "}"}]}], "}"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"picTransit", "=", 
           RowBox[{
            RowBox[{"Hold", "[", 
             RowBox[{"ToExpression", "[", 
              RowBox[{"FromCharacterCode", "[", "h2", "]"}], "]"}], "]"}], "/.", 
            RowBox[{"h2", "\[Rule]", 
             RowBox[{"ToCharacterCode", "[", 
              RowBox[{"ToString", "[", 
               RowBox[{"InputForm", "[", "pic", "]"}], "]"}], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"choices", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Tooltip", "[", 
              RowBox[{"#", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"data", "[", "#", "]"}], "\[LeftDoubleBracket]", 
                  "1", "\[RightDoubleBracket]"}], ",", "Italic"}], "]"}]}], 
              "]"}], "&"}], "/@", 
            RowBox[{"Keys", "[", "data", "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"mixed", "=", 
           RowBox[{"RandomSample", "[", "choices", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"ans", "=", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"mixed", ",", 
              RowBox[{
              "choices", "\[LeftDoubleBracket]", "1", 
               "\[RightDoubleBracket]"}]}], "]"}], "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"InputForm", "[", 
           RowBox[{"{", 
            RowBox[{"q", ",", "ans", ",", "mixed", ",", "picTransit"}], "}"}],
            "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", "2", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"prop", "=", 
           RowBox[{"RandomChoice", "[", 
            InterpretationBox[
             DynamicModuleBox[{Typeset`open = False}, 
              TemplateBox[{"List", "ListIcon", 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Head: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["List", "IconizedItem"]}]}, {
                   RowBox[{
                    TagBox["\"Dimensions: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "IconizedItem"]}]}, {
                   RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["1608", "IconizedItem"]}]}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                Dynamic[Typeset`open]},
               "IconizedObject"]],
             {{
               EntityProperty["Plant", "MatureHeight"], "Feet"}, {
               EntityProperty["Plant", "MaximumPrecipitation"], "Inches"/
               "Years"}, {
               EntityProperty["Plant", "MinimumFrostFreeDays"], "Days"}, {
               EntityProperty["Plant", "MinimumRootDepth"], "Inches"}, {
               EntityProperty["Plant", "MatureHeightBaseAgeMaximum"], 
               "Feet"}, {
               EntityProperty["Plant", "MinimumTemperature"], 
               "DegreesFahrenheit"}},
             SelectWithContents->True,
             Selectable->False], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"data", "=", 
           RowBox[{
            RowBox[{"RandomEntity", "[", 
             RowBox[{
              RowBox[{"EntityClass", "[", 
               RowBox[{"\"\<Plant\>\"", ",", 
                RowBox[{
                 RowBox[{
                 "prop", "\[LeftDoubleBracket]", "1", 
                  "\[RightDoubleBracket]"}], "\[Rule]", 
                 RowBox[{"Quantity", "[", 
                  RowBox[{
                   RowBox[{"Interval", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "\[Infinity]"}], "}"}], "]"}], ",", 
                   RowBox[{
                   "prop", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "]"}]}]}], "]"}], ",", "4"}],
              "]"}], "//", 
            RowBox[{
             RowBox[{"EntityValue", "[", 
              RowBox[{"#", ",", 
               RowBox[{"{", 
                RowBox[{
                "prop", "\[LeftDoubleBracket]", "1", 
                 "\[RightDoubleBracket]"}], "}"}], ",", 
               "\"\<EntityAssociation\>\""}], "]"}], "&"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"barDat", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], "&"}], "/@", 
            RowBox[{"Values", "[", "data", "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"ord", "=", 
           RowBox[{"RandomInteger", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"cols", "=", 
           RowBox[{"Insert", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"RGBColor", "[", 
                RowBox[{"Append", "[", 
                 RowBox[{
                  RowBox[{"Append", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"RandomReal", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"Min", "[", "#", "]"}]}], "}"}], "]"}]}], "]"}], 
                  ",", ".4"}], "]"}], "]"}], "&"}], "/@", 
              RowBox[{"Partition", "[", 
               RowBox[{
                RowBox[{"RandomReal", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "1"}], "}"}], ",", "6"}], "]"}], ",", 
                "2"}], "]"}]}], ",", "Blue", ",", "ord"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"pic", "=", 
           RowBox[{"BarChart", "[", 
            RowBox[{"barDat", ",", "\[IndentingNewLine]", 
             RowBox[{"PlotLabel", "\[Rule]", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"CommonName", "[", 
                 RowBox[{
                 "prop", "\[LeftDoubleBracket]", "1", 
                  "\[RightDoubleBracket]"}], "]"}], ",", "25"}], "]"}]}], ",",
              "\[IndentingNewLine]", 
             RowBox[{"ChartStyle", "\[Rule]", "cols"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"LabelStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"15", ",", "Black"}], "}"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"AspectRatio", "\[Rule]", 
              FractionBox["9", "8"]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", "480", "}"}], ",", 
                RowBox[{"{", "540", "}"}]}], "}"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
          "q", "=", 
           "\"\<These four plants are represented in the graph. Which one is \
the blue bar?\>\""}], ";", "\[IndentingNewLine]", 
          RowBox[{"choices", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"CommonName", "[", "#", "]"}], "&"}], "/@", 
            RowBox[{"Keys", "[", "data", "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"mixed", "=", 
           RowBox[{"RandomSample", "[", "choices", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"ans", "=", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"mixed", ",", 
              RowBox[{
              "choices", "\[LeftDoubleBracket]", "ord", 
               "\[RightDoubleBracket]"}]}], "]"}], "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"InputForm", "[", 
           RowBox[{"{", 
            RowBox[{"q", ",", "ans", ",", "mixed", ",", "pic"}], "}"}], 
           "]"}]}]}], "]"}], "&"}]}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", "\"\<CS_pack_Biol15\>\"", ",", 
   RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.703013691993991*^9, 3.70301371891656*^9}, {
   3.7030157304357777`*^9, 3.703015855007681*^9}, {3.70301594957454*^9, 
   3.7030160051992273`*^9}, {3.703016150432181*^9, 3.703016201800363*^9}, {
   3.703016280437087*^9, 3.70301634195035*^9}, {3.703016404441555*^9, 
   3.703016571194407*^9}, 3.703016627102504*^9, {3.703016807621973*^9, 
   3.703016865136441*^9}, {3.7030169462530746`*^9, 3.703017026439951*^9}, {
   3.703066085355893*^9, 3.703066174253463*^9}, {3.703066378704157*^9, 
   3.7030665095020247`*^9}, {3.7030666332860403`*^9, 3.703066644509494*^9}, {
   3.7030667041767483`*^9, 3.703066788779662*^9}, {3.703066821045514*^9, 
   3.7030668450628138`*^9}, {3.70306701287271*^9, 3.7030671081551037`*^9}, {
   3.703067188318468*^9, 3.703067253554731*^9}, {3.703067284807364*^9, 
   3.70306730033274*^9}, {3.7030673612001753`*^9, 3.703067452683928*^9}, {
   3.70306751990555*^9, 3.703067561104991*^9}, {3.70306787483326*^9, 
   3.7030678895294533`*^9}, {3.703068008194243*^9, 3.7030680804193163`*^9}, {
   3.703068193087861*^9, 3.703068269076839*^9}, {3.703068367651373*^9, 
   3.703068427956455*^9}, {3.703068542867403*^9, 3.703068584731975*^9}, {
   3.703068658530609*^9, 3.7030687246904793`*^9}, {3.7030688069114227`*^9, 
   3.7030688670018587`*^9}, {3.703068920375341*^9, 3.7030689797831993`*^9}, {
   3.703069038980282*^9, 3.703069094388926*^9}, {3.7030692728394117`*^9, 
   3.703069322904125*^9}, {3.7030694739776487`*^9, 3.703069510936586*^9}, {
   3.7030695469152317`*^9, 3.703069561699336*^9}, 3.7030696367366323`*^9, {
   3.703069670818022*^9, 3.70306974121262*^9}, {3.703069788342484*^9, 
   3.703069800359696*^9}, {3.703069973794236*^9, 3.703070034939397*^9}, {
   3.703070304474564*^9, 3.703070363595339*^9}, {3.7030704008292227`*^9, 
   3.703070407948859*^9}, {3.703070538222054*^9, 3.703070539755466*^9}, {
   3.703074235034*^9, 3.7030742919861383`*^9}, {3.703074439652656*^9, 
   3.703074490875811*^9}, {3.703074636565323*^9, 3.703074701334341*^9}, {
   3.703074927507551*^9, 3.703074968579269*^9}, {3.703075113187299*^9, 
   3.703075114841907*^9}, {3.703075434410406*^9, 3.703075486572344*^9}, {
   3.703075634053434*^9, 3.703075681725863*^9}, {3.7030757478357477`*^9, 
   3.7030757987709503`*^9}, {3.703076084443288*^9, 3.703076132779614*^9}, {
   3.703076232666266*^9, 3.7030763014835443`*^9}, {3.703076393346229*^9, 
   3.703076461187648*^9}, {3.703076529511367*^9, 3.703076667373806*^9}, {
   3.70307688652394*^9, 3.7030769399897203`*^9}, {3.703077008585548*^9, 
   3.7030770503310137`*^9}, {3.703077221925913*^9, 3.7030772943030148`*^9}, {
   3.703077420157484*^9, 3.703077434678514*^9}, {3.703077472863586*^9, 
   3.703077500384687*^9}, {3.703077997465887*^9, 3.7030780655002003`*^9}, {
   3.70307823437222*^9, 3.7030782942874613`*^9}, {3.7030783418836184`*^9, 
   3.7030784085402737`*^9}, {3.7030785077634*^9, 3.703078558099826*^9}, {
   3.703078634465496*^9, 3.7030787004028873`*^9}, {3.703078798561502*^9, 
   3.7030788750113564`*^9}, {3.703079124425167*^9, 3.7030791904822073`*^9}, {
   3.703079294720542*^9, 3.703079371699625*^9}, {3.7030795098666277`*^9, 
   3.703079549083851*^9}, {3.7030796802521048`*^9, 3.703079701755513*^9}, {
   3.703079732899975*^9, 3.703079790000195*^9}, {3.703079897688487*^9, 
   3.703079964567836*^9}, {3.703081409949486*^9, 3.703081484462535*^9}, {
   3.703081738116322*^9, 3.7030818162295723`*^9}, {3.703081901067006*^9, 
   3.703081939443407*^9}, {3.70308197153304*^9, 3.703081976012311*^9}, {
   3.703082155975054*^9, 3.703082238600172*^9}, {3.703082272651973*^9, 
   3.703082361365819*^9}, {3.703082454572103*^9, 3.70308251683743*^9}, {
   3.70308266640895*^9, 3.703082715525297*^9}, {3.703082778410915*^9, 
   3.703082835491701*^9}, {3.7030830208304863`*^9, 3.703083081654958*^9}, {
   3.703083120596505*^9, 3.703083169388255*^9}, {3.703083385921834*^9, 
   3.7030834202002363`*^9}, {3.7030835963139277`*^9, 3.703083625993396*^9}, {
   3.7030837167762127`*^9, 3.703083775305066*^9}, {3.70308381886069*^9, 
   3.703083881550159*^9}, {3.703083935882642*^9, 3.703084009740247*^9}, {
   3.7030840992839737`*^9, 3.7030841475552807`*^9}, {3.7030842271849833`*^9, 
   3.703084293674089*^9}, {3.703084343998556*^9, 3.7030844088075943`*^9}, {
   3.703084517842599*^9, 3.703084586304508*^9}, {3.703084737209177*^9, 
   3.703084807050653*^9}, {3.703084879159974*^9, 3.703084946937736*^9}, {
   3.70308506599586*^9, 3.7030851309377337`*^9}, {3.70308519203176*^9, 
   3.7030852414237957`*^9}, {3.703085404129257*^9, 3.7030854505300093`*^9}, {
   3.7030855217665577`*^9, 3.703085581456161*^9}, {3.703085649852952*^9, 
   3.703085709134138*^9}, {3.703085762552272*^9, 3.703085817556099*^9}, {
   3.703085904001433*^9, 3.703085958290687*^9}, {3.703086027575384*^9, 
   3.703086042055101*^9}, {3.703086103700851*^9, 3.703086140138846*^9}, {
   3.703087564744533*^9, 3.703087620578993*^9}, {3.7030877107598248`*^9, 
   3.703087785530154*^9}, {3.703087868591557*^9, 3.703087918271956*^9}, {
   3.7030880100936527`*^9, 3.703088062791123*^9}, {3.7030881514927063`*^9, 
   3.703088198156942*^9}, {3.7030883108762493`*^9, 3.703088361638213*^9}, {
   3.703088476573763*^9, 3.703088538037656*^9}, {3.7030885985466003`*^9, 
   3.703088649170127*^9}, {3.703088706279337*^9, 3.703088762440421*^9}, {
   3.7030888144527073`*^9, 3.703088856605126*^9}, {3.703089166244417*^9, 
   3.703089208044935*^9}, {3.703089351029664*^9, 3.703089409726075*^9}, {
   3.703089530526239*^9, 3.7030895795670757`*^9}, {3.703089756969248*^9, 
   3.703089806409382*^9}, {3.703090008893319*^9, 3.703090067422213*^9}, {
   3.703090194989901*^9, 3.703090268343471*^9}, {3.703090345748664*^9, 
   3.70309039902528*^9}, 3.703090445635844*^9, {3.703090541509555*^9, 
   3.7030905897191477`*^9}, {3.7030928391398897`*^9, 3.703092906446883*^9}, {
   3.703092997044404*^9, 3.703093067662653*^9}, {3.703093139339202*^9, 
   3.703093188524597*^9}, {3.7030932564660063`*^9, 3.703093336387556*^9}, {
   3.7030934234342422`*^9, 3.703093473794424*^9}, {3.703093642333274*^9, 
   3.703093689060665*^9}, {3.7030937826025887`*^9, 3.703093824491333*^9}, {
   3.703093997766624*^9, 3.703094051734373*^9}, {3.703094115395772*^9, 
   3.703094173564077*^9}, {3.703094287834807*^9, 3.703094332675921*^9}, {
   3.703094709880588*^9, 3.703094763128482*^9}, {3.70309480128483*^9, 
   3.70309483984431*^9}, {3.7030948867050037`*^9, 3.703094929392536*^9}, {
   3.703095055697435*^9, 3.7030951170495033`*^9}, {3.703095156957858*^9, 
   3.7030952036856403`*^9}, {3.703095247588048*^9, 3.703095299122306*^9}, {
   3.7030953919937572`*^9, 3.7030954546499033`*^9}, {3.70309562093235*^9, 
   3.703095667468261*^9}, {3.703095712504642*^9, 3.7030957738252573`*^9}, {
   3.703095859910763*^9, 3.7030959153520517`*^9}, {3.7030960055496807`*^9, 
   3.703096048374448*^9}, {3.703096126084651*^9, 3.703096206558277*^9}, {
   3.703096364228232*^9, 3.703096388432152*^9}, {3.703098297570321*^9, 
   3.7030983054672613`*^9}, {3.703098576114719*^9, 3.703098618194284*^9}, {
   3.703098722640547*^9, 3.703098739231844*^9}, {3.703098780939904*^9, 
   3.703098782547394*^9}, 3.703099023232609*^9, {3.7030991040506*^9, 
   3.703099112514845*^9}, {3.703099216888255*^9, 3.703099220791951*^9}, 
   3.7030993262773943`*^9, {3.703099407351769*^9, 3.703099409983509*^9}, {
   3.7030994636755867`*^9, 3.703099480364284*^9}, {3.7030996517723923`*^9, 
   3.703099688351398*^9}, {3.703099740122445*^9, 3.703099812026185*^9}, {
   3.703099861182378*^9, 3.7030998884061832`*^9}, {3.7031003380930023`*^9, 
   3.703100340787643*^9}, {3.703100399494939*^9, 3.703100502003687*^9}, {
   3.703100643477562*^9, 3.70310066892521*^9}, {3.703100702407324*^9, 
   3.703100714485489*^9}, {3.703100779114854*^9, 3.703100825995079*^9}, {
   3.7031009289074793`*^9, 3.7031010106358433`*^9}, {3.703101177174012*^9, 
   3.703101296673923*^9}, {3.703101371584787*^9, 3.7031014193995953`*^9}, {
   3.7031027649128723`*^9, 3.7031029055423527`*^9}, {3.703102959772649*^9, 
   3.703102976283662*^9}, {3.703104319870926*^9, 3.7031043212949133`*^9}, {
   3.703104411176342*^9, 3.7031044192552958`*^9}, {3.70310447822159*^9, 
   3.703104515523531*^9}, {3.703104551936482*^9, 3.70310459611273*^9}, {
   3.703104713614839*^9, 3.703104742584133*^9}, {3.703105053918831*^9, 
   3.703105061173327*^9}, {3.7031568764083023`*^9, 3.703156901871567*^9}, {
   3.7031569674109077`*^9, 3.703157026357395*^9}, {3.703157121782011*^9, 
   3.703157154051922*^9}, {3.703157185272975*^9, 3.703157275026106*^9}, {
   3.703157315004345*^9, 3.703157357967906*^9}, {3.703157445805475*^9, 
   3.7031574902766027`*^9}, {3.7031584286531887`*^9, 3.703158508417314*^9}, {
   3.703158564637699*^9, 3.7031586162467012`*^9}, {3.703158754615013*^9, 
   3.70315885025805*^9}, {3.7031589994416533`*^9, 3.703159070459469*^9}, {
   3.703159108533638*^9, 3.7031592072899933`*^9}, {3.70315978550601*^9, 
   3.703159873454788*^9}, 3.703174689984057*^9, {3.703174725085606*^9, 
   3.7031748736730003`*^9}, {3.703174991985751*^9, 3.703175027968528*^9}, {
   3.703175106007966*^9, 3.703175115996951*^9}, {3.703175154957507*^9, 
   3.7031752143343973`*^9}, {3.7031752573753033`*^9, 
   3.7031752918401213`*^9}, {3.703175659129394*^9, 3.703175768885573*^9}, {
   3.7031758239045753`*^9, 3.7031758789710827`*^9}, {3.7031759441136436`*^9, 
   3.703176060052554*^9}, {3.703176104246653*^9, 3.703176104846307*^9}, {
   3.703176176387807*^9, 3.703176182402514*^9}, {3.7031762143996267`*^9, 
   3.703176214748022*^9}, {3.703176252088571*^9, 3.7031763000484447`*^9}, {
   3.703177341518855*^9, 3.703177422000286*^9}, {3.703177484646242*^9, 
   3.7031775342533407`*^9}, {3.703177612116639*^9, 3.703177651963109*^9}, {
   3.703177755058916*^9, 3.7031777585203457`*^9}, {3.70317787644002*^9, 
   3.703177878751992*^9}, {3.70317799978327*^9, 3.703178001202384*^9}, {
   3.703178032735827*^9, 3.703178047803521*^9}, {3.7031785969079113`*^9, 
   3.703178616024596*^9}, {3.703178680719717*^9, 3.70317879824187*^9}, {
   3.703179226779414*^9, 3.7031792285511723`*^9}, {3.703240465477084*^9, 
   3.703240471951412*^9}, {3.7032405037084627`*^9, 3.703240522434061*^9}, {
   3.70324056302986*^9, 3.7032405682620153`*^9}, {3.7032406016664877`*^9, 
   3.703240718779868*^9}, {3.703241213671009*^9, 3.7032412583457108`*^9}, {
   3.703241439699929*^9, 3.7032414432890997`*^9}, {3.703241503070232*^9, 
   3.703241566755134*^9}, {3.703241708595953*^9, 3.703241755603188*^9}, {
   3.7032423838436327`*^9, 3.703242413017928*^9}, {3.703242445309362*^9, 
   3.7032426169846067`*^9}, {3.703242697731782*^9, 3.7032427547896357`*^9}, {
   3.703242942263397*^9, 3.7032429608128033`*^9}, {3.7032429991671343`*^9, 
   3.703243071444764*^9}, {3.703243140734394*^9, 3.70324328818134*^9}, {
   3.703243329851286*^9, 3.703243407146902*^9}, {3.703243615336947*^9, 
   3.703243634787695*^9}, {3.7667514815758467`*^9, 3.766751771601206*^9}, {
   3.7667518646130743`*^9, 3.766751878073599*^9}, {3.791493029351059*^9, 
   3.791493117866537*^9}, {3.791493240220029*^9, 3.7914933427781563`*^9}, 
   3.7914933974188433`*^9, {3.7914934293782673`*^9, 3.791493688152375*^9}, {
   3.791648007190197*^9, 3.791648017922668*^9}, {3.791648247760125*^9, 
   3.791648281682366*^9}, {3.791648762633484*^9, 3.7916488056879587`*^9}, 
   3.791649226073455*^9, {3.7916492607527323`*^9, 3.7916493013374557`*^9}, 
   3.7916498544049664`*^9, {3.7916501578461447`*^9, 3.791650161028351*^9}, {
   3.791650279645009*^9, 3.791650346555925*^9}, {3.791650446286249*^9, 
   3.791650492163343*^9}, {3.791650528598199*^9, 3.791650531934976*^9}, {
   3.791650586500098*^9, 3.791650592066904*^9}, {3.7916506634301033`*^9, 
   3.7916508236423063`*^9}, {3.7916508591897306`*^9, 
   3.7916508599939404`*^9}, {3.791650900395216*^9, 3.791651009570015*^9}, {
   3.7916511456348886`*^9, 3.791651151641654*^9}, {3.7916511960021257`*^9, 
   3.791651269384879*^9}, {3.791651332644596*^9, 3.791651334656909*^9}, {
   3.791651418058619*^9, 3.7916514213043823`*^9}, {3.791651574385841*^9, 
   3.7916516273278427`*^9}, {3.791651662441547*^9, 3.791651718191862*^9}, {
   3.79165187527277*^9, 3.7916519188550663`*^9}, {3.791652009144305*^9, 
   3.7916521652061167`*^9}, {3.791652204566123*^9, 3.791652210446251*^9}, {
   3.791652253054844*^9, 3.791652277541449*^9}, {3.791652453431889*^9, 
   3.791652486246737*^9}, {3.791652659773508*^9, 3.7916526787488537`*^9}, {
   3.791652742135553*^9, 3.7916527587913837`*^9}, 3.791652837869318*^9, {
   3.791653000444789*^9, 3.7916530180205584`*^9}, {3.791653076307743*^9, 
   3.791653158450799*^9}, {3.79165321362169*^9, 3.7916532213951063`*^9}, {
   3.79165326859475*^9, 3.791653331523382*^9}, {3.791653387250647*^9, 
   3.791653422353551*^9}, {3.7916535114430532`*^9, 3.791653561401306*^9}, {
   3.791653594578656*^9, 3.7916536068570347`*^9}, {3.791653763273885*^9, 
   3.7916537754487762`*^9}, {3.7916538671214457`*^9, 3.791653868179019*^9}, {
   3.791653899866095*^9, 3.79165394758414*^9}, {3.791654036530963*^9, 
   3.791654037271845*^9}, {3.7916540868677673`*^9, 3.7916541438396473`*^9}, {
   3.7916541746812553`*^9, 3.7916541799040747`*^9}, {3.791654210947448*^9, 
   3.7916542395060873`*^9}, {3.7916543146967077`*^9, 3.79165437311236*^9}, {
   3.79165441926458*^9, 3.791654466998543*^9}, 3.7916544974902563`*^9, {
   3.79165456641636*^9, 3.791654570478174*^9}, {3.791654627240328*^9, 
   3.791654633800398*^9}, {3.791654680824892*^9, 3.791654721527565*^9}, {
   3.791654752842309*^9, 3.791654783173682*^9}, {3.7916548298938932`*^9, 
   3.79165484107817*^9}, {3.791654899606081*^9, 3.791654906885281*^9}, {
   3.791654994287189*^9, 3.7916549950612993`*^9}, {3.7916552290294533`*^9, 
   3.791655243860071*^9}, {3.791655373012884*^9, 3.7916553910363197`*^9}, {
   3.791655439044709*^9, 3.791655443571219*^9}, {3.791655516845063*^9, 
   3.791655519068564*^9}, {3.791655582437029*^9, 3.7916555957629232`*^9}, {
   3.791655632838354*^9, 3.791655666714479*^9}, {3.791655752149076*^9, 
   3.79165578520564*^9}, 3.791655823588431*^9, {3.791655871540925*^9, 
   3.791655877962241*^9}, {3.79165597433993*^9, 3.791656010681374*^9}, {
   3.791656082475738*^9, 3.791656118346788*^9}, {3.791656336426816*^9, 
   3.7916563689084063`*^9}, {3.7916564233780737`*^9, 3.791656477704323*^9}, {
   3.791656752161622*^9, 3.791656804681664*^9}, {3.791656930207893*^9, 
   3.79165694435074*^9}, 3.791657071047814*^9, {3.791657108199477*^9, 
   3.791657151334242*^9}, {3.7916571875588512`*^9, 3.791657221334066*^9}, {
   3.791657652762226*^9, 3.791657710452347*^9}, {3.7946538046300898`*^9, 
   3.794653813131817*^9}, {3.7946538558309383`*^9, 3.79465386483617*^9}},
 CellLabel->
  "In[873]:=",ExpressionUUID->"4602d75b-a490-4b8b-b987-5b165446fe25"]
},
WindowSize->{1878, 1316},
WindowMargins->{{1, Automatic}, {Automatic, 0}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 13, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"adeb6146-7107-4a0c-aadf-2c2462f84598"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 42900, 786, 1070, "Input",ExpressionUUID->"4602d75b-a490-4b8b-b987-5b165446fe25"]
}
]
*)