Geodesy Essay.nb

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

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

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    199158,       4550]
NotebookOptionsPosition[     59490,       1796]
NotebookOutlinePosition[    173093,       3967]
CellTagsIndexPosition[    172712,       3953]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Exploring Degrees Minutes Seconds and Decimal Angles and Angle Strings and \
Cardinal Directions\
\>", "Title",
 CellChangeTimes->{{3.8706295639426546`*^9, 3.870629583269594*^9}},
 CellTags->{"Examples", "Your Essay Title"},
 CellID->805710577,ExpressionUUID->"1d92d1b8-f6d7-48ed-8825-cd049ebbaf36"],

Cell[BoxData[
 StyleBox[
  RowBox[{"Author", " ", "Name"}], "Author"]], "Author",
 CellTags->"AuthorName",
 CellID->960727095,ExpressionUUID->"3a631b5a-3636-4c6d-8965-482ae9171f2c"],

Cell["Abstract", "Abstract",
 CellTags->{"Abstract", "TemplateCell"},
 CellID->587432573,ExpressionUUID->"2ac58def-5955-4744-85c7-434e15df125e"],

Cell[CellGroupData[{

Cell["DMS", "Section",
 CellChangeTimes->{{3.8706254378093405`*^9, 3.8706254382016196`*^9}},
 CellTags->"SectionHeader",
 CellID->453852445,ExpressionUUID->"34c50aa5-39dc-40c2-9e96-2d752d36a940"],

Cell["Convert from a DMS list to an angle in decimal degrees:", "Text",
 CellChangeTimes->{{3.8706255005595264`*^9, 3.870625508801512*^9}},
 CellTags->"ExampleTopicSentence",
 CellID->816667160,ExpressionUUID->"59801345-6d3c-49da-94f6-ef747999241f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"30", ",", "10", ",", "4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.870625509667139*^9, 3.870625515488943*^9}},
 CellLabel->"In[167]:=",
 CellID->6111010,ExpressionUUID->"2790bc4d-ad22-4aa2-b45d-9d2b1db86da0"],

Cell[BoxData[
 FractionBox["27151", "900"]], "Output",
 CellChangeTimes->{3.8706255158768826`*^9},
 CellLabel->"Out[167]=",
 CellID->116955046,ExpressionUUID->"07ad53bd-d62d-4045-9dcc-0c06a7020cbf"]
}, Open  ]],

Cell["Use a dot to force numerical output:", "Text",
 CellChangeTimes->{{3.8706255172621946`*^9, 3.8706255237051773`*^9}},
 CellID->509542795,ExpressionUUID->"57123122-103e-4ea4-b9cd-bbdf97c613c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"30", ",", "10", ",", "4."}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.870625509667139*^9, 3.870625525372047*^9}},
 CellLabel->"In[168]:=",
 CellID->105863800,ExpressionUUID->"b7be869a-1843-43c7-8a24-6c53b8717a4e"],

Cell[BoxData["30.16777777777778`"], "Output",
 CellChangeTimes->{3.8706255257740583`*^9},
 CellLabel->"Out[168]=",
 CellID->170948038,ExpressionUUID->"0dbe5855-715d-44cc-b665-c49cfc3bb0ae"]
}, Open  ]],

Cell["Convert from a DMS String:", "Text",
 CellChangeTimes->{{3.870625528604126*^9, 3.8706255321410894`*^9}},
 CellID->493334418,ExpressionUUID->"924df588-8816-411a-9fbc-214dff946b14"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<20\[Degree]3'1.45''\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870625532920549*^9, 3.870625542563126*^9}},
 CellLabel->"In[169]:=",
 CellID->8468008,ExpressionUUID->"94abae6f-3f99-420b-9030-5b13a01ffc28"],

Cell[BoxData["20.05040277777778`"], "Output",
 CellChangeTimes->{3.87062554303872*^9},
 CellLabel->"Out[169]=",
 CellID->191070306,ExpressionUUID->"cc2f345a-3de3-4217-bccf-99552b3ed518"]
}, Open  ]],

Cell["Convert from a DMS string with cardinal directions:", "Text",
 CellChangeTimes->{{3.870625548346183*^9, 3.8706255577710323`*^9}},
 CellID->8739937,ExpressionUUID->"42fa4be8-eed1-43c5-b19f-48ecea35e53c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<20\[Degree]3'1.45\\\"S\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8706255585637617`*^9, 3.870625580323118*^9}},
 CellLabel->"In[172]:=",
 CellID->449078193,ExpressionUUID->"40d75fc0-15a0-4bb3-a039-ce23a60928f5"],

Cell[BoxData[
 RowBox[{"-", "20.05040277777778`"}]], "Output",
 CellChangeTimes->{{3.870625571329291*^9, 3.8706255808668146`*^9}},
 CellLabel->"Out[172]=",
 CellID->114394284,ExpressionUUID->"e55efe70-398a-4c2c-b33f-16f7d257ede7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<20\[Degree]3'1.45\\\"N\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8706255585637617`*^9, 3.8706255857851377`*^9}},
 CellLabel->"In[173]:=",
 CellID->688634779,ExpressionUUID->"1e86b71e-15ab-4575-bb93-6c843c786984"],

Cell[BoxData["20.05040277777778`"], "Output",
 CellChangeTimes->{3.870625586107052*^9},
 CellLabel->"Out[173]=",
 CellID->177285467,ExpressionUUID->"4b607bca-b422-4268-bf42-2fcfbc11c460"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<20\[Degree]3'1.45\\\"E\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8706255585637617`*^9, 3.8706255915910635`*^9}},
 CellLabel->"In[174]:=",
 CellID->586783524,ExpressionUUID->"b39e0ec7-06ee-4785-9b05-d00bb0e29268"],

Cell[BoxData["20.05040277777778`"], "Output",
 CellChangeTimes->{3.8706255918009768`*^9},
 CellLabel->"Out[174]=",
 CellID->191102779,ExpressionUUID->"49e8d731-259a-46e3-a572-f6da83ea38cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<20\[Degree]3'1.45\\\"W\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8706255585637617`*^9, 3.870625594584941*^9}},
 CellLabel->"In[175]:=",
 CellID->211596707,ExpressionUUID->"7aab6943-cb85-4caa-97e3-190828272e10"],

Cell[BoxData[
 RowBox[{"-", "20.05040277777778`"}]], "Output",
 CellChangeTimes->{3.8706255948450317`*^9},
 CellLabel->"Out[175]=",
 CellID->202380894,ExpressionUUID->"d23146fc-23c8-4aa6-af5a-2f0af4e43142"]
}, Open  ]],

Cell["Convert from a latitude-longitude specification:", "Text",
 CellChangeTimes->{{3.8706256003375435`*^9, 3.87062560764325*^9}},
 CellID->1719247,ExpressionUUID->"2eb9e686-c7fc-4760-aade-e43688c101b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<5\[Degree]30'0''N 10\[Degree]29'60.''W\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870625608947432*^9, 3.870625628435045*^9}},
 CellLabel->"In[176]:=",
 CellID->390778795,ExpressionUUID->"7e0ccafa-de75-4fdd-94c4-2010cce94000"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["11", "2"], ",", 
   RowBox[{"-", "10.5`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8706256287871656`*^9},
 CellLabel->"Out[176]=",
 CellID->97088973,ExpressionUUID->"8c662a94-5749-489b-ac49-c238d5113846"]
}, Open  ]],

Cell["Convert a random GeoPosition:", "Text",
 CellChangeTimes->{{3.870625657071518*^9, 3.8706256625507307`*^9}, {
  3.870625722448209*^9, 3.8706257440026803`*^9}},
 CellID->874610398,ExpressionUUID->"35e4cdc3-01de-4fc9-aab3-4980d394892f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomGeoPosition", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8706256877988224`*^9, 3.87062568997258*^9}},
 CellLabel->"In[177]:=",
 CellID->156692301,ExpressionUUID->"0ff67b97-ba53-4922-9e2e-4c1e1e832e6d"],

Cell[BoxData[
 RowBox[{"GeoPosition", "[", 
  RowBox[{"{", 
   RowBox[{"17.907231712914733`", ",", "93.88993383764057`"}], "}"}], 
  "]"}]], "Output",
 CellChangeTimes->{3.8706256903333054`*^9},
 CellLabel->"Out[177]=",
 CellID->424338895,ExpressionUUID->"b96dccd7-0de4-48db-b026-3da741ef184e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"RandomGeoPosition", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706257291192255`*^9, 3.8706257332614317`*^9}},
 CellLabel->"In[178]:=",
 CellID->466038842,ExpressionUUID->"d1b0958c-3e92-4226-854c-589c8771daff"],

Cell[BoxData["\<\"73\[Degree]23'18.194\\\"S 144\[Degree]33'41.809\\\"E\"\>"], \
"Output",
 CellChangeTimes->{3.87062573361012*^9},
 CellLabel->"Out[178]=",
 CellID->749865858,ExpressionUUID->"af78dd4e-7c05-404c-984b-2f43fedc6b91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"DMSString", "[", 
   RowBox[{"RandomGeoPosition", "[", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706257346684837`*^9, 3.8706257363563333`*^9}},
 CellLabel->"In[179]:=",
 CellID->8606997,ExpressionUUID->"04d861d2-2075-4b78-9f9c-6c5e9551f90a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "47.17792222222222`"}], ",", 
   RowBox[{"-", "12.107992222222222`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8706257367225313`*^9},
 CellLabel->"Out[179]=",
 CellID->788142818,ExpressionUUID->"3b96f27c-0bcc-4d3c-b52b-baaee41260ea"]
}, Open  ]],

Cell["Convert my location:", "Text",
 CellChangeTimes->{{3.8706257498242702`*^9, 3.870625753955468*^9}},
 CellID->23515013,ExpressionUUID->"6d790d25-72d6-444a-b546-5152d9acc960"],

Cell[CellGroupData[{

Cell[BoxData["Here"], "Input",
 CellChangeTimes->{{3.870625754669223*^9, 3.8706257550677724`*^9}},
 CellLabel->"In[180]:=",
 CellID->365952270,ExpressionUUID->"95be67ba-d0a4-4ea9-97b4-ab1cb49628dc"],

Cell[BoxData[
 RowBox[{"GeoPosition", "[", 
  RowBox[{"{", 
   RowBox[{"38.410000000000004`", ",", 
    RowBox[{"-", "82.44`"}]}], "}"}], "]"}]], "Output",
 CellChangeTimes->{3.870625755476445*^9},
 CellLabel->"Out[180]=",
 CellID->870023702,ExpressionUUID->"5716062d-9823-41c7-9468-f54cf9cad84d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", "Here", "]"}]], "Input",
 CellChangeTimes->{{3.8706257562756987`*^9, 3.870625757828929*^9}},
 CellLabel->"In[181]:=",
 CellID->148998351,ExpressionUUID->"b3a10df6-2df7-4dad-8c3f-ca44245bad00"],

Cell[BoxData["\<\"38\[Degree]24'36.000\\\"N 82\[Degree]26'24.000\\\"W\"\>"], \
"Output",
 CellChangeTimes->{3.8706257581693435`*^9},
 CellLabel->"Out[181]=",
 CellID->21989536,ExpressionUUID->"56e62143-8edd-42de-a30e-1f7eadfb911f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"DMSString", "[", "Here", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706257630408297`*^9, 3.8706257684255285`*^9}},
 CellLabel->"In[182]:=",
 CellID->528233569,ExpressionUUID->"e4bfb943-6aaa-4ff6-bcca-f5e9888dfd4b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"38.41`", ",", 
   RowBox[{"-", "82.44`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.870625768807913*^9},
 CellLabel->"Out[182]=",
 CellID->52296914,ExpressionUUID->"fbda2787-bba6-4ea1-8141-a6886e7ae257"]
}, Open  ]],

Cell["test different combinations of signs:", "Text",
 CellChangeTimes->{{3.870625780897852*^9, 3.870625785840053*^9}},
 CellID->9192527,ExpressionUUID->"2ade7726-f865-4b92-b79a-f18aa0c2c25e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "Here", "]"}]], "Input",
 CellChangeTimes->{{3.870625790506405*^9, 3.8706257923038197`*^9}},
 CellLabel->"In[183]:=",
 CellID->180078932,ExpressionUUID->"48b11615-afd6-420a-b0f7-89cd4165da25"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"38", ",", "24", ",", "36.0000000000133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "82"}], ",", 
     RowBox[{"-", "26"}], ",", 
     RowBox[{"-", "23.999999999991815`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8706257926242447`*^9},
 CellLabel->"Out[183]=",
 CellID->232523007,ExpressionUUID->"9e0e9187-b35e-4b67-8cd1-10e480df3c74"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{"DMSList", "[", "Here", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.870625795786912*^9, 3.870625796718508*^9}},
 CellLabel->"In[184]:=",
 CellID->64072601,ExpressionUUID->"867f7612-18dc-45df-abd9-7d449cc00391"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"38", ",", "24", ",", "36.0000000000133`"}], "}"}]], "Output",
 CellChangeTimes->{3.870625797100131*^9},
 CellLabel->"Out[184]=",
 CellID->180585497,ExpressionUUID->"f7cc9dda-5cef-4be4-bf78-f269a77b3877"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tuples", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.870625813114995*^9, 3.870625817030651*^9}},
 CellLabel->"In[185]:=",
 CellID->261733607,ExpressionUUID->"0e5e4f7d-a649-4cc6-aa30-e87d822e5fb4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.870625817394349*^9},
 CellLabel->"Out[185]=",
 CellID->79754839,ExpressionUUID->"bc1299f9-0437-402d-b88d-a1227128db5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Tuples", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}], "*", 
  RowBox[{"Threaded", "[", 
   RowBox[{"First", "[", 
    RowBox[{"DMSList", "[", "Here", "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8706258221801105`*^9, 3.8706258446026535`*^9}},
 CellLabel->"In[188]:=",
 CellID->75896562,ExpressionUUID->"614b6fd6-b803-448d-81fd-2c6e92cf6cb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "38"}], ",", 
     RowBox[{"-", "24"}], ",", 
     RowBox[{"-", "36.0000000000133`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "38"}], ",", 
     RowBox[{"-", "24"}], ",", "36.0000000000133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "38"}], ",", "24", ",", 
     RowBox[{"-", "36.0000000000133`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "38"}], ",", "24", ",", "36.0000000000133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", 
     RowBox[{"-", "24"}], ",", 
     RowBox[{"-", "36.0000000000133`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", 
     RowBox[{"-", "24"}], ",", "36.0000000000133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "24", ",", 
     RowBox[{"-", "36.0000000000133`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "24", ",", "36.0000000000133`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.870625830191078*^9, 3.8706258449160814`*^9}},
 CellLabel->"Out[188]=",
 CellID->26800914,ExpressionUUID->"abf41bf9-dcff-4dc9-9328-29f8979334cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{"FromDMS", ",", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Tuples", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}], "*", 
     RowBox[{"Threaded", "[", 
      RowBox[{"First", "[", 
       RowBox[{"DMSList", "[", "Here", "]"}], "]"}], "]"}]}], ")"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.870625854109497*^9, 3.8706259003501654`*^9}},
 CellLabel->"In[194]:=",
 CellID->465185262,ExpressionUUID->"a5ee204e-ac60-40b7-ba98-362279aa3df8"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", 
      RowBox[{"-", "24"}], ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    RowBox[{"-", "38.410000000000004`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", 
      RowBox[{"-", "24"}], ",", "36.0000000000133`"}], "}"}], "\[Rule]", 
    RowBox[{"-", "38.38999999999999`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", "24", ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    RowBox[{"-", "37.61000000000001`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", "24", ",", "36.0000000000133`"}], "}"}], 
    "\[Rule]", 
    RowBox[{"-", "37.589999999999996`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", 
      RowBox[{"-", "24"}], ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    "37.589999999999996`"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", 
      RowBox[{"-", "24"}], ",", "36.0000000000133`"}], "}"}], "\[Rule]", 
    "37.61000000000001`"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", "24", ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    "38.38999999999999`"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", "24", ",", "36.0000000000133`"}], "}"}], "\[Rule]", 
    "38.410000000000004`"}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.870625858670565*^9, 3.8706259005866776`*^9}},
 CellLabel->"Out[194]=",
 CellID->683291132,ExpressionUUID->"df9dfca5-72fd-4868-87fc-50806d0d322e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{"AssociationMap", "[", 
   RowBox[{"FromDMS", ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Tuples", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}], "*", 
      RowBox[{"Threaded", "[", 
       RowBox[{"First", "[", 
        RowBox[{"DMSList", "[", "Here", "]"}], "]"}], "]"}]}], ")"}]}], "]"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.8706259069398584`*^9, 3.870625908003854*^9}},
 CellLabel->"In[195]:=",
 CellID->665201486,ExpressionUUID->"5fe124cd-ffff-47b6-81a5-4461275df728"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", 
      RowBox[{"-", "24"}], ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    RowBox[{"-", "38.410000000000004`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", 
      RowBox[{"-", "24"}], ",", "36.0000000000133`"}], "}"}], "\[Rule]", 
    RowBox[{"-", "38.38999999999999`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", "24", ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    RowBox[{"-", "37.61000000000001`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "38"}], ",", "24", ",", "36.0000000000133`"}], "}"}], 
    "\[Rule]", 
    RowBox[{"-", "37.589999999999996`"}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", 
      RowBox[{"-", "24"}], ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    "37.589999999999996`"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", 
      RowBox[{"-", "24"}], ",", "36.0000000000133`"}], "}"}], "\[Rule]", 
    "37.61000000000001`"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", "24", ",", 
      RowBox[{"-", "36.0000000000133`"}]}], "}"}], "\[Rule]", 
    "38.38999999999999`"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"38", ",", "24", ",", "36.0000000000133`"}], "}"}], "\[Rule]", 
    "38.410000000000004`"}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{3.8706259083302975`*^9},
 CellLabel->"Out[195]=",
 CellID->205972809,ExpressionUUID->"ec5f0927-7220-4ea7-8c42-61a236d2a251"]
}, Open  ]],

Cell["Specify the direction with a cardinal direction:", "Text",
 CellChangeTimes->{{3.870625922772314*^9, 3.8706259317660723`*^9}},
 CellID->159947534,ExpressionUUID->"0b10cd6b-76b7-4f29-a2ac-7a6a95b3bfcb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<E\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.8706259441463747`*^9}},
 CellLabel->"In[196]:=",
 CellID->61780683,ExpressionUUID->"f3c4af4c-90ea-46d6-9e26-fbac5a4cf66d"],

Cell[BoxData["27.200958333333332`"], "Output",
 CellChangeTimes->{3.870625944446238*^9},
 CellLabel->"Out[196]=",
 CellID->648476368,ExpressionUUID->"0f60eaae-3ea1-467e-b262-59c947c618ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<W\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.8706259466220193`*^9}},
 CellLabel->"In[197]:=",
 CellID->99912904,ExpressionUUID->"7affb14f-d799-4254-9ccb-bc9b865b0872"],

Cell[BoxData[
 RowBox[{"-", "27.200958333333332`"}]], "Output",
 CellChangeTimes->{3.870625946860229*^9},
 CellLabel->"Out[197]=",
 CellID->47418414,ExpressionUUID->"ed210ad6-d1af-4ea5-a64b-9647753d589d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<N\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.8706259629740906`*^9}},
 CellLabel->"In[200]:=",
 CellID->397185934,ExpressionUUID->"731cdc81-8336-43c9-9b27-1430f73161e0"],

Cell[BoxData["27.200958333333332`"], "Output",
 CellChangeTimes->{3.87062596337193*^9},
 CellLabel->"Out[200]=",
 CellID->405502080,ExpressionUUID->"7ffe0d4c-31da-4312-bd8e-b77e0de2f8c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<S\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.870625965166787*^9}},
 CellLabel->"In[201]:=",
 CellID->136935652,ExpressionUUID->"be04f68d-f883-46c1-a2c2-a4dd89deb84d"],

