CS_packNB_Chem9.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     29730,        544]
NotebookOptionsPosition[     29286,        528]
NotebookOutlinePosition[     29775,        546]
CellTagsIndexPosition[     29732,        543]
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[{"ents", "=", 
           RowBox[{"RandomSample", "[", 
            RowBox[{
             InterpretationBox[
              DynamicModuleBox[{Typeset`open = False}, 
               TemplateBox[{"List", "ListIcon", 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Head: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["List", "IconizedItem"]}]}, {
                    RowBox[{
                    TagBox["\"Length: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["103", "IconizedItem"]}]}, {
                    RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["15264", "IconizedItem"]}]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 Dynamic[Typeset`open]},
                "IconizedObject"]],
              {
               Entity["Chemical", "Adamantane"], 
               Entity["Chemical", "Aicar"], 
               Entity["Chemical", "AlphaTocopherolAcetate"], 
               Entity["Chemical", "AlphaToluenesulfonamide"], 
               Entity["Chemical", "3Aminobiphenyl"], 
               Entity["Chemical", "Amisulpride"], 
               Entity["Chemical", "Azacyclonol"], 
               Entity["Chemical", "Azoxystrobin"], 
               Entity["Chemical", "BenzeneD1"], 
               Entity["Chemical", "BenzylCyanoformate"], 
               Entity["Chemical", "NBenzylhomopiperazine"], 
               Entity["Chemical", "Bepridil"], 
               Entity["Chemical", "Bioguard"], 
               Entity["Chemical", "4Bromobutyronitrile"], 
               Entity["Chemical", "Bromocyclopropane"], 
               Entity["Chemical", "3Bromo7Nitroindazole"], 
               Entity["Chemical", "1Bromononane"], 
               Entity["Chemical", "4Bromopyrazole"], 
               Entity["Chemical", "AlphaBromostyrene"], 
               Entity["Chemical", "ButylAcrylate"], 
               Entity["Chemical", "ButylPropylSulfide"], 
               Entity["Chemical", "Caffeine"], 
               Entity["Chemical", "CarbonTetrachloride"], 
               Entity["Chemical", "Chloroacetaldehyde"], 
               Entity["Chemical", "3ChloropropionylChloride"], 
               Entity["Chemical", "2Chloro4Methylaniline"], 
               Entity["Chemical", "Chlorphenesin"], 
               Entity["Chemical", "Chlorotrifluoroethylene"], 
               Entity["Chemical", "ChrysanthemylAlcohol"], 
               Entity["Chemical", "3Hydroxy4MethylbenzoicAcid"], 
               Entity["Chemical", "Cyanophos"], 
               Entity["Chemical", "Cyclopropane"], 
               Entity["Chemical", "Cyclopentadecanol"], 
               Entity["Chemical", "Darifenacin"], 
               Entity["Chemical", "1,1Dibromoethane"], 
               Entity["Chemical", "Dichloroanthrarufin"], 
               Entity["Chemical", "DicyclopropylKetone"], 
               Entity["Chemical", "DiethylBenzoylphosphonate"], 
               Entity["Chemical", "DihydrolipoicAcid"], 
               Entity["Chemical", "Dimethenamid"], 
               Entity["Chemical", "Xylenes"], 
               Entity["Chemical", "DimethylDibromomalonate"], 
               Entity["Chemical", "Dioxacarb"], 
               Entity["Chemical", "Dipyridamole"], 
               Entity["Chemical", "Diuron"], 
               Entity["Chemical", "Doxycycline"], 
               Entity["Chemical", "2EthoxycinnamicAcid"], 
               Entity["Chemical", "NEthylbenzylamine"], 
               Entity["Chemical", "DiethylCarbonate"], 
               Entity["Chemical", "Flunitrazepam"], 
               Entity["Chemical", "3FluorobenzalBromide"], 
               Entity["Chemical", "3FluorobenzoicAcid"], 
               Entity["Chemical", "Formanilide"], 
               Entity["Chemical", "Furethidine"], 
               Entity["Chemical", "Furan"], 
               Entity["Chemical", "Heptabarbital"], 
               Entity["Chemical", "HexylTiglate"], 
               Entity["Chemical", "3Hydroxycoumarin"], 
               Entity["Chemical", "3HydroxyphthalicAnhydride"], 
               Entity["Chemical", "Iodoform"], 
               Entity["Chemical", "Iodopyrazine"], 
               Entity["Chemical", "IsobutylCinnamate"], 
               Entity["Chemical", "IsononylAcetate"], 
               Entity["Chemical", "Maclurin"], 
               Entity["Chemical", "Maprotiline"], 
               Entity[
               "Chemical", 
                "Tetramethyl2,6Dihydroxybicyclonona2,6Diene1,3,5,\
7Tetracarboxylate"], 
               Entity["Chemical", "MesoxalicAcid"], 
               Entity["Chemical", "Methane"], 
               Entity["Chemical", "DimethylCarbonate"], 
               Entity["Chemical", "9Methylfluorene"], 
               Entity["Chemical", "MethylNicotinoylacetate"], 
               Entity["Chemical", "MethylPentafluorobenzoate"], 
               Entity["Chemical", "6Nitrochromone"], 
               Entity["Chemical", "4NitrocinnamylAlcohol"], 
               Entity["Chemical", "NojirimycineTetrazole"], 
               Entity["Chemical", "1Nonyne"], 
               Entity["Chemical", "OctylGallate"], 
               Entity["Chemical", "Phentermine"], 
               Entity["Chemical", "2PhenylbenzylBromide"], 
               Entity["Chemical", "4PhenylbutyricAcid"], 
               Entity["Chemical", "NPhenylthiourea"], 
               Entity["Chemical", "Pipecuronium"], 
               Entity["Chemical", "Piracetam"], 
               Entity["Chemical", "Promethazine"], 
               Entity["Chemical", "Propachlor"], 
               Entity["Chemical", "Proparacaine"], 
               Entity["Chemical", "HexylPropionate"], 
               Entity["Chemical", "4Propylheptane"], 
               Entity["Chemical", "4Pyridinepropanol"], 
               Entity["Chemical", "RubratoxinB"], 
               Entity["Chemical", "Salicylamide"], 
               Entity["Chemical", "SecOctanol"], 
               Entity["Chemical", "SilatraneGlycol"], 
               Entity["Chemical", "Squalane"], 
               Entity["Chemical", "NThionylaniline"], 
               Entity["Chemical", "TartronicAcid"], 
               Entity["Chemical", "3,4,5,6Tetrachloro1,2Benzoquinone"], 
               Entity["Chemical", "Thymine"], 
               Entity["Chemical", "STriazine"], 
               Entity["Chemical", "Triamcinolone"], 
               Entity["Chemical", "Chlorotributylsilane"], 
               Entity["Chemical", "TripropylPhosphate"], 
               Entity["Chemical", "Verbenalin"]},
              SelectWithContents->True,
              Selectable->False], ",", "4"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
          "q", "=", 
           "\"\<The image shows a structure plot for which of these \
chemicals?\>\""}], ";", "\[IndentingNewLine]", 
          RowBox[{"pic", "=", 
           RowBox[{
            RowBox[{"EntityValue", "[", 
             RowBox[{
              RowBox[{
              "ents", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
              ",", "\"\<MoleculePlot\>\""}], "]"}], "/.", 
            RowBox[{
             RowBox[{"Rule", "[", 
              RowBox[{"ImageSize", ",", "_"}], "]"}], "\[Rule]", 
             RowBox[{"Rule", "[", 
              RowBox[{"ImageSize", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "480", "}"}], ",", 
                 RowBox[{"{", "540", "}"}]}], "}"}]}], "]"}]}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"choices", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"EntityValue", "[", 
              RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
            "ents"}]}], ";", "\[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", ",", "pic"}], "}"}], 
           "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", "2", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"data", "=", 
           InterpretationBox[
            DynamicModuleBox[{Typeset`open = False}, 
             TemplateBox[{"Association", "AssociationIcon", 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Head: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["Association", "IconizedItem"]}]}, {
                  RowBox[{
                    TagBox["\"Length: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["16", "IconizedItem"]}]}, {
                  RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["7624", "IconizedItem"]}]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
                "Column", 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               Dynamic[Typeset`open]},
              "IconizedObject"]],
            Association[
            Black -> {"carbon (C)"}, Blue -> {"nitrogen (N)"}, 
             Cyan -> {
              "helium (He)", "neon (Ne)", "argon (Ar)", "xenon (Xe)", 
               "krypton (Kr)"}, 
             Darker[Green, 0.5] -> {
              "beryllium (Be)", "magnesium (Mg)", "calcium (Ca)", 
               "strontium (Sr)", "barium (Ba)", "radium (Ra)"}, 
             Darker[Red, 0.5] -> {"bromine (Br)"}, 
             Darker[Orange, 0.5] -> {"iron (Fe)"}, Gray -> {"titanium (Ti)"}, 
             Green -> {"fluorine (F)", "chlorine (Cl)"}, 
             Orange -> {"phosphorus (P)"}, 
             Pink -> {
              "aluminum (Al)", "silicon (Si)", "selenium (Se)", "indium (In)",
                "tin (Sn)", "antimony (Sb)", "tellurium (Te)", "cerium (Ce)", 
               "praseodymium (Pr)", "neodymium (Nd)", "promethium (Pm)", 
               "samarium (Sm)", "europium (Eu)", "gadolinium (Gd)", 
               "terbium (Tb)", "dysprosium (Dy)", "holmium (Ho)", 
               "erbium (Er)", "thulium (Tm)", "ytterbium (Yb)", 
               "lutetium (Lu)", "polonium (Po)", "astatine (At)", 
               "radon (Rn)", "actinium (Ac)", "thorium (Th)", 
               "proactinium (Pa)", "uranium (U)", "neptunium (Np)", 
               "plutonium (Pu)", "americium (Am)", "curium (Cm)", 
               "berkelium (Bk)", "californium (Cf)", "einsteinium (Es)", 
               "Fermium (Fm)", "mendelevium (Md)", "nobelium (No)", 
               "lawrencium (Lr)", "nihonium (Nh)", "flerovium (Fl)", 
               "moscovium (Mc)", "livermorium (Lv}", "tennessine (Ts)", 
               "organesson (Og)"}, Red -> {"oxygen (O)"}, 
             RGBColor["#9400D3"] -> {"iodine (I)"}, 
             RGBColor["#8F00FF"] -> {
              "lithium (Li)", "sodium (Na)", "potassium (K)", "rubidium (Rb)",
                "caesium (Cs)", "francium (Fr)"}, 
             RGBColor["#F5F5DC"] -> {
              "boron (B)", "scandium (Sc)", "vanadium (V)", "chromium (Cr)", 
               "manganese (Mn)", "cobalt (Co)", "nickel (Ni)", "copper (Cu)", 
               "zinc (Zn)", "yttrium (Y)", "zironium (Zr)", "niobium (Nb)", 
               "molybdenum (Mo)", "technetium (Tc)", "ruthenium (Ru)", 
               "rhodium (Rh)", "palladium (Pd)", "silver (Ag)", 
               "cadmium (Cd)", "lanthanum (La)", "hafnium (Hf)", 
               "tantalum (Ta)", "tungsten (W)", "rhenium (Re)", "osmium (Os)",
                "iridium (Ir)", "platinum (Pt)", "gold (Au)", "mercury (Hg)", 
               "rutherfordium (Rf)", "dubnium (Db)", "seaborgium (Sg)", 
               "bohrium (Bh)", "hassium (Hs)", "meitnerium (Mt)", 
               "darmstadtium (Ds}", "roentgenium (Rg)", "copernicium (Cn)"}, 
             White -> {"hydrogen (H)"}, Yellow -> {"sulfur (S)"}],
            SelectWithContents->True,
            Selectable->False]}], ";", "\[IndentingNewLine]", 
          RowBox[{"dat1", "=", 
           RowBox[{"RandomSample", "[", 
            RowBox[{"data", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"col", "=", 
           RowBox[{
            RowBox[{"Keys", "[", "dat1", "]"}], "\[LeftDoubleBracket]", "1", 
            "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"pic", "=", 
           RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"col", ",", 
               RowBox[{"Specularity", "[", 
                RowBox[{"White", ",", "500"}], "]"}], ",", 
               RowBox[{"Opacity", "[", ".75", "]"}], ",", 
               RowBox[{"EdgeForm", "[", "Thick", "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Dodecahedron", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1.5"}], ",", "0", ",", "0"}], "}"}], ",", 
                 "1"}], "]"}], ",", 
               RowBox[{"Opacity", "[", "1", "]"}], ",", 
               RowBox[{"Sphere", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", "1.5"}], 
                "]"}], ",", 
               RowBox[{"Cube", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"1.5", ",", "0", ",", "0"}], "}"}], ",", "2"}], 
                "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
             RowBox[{"Background", "\[Rule]", "White"}], ",", 
             RowBox[{"Lighting", "\[Rule]", "\"\<Neutral\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"ViewPoint", "\[Rule]", "Front"}], ",", 
             RowBox[{"ViewAngle", "\[Rule]", ".51"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"480", ",", "540"}], "}"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"ansStr", "=", 
           RowBox[{"RandomChoice", "[", 
            RowBox[{"data", "[", "col", "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"q", "=", 
           RowBox[{
           "StringForm", "[", 
            "\"\<The CPK convention assigns this color to which element's \
atoms?\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"dis", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"RandomChoice", "[", 
              RowBox[{"data", "[", "#", "]"}], "]"}], "&"}], "/@", 
            RowBox[{"RandomSample", "[", 
             RowBox[{
              RowBox[{"DeleteCases", "[", 
               RowBox[{
                RowBox[{"Keys", "[", "data", "]"}], ",", "col"}], "]"}], ",", 
              "3"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"choices", "=", 
           RowBox[{"Prepend", "[", 
            RowBox[{"dis", ",", "ansStr"}], "]"}]}], ";", 
          "\[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", ",", "pic"}], "}"}], 
           "]"}]}]}], "]"}], "&"}]}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", "\"\<CS_pack_Chem9\>\"", ",", 
   RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.694280296825541*^9, 3.6942803186892776`*^9}, {
   3.694281978080923*^9, 3.694282012553236*^9}, {3.6942820612703257`*^9, 
   3.694282104261957*^9}, {3.69428626591663*^9, 3.694286287508481*^9}, {
   3.694286597879176*^9, 3.6942865996845617`*^9}, {3.6942866933450737`*^9, 
   3.6942866942336063`*^9}, {3.694286800005743*^9, 3.6942868005600157`*^9}, {
   3.69428686178043*^9, 3.6942868636014233`*^9}, {3.69428695247756*^9, 
   3.6942869633173857`*^9}, {3.694287031038553*^9, 3.69428703318495*^9}, {
   3.6942872040090227`*^9, 3.694287210313591*^9}, {3.694287326802278*^9, 
   3.694287328463759*^9}, {3.6942873838209543`*^9, 3.6942873859459543`*^9}, {
   3.6942874702093477`*^9, 3.694287472070547*^9}, {3.694287580086356*^9, 
   3.6942875817639093`*^9}, {3.694287780120023*^9, 3.694287782541506*^9}, {
   3.694287846659264*^9, 3.694287855040538*^9}, {3.694287937887412*^9, 
   3.6942879496203213`*^9}, {3.694288009243636*^9, 3.694288011159943*^9}, {
   3.6942880589887*^9, 3.694288061282189*^9}, {3.694288113936386*^9, 
   3.694288115948897*^9}, {3.6942881795954437`*^9, 3.694288182896944*^9}, {
   3.694288248150516*^9, 3.694288250059966*^9}, {3.69428834269975*^9, 
   3.694288344776518*^9}, {3.694288482554659*^9, 3.6942884843112917`*^9}, {
   3.6942885833036337`*^9, 3.694288585668188*^9}, {3.694288639897725*^9, 
   3.694288642039071*^9}, {3.694288726116911*^9, 3.6942887278663893`*^9}, {
   3.694288796440269*^9, 3.6942887996456413`*^9}, {3.694288867443687*^9, 
   3.694288869729106*^9}, {3.6942889408232517`*^9, 3.694288948684864*^9}, {
   3.694288995760027*^9, 3.694288996587051*^9}, {3.694289042861225*^9, 
   3.694289044874666*^9}, {3.694289084031036*^9, 3.694289086156411*^9}, {
   3.694289148369802*^9, 3.69428915069454*^9}, {3.694289200021275*^9, 
   3.694289202249117*^9}, {3.694289323674243*^9, 3.6942893257429657`*^9}, {
   3.694289388293632*^9, 3.69428939036241*^9}, {3.6942894321759443`*^9, 
   3.6942894340610456`*^9}, {3.694289487082643*^9, 3.694289488616037*^9}, {
   3.694289539596477*^9, 3.69428954136162*^9}, {3.6942896051445503`*^9, 
   3.694289607045968*^9}, {3.694289666162641*^9, 3.694289668111627*^9}, {
   3.69428975760638*^9, 3.694289759972145*^9}, {3.694289825114695*^9, 
   3.694289827607164*^9}, {3.694289922839835*^9, 3.6942899250045223`*^9}, {
   3.694289958457156*^9, 3.69428996511024*^9}, {3.694290009924576*^9, 
   3.694290011593525*^9}, {3.694290059629162*^9, 3.694290061578858*^9}, {
   3.6942952322073603`*^9, 3.694295238476244*^9}, {3.6942953033700867`*^9, 
   3.694295306303369*^9}, {3.694295382094377*^9, 3.694295384483089*^9}, {
   3.694295470561705*^9, 3.6942954729432583`*^9}, {3.6942955200367937`*^9, 
   3.6942955226018553`*^9}, {3.694295604296135*^9, 3.694295607925787*^9}, {
   3.6942956728280773`*^9, 3.694295674720952*^9}, {3.694295727948359*^9, 
   3.694295735715839*^9}, {3.694295853261285*^9, 3.694295856770734*^9}, {
   3.694295915695225*^9, 3.694295923045013*^9}, {3.694295999900948*^9, 
   3.6942960019780693`*^9}, {3.694296052399383*^9, 3.694296054988216*^9}, {
   3.694296130106604*^9, 3.694296140273508*^9}, {3.694296179340021*^9, 
   3.694296189610042*^9}, {3.69429624194433*^9, 3.694296244893523*^9}, {
   3.69429628617771*^9, 3.694296296160365*^9}, {3.6942964055917253`*^9, 
   3.69429641538942*^9}, {3.694296868292905*^9, 3.694296891925952*^9}, {
   3.694296941136567*^9, 3.694296943310192*^9}, {3.694297000124489*^9, 
   3.694297008986126*^9}, {3.694297067936061*^9, 3.6942970871332197`*^9}, {
   3.69429713625828*^9, 3.69429714520002*^9}, {3.694297344110984*^9, 
   3.6942973865932913`*^9}, {3.694297425164434*^9, 3.6942975006315823`*^9}, {
   3.694297739028572*^9, 3.694297762807486*^9}, {3.694297805390764*^9, 
   3.694297824006019*^9}, 3.694297914028808*^9, {3.694297959074435*^9, 
   3.6942986947057037`*^9}, {3.694338876262567*^9, 3.694338965193672*^9}, {
   3.694339027201248*^9, 3.694339037286965*^9}, {3.694339212990829*^9, 
   3.694339222703143*^9}, {3.694343564658758*^9, 3.694343566575411*^9}, {
   3.6943436225016403`*^9, 3.6943436254980783`*^9}, {3.6943436981451273`*^9, 
   3.694343700181693*^9}, {3.694343776461219*^9, 3.694343778753831*^9}, {
   3.694343835616184*^9, 3.694343837252532*^9}, {3.694343924091339*^9, 
   3.6943439266645517`*^9}, {3.694344107908269*^9, 3.694344110321308*^9}, {
   3.694344567969397*^9, 3.694344569711917*^9}, {3.694344620589649*^9, 
   3.694344639002173*^9}, {3.694344676999789*^9, 3.694344678788622*^9}, {
   3.6943447280501537`*^9, 3.694344729871401*^9}, {3.6943447899885893`*^9, 
   3.694344791777875*^9}, {3.6943448927459297`*^9, 3.6943449096955853`*^9}, {
   3.694344992158535*^9, 3.6943449938836117`*^9}, {3.6943450856822968`*^9, 
   3.694345087608447*^9}, {3.694345213265353*^9, 3.694345214886435*^9}, {
   3.694345299557159*^9, 3.694345301610734*^9}, {3.6943453676093273`*^9, 
   3.694345369174247*^9}, {3.6943454332842093`*^9, 3.69434543500169*^9}, {
   3.694345472006288*^9, 3.69434547400345*^9}, {3.694345544953615*^9, 
   3.694345546759469*^9}, {3.694345633413769*^9, 3.694345637315506*^9}, {
   3.694345695576851*^9, 3.694345697734756*^9}, {3.694346872954007*^9, 
   3.6943468745837593`*^9}, {3.694346966366683*^9, 3.694346969099173*^9}, {
   3.694347009544539*^9, 3.6943470112622766`*^9}, {3.694347067851285*^9, 
   3.694347069464307*^9}, {3.6943471920090027`*^9, 3.69434719479885*^9}, {
   3.694347288325635*^9, 3.694347289803022*^9}, {3.6943473318490477`*^9, 
   3.694347333725606*^9}, {3.694347412251875*^9, 3.694347414753312*^9}, {
   3.6943474861591578`*^9, 3.694347488060897*^9}, {3.69434754491461*^9, 
   3.6943475467597713`*^9}, {3.694347605357359*^9, 3.694347607162566*^9}, {
   3.698873913562353*^9, 3.698873926462203*^9}, {3.814698337236003*^9, 
   3.8146984789996*^9}, {3.8146986366858683`*^9, 3.814698671085168*^9}, {
   3.8146987323252068`*^9, 3.8146987813973513`*^9}, {3.814698824788796*^9, 
   3.814699124694064*^9}, {3.8146992842518797`*^9, 3.814699651098816*^9}, {
   3.814699685275619*^9, 3.814699874930373*^9}, {3.814699921101472*^9, 
   3.8146999716735353`*^9}, {3.814700188793953*^9, 3.81470019688127*^9}, {
   3.814700231041729*^9, 3.814700251585211*^9}, {3.814700296113806*^9, 
   3.814700563144586*^9}, {3.814700636024591*^9, 3.814700813736145*^9}, {
   3.814700863951645*^9, 3.814701015903942*^9}, {3.814701058295411*^9, 
   3.81470110404858*^9}, {3.8147011432795258`*^9, 3.8147012524389963`*^9}, {
   3.814701283760026*^9, 3.814701384743495*^9}, {3.814701458927471*^9, 
   3.8147014754638767`*^9}, {3.814701506775474*^9, 3.8147015959750757`*^9}, {
   3.814701726639339*^9, 3.814701756454845*^9}, {3.814701799558923*^9, 
   3.8147022192295933`*^9}, {3.814702306925542*^9, 3.814702337758305*^9}, {
   3.814702371301838*^9, 3.814702455077786*^9}, {3.8147025157176867`*^9, 
   3.814702562965169*^9}, {3.814702595125235*^9, 3.8147026144608707`*^9}, {
   3.814702743317415*^9, 3.814702891028654*^9}, {3.8147029287896338`*^9, 
   3.8147029400363283`*^9}, {3.8147029858445587`*^9, 
   3.8147031016695023`*^9}, {3.814703536165292*^9, 3.814703559035221*^9}, {
   3.814703642826823*^9, 3.814703643083234*^9}, {3.814703692994709*^9, 
   3.814703720131236*^9}, {3.814703855580435*^9, 3.81470386541847*^9}, {
   3.81470391016251*^9, 3.814703910442503*^9}, {3.81470622872569*^9, 
   3.814706247582636*^9}, {3.81470633665385*^9, 3.814706379221467*^9}, {
   3.814706411037225*^9, 3.814706411797495*^9}, {3.814706455181175*^9, 
   3.814706478765332*^9}, {3.8147065358937397`*^9, 3.814706567309267*^9}, {
   3.814706648868875*^9, 3.814706665716988*^9}, {3.814706747309173*^9, 
   3.814706753172632*^9}, {3.8147067944856787`*^9, 3.814706875956399*^9}, {
   3.814706913868191*^9, 3.814706914212529*^9}, {3.814706948196219*^9, 
   3.814706959012413*^9}, {3.814707012483899*^9, 3.814707012764378*^9}, {
   3.8147070448610077`*^9, 3.81470705490799*^9}, {3.814707119379643*^9, 
   3.814707119875937*^9}, {3.814707166061854*^9, 3.81470717553211*^9}, {
   3.814707227461067*^9, 3.814707240076295*^9}, {3.814707277283518*^9, 
   3.8147072885236683`*^9}, {3.814707325995405*^9, 3.814707386283362*^9}, {
   3.8147074308286533`*^9, 3.8147074657315493`*^9}, {3.8147075218607903`*^9, 
   3.814707575978571*^9}, {3.814707622330398*^9, 3.814707630755309*^9}, {
   3.81470768323595*^9, 3.814707692034514*^9}, {3.814707728450119*^9, 
   3.81470772889044*^9}, {3.81470785276186*^9, 3.814707886946126*^9}, {
   3.814707977067615*^9, 3.814707997617992*^9}, {3.8147080624814987`*^9, 
   3.8147080870577097`*^9}, {3.8147081548571978`*^9, 3.81470818827349*^9}, {
   3.8147082474738903`*^9, 3.814708287064987*^9}, {3.814708333112912*^9, 
   3.8147083785288553`*^9}, {3.814710252204235*^9, 3.8147102649237747`*^9}, {
   3.814710373164669*^9, 3.814710417083805*^9}, {3.814710500459607*^9, 
   3.81471050091637*^9}, {3.814710553043336*^9, 3.814710559051401*^9}, {
   3.814710599851431*^9, 3.814710606195635*^9}, {3.814710687012065*^9, 
   3.814710697635811*^9}, {3.814710774147891*^9, 3.814710784187364*^9}, {
   3.8147108401544533`*^9, 3.814710863562611*^9}, {3.814710895898328*^9, 
   3.814710933946204*^9}, {3.8147109666899*^9, 3.8147109930500393`*^9}, {
   3.814711048898006*^9, 3.814711141466373*^9}, {3.814711226066113*^9, 
   3.814711241602186*^9}, {3.814711279731255*^9, 3.814711342257586*^9}, {
   3.814711378833898*^9, 3.814711404801373*^9}, {3.8147114447537193`*^9, 
   3.814711494441209*^9}, {3.814711526354191*^9, 3.814711539713046*^9}, {
   3.814711780833303*^9, 3.814711891025264*^9}, {3.814711968433445*^9, 
   3.814712146352769*^9}, {3.814712204928317*^9, 3.814712318648472*^9}, {
   3.814712368472765*^9, 3.814712385856041*^9}, {3.81471253992082*^9, 
   3.814712614696419*^9}, {3.8147126647690887`*^9, 3.814712673919271*^9}, {
   3.814712713855888*^9, 3.814712783727642*^9}, {3.814712863336532*^9, 
   3.814712874784233*^9}, {3.8147129171536407`*^9, 3.814713046855815*^9}, {
   3.8147130776710176`*^9, 3.814713190360402*^9}, {3.8147132590394897`*^9, 
   3.8147132955027447`*^9}, {3.814713347671282*^9, 3.81471343826295*^9}, {
   3.814713469959169*^9, 3.814713528510853*^9}, {3.8147136280547953`*^9, 
   3.8147136732312527`*^9}, {3.814713713717326*^9, 3.814713724588551*^9}, {
   3.814713766996982*^9, 3.814713824260165*^9}, {3.814713873173553*^9, 
   3.814713896596004*^9}, {3.814713946605383*^9, 3.8147139816202307`*^9}, {
   3.814714051245161*^9, 3.8147140536845713`*^9}, {3.8147151561934767`*^9, 
   3.814715189483305*^9}, {3.8147153612564697`*^9, 3.814715371488776*^9}, {
   3.814715483353601*^9, 3.814715494425005*^9}, {3.8147156117442293`*^9, 
   3.814715613143557*^9}, {3.814715731626597*^9, 3.814715734273628*^9}, {
   3.814715796402379*^9, 3.814715799209683*^9}, {3.81472095740012*^9, 
   3.814721004590825*^9}, {3.814721064921196*^9, 3.814721215382332*^9}, {
   3.814721279174218*^9, 3.8147213012232*^9}, {3.814721380311667*^9, 
   3.814721410390462*^9}, {3.814721462022518*^9, 3.814721482765415*^9}, 
   3.814721532730798*^9, {3.814721566470948*^9, 3.814721639229745*^9}, {
   3.8147217962936077`*^9, 3.814721796822177*^9}, 3.814721914181826*^9, 
   3.814723406100088*^9, {3.8147234399532557`*^9, 3.81472344341553*^9}, 
   3.814723490016202*^9, {3.81472356592627*^9, 3.814723593902658*^9}, {
   3.814723633343565*^9, 3.814723650647319*^9}, {3.814723684103265*^9, 
   3.814723686815255*^9}, {3.814723724023184*^9, 3.8147237382077217`*^9}, 
   3.8147238439690523`*^9, {3.814723913435317*^9, 3.8147239409584827`*^9}, 
   3.814723992526565*^9},ExpressionUUID->"17df7297-0841-4ecb-a86a-\
c54135a0311e"]
},
WindowSize->{1208, 1395},
WindowMargins->{{106, Automatic}, {Automatic, 0}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"3688ffbf-c107-40ff-8e8a-7d98c96318bf"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 28724, 506, 679, "Input",ExpressionUUID->"17df7297-0841-4ecb-a86a-c54135a0311e"]
}
]
*)