CS_packNB_Geog15.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[     38188,        713]
NotebookOptionsPosition[     37794,        698]
NotebookOutlinePosition[     38233,        715]
CellTagsIndexPosition[     38190,        712]
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["5", "IconizedItem"]}]}, {
                    RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["23768", "IconizedItem"]}]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 Dynamic[Typeset`open]},
                "IconizedObject"]],
              Association["Australia" -> {
                 Entity["Country", "Australia"], 
                 Association[
                 "Western Australia" -> 
                  Entity["AdministrativeDivision", {
                    "WesternAustralia", "Australia"}], "Northern Territory" -> 
                  Entity["AdministrativeDivision", {
                    "NorthernTerritory", "Australia"}], "South Australia" -> 
                  Entity["AdministrativeDivision", {
                    "SouthAustralia", "Australia"}], "Queensland" -> 
                  Entity[
                   "AdministrativeDivision", {"Queensland", "Australia"}], 
                  "New South Wales" -> 
                  Entity["AdministrativeDivision", {
                    "NewSouthWales", "Australia"}], "Victoria" -> 
                  Entity["AdministrativeDivision", {"Victoria", "Australia"}],
                   "Tasmania" -> 
                  Entity["AdministrativeDivision", {
                    "Tasmania", "Australia"}]]}, "Canada" -> {
                 Entity["Country", "Canada"], 
                 Association[
                 "Yukon" -> 
                  Entity["AdministrativeDivision", {
                    "YukonTerritory", "Canada"}], "British Columbia" -> 
                  Entity["AdministrativeDivision", {
                    "BritishColumbia", "Canada"}], "Northwest Territories" -> 
                  Entity["AdministrativeDivision", {
                    "NorthwestTerritories", "Canada"}], "Alberta" -> 
                  Entity["AdministrativeDivision", {"Alberta", "Canada"}], 
                  "Saskatchewan" -> 
                  Entity["AdministrativeDivision", {
                    "Saskatchewan", "Canada"}], "Manitoba" -> 
                  Entity["AdministrativeDivision", {"Manitoba", "Canada"}], 
                  "Ontario" -> 
                  Entity["AdministrativeDivision", {"Ontario", "Canada"}], 
                  "Nunavut" -> 
                  Entity["AdministrativeDivision", {"Nunavut", "Canada"}], 
                  "Quebec" -> 
                  Entity["AdministrativeDivision", {"Quebec", "Canada"}], 
                  "Newfoundland and Labrador" -> 
                  Entity["AdministrativeDivision", {
                    "NewfoundlandAndLabrador", "Canada"}], "New Brunswick" -> 
                  Entity["AdministrativeDivision", {
                    "NewBrunswick", "Canada"}], "Nova Scotia" -> 
                  Entity["AdministrativeDivision", {
                    "NovaScotia", "Canada"}]]}, "France" -> {
                 Entity["Country", "France"], 
                 Association[
                 "Grand Est" -> 
                  Entity["AdministrativeDivision", {"Alsace", "France"}], 
                  "Nouvelle-Aquitaine" -> 
                  Entity["AdministrativeDivision", {"Aquitaine", "France"}], 
                  "Auvergne-Rh\[OHat]ne-Alpes" -> 
                  Entity["AdministrativeDivision", {"Auvergne", "France"}], 
                  "Normandy" -> 
                  Entity["AdministrativeDivision", {
                    "BasseNormandie", "France"}], 
                  "Bourgogne-Franche-Comt\[EAcute]" -> 
                  Entity["AdministrativeDivision", {"Bourgogne", "France"}], 
                  "Bretagne" -> 
                  Entity["AdministrativeDivision", {"Bretagne", "France"}], 
                  "Centre-Val de Loire" -> 
                  Entity["AdministrativeDivision", {"Centre", "France"}], 
                  "Corsica" -> 
                  Entity["AdministrativeDivision", {"Corse", "France"}], 
                  "Ile-de-France" -> 
                  Entity["AdministrativeDivision", {"IleDeFrance", "France"}],
                   "Occitanie" -> 
                  Entity["AdministrativeDivision", {
                    "LanguedocRoussillon", "France"}], "Hauts-de-France" -> 
                  Entity["AdministrativeDivision", {
                    "NordPasDeCalais", "France"}], "Pays-de-la-Loire" -> 
                  Entity["AdministrativeDivision", {
                    "PaysDeLaLoire", "France"}], "Provence-Alpes-Cote-d'Azur" -> 
                  Entity["AdministrativeDivision", {
                    "ProvenceAlpesCoteDAzur", "France"}]]}, "Mexico" -> {
                 Entity["Country", "Mexico"], 
                 Association[
                 "Aguascalientes" -> 
                  Entity["AdministrativeDivision", {
                    "Aguascalientes", "Mexico"}], "Baja California" -> 
                  Entity["AdministrativeDivision", {
                    "BajaCalifornia", "Mexico"}], "Baja California Sur" -> 
                  Entity["AdministrativeDivision", {
                    "BajaCaliforniaSur", "Mexico"}], "Campeche" -> 
                  Entity["AdministrativeDivision", {"Campeche", "Mexico"}], 
                  "Chiapas" -> 
                  Entity["AdministrativeDivision", {"Chiapas", "Mexico"}], 
                  "Chihuahua" -> 
                  Entity["AdministrativeDivision", {"Chihuahua", "Mexico"}], 
                  "Coahuila" -> 
                  Entity["AdministrativeDivision", {"Coahuila", "Mexico"}], 
                  "Colima" -> 
                  Entity["AdministrativeDivision", {"Colima", "Mexico"}], 
                  "Durango" -> 
                  Entity["AdministrativeDivision", {"Durango", "Mexico"}], 
                  "Guanajuato" -> 
                  Entity["AdministrativeDivision", {"Guanajuato", "Mexico"}], 
                  "Guerrero" -> 
                  Entity["AdministrativeDivision", {"Guerrero", "Mexico"}], 
                  "Hidalgo" -> 
                  Entity["AdministrativeDivision", {"Hidalgo", "Mexico"}], 
                  "Jalisco" -> 
                  Entity["AdministrativeDivision", {"Jalisco", "Mexico"}], 
                  "M\[EAcute]xico" -> 
                  Entity["AdministrativeDivision", {"Mexico", "Mexico"}], 
                  "Michoac\[AAcute]n" -> 
                  Entity["AdministrativeDivision", {"Michoacan", "Mexico"}], 
                  "Morelos" -> 
                  Entity["AdministrativeDivision", {"Morelos", "Mexico"}], 
                  "Nayarit" -> 
                  Entity["AdministrativeDivision", {"Nayarit", "Mexico"}], 
                  "Nuevo Le\[OAcute]n" -> 
                  Entity["AdministrativeDivision", {"NuevoLeon", "Mexico"}], 
                  "Oaxaca" -> 
                  Entity["AdministrativeDivision", {"Oaxaca", "Mexico"}], 
                  "Puebla" -> 
                  Entity["AdministrativeDivision", {"Puebla", "Mexico"}], 
                  "Quer\[EAcute]taro" -> 
                  Entity["AdministrativeDivision", {"Queretaro", "Mexico"}], 
                  "Quintana Roo" -> 
                  Entity["AdministrativeDivision", {"QuintanaRoo", "Mexico"}],
                   "San Luis Potos\[IAcute]" -> 
                  Entity["AdministrativeDivision", {
                    "SanLuisPotosi", "Mexico"}], "Sinaloa" -> 
                  Entity["AdministrativeDivision", {"Sinaloa", "Mexico"}], 
                  "Tabasco" -> 
                  Entity["AdministrativeDivision", {"Tabasco", "Mexico"}], 
                  "Tamaulipas" -> 
                  Entity["AdministrativeDivision", {"Tamaulipas", "Mexico"}], 
                  "Tlaxcala" -> 
                  Entity["AdministrativeDivision", {"Tlaxcala", "Mexico"}], 
                  "Veracruz" -> 
                  Entity["AdministrativeDivision", {"Veracruz", "Mexico"}], 
                  "Yucat\[AAcute]n" -> 
                  Entity["AdministrativeDivision", {"Yucatan", "Mexico"}], 
                  "Zacatecas" -> 
                  Entity["AdministrativeDivision", {"Zacatecas", "Mexico"}]]},
                "the United Kingdom" -> {
                 Entity["Country", "UnitedKingdom"], 
                 Association[
                 "England" -> 
                  Entity["AdministrativeDivision", {
                    "England", "UnitedKingdom"}], "Wales" -> 
                  Entity["AdministrativeDivision", {
                    "Wales", "UnitedKingdom"}], "Scotland" -> 
                  Entity["AdministrativeDivision", {
                    "Scotland", "UnitedKingdom"}], "Northern Ireland" -> 
                  Entity["AdministrativeDivision", {
                    "NorthernIreland", "UnitedKingdom"}]]}],
              SelectWithContents->True,
              Selectable->False], ",", "1"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"coTxt", "=", 
           RowBox[{
            RowBox[{"Keys", "[", "data", "]"}], "\[LeftDoubleBracket]", "1", 
            "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"coEnt", "=", 
           RowBox[{
            RowBox[{"Values", "[", "data", "]"}], "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"choiceData", "=", 
           RowBox[{"RandomSample", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Values", "[", "data", "]"}], "\[LeftDoubleBracket]", 
              RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", "4"}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"choices", "=", 
           RowBox[{"Keys", "[", "choiceData", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"adEnt", "=", 
           RowBox[{
            RowBox[{"Values", "[", "choiceData", "]"}], 
            "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"q", "=", 
           RowBox[{
           "\"\<Which region of \>\"", "<>", "coTxt", "<>", 
            "\"\< is shown in red on this map?\>\""}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"pic", "=", 
           RowBox[{
            RowBox[{"Hold", "[", 
             RowBox[{"GeoGraphics", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FaceForm", "[", "Orange", "]"}], ",", 
                 RowBox[{"Polygon", "[", "h1", "]"}], ",", 
                 RowBox[{"FaceForm", "[", "Red", "]"}], ",", 
                 RowBox[{"EdgeForm", "[", 
                  RowBox[{"{", 
                   RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", 
                 RowBox[{"Polygon", "[", "h2", "]"}]}], "}"}], ",", 
               RowBox[{"GeoBackground", "\[Rule]", "\"\<CountryBorders\>\""}],
                ",", 
               RowBox[{"ImageSize", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"480", ",", "540"}], "}"}]}]}], "]"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h1", "\[Rule]", "coEnt"}], ",", 
              RowBox[{"h2", "\[Rule]", "adEnt"}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"mixed", "=", 
           RowBox[{"RandomSample", "[", "choices", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"mixTransit", "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Hold", "[", 
               RowBox[{"FromCharacterCode", "[", "h3", "]"}], "]"}], "/.", 
              RowBox[{"h3", "\[Rule]", 
               RowBox[{"ToCharacterCode", "[", "#", "]"}]}]}], "&"}], "/@", 
            "mixed"}]}], ";", "\[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", ",", "mixTransit", ",", "pic"}], "}"}], 
           "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", "2", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"data", "=", 
           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[{"37", ",", "5"}], "}"}], "IconizedItem"]}]}, {
                  RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["20448", "IconizedItem"]}]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
                "Column", 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               Dynamic[Typeset`open]},
              "IconizedObject"]],
            {{
              Entity["Mountain", "Aconcagua"], "Aconcagua, Argentina", 
              Quantity[3, "Miles"], {12400, 23000}, 0.33}, {
              Entity["Mountain", "AmaDablam"], "Ama Dablam, Nepal", 
              Quantity[4, "Miles"], {13800, 22500}, 0.4}, {
              Entity["Mountain", "Annapurna"], "Annapurna Massif, Nepal", 
              Quantity[5, "Miles"], {10800, 26700}, 0.4}, {
              Entity["Mountain", "BenNevis"], "Ben Nevis, Scottland", 
              Quantity[2.5, "Miles"], {0, 4500}, 0.3}, {
              GeoPosition[{120653/3600, -(67177/600)}], 
              "Camelback Mt., Arizona, USA", 
              Quantity[1.3, "Miles"], {1100, 2700}, 0.18}, {
              Entity["Mountain", "Chimborazo"], "Chimborazo, Ecuador", 
              Quantity[4, "Miles"], {11000, 20700}, 0.3}, {
              Entity["Mountain", "ChoOyu"], "Cho Oyu, Nepal & China", 
              Quantity[3.2, "Miles"], {17000, 27000}, 0.4}, {
              Entity["Mountain", "Damavand"], "Damavand, Iran", 
              Quantity[3, "Miles"], {8800, 18600}, 0.4}, {
              Entity["Mountain", "MountMcKinley"], "Denali, Alaska, USA", 
              Quantity[6, "Miles"], {5000, 20500}, 0.3}, {
              GeoPosition[{1064/50, -157.805}], "Diamond Head, Hawaii, USA", 
              Quantity[2.5, "Miles"], {0, 1500}, 0.15}, {
              GeoPosition[{57379/1800, -(377489/3600)}], 
              "El Capitan, Texas, USA", 
              Quantity[3, "Miles"], {4100, 8700}, 0.3}, {
              Entity["Mountain", "FujiSan"], "Mount Fuji, Japan", 
              Quantity[3.5, "Miles"], {3400, 12400}, 0.34}, {
              Entity["Mountain", "K2"], "K2, China & Pakistan", 
              Quantity[3, "Miles"], {16000, 28400}, 0.4}, {
              Entity["Mountain", "MaunaLoa"], "Mauna Loa, Hawaii, USA", 
              Quantity[7, "Miles"], {6500, 13700}, 0.3}, {
              Entity["Mountain", "Matterhorn"], "Matterhorn, Switzerland", 
              Quantity[2, "Miles"], {6500, 14800}, 0.6}, {
              GeoPosition[{1543/45, -(17647/150)}], 
              "Mount Baldy, California, USA", 
              Quantity[5, "Miles"], {2500, 10200}, 0.25}, {
              GeoPosition[{165001/3600, 1373/200}], 
              "Mont Blanc, Italy & France", 
              Quantity[3, "Miles"], {4800, 15800}, 0.4}, {
              Entity["Mountain", "MountEverest"], 
              "Mount Everest, Tibet & Nepal", 
              Quantity[4, "Miles"], {16500, 29100}, 0.35}, {
              Entity["Mountain", "MountHood"], "Mount Hood, Oregon, USA", 
              Quantity[3.5, "Miles"], {3300, 11300}, 0.27}, {
              Entity["Mountain", "MountKilimanjaro"], 
              "Mt. Kilimanjaro, Tanzania", 
              Quantity[4, "Miles"], {8700, 19500}, 0.4}, {
              Entity["Mountain", "MountKinabalu"], "Mount Kinabalu, Malaysia", 
              Quantity[3, "Miles"], {2500, 13600}, 0.42}, {
              Entity["Mountain", "MountLogan"], "Mount Logan, Canada", 
              Quantity[5, "Miles"], {5800, 19700}, 0.4}, {
              GeoPosition[{36077/900, 80491/3600}], "Mount Olympus, Greece", 
              Quantity[5, "Miles"], {500, 9700}, 0.5}, {
              Entity["Mountain", "MountRainier"], 
              "Mt. Rainier, Washington, USA", 
              Quantity[3, "Miles"], {5200, 14500}, 0.32}, {
              Entity["Mountain", "MountSaintHelens"], 
              "Mt. Saint Helens, Washington, USA", 
              Quantity[3, "Miles"], {2500, 8400}, 0.3}, {
              Entity["Mountain", "MountWhitney"], 
              "Mount Whitney, California, USA", 
              Quantity[2, "Miles"], {10000, 14700}, 0.5}, {
              Entity["Mountain", "NangaParbat"], "Nanga Parbat, Pakistan", 
              Quantity[5, "Miles"], {10000, 26700}, 0.4}, {
              Entity["Mountain", "PicoBolivar"], 
              "Pico Bol\[IAcute]var, Venezuela", 
              Quantity[3.2, "Miles"], {7700, 16500}, 0.6}, {
              Entity["Mountain", "PicoCristobalColon"], 
              "Pico Crist\[OAcute]bal Col\[OAcute]n, Colombia", 
              Quantity[2.9, "Miles"], {9600, 19100}, 0.6}, {
              Entity["Mountain", "PicoDeOrizaba"], "Pico de Orizaba, Mexico", 
              
              Quantity[3, "Miles"], {9700, 18600}, 0.4}, {
              Entity["Mountain", "PikesPeak"], "Pikes Peak, Colorado, USA", 
              Quantity[3, "Miles"], {8800, 14200}, 0.3}, {
              Entity["Mountain", "PuncakJaya"], "Puncak Jaya, Indonesia", 
              Quantity[2, "Miles"], {9000, 16500}, 0.3}, {
              Entity["Mountain", "RasDashen"], "Ras Rashen, Ethiopia", 
              Quantity[4, "Miles"], {8200, 15100}, 0.4}, {
              Entity["Mountain", "RockGibraltar"], "Rock of Gibraltar", 
              Quantity[1.4, "Miles"], {20, 1400}, 0.22}, {
              GeoPosition[{3007/90, -(133681/1200)}], 
              "Superstition Mt., Arizona, USA", 
              Quantity[5, "Miles"], {1500, 5200}, 0.23}, {
              GeoPosition[{-33.95731388888889, 18.403108333333332`}], 
              "Table Mountain, South Africa", 
              Quantity[3, "Miles"], {0, 3700}, 0.2}, {
              GeoPosition[{-(5069/200), 47173/360}], "Uluru, Australia", 
              Quantity[2, "Miles"], {1600, 2900}, 0.12}},
            SelectWithContents->True,
            Selectable->False]}], ";", "\[IndentingNewLine]", 
          RowBox[{"ansPos", "=", 
           RowBox[{"RandomInteger", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", 
              RowBox[{"Length", "[", "data", "]"}]}], "}"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"ansDat", "=", 
           RowBox[{"data", "[", 
            RowBox[{"[", "ansPos", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"dis", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Smaller"}], "]"}], "&"}], "/@", 
            InterpretationBox[
             DynamicModuleBox[{Typeset`open = False}, 
              TemplateBox[{"List", "ListIcon", 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Head: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["List", "IconizedItem"]}]}, {
                   RowBox[{
                    TagBox["\"Length: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["28", "IconizedItem"]}]}, {
                   RowBox[{
                    TagBox["\"Byte count: \"", "IconizedLabel"], 
                    "\[InvisibleSpace]", 
                    TagBox["1752", "IconizedItem"]}]}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                Dynamic[Typeset`open]},
               "IconizedObject"]],
             {
             "Devil's Tower, Wyoming, USA", "Dhaulagiri, Nepal", 
              "Dix Mountain, New York, USA", "Grand Teton, Wyoming, USA", 
              "Half Dome, California, USA", 
              "Hibriten Mountain, North Carolina, USA", 
              "Jengish Chokusu, Kyrgyzstan & China", 
              "Kangchenjunga, Nepal & India", "Kirkjufell, Iceland", 
              "Licancabur, Bolivia & Chile", "Lhotse, Tibet", "Makalu, China",
               "Manaslu, Nepal", "Mauna Kea, Hawaii, USA", 
              "Mount Cook, New Zealand", "Mount Elbrus, Russia", 
              "Mount Erebus, Antarctica", "Mount Hubbard, Alaska & Canada", 
              "Mount Mitchell, North Carolina, USA", 
              "Mount Rushmore, South Dakota, USA", "Namcha Barwa, Tibet", 
              "Popocat\[EAcute]petl, Mexico", "Quandary Peak, Colorado", 
              "Snowmass Mountain, Colorado", "Sugar Loaf Mountain, Brazil", 
              "Tirich Mir, Pakistan", "Tre Cime di Lavaredo, Italy", 
              "Vinson Massif, Antarctica"},
             SelectWithContents->True,
             Selectable->False]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"choices", "=", 
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{"RandomSample", "[", 
              RowBox[{
               RowBox[{"Join", "[", 
                RowBox[{"dis", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{
                    "#", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}], ",", "Smaller"}], "]"}], "&"}],
                   "/@", 
                  RowBox[{"Delete", "[", 
                   RowBox[{"data", ",", "ansPos"}], "]"}]}]}], "]"}], ",", 
               "3"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{
               "ansDat", "\[LeftDoubleBracket]", "2", 
                "\[RightDoubleBracket]"}], ",", "Smaller"}], "]"}]}], "]"}]}],
           ";", "\[IndentingNewLine]", 
          RowBox[{"q", "=", "\"\<Which mountain is this?\>\""}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"pic", "=", 
           RowBox[{
            RowBox[{"Hold", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"grid", "=", 
               RowBox[{"Reverse", "[", 
                RowBox[{"GeoElevationData", "[", 
                 RowBox[{"GeoDisk", "[", 
                  RowBox[{
                   RowBox[{
                   "h1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", 
                   RowBox[{
                   "h1", "\[LeftDoubleBracket]", "3", 
                    "\[RightDoubleBracket]"}]}], "]"}], "]"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"model", "=", 
               RowBox[{"ListPlot3D", "[", 
                RowBox[{"grid", ",", 
                 RowBox[{"PlotStyle", "\[Rule]", 
                  RowBox[{"RGBColor", "[", "\"\<#bcdcdd\>\"", "]"}]}], ",", 
                 RowBox[{"PlotRange", "\[Rule]", 
                  RowBox[{
                  "h1", "\[LeftDoubleBracket]", "4", 
                   "\[RightDoubleBracket]"}]}], ",", 
                 RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
                 RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
                 RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", 
                 RowBox[{"FillingStyle", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"Brown", ",", 
                    RowBox[{"Opacity", "[", "1", "]"}]}], "}"}]}], ",", 
                 RowBox[{"Axes", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"False", ",", "False", ",", "True"}], "}"}]}], ",", 
                 RowBox[{"BoxRatios", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", 
                    RowBox[{
                    "h1", "\[LeftDoubleBracket]", "5", 
                    "\[RightDoubleBracket]"}]}], "}"}]}], ",", 
                 RowBox[{"ImageSize", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"UpTo", "[", "480", "]"}], ",", 
                    RowBox[{"UpTo", "[", "540", "]"}]}], "}"}]}]}], "]"}]}]}],
              "]"}], "/.", 
            RowBox[{"h1", "\[Rule]", "ansDat"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"mixed", "=", 
           RowBox[{"RandomSample", "[", "choices", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"mixTransit", "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Hold", "[", 
               RowBox[{"ToExpression", "[", 
                RowBox[{"FromCharacterCode", "[", "h3", "]"}], "]"}], "]"}], "/.", 
              RowBox[{"h3", "\[Rule]", 
               RowBox[{"ToCharacterCode", "[", 
                RowBox[{"ToString", "[", 
                 RowBox[{"InputForm", "[", "#", "]"}], "]"}], "]"}]}]}], 
             "&"}], "/@", "mixed"}]}], ";", "\[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", ",", "mixTransit", ",", "pic"}], "}"}], 
           "]"}]}]}], "]"}], "&"}]}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", "\"\<CS_pack_Geog15\>\"", ",", 
   RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7011687160222692`*^9, 3.7011687272338467`*^9}, 
   3.7011688911918488`*^9, {3.701168932980563*^9, 3.7011689773428717`*^9}, {
   3.7011690495136347`*^9, 3.701169165869629*^9}, {3.701169235374551*^9, 
   3.701169237073668*^9}, {3.701169281733378*^9, 3.701169303561479*^9}, {
   3.701169333872113*^9, 3.7011693421360188`*^9}, {3.701169377257951*^9, 
   3.701169383873055*^9}, {3.7011694993280487`*^9, 3.7011694999595547`*^9}, {
   3.701169541002213*^9, 3.701169602051695*^9}, {3.7011696558075542`*^9, 
   3.7011696767373943`*^9}, {3.70117027489466*^9, 3.70117027525112*^9}, {
   3.701170309752363*^9, 3.7011703402860117`*^9}, {3.701170388234593*^9, 
   3.701170413627365*^9}, {3.701170570146592*^9, 3.701170584009869*^9}, 
   3.701170674211578*^9, 3.701170738904104*^9, {3.701170814078763*^9, 
   3.701170819654454*^9}, {3.701170861192458*^9, 3.701171048816333*^9}, {
   3.7011711020206003`*^9, 3.70117116912726*^9}, {3.70117120585693*^9, 
   3.7011712717230463`*^9}, {3.70117130345442*^9, 3.70117132076225*^9}, {
   3.701171354368733*^9, 3.701171355855193*^9}, {3.701171425787691*^9, 
   3.701171440706787*^9}, {3.701171530056335*^9, 3.7011715582438374`*^9}, {
   3.7011716392002897`*^9, 3.70117164413542*^9}, {3.70117188581364*^9, 
   3.701171897020048*^9}, {3.7011719443767977`*^9, 3.701171964350956*^9}, {
   3.701521889250914*^9, 3.701521895773633*^9}, {3.701521960189183*^9, 
   3.701521962962036*^9}, {3.701522379506434*^9, 3.701522520893005*^9}, {
   3.701522562907557*^9, 3.701522575607682*^9}, {3.701522746779133*^9, 
   3.701522753472619*^9}, {3.701522964202949*^9, 3.7015229658728027`*^9}, {
   3.701535721915958*^9, 3.70153580873324*^9}, {3.701535895100026*^9, 
   3.701535921150807*^9}, {3.7142263947145643`*^9, 3.7142264480760937`*^9}, {
   3.715263012458082*^9, 3.715263018841379*^9}, {3.715263180393674*^9, 
   3.715263285167632*^9}, {3.715263385088715*^9, 3.715263389919222*^9}, {
   3.715263517376799*^9, 3.715263624648183*^9}, {3.715263735671875*^9, 
   3.715263757302224*^9}, {3.715263906422358*^9, 3.715263963534196*^9}, {
   3.7152641832392607`*^9, 3.7152642403892717`*^9}, {3.7152644962948227`*^9, 
   3.715264522667515*^9}, {3.715289673429142*^9, 3.715289703978058*^9}, {
   3.7152898746219177`*^9, 3.7152898835457907`*^9}, {3.715290185427227*^9, 
   3.715290228992425*^9}, {3.715290568306698*^9, 3.715290631319048*^9}, {
   3.715291268199432*^9, 3.715291358332694*^9}, {3.715296072502687*^9, 
   3.715296182875894*^9}, {3.715296594324712*^9, 3.715296624768818*^9}, {
   3.7152966679765368`*^9, 3.715296754601918*^9}, {3.7152971853309517`*^9, 
   3.71529724778448*^9}, {3.715297333603443*^9, 3.7152973405921097`*^9}, {
   3.715297611233562*^9, 3.7152977152476063`*^9}, {3.7152980587923183`*^9, 
   3.715298172063346*^9}, 3.715298228784726*^9, {3.715329996676415*^9, 
   3.7153301044259853`*^9}, {3.715332354699462*^9, 3.715332463144753*^9}, {
   3.715333605990862*^9, 3.715333671530455*^9}, {3.715333722610916*^9, 
   3.7153338001796417`*^9}, {3.7153340673733263`*^9, 3.715334180922441*^9}, {
   3.715334667898891*^9, 3.715334819414461*^9}, {3.7153348756222*^9, 
   3.715334883559725*^9}, {3.7153351311611633`*^9, 3.715335230822647*^9}, {
   3.715335661199443*^9, 3.71533570938078*^9}, {3.715335796190295*^9, 
   3.715335802812665*^9}, {3.7153360270606613`*^9, 3.71533605533943*^9}, {
   3.715336387964923*^9, 3.7153364820670443`*^9}, {3.715336832891429*^9, 
   3.715336916280986*^9}, {3.715342926750341*^9, 3.715342945842276*^9}, {
   3.715342983842567*^9, 3.715343061563415*^9}, {3.715344167146093*^9, 
   3.7153442591190567`*^9}, {3.715344532897044*^9, 3.715344625957635*^9}, {
   3.7153448951032476`*^9, 3.715344984420801*^9}, {3.7153452310302963`*^9, 
   3.715345250482216*^9}, {3.715345317249943*^9, 3.7153453839552526`*^9}, {
   3.715348178964221*^9, 3.715348182897933*^9}, {3.715348303388845*^9, 
   3.715348404513359*^9}, {3.715349088433428*^9, 3.715349247413968*^9}, {
   3.715349644818593*^9, 3.715349768588337*^9}, {3.7153499436221848`*^9, 
   3.7153500216875362`*^9}, {3.715350491812228*^9, 3.7153505810495768`*^9}, {
   3.715350833899255*^9, 3.715350964880457*^9}, {3.715361621006838*^9, 
   3.715361701860276*^9}, {3.715361958950183*^9, 3.71536208088348*^9}, {
   3.715362869058215*^9, 3.715362958087842*^9}, {3.715363173649239*^9, 
   3.7153632147268963`*^9}, {3.7153636018712397`*^9, 3.715363694117284*^9}, {
   3.7153638878707867`*^9, 3.7153639832045527`*^9}, {3.7153643632454042`*^9, 
   3.715364431755062*^9}, {3.715365020410902*^9, 3.715365105376568*^9}, {
   3.715365489881295*^9, 3.715365588038566*^9}, {3.715365691118629*^9, 
   3.7153656984379807`*^9}, {3.715365741645689*^9, 3.715365751053773*^9}, {
   3.715365850964633*^9, 3.715365905773443*^9}, {3.715365970253973*^9, 
   3.715365997269125*^9}, {3.715366027533934*^9, 3.715366030320156*^9}, {
   3.7153660622218227`*^9, 3.715366134884622*^9}, {3.7153662227170677`*^9, 
   3.715366264676219*^9}, {3.715366321300165*^9, 3.715366355539969*^9}, {
   3.7153663956123657`*^9, 3.715366405859714*^9}, {3.715366443859571*^9, 
   3.7153664873084927`*^9}, {3.715366527349638*^9, 3.7153665566110363`*^9}, {
   3.715366602995232*^9, 3.71536661483508*^9}, {3.715366666522805*^9, 
   3.71536669689063*^9}, {3.715366776002451*^9, 3.7153668065145073`*^9}, {
   3.715366846922855*^9, 3.7153669158100452`*^9}, {3.715366971522031*^9, 
   3.715367021986068*^9}, {3.715367063322987*^9, 3.715367080713501*^9}, {
   3.715367155770417*^9, 3.7153671673853407`*^9}, {3.7153672151859818`*^9, 
   3.715367236857155*^9}, {3.71536747316424*^9, 3.71536747404046*^9}, {
   3.71536757383178*^9, 3.715367604103993*^9}, {3.715367655455874*^9, 
   3.71536768570334*^9}, {3.7153677249279613`*^9, 3.715367856303018*^9}, {
   3.7153679053595877`*^9, 3.715367923670632*^9}, {3.7153679653267393`*^9, 
   3.7153679793346157`*^9}, {3.715368180608191*^9, 3.715368199791244*^9}, {
   3.7153682914431953`*^9, 3.7153684882273083`*^9}, {3.715368521661127*^9, 
   3.7153686100191813`*^9}, {3.715372354546994*^9, 3.7153725602232943`*^9}, {
   3.715372618087522*^9, 3.7153728341980963`*^9}, {3.715372887638666*^9, 
   3.715372983630245*^9}, {3.715373022775428*^9, 3.715373024309511*^9}, {
   3.715373177903941*^9, 3.7153732424067097`*^9}, {3.715420770051921*^9, 
   3.715420774929274*^9}, {3.715420833058071*^9, 3.715420845417918*^9}, {
   3.7154210715705843`*^9, 3.7154211109571953`*^9}, {3.7154220147763*^9, 
   3.7154220149709787`*^9}, {3.7154220487646837`*^9, 3.715422110638445*^9}, {
   3.715422145813843*^9, 3.715422148540574*^9}, 3.764682944482934*^9, 
   3.764683034304997*^9, {3.7646830674871597`*^9, 3.764683278577331*^9}, {
   3.76468347139377*^9, 3.7646834915686827`*^9}, {3.764683878042614*^9, 
   3.764683896643218*^9}, 3.769004414483028*^9, 3.769004639880506*^9, 
   3.769004753829527*^9, {3.769005115038965*^9, 3.76900512778819*^9}, 
   3.769005225156131*^9, {3.7690053308215427`*^9, 3.7690053477642*^9}, {
   3.769005506006125*^9, 3.769005522499551*^9}, {3.7690058203122053`*^9, 
   3.769005837202962*^9}, 3.798057833791741*^9, {3.798057877902199*^9, 
   3.798057910260165*^9}, {3.7980579552912617`*^9, 3.798058012500167*^9}, {
   3.798058098491671*^9, 3.7980581291085377`*^9}, {3.7980581689821*^9, 
   3.7980582253239717`*^9}, {3.7980582701212177`*^9, 3.798058317197451*^9}, {
   3.798058751909625*^9, 3.798058771714752*^9}, {3.810893865577311*^9, 
   3.810893873261588*^9}, {3.8108939152908707`*^9, 3.810893923904704*^9}, {
   3.810893964585527*^9, 3.8108939864171352`*^9}, 3.810894512830639*^9, {
   3.8108956006949587`*^9, 3.810895611103265*^9}, {3.8108957110938587`*^9, 
   3.81089573837467*^9}, {3.810895786757744*^9, 3.810895809775345*^9}, {
   3.810895841141416*^9, 3.810895863223106*^9}, {3.81089590190126*^9, 
   3.8108959025752687`*^9}, {3.8108960991325693`*^9, 
   3.8108962815161953`*^9}, {3.8108963500832043`*^9, 3.810896616611176*^9}, {
   3.810896677707398*^9, 3.810896759931251*^9}, {3.810897067836388*^9, 
   3.810897259378421*^9}, {3.810897294370174*^9, 3.810897537693392*^9}, {
   3.810897608849824*^9, 3.8108976684129963`*^9}, {3.810897709738207*^9, 
   3.8108977102108107`*^9}, {3.810898378298285*^9, 3.810898737588995*^9}, {
   3.81089881940937*^9, 3.810898832876966*^9}, {3.8108989488270082`*^9, 
   3.810899032956139*^9}, {3.810905747147399*^9, 3.810905967422227*^9}, {
   3.81090599991504*^9, 3.810906505197418*^9}, {3.810906537152534*^9, 
   3.810906653256534*^9}, 3.810906693979685*^9, {3.810912582817443*^9, 
   3.810912590920698*^9}, {3.810912626344853*^9, 3.81091263787234*^9}, {
   3.81091281167225*^9, 3.810913096147032*^9}, {3.8109131339361153`*^9, 
   3.810913142711644*^9}, {3.8109133887924643`*^9, 3.810913533562603*^9}, {
   3.810914163478653*^9, 3.810914375764968*^9}, {3.810921786106064*^9, 
   3.810921873624139*^9}, {3.810921963545289*^9, 3.810922041008462*^9}, {
   3.8109220910163937`*^9, 3.810922120055903*^9}, {3.810922187407563*^9, 
   3.810922300455496*^9}, {3.8109223708960752`*^9, 3.810922491223278*^9}, {
   3.8109225283674393`*^9, 3.810922539950062*^9}, {3.810922574986059*^9, 
   3.8109227369984217`*^9}, {3.810922769709079*^9, 3.810922796324663*^9}, 
   3.81092303496868*^9, {3.810923082498948*^9, 3.81092311490512*^9}, 
   3.821525673902917*^9, 3.821525722734823*^9, {3.821525755915722*^9, 
   3.821525758873187*^9}, 3.82152578893073*^9, 3.821534844977894*^9, 
   3.8215348787780237`*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"b5d11977-f38d-469c-86b2-87c1fee7d749"]
},
WindowSize->{1786, 1323},
WindowMargins->{{163, Automatic}, {Automatic, 0}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6c8821e9-0fc7-4137-9c9b-016ccd37bf0d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 37232, 676, 766, "Input",ExpressionUUID->"b5d11977-f38d-469c-86b2-87c1fee7d749"]
}
]
*)