Cell[BoxData[
 RowBox[{"-", "27.200958333333332`"}]], "Output",
 CellChangeTimes->{3.8706259653808146`*^9},
 CellLabel->"Out[201]=",
 CellID->170507538,ExpressionUUID->"0fffe241-1ee0-4b5d-9ed3-1abc2049c828"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<North\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.870625949690802*^9}},
 CellLabel->"In[198]:=",
 CellID->596651977,ExpressionUUID->"1af44333-4712-4dc9-abd3-7bac4b6453ae"],

Cell[BoxData["27.200958333333332`"], "Output",
 CellChangeTimes->{3.870625949974716*^9},
 CellLabel->"Out[198]=",
 CellID->282240961,ExpressionUUID->"5b8fd0b1-45af-4dd8-9c47-ba6a0be56ec9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<South\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.870625954341727*^9}},
 CellLabel->"In[199]:=",
 CellID->754185106,ExpressionUUID->"02e3c86b-8b02-4b38-991f-5f6d4e0ce785"],

Cell[BoxData[
 RowBox[{"-", "27.200958333333332`"}]], "Output",
 CellChangeTimes->{3.8706259546541433`*^9},
 CellLabel->"Out[199]=",
 CellID->261178890,ExpressionUUID->"1509ff47-6f94-435e-bee6-bda13b0bae5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<East\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.870625971310771*^9}},
 CellLabel->"In[202]:=",
 CellID->101994408,ExpressionUUID->"18956a3d-415a-4691-a348-7be815941174"],

Cell[BoxData["27.200958333333332`"], "Output",
 CellChangeTimes->{3.8706259716172347`*^9},
 CellLabel->"Out[202]=",
 CellID->225793412,ExpressionUUID->"f5f70826-b160-4a2b-a56f-77b04f021762"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"{", 
   RowBox[{"27", ",", "12", ",", "3.45", ",", "\"\<West\>\""}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706259343483067`*^9, 3.8706259745059605`*^9}},
 CellLabel->"In[203]:=",
 CellID->489932121,ExpressionUUID->"82cf3b98-70c9-44a4-9923-d23a636e0809"],

Cell[BoxData[
 RowBox[{"-", "27.200958333333332`"}]], "Output",
 CellChangeTimes->{3.8706259748074484`*^9},
 CellLabel->"Out[203]=",
 CellID->43044122,ExpressionUUID->"cb885a21-e099-45ed-9853-12161d8535a6"]
}, Open  ]],

Cell["Convert a string into a numeric angle in degrees:", "Text",
 CellChangeTimes->{{3.8706259798393617`*^9, 3.8706259900812984`*^9}},
 CellID->433973094,ExpressionUUID->"bc8c8d7c-bc51-4531-a263-542e90e5dd1d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870625998817556*^9, 3.870626007451332*^9}},
 CellLabel->"In[204]:=",
 CellID->350722233,ExpressionUUID->"6be04e40-82fb-471a-a941-f4e05f163feb"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.870626007764284*^9},
 CellLabel->"Out[204]=",
 CellID->54438344,ExpressionUUID->"b6455a8d-4d72-4dc4-ada6-1e8304c4d9cd"]
}, Open  ]],

Cell["Input the string in different forms:", "Text",
 CellChangeTimes->{{3.8706260133007383`*^9, 3.8706260189587603`*^9}},
 CellID->902733907,ExpressionUUID->"d7fed85f-266b-4329-96f0-77fd7dcc9400"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23deg11min49.92sec\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626019915476*^9, 3.8706260333051605`*^9}},
 CellLabel->"In[205]:=",
 CellID->371740488,ExpressionUUID->"01b88640-c8b1-4547-bd93-9daa4d847fb5"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.8706260337055445`*^9},
 CellLabel->"Out[205]=",
 CellID->80214082,ExpressionUUID->"798a988d-07c4-4ae4-a2fe-cb5004711b45"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23\[Degree] 11' 49.92''\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626019915476*^9, 3.870626049067894*^9}},
 CellLabel->"In[206]:=",
 CellID->10006240,ExpressionUUID->"01d6054d-8cd1-40f7-a038-6e8da653679a"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.8706260494701076`*^9},
 CellLabel->"Out[206]=",
 CellID->199219970,ExpressionUUID->"a1fcc6f6-0bd4-47ca-850f-ad0bca84a6d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23 arcdegs 11 arcmins 49.92 arcsecs\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870626019915476*^9, 3.87062607512271*^9}},
 CellLabel->"In[208]:=",
 CellID->61263229,ExpressionUUID->"004a86b8-a011-4198-a7b9-035bfcaf7740"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{{3.870626064516095*^9, 3.870626075498186*^9}},
 CellLabel->"Out[208]=",
 CellID->301200451,ExpressionUUID->"d917f152-ed56-4f45-8dbb-6a94f9773379"]
}, Open  ]],

Cell["MOA is for minutes of an arc:", "Text",
 CellChangeTimes->{{3.870626086376137*^9, 3.8706260908597193`*^9}},
 CellID->256771859,ExpressionUUID->"0e2f34f8-2a1d-493c-af46-a15ceaedf0d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23 arcdegs 11 MOA 49.92 arcsecs\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870626019915476*^9, 3.8706260816136775`*^9}},
 CellLabel->"In[209]:=",
 CellID->13911825,ExpressionUUID->"0c8b234e-802d-46d4-9f56-232fe9747c13"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.8706260818187227`*^9},
 CellLabel->"Out[209]=",
 CellID->104153539,ExpressionUUID->"971bd429-1e7b-413c-9648-904cfe6b8039"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s West\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.870626117801039*^9}},
 CellLabel->"In[210]:=",
 CellID->144137292,ExpressionUUID->"d7818505-cdb0-440a-85ce-110d898fccb9"],

Cell[BoxData[
 RowBox[{"-", "23.1972`"}]], "Output",
 CellChangeTimes->{3.8706261185116453`*^9},
 CellLabel->"Out[210]=",
 CellID->9997393,ExpressionUUID->"74acf35d-ce0a-4cdf-b510-0526f218808e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s East\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.8706261225070105`*^9}},
 CellLabel->"In[211]:=",
 CellID->499965174,ExpressionUUID->"6a1e706d-fbec-45d7-b811-5eaef37b3d12"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.8706261228257093`*^9},
 CellLabel->"Out[211]=",
 CellID->214817321,ExpressionUUID->"8e1af89c-25a5-42a6-b081-d9178f1b51ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s North\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.870626126350711*^9}},
 CellLabel->"In[212]:=",
 CellID->380302688,ExpressionUUID->"82bbb18f-1b39-457a-ae19-7cc971dd9187"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.8706261266468935`*^9},
 CellLabel->"Out[212]=",
 CellID->20974738,ExpressionUUID->"4bf17fe5-cb27-46ea-b5fa-c009751475f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s South\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.8706261301410923`*^9}},
 CellLabel->"In[213]:=",
 CellID->215138868,ExpressionUUID->"ff0fe265-60e0-4ec3-87f8-f2fd076e3d2d"],

Cell[BoxData[
 RowBox[{"-", "23.1972`"}]], "Output",
 CellChangeTimes->{3.870626130438613*^9},
 CellLabel->"Out[213]=",
 CellID->463615349,ExpressionUUID->"b14dcf0d-ae5b-49dd-9923-5712b8695030"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s E\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.8706261354297123`*^9}},
 CellLabel->"In[214]:=",
 CellID->293098249,ExpressionUUID->"6c974fb5-677f-4ef5-b6b8-c0f85eded638"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.8706261357293353`*^9},
 CellLabel->"Out[214]=",
 CellID->321062818,ExpressionUUID->"e961e870-e883-43fe-8116-a3410ed6132e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s W\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.8706261374488077`*^9}},
 CellLabel->"In[215]:=",
 CellID->326886259,ExpressionUUID->"b816fb61-e5cb-41b2-a9af-78907528264f"],

Cell[BoxData[
 RowBox[{"-", "23.1972`"}]], "Output",
 CellChangeTimes->{3.8706261376778383`*^9},
 CellLabel->"Out[215]=",
 CellID->390521709,ExpressionUUID->"e7002e55-e284-4e76-ab20-6544fc1f626b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s N\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.870626139806628*^9}},
 CellLabel->"In[216]:=",
 CellID->335772635,ExpressionUUID->"141ece37-d3f0-4371-bc11-38869fdfc697"],

Cell[BoxData["23.1972`"], "Output",
 CellChangeTimes->{3.870626140197229*^9},
 CellLabel->"Out[216]=",
 CellID->387225527,ExpressionUUID->"69550b47-f7f7-4293-8648-b7c33de3124a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23d11m49.92s S\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.870626141711485*^9}},
 CellLabel->"In[217]:=",
 CellID->202216122,ExpressionUUID->"87e6b6d6-93b3-41fc-b126-beed77c27253"],

Cell[BoxData[
 RowBox[{"-", "23.1972`"}]], "Output",
 CellChangeTimes->{3.8706261419286146`*^9},
 CellLabel->"Out[217]=",
 CellID->440883604,ExpressionUUID->"41be2a87-d6ff-43dc-86c1-0124fcf6ded0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<23\[Degree]11'49.92'' S\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870626106144133*^9, 3.8706261630087996`*^9}},
 CellLabel->"In[218]:=",
 CellID->305152382,ExpressionUUID->"7fdcd86d-1fa6-4981-aa0d-92c4c6550e35"],

Cell[BoxData[
 RowBox[{"-", "23.1972`"}]], "Output",
 CellChangeTimes->{3.8706261633023834`*^9},
 CellLabel->"Out[218]=",
 CellID->63461254,ExpressionUUID->"dfa7a849-8c89-463e-ab76-a772e32a168d"]
}, Open  ]],

Cell["\<\
Combine different specifications like d for degree, min for minute and '' for \
second:\
\>", "Text",
 CellChangeTimes->{{3.8706262023154182`*^9, 3.8706262087738934`*^9}, {
  3.8706262397534842`*^9, 3.870626258765216*^9}},
 CellID->75276730,ExpressionUUID->"a18f3cd3-3c53-4147-b096-b8066c117f75"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<40d7min12'' North\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8706262100675173`*^9, 3.87062623755711*^9}},
 CellLabel->"In[220]:=",
 CellID->3198188,ExpressionUUID->"a9845382-686a-4a08-ad98-da32fab30a17"],

Cell[BoxData[
 FractionBox["1003", "25"]], "Output",
 CellChangeTimes->{{3.870626223542425*^9, 3.8706262456758103`*^9}},
 CellLabel->"Out[220]=",
 CellID->273204426,ExpressionUUID->"d75f6545-cab9-45f7-8ccd-ad2b154e7513"]
}, Open  ]],

Cell["Combine two angles into a string:", "Text",
 CellChangeTimes->{{3.870626261643181*^9, 3.870626266545371*^9}},
 CellID->168148319,ExpressionUUID->"19be821e-a4a1-4df2-b295-00e16b640ae5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<40d7m12s North, 88d14m24.s West\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706262100675173`*^9, 3.870626284769231*^9}},
 CellLabel->"In[221]:=",
 CellID->19244968,ExpressionUUID->"045d8e6e-d664-4445-97d5-e2e652091715"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1003", "25"], ",", 
   RowBox[{"-", "88.24`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8706262851367764`*^9},
 CellLabel->"Out[221]=",
 CellID->346941667,ExpressionUUID->"95c75580-1616-4763-928a-7872c14862c6"]
}, Open  ]],

Cell["Input the longitude first:", "Text",
 CellChangeTimes->{{3.870626295883563*^9, 3.8706263002585278`*^9}},
 CellID->66818858,ExpressionUUID->"b1b1bf2a-9dc3-4e15-a6ac-f22b5c0182ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<88d14m24.s West, 40d7m12s North\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706262100675173`*^9, 3.8706263322866526`*^9}},
 CellLabel->"In[225]:=",
 CellID->293532010,ExpressionUUID->"565a6fe0-7d9e-462f-9b78-2537c0e6d6ed"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1003", "25"], ",", 
   RowBox[{"-", "88.24`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8706263083524013`*^9, 3.870626332967173*^9}},
 CellLabel->"Out[225]=",
 CellID->185005552,ExpressionUUID->"d7c17a37-1535-4437-904b-ca874a435cbb"]
}, Open  ]],

Cell["Indicate latitude and longitude:", "Text",
 CellChangeTimes->{{3.8706263383790016`*^9, 3.8706263455715976`*^9}},
 CellID->46224149,ExpressionUUID->"e40eef55-e1e0-410d-a9fb-3c6ad2c386da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<lat 40d7m12.52s, lon 88d14m24.s\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870626346880905*^9, 3.8706263615214825`*^9}},
 CellLabel->"In[226]:=",
 CellID->442444251,ExpressionUUID->"e3e1e208-2c39-41ad-98d6-6694f4a076f1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"40.12014444444444`", ",", "88.24`"}], "}"}]], "Output",
 CellChangeTimes->{3.87062636229004*^9},
 CellLabel->"Out[226]=",
 CellID->198422911,ExpressionUUID->"a93513c3-161c-40bf-afd3-52dd7739df2e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<lon 88d14m24.s, lat 40d7m12.52s\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870626346880905*^9, 3.870626378012747*^9}},
 CellLabel->"In[227]:=",
 CellID->279837877,ExpressionUUID->"e2a78236-c571-4ada-91f2-5b8d299aad24"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"40.12014444444444`", ",", "88.24`"}], "}"}]], "Output",
 CellChangeTimes->{3.8706263783765545`*^9},
 CellLabel->"Out[227]=",
 CellID->268455036,ExpressionUUID->"c99589bd-62c8-4a1e-be32-5877c1772007"]
}, Open  ]],

Cell["Add a cardinal direction:", "Text",
 CellChangeTimes->{{3.8706263893413267`*^9, 3.8706263928343067`*^9}},
 CellID->439236249,ExpressionUUID->"39062f90-a689-4823-83e1-34735a31782b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<lon 88d14m24.s, lat 40d7m12.52s N\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870626346880905*^9, 3.870626384966312*^9}},
 CellLabel->"In[228]:=",
 CellID->11210355,ExpressionUUID->"59d588e4-733c-46d5-8071-9e9e6433dfd5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"40.12014444444444`", ",", "88.24`"}], "}"}]], "Output",
 CellChangeTimes->{3.870626385358672*^9},
 CellLabel->"Out[228]=",
 CellID->139087309,ExpressionUUID->"ec423dcb-168e-4677-a309-2c8d633757ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", "\"\<lon 88d14m24.s, lat 40d7m12.52s S\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.870626346880905*^9, 3.870626396170269*^9}},
 CellLabel->"In[229]:=",
 CellID->396851488,ExpressionUUID->"7b417a65-d7c4-41b0-9c94-567109114d1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "40.12014444444444`"}], ",", "88.24`"}], "}"}]], "Output",
 CellChangeTimes->{3.8706263964781723`*^9},
 CellLabel->"Out[229]=",
 CellID->145541133,ExpressionUUID->"0df3d019-020e-4eb1-9c35-e658a7ab6413"]
}, Open  ]],

Cell["Convert radians to degrees:", "Text",
 CellChangeTimes->{{3.870626407266624*^9, 3.8706264112250032`*^9}},
 CellID->206440174,ExpressionUUID->"23cd047e-b213-4ca0-913b-c76036512582"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"Quantity", "[", 
   RowBox[{"2.7182828", ",", "\"\<Radians\>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706264119057612`*^9, 3.870626419628723*^9}, {
  3.870626504618883*^9, 3.870626510315585*^9}},
 CellLabel->"In[230]:=",
 CellID->21593584,ExpressionUUID->"16e4508f-4e65-4e9f-bf9a-3c4484e1f95d"],

Cell[BoxData["155.74613196300405`"], "Output",
 CellChangeTimes->{3.870626510613411*^9},
 CellLabel->"Out[230]=",
 CellID->517692416,ExpressionUUID->"2d4a8ec6-b43f-4c02-b272-6a07adb46276"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Creating DMS Strings", "Section",
 CellChangeTimes->{{3.8706265518976483`*^9, 3.870626559244813*^9}},
 CellID->18227968,ExpressionUUID->"7d5a8f81-e88a-4491-b431-42b9a6139a66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", "2.71828", "]"}]], "Input",
 CellChangeTimes->{{3.8706265598944473`*^9, 3.870626565862042*^9}},
 CellLabel->"In[231]:=",
 CellID->158758836,ExpressionUUID->"6ce0cc77-b5b1-4656-887c-c8ea563de876"],

Cell[BoxData["\<\"2\[Degree]43'5.808\\\"\"\>"], "Output",
 CellChangeTimes->{3.8706265663870225`*^9},
 CellLabel->"Out[231]=",
 CellID->884685280,ExpressionUUID->"85c6c514-7670-41d3-a9a6-3e0413dd4417"]
}, Open  ]],

Cell["\<\
Convert to a DMS string that specifies one of the cardinal directions:\
\>", "Text",
 CellChangeTimes->{{3.87062656971638*^9, 3.8706265811155953`*^9}},
 CellID->116421127,ExpressionUUID->"f991e837-85d6-42df-9c32-2caea68f7836"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"2.71828", ",", "\"\<NS\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.8706265598944473`*^9, 3.87062658445187*^9}},
 CellLabel->"In[232]:=",
 CellID->109097610,ExpressionUUID->"c33db1c2-3459-4d66-b697-4e981a9f3bfd"],

Cell[BoxData["\<\"2\[Degree]43'5.808\\\"N\"\>"], "Output",
 CellChangeTimes->{3.870626584649204*^9},
 CellLabel->"Out[232]=",
 CellID->751871622,ExpressionUUID->"2b53f1a3-60b8-4a67-b4e4-b1cb52af8105"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{
   RowBox[{"-", "2.71828"}], ",", "\"\<NS\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.8706265598944473`*^9, 3.870626592845906*^9}},
 CellLabel->"In[233]:=",
 CellID->1216241,ExpressionUUID->"768d5ddf-98c9-4b3b-955c-6d70458175a9"],

Cell[BoxData["\<\"2\[Degree]43'5.808\\\"S\"\>"], "Output",
 CellChangeTimes->{3.870626593104679*^9},
 CellLabel->"Out[233]=",
 CellID->431194499,ExpressionUUID->"50171579-0fff-4ae2-ae57-ff54c370e794"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{
   RowBox[{"-", "2.71828"}], ",", "\"\<EW\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.8706265598944473`*^9, 3.870626592845906*^9}, {
  3.8706266425285873`*^9, 3.8706266446729784`*^9}},
 CellLabel->"In[234]:=",
 CellID->1892977,ExpressionUUID->"618b0819-ed7e-47d4-8cb6-143950a5c45a"],

Cell[BoxData["\<\"2\[Degree]43'5.808\\\"W\"\>"], "Output",
 CellChangeTimes->{3.87062664497775*^9},
 CellLabel->"Out[234]=",
 CellID->29111292,ExpressionUUID->"94218f41-a894-4c31-b931-517a4cb41566"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"2.71828", ",", "\"\<EW\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.8706265598944473`*^9, 3.870626592845906*^9}, {
  3.8706266425285873`*^9, 3.870626648881866*^9}},
 CellLabel->"In[235]:=",
 CellID->209302659,ExpressionUUID->"44eae193-6a8b-4e1b-87ce-9891322462a3"],

Cell[BoxData["\<\"2\[Degree]43'5.808\\\"E\"\>"], "Output",
 CellChangeTimes->{3.870626649149226*^9},
 CellLabel->"Out[235]=",
 CellID->18563228,ExpressionUUID->"f05e824b-a7b9-41af-b8e3-29438ba9f231"]
}, Open  ]],

Cell["Enter a list:", "Text",
 CellChangeTimes->{{3.870626653283871*^9, 3.8706266547745285`*^9}},
 CellID->41711276,ExpressionUUID->"8d7ad3a5-d8e0-4a5f-bb5f-45fef1985c2d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706265598944473`*^9, 3.870626592845906*^9}, {
  3.8706266425285873`*^9, 3.8706266608653812`*^9}},
 CellLabel->"In[236]:=",
 CellID->96275058,ExpressionUUID->"69797973-05b4-420d-802d-7a39032541d2"],

Cell[BoxData["\<\"1\[Degree]2'3\\\"\"\>"], "Output",
 CellChangeTimes->{3.8706266612335157`*^9},
 CellLabel->"Out[236]=",
 CellID->24823913,ExpressionUUID->"8fe456d8-5654-485e-be51-71507bd49d2f"]
}, Open  ]],

Cell["Increase the precision:", "Text",
 CellChangeTimes->{{3.8706266397282066`*^9, 3.870626640955161*^9}, {
  3.870626687165923*^9, 3.8706266890110235`*^9}},
 CellID->233546291,ExpressionUUID->"cf855851-d7ac-4a51-8eb0-77442a72ba96"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", "189.392124230", "]"}]], "Input",
 CellChangeTimes->{{3.8706266897042503`*^9, 3.8706266950926495`*^9}},
 CellLabel->"In[237]:=",
 CellID->66044732,ExpressionUUID->"252363fd-0efd-43ee-8f50-f4078ae9046c"],

Cell[BoxData["\<\"189\[Degree]23'31.647\\\"\"\>"], "Output",
 CellChangeTimes->{3.870626695623927*^9},
 CellLabel->"Out[237]=",
 CellID->200589428,ExpressionUUID->"ce104845-7245-4c32-b37b-7d9644aea9b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"189.392124230", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706266897042503`*^9, 3.870626700695052*^9}},
 CellLabel->"In[238]:=",
 CellID->319274420,ExpressionUUID->"629efc7c-1b84-4351-91d6-b87ba2bc0945"],

Cell[BoxData["\<\"189\[Degree]23'31.64723\\\"\"\>"], "Output",
 CellChangeTimes->{3.8706267011321783`*^9},
 CellLabel->"Out[238]=",
 CellID->212544933,ExpressionUUID->"f5888f48-8515-493b-8009-9c6c569f12e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"189.392124230", ",", 
   RowBox[{"{", 
    RowBox[{"\"\<EW\>\"", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8706266897042503`*^9, 3.870626712802662*^9}},
 CellLabel->"In[239]:=",
 CellID->5005257,ExpressionUUID->"bbbd3add-8ce7-4294-a57e-8b2f7592ac25"],

Cell[BoxData["\<\"189\[Degree]23'32.\\\"E\"\>"], "Output",
 CellChangeTimes->{3.870626713056569*^9},
 CellLabel->"Out[239]=",
 CellID->32234878,ExpressionUUID->"7a445adf-df52-47ee-8eff-6c3ce5cf607b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"189.392124230", ",", 
   RowBox[{"{", 
    RowBox[{"\"\<EW\>\"", ",", "7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8706266897042503`*^9, 3.8706267175635424`*^9}},
 CellLabel->"In[240]:=",
 CellID->123115283,ExpressionUUID->"5dfbb1aa-7734-464d-b29d-e194fc13ff12"],

Cell[BoxData["\<\"189\[Degree]23'31.6472280\\\"E\"\>"], "Output",
 CellChangeTimes->{3.870626717844035*^9},
 CellLabel->"Out[240]=",
 CellID->79371547,ExpressionUUID->"cb2847f3-e019-4a04-ac45-e80414525ac7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", "Here", "]"}]], "Input",
 CellChangeTimes->{{3.8706267570509815`*^9, 3.870626758661137*^9}},
 CellLabel->"In[241]:=",
 CellID->147568390,ExpressionUUID->"df02fabb-e451-4ca3-ae2b-4558c02a26e0"],

Cell[BoxData["\<\"38\[Degree]24'36.000\\\"N 82\[Degree]26'24.000\\\"W\"\>"], \
"Output",
 CellChangeTimes->{3.870626758942199*^9},
 CellLabel->"Out[241]=",
 CellID->6027888,ExpressionUUID->"00928fb9-1cb2-486e-b87e-003ce2c02181"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", "$GeoLocation", "]"}]], "Input",
 CellChangeTimes->{{3.870626765057873*^9, 3.8706267688493795`*^9}},
 CellLabel->"In[242]:=",
 CellID->82336024,ExpressionUUID->"d560439e-040d-461c-b4ec-54cdca500880"],

Cell[BoxData["\<\"38\[Degree]24'36.000\\\"N 82\[Degree]26'24.000\\\"W\"\>"], \
"Output",
 CellChangeTimes->{3.87062676935365*^9},
 CellLabel->"Out[242]=",
 CellID->52541272,ExpressionUUID->"a7940b07-9bed-47ea-9ef9-0754ae85843d"]
}, Open  ]],

Cell["Convert radians to a dms string", "Text",
 CellChangeTimes->{{3.8706267813308225`*^9, 3.870626784989494*^9}},
 CellID->73472698,ExpressionUUID->"c714aafa-6b58-485a-9adb-3d0c000001cd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"Quantity", "[", 
   RowBox[{"2.71828281845", ",", "\"\<Radians\>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706267756039095`*^9, 3.870626796729102*^9}},
 CellLabel->"In[243]:=",
 CellID->385845331,ExpressionUUID->"d74e5db9-2f40-4611-8c5b-ec24d5d7bf74"],

Cell[BoxData["\<\"155\[Degree]44'46.079\\\"\"\>"], "Output",
 CellChangeTimes->{3.8706267969960947`*^9},
 CellLabel->"Out[243]=",
 CellID->61750948,ExpressionUUID->"7ae23020-6105-4e79-8ad7-783f615a7c6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{
   RowBox[{"Quantity", "[", 
    RowBox[{"2.71828281845", ",", "\"\<Radians\>\""}], "]"}], ",", "10"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8706267756039095`*^9, 3.870626801177306*^9}},
 CellLabel->"In[244]:=",
 CellID->319505531,ExpressionUUID->"b7a11c1d-2787-49ad-9bf5-ff9cde237e3f"],

Cell[BoxData["\<\"155\[Degree]44'46.0788724003\\\"\"\>"], "Output",
 CellChangeTimes->{3.8706268014626865`*^9},
 CellLabel->"Out[244]=",
 CellID->600253279,ExpressionUUID->"188424b9-5e07-4313-a3e0-094b2181e6f6"]
}, Open  ]],

Cell["Use rationalize to recover the input:", "Text",
 CellChangeTimes->{{3.8706268356622934`*^9, 3.870626857932746*^9}},
 CellID->21620047,ExpressionUUID->"7ac60c28-516e-4fe7-b520-6d0a9c906dbb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSString", "[", 
  RowBox[{"343873", "/", "10000"}], "]"}]], "Input",
 CellChangeTimes->{{3.870626859056715*^9, 3.8706268689698725`*^9}},
 CellLabel->"In[245]:=",
 CellID->151472192,ExpressionUUID->"64b6783a-c7c0-430f-bb1d-93b509d5f131"],

Cell[BoxData["\<\"34\[Degree]23'14.280\\\"\"\>"], "Output",
 CellChangeTimes->{3.8706268694969764`*^9},
 CellLabel->"Out[245]=",
 CellID->11698031,ExpressionUUID->"d5a54c38-d035-459d-996c-a0f27a5618b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDMS", "[", 
  RowBox[{"DMSString", "[", 
   RowBox[{"343873", "/", "10000"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706268717153263`*^9, 3.8706268734802237`*^9}},
 CellLabel->"In[246]:=",
 CellID->1803201,ExpressionUUID->"c715f297-286d-4709-ae78-05687edaaa98"],

Cell[BoxData["34.387299999999996`"], "Output",
 CellChangeTimes->{3.8706268737909546`*^9},
 CellLabel->"Out[246]=",
 CellID->798588572,ExpressionUUID->"1e99a647-93c0-452a-bf46-92a1fd263f9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rationalize", "[", 
  RowBox[{"FromDMS", "[", 
   RowBox[{"DMSString", "[", 
    RowBox[{"343873", "/", "10000"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706268745341125`*^9, 3.870626876671236*^9}},
 CellLabel->"In[247]:=",
 CellID->185934865,ExpressionUUID->"b93463c8-54b8-42e1-9638-9c972e333823"],

Cell[BoxData[
 FractionBox["343873", "10000"]], "Output",
 CellChangeTimes->{3.870626876998638*^9},
 CellLabel->"Out[247]=",
 CellID->347377553,ExpressionUUID->"b197ae23-441c-4a29-a92b-8aa59415eb49"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Creating a DMSList", "Section",
 CellChangeTimes->{{3.8706281818316746`*^9, 3.870628187700553*^9}},
 CellID->598684613,ExpressionUUID->"5737db6d-a065-46f5-b7c0-7ca8a90691f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "20.3", "]"}]], "Input",
 CellChangeTimes->{{3.870628204751609*^9, 3.8706282076406965`*^9}},
 CellLabel->"In[248]:=",
 CellID->114092915,ExpressionUUID->"fbcba232-3a87-4292-8a5e-3a207f94ec37"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"20", ",", "18", ",", "0.`"}], "}"}]], "Output",
 CellChangeTimes->{3.870628207931632*^9},
 CellLabel->"Out[248]=",
 CellID->137003715,ExpressionUUID->"f1111263-88ae-4af4-8d24-95714a5f4e91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "20.52", "]"}]], "Input",
 CellChangeTimes->{{3.870628204751609*^9, 3.8706282109112415`*^9}},
 CellLabel->"In[249]:=",
 CellID->128909627,ExpressionUUID->"555eda58-65e1-4e63-a881-08c35bd2b5fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"20", ",", "31", ",", "11.999999999998465`"}], "}"}]], "Output",
 CellChangeTimes->{3.8706282113899455`*^9},
 CellLabel->"Out[249]=",
 CellID->551408263,ExpressionUUID->"25bfa7a8-3e52-47c0-b400-4c29ee6ca073"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "20.43", "]"}]], "Input",
 CellChangeTimes->{{3.870628204751609*^9, 3.8706282155735273`*^9}},
 CellLabel->"In[250]:=",
 CellID->265694605,ExpressionUUID->"440e4aec-0260-4d5f-aa5a-a41cd4f720d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"20", ",", "25", ",", "47.99999999999898`"}], "}"}]], "Output",
 CellChangeTimes->{3.8706282160800695`*^9},
 CellLabel->"Out[250]=",
 CellID->63042657,ExpressionUUID->"0ab4d291-9fba-4e99-9ece-6e55f4150629"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "20.4332", "]"}]], "Input",
 CellChangeTimes->{{3.870628204751609*^9, 3.87062822035517*^9}},
 CellLabel->"In[251]:=",
 CellID->2687169,ExpressionUUID->"8c0fac79-7f70-4660-baa0-71f4abde89a9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"20", ",", "25", ",", "59.51999999999771`"}], "}"}]], "Output",
 CellChangeTimes->{3.870628220919365*^9},
 CellLabel->"Out[251]=",
 CellID->308122951,ExpressionUUID->"0028fdf6-ec77-44fd-a02b-f04cda12f47d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "\"\<40\[Degree]5'41.5781\\\"W\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870628204751609*^9, 3.870628249963647*^9}},
 CellLabel->"In[252]:=",
 CellID->354607024,ExpressionUUID->"7252e399-d412-4447-9308-04c3c881553a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "40"}], ",", 
   RowBox[{"-", "5"}], ",", 
   RowBox[{"-", "41.578100000003815`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8706282502655663`*^9},
 CellLabel->"Out[252]=",
 CellID->494745493,ExpressionUUID->"88af3026-3d88-48d0-aecb-9cf8a6029413"]
}, Open  ]],

Cell["Convert a DMS list to canonical form:", "Text",
 CellChangeTimes->{{3.870628258623264*^9, 3.87062826555167*^9}},
 CellID->543527996,ExpressionUUID->"d340c165-a879-4c3a-aec8-f3a70df2b977"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", 
  RowBox[{"{", 
   RowBox[{"11", ",", 
    RowBox[{"-", "3"}], ",", "4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706282666558084`*^9, 3.870628274717927*^9}},
 CellLabel->"In[253]:=",
 CellID->118936303,ExpressionUUID->"9a37c033-de9a-4265-a39c-6e4d7f0527f5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", "57", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.8706282751848307`*^9},
 CellLabel->"Out[253]=",
 CellID->20525690,ExpressionUUID->"a2fe7059-8c36-4cf6-98a2-f21f155315ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$GeoLocation", "//", "DMSList"}]], "Input",
 CellChangeTimes->{{3.870628281111083*^9, 3.870628292637006*^9}},
 CellLabel->"In[254]:=",
 CellID->576016406,ExpressionUUID->"1e26fa90-8e0c-4ce8-b0e7-85734c0d1dc8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"38", ",", "24", ",", "36.0000000000133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "82"}], ",", 
     RowBox[{"-", "26"}], ",", 
     RowBox[{"-", "23.999999999991815`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.870628293003127*^9},
 CellLabel->"Out[254]=",
 CellID->535956560,ExpressionUUID->"3044e00d-0a87-49fd-bb0d-7debd7b0e26d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "\"\<-23d11m49.94\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870628316933915*^9, 3.870628325052025*^9}},
 CellLabel->"In[255]:=",
 CellID->610418970,ExpressionUUID->"6868b84d-5d2b-4c33-bc7f-04bbe3837610"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "23"}], ",", 
   RowBox[{"-", "11"}], ",", 
   RowBox[{"-", "49.94000000000028`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.870628326418028*^9},
 CellLabel->"Out[255]=",
 CellID->144607787,ExpressionUUID->"13984299-736f-4471-8d39-2e1690410e49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", "\"\<+23d11m49.94\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.870628316933915*^9, 3.870628329915386*^9}},
 CellLabel->"In[256]:=",
 CellID->3192970,ExpressionUUID->"da71af0d-0b78-49fb-9de5-f9daa564dcb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"23", ",", "11", ",", "49.94000000000028`"}], "}"}]], "Output",
 CellChangeTimes->{3.8706283303001165`*^9},
 CellLabel->"Out[256]=",
 CellID->55020497,ExpressionUUID->"a48c313b-cb09-4c5f-9872-7387500e2f37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", 
  RowBox[{"-", "32.24657"}], "]"}]], "Input",
 CellChangeTimes->{{3.870628371746847*^9, 3.8706283941473155`*^9}},
 CellLabel->"In[259]:=",
 CellID->779486626,ExpressionUUID->"a65db0d9-13a2-412c-a622-a07665678671"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "32"}], ",", 
   RowBox[{"-", "14"}], ",", 
   RowBox[{"-", "47.651999999994246`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8706283778965197`*^9, 3.8706283945006495`*^9}},
 CellLabel->"Out[259]=",
 CellID->687420767,ExpressionUUID->"b7d2720f-fa45-480b-bfad-d981f87b82ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumberDecompose", "[", 
  RowBox[{
   RowBox[{"-", "32.24657"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"1", "/", "60"}], ",", 
     RowBox[{"1", "/", "360"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.870628385329225*^9, 3.870628402225862*^9}},
 CellLabel->"In[260]:=",
 CellID->344916683,ExpressionUUID->"7b37aa10-73b8-482a-84c8-54d954fec78b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "32"}], ",", 
   RowBox[{"-", "14"}], ",", 
   RowBox[{"-", "4.765199999999423`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.870628402573638*^9},
 CellLabel->"Out[260]=",
 CellID->6438767,ExpressionUUID->"27c05370-7c73-4a54-b9df-2aa264f897c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumberDecompose", "[", 
  RowBox[{
   RowBox[{"-", "32.24657"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"1", "/", "60"}], ",", 
     RowBox[{"1", "/", "360"}], ",", 
     RowBox[{"1", "/", 
      SuperscriptBox["60", "3"]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.870628385329225*^9, 3.870628413546967*^9}},
 CellLabel->"In[261]:=",
 CellID->35989926,ExpressionUUID->"2ab16b37-7d88-4584-af3e-4ce78c5e3b74"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "32"}], ",", 
   RowBox[{"-", "14"}], ",", 
   RowBox[{"-", "4"}], ",", 
   RowBox[{"-", "459.1199999996538`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.870628414194562*^9},
 CellLabel->"Out[261]=",
 CellID->614953506,ExpressionUUID->"f5e8c41f-7ace-4b70-8e83-b9d9027bca16"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dmsUnit", "=", 
   RowBox[{"MixedUnit", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<AngularDegrees\>\"", ",", "\"\<Arcminutes\>\"", ",", 
      "\"\<Arcseconds\>\""}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8706284239587717`*^9, 3.870628454923704*^9}},
 CellLabel->"In[263]:=",
 CellID->496339943,ExpressionUUID->"17d13f4f-81db-4392-b1fc-9f37f521f0f7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   RowBox[{"Quantity", "[", 
    RowBox[{"75.7583", ",", "\"\<AngularDegrees\>\""}], "]"}], ",", 
   "dmsUnit"}], "]"}]], "Input",
 CellChangeTimes->{{3.870628450634632*^9, 3.8706284708763027`*^9}},
 CellLabel->"In[264]:=",
 CellID->96460557,ExpressionUUID->"06694598-2074-4ab4-b43e-25ee8fbacfda"],

Cell[BoxData[
 TemplateBox[{"75", "45", "29.88000000001989`", 
   RowBox[{"\[ThinSpace]", "\"\[Degree]\""}], 
   RowBox[{"\[ThinSpace]", "\"'\""}], 
   RowBox[{"\[ThinSpace]", "\"\\\"\""}], "degrees,arcminutes,arcseconds", 
   RowBox[{"{", 
     RowBox[{
      "\"AngularDegrees\"", ",", "\"Arcminutes\"", ",", "\"Arcseconds\""}], 
     "}"}]},
  "QuantityMixedUnit3"]], "Output",
 CellChangeTimes->{3.870628471133627*^9},
 CellLabel->"Out[264]=",
 CellID->476945472,ExpressionUUID->"9fc7bb5d-eda1-4b6b-b3ec-9e9c7710d2cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DMSList", "[", 
  RowBox[{"UnitConvert", "[", 
   RowBox[{
    RowBox[{"Quantity", "[", 
     RowBox[{"75.7583", ",", "\"\<AngularDegrees\>\""}], "]"}], ",", 
    "dmsUnit"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706284853732247`*^9, 3.870628487159039*^9}},
 CellLabel->"In[265]:=",
 CellID->7417317,ExpressionUUID->"5dfc3ca8-4bd3-4cae-9389-d16a890a8ab1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"75", ",", "45", ",", "29.87999999996873`"}], "}"}]], "Output",
 CellChangeTimes->{3.870628487484096*^9},
 CellLabel->"Out[265]=",
 CellID->127892808,ExpressionUUID->"34ba23f5-d53c-4292-8695-dc7a0db9dc2d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Quantity", "[", 
  RowBox[{
   RowBox[{"MixedMagnitude", "[", 
    RowBox[{"DMSList", "[", 
     RowBox[{"UnitConvert", "[", 
      RowBox[{
       RowBox[{"Quantity", "[", 
        RowBox[{"75.7583", ",", "\"\<AngularDegrees\>\""}], "]"}], ",", 
       "dmsUnit"}], "]"}], "]"}], "]"}], ",", "dmsUnit"}], "]"}]], "Input",
 CellChangeTimes->{{3.8706284904388466`*^9, 3.8706285137145696`*^9}},
 CellLabel->"In[267]:=",
 CellID->42243250,ExpressionUUID->"c3864d9a-3174-43f3-a464-a61f52a49b6d"],

Cell[BoxData[
 TemplateBox[{"75", "45", "29.87999999996873`", 
   RowBox[{"\[ThinSpace]", "\"\[Degree]\""}], 
   RowBox[{"\[ThinSpace]", "\"'\""}], 
   RowBox[{"\[ThinSpace]", "\"\\\"\""}], "degrees,arcminutes,arcseconds", 
   RowBox[{"{", 
     RowBox[{
      "\"AngularDegrees\"", ",", "\"Arcminutes\"", ",", "\"Arcseconds\""}], 
     "}"}]},
  "QuantityMixedUnit3"]], "Output",
 CellChangeTimes->{{3.870628496138444*^9, 3.870628513973485*^9}},
 CellLabel->"Out[267]=",
 CellID->639194454,ExpressionUUID->"98e88afe-04fd-4bda-8e13-6562a5e05b52"]
}, Open  ]],

Cell["Make a", "Text",
 CellChangeTimes->{{3.870628405113638*^9, 3.8706284077145553`*^9}},
 CellID->419433869,ExpressionUUID->"2a62d268-b67d-43cf-9441-44bdc4e1caef"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.870628331552003*^9, 3.870628333782233*^9}},
 CellID->46475384,ExpressionUUID->"21e3d36f-1781-486e-a2ca-1a68f00fd0b9"],

Cell["XXXX:", "CodeText",
 CellTags->"ExampleCodeText",
 CellID->66178570,ExpressionUUID->"b8f16d1a-9cf8-4c1c-995b-1b11a6b7b3c0"],

Cell[CellGroupData[{

Cell[BoxData[Cell[BoxData[
 "XXXX"], "Input",ExpressionUUID->
  "199b1e12-e32a-43d2-bb61-3ded10db1ed0"]], "Input",
 CellTags->"ExampleInput",
 CellLabel->"In[1]:=",
 CellID->844129532,ExpressionUUID->"e756100c-540c-43b9-be4c-21761a8079e5"],

Cell[BoxData[Cell[BoxData[
 "XXXX"], "Output",ExpressionUUID->
  "3d10bd36-6381-4cae-81b3-785c45643fb1"]], "Output",
 CellTags->"ExampleOutput",
 CellLabel->"Out[1]=",
 CellID->171130590,ExpressionUUID->"c00f4ee8-0557-49a4-ab3b-dadc018208b9"]
}, Open  ]],

Cell["XXXX", "Item",
 CellID->316654537,ExpressionUUID->"acdb2ad8-0a92-4f50-8bae-de040b09b38c"],

Cell["XXXX", "Item",
 CellID->316654538,ExpressionUUID->"8090181c-e17a-4c99-bc3c-696fb19cb01c"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{641.4, 574.8},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
TaggingRules->{
 "ResourceType" -> "ComputationalEssay", "ResourceCreateNotebook" -> True, 
  "TemplateVersion" -> <||>, "CreationTimestamp" -> 
  3.8572120809455172`17.338848507479508*^9, "UpdatedTimestamp" -> 
  3.8572120809455172`17.338848507479508*^9, "CompatibilityTest" -> 
  HoldComplete[
    BinaryDeserialize[
     ByteArray[{56, 67, 58, 120, 156, 133, 143, 205, 78, 131, 64, 20, 133, 
      163, 173, 110, 116, 213, 165, 79, 224, 6, 70, 11, 105, 138, 59, 197, 
      198, 184, 193, 70, 92, 184, 100, 24, 238, 164, 83, 7, 46, 153, 123, 41, 
      229, 237, 29, 140, 186, 193, 196, 245, 249, 249, 206, 209, 115, 90, 164,
       88, 183, 216, 53, 213, 230, 216, 58, 32, 50, 216, 232, 19, 58, 203, 0, 
      42, 202, 175, 95, 129, 176, 115, 10, 242, 129, 24, 234, 212, 26, 104, 
      184, 120, 4, 109, 26, 195, 222, 153, 33, 67, 137, 248, 81, 232, 83, 154,
       229, 192, 62, 25, 252, 25, 217, 58, 115, 144, 12, 133, 69, 89, 253, 24,
       222, 134, 22, 124, 238, 242, 222, 50, 184, 70, 178, 57, 0, 229, 87, 
      227, 156, 142, 229, 216, 46, 237, 134, 72, 14, 191, 133, 139, 169, 70, 
      243, 172, 179, 214, 99, 207, 159, 253, 11, 55, 14, 184, 72, 45, 118, 
      213, 75, 185, 7, 197, 249, 251, 142, 185, 165, 59, 33, 250, 190, 15, 
      123, 180, 218, 201, 90, 141, 122, 168, 176, 22, 88, 238, 133, 251, 110, 
      167, 175, 185, 98, 138, 72, 177, 97, 127, 65, 248, 215, 217, 195, 86, 
      178, 218, 133, 253, 81, 123, 208, 236, 9, 38, 188, 205, 191, 188, 106, 
      149, 68, 55, 75, 121, 27, 64, 164, 203, 32, 6, 41, 131, 36, 134, 117, 
      160, 228, 58, 74, 226, 74, 173, 202, 104, 249, 9, 89, 192, 149, 140}]]],
   "ToolsOpen" -> True, "StatusMessage" -> ""},
CreateCellID->True,
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (June 16, 2022)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        TemplateBox[{}, "MainGridTemplate"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> 
       RGBColor[0.7185389999999999, 0.5009625, 0.266231], 
       CellTags -> {"MainDockedCell"}, CacheGraphics -> False], 
      Cell[
       BoxData[
        TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", 
       TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, 
       CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, 
       CacheGraphics -> False, CellOpen -> Dynamic[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, 
    AutoQuoteCharacters -> {}], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 
    14, GridBoxOptions -> {BaseStyle -> {}}], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.09090909090909091], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZiAAOF25VKDkD6QeAOUQckvgKHjhSIThCYoQii
HbYVy4HVqbApgOgVx06DaYaoJzIgumJfPMScpbMlQHQAj5MyiF7wXl0EmX+g
KIMfmZ9gfZ8NWb9CTD8Divm/6r7YI9l/wP3hK3sk98H4MPfD+A1TnQWR9TOc
/86JbD6D4gZmZPsZmg78skdyH4Pous/2SO6H8WH+g/Fh/ofph4UP3Hxo+MHt
h4YvzH0o4Q8Ayr1fpA==
               "], CurveClosed -> {1}]}, {
              JoinForm[{"Miter", 10.}], 
              Thickness[0.04581818255511197], 
              RGBColor[
              0.6274509803921569, 0.6274509803921569, 0.6274509803921569, 
               1.]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQzcDw4OydWhEHBoYJO6YlyIBoE+cbwkj8CybOHiB+
xY5p00D8BefunBUC0g8CDdhkgTQHk0A4iF8j97cYxP9w7o4kiL+kJZlBDomv
EmiwFpm/RPZvpDyQtjF1DgXxzzQnP5NHMv/cQUNNBSDNklHmBrJ/20HDeBD/
SHrZNRB/1UHDKhAf5n4Yf8rZOxqiSPyQs3d2iCLpfzNzpb4YkvktaWXLxJDs
v3DmzkMxJPfB+DD3w/gFgQZMckj6PV6fLJVFMh8WPgqzVu4C2e/SmjwDFH4J
s1ZqiSKFL2r4AwBR8n/j
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQzcBQ8J9fV8KBgeFBne5FTgcEn6FB15MdSAfMWXlO
AAsfpr5j9soJQkD6x5PJjVxAWsHUeQqIv8Pr13duEH3uznQQv2BDQgMvEn/H
+gQ5fiT+lq7kGAEkvkG4gZAgEj9g77QNyPw1e6YpCiPx34QavAbx3zAKTAPx
OfZMmyQCpPecu9MH4p/ZPU1SFEirmDp3g/gTdk9bAOIfOHenFcRveXdSTwxI
x2SUNYD4d9qTD4H4LGbOk0HuilD8yyKOxF/x9qQsKJw6jJ21QOoW7Jz2RxJk
PoPADBD/y5uTm0D8KWllTSD+H8W/k0WR+DD/wOWV/woj82HhAeN31OiK8yPx
VzyeXAoKzwRj5xawvPjxD6DwPjJzZacYUnygxi8A+72aOA==
                "]}]}, {
              FaceForm[
               RGBColor[
               0.6274509803921569, 0.6274509803921569, 0.6274509803921569, 
                1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, 
           PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.09090909090909091], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZiAAOF25VKDkD6QeAOUQckvgKHjhSIThCYoQii
HbYVy4HVqbApgOgVx06DaYaoJzIgumJfPMScpbMlQHQAj5MyiF7wXl0EmX+g
KIMfmZ9gfZ8NWb9CTD8Divm/6r7YI9l/wP3hK3sk98H4MPfD+A1TnQWR9TOc
/86JbD6D4gZmZPsZmg78skdyH4Pous/2SO6H8WH+g/Fh/ofph4UP3Hxo+MHt
h4YvzH0o4Q8Ayr1fpA==
               "], CurveClosed -> {1}]}, {
              JoinForm[{"Miter", 10.}], 
              Thickness[0.04581818255511197], 
              RGBColor[
              0.5019607843137255, 0.5019607843137255, 0.5019607843137255, 
               1.]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZiAAOF25VKDkD6QeAOUQckvgKHjhSIThCYoQii
HbYVy4HVqbApgOgVx06DaYaoJzIgumJfPMScpbMlQHQAj5MyiF7wXl0EmX+g
KIMfmZ9gfZ8NWb9CTD8Divm/6r7YI9l/wP3hK3sk98H4MPfD+A1TnQWR9TOc
/86JbD6D4gZmZPsZmg78skdyH4Pous/2SO6H8WH+g/Fh/ofph4UP3Hxo+MHt
h4YvzH0o4Q8Ayr1fpA==
               "]]}, {
              FaceForm[
               RGBColor[
               0.5019607843137255, 0.5019607843137255, 0.5019607843137255, 
                1.]]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQzcDw4OydWhEHBoYJO6YlyIBoE+cbwkj8CybOHiB+
xY5p00D8BefunBUC0g8CDdhkgTQHk0A4iF8j97cYxP9w7o4kiL+kJZlBDomv
EmiwFpm/RPZvpDyQtjF1DgXxzzQnP5NHMv/cQUNNBSDNklHmBrJ/20HDeBD/
SHrZNRB/1UHDKhAf5n4Yf8rZOxqiSPyQs3d2iCLpfzNzpb4YkvktaWXLxJDs
v3DmzkMxJPfB+DD3w/gFgQZMckj6PV6fLJVFMh8WPgqzVu4C2e/SmjwDFH4J
s1ZqiSKFL2r4AwBR8n/j
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQzcBQ8J9fV8KBgeFBne5FTgcEn6FB15MdSAfMWXlO
AAsfpr5j9soJQkD6x5PJjVxAWsHUeQqIv8Pr13duEH3uznQQv2BDQgMvEn/H
+gQ5fiT+lq7kGAEkvkG4gZAgEj9g77QNyPw1e6YpCiPx34QavAbx3zAKTAPx
OfZMmyQCpPecu9MH4p/ZPU1SFEirmDp3g/gTdk9bAOIfOHenFcRveXdSTwxI
x2SUNYD4d9qTD4H4LGbOk0HuilD8yyKOxF/x9qQsKJw6jJ21QOoW7Jz2RxJk
PoPADBD/y5uTm0D8KWllTSD+H8W/k0WR+DD/wOWV/woj82HhAeN31OiK8yPx
VzyeXAoKzwRj5xawvPjxD6DwPjJzZacYUnygxi8A+72aOA==
                "]}]}, {
              FaceForm[
               RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, 
           ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, 
           AspectRatio -> Automatic]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["MoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], 
           "\"Click for more information\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (NotebookDelete[
            CurrentValue[
             ParentCell[
              EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[
            And[
             MatchQ[
              CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], 
              Blank[CellObject]], CurrentValue[
               ParentCell[
                EvaluationCell[]], {
               TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = 
             Inherited; CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = 
             Inherited; Null, CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; 
            CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 
         Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 
        BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["InlineMoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, 
          "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[
            CurrentValue[
             ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[
            And[
             MatchQ[
              CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], 
              Blank[CellObject]], CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #],
             CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = 
             Inherited; CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = 
             Inherited; Null, CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; 
            CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ReleaseHold[#3], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 
         Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 
        BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["ClickToCopyTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
           GridBox[{{#, 
              ButtonBox[
               GraphicsBox[{
                 GrayLevel[0.75], 
                 Thickness[
                  NCache[
                   Rational[2, 45], 0.044444444444444446`]], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
                   9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 
                   18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
                   16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
                   15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
                   8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 
                   16.5}, {9.75, 16.5}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
                  14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
                  14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 
                  9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 
                  7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, 
                ImageSize -> 12], ButtonFunction :> Null, 
               Appearance -> {
                "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
               Evaluator -> Automatic, Method -> "Preemptive"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
             AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> 
         DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Mouseover[
                    Graphics[{
                    GrayLevel[0.5], 
                    Thickness[
                    Rational[2, 45]], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], 
                    Graphics[{
                    RGBColor[
                    0.9882352941176471, 0.4196078431372549, 
                    0.20392156862745098`], 
                    Thickness[
                    Rational[2, 45]], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12]], 
                    "Click to copy to the clipboard"], 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Graphics[{
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    Thickness[
                    Rational[2, 45]], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 
                    1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], 
                  Evaluator -> "System"], 
                 ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; 
                  CopyToClipboard[
                    BinaryDeserialize[
                    BaseDecode[#2], Defer]]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> "System"], 
                MouseAppearanceTag["LinkHand"]]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
           DynamicModuleValues :> {}]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["PrettyTooltipTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        TooltipBox[#, 
         FrameBox[
          
          StyleBox[#2, "Text", FontColor -> 
           RGBColor[
            0.5372549019607843, 0.5372549019607843, 0.5372549019607843], 
           FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", 
           StripOnInput -> False], Background -> 
          RGBColor[
           0.9607843137254902, 0.9607843137254902, 0.9607843137254902], 
          FrameStyle -> 
          RGBColor[
           0.8980392156862745, 0.8980392156862745, 0.8980392156862745], 
          FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, 
         TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, 
         Framed[
          Style[
          RSNB`$$tooltip, "Text", FontColor -> 
           RGBColor[
            0.5372549019607843, 0.5372549019607843, 0.5372549019607843], 
           FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], 
          Background -> 
          RGBColor[
           0.9607843137254902, 0.9607843137254902, 0.9607843137254902], 
          FrameStyle -> 
          RGBColor[
           0.8980392156862745, 0.8980392156862745, 0.8980392156862745], 
          FrameMargins -> 8], "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ToolsGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{
           ButtonBox[
            StyleBox[
            "\"Insert Code Group\"", "Text", FontFamily -> "Source Sans Pro", 
             FontSize -> 11, StripOnInput -> False], ButtonFunction :> 
            With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
              Quiet[
               
               Block[{$ContextPath = RSNB`$cp$, 
                 ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                 False}, 
                Internal`WithLocalSettings[
                 ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                   True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                  Needs["ResourceSystemClient`DefinitionNotebook`"], 
                  ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  RSNB`nb$, 
                   
                   ComputationalEssayHelpers`Private`\
createComputationalParagraph[]], 
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                   False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, 
            BaseStyle -> Dynamic[
              FEPrivate`If[
               CurrentValue[Enabled], 
               FEPrivate`If[
                CurrentValue["MouseOver"], {
                FontColor -> RGBColor[0.898039, 0.898039, 0.898039]}, {
                FontColor -> 
                 RGBColor[
                  0.17960779999999998`, 0.17960779999999998`, 
                   0.17960779999999998`]}], {
               FontColor -> 
                RGBColor[
                 0.5898038999999999, 0.5898038999999999, 
                  0.5898038999999999]}], Evaluator -> "System"], 
            Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqt7e3HQaAbLhiuLLz588DpR48eAC3
AsgGigDF4coePnzY19cH5yI7BigOlIW4Fqilu7sbq7OB4kBZBjAgRhmRphHv
NiJ9Sny4ERMLaABrnAIA5lG1ZQ==
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqs7WpoaoEgoBsuGK4svPnzzfWlK+o
9dve4AJBQDZQBCgOV/bw4cOOloZVtb5wNRAEFAGKA2UhrgVqaaouRlMDQUBx
oCwDGBCjjEjTiHcbkT4lPtyIiQVi4hQArnpwkw==
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqw5dvrz9BEZANVwxX9urVq3efvxUt
PujVuQGCgGygCFAcruzZs2fvPn3Nmb8frgaCgCJAcaAsxLVALc/efUZTA0FA
caAsAxgQo4xI04h3G5E+JT7ciIkFYuIUAHu5mtk=
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
            Background -> RGBColor[0.898039, 0.898039, 0.898039], Method -> 
            "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[
              Not[
               TrueQ[
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
              TrackedSymbols :> {
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}], 
            Evaluator -> Automatic], 
           ActionMenuBox[
            ButtonBox[
             TemplateBox[{
               StyleBox[
                
                TemplateBox[{
                 "\"Insert Headings\"", 
                  "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\
\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, 
                StripOnInput -> False], 
               "\"Insert a cell of the chosen type below the current \
selection\""}, "PrettyTooltipTemplate"], ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; CurrentValue[
                    RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, Null], 
                   CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; ResourceSystemClient`DefinitionNotebook`$\
ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> RGBColor[0.898039, 0.898039, 0.898039]}, {
                 FontColor -> 
                  RGBColor[
                   0.17960779999999998`, 0.17960779999999998`, 
                    0.17960779999999998`]}], {
                FontColor -> 
                 RGBColor[
                  0.5898038999999999, 0.5898038999999999, 
                   0.5898038999999999]}], Evaluator -> "System"], 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqt7e3HQaAbLhiuLLz588DpR48eAC3
AsgGigDF4coePnzY19cH5yI7BigOlIW4Fqilu7sbq7OB4kBZBjAgRhmRphHv
NiJ9Sny4ERMLaABrnAIA5lG1ZQ==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqs7WpoaoEgoBsuGK4svPnzzfWlK+o
9dve4AJBQDZQBCgOV/bw4cOOloZVtb5wNRAEFAGKA2UhrgVqaaouRlMDQUBx
oCwDGBCjjEjTiHcbkT4lPtyIiQVi4hQArnpwkw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqw5dvrz9BEZANVwxX9urVq3efvxUt
PujVuQGCgGygCFAcruzZs2fvPn3Nmb8frgaCgCJAcaAsxLVALc/efUZTA0FA
caAsAxgQo4xI04h3G5E+JT7ciIkFYuIUAHu5mtk=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.898039, 0.898039, 0.898039], Method -> 
             "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[
               Not[
                TrueQ[
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
               TrackedSymbols :> {
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}], 
             Evaluator -> Automatic], {DynamicBox[
               ToBoxes[
                
                Grid[{{"Section", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "4") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Section"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], DynamicBox[
               ToBoxes[
                
                Grid[{{"Subsection", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "5") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Subsection"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], DynamicBox[
               ToBoxes[
                
                Grid[{{"Subsubsection", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "6") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Subsubsection"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], Delimiter, DynamicBox[
               ToBoxes[
                
                Grid[{{"Title", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "1") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Title"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], DynamicBox[
               ToBoxes[
                
                Grid[{{"Subtitle", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "2") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Subtitle"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], DynamicBox[
               ToBoxes[
                
                Grid[{{"Chapter", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "3") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Chapter"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Author\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Author"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Abstract\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Abstract"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]]}, Appearance -> None, Method -> 
            "Queued", Enabled -> Dynamic[
              Not[
               TrueQ[
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
              TrackedSymbols :> {
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}]], 
           ActionMenuBox[
            ButtonBox[
             TemplateBox[{
               StyleBox[
                
                TemplateBox[{
                 "\"Insert Text\"", 
                  "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\
\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, 
                StripOnInput -> False], 
               "\"Insert a cell of the chosen type below the current \
selection\""}, "PrettyTooltipTemplate"], ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; CurrentValue[
                    RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, Null], 
                   CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; ResourceSystemClient`DefinitionNotebook`$\
ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> RGBColor[0.898039, 0.898039, 0.898039]}, {
                 FontColor -> 
                  RGBColor[
                   0.17960779999999998`, 0.17960779999999998`, 
                    0.17960779999999998`]}], {
                FontColor -> 
                 RGBColor[
                  0.5898038999999999, 0.5898038999999999, 
                   0.5898038999999999]}], Evaluator -> "System"], 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqt7e3HQaAbLhiuLLz588DpR48eAC3
AsgGigDF4coePnzY19cH5yI7BigOlIW4Fqilu7sbq7OB4kBZBjAgRhmRphHv
NiJ9Sny4ERMLaABrnAIA5lG1ZQ==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqs7WpoaoEgoBsuGK4svPnzzfWlK+o
9dve4AJBQDZQBCgOV/bw4cOOloZVtb5wNRAEFAGKA2UhrgVqaaouRlMDQUBx
oCwDGBCjjEjTiHcbkT4lPtyIiQVi4hQArnpwkw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqw5dvrz9BEZANVwxX9urVq3efvxUt
PujVuQGCgGygCFAcruzZs2fvPn3Nmb8frgaCgCJAcaAsxLVALc/efUZTA0FA
caAsAxgQo4xI04h3G5E+JT7ciIkFYuIUAHu5mtk=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.898039, 0.898039, 0.898039], Method -> 
             "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[
               Not[
                TrueQ[
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
               TrackedSymbols :> {
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}], 
             Evaluator -> Automatic], {DynamicBox[
               ToBoxes[
                
                Grid[{{"Text", (((" (" <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "7") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Text"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], DynamicBox[
               ToBoxes[
                
                Grid[{{"CodeText", ((((" (" <> "Shift+") <> 
                    If[$OperatingSystem === "MacOSX", "Cmd", "Alt"]) <> "+") <> 
                    "7") <> ")"}}, Alignment -> {{Left, Right}, Automatic}, 
                 ItemSize -> {10, Automatic}], StandardForm]] :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "CodeText"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Item\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`createCellBelow[
                    "Item"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]]}, Appearance -> None, Method -> 
            "Queued", Enabled -> Dynamic[
              Not[
               TrueQ[
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
              TrackedSymbols :> {
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}]], 
           ActionMenuBox[
            ButtonBox[
             StyleBox[
              
              TemplateBox[{
               "\"Open/Close Groups\"", 
                "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\"\
"}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, 
              StripOnInput -> False], ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; CurrentValue[
                    RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, Null], 
                   CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; ResourceSystemClient`DefinitionNotebook`$\
ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> RGBColor[0.898039, 0.898039, 0.898039]}, {
                 FontColor -> 
                  RGBColor[
                   0.17960779999999998`, 0.17960779999999998`, 
                    0.17960779999999998`]}], {
                FontColor -> 
                 RGBColor[
                  0.5898038999999999, 0.5898038999999999, 
                   0.5898038999999999]}], Evaluator -> "System"], 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqt7e3HQaAbLhiuLLz588DpR48eAC3
AsgGigDF4coePnzY19cH5yI7BigOlIW4Fqilu7sbq7OB4kBZBjAgRhmRphHv
NiJ9Sny4ERMLaABrnAIA5lG1ZQ==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCl2EAWRBZGVCqs7WpoaoEgoBsuGK4svPnzzfWlK+o
9dve4AJBQDZQBCgOV/bw4cOOloZVtb5wNRAEFAGKA2UhrgVqaaouRlMDQUBx
oCwDGBCjjEjTiHcbkT4lPtyIiQVi4hQArnpwkw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqw5dvrz9BEZANVwxX9urVq3efvxUt
PujVuQGCgGygCFAcruzZs2fvPn3Nmb8frgaCgCJAcaAsxLVALc/efUZTA0FA
caAsAxgQo4xI04h3G5E+JT7ciIkFYuIUAHu5mtk=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.898039, 0.898039, 0.898039], Method -> 
             "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[
               Not[
                TrueQ[
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
               TrackedSymbols :> {
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}], 
             Evaluator -> Automatic], {
            "\"Open Chapters\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`openCloseAll[
                    ButtonNotebook[], "Chapter", Open]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Close Chapters\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`openCloseAll[
                    ButtonNotebook[], "Chapter", Closed]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Open Sections\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`openCloseAll[
                    ButtonNotebook[], "Section", Open]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Close Sections\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`openCloseAll[
                    ButtonNotebook[], "Section", Closed]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]]}, Appearance -> None, Method -> 
            "Queued", Enabled -> Dynamic[
              Not[
               TrueQ[
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
              TrackedSymbols :> {
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}]]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
         AutoDelete -> False, 
         GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
             RGBColor[0.898039, 0.898039, 0.898039]}}, 
         GridBoxFrame -> {
          "Columns" -> False, 
           "RowsIndexed" -> {1 -> RGBColor[0.898039, 0.898039, 0.898039]}}, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {
          "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, 
         FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], 
   Cell[
    StyleData["MainGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{
           TagBox[
            GridBox[{{
               GraphicsBox[{{
                  Thickness[0.03333333333333333], {
                   FaceForm[{
                    RGBColor[
                    0.8200000000000001, 0.8200000000000001, 
                    0.8200000000000001], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{27.,
                     1.}, {3., 1.}, {3., 29.}, {27., 29.}}}]}, {
                   FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{4., 
                    2.}, {26., 2.}, {26., 28.}, {4., 28.}}}]}, {
                   FaceForm[{
                    RGBColor[0.749, 0.749, 0.749], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.,
                     2.}, {6., 2.}, {6., 10.}, {24., 10.}}}]}, {
                   FaceForm[{
                    RGBColor[0.898, 0.898, 0.898], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{23.,
                     2.}, {7., 2.}, {7., 9.}, {23., 9.}}}]}, {
                   FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22.,
                     2.}, {12., 2.}, {12., 8.}, {22., 8.}}}]}, {
                   FaceForm[{
                    RGBColor[0.984, 0.6859999999999999, 0.365], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}}, {{{8., 7.}, {11., 7.}, {11., 8.}, {8., 8.}}, {{8., 
                    5.}, {11., 5.}, {11., 6.}, {8., 6.}}, {{8., 4.}, {11., 
                    4.}, {11., 3.}, {8., 3.}}}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{
                    0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {
                    0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}}}, {{{9.697299999999998, 24.522}, {
                    9.133299999999998, 24.645}, {8.861299999999998, 
                    24.259999999999998`}, {9.313299999999998, 24.092}}, {{
                    9.291299999999998, 23.933}, {8.9683, 
                    24.052999999999997`}, {9.2183, 23.726999999999997`}, {
                    9.587299999999999, 23.601}}, {{9.553299999999998, 
                    23.447}, {9.169299999999998, 23.578}, {8.760299999999999, 
                    23.456999999999997`}, {9.102299999999998, 
                    23.348999999999997`}}, {{9.083299999999998, 22.633}, {
                    9.025299999999998, 23.208}, {8.567299999999998, 23.354}, {
                    8.555299999999999, 22.865}}, {{8.521299999999998, 
                    23.551}, {9.039299999999999, 23.703}, {8.711299999999998, 
                    24.13}, {8.2183, 23.962999999999997`}}, {{8.4073, 
                    23.197}, {8.171299999999999, 22.851}, {8.171299999999999, 
                    22.445}, {8.398299999999999, 22.837}}, {{
                    8.091299999999999, 23.014}, {8.395299999999999, 23.458}, {
                    8.091299999999999, 23.871}, {7.786299999999999, 
                    23.458}}, {{8.010299999999999, 22.851}, {
                    7.773299999999999, 23.197}, {7.782299999999998, 22.837}, {
                    8.010299999999999, 22.445}}, {{7.964299999999999, 
                    23.962999999999997`}, {7.469299999999999, 24.13}, {
                    7.141299999999999, 23.703}, {7.659299999999998, 
                    23.551}}, {{7.626299999999999, 22.865}, {
                    7.614299999999998, 23.354}, {7.155299999999999, 23.209}, {
                    7.097299999999999, 22.633999999999997`}}, {{
                    7.078299999999999, 23.348999999999997`}, {
                    7.422299999999998, 23.456999999999997`}, {
                    7.0112999999999985`, 23.578}, {6.6282999999999985`, 
                    23.447}}, {{6.593299999999998, 23.601}, {
                    6.962299999999999, 23.726999999999997`}, {
                    7.214299999999998, 24.054}, {6.889299999999999, 
                    23.933999999999997`}}, {{6.867299999999998, 24.092}, {
                    7.319299999999998, 24.259999999999998`}, {
                    7.0482999999999985`, 24.645}, {6.484299999999998, 
                    24.522}}, {{7.113299999999999, 25.217}, {
                    7.158299999999999, 24.761}, {7.356299999999999, 
                    24.479999999999997`}, {7.344299999999999, 24.904}}, {{
                    7.5032999999999985`, 24.817999999999998`}, {
                    7.518299999999998, 24.279}, {8.010299999999999, 24.113}, {
                    8.010299999999999, 24.637999999999998`}}, {{
                    7.2452999999999985`, 25.302}, {7.4712999999999985`, 
                    24.997}, {7.8622999999999985`, 24.857}, {
                    7.656299999999998, 25.122}}, {{7.800299999999998, 
                    25.192}, {8.091299999999999, 24.82}, {8.381299999999998, 
                    25.192}, {8.091299999999999, 25.689}}, {{
                    8.171299999999999, 24.637999999999998`}, {
                    8.171299999999999, 24.113}, {8.663299999999998, 24.279}, {
                    8.677299999999999, 24.817999999999998`}}, {{
                    8.836299999999998, 24.904}, {8.8243, 
                    24.479999999999997`}, {9.022299999999998, 24.761}, {
                    9.068299999999999, 25.217}}, {{8.318299999999999, 
                    24.857}, {8.710299999999998, 24.997}, {8.935299999999998, 
                    25.302}, {8.525299999999998, 25.122}}, CompressedData["
1:eJxTTMoPSmViYGAQAWIQbb/k/j6+P8oOE9/W2JvOs3CQKL4u9OmhkgMDGFg4
wOTzhJoPnEo0d1i3Lan+ZqySw+2fdVl7TMwdPjqeT7vargSVN3MQkT351J5F
0eH64gJbru1mDk9BBugpQM0zcwicpthXulEOLl8ja5HuslIarp/ZRNDM5q80
3PwHEeLbLx6QgNuvt1udn/urFNx9MHmY+2H6VdgapzqftoCbD5G3hNuvGdN/
6KuHJZr7rODuh8nX3bStjOhQguuH+R9mPgC7F3w4
                    "]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.,
                     25.}, {24.000999999999998`, 25.}, {24.000999999999998`, 
                    26.}, {11., 26.}}}]}, {
                   FaceForm[{
                    RGBColor[0.749, 0.749, 0.749], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.,
                     22.}, {11., 22.}, {11., 24.}, {24., 24.}}}]}, {
                   FaceForm[{
                    RGBColor[0.984, 0.6859999999999999, 0.365], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19., 20.}, {
                    24., 20.}, {24., 21.}, {19., 21.}}, {{6., 20.}, {18., 
                    20.}, {18., 21.}, {6., 21.}}, {{6., 18.}, {10., 18.}, {
                    10., 19.}, {6., 19.}}, {{11., 19.}, {17., 19.}, {17., 
                    18.}, {11., 18.}}}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{
                    0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10ksKgzAYReHQdtgFZFqRIEEkPioOXUOXUOjY/c90kDvogSuEn08OaoKv
7/H53UMIz2s9rnULutL+P4txh/vyiPtvY/byWudQ52Zc0MtLnRk93aOX9byE
nub3yhG9m+xlnY/2MxsP6OUJfTZmLzd16jyicUYvd/Bs3KOXE9waZ/R8v/YT
jfkfl/0EHWIqGQ==
                    "]]}, {
                   FaceForm[{
                    RGBColor[0.392, 0.392, 0.392], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 
                    3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 
                    3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 
                    3}}, {{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 
                    0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                    0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAQBWIQ/YB78sqmiXoOlxjuMXF2sTisvRFf5h+n59Dj9YrF
RJDFwUzqQLQCo56D3oQFPwyfMUH4B3Ud1qs+aZ53lsHhxfb1zM959OD8lpoL
myNN9Rwq5ixS3vmH0QEo26ORC+MzOSQuvGbyfoeew7F/m6o/bWB2mLcaZKO+
g5xFuktmPqvD1mWVxzWtDBy2XwQ5iNXhjf5udf5uAwdWE0Ezm71MDs/WgSwy
cFh9/mrYG30mhw+tJ0MOrjBwiM09CjSR0QFkS/sWA7h7+koLpXkfIPgvbq75
FXPWwCHx8GXtVEkmuHoJsIXMDm0g45YYOHR8uX29sZjZgZ8b6CJ3A4fvbPEz
fETZHKqW6jjLZOs7sIO4PWwO6OEHAOM+kNE=
                    "], CompressedData["
1:eJxTTMoPSmViYGCQBmIQ3XHp3gNuYX2HJyKyJ5/aSzgsZtzDKiSi65AbVrtu
2yMxB7VDbcvDuXQcOKXnxWmeFnSo+21VcI5D24HVRNDMZi+nQ+LCaybvd2g5
RDvZvbi5hs0hXSmnoipVy0HtSfO8s6uYHaIVHD8m82g5rFcFCTA4aElMvcKZ
geBv1MsDWqnlYLM3aJpiHzPUPm0HOYt0l8x8NofU708SF4ZpO1zRTpV8FMHp
EFyiMv1/gI7D9qT6m7aVghD3hug6HN+1o5etQMzh/wSgCw30HfbxzTFetEXc
4dOGgOxZ0w0cwM4XkHQ4Xe+xv3avocO0TTyFa7pFHfi5ty6rbDdyqFu3Lak+
Ushhho9oj5eXscOcRco7/7TzOSyrPK5p9cnYQazH6xWLCbuDLNhdJnD3r/kV
k3t0HoJfKM37QNfAxEEDbDCbwxI/B+HExcYOBrvVgSI8DidDDq5Ywmfs8OaA
pbLXbwEHq0lAF8kbOXzJAQa4magDSPuEAwYOINfdfiHpgB4/AHQArZ4=
                    "], CompressedData["
1:eJxTTMoPSmViYGCQAWIQvTz8lNGRjXoO67Yl1d/cK+MwK3T+6rUROg5rum9n
MLyXcujReMu7z0Db4ULa1edZq0Ucchcz7mEV0nJ4xWIiaGbD62AzG6RB08HZ
7sXNNb84HDzmNqgdctN0MNitzs+9lcXht1XBuY5LGg7rVZ80zzvL4ACxThPO
V3D8mHxmrqbDs3UgARaHAE+gAUxaDqwg4/dyOIBU5yVrOajs/NP+5TaPA5C3
mLFG22HG3cntrVEiDpNWNgV6ztVxYPsg5hFQI+UgmuX7ue+ynkNokPqCTgMZ
B3ZboANf6ztUN+v7LOOSdQC5atlMAwe+OcaLtmyXcZC1SHfJ9Dd0WA/yv620
wyJlkEVGDh4BfySKr4s7TPnGFj9jjYlDxBt9oI/4HL7cvt5YfMwU7n4w/xkm
/2PryZCDKxgdmordpnxzM3XQSZV8FCHO6QA2vtrEIXKF6VnrcwIOQdMU+0o3
Gju4/Hr7+oCliEO9x/5a2R+GDixH+w3L10o7AAMhaFqjAcT9XXIO6PEFAPga
wsg=
                    "], CompressedData["
1:eJxTTMoPSmViYGAQBWIQPSt0/uq1N/QdLjHcY+Ls4nNoUDvUtjxcz8Fq0ul6
j/28DmtvxJf5x+k6bL8IUsDusJtVSMS+TcdhveqT5nlnGRycZF4/MruF4DcF
es5tWKbroAbirmJzCC5Rmf5/gp5D1XFNoJE8Dkt1nIE69B3ico/+21TN6/BA
d8KCH4UGDo8ixIFW8DnIWqS7ZPIbOrQAdZ+/yuVgszdommKfocPq81fD3uiz
OkQ52b24ucbQwd9BOPHwZWaH5HdAkROGDln5H1pPhjA5gK25bwh3Ty3IQE4j
OB9oyG7194YO7PEzfER7mBxWgcw9b+jwmsVE0MyGBWLfOkOHApBxB1nBtmir
wtzD7QAKldpaAwdGUHDJ8zughx8AsHaP1w==
                    "], CompressedData["
1:eJxTTMoPSmViYGCQBmIQvb9W1iI9xchhwoIfhs/WcTs42b24uWaXkYNI4uHL
2qkcDlO+scXP4DF2YI+f4SPaw+JgszdomqKfscN61SfN884yOHTJJ7+LUkLw
d6vzc299ZuSQM6t8ziJlFgeQcb/mGDmogaRXsTu0nQw5uMLFyMFXtMfrFQu3
Q7EbyAZDh9yw2nXbHgk6gKzzKTVwaGI52m/4XdjB4WPymdhufQeXX29fH7AU
dugLLlGZ/l/XYc9jEdmTqUION+LL/OXEdB3W/orJPfqPx8FPTizL11jHYR/Q
mX2lrA5ty8NPGbHoOPSVFkrzPmB2MJipJTH1irbDKaAzlvgxOeyPVnD8uFgb
7n4QN9kHwc+uqFqq06wNNY/JYeetrr+p27UdykDG6bI4AGWdZV5rO/wEhp7q
E1aHRYx7WIWu6ED9y+uw4JrJe4ujug4z7k5ub70l5HBna0vNhWJ9B4ni60Kf
Dgo7GIG0HTZwOGftd3HiHRGHTxsCsmddN3TQ+TYdqEPAAT1+AE3XvCM=
                    "]}]}}}, {
                ImageSize -> {Automatic, 32}, 
                 ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> 
                 Scaled[0.25], AspectRatio -> Automatic, 
                 ImageSize -> {30., 30.}, 
                 PlotRange -> {{0., 30.}, {0., 30.}}}], 
               StyleBox[
                TagBox[
                 GridBox[{{
                    StyleBox[
                    "\"Computational Essay\"", FontFamily -> 
                    "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> 
                    False]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], 
                StripOnInput -> False]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
           "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\"\""}, {
           ActionMenuBox[
            TemplateBox[{
              TemplateBox[{
                TemplateBox[{"\"Sample Content\"", 
                  TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, 
                 "RowDefault"], 
                "\"Clear sample content in the current notebook, or view a \
completed sample computational essay\""}, "PrettyTooltipTemplate"], Null& , 
              "\"Clear sample content in the current notebook, or view a \
completed sample computational essay\"", True}, "OrangeButtonTemplate"], {
            "\"Insert Sample Content\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    ComputationalEssayHelpers`Private`insertSampleContent[]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Clear Sample Content\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    Module[{$CellContext`cells = Flatten[
                    Map[{NotebookFind[
                    ButtonNotebook[], #, All, CellTags, AutoScroll -> False]; 
                    SelectedCells[]}& , {
                    "ExampleTopicSentence", "TopicSentenceButton", 
                    "ExampleCodeText", "ExampleInput", "ExampleOutput", 
                    "EssayStructureExample", "CitationExample", 
                    "SectionMoreInfoYourEssayTitle", 
                    "SectionMoreInfoAuthorInfoButton", 
                    "SectionMoreInfoAbstract", 
                    "SectionMoreInfoSectionHeaderInfoButton"}]]}, 
                    NotebookDelete[$CellContext`cells]]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]], "\"Open Sample Essay\"" :> 
             With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; 
                   Needs["ResourceSystemClient`DefinitionNotebook`"], 
                   ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                   RSNB`nb$, 
                    SystemOpen["https://wolfr.am/SampleEssay"]], 
                   ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                    False; Null]; Null]]]}, Appearance -> None, Method -> 
            "Queued", Enabled -> Dynamic[
              Not[
               TrueQ[
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
              TrackedSymbols :> {
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}]], 
           
           TemplateBox[{
            "\"Open Guidelines\"", SystemOpen[
             "https://wolfr.am/ComputationalEssayGuidelines"]& , "\"\"", 
             False}, "OrangeButtonTemplate"], 
           TemplateBox[{
             TemplateBox[{
               TagBox[
                GridBox[{{"\"Tools\"", 
                   PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[1], 
                    AbsoluteThickness[1], 
                    LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], 
                    LineBox[{{0., 0.65}, {0., -0.65}}], 
                    LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 8, 
                    PlotRangePadding -> None, Background -> None], True -> 
                    GraphicsBox[{
                    GrayLevel[1], 
                    AbsoluteThickness[1], 
                    LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], 
                    LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 8, 
                    PlotRangePadding -> None, Background -> None]}, 
                    Dynamic[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]],
                     BaselinePosition -> Scaled[-0.1]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], 
               "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], 
             ResourceSystemClient`DefinitionNotebook`ToggleToolbar[
              ButtonNotebook[]]& , "\"Toggle documentation toolbar\"", False},
             "OrangeButtonTemplate"], 
           TagBox[
            
            GridBox[{{"\"\"", "\"\""}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxDividers -> {
              "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
             GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}},
              GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> 
             RGBColor[0.99215, 0.843125, 0.68235]], "Grid"], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Check\"", "\"Check notebook for potential errors\""}, 
              "PrettyTooltipTemplate"], 
             ResourceSystemClient`DefinitionNotebook`CheckDefinitionNotebook[
              ButtonNotebook[]]& , "\"Check notebook for potential errors\"", 
             False}, "OrangeButtonTemplate"], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Publish to Cloud\"", 
               "\"Publish your computational essay to the cloud\""}, 
              "PrettyTooltipTemplate"], 
             With[{$CellContext`nb = ButtonNotebook[]}, CreateDialog[
                
                ComputationalEssayHelpers`Private`createSubmissionDialog[$\
CellContext`nb], WindowSize -> {350, 150}, Background -> White, WindowFrame -> 
                "Normal", "Evaluator" -> "System"]; Null]& , 
             "\"Publish your computational essay to the cloud\"", False}, 
            "OrangeButtonTemplate"], 
           ItemBox[
            StyleBox[
             DynamicBox[
              ToBoxes[
               CurrentValue[
                EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
               StandardForm], Evaluator -> "System", 
              Initialization :> (CurrentValue[
                 EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = 
               "")], "Text", 
             GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
            StripOnInput -> False], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Submit to Notebook Archive\"", 
               "\"Submit your essay to the Wolfram Notebook Archive\""}, 
              "PrettyTooltipTemplate"], 
             ComputationalEssayHelpers`Private`submitEssay[]& , 
             "\"Submit your essay to the Wolfram Notebook Archive\"", False}, 
            "OrangeButtonTemplate"]}}, 
         GridBoxAlignment -> {
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, 
           "Rows" -> {{Center}}}, AutoDelete -> False, 
         GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
             RGBColor[0.9843, 0.68625, 0.3647], 
             RGBColor[0.7185389999999999, 0.5009625, 0.266231]}}, 
         GridBoxFrame -> {
          "Columns" -> False, 
           "RowsIndexed" -> {
            1 -> RGBColor[0.9843, 0.68625, 0.3647], 2 -> 
             RGBColor[0.7185389999999999, 0.5009625, 0.266231]}}, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {
          "Columns" -> {5, {0.9}, 5}, 
           "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> 
         RGBColor[0.9843, 0.68625, 0.3647]], "Grid"]& )}], 
   Cell[
    StyleData["ReviewerCommentLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{#, 
           TemplateBox[{
             GraphicsBox[{{
                Thickness[0.03333333333333333], {
                 FaceForm[{
                   RGBColor[
                   0.8200000000000001, 0.8200000000000001, 
                    0.8200000000000001], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{27., 
                  1.}, {3., 1.}, {3., 29.}, {27., 29.}}}]}, {
                 FaceForm[{
                   RGBColor[1., 1., 1.], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{4., 
                  2.}, {26., 2.}, {26., 28.}, {4., 28.}}}]}, {
                 FaceForm[{
                   RGBColor[0.749, 0.749, 0.749], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24., 
                  2.}, {6., 2.}, {6., 10.}, {24., 10.}}}]}, {
                 FaceForm[{
                   RGBColor[0.898, 0.898, 0.898], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{23., 
                  2.}, {7., 2.}, {7., 9.}, {23., 9.}}}]}, {
                 FaceForm[{
                   RGBColor[1., 1., 1.], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                  2.}, {12., 2.}, {12., 8.}, {22., 8.}}}]}, {
                 FaceForm[{
                   RGBColor[0.984, 0.6859999999999999, 0.365], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}}, {{{8., 7.}, {11., 7.}, {11., 8.}, {8., 8.}}, {{8., 
                  5.}, {11., 5.}, {11., 6.}, {8., 6.}}, {{8., 4.}, {11., 
                  4.}, {11., 3.}, {8., 3.}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                   0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                   0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                   0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                   0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}}}, {{{9.697299999999998, 24.522}, {9.133299999999998, 
                   24.645}, {8.861299999999998, 24.259999999999998`}, {
                   9.313299999999998, 24.092}}, {{9.291299999999998, 
                   23.933}, {8.9683, 24.052999999999997`}, {9.2183, 
                   23.726999999999997`}, {9.587299999999999, 23.601}}, {{
                   9.553299999999998, 23.447}, {9.169299999999998, 23.578}, {
                   8.760299999999999, 23.456999999999997`}, {
                   9.102299999999998, 23.348999999999997`}}, {{
                   9.083299999999998, 22.633}, {9.025299999999998, 23.208}, {
                   8.567299999999998, 23.354}, {8.555299999999999, 
                   22.865}}, {{8.521299999999998, 23.551}, {9.039299999999999,
                    23.703}, {8.711299999999998, 24.13}, {8.2183, 
                   23.962999999999997`}}, {{8.4073, 23.197}, {
                   8.171299999999999, 22.851}, {8.171299999999999, 22.445}, {
                   8.398299999999999, 22.837}}, {{8.091299999999999, 
                   23.014}, {8.395299999999999, 23.458}, {8.091299999999999, 
                   23.871}, {7.786299999999999, 23.458}}, {{8.010299999999999,
                    22.851}, {7.773299999999999, 23.197}, {7.782299999999998, 
                   22.837}, {8.010299999999999, 22.445}}, {{7.964299999999999,
                    23.962999999999997`}, {7.469299999999999, 24.13}, {
                   7.141299999999999, 23.703}, {7.659299999999998, 
                   23.551}}, {{7.626299999999999, 22.865}, {7.614299999999998,
                    23.354}, {7.155299999999999, 23.209}, {7.097299999999999, 
                   22.633999999999997`}}, {{7.078299999999999, 
                   23.348999999999997`}, {7.422299999999998, 
                   23.456999999999997`}, {7.0112999999999985`, 23.578}, {
                   6.6282999999999985`, 23.447}}, {{6.593299999999998, 
                   23.601}, {6.962299999999999, 23.726999999999997`}, {
                   7.214299999999998, 24.054}, {6.889299999999999, 
                   23.933999999999997`}}, {{6.867299999999998, 24.092}, {
                   7.319299999999998, 24.259999999999998`}, {
                   7.0482999999999985`, 24.645}, {6.484299999999998, 
                   24.522}}, {{7.113299999999999, 25.217}, {7.158299999999999,
                    24.761}, {7.356299999999999, 24.479999999999997`}, {
                   7.344299999999999, 24.904}}, {{7.5032999999999985`, 
                   24.817999999999998`}, {7.518299999999998, 24.279}, {
                   8.010299999999999, 24.113}, {8.010299999999999, 
                   24.637999999999998`}}, {{7.2452999999999985`, 25.302}, {
                   7.4712999999999985`, 24.997}, {7.8622999999999985`, 
                   24.857}, {7.656299999999998, 25.122}}, {{7.800299999999998,
                    25.192}, {8.091299999999999, 24.82}, {8.381299999999998, 
                   25.192}, {8.091299999999999, 25.689}}, {{8.171299999999999,
                    24.637999999999998`}, {8.171299999999999, 24.113}, {
                   8.663299999999998, 24.279}, {8.677299999999999, 
                   24.817999999999998`}}, {{8.836299999999998, 24.904}, {
                   8.8243, 24.479999999999997`}, {9.022299999999998, 
                   24.761}, {9.068299999999999, 25.217}}, {{8.318299999999999,
                    24.857}, {8.710299999999998, 24.997}, {8.935299999999998, 
                   25.302}, {8.525299999999998, 25.122}}, CompressedData["
1:eJxTTMoPSmViYGAQAWIQbb/k/j6+P8oOE9/W2JvOs3CQKL4u9OmhkgMDGFg4
wOTzhJoPnEo0d1i3Lan+ZqySw+2fdVl7TMwdPjqeT7vargSVN3MQkT351J5F
0eH64gJbru1mDk9BBugpQM0zcwicpthXulEOLl8ja5HuslIarp/ZRNDM5q80
3PwHEeLbLx6QgNuvt1udn/urFNx9MHmY+2H6VdgapzqftoCbD5G3hNuvGdN/
6KuHJZr7rODuh8nX3bStjOhQguuH+R9mPgC7F3w4
                   "]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11., 
                  25.}, {24.000999999999998`, 25.}, {24.000999999999998`, 
                  26.}, {11., 26.}}}]}, {
                 FaceForm[{
                   RGBColor[0.749, 0.749, 0.749], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24., 
                  22.}, {11., 22.}, {11., 24.}, {24., 24.}}}]}, {
                 FaceForm[{
                   RGBColor[0.984, 0.6859999999999999, 0.365], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19., 20.}, {24.,
                   20.}, {24., 21.}, {19., 21.}}, {{6., 20.}, {18., 20.}, {
                  18., 21.}, {6., 21.}}, {{6., 18.}, {10., 18.}, {10., 19.}, {
                  6., 19.}}, {{11., 19.}, {17., 19.}, {17., 18.}, {11., 
                  18.}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                  0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                  0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10ksKgzAYReHQdtgFZFqRIEEkPioOXUOXUOjY/c90kDvogSuEn08OaoKv
7/H53UMIz2s9rnULutL+P4txh/vyiPtvY/byWudQ52Zc0MtLnRk93aOX9byE
nub3yhG9m+xlnY/2MxsP6OUJfTZmLzd16jyicUYvd/Bs3KOXE9waZ/R8v/YT
jfkfl/0EHWIqGQ==
                  "]]}, {
                 FaceForm[{
                   RGBColor[0.392, 0.392, 0.392], 
                   Opacity[1.]}], 
                 
                 FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 
                   3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 
                   3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                   3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 
                   3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                   3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 
                   3}}, {{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                   3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 
                   0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                   0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAQBWIQ/YB78sqmiXoOlxjuMXF2sTisvRFf5h+n59Dj9YrF
RJDFwUzqQLQCo56D3oQFPwyfMUH4B3Ud1qs+aZ53lsHhxfb1zM959OD8lpoL
myNN9Rwq5ixS3vmH0QEo26ORC+MzOSQuvGbyfoeew7F/m6o/bWB2mLcaZKO+
g5xFuktmPqvD1mWVxzWtDBy2XwQ5iNXhjf5udf5uAwdWE0Ezm71MDs/WgSwy
cFh9/mrYG30mhw+tJ0MOrjBwiM09CjSR0QFkS/sWA7h7+koLpXkfIPgvbq75
FXPWwCHx8GXtVEkmuHoJsIXMDm0g45YYOHR8uX29sZjZgZ8b6CJ3A4fvbPEz
fETZHKqW6jjLZOs7sIO4PWwO6OEHAOM+kNE=
                   "], CompressedData["
1:eJxTTMoPSmViYGCQBmIQ3XHp3gNuYX2HJyKyJ5/aSzgsZtzDKiSi65AbVrtu
2yMxB7VDbcvDuXQcOKXnxWmeFnSo+21VcI5D24HVRNDMZi+nQ+LCaybvd2g5
RDvZvbi5hs0hXSmnoipVy0HtSfO8s6uYHaIVHD8m82g5rFcFCTA4aElMvcKZ
geBv1MsDWqnlYLM3aJpiHzPUPm0HOYt0l8x8NofU708SF4ZpO1zRTpV8FMHp
EFyiMv1/gI7D9qT6m7aVghD3hug6HN+1o5etQMzh/wSgCw30HfbxzTFetEXc
4dOGgOxZ0w0cwM4XkHQ4Xe+xv3avocO0TTyFa7pFHfi5ty6rbDdyqFu3Lak+
Ushhho9oj5eXscOcRco7/7TzOSyrPK5p9cnYQazH6xWLCbuDLNhdJnD3r/kV
k3t0HoJfKM37QNfAxEEDbDCbwxI/B+HExcYOBrvVgSI8DidDDq5Ywmfs8OaA
pbLXbwEHq0lAF8kbOXzJAQa4magDSPuEAwYOINfdfiHpgB4/AHQArZ4=
                   "], CompressedData["
1:eJxTTMoPSmViYGCQAWIQvTz8lNGRjXoO67Yl1d/cK+MwK3T+6rUROg5rum9n
MLyXcujReMu7z0Db4ULa1edZq0Ucchcz7mEV0nJ4xWIiaGbD62AzG6RB08HZ
7sXNNb84HDzmNqgdctN0MNitzs+9lcXht1XBuY5LGg7rVZ80zzvL4ACxThPO
V3D8mHxmrqbDs3UgARaHAE+gAUxaDqwg4/dyOIBU5yVrOajs/NP+5TaPA5C3
mLFG22HG3cntrVEiDpNWNgV6ztVxYPsg5hFQI+UgmuX7ue+ynkNokPqCTgMZ
B3ZboANf6ztUN+v7LOOSdQC5atlMAwe+OcaLtmyXcZC1SHfJ9Dd0WA/yv620
wyJlkEVGDh4BfySKr4s7TPnGFj9jjYlDxBt9oI/4HL7cvt5YfMwU7n4w/xkm
/2PryZCDKxgdmordpnxzM3XQSZV8FCHO6QA2vtrEIXKF6VnrcwIOQdMU+0o3
Gju4/Hr7+oCliEO9x/5a2R+GDixH+w3L10o7AAMhaFqjAcT9XXIO6PEFAPga
wsg=
                   "], CompressedData["
1:eJxTTMoPSmViYGAQBWIQPSt0/uq1N/QdLjHcY+Ls4nNoUDvUtjxcz8Fq0ul6
j/28DmtvxJf5x+k6bL8IUsDusJtVSMS+TcdhveqT5nlnGRycZF4/MruF4DcF
es5tWKbroAbirmJzCC5Rmf5/gp5D1XFNoJE8Dkt1nIE69B3ico/+21TN6/BA
d8KCH4UGDo8ixIFW8DnIWqS7ZPIbOrQAdZ+/yuVgszdommKfocPq81fD3uiz
OkQ52b24ucbQwd9BOPHwZWaH5HdAkROGDln5H1pPhjA5gK25bwh3Ty3IQE4j
OB9oyG7194YO7PEzfER7mBxWgcw9b+jwmsVE0MyGBWLfOkOHApBxB1nBtmir
wtzD7QAKldpaAwdGUHDJ8zughx8AsHaP1w==
                   "], CompressedData["
1:eJxTTMoPSmViYGCQBmIQvb9W1iI9xchhwoIfhs/WcTs42b24uWaXkYNI4uHL
2qkcDlO+scXP4DF2YI+f4SPaw+JgszdomqKfscN61SfN884yOHTJJ7+LUkLw
d6vzc299ZuSQM6t8ziJlFgeQcb/mGDmogaRXsTu0nQw5uMLFyMFXtMfrFQu3
Q7EbyAZDh9yw2nXbHgk6gKzzKTVwaGI52m/4XdjB4WPymdhufQeXX29fH7AU
dugLLlGZ/l/XYc9jEdmTqUION+LL/OXEdB3W/orJPfqPx8FPTizL11jHYR/Q
mX2lrA5ty8NPGbHoOPSVFkrzPmB2MJipJTH1irbDKaAzlvgxOeyPVnD8uFgb
7n4QN9kHwc+uqFqq06wNNY/JYeetrr+p27UdykDG6bI4AGWdZV5rO/wEhp7q
E1aHRYx7WIWu6ED9y+uw4JrJe4ujug4z7k5ub70l5HBna0vNhWJ9B4ni60Kf
Dgo7GIG0HTZwOGftd3HiHRGHTxsCsmddN3TQ+TYdqEPAAT1+AE3XvCM=
                   "]}]}}}, {
              ImageSize -> 12, AspectRatio -> Automatic, 
               ImageSize -> {30., 30.}, PlotRange -> {{0., 30.}, {0., 30.}}}],
              "Wolfram Function Repository Reviewer"}, 
            "PrettyTooltipTemplate"]}}, 
         GridBoxAlignment -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> 
         False, GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], 
   Cell[
    StyleData["CommentCellLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        TagBox[
         GridBox[{{
            StyleBox[#, FontSize -> 11]}, {
            StyleBox[
             DynamicBox[
              ToBoxes[
               DateString[
                TimeZoneConvert[
                 DateObject[#2, TimeZone -> 0]], {
                "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", 
                 "Minute"}], StandardForm], SingleEvaluation -> True], 
             FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], 
         "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], 
   Cell[
    StyleData["OrangeButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
        StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> 
         "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> 
         Dynamic[
           FEPrivate`If[
            CurrentValue[Enabled], 
            GrayLevel[1], 
            RGBColor[0.8730375, 0.83578125, 0.7955875]], Evaluator -> 
           "System"], StripOnInput -> False], ButtonFunction :> 
        With[{RSNB`nb$ = ButtonNotebook[]}, 
          If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
            ProgressIndicator[Appearance -> "Necklace"]]; 
          With[{RSNB`$cp$ = $ContextPath}, 
            Quiet[
             
             Block[{$ContextPath = RSNB`$cp$, 
               ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
               False}, 
              Internal`WithLocalSettings[
               ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                 True; Once[
                  ReleaseHold[
                   CurrentValue[
                   RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                  "KernelSession"]; 
                Needs["ResourceSystemClient`DefinitionNotebook`"], 
                ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                RSNB`nb$, 
                 #2[]], 
                ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled = 
                 False; Null]; Null]]]; 
          CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null],
         FrameMargins -> {{5, 5}, {0, 0}}, 
        Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQbG9wgaN1lY4QhCyIrAwo1R5n1BhlAEFANlwxXNmaCoem
KIPacD1kBBQBisOVba1zbos1QlMDQUBxoCzEtUAtjRhGQVAj2EAGMCBGGZGm
Ee82In1KfLgREwvExCkA9SYWEg==
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
          Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQbG9wgaN1lY4QhCyIrAwo1Zds2ptsAkFANlwxXNmaCoee
JJP7c4J/r4+FICAbKAIUhyvbWufcn2L6eH4IXA0EAUWA4kBZiGuBWiammqGp
gSCgOFCWAQyIUUakacS7jUifEh9uxMQCMXEKAB4IRIc=
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
          Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQbG9wgaNDUxIhCFkQWRlQ6vOz678/PIEgIBuuGK7s6Iz0
X++f/DnY+Ht9LAQB2UARoDhc2c4Wry/Pb/zZVw1XA1W5rxooDpSFuBZk1Nv7
aGogCCgOlGUAA2KUEWka8W4j0qfEhxsxsUBMnAIAq2R1ew==
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
        Background -> RGBColor[0.7185389999999999, 0.5009625, 0.266231], 
        Method -> "Queued", ImageSize -> {All, 23}, Enabled -> Dynamic[
          Not[
           TrueQ[ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled]], 
          TrackedSymbols :> {
           ResourceSystemClient`DefinitionNotebook`$ButtonsDisabled}], 
        Evaluator -> Automatic]& )}], 
   Cell[
    StyleData["SuggestionGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        FrameBox[
         AdjustmentBox[
          TagBox[
           GridBox[{{
              
              TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, 
               "SuggestionIconTemplate"], 
              
              PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> 
               Baseline, ImageSize -> Full], 
              AdjustmentBox[
               TemplateBox[{
                 ActionMenuBox[
                  TagBox[
                   PaneSelectorBox[{False -> GraphicsBox[{
                    EdgeForm[
                    Directive[
                    GrayLevel[1, 0], 
                    Thickness[0.025]]], 
                    FaceForm[#4], 
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], #5, 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> 
                    GraphicsBox[{
                    EdgeForm[
                    Directive[#5, 
                    Thickness[0.025]]], 
                    FaceForm[#2], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], 
                    GrayLevel[1], 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                   MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, 
                  Method -> "Queued"], "\"View suggestions\""}, 
                "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxItemSize -> {
             "Columns" -> {Automatic, Automatic, Fit}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
          BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], 
         RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, 
         FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, 
         StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, 
        FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", 
        FontTracking -> "Plain", 
        PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
        LineBreakWithin -> False]& )}], 
   Cell[
    StyleData["SuggestionIconTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
         Thickness[0.05555555555555555], 
         StyleBox[{
           
           FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
             3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO
m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD
jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh
MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z
            "]]}, 
          FaceForm[#]], 
         StyleBox[{
           
           FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
              0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
              3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 
             7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 
             13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, {
             9.741542500000001, 7.416875}, {8.175292500000001, 
             7.416875}}, CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW
1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa
iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7
2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro
0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/
ACBxmlc=
             "]}]}, 
          FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> 
        Automatic, BaselinePosition -> Scaled[0.1]]& )}], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[RSNB`nb, Before, CellContents]], {"KeyDown", "\t"} :> 
      Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoStyles -> False, ShowCodeAssist -> False, 
    CodeAssistOptions -> {"DynamicHighlighting" -> False}, 
    LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", 
    FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], 
   Cell[
    StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], 
    CellMargins -> {{86, 10}, {7, 0}}, 
    StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> 
    "OutputGrouping", 
    CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, 
          Cell[
           BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; 
        SelectionMove[RSNB`nb, Before, CellContents]], {"KeyDown", "\t"} :> 
      Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoSpellCheck -> False], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> 
    StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], 
    CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, 
    StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> 
    False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], 
    CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], 
    StyleMenuListing -> None, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    GridBoxOptions -> {
     FrameStyle -> GrayLevel[0.906], 
      GridBoxAlignment -> {
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, 
      GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], 
   Cell[
    StyleData["TableText"], DefaultInlineFormatType -> 
    "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Hyperlink"], FontColor -> 
    RGBColor[0.7185389999999999, 0.5009625, 0.266231]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.47902599999999995`, 0.333975, 0.17748733333333333`]], 
   Cell[
    StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[
      If[
       CurrentValue["MouseOver"], 
       RGBColor[0.854902, 0.396078, 0.145098], 
       RGBColor[
       0.0196078431372549, 0.28627450980392155`, 0.6509803921568628]]]], 
   Cell[
    StyleData["StringTypeLink"], 
    TemplateBoxOptions -> {DisplayFunction :> (TagBox[
        DynamicBox[
         If[
          CurrentValue["MouseOver"], 
          ButtonBox[
           
           StyleBox[#, FontColor -> 
            RGBColor[0.9686274509803922, 0.4666666666666667, 0.]], 
           ButtonData -> #2], 
          ButtonBox[#, ButtonData -> #2]]], 
        MouseAppearanceTag["LinkHand"]]& )}, 
    ButtonBoxOptions -> {
     BaseStyle -> {FontColor -> GrayLevel[0.46666667], "Link"}}], 
   Cell[
    StyleData["InlineFormula"], 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
    SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, 
    FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, 
    GridBoxOptions -> {
     GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}}], 
   Cell[
    StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> 
    Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, 
    CellGroupingRules -> {"SectionGrouping", 58}, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, 
    StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], 
   Cell[
    StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], 
   Cell[
    StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
     Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, 
    CellMargins -> {{66, 14}, {15, -5}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> 
    GrayLevel[
      Rational[77, 85]]], 
   Cell[
    StyleData["Subsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   Cell[
    StyleData["Subsubsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   Cell[
    StyleData["Excluded"], 
    CellBracketOptions -> {
     "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "Excluded"}, 
      "Message" -> {"Message", "MSG", "Excluded"}, 
      "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, 
      "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 
    4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], 
   Cell[
    StyleData["Comment", StyleDefinitions -> StyleData["Text"]], 
    CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, 
    CellElementSpacings -> {"ClosedCellHeight" -> 0}, 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "Comment"}, 
      "Message" -> {"Message", "MSG", "Comment"}, 
      "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, 
      "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> 
    RGBColor[0.880722, 0.611041, 0.142051], 
    CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], 
    Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], 
   Cell[
    StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "AuthorComment"}, 
      "Message" -> {"Message", "MSG", "AuthorComment"}, 
      "Output" -> {"Output", "AuthorComment"}, 
      "Print" -> {"Print", "AuthorComment"}, 
      "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, 
    CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> 
    RGBColor[0.90526255, 0.92601685, 0.9564697]], 
   Cell[
    StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "ReviewerComment"}, 
      "Message" -> {"Message", "MSG", "ReviewerComment"}, 
      "Output" -> {"Output", "ReviewerComment"}, 
      "Print" -> {"Print", "ReviewerComment"}, 
      "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, 
    CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> 
    RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], 
   Cell[
    StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], 
    ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> 
    GrayLevel[0.5]], 
   Cell[
    StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], 
   Cell[
    StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> 
    RGBColor[0.898039, 0.898039, 0.898039]], 
   Cell[
    StyleData["ExampleImage"], PageWidth :> 650, 
    CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> 
    False, MenuSortingValue -> 10000, 
    RasterBoxOptions -> {ImageEditMode -> False}]}, Visible -> False, 
  FrontEndVersion -> "13.1 for Microsoft Windows (64-bit) (June 16, 2022)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"e0fd4ab0-86e1-4deb-91f3-e4038de9feaf"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Examples"->{
  Cell[580, 22, 309, 6, 284, "Title",ExpressionUUID->"1d92d1b8-f6d7-48ed-8825-cd049ebbaf36",
   CellTags->{"Examples", "Your Essay Title"},
   CellID->805710577]},
 "Your Essay Title"->{
  Cell[580, 22, 309, 6, 284, "Title",ExpressionUUID->"1d92d1b8-f6d7-48ed-8825-cd049ebbaf36",
   CellTags->{"Examples", "Your Essay Title"},
   CellID->805710577]},
 "AuthorName"->{
  Cell[892, 30, 181, 4, 30, "Author",ExpressionUUID->"3a631b5a-3636-4c6d-8965-482ae9171f2c",
   CellTags->"AuthorName",
   CellID->960727095]},
 "Abstract"->{
  Cell[1076, 36, 144, 2, 62, "Abstract",ExpressionUUID->"2ac58def-5955-4744-85c7-434e15df125e",
   CellTags->{"Abstract", "TemplateCell"},
   CellID->587432573]},
 "TemplateCell"->{
  Cell[1076, 36, 144, 2, 62, "Abstract",ExpressionUUID->"2ac58def-5955-4744-85c7-434e15df125e",
   CellTags->{"Abstract", "TemplateCell"},
   CellID->587432573]},
 "SectionHeader"->{
  Cell[1245, 42, 195, 3, 67, "Section",ExpressionUUID->"34c50aa5-39dc-40c2-9e96-2d752d36a940",
   CellTags->"SectionHeader",
   CellID->453852445]},
 "ExampleTopicSentence"->{
  Cell[1443, 47, 249, 3, 35, "Text",ExpressionUUID->"59801345-6d3c-49da-94f6-ef747999241f",
   CellTags->"ExampleTopicSentence",
   CellID->816667160]},
 "ExampleCodeText"->{
  Cell[58616, 1767, 129, 2, 38, "CodeText",ExpressionUUID->"b8f16d1a-9cf8-4c1c-995b-1b11a6b7b3c0",
   CellTags->"ExampleCodeText",
   CellID->66178570]},
 "ExampleInput"->{
  Cell[58770, 1773, 239, 5, 28, "Input",ExpressionUUID->"e756100c-540c-43b9-be4c-21761a8079e5",
   CellTags->"ExampleInput",
   CellID->844129532]},
 "ExampleOutput"->{
  Cell[59012, 1780, 242, 5, 32, "Output",ExpressionUUID->"c00f4ee8-0557-49a4-ab3b-dadc018208b9",
   CellTags->"ExampleOutput",
   CellID->171130590]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Examples", 170953, 3910},
 {"Your Essay Title", 171140, 3914},
 {"AuthorName", 171321, 3918},
 {"Abstract", 171480, 3922},
 {"TemplateCell", 171662, 3926},
 {"SectionHeader", 171845, 3930},
 {"ExampleTopicSentence", 172021, 3934},
 {"ExampleCodeText", 172196, 3938},
 {"ExampleInput", 172369, 3942},
 {"ExampleOutput", 172538, 3946}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 309, 6, 284, "Title",ExpressionUUID->"1d92d1b8-f6d7-48ed-8825-cd049ebbaf36",
 CellTags->{"Examples", "Your Essay Title"},
 CellID->805710577],
Cell[892, 30, 181, 4, 30, "Author",ExpressionUUID->"3a631b5a-3636-4c6d-8965-482ae9171f2c",
 CellTags->"AuthorName",
 CellID->960727095],
Cell[1076, 36, 144, 2, 62, "Abstract",ExpressionUUID->"2ac58def-5955-4744-85c7-434e15df125e",
 CellTags->{"Abstract", "TemplateCell"},
 CellID->587432573],
Cell[CellGroupData[{
Cell[1245, 42, 195, 3, 67, "Section",ExpressionUUID->"34c50aa5-39dc-40c2-9e96-2d752d36a940",
 CellTags->"SectionHeader",
 CellID->453852445],
Cell[1443, 47, 249, 3, 35, "Text",ExpressionUUID->"59801345-6d3c-49da-94f6-ef747999241f",
 CellTags->"ExampleTopicSentence",
 CellID->816667160],
Cell[CellGroupData[{
Cell[1717, 54, 283, 6, 28, "Input",ExpressionUUID->"2790bc4d-ad22-4aa2-b45d-9d2b1db86da0",
 CellID->6111010],
Cell[2003, 62, 198, 4, 48, "Output",ExpressionUUID->"07ad53bd-d62d-4045-9dcc-0c06a7020cbf",
 CellID->116955046]
}, Open  ]],
Cell[2216, 69, 197, 2, 35, "Text",ExpressionUUID->"57123122-103e-4ea4-b9cd-bbdf97c613c8",
 CellID->509542795],
Cell[CellGroupData[{
Cell[2438, 75, 286, 6, 28, "Input",ExpressionUUID->"b7be869a-1843-43c7-8a24-6c53b8717a4e",
 CellID->105863800],
Cell[2727, 83, 189, 3, 32, "Output",ExpressionUUID->"0dbe5855-715d-44cc-b665-c49cfc3bb0ae",
 CellID->170948038]
}, Open  ]],
Cell[2931, 89, 185, 2, 35, "Text",ExpressionUUID->"924df588-8816-411a-9fbc-214dff946b14",
 CellID->493334418],
Cell[CellGroupData[{
Cell[3141, 95, 250, 4, 28, "Input",ExpressionUUID->"94abae6f-3f99-420b-9030-5b13a01ffc28",
 CellID->8468008],
Cell[3394, 101, 186, 3, 32, "Output",ExpressionUUID->"cc2f345a-3de3-4217-bccf-99552b3ed518",
 CellID->191070306]
}, Open  ]],
Cell[3595, 107, 208, 2, 35, "Text",ExpressionUUID->"42fa4be8-eed1-43c5-b19f-48ecea35e53c",
 CellID->8739937],
Cell[CellGroupData[{
Cell[3828, 113, 257, 4, 28, "Input",ExpressionUUID->"40d75fc0-15a0-4bb3-a039-ce23a60928f5",
 CellID->449078193],
Cell[4088, 119, 230, 4, 32, "Output",ExpressionUUID->"e55efe70-398a-4c2c-b33f-16f7d257ede7",
 CellID->114394284]
}, Open  ]],
Cell[CellGroupData[{
Cell[4355, 128, 259, 4, 28, "Input",ExpressionUUID->"1e86b71e-15ab-4575-bb93-6c843c786984",
 CellID->688634779],
Cell[4617, 134, 187, 3, 32, "Output",ExpressionUUID->"4b607bca-b422-4268-bf42-2fcfbc11c460",
 CellID->177285467]
}, Open  ]],
Cell[CellGroupData[{
Cell[4841, 142, 259, 4, 28, "Input",ExpressionUUID->"b39e0ec7-06ee-4785-9b05-d00bb0e29268",
 CellID->586783524],
Cell[5103, 148, 189, 3, 32, "Output",ExpressionUUID->"49e8d731-259a-46e3-a572-f6da83ea38cd",
 CellID->191102779]
}, Open  ]],
Cell[CellGroupData[{
Cell[5329, 156, 257, 4, 28, "Input",ExpressionUUID->"7aab6943-cb85-4caa-97e3-190828272e10",
 CellID->211596707],
Cell[5589, 162, 206, 4, 32, "Output",ExpressionUUID->"d23146fc-23c8-4aa6-af5a-2f0af4e43142",
 CellID->202380894]
}, Open  ]],
Cell[5810, 169, 204, 2, 35, "Text",ExpressionUUID->"2eb9e686-c7fc-4760-aade-e43688c101b9",
 CellID->1719247],
Cell[CellGroupData[{
Cell[6039, 175, 274, 5, 28, "Input",ExpressionUUID->"7e0ccafa-de75-4fdd-94c4-2010cce94000",
 CellID->390778795],
Cell[6316, 182, 262, 7, 48, "Output",ExpressionUUID->"8c662a94-5749-489b-ac49-c238d5113846",
 CellID->97088973]
}, Open  ]],
Cell[6593, 192, 239, 3, 35, "Text",ExpressionUUID->"35e4cdc3-01de-4fc9-aab3-4980d394892f",
 CellID->874610398],
Cell[CellGroupData[{
Cell[6857, 199, 232, 4, 28, "Input",ExpressionUUID->"0ff67b97-ba53-4922-9e2e-4c1e1e832e6d",
 CellID->156692301],
Cell[7092, 205, 294, 7, 32, "Output",ExpressionUUID->"b96dccd7-0de4-48db-b026-3da741ef184e",
 CellID->424338895]
}, Open  ]],
Cell[CellGroupData[{
Cell[7423, 217, 271, 5, 28, "Input",ExpressionUUID->"d1b0958c-3e92-4226-854c-589c8771daff",
 CellID->466038842],
Cell[7697, 224, 230, 4, 32, "Output",ExpressionUUID->"af78dd4e-7c05-404c-984b-2f43fedc6b91",
 CellID->749865858]
}, Open  ]],
Cell[CellGroupData[{
Cell[7964, 233, 304, 6, 28, "Input",ExpressionUUID->"04d861d2-2075-4b78-9f9c-6c5e9551f90a",
 CellID->8606997],
Cell[8271, 241, 290, 7, 32, "Output",ExpressionUUID->"3b96f27c-0bcc-4d3c-b52b-baaee41260ea",
 CellID->788142818]
}, Open  ]],
Cell[8576, 251, 178, 2, 35, "Text",ExpressionUUID->"6d790d25-72d6-444a-b546-5152d9acc960",
 CellID->23515013],
Cell[CellGroupData[{
Cell[8779, 257, 198, 3, 28, "Input",ExpressionUUID->"95be67ba-d0a4-4ea9-97b4-ab1cb49628dc",
 CellID->365952270],
Cell[8980, 262, 297, 7, 32, "Output",ExpressionUUID->"5716062d-9823-41c7-9468-f54cf9cad84d",
 CellID->870023702]
}, Open  ]],
Cell[CellGroupData[{
Cell[9314, 274, 233, 4, 28, "Input",ExpressionUUID->"b3a10df6-2df7-4dad-8c3f-ca44245bad00",
 CellID->148998351],
Cell[9550, 280, 231, 4, 32, "Output",ExpressionUUID->"56e62143-8edd-42de-a30e-1f7eadfb911f",
 CellID->21989536]
}, Open  ]],
Cell[CellGroupData[{
Cell[9818, 289, 269, 5, 28, "Input",ExpressionUUID->"e4bfb943-6aaa-4ff6-bcca-f5e9888dfd4b",
 CellID->528233569],
Cell[10090, 296, 243, 6, 32, "Output",ExpressionUUID->"fbda2787-bba6-4ea1-8141-a6886e7ae257",
 CellID->52296914]
}, Open  ]],
Cell[10348, 305, 192, 2, 35, "Text",ExpressionUUID->"2ade7726-f865-4b92-b79a-f18aa0c2c25e",
 CellID->9192527],
Cell[CellGroupData[{
Cell[10565, 311, 231, 4, 28, "Input",ExpressionUUID->"48b11615-afd6-420a-b0f7-89cd4165da25",
 CellID->180078932],
Cell[10799, 317, 436, 12, 32, "Output",ExpressionUUID->"9e0e9187-b35e-4b67-8cd1-10e480df3c74",
 CellID->232523007]
}, Open  ]],
Cell[CellGroupData[{
Cell[11272, 334, 260, 5, 28, "Input",ExpressionUUID->"867f7612-18dc-45df-abd9-7d449cc00391",
 CellID->64072601],
Cell[11535, 341, 243, 5, 32, "Output",ExpressionUUID->"f7cc9dda-5cef-4be4-bf78-f269a77b3877",
 CellID->180585497]
}, Open  ]],
Cell[CellGroupData[{
Cell[11815, 351, 318, 8, 28, "Input",ExpressionUUID->"0e5e4f7d-a649-4cc6-aa30-e87d822e5fb4",
 CellID->261733607],
Cell[12136, 361, 998, 33, 52, "Output",ExpressionUUID->"bc1299f9-0437-402d-b88d-a1227128db5c",
 CellID->79754839]
}, Open  ]],
Cell[CellGroupData[{
Cell[13171, 399, 455, 12, 28, "Input",ExpressionUUID->"614b6fd6-b803-448d-81fd-2c6e92cf6cb5",
 CellID->75896562],
Cell[13629, 413, 1171, 34, 52, "Output",ExpressionUUID->"abf41bf9-dcff-4dc9-9328-29f8979334cf",
 CellID->26800914]
}, Open  ]],
Cell[CellGroupData[{
Cell[14837, 452, 577, 16, 48, "Input",ExpressionUUID->"a5ee204e-ac60-40b7-ba98-362279aa3df8",
 CellID->465185262],
Cell[15417, 470, 1717, 50, 90, "Output",ExpressionUUID->"df9dfca5-72fd-4868-87fc-50806d0d322e",
 CellID->683291132]
}, Open  ]],
Cell[CellGroupData[{
Cell[17171, 525, 619, 17, 48, "Input",ExpressionUUID->"5fe124cd-ffff-47b6-81a5-4461275df728",
 CellID->665201486],
Cell[17793, 544, 1693, 50, 90, "Output",ExpressionUUID->"ec5f0927-7220-4ea7-8c42-61a236d2a251",
 CellID->205972809]
}, Open  ]],
Cell[19501, 597, 207, 2, 35, "Text",ExpressionUUID->"0b10cd6b-76b7-4f29-a2ac-7a6a95b3bfcb",
 CellID->159947534],
Cell[CellGroupData[{
Cell[19733, 603, 312, 7, 28, "Input",ExpressionUUID->"f3c4af4c-90ea-46d6-9e26-fbac5a4cf66d",
 CellID->61780683],
Cell[20048, 612, 188, 3, 32, "Output",ExpressionUUID->"0f60eaae-3ea1-467e-b262-59c947c618ac",
 CellID->648476368]
}, Open  ]],
Cell[CellGroupData[{
Cell[20273, 620, 312, 7, 28, "Input",ExpressionUUID->"7affb14f-d799-4254-9ccb-bc9b865b0872",
 CellID->99912904],
Cell[20588, 629, 204, 4, 32, "Output",ExpressionUUID->"ed210ad6-d1af-4ea5-a64b-9647753d589d",
 CellID->47418414]
}, Open  ]],
Cell[CellGroupData[{
Cell[20829, 638, 313, 7, 28, "Input",ExpressionUUID->"731cdc81-8336-43c9-9b27-1430f73161e0",
 CellID->397185934],
Cell[21145, 647, 187, 3, 32, "Output",ExpressionUUID->"7ffe0d4c-31da-4312-bd8e-b77e0de2f8c9",
 CellID->405502080]
}, Open  ]],
Cell[CellGroupData[{
Cell[21369, 655, 311, 7, 28, "Input",ExpressionUUID->"be04f68d-f883-46c1-a2c2-a4dd89deb84d",
 CellID->136935652],
Cell[21683, 664, 207, 4, 32, "Output",ExpressionUUID->"0fffe241-1ee0-4b5d-9ed3-1abc2049c828",
 CellID->170507538]
}, Open  ]],
Cell[CellGroupData[{
Cell[21927, 673, 315, 7, 28, "Input",ExpressionUUID->"1af44333-4712-4dc9-abd3-7bac4b6453ae",
 CellID->596651977],
Cell[22245, 682, 188, 3, 32, "Output",ExpressionUUID->"5b8fd0b1-45af-4dd8-9c47-ba6a0be56ec9",
 CellID->282240961]
}, Open  ]],
Cell[CellGroupData[{
Cell[22470, 690, 315, 7, 28, "Input",ExpressionUUID->"02e3c86b-8b02-4b38-991f-5f6d4e0ce785",
 CellID->754185106],
Cell[22788, 699, 207, 4, 32, "Output",ExpressionUUID->"1509ff47-6f94-435e-bee6-bda13b0bae5f",
 CellID->261178890]
}, Open  ]],
Cell[CellGroupData[{
Cell[23032, 708, 314, 7, 28, "Input",ExpressionUUID->"18956a3d-415a-4691-a348-7be815941174",
 CellID->101994408],
Cell[23349, 717, 190, 3, 32, "Output",ExpressionUUID->"f5f70826-b160-4a2b-a56f-77b04f021762",
 CellID->225793412]
}, Open  ]],
Cell[CellGroupData[{
Cell[23576, 725, 316, 7, 28, "Input",ExpressionUUID->"82cf3b98-70c9-44a4-9923-d23a636e0809",
 CellID->489932121],
Cell[23895, 734, 206, 4, 32, "Output",ExpressionUUID->"cb885a21-e099-45ed-9853-12161d8535a6",
 CellID->43044122]
}, Open  ]],
Cell[24116, 741, 210, 2, 35, "Text",ExpressionUUID->"bc8c8d7c-bc51-4531-a263-542e90e5dd1d",
 CellID->433973094],
Cell[CellGroupData[{
Cell[24351, 747, 245, 4, 28, "Input",ExpressionUUID->"6be04e40-82fb-471a-a941-f4e05f163feb",
 CellID->350722233],
Cell[24599, 753, 176, 3, 32, "Output",ExpressionUUID->"b6455a8d-4d72-4dc4-ada6-1e8304c4d9cd",
 CellID->54438344]
}, Open  ]],
Cell[24790, 759, 197, 2, 35, "Text",ExpressionUUID->"d7fed85f-266b-4329-96f0-77fd7dcc9400",
 CellID->902733907],
Cell[CellGroupData[{
Cell[25012, 765, 253, 4, 28, "Input",ExpressionUUID->"01b88640-c8b1-4547-bd93-9daa4d847fb5",
 CellID->371740488],
Cell[25268, 771, 178, 3, 32, "Output",ExpressionUUID->"798a988d-07c4-4ae4-a2fe-cb5004711b45",
 CellID->80214082]
}, Open  ]],
Cell[CellGroupData[{
Cell[25483, 779, 255, 4, 28, "Input",ExpressionUUID->"01d6054d-8cd1-40f7-a038-6e8da653679a",
 CellID->10006240],
Cell[25741, 785, 179, 3, 32, "Output",ExpressionUUID->"a1fcc6f6-0bd4-47ca-850f-ad0bca84a6d8",
 CellID->199219970]
}, Open  ]],
Cell[CellGroupData[{
Cell[25957, 793, 269, 5, 28, "Input",ExpressionUUID->"004a86b8-a011-4198-a7b9-035bfcaf7740",
 CellID->61263229],
Cell[26229, 800, 201, 3, 32, "Output",ExpressionUUID->"d917f152-ed56-4f45-8dbb-6a94f9773379",
 CellID->301200451]
}, Open  ]],
Cell[26445, 806, 188, 2, 35, "Text",ExpressionUUID->"0e2f34f8-2a1d-493c-af46-a15ceaedf0d8",
 CellID->256771859],
Cell[CellGroupData[{
Cell[26658, 812, 268, 5, 28, "Input",ExpressionUUID->"0c8b234e-802d-46d4-9f56-232fe9747c13",
 CellID->13911825],
Cell[26929, 819, 179, 3, 32, "Output",ExpressionUUID->"971bd429-1e7b-413c-9648-904cfe6b8039",
 CellID->104153539]
}, Open  ]],
Cell[CellGroupData[{
Cell[27145, 827, 250, 4, 28, "Input",ExpressionUUID->"d7818505-cdb0-440a-85ce-110d898fccb9",
 CellID->144137292],
Cell[27398, 833, 194, 4, 32, "Output",ExpressionUUID->"74acf35d-ce0a-4cdf-b510-0526f218808e",
 CellID->9997393]
}, Open  ]],
Cell[CellGroupData[{
Cell[27629, 842, 252, 4, 28, "Input",ExpressionUUID->"6a1e706d-fbec-45d7-b811-5eaef37b3d12",
 CellID->499965174],
Cell[27884, 848, 179, 3, 32, "Output",ExpressionUUID->"8e1af89c-25a5-42a6-b081-d9178f1b51ef",
 CellID->214817321]
}, Open  ]],
Cell[CellGroupData[{
Cell[28100, 856, 251, 4, 28, "Input",ExpressionUUID->"82bbb18f-1b39-457a-ae19-7cc971dd9187",
 CellID->380302688],
Cell[28354, 862, 178, 3, 32, "Output",ExpressionUUID->"4bf17fe5-cb27-46ea-b5fa-c009751475f3",
 CellID->20974738]
}, Open  ]],
Cell[CellGroupData[{
Cell[28569, 870, 253, 4, 28, "Input",ExpressionUUID->"ff0fe265-60e0-4ec3-87f8-f2fd076e3d2d",
 CellID->215138868],
Cell[28825, 876, 194, 4, 32, "Output",ExpressionUUID->"b14dcf0d-ae5b-49dd-9923-5712b8695030",
 CellID->463615349]
}, Open  ]],
Cell[CellGroupData[{
Cell[29056, 885, 249, 4, 28, "Input",ExpressionUUID->"6c974fb5-677f-4ef5-b6b8-c0f85eded638",
 CellID->293098249],
Cell[29308, 891, 179, 3, 32, "Output",ExpressionUUID->"e961e870-e883-43fe-8116-a3410ed6132e",
 CellID->321062818]
}, Open  ]],
Cell[CellGroupData[{
Cell[29524, 899, 249, 4, 28, "Input",ExpressionUUID->"b816fb61-e5cb-41b2-a9af-78907528264f",
 CellID->326886259],
Cell[29776, 905, 196, 4, 32, "Output",ExpressionUUID->"e7002e55-e284-4e76-ab20-6544fc1f626b",
 CellID->390521709]
}, Open  ]],
Cell[CellGroupData[{
Cell[30009, 914, 247, 4, 28, "Input",ExpressionUUID->"141ece37-d3f0-4371-bc11-38869fdfc697",
 CellID->335772635],
Cell[30259, 920, 177, 3, 32, "Output",ExpressionUUID->"69550b47-f7f7-4293-8648-b7c33de3124a",
 CellID->387225527]
}, Open  ]],
Cell[CellGroupData[{
Cell[30473, 928, 247, 4, 28, "Input",ExpressionUUID->"87e6b6d6-93b3-41fc-b126-beed77c27253",
 CellID->202216122],
Cell[30723, 934, 196, 4, 32, "Output",ExpressionUUID->"41be2a87-d6ff-43dc-86c1-0124fcf6ded0",
 CellID->440883604]
}, Open  ]],
Cell[CellGroupData[{
Cell[30956, 943, 258, 4, 28, "Input",ExpressionUUID->"7fdcd86d-1fa6-4981-aa0d-92c4c6550e35",
 CellID->305152382],
Cell[31217, 949, 195, 4, 32, "Output",ExpressionUUID->"dfa7a849-8c89-463e-ab76-a772e32a168d",
 CellID->63461254]
}, Open  ]],
Cell[31427, 956, 306, 6, 35, "Text",ExpressionUUID->"a18f3cd3-3c53-4147-b096-b8066c117f75",
 CellID->75276730],
Cell[CellGroupData[{
Cell[31758, 966, 249, 4, 28, "Input",ExpressionUUID->"a9845382-686a-4a08-ad98-da32fab30a17",
 CellID->3198188],
Cell[32010, 972, 220, 4, 48, "Output",ExpressionUUID->"d75f6545-cab9-45f7-8ccd-ad2b154e7513",
 CellID->273204426]
}, Open  ]],
Cell[32245, 979, 190, 2, 35, "Text",ExpressionUUID->"19be821e-a4a1-4df2-b295-00e16b640ae5",
 CellID->168148319],
Cell[CellGroupData[{
Cell[32460, 985, 268, 5, 28, "Input",ExpressionUUID->"045d8e6e-d664-4445-97d5-e2e652091715",
 CellID->19244968],
Cell[32731, 992, 267, 7, 48, "Output",ExpressionUUID->"95c75580-1616-4763-928a-7872c14862c6",
 CellID->346941667]
}, Open  ]],
Cell[33013, 1002, 184, 2, 35, "Text",ExpressionUUID->"b1b1bf2a-9dc3-4e15-a6ac-f22b5c0182ff",
 CellID->66818858],
Cell[CellGroupData[{
Cell[33222, 1008, 271, 5, 28, "Input",ExpressionUUID->"565a6fe0-7d9e-462f-9b78-2537c0e6d6ed",
 CellID->293532010],
Cell[33496, 1015, 291, 7, 48, "Output",ExpressionUUID->"d7c17a37-1535-4437-904b-ca874a435cbb",
 CellID->185005552]
}, Open  ]],
Cell[33802, 1025, 192, 2, 35, "Text",ExpressionUUID->"e40eef55-e1e0-410d-a9fb-3c6ad2c386da",
 CellID->46224149],
Cell[CellGroupData[{
Cell[34019, 1031, 269, 5, 28, "Input",ExpressionUUID->"e3e1e208-2c39-41ad-98d6-6694f4a076f1",
 CellID->442444251],
Cell[34291, 1038, 236, 5, 32, "Output",ExpressionUUID->"a93513c3-161c-40bf-afd3-52dd7739df2e",
 CellID->198422911]
}, Open  ]],
Cell[CellGroupData[{
Cell[34564, 1048, 267, 5, 28, "Input",ExpressionUUID->"e2a78236-c571-4ada-91f2-5b8d299aad24",
 CellID->279837877],
Cell[34834, 1055, 239, 5, 32, "Output",ExpressionUUID->"c99589bd-62c8-4a1e-be32-5877c1772007",
 CellID->268455036]
}, Open  ]],
Cell[35088, 1063, 186, 2, 35, "Text",ExpressionUUID->"39062f90-a689-4823-83e1-34735a31782b",
 CellID->439236249],
Cell[CellGroupData[{
Cell[35299, 1069, 268, 5, 28, "Input",ExpressionUUID->"59d588e4-733c-46d5-8071-9e9e6433dfd5",
 CellID->11210355],
Cell[35570, 1076, 237, 5, 32, "Output",ExpressionUUID->"ec423dcb-168e-4677-a309-2c8d633757ca",
 CellID->139087309]
}, Open  ]],
Cell[CellGroupData[{
Cell[35844, 1086, 269, 5, 28, "Input",ExpressionUUID->"7b417a65-d7c4-41b0-9c94-567109114d1a",
 CellID->396851488],
Cell[36116, 1093, 258, 6, 32, "Output",ExpressionUUID->"0df3d019-020e-4eb1-9c35-e658a7ab6413",
 CellID->145541133]
}, Open  ]],
Cell[36389, 1102, 186, 2, 35, "Text",ExpressionUUID->"23cd047e-b213-4ca0-913b-c76036512582",
 CellID->206440174],
Cell[CellGroupData[{
Cell[36600, 1108, 357, 7, 28, "Input",ExpressionUUID->"16e4508f-4e65-4e9f-bf9a-3c4484e1f95d",
 CellID->21593584],
Cell[36960, 1117, 188, 3, 32, "Output",ExpressionUUID->"2d4a8ec6-b43f-4c02-b272-6a07adb46276",
 CellID->517692416]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37197, 1126, 181, 2, 67, "Section",ExpressionUUID->"7d5a8f81-e88a-4491-b431-42b9a6139a66",
 CellID->18227968],
Cell[CellGroupData[{
Cell[37403, 1132, 236, 4, 28, "Input",ExpressionUUID->"6ce0cc77-b5b1-4656-887c-c8ea563de876",
 CellID->158758836],
Cell[37642, 1138, 201, 3, 32, "Output",ExpressionUUID->"85c6c514-7670-41d3-a9a6-3e0413dd4417",
 CellID->884685280]
}, Open  ]],
Cell[37858, 1144, 236, 4, 35, "Text",ExpressionUUID->"f991e837-85d6-42df-9c32-2caea68f7836",
 CellID->116421127],
Cell[CellGroupData[{
Cell[38119, 1152, 267, 5, 28, "Input",ExpressionUUID->"c33db1c2-3459-4d66-b697-4e981a9f3bfd",
 CellID->109097610],
Cell[38389, 1159, 200, 3, 32, "Output",ExpressionUUID->"2b53f1a3-60b8-4a67-b4e4-b1cb52af8105",
 CellID->751871622]
}, Open  ]],
Cell[CellGroupData[{
Cell[38626, 1167, 285, 6, 28, "Input",ExpressionUUID->"768d5ddf-98c9-4b3b-955c-6d70458175a9",
 CellID->1216241],
Cell[38914, 1175, 200, 3, 32, "Output",ExpressionUUID->"50171579-0fff-4ae2-ae57-ff54c370e794",
 CellID->431194499]
}, Open  ]],
Cell[CellGroupData[{
Cell[39151, 1183, 338, 7, 28, "Input",ExpressionUUID->"618b0819-ed7e-47d4-8cb6-143950a5c45a",
 CellID->1892977],
Cell[39492, 1192, 198, 3, 32, "Output",ExpressionUUID->"94218f41-a894-4c31-b931-517a4cb41566",
 CellID->29111292]
}, Open  ]],
Cell[CellGroupData[{
Cell[39727, 1200, 319, 6, 28, "Input",ExpressionUUID->"44eae193-6a8b-4e1b-87ce-9891322462a3",
 CellID->209302659],
Cell[40049, 1208, 199, 3, 32, "Output",ExpressionUUID->"f05e824b-a7b9-41af-b8e3-29438ba9f231",
 CellID->18563228]
}, Open  ]],
Cell[40263, 1214, 171, 2, 35, "Text",ExpressionUUID->"8d7ad3a5-d8e0-4a5f-bb5f-45fef1985c2d",
 CellID->41711276],
Cell[CellGroupData[{
Cell[40459, 1220, 339, 7, 28, "Input",ExpressionUUID->"69797973-05b4-420d-802d-7a39032541d2",
 CellID->96275058],
Cell[40801, 1229, 195, 3, 32, "Output",ExpressionUUID->"8fe456d8-5654-485e-be51-71507bd49d2f",
 CellID->24823913]
}, Open  ]],
Cell[41011, 1235, 233, 3, 35, "Text",ExpressionUUID->"cf855851-d7ac-4a51-8eb0-77442a72ba96",
 CellID->233546291],
Cell[CellGroupData[{
Cell[41269, 1242, 243, 4, 28, "Input",ExpressionUUID->"252363fd-0efd-43ee-8f50-f4078ae9046c",
 CellID->66044732],
Cell[41515, 1248, 202, 3, 32, "Output",ExpressionUUID->"ce104845-7245-4c32-b37b-7d9644aea9b1",
 CellID->200589428]
}, Open  ]],
Cell[CellGroupData[{
Cell[41754, 1256, 265, 5, 28, "Input",ExpressionUUID->"629efc7c-1b84-4351-91d6-b87ba2bc0945",
 CellID->319274420],
Cell[42022, 1263, 206, 3, 32, "Output",ExpressionUUID->"f5888f48-8515-493b-8009-9c6c569f12e0",
 CellID->212544933]
}, Open  ]],
Cell[CellGroupData[{
Cell[42265, 1271, 321, 7, 28, "Input",ExpressionUUID->"bbbd3add-8ce7-4294-a57e-8b2f7592ac25",
 CellID->5005257],
Cell[42589, 1280, 199, 3, 32, "Output",ExpressionUUID->"7a445adf-df52-47ee-8eff-6c3ce5cf607b",
 CellID->32234878]
}, Open  ]],
Cell[CellGroupData[{
Cell[42825, 1288, 325, 7, 28, "Input",ExpressionUUID->"5dfbb1aa-7734-464d-b29d-e194fc13ff12",
 CellID->123115283],
Cell[43153, 1297, 206, 3, 32, "Output",ExpressionUUID->"cb2847f3-e019-4a04-ac45-e80414525ac7",
 CellID->79371547]
}, Open  ]],
Cell[CellGroupData[{
Cell[43396, 1305, 233, 4, 28, "Input",ExpressionUUID->"df02fabb-e451-4ca3-ae2b-4558c02a26e0",
 CellID->147568390],
Cell[43632, 1311, 228, 4, 32, "Output",ExpressionUUID->"00928fb9-1cb2-486e-b87e-003ce2c02181",
 CellID->6027888]
}, Open  ]],
Cell[CellGroupData[{
Cell[43897, 1320, 240, 4, 28, "Input",ExpressionUUID->"d560439e-040d-461c-b4ec-54cdca500880",
 CellID->82336024],
Cell[44140, 1326, 228, 4, 32, "Output",ExpressionUUID->"a7940b07-9bed-47ea-9ef9-0754ae85843d",
 CellID->52541272]
}, Open  ]],
Cell[44383, 1333, 189, 2, 35, "Text",ExpressionUUID->"c714aafa-6b58-485a-9adb-3d0c000001cd",
 CellID->73472698],
Cell[CellGroupData[{
Cell[44597, 1339, 315, 6, 28, "Input",ExpressionUUID->"d74e5db9-2f40-4611-8c5b-ec24d5d7bf74",
 CellID->385845331],
Cell[44915, 1347, 203, 3, 32, "Output",ExpressionUUID->"7ae23020-6105-4e79-8ad7-783f615a7c6e",
 CellID->61750948]
}, Open  ]],
Cell[CellGroupData[{
Cell[45155, 1355, 344, 8, 28, "Input",ExpressionUUID->"b7a11c1d-2787-49ad-9bf5-ff9cde237e3f",
 CellID->319505531],
Cell[45502, 1365, 211, 3, 32, "Output",ExpressionUUID->"188424b9-5e07-4313-a3e0-094b2181e6f6",
 CellID->600253279]
}, Open  ]],
Cell[45728, 1371, 195, 2, 35, "Text",ExpressionUUID->"7ac60c28-516e-4fe7-b520-6d0a9c906dbb",
 CellID->21620047],
Cell[CellGroupData[{
Cell[45948, 1377, 262, 5, 28, "Input",ExpressionUUID->"64b6783a-c7c0-430f-bb1d-93b509d5f131",
 CellID->151472192],
Cell[46213, 1384, 202, 3, 32, "Output",ExpressionUUID->"d5a54c38-d035-459d-996c-a0f27a5618b0",
 CellID->11698031]
}, Open  ]],
Cell[CellGroupData[{
Cell[46452, 1392, 297, 6, 28, "Input",ExpressionUUID->"c715f297-286d-4709-ae78-05687edaaa98",
 CellID->1803201],
Cell[46752, 1400, 190, 3, 32, "Output",ExpressionUUID->"1e99a647-93c0-452a-bf46-92a1fd263f9f",
 CellID->798588572]
}, Open  ]],
Cell[CellGroupData[{
Cell[46979, 1408, 337, 7, 28, "Input",ExpressionUUID->"b93463c8-54b8-42e1-9638-9c972e333823",
 CellID->185934865],
Cell[47319, 1417, 199, 4, 48, "Output",ExpressionUUID->"b197ae23-441c-4a29-a92b-8aa59415eb49",
 CellID->347377553]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47567, 1427, 180, 2, 67, "Section",ExpressionUUID->"5737db6d-a065-46f5-b7c0-7ca8a90691f5",
 CellID->598684613],
Cell[CellGroupData[{
Cell[47772, 1433, 231, 4, 28, "Input",ExpressionUUID->"fbcba232-3a87-4292-8a5e-3a207f94ec37",
 CellID->114092915],
Cell[48006, 1439, 229, 5, 32, "Output",ExpressionUUID->"f1111263-88ae-4af4-8d24-95714a5f4e91",
 CellID->137003715]
}, Open  ]],
Cell[CellGroupData[{
Cell[48272, 1449, 232, 4, 28, "Input",ExpressionUUID->"555eda58-65e1-4e63-a881-08c35bd2b5fa",
 CellID->128909627],
Cell[48507, 1455, 247, 5, 32, "Output",ExpressionUUID->"25bfa7a8-3e52-47c0-b400-4c29ee6ca073",
 CellID->551408263]
}, Open  ]],
Cell[CellGroupData[{
Cell[48791, 1465, 232, 4, 28, "Input",ExpressionUUID->"440e4aec-0260-4d5f-aa5a-a41cd4f720d1",
 CellID->265694605],
Cell[49026, 1471, 245, 5, 32, "Output",ExpressionUUID->"0ab4d291-9fba-4e99-9ece-6e55f4150629",
 CellID->63042657]
}, Open  ]],
Cell[CellGroupData[{
Cell[49308, 1481, 229, 4, 28, "Input",ExpressionUUID->"8c0fac79-7f70-4660-baa0-71f4abde89a9",
 CellID->2687169],
Cell[49540, 1487, 244, 5, 32, "Output",ExpressionUUID->"0028fdf6-ec77-44fd-a02b-f04cda12f47d",
 CellID->308122951]
}, Open  ]],
Cell[CellGroupData[{
Cell[49821, 1497, 258, 4, 28, "Input",ExpressionUUID->"7252e399-d412-4447-9308-04c3c881553a",
 CellID->354607024],
Cell[50082, 1503, 303, 8, 32, "Output",ExpressionUUID->"88af3026-3d88-48d0-aecb-9cf8a6029413",
 CellID->494745493]
}, Open  ]],
Cell[50400, 1514, 193, 2, 35, "Text",ExpressionUUID->"d340c165-a879-4c3a-aec8-f3a70df2b977",
 CellID->543527996],
Cell[CellGroupData[{
Cell[50618, 1520, 306, 7, 28, "Input",ExpressionUUID->"9a37c033-de9a-4265-a39c-6e4d7f0527f5",
 CellID->118936303],
Cell[50927, 1529, 228, 5, 32, "Output",ExpressionUUID->"a2fe7059-8c36-4cf6-98a2-f21f155315ff",
 CellID->20525690]
}, Open  ]],
Cell[CellGroupData[{
Cell[51192, 1539, 233, 4, 28, "Input",ExpressionUUID->"1e26fa90-8e0c-4ce8-b0e7-85734c0d1dc8",
 CellID->576016406],
Cell[51428, 1545, 434, 12, 32, "Output",ExpressionUUID->"3044e00d-0a87-49fd-bb0d-7debd7b0e26d",
 CellID->535956560]
}, Open  ]],
Cell[CellGroupData[{
Cell[51899, 1562, 245, 4, 28, "Input",ExpressionUUID->"6868b84d-5d2b-4c33-bc7f-04bbe3837610",
 CellID->610418970],
Cell[52147, 1568, 301, 8, 32, "Output",ExpressionUUID->"13984299-736f-4471-8d39-2e1690410e49",
 CellID->144607787]
}, Open  ]],
Cell[CellGroupData[{
Cell[52485, 1581, 243, 4, 28, "Input",ExpressionUUID->"da71af0d-0b78-49fb-9de5-f9daa564dcb5",
 CellID->3192970],
Cell[52731, 1587, 245, 5, 32, "Output",ExpressionUUID->"a48c313b-cb09-4c5f-9872-7387500e2f37",
 CellID->55020497]
}, Open  ]],
Cell[CellGroupData[{
Cell[53013, 1597, 253, 5, 28, "Input",ExpressionUUID->"a65db0d9-13a2-412c-a622-a07665678671",
 CellID->779486626],
Cell[53269, 1604, 330, 8, 32, "Output",ExpressionUUID->"b7d2720f-fa45-480b-bfad-d981f87b82ab",
 CellID->687420767]
}, Open  ]],
Cell[CellGroupData[{
Cell[53636, 1617, 397, 10, 28, "Input",ExpressionUUID->"7b37aa10-73b8-482a-84c8-54d954fec78b",
 CellID->344916683],
Cell[54036, 1629, 299, 8, 32, "Output",ExpressionUUID->"27c05370-7c73-4a54-b9df-2aa264f897c0",
 CellID->6438767]
}, Open  ]],
Cell[CellGroupData[{
Cell[54372, 1642, 461, 12, 31, "Input",ExpressionUUID->"2ab16b37-7d88-4584-af3e-4ce78c5e3b74",
 CellID->35989926],
Cell[54836, 1656, 330, 9, 32, "Output",ExpressionUUID->"f5e8c41f-7ace-4b70-8e83-b9d9027bca16",
 CellID->614953506]
}, Open  ]],
Cell[55181, 1668, 407, 10, 28, "Input",ExpressionUUID->"17d13f4f-81db-4392-b1fc-9f37f521f0f7",
 CellID->496339943],
Cell[CellGroupData[{
Cell[55613, 1682, 352, 8, 28, "Input",ExpressionUUID->"06694598-2074-4ab4-b43e-25ee8fbacfda",
 CellID->96460557],
Cell[55968, 1692, 522, 12, 38, "Output",ExpressionUUID->"9fc7bb5d-eda1-4b6b-b3ec-9e9c7710d2cd",
 CellID->476945472]
}, Open  ]],
Cell[CellGroupData[{
Cell[56527, 1709, 389, 9, 28, "Input",ExpressionUUID->"5dfc3ca8-4bd3-4cae-9389-d16a890a8ab1",
 CellID->7417317],
Cell[56919, 1720, 244, 5, 32, "Output",ExpressionUUID->"34ba23f5-d53c-4292-8695-dc7a0db9dc2d",
 CellID->127892808]
}, Open  ]],
Cell[CellGroupData[{
Cell[57200, 1730, 515, 12, 86, "Input",ExpressionUUID->"c3864d9a-3174-43f3-a464-a61f52a49b6d",
 CellID->42243250],
Cell[57718, 1744, 546, 12, 38, "Output",ExpressionUUID->"98e88afe-04fd-4bda-8e13-6562a5e05b52",
 CellID->639194454]
}, Open  ]],
Cell[58279, 1759, 165, 2, 35, "Text",ExpressionUUID->"2a62d268-b67d-43cf-9441-44bdc4e1caef",
 CellID->419433869],
Cell[58447, 1763, 166, 2, 28, "Input",ExpressionUUID->"21e3d36f-1781-486e-a2ca-1a68f00fd0b9",
 CellID->46475384],
Cell[58616, 1767, 129, 2, 38, "CodeText",ExpressionUUID->"b8f16d1a-9cf8-4c1c-995b-1b11a6b7b3c0",
 CellTags->"ExampleCodeText",
 CellID->66178570],
Cell[CellGroupData[{
Cell[58770, 1773, 239, 5, 28, "Input",ExpressionUUID->"e756100c-540c-43b9-be4c-21761a8079e5",
 CellTags->"ExampleInput",
 CellID->844129532],
Cell[59012, 1780, 242, 5, 32, "Output",ExpressionUUID->"c00f4ee8-0557-49a4-ab3b-dadc018208b9",
 CellTags->"ExampleOutput",
 CellID->171130590]
}, Open  ]],
Cell[59269, 1788, 95, 1, 32, "Item",ExpressionUUID->"acdb2ad8-0a92-4f50-8bae-de040b09b38c",
 CellID->316654537],
Cell[59367, 1791, 95, 1, 32, "Item",ExpressionUUID->"8090181c-e17a-4c99-bc3c-696fb19cb01c",
 CellID->316654538]
}, Open  ]]
}, Open  ]]
}
]
*)