Skip to content

Instantly share code, notes, and snippets.

@extratone

extratone/FlightsOverhead-definition.nb

Last active July 1, 2025 05:34
Show Gist options
  • Save extratone/6c6d2490c4416339a0deb4a9189faad7 to your computer and use it in GitHub Desktop.
Save extratone/6c6d2490c4416339a0deb4a9189faad7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
FlightsOverhead-definition.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[ 403964, 9512]
NotebookOptionsPosition[ 248027, 6567]
NotebookOutlinePosition[ 390168, 9234]
CellTagsIndexPosition[ 388359, 9184]
WindowTitle->FlightsOverhead | Definition Notebook
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["FlightsOverhead", "Title",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->732081500],
Cell["\<\
Determine the flights and flight paths of airplanes currently overhead at a \
location\
\>", "Text",
CellTags->{"Description", "TemplateCell"},
CellID->45471754],
Cell[CellGroupData[{
Cell[TextData[{
"Definition",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Function",
Cell[
BoxData[
FrameBox[
Cell[
"Define your function using the name you gave in the Title line \
above. You can add input cells and extra code to define additional input \
cases or prerequisites. All definitions, including dependencies, will be \
included in the generated resource function.\n\nThis section should be \
evaluated before creating the Examples section below.", "MoreInfoText"],
Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle ->
GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoFunction"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Function"},
DefaultNewCellStyle->"Input",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326],
Cell[BoxData[
RowBox[{
RowBox[{"(*", "messages", "*)"}],
RowBox[{
RowBox[{
RowBox[{
RowBox[{"FlightsOverhead", "::", "notloc"}], "=",
"\"\<`1` is not a valid location.\>\""}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"FlightsOverhead", "::", "notair"}], "=",
"\"\<`1` is not an airline entity.\>\""}], ";"}], "\[IndentingNewLine]",
"\n",
RowBox[{"(*", "UI", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"FlightsOverhead", "[", "args___", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"res", "=",
RowBox[{"iFlightsOverhead", "[", "args", "]"}]}], "}"}], ",",
RowBox[{"res", "/;",
RowBox[{"res", "=!=", "$Failed"}]}]}], "]"}]}], "\[IndentingNewLine]",
"\n",
RowBox[{"(*",
RowBox[{"main", " ", "code"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"iFlightsOverhead", "[", "]"}], ":=",
RowBox[{"iFlightsOverhead", "[",
RowBox[{"Here", ",", "\"\<PropertyAssociation\>\"", ",", "All"}],
"]"}]}], "\n",
RowBox[{
RowBox[{"iFlightsOverhead", "[", "\"\<Properties\>\"", "]"}], ":=",
RowBox[{"{",
RowBox[{"\"\<Flights\>\"", ",", "\"\<SkyMap\>\""}], "}"}]}], "\n",
RowBox[{
RowBox[{"iFlightsOverhead", "[", "loc_", "]"}], ":=",
RowBox[{"iFlightsOverhead", "[",
RowBox[{"loc", ",", "\"\<PropertyAssociation\>\"", ",", "All"}], "]"}]}],
"\n",
RowBox[{
RowBox[{"iFlightsOverhead", "[",
RowBox[{"loc_", ",", "prop_"}], "]"}], ":=",
RowBox[{"iFlightsOverhead", "[",
RowBox[{"loc", ",", "prop", ",", "All"}], "]"}]}], "\n",
RowBox[{
RowBox[{"iFlightsOverhead", "[",
RowBox[{"loc_", ",", "prop_", ",", "airline_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"pos", ",", "data", ",",
RowBox[{"a", "=",
RowBox[{"airline", "/.",
RowBox[{
RowBox[{"Entity", "[",
RowBox[{"\"\<Airline\>\"", ",", "x_"}], "]"}], "\[RuleDelayed]",
"x"}]}]}], ",", "p"}], "}"}], ",",
RowBox[{
RowBox[{"pos", "=",
RowBox[{"formatposition", "[", "loc", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"pos", "===", "$Failed"}], ",",
RowBox[{
RowBox[{
RowBox[{
"ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}],
"[",
RowBox[{
RowBox[{"FlightsOverhead", "::", "notloc"}], ",", "loc"}], "]"}],
";",
RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"!",
RowBox[{"(",
RowBox[{
RowBox[{"StringQ", "[", "a", "]"}], "||",
RowBox[{"a", "===", "All"}]}], ")"}]}], ",",
RowBox[{
RowBox[{
RowBox[{
"ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}],
"[",
RowBox[{
RowBox[{"FlightsOverhead", "::", "notair"}], ",", "airline"}],
"]"}], ";",
RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MemberQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"\"\<Flights\>\"", ",", "\"\<PropertyAssociation\>\"", ",",
"\"\<SkyMap\>\""}], "}"}], ",", "prop"}], "]"}], ",",
RowBox[{"p", "=",
RowBox[{"prop", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"(",
RowBox[{"\"\<SkyMap\>\"", "|", "\"\<PropertyAssociation\>\""}],
")"}], "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<FlightId\>\"", ",", "\"\<Longitude\>\"", ",",
"\"\<Latitude\>\"", ",", "\"\<Altitude\>\""}], "}"}]}],
"}"}]}]}], ",",
RowBox[{
RowBox[{
RowBox[{
"ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}],
"[",
RowBox[{
RowBox[{"General", "::", "notprop"}], ",", "prop", ",",
"FlightsOverhead"}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"data", "=",
RowBox[{"iFlightOverheadBatchQuery", "[",
RowBox[{"pos", ",", "p", ",", "a"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"prop", "===", "\"\<PropertyAssociation\>\""}], ",",
RowBox[{"Association", "[",
RowBox[{
RowBox[{
RowBox[{"#", "\[Rule]",
RowBox[{"formatprop", "[",
RowBox[{"data", ",", "#", ",", "pos"}], "]"}]}], "&"}], "/@",
RowBox[{"{",
RowBox[{"\"\<Flights\>\"", ",", "\"\<SkyMap\>\""}], "}"}]}],
"]"}], ",",
RowBox[{"formatprop", "[",
RowBox[{"data", ",", "prop", ",", "pos"}], "]"}]}], "]"}]}]}],
"]"}]}], "\n",
RowBox[{
RowBox[{"iFlightsOverhead", "[", "args___", "]"}], ":=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
"ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}], "[",
RowBox[{
RowBox[{"General", "::", "argb"}], ",", "FlightsOverhead", ",",
RowBox[{"Length", "[",
RowBox[{"{", "args", "}"}], "]"}], ",", "0", ",", "3"}], "]"}], ";",
"$Failed"}], ")"}]}], "\[IndentingNewLine]", "\n",
RowBox[{
RowBox[{"formatposition", "[",
RowBox[{"{",
RowBox[{"lat_", ",", "long_", ",", "___"}], "}"}], "]"}], ":=",
RowBox[{"GeoPosition", "[",
RowBox[{
RowBox[{"{",
RowBox[{"lat", ",", "long"}], "}"}], "/.",
RowBox[{
RowBox[{"Quantity", "[",
RowBox[{"a_", ",", "\"\<AngularDegrees\>\""}], "]"}],
"\[RuleDelayed]", "a"}]}], "]"}]}], "\n",
RowBox[{
RowBox[{"formatposition", "[",
RowBox[{"GeoPosition", "[",
RowBox[{
RowBox[{"coord", ":",
RowBox[{"{",
RowBox[{"_", ",", "_", ",", "___"}], "}"}]}], ",", "___"}], "]"}],
"]"}], ":=",
RowBox[{"GeoPosition", "[",
RowBox[{"coord", "/.",
RowBox[{
RowBox[{"Quantity", "[",
RowBox[{"a_", ",", "\"\<AngularDegrees\>\""}], "]"}],
"\[RuleDelayed]", "a"}]}], "]"}]}], "\n",
RowBox[{
RowBox[{"formatposition", "[", "e_Entity", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"pos", "=",
RowBox[{"Quiet", "[",
RowBox[{
RowBox[{"EntityValue", "[",
RowBox[{"e", ",", "\"\<Position\>\""}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Entity", "::", "etype"}], ",",
RowBox[{"EntityProperty", "::", "qname"}], ",",
RowBox[{"EntityProperty", "::", "pname"}], ",",
RowBox[{"EntityValue", "::", "pname"}]}], "}"}]}], "]"}]}], "}"}],
",",
RowBox[{"formatposition", "[", "pos", "]"}]}], "]"}]}], "\n",
RowBox[{
RowBox[{"formatposition", "[", "__", "]"}], ":=",
"$Failed"}]}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, 3.819119131007401*^9},
CellID->309325391],
Cell[BoxData[{
RowBox[{
RowBox[{"$batchnumber", "=", "10"}], ";"}], "\n",
RowBox[{
RowBox[{"iFlightOverheadBatchQuery", "[",
RowBox[{"e_", ",", "prop_", ",", "airline_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"p", "=", "prop"}], ",", "entities", ",", "input", ",", "data",
",",
RowBox[{"dates", "=",
RowBox[{"DateList", "[",
RowBox[{"Now", ",",
RowBox[{"TimeZone", "\[Rule]", "\"\<UTC\>\""}]}], "]"}]}]}], "}"}],
",",
RowBox[{
RowBox[{"input", "=",
RowBox[{"Internal`MWASymbols`MWAFlightData", "[",
RowBox[{"e", ",",
RowBox[{"{", "\"\<StandardName\>\"", "}"}], ",", "airline", ",",
"All"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"entities", "=",
RowBox[{"Flatten", "[",
RowBox[{"flightAPI", "[", "input", "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"entities", ",",
RowBox[{
RowBox[{"{", "}"}], "|", "_Missing"}]}], "]"}], ",",
RowBox[{"Return", "[",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], "]"}]}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"dates", "=",
RowBox[{"{",
RowBox[{
RowBox[{"DatePlus", "[",
RowBox[{"dates", ",",
RowBox[{"Quantity", "[",
RowBox[{
RowBox[{"-", "2"}], ",", "\"\<Hours\>\""}], "]"}]}], "]"}], ",",
"dates"}], "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"prop", "===", "\"\<Flights\>\""}], ",",
RowBox[{"Return", "[", "entities", "]"}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"entities", "=",
RowBox[{"Partition", "[",
RowBox[{"entities", ",", "$batchnumber", ",", "$batchnumber", ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}], ",", "Nothing"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"DynamicModule", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"progress", "=", "0"}], ",", "text"}], "}"}], ",",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"TrueQ", "[", "$Notebooks", "]"}], ",",
RowBox[{
RowBox[{"text", "=",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{"\"\<Downloading \>\"", ",",
RowBox[{"Dynamic", "[", "progress", "]"}], ",", "\"\< of \>\"",
",",
RowBox[{"ToString", "[",
RowBox[{"Length", "[",
RowBox[{"Flatten", "[", "entities", "]"}], "]"}], "]"}],
",", "\"\< flights....\>\""}], "}"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"PrintTemporary", "[",
RowBox[{"Internal`LoadingPanel", "[", "text", "]"}], "]"}]}]}],
"]"}], ";", "\[IndentingNewLine]",
RowBox[{"data", "=",
RowBox[{"Flatten", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"progress", "=",
RowBox[{"progress", "+",
RowBox[{"Length", "[", "x", "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"input", "=",
RowBox[{"Internal`MWASymbols`MWAFlightData", "[",
RowBox[{"x", ",", "p", ",", "airline", ",", "dates"}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"input", "=",
RowBox[{"flightAPI", "[", "input", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Which", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"input", ",", "_Missing"}], "]"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}],
",",
RowBox[{"{",
RowBox[{"j", ",",
RowBox[{"Length", "[", "p", "]"}]}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}], ",",
RowBox[{
RowBox[{"Length", "[", "x", "]"}], "===", "1"}], ",",
RowBox[{"{", "input", "}"}], ",", "True", ",", "input"}],
"]"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",", "entities"}], "}"}]}], "]"}], ",", "1"}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"progress", "=",
RowBox[{"Length", "[",
RowBox[{"Flatten", "[", "entities", "]"}], "]"}]}], ";"}]}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
"sift", " ", "out", " ", "unneeded", " ", "entities", " ", "due", " ",
"to", " ", "specific", " ", "airline"}], "*)"}],
RowBox[{"If", "[",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{"data", ",", "None"}], "]"}], ",",
RowBox[{"Which", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Length", "[",
RowBox[{"Flatten", "[", "entities", "]"}], "]"}], "===", "1"}], "&&",
RowBox[{
RowBox[{"Length", "[", "p", "]"}], "<", "2"}]}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Flatten", "[", "entities", "]"}], ",",
RowBox[{"{", "data", "}"}]}], "}"}], ",", "True", ",",
RowBox[{"{",
RowBox[{
RowBox[{"Flatten", "[", "entities", "]"}], ",", "data"}], "}"}]}],
"]"}], ",",
RowBox[{"DeleteCases", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Flatten", "[", "entities", "]"}], ",", "data"}], "}"}],
"]"}], ",",
RowBox[{"_", "?",
RowBox[{"(",
RowBox[{
RowBox[{"!",
RowBox[{"FreeQ", "[",
RowBox[{"#", ",", "None"}], "]"}]}], "&"}], ")"}]}]}], "]"}]}],
"]"}]}]}], "]"}]}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1467089]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.8191191352715883`*^9}},
CellID->339259382],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"flightAPI", "[", "input_", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"result", ",", "messages"}], "}"}], ",",
RowBox[{
RowBox[{"result", "=",
RowBox[{"Internal`MWACompute", "[",
RowBox[{"\"\<MWAFlightData\>\"", ",", "input", ",",
RowBox[{"\"\<ContextPath\>\"", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<Internal`MWASymbols`\>\"", ",", "\"\<System`\>\"", ",",
"\"\<DataPaclets`FlightDataDump`\>\""}], "}"}]}], ",",
RowBox[{"\"\<MessageHead\>\"", "\[Rule]", "FlightData"}]}], "]"}]}],
";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{"result", ",", "$Failed"}], "]"}], ",",
RowBox[{
RowBox[{"result", "=",
RowBox[{"ReleaseHold", "[", "result", "]"}]}], ";",
RowBox[{"messages", "=",
RowBox[{"\"\<Messages\>\"", "/.", "result"}]}]}], ",",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"Not", "[",
RowBox[{"FreeQ", "[",
RowBox[{"result", ",", "\"\<ComputationTimeout\>\""}], "]"}],
"]"}], ",",
RowBox[{
RowBox[{
"ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}],
"[",
RowBox[{
RowBox[{"FlightsOverhead", "::", "timeout"}], ",",
"FlightsOverhead"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"result", "=", "$Failed"}]}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"messages", "=",
RowBox[{"Cases", "[",
RowBox[{"messages", ",",
RowBox[{"Hold", "[",
RowBox[{"Message", "[",
RowBox[{
RowBox[{"MessageName", "[",
RowBox[{"FlightData", ",", "_"}], "]"}], ",", "___"}], "]"}],
"]"}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"ReleaseHold", "[", "messages", "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{"result", ",", "\"\<Result\>\""}], "]"}], ",",
RowBox[{"result", "/.",
RowBox[{"$Failed", "\[Rule]",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}]}], ",",
RowBox[{
RowBox[{"\"\<Result\>\"", "/.", "result"}], "/.",
RowBox[{"$Failed", "\[Rule]",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}]}]}],
"]"}]}]}], "]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"formatprop", "[",
RowBox[{"_Missing", ",", "_", ",", "_"}], "]"}], ":=",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}], "\n",
RowBox[{
RowBox[{"formatprop", "[",
RowBox[{
RowBox[{"f", ":",
RowBox[{"{",
RowBox[{"_Integer", ".."}], "}"}]}], ",", "\"\<Flights\>\"", ",", "_"}],
"]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Entity", "[",
RowBox[{"\"\<Flight\>\"", ",",
RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], "/@",
"f"}]}], "\n",
RowBox[{
RowBox[{"formatprop", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"f", ":",
RowBox[{"{",
RowBox[{"_Integer", ".."}], "}"}]}], ",", "__"}], "}"}], ",",
"\"\<Flights\>\"", ",", "_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Entity", "[",
RowBox[{"\"\<Flight\>\"", ",",
RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], "/@",
"f"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{"formatprop", "[",
RowBox[{"data_", ",", "\"\<SkyMap\>\"", ",", "pov_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"idate", "=",
RowBox[{"data", "[",
RowBox[{"[",
RowBox[{"2", ",", "All", ",", "2", ",", "1", ",", "1"}], "]"}],
"]"}]}], "}"}], ",",
RowBox[{
RowBox[{"idate", "=",
RowBox[{"Last", "[",
RowBox[{"SortBy", "[",
RowBox[{"idate", ",", "AbsoluteTime"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"iFlightSkyMap", "[",
RowBox[{"data", ",", "idate", ",", "pov"}], "]"}]}]}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"formatprop", "[", "__", "]"}], ":=",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.8191191398862057`*^9}, {3.837863992209158*^9, 3.837863993026555*^9}},
CellID->963935420],
Cell[BoxData[
RowBox[{
RowBox[{"iFlightSkyMap", "[",
RowBox[{"data_", ",", "idate_", ",", "pov_GeoPosition"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"cleandata", "=",
RowBox[{"data", "[",
RowBox[{"[",
RowBox[{"2", ",", "All", ",",
RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ",", "id", ",", "arrow"}],
"}"}], ",",
RowBox[{
RowBox[{"id", "=",
RowBox[{
RowBox[{
RowBox[{"Entity", "[",
RowBox[{"\"\<Flight\>\"", ",",
RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], "/@",
RowBox[{"data", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
RowBox[{"cleandata", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"avgAlt", "=",
RowBox[{"Replace", "[",
RowBox[{
RowBox[{"Mean", "@",
RowBox[{"Cases", "[",
RowBox[{
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "3", "]"}], "]"}], "[",
RowBox[{"[",
RowBox[{"All", ",",
RowBox[{"-", "1"}]}], "]"}], "]"}], ",",
RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ",",
RowBox[{
RowBox[{"Except", "[",
RowBox[{"_", "?", "NumericQ"}], "]"}], "\[Rule]",
"10000"}]}], "]"}]}], "}"}], ",",
RowBox[{"Replace", "[",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "3", "]"}], "]"}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"t_", ",", "alt_Missing"}], "}"}], "\[RuleDelayed]",
RowBox[{"{",
RowBox[{"t", ",", "avgAlt"}], "}"}]}], ",",
RowBox[{"{", "1", "}"}]}], "]"}]}], "]"}]}], "}"}], "&"}], ",",
"cleandata"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"cleandata", "[",
RowBox[{"[",
RowBox[{"All", ",", "3", ",", "All", ",", "2"}], "]"}], "]"}], "*=",
RowBox[{"(",
RowBox[{"381", "/", "1250"}], ")"}]}], ";", "\[IndentingNewLine]",
RowBox[{"cleandata", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"#", ",",
RowBox[{"{", "__List", "}"}]}], "]"}], ",",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Transpose", "[",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}],
"}"}], "]"}], ",", "#"}], "]"}], "&"}], ",", "cleandata"}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"pos", "=",
RowBox[{"Position", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"!",
RowBox[{"MemberQ", "[",
RowBox[{"#", ",", "_Missing", ",", "Infinity", ",",
RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}]}], "&"}], "/@",
"cleandata"}], ",", "True"}], "]"}]}], "}"}], ",",
RowBox[{"cleandata", "=",
RowBox[{"Extract", "[",
RowBox[{"cleandata", ",", "pos"}], "]"}]}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"cleandata", "[",
RowBox[{"[",
RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], "=",
RowBox[{"(",
RowBox[{
RowBox[{"Round", "[",
RowBox[{"AbsoluteTime", "[", "idate", "]"}], "]"}], "-",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Round", "[",
RowBox[{"AbsoluteTime", "[", "#", "]"}], "]"}], "&"}], ",",
RowBox[{"cleandata", "[",
RowBox[{"[",
RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"{", "2", "}"}]}], "]"}]}], ")"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"cleandata", "=",
RowBox[{"Cases", "[",
RowBox[{"cleandata", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"_", "?", "NumericQ"}], ",",
RowBox[{"{",
RowBox[{"__", "?", "NumericQ"}], "}"}]}], "}"}], ".."}], "}"}]}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"cleandata", "===",
RowBox[{"{", "}"}]}], ",",
RowBox[{"Return", "[",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], "]"}]}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"cleandata", "=",
RowBox[{
RowBox[{
RowBox[{"Quiet", "[",
RowBox[{
RowBox[{"Interpolation", "[",
RowBox[{"#", ",",
RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"InterpolatingFunction", "::", "dmval"}], "}"}]}], "]"}],
"&"}], "/@", "cleandata"}]}], ";", "\[IndentingNewLine]",
RowBox[{"Quiet", "[",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"ptrange", "=",
RowBox[{"Range", "[",
RowBox[{"0", ",", "500", ",", "25"}], "]"}]}], ",",
RowBox[{"blend", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Blend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"GrayLevel", "[", "0.7", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"GrayLevel", "[", "1", "]"}]}], "}"}]}], "}"}],
",", "i"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"0", ",", "500", ",", "25"}], "]"}], "/", "500"}]}],
"}"}]}], "]"}]}]}], "}"}], ",",
RowBox[{"arrow", "=",
RowBox[{"MapThread", "[",
RowBox[{
RowBox[{"Function", "[",
RowBox[{
RowBox[{"{",
RowBox[{"if", ",", "name"}], "}"}], ",",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"pts", "=",
RowBox[{"if", "/@", "ptrange"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Opacity", "[", ".5", "]"}], ",", "Thick", ",",
RowBox[{"{",
RowBox[{
RowBox[{"Opacity", "[", "1", "]"}], ",",
RowBox[{"Thread", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Most", "[", "blend", "]"}], ",",
RowBox[{"Line", "/@",
RowBox[{"Partition", "[",
RowBox[{"pts", ",", "2", ",", "1"}], "]"}]}]}], "}"}],
"]"}]}], "}"}], ",",
RowBox[{"Opacity", "[", "0", "]"}], ",",
RowBox[{"Tooltip", "[",
RowBox[{
RowBox[{"Arrow", "[",
RowBox[{"pts", "[",
RowBox[{"[",
RowBox[{"{",
RowBox[{"2", ",", "1"}], "}"}], "]"}], "]"}], "]"}], ",",
"name"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"cleandata", ",", "id"}], "}"}]}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"InterpolatingFunction", "::", "dmval"}], "}"}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
"evaluate", " ", "the", " ", "star", " ", "chart", " ", "code"}],
"*)"}],
RowBox[{"SkyChart", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"FlightDataAirplane", "[",
RowBox[{"1", ",", "Red", ",", "1", ",", "True"}], "]"}], ",",
"arrow"}], "}"}], ",", "pov", ",",
RowBox[{"DateObject", "[",
RowBox[{"TimeZone", "\[Rule]", "\"\<GMT\>\""}], "]"}]}], "]"}]}]}],
"]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1469857]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.8191191483249493`*^9}, 3.8378639938350687`*^9},
CellID->30876889],
Cell[BoxData[
RowBox[{
RowBox[{"FlightDataAirplane", "[",
RowBox[{"pos_", ",",
RowBox[{"color_", ":", "Red"}], ",",
RowBox[{"opacity_", ":", "1"}], ",",
RowBox[{"offsetq_", ":", "False"}]}], "]"}], ":=",
RowBox[{"Arrowheads", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{".05", ",",
RowBox[{"Clip", "[",
RowBox[{"pos", ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Opacity", "[", "opacity", "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"Style", "[",
RowBox[{
RowBox[{"FromCharacterCode", "[",
RowBox[{"40", ",", "\"\<ZapfDingbats\>\""}], "]"}], ",",
RowBox[{"FontSize", "\[Rule]",
RowBox[{"Round", "[",
RowBox[{"1.6", " ", "14"}], "]"}]}], ",",
RowBox[{"FontColor", "\[Rule]", "color"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"$OperatingSystem", "===", "\"\<Windows\>\""}], ",",
RowBox[{"FontFamily", "\[Rule]", "\"\<MS Mincho\>\""}], ",",
RowBox[{"Sequence", "@@",
RowBox[{"{", "}"}]}]}], "]"}]}], "]"}], "]"}]}], "}"}],
"]"}]}], "}"}], "}"}], "]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1469297]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119150673807*^9}},
CellID->474413700],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"deltaT0modern", "=",
RowBox[{"Interpolation", "[",
RowBox[{"N", "@",
RowBox[{"{",
RowBox[{"(*",
RowBox[{
RowBox[{
"Data", " ", "from", " ", "1620", " ", "to", " ", "2009", " ",
"taken", " ", "from", " ",
RowBox[{"https", ":"}]}], "//",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"webspace", ".", "science", ".", "uu", ".", "nl"}], "/",
RowBox[{"~", "gent0113"}]}], "/", "deltat"}], "/",
RowBox[{"deltat_modern", ".", "htm"}]}]}], "*)"}],
RowBox[{
RowBox[{"{",
RowBox[{"1620", ",", "124"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1621", ",", "119"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1622", ",", "115"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1623", ",", "110"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1624", ",", "106"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1625", ",", "102"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1626", ",", "98"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1627", ",", "95"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1628", ",", "91"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1629", ",", "88"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1630", ",", "85"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1631", ",", "82"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1632", ",", "79"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1633", ",", "77"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1634", ",", "74"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1635", ",", "72"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1636", ",", "70"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1637", ",", "67"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1638", ",", "65"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1639", ",", "63"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1640", ",", "62"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1641", ",", "60"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1642", ",", "58"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1643", ",", "57"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1644", ",", "55"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1645", ",", "54"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1646", ",", "53"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1647", ",", "51"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1648", ",", "50"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1649", ",", "49"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1650", ",", "48"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1651", ",", "47"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1652", ",", "46"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1653", ",", "45"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1654", ",", "44"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1655", ",", "43"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1656", ",", "42"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1657", ",", "41"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1658", ",", "40"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1659", ",", "38"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1660", ",", "37"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1661", ",", "36"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1662", ",", "35"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1663", ",", "34"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1664", ",", "33"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1665", ",", "32"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1666", ",", "31"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1667", ",", "30"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1668", ",", "28"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1669", ",", "27"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1670", ",", "26"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1671", ",", "25"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1672", ",", "24"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1673", ",", "23"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1674", ",", "22"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1675", ",", "21"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1676", ",", "20"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1677", ",", "19"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1678", ",", "18"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1679", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1680", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1681", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1682", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1683", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1684", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1685", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1686", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1687", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1688", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1689", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1690", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1691", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1692", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1693", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1694", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1695", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1696", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1697", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1698", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1699", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1700", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1701", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1702", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1703", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1704", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1705", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1706", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1707", ",", "9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1708", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1709", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1710", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1711", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1712", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1713", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1714", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1715", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1716", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1717", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1718", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1719", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1720", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1721", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1722", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1723", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1724", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1725", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1726", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1727", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1728", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1729", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1730", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1731", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1732", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1733", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1734", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1735", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1736", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1737", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1738", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1739", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1740", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1741", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1742", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1743", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1744", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1745", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1746", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1747", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1748", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1749", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1750", ",", "13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1751", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1752", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1753", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1754", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1755", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1756", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1757", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1758", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1759", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1760", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1761", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1762", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1763", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1764", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1765", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1766", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1767", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1768", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1769", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1770", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1771", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1772", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1773", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1774", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1775", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1776", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1777", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1778", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1779", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1780", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1781", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1782", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1783", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1784", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1785", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1786", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1787", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1788", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1789", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1790", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1791", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1792", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1793", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1794", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1795", ",", "16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1796", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1797", ",", "15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1798", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1799", ",", "14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1800", ",", "13.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1801", ",", "13.4"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1802", ",", "13.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1803", ",", "12.9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1804", ",", "12.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1805", ",", "12.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1806", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1807", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1808", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1809", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1810", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1811", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1812", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1813", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1814", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1815", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1816", ",", "12.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1817", ",", "12.4"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1818", ",", "12.3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1819", ",", "12.2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1820", ",", "12.0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1821", ",", "11.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1822", ",", "11.4"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1823", ",", "11.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1824", ",", "10.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1825", ",", "10.2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1826", ",", "9.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1827", ",", "9.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1828", ",", "8.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1829", ",", "8.0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1830", ",", "7.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1831", ",", "7.0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1832", ",", "6.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1833", ",", "6.3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1834", ",", "6.0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1835", ",", "5.8"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1836", ",", "5.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1837", ",", "5.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1838", ",", "5.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1839", ",", "5.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1840", ",", "5.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1841", ",", "5.8"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1842", ",", "5.9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1843", ",", "6.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1844", ",", "6.2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1845", ",", "6.3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1846", ",", "6.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1847", ",", "6.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1848", ",", "6.8"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1849", ",", "6.9"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1850", ",", "7.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1851", ",", "7.2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1852", ",", "7.3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1853", ",", "7.4"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1854", ",", "7.5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1855", ",", "7.6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1856", ",", "7.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1857", ",", "7.7"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1858", ",", "7.8"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1859", ",", "7.8"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1860", ",", "7.88"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1861", ",", "7.82"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1862", ",", "7.54"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1863", ",", "6.97"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1864", ",", "6.40"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1865", ",", "6.02"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1866", ",", "5.41"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1867", ",", "4.10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1868", ",", "2.92"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1869", ",", "1.82"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1870", ",", "1.61"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1871", ",", "0.10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1872", ",",
RowBox[{"-", "1.02"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1873", ",",
RowBox[{"-", "1.28"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1874", ",",
RowBox[{"-", "2.69"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1875", ",",
RowBox[{"-", "3.24"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1876", ",",
RowBox[{"-", "3.64"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1877", ",",
RowBox[{"-", "4.54"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1878", ",",
RowBox[{"-", "4.71"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1879", ",",
RowBox[{"-", "5.11"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1880", ",",
RowBox[{"-", "5.40"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1881", ",",
RowBox[{"-", "5.42"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1882", ",",
RowBox[{"-", "5.20"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1883", ",",
RowBox[{"-", "5.46"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1884", ",",
RowBox[{"-", "5.46"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1885", ",",
RowBox[{"-", "5.79"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1886", ",",
RowBox[{"-", "5.63"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1887", ",",
RowBox[{"-", "5.64"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1888", ",",
RowBox[{"-", "5.80"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1889", ",",
RowBox[{"-", "5.66"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1890", ",",
RowBox[{"-", "5.87"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1891", ",",
RowBox[{"-", "6.01"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1892", ",",
RowBox[{"-", "6.19"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1893", ",",
RowBox[{"-", "6.64"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1894", ",",
RowBox[{"-", "6.44"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1895", ",",
RowBox[{"-", "6.47"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1896", ",",
RowBox[{"-", "6.09"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1897", ",",
RowBox[{"-", "5.76"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1898", ",",
RowBox[{"-", "4.66"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1899", ",",
RowBox[{"-", "3.74"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1900", ",",
RowBox[{"-", "2.72"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1901", ",",
RowBox[{"-", "1.54"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1902", ",",
RowBox[{"-", "0.02"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1903", ",", "1.24"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1904", ",", "2.64"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1905", ",", "3.86"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1906", ",", "5.37"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1907", ",", "6.14"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1908", ",", "7.75"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1909", ",", "9.13"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1910", ",", "10.46"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1911", ",", "11.53"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1912", ",", "13.36"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1913", ",", "14.65"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1914", ",", "16.01"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1915", ",", "17.20"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1916", ",", "18.24"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1917", ",", "19.06"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1918", ",", "20.25"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1919", ",", "20.95"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1920", ",", "21.16"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1921", ",", "22.25"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1922", ",", "22.41"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1923", ",", "23.03"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1924", ",", "23.49"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1925", ",", "23.62"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1926", ",", "23.86"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1927", ",", "24.49"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1928", ",", "24.34"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1929", ",", "24.08"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1930", ",", "24.02"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1931", ",", "24.00"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1932", ",", "23.87"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1933", ",", "23.95"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1934", ",", "23.86"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1935", ",", "23.93"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1936", ",", "23.73"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1937", ",", "23.92"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1938", ",", "23.96"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1939", ",", "24.02"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1940", ",", "24.33"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1941", ",", "24.83"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1942", ",", "25.30"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1943", ",", "25.70"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1944", ",", "26.24"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1945", ",", "26.77"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1946", ",", "27.28"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1947", ",", "27.78"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1948", ",", "28.25"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1949", ",", "28.71"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1950", ",", "29.15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1951", ",", "29.57"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1952", ",", "29.97"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1953", ",", "30.36"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1954", ",", "30.72"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1955", ",", "31.07"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1956", ",", "31.35"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1957", ",", "31.68"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1958", ",", "32.18"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1959", ",", "32.68"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1960", ",", "33.15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1961", ",", "33.59"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1962", ",", "34.00"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1963", ",", "34.47"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1964", ",", "35.03"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1965", ",", "35.73"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1966", ",", "36.54"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1967", ",", "37.43"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1968", ",", "38.29"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "39.20"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1970", ",", "40.18"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1971", ",", "41.17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1972", ",", "42.23"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1973", ",", "43.37"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1974", ",", "44.49"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1975", ",", "45.48"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1976", ",", "46.46"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1977", ",", "47.52"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1978", ",", "48.53"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1979", ",", "49.59"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1980", ",", "50.54"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1981", ",", "51.38"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1982", ",", "52.17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1983", ",", "52.96"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1984", ",", "53.79"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1985", ",", "54.34"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1986", ",", "54.87"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1987", ",", "55.32"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1988", ",", "55.82"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1989", ",", "56.30"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1990", ",", "56.86"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1991", ",", "57.57"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1992", ",", "58.31"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1993", ",", "59.12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1994", ",", "59.99"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1995", ",", "60.78"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1996", ",", "61.63"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1997", ",", "62.30"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1998", ",", "62.97"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1999", ",", "63.47"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2000", ",", "63.83"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2001", ",", "64.09"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2002", ",", "64.30"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2003", ",", "64.47"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2004", ",", "64.57"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2005", ",", "64.69"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2006", ",", "64.85"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2007", ",", "65.15"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2008", ",", "65.46"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2009", ",", "65.78"}], "}"}], ",",
RowBox[{"(*",
RowBox[{
RowBox[{
"Data", " ", "from", " ", "2010", " ", "to", " ", "2019", " ",
"taken", " ", "from", " ",
RowBox[{"http", ":"}]}], "//",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"astro", ".", "ukho", ".", "gov", ".", "uk"}], "/",
"nao"}], "/", "lvm"}], "/"}]}], "*)"}],
RowBox[{"{",
RowBox[{"2010", ",", "66.06"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2011", ",", "66.33"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2012", ",", "66.60"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2013", ",", "66.92"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2014", ",", "67.30"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2015", ",", "67.69"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2016", ",", "68.04"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2017", ",", "68.60"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2018", ",", "68.97"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2019", ",", "69.20"}], "}"}], ",",
RowBox[{"(*",
RowBox[{
RowBox[{"Value", " ", "from", " ",
RowBox[{"https", ":"}]}], "//",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"en", ".", "wikipedia", ".", "org"}], "/", "wiki"}], "/",
"DeltaT"}], " ", "for", " ", "January", " ", "2020"}]}], "*)"}],
RowBox[{"{",
RowBox[{"2020", ",", "69.361"}], "}"}]}], "}"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]", "\n",
RowBox[{"(*",
RowBox[{
"restricted", " ", "to", " ", "current", " ", "date", " ", "which", " ",
"allows", " ", "us", " ", "to", " ", "shrink", " ", "this"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"deltaT1", "[", "year_", "]"}], ":=",
RowBox[{"If", "[",
RowBox[{
RowBox[{"1620", "\[LessEqual]", "year", "\[LessEqual]", "2020"}], ",",
RowBox[{
RowBox[{"deltaT0modern", "[", "year", "]"}], "/", "86400"}], ",",
RowBox[{"(*",
RowBox[{
RowBox[{"This", " ", "is", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "20"}], "+",
RowBox[{"32", " ",
RowBox[{"t", "^", "2"}]}]}], ")"}], "/", "86400"}]}], ",",
RowBox[{
RowBox[{"with", " ", "t"}], "=",
RowBox[{
RowBox[{"(",
RowBox[{"year", "-", "1820"}], ")"}], "/", "100"}]}], ",",
RowBox[{
"to", " ", "compare", " ", "with", " ", "the", " ", "deltat", " ",
"NASA", " ", "webpage", " ",
RowBox[{"above", ".", "There"}], " ", "is", " ", "a", " ", "large",
" ", "discontinuity", " ", "of", " ", "about", " ", "32", " ",
"seconds", " ", "in", " ", "the", " ", "transition", " ", "from", " ",
"deltaT0", " ", "to", " ", "this", " ", "formula", " ", "around", " ",
"2020."}]}], "*)"}],
RowBox[{
RowBox[{"2449", "/", "20000"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"91", " ", "year"}], ")"}], "/", "675000"}], "+",
RowBox[{
RowBox[{"year", "^", "2"}], "/", "27000000"}]}]}], "]"}]}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119156641815*^9}},
CellID->691814216],
Cell[BoxData[
RowBox[{
RowBox[{"JDToMeanSiderealRadians", "[", "jd_", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"T", "=",
RowBox[{
RowBox[{"(",
RowBox[{"jd", "-", "2451545.0"}], ")"}], "/", "36525"}]}], "}"}], ",",
RowBox[{
RowBox[{"-", "1.5445680047164863`*^7"}], "+",
RowBox[{"6.300388098984957", " ",
RowBox[{"(",
RowBox[{"jd", "-",
RowBox[{"deltaT1", "[",
RowBox[{"2000", "+",
RowBox[{"100", " ", "T"}]}], "]"}]}], ")"}]}], "+",
RowBox[{"6.770708127139162`*^-6", " ",
RowBox[{"T", "^", "2"}]}], "-",
RowBox[{"4.508729661571505`*^-10", " ",
RowBox[{"T", "^", "3"}]}]}]}], "]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119163682767*^9}},
CellID->296596398],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"JDToMeanSiderealRadians", "[", "list_List", "]"}], ":=",
RowBox[{"JDToMeanSiderealRadians", "/@", "list"}]}], ";"}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119165685954*^9}},
CellID->607152602],
Cell[BoxData[
RowBox[{
RowBox[{"SkyChart1", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"y", "/", "Pi"}]}], "-", "1"}], ")"}], " ",
RowBox[{"{",
RowBox[{
RowBox[{"-",
RowBox[{"Sin", "[", "x", "]"}]}], ",",
RowBox[{"Cos", "[", "x", "]"}]}], "}"}]}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119167410833*^9}},
CellID->308897624],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Point", "[", "x_", "]"}], "]"}], ":=",
RowBox[{"Point", "[",
RowBox[{"SkyChart1", "[", "x", "]"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Line", "[",
RowBox[{
RowBox[{"{", "x___List", "}"}], ",", "args___"}], "]"}], "]"}], ":=",
RowBox[{"Line", "[",
RowBox[{
RowBox[{"SkyChart1", "/@",
RowBox[{"{", "x", "}"}]}], ",", "args"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Arrow", "[",
RowBox[{
RowBox[{"{", "x___List", "}"}], ",", "args___"}], "]"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Arrow", "[",
RowBox[{
RowBox[{"Prepend", "[",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], ",",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], ",", "args"}],
"]"}], "&"}], "/@",
RowBox[{"Split", "[",
RowBox[{
RowBox[{"Partition", "[",
RowBox[{
RowBox[{"SkyChart1", "/@",
RowBox[{"{", "x", "}"}]}], ",", "2", ",", "1"}], "]"}], ",",
RowBox[{
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "\[Equal]",
RowBox[{"#2", "[",
RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Polygon", "[",
RowBox[{"{", "x___List", "}"}], "]"}], "]"}], ":=",
RowBox[{"Polygon", "/@",
RowBox[{"Select", "[",
RowBox[{
RowBox[{"Split", "[",
RowBox[{
RowBox[{"SkyChart1", "/@",
RowBox[{"{", "x", "}"}]}], ",",
RowBox[{
RowBox[{
RowBox[{"Min", "[",
RowBox[{"Norm", "/@",
RowBox[{"{", "##", "}"}]}], "]"}], "<", "1.5"}], "&"}]}], "]"}],
",",
RowBox[{
RowBox[{
RowBox[{"Min", "[",
RowBox[{"Norm", "/@", "#1"}], "]"}], "<", "1.2"}], "&"}]}],
"]"}]}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "r__"}], "]"}], "]"}], ":=",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"SkyChart1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "r"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "r__"}], "]"}], "]"}], ":=",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"SkyChart1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "r"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Text", "[",
RowBox[{"a_", ",",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "b___"}], "]"}], "]"}], ":=",
RowBox[{"Text", "[",
RowBox[{"a", ",",
RowBox[{"SkyChart1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "b"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[",
RowBox[{"Rotate", "[",
RowBox[{"a_", ",", "b_", ",",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}]}], "]"}], "]"}], ":=",
RowBox[{"Rotate", "[",
RowBox[{"a", ",",
RowBox[{"b", "+", "x"}], ",",
RowBox[{"SkyChart1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "]"}]}],
"\[IndentingNewLine]"}], "\n",
RowBox[{
RowBox[{
RowBox[{"SkyChart0", "[", "x_", "]"}], ":=", "x"}], ";"}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119173926447*^9}},
CellID->401754060],
Cell[BoxData[
RowBox[{
RowBox[{"circleIntercept", "[",
RowBox[{"p1_", ",", "p2_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"soln", "=",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"#", ".", "#"}], "&"}], "[",
RowBox[{
RowBox[{"t", " ",
RowBox[{"(",
RowBox[{"p2", "-", "p1"}], ")"}]}], "+", "p1"}], "]"}],
"\[Equal]", "1"}], "&&",
RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "1"}]}], ",",
"t"}], "]"}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"soln", ",",
RowBox[{"{",
RowBox[{"{", "_Rule", "}"}], "}"}]}], "]"}], ",",
RowBox[{"p1", "+",
RowBox[{
RowBox[{"(",
RowBox[{"p2", "-", "p1"}], ")"}], " ",
RowBox[{"(",
RowBox[{"t", "/.",
RowBox[{"First", "@", "soln"}]}], ")"}]}]}], ",",
RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.8191191817314777`*^9}},
CellID->49927783],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"cropPrimitive", "[",
RowBox[{"Line", "[", "a_", "]"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"signs", "=",
RowBox[{"Sign", "[",
RowBox[{
RowBox[{"Total", "[",
RowBox[{
RowBox[{"a", "^", "2"}], ",",
RowBox[{"{", "2", "}"}]}], "]"}], "-", "1"}], "]"}]}], ",", "r"}],
"}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Max", "@", "signs"}], "\[LessEqual]", "0"}], ",",
RowBox[{"Line", "[", "a", "]"}], ",",
RowBox[{
RowBox[{"r", "=",
RowBox[{"Replace", "[",
RowBox[{
RowBox[{"Partition", "[",
RowBox[{
RowBox[{"Thread", "[",
RowBox[{"{",
RowBox[{"a", ",", "signs"}], "}"}], "]"}], ",", "2", ",",
"1"}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p1_", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"p2_", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}], "\[RuleDelayed]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"circleIntercept", "[",
RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"p2", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p1_", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p2_", ",", "1"}], "}"}]}], "}"}], "\[RuleDelayed]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"circleIntercept", "[",
RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}]}],
"}"}]}]}], "}"}], ",",
RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"ReplaceList", "[",
RowBox[{"r", ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"q", ":",
RowBox[{"(",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"_", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"_", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}], "..."}], ")"}]}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p1_", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p2_", ",", "0"}], "}"}]}], "}"}], ",", "___"}],
"}"}], "\[RuleDelayed]",
RowBox[{"Line", "@",
RowBox[{"Join", "[",
RowBox[{
RowBox[{
RowBox[{"{", "q", "}"}], "[",
RowBox[{"[",
RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}]}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"___", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p1_", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"_", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",",
RowBox[{"Shortest", "[", "q___", "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p2_", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p3_", ",", "0"}], "}"}]}], "}"}], ",", "___"}],
"}"}], "\[RuleDelayed]",
RowBox[{"Line", "@",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"{", "p1", "}"}], ",",
RowBox[{
RowBox[{"{", "q", "}"}], "[",
RowBox[{"[",
RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"p2", ",", "p3"}], "}"}]}], "]"}]}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"___", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p1_", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"p2_", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",",
RowBox[{"q", ":",
RowBox[{"(",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"_", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"_", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}], "..."}], ")"}]}]}],
"}"}], "\[RuleDelayed]",
RowBox[{"Line", "@",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"{",
RowBox[{"p1", ",", "p2"}], "}"}], ",",
RowBox[{
RowBox[{"{", "q", "}"}], "[",
RowBox[{"[",
RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}],
"]"}]}]}]}], "}"}]}], "]"}]}]}], "]"}]}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cropPrimitive", "[",
RowBox[{"Polygon", "[", "a_", "]"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"signs", "=",
RowBox[{"Sign", "[",
RowBox[{
RowBox[{"Total", "[",
RowBox[{
RowBox[{"a", "^", "2"}], ",",
RowBox[{"{", "2", "}"}]}], "]"}], "-", "1"}], "]"}]}], ",", "r"}],
"}"}], ",",
RowBox[{
RowBox[{"r", "=",
RowBox[{"Thread", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Range", "@",
RowBox[{"Length", "@", "a"}]}], ",", "a", ",", "signs"}], "}"}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Max", "@", "signs"}], "\[LessEqual]", "0"}], ",",
RowBox[{"Polygon", "[", "a", "]"}], ",",
RowBox[{
RowBox[{"Replace", "[",
RowBox[{
RowBox[{"Partition", "[",
RowBox[{"r", ",", "2", ",", "1", ",", "1"}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"i_", ",", "p1_", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"_", ",", "p2_", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}], "\[RuleDelayed]",
RowBox[{"(",
RowBox[{
RowBox[{"r", "[",
RowBox[{"[",
RowBox[{"i", ",",
RowBox[{"{",
RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{"circleIntercept", "[",
RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}]}],
")"}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"_", ",", "p1_", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"i_", ",", "p2_", ",", "1"}], "}"}]}], "}"}],
"\[RuleDelayed]",
RowBox[{"(",
RowBox[{
RowBox[{"r", "[",
RowBox[{"[",
RowBox[{"i", ",",
RowBox[{"{",
RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{"circleIntercept", "[",
RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}]}],
")"}]}]}], "}"}], ",",
RowBox[{"{", "1", "}"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Polygon", "[",
RowBox[{"Pick", "[",
RowBox[{
RowBox[{"r", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], ",",
RowBox[{"r", "[",
RowBox[{"[",
RowBox[{"All", ",", "3"}], "]"}], "]"}], ",",
RowBox[{"0", "|",
RowBox[{"-", "1"}]}]}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cropPrimitive", "[",
RowBox[{"Disk", "[",
RowBox[{"a_", ",",
RowBox[{"r_", "?", "NumericQ"}]}], "]"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"d", "=",
RowBox[{"Sqrt", "[",
RowBox[{"a", ".", "a"}], "]"}]}], ",", "s", ",", "t", ",", "q", ",",
RowBox[{"c", "=",
RowBox[{"ArcTan", "@@", "a"}]}]}], "}"}], ",",
RowBox[{"Which", "[",
RowBox[{
RowBox[{
RowBox[{"r", "+", "d"}], "<", "1"}], ",",
RowBox[{"Disk", "[",
RowBox[{"a", ",", "r"}], "]"}], ",",
RowBox[{
RowBox[{"r", "+", "1"}], "<", "d"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"r", "<",
RowBox[{"d", "+", "1"}]}], ",",
RowBox[{
RowBox[{"s", "=",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"Thread", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "t", "]"}], ",",
RowBox[{"Sin", "[", "t", "]"}]}], "}"}], "\[Equal]",
RowBox[{"a", "+",
RowBox[{"r", " ",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "q", "]"}], ",",
RowBox[{"Sin", "[", "q", "]"}]}], "}"}]}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "q"}], "}"}], ",",
RowBox[{"InverseFunctions", "\[Rule]", "True"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"DiskSegment", "[",
RowBox[{"a", ",", "r", ",",
RowBox[{"Sort", "@",
RowBox[{"Mod", "[",
RowBox[{
RowBox[{"q", "/.", "s"}], ",",
RowBox[{"2", " ", "Pi"}], ",", "c"}], "]"}]}]}], "]"}], ",",
RowBox[{"EdgeForm", "[", "None", "]"}], ",",
RowBox[{"DiskSegment", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "1", ",",
RowBox[{"Sort", "@",
RowBox[{"Mod", "[",
RowBox[{
RowBox[{"t", "/.", "s"}], ",",
RowBox[{"2", " ", "Pi"}], ",",
RowBox[{"c", "-", "Pi"}]}], "]"}]}]}], "]"}]}], "}"}]}], ",",
"True", ",",
RowBox[{"{", "}"}]}], "]"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cropPrimitive", "[",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "r__"}], "]"}], "]"}], ":=",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "r"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cropPrimitive", "[",
RowBox[{"Circle", "[",
RowBox[{"a_", ",", "r_"}], "]"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"d", "=",
RowBox[{"Sqrt", "[",
RowBox[{"a", ".", "a"}], "]"}]}], ",", "s", ",", "t", ",", "q", ",",
RowBox[{"c", "=",
RowBox[{"ArcTan", "@@", "a"}]}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"d", "-", "1"}], "]"}], "\[LessEqual]", "r", "<",
RowBox[{"d", "+", "1"}]}], ",",
RowBox[{
RowBox[{"s", "=",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"Thread", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "t", "]"}], ",",
RowBox[{"Sin", "[", "t", "]"}]}], "}"}], "\[Equal]",
RowBox[{"a", "+",
RowBox[{"r", " ",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "q", "]"}], ",",
RowBox[{"Sin", "[", "q", "]"}]}], "}"}]}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "q"}], "}"}], ",",
RowBox[{"InverseFunctions", "\[Rule]", "True"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Circle", "[",
RowBox[{"a", ",", "r", ",",
RowBox[{"Sort", "@",
RowBox[{"Mod", "[",
RowBox[{
RowBox[{"q", "/.", "s"}], ",",
RowBox[{"2", " ", "Pi"}], ",", "c"}], "]"}]}]}], "]"}]}], ",",
RowBox[{"Circle", "[",
RowBox[{"a", ",", "r"}], "]"}]}], "]"}]}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cropPrimitive", "[",
RowBox[{"Rotate", "[",
RowBox[{"g_", ",", "a_", ",", "o_"}], "]"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "d", "}"}], ",",
RowBox[{
RowBox[{"d", "=",
RowBox[{"g", "/.",
RowBox[{
RowBox[{"Disk", "[",
RowBox[{"c_", ",", "r_", ",",
RowBox[{"q_", ":",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"2", " ", "Pi"}]}], "}"}]}]}], "]"}], "\[RuleDelayed]",
RowBox[{"Polygon", "@",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"c", "+",
RowBox[{"r", " ",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "t", "]"}], ",",
RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"Subdivide", "[",
RowBox[{
RowBox[{"q", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"q", "[",
RowBox[{"[", "2", "]"}], "]"}], ",", "20"}], "]"}]}],
"}"}]}], "]"}]}]}]}]}], ";", "\[IndentingNewLine]",
RowBox[{"d", "/.",
RowBox[{
RowBox[{"Polygon", "[", "pts_", "]"}], "\[RuleDelayed]",
RowBox[{"cropPrimitive", "@",
RowBox[{"Polygon", "@",
RowBox[{
RowBox[{"RotationTransform", "[",
RowBox[{"a", ",", "o"}], "]"}], "[", "pts", "]"}]}]}]}]}]}]}],
"]"}]}], "\[IndentingNewLine]"}], "\n",
RowBox[{
RowBox[{"cropPrimitive", "[", "other_", "]"}], ":=", "other"}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119187203471*^9}},
CellID->282618623],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"cropGraphic", "[", "g_", "]"}], ":=",
RowBox[{"g", "/.",
RowBox[{
RowBox[{
"l_Line", "|", "l_Polygon", "|", "l_Circle", "|", "l_Disk", "|",
"l_Rotate"}], "\[RuleDelayed]",
RowBox[{"cropPrimitive", "[", "l", "]"}]}]}]}],
"\[IndentingNewLine]"}], "\n",
RowBox[{
RowBox[{"iSkyChart", "[",
RowBox[{"primitives_", ",",
RowBox[{"opts", ":",
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=",
RowBox[{"Labeled", "[",
RowBox[{
RowBox[{"cropGraphic", "@",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"MapAll", "[",
RowBox[{"SkyChart0", ",", "primitives"}], "]"}], ",",
RowBox[{"Background", "\[Rule]", "None"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRangePadding", "\[Rule]", ".03"}]}], "]"}]}], ",",
RowBox[{
RowBox[{
RowBox[{"Text", "[",
RowBox[{"Style", "[", "#", "]"}], "]"}], "&"}], "/@",
RowBox[{"Replace", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"\"\<N\>\"", ",", "\"\<W\>\"", ",", "\"\<S\>\"", ",", "\"\<E\>\""}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"n_", ",", "w_", ",", "s_", ",", "e_"}], "}"}],
"\[RuleDelayed]",
RowBox[{"{",
RowBox[{"s", ",", "e", ",", "n", ",", "w"}], "}"}]}], ",",
RowBox[{"_", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}],
"}"}]}]}], "}"}]}], "]"}]}], ",", "All", ",",
RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1467329]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119191233397*^9}},
CellID->76137508],
Cell[BoxData[
RowBox[{
RowBox[{"LocalHorizon", "[",
RowBox[{"h_", ",", "dec_", ",", "lat_"}], "]"}], ":=",
RowBox[{"{",
RowBox[{
RowBox[{"ArcTan", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "h", "]"}], " ",
RowBox[{"Sin", "[", "lat", "]"}]}], "-",
RowBox[{
RowBox[{"Tan", "[", "dec", "]"}], " ",
RowBox[{"Cos", "[", "lat", "]"}]}]}], ",",
RowBox[{"Sin", "[", "h", "]"}]}], "]"}], ",",
RowBox[{"ArcSin", "[",
RowBox[{
RowBox[{
RowBox[{"Sin", "[", "lat", "]"}], " ",
RowBox[{"Sin", "[", "dec", "]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "lat", "]"}], " ",
RowBox[{"Cos", "[", "dec", "]"}], " ",
RowBox[{"Cos", "[", "h", "]"}]}]}], "]"}]}], "}"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119194716185*^9}},
CellID->31087761],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"s_", ",", "l_", ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}]}], "]"}], ":=",
RowBox[{"Point", "[",
RowBox[{"LocalHorizon", "[",
RowBox[{
RowBox[{"s", "-", "x"}], ",", "y", ",", "l"}], "]"}], "]"}]}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"s_", ",", "l_", ",",
RowBox[{"Line", "[",
RowBox[{"{", "x___List", "}"}], "]"}]}], "]"}], ":=",
RowBox[{"Line", "[",
RowBox[{
RowBox[{
RowBox[{"LocalHorizon", "[",
RowBox[{
RowBox[{"s", "-", "#"}], ",", "#2", ",", "l"}], "]"}], "&"}], "@@@",
RowBox[{"{", "x", "}"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"s_", ",", "l_", ",",
RowBox[{"Polygon", "[",
RowBox[{"{", "x___List", "}"}], "]"}]}], "]"}], ":=",
RowBox[{"Polygon", "[",
RowBox[{
RowBox[{
RowBox[{"LocalHorizon", "[",
RowBox[{
RowBox[{"s", "-", "#"}], ",", "#2", ",", "l"}], "]"}], "&"}], "@@@",
RowBox[{"{", "x", "}"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"s_", ",", "l_", ",",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_"}], "]"}]}], "]"}], ":=",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"LocalHorizon", "[",
RowBox[{
RowBox[{"s", "-", "x"}], ",", "y", ",", "l"}], "]"}], ",", "r"}],
"]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"s_", ",", "l_", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_"}], "]"}]}], "]"}], ":=",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"LocalHorizon", "[",
RowBox[{
RowBox[{"s", "-", "x"}], ",", "y", ",", "l"}], "]"}], ",", "r"}],
"]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"_", ",", "_", ",", "x_"}], "]"}], ":=", "x"}],
"\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"RADToHorizonLPG", "[",
RowBox[{
"jd_", ",", "longdegrees_", ",", "latdegrees_", ",", "primitives_"}],
"]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"long", "=",
RowBox[{"longdegrees", " ", "Degree"}]}], ",",
RowBox[{"lat", "=",
RowBox[{"latdegrees", " ", "Degree"}]}], ",", "sid0"}], "}"}], ",",
RowBox[{
RowBox[{"sid0", "=",
RowBox[{
RowBox[{"JDToMeanSiderealRadians", "[", "jd", "]"}], "+", "long"}]}],
";", "\[IndentingNewLine]",
RowBox[{"MapAll", "[",
RowBox[{
RowBox[{
RowBox[{"RADLPG0", "[",
RowBox[{"sid0", ",", "lat", ",", "#"}], "]"}], "&"}], ",",
"primitives"}], "]"}]}]}], "]"}]}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119199969739*^9}},
CellID->244375970],
Cell[BoxData[
RowBox[{
RowBox[{"EclipticPrimitive", "=",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0.", ",", "0."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.1443048067321743", ",", "0.06226628412704956"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.28972010554252553", ",", "0.12323156388195372"}], "}"}],
",",
RowBox[{"{",
RowBox[{"0.4372952123921723", ",", "0.18158328140611446"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.5879493425009744", ",", "0.23599193925741163"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.7423901708726257", ",", "0.2851182448321868"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.9010216757418265", ",", "0.32763895541385457"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.0638534235319528", ",", "0.36229591352766216"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.23043556606366", ",", "0.38796836716675726"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.399851674117138", ",", "0.4037611834624364"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.5707963267948966", ",", "0.4090928042223289"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.741740979472655", ",", "0.4037611834624364"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.9111570875261334", ",", "0.38796836716675726"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.0777392300578406", ",", "0.36229591352766216"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.2405709778479665", ",", "0.32763895541385457"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.3992024827171674", ",", "0.2851182448321868"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.553643311088819", ",", "0.23599193925741163"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.704297441197621", ",", "0.18158328140611446"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.8518725480472678", ",", "0.12323156388195372"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.9972878468576187", ",", "0.06226628412704956"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.141592653589793", ",", "0."}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.9972878468576187"}], ",",
RowBox[{"-", "0.06226628412704956"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.8518725480472678"}], ",",
RowBox[{"-", "0.12323156388195372"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.704297441197621"}], ",",
RowBox[{"-", "0.18158328140611446"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.553643311088819"}], ",",
RowBox[{"-", "0.23599193925741163"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.3992024827171674"}], ",",
RowBox[{"-", "0.2851182448321868"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.2405709778479665"}], ",",
RowBox[{"-", "0.32763895541385457"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.0777392300578406"}], ",",
RowBox[{"-", "0.36229591352766216"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.9111570875261334"}], ",",
RowBox[{"-", "0.38796836716675726"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.741740979472655"}], ",",
RowBox[{"-", "0.4037611834624364"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.5707963267948966"}], ",",
RowBox[{"-", "0.4090928042223289"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.399851674117138"}], ",",
RowBox[{"-", "0.4037611834624364"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.23043556606366"}], ",",
RowBox[{"-", "0.38796836716675726"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.0638534235319528"}], ",",
RowBox[{"-", "0.36229591352766216"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.9010216757418265"}], ",",
RowBox[{"-", "0.32763895541385457"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.7423901708726257"}], ",",
RowBox[{"-", "0.2851182448321868"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.5879493425009744"}], ",",
RowBox[{"-", "0.23599193925741163"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.4372952123921723"}], ",",
RowBox[{"-", "0.18158328140611446"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.28972010554252553"}], ",",
RowBox[{"-", "0.12323156388195372"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.1443048067321743"}], ",",
RowBox[{"-", "0.06226628412704956"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "0."}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119205615964*^9}},
CellID->845360447],
Cell[BoxData[
RowBox[{
RowBox[{"MG5", "[",
RowBox[{"angle_", ",", "rot_", ",", "pos_", ",", "size_", ",",
RowBox[{"col_", ":", "White"}]}], "]"}], ":=",
RowBox[{"{",
RowBox[{
RowBox[{"GrayLevel", "[", ".75", "]"}], ",",
RowBox[{"Disk", "[",
RowBox[{"pos", ",", "size"}], "]"}], ",",
RowBox[{"Rotate", "[",
RowBox[{
RowBox[{"{",
RowBox[{"col", ",",
RowBox[{"Disk", "[",
RowBox[{"pos", ",", "size", ",",
RowBox[{"{",
RowBox[{
RowBox[{"3", " ",
RowBox[{"Pi", "/", "2"}]}], ",",
RowBox[{"5", " ",
RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"1", "/", "4"}], "\[LessEqual]", "angle", "<",
RowBox[{"3", "/", "4"}]}], ",", "col", ",",
RowBox[{"GrayLevel", "[", ".75", "]"}]}], "]"}], ",",
RowBox[{"Disk", "[",
RowBox[{"pos", ",",
RowBox[{"size", " ",
RowBox[{"{",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "Pi", " ", "angle"}], "]"}], "]"}], ",",
"1"}], "}"}]}]}], "]"}]}], "}"}], ",", "rot", ",", "pos"}],
"]"}], ",",
RowBox[{"GrayLevel", "[", ".6", "]"}], ",",
RowBox[{"Circle", "[",
RowBox[{"pos", ",", "size"}], "]"}]}], "}"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119207812702*^9}},
CellID->413871647],
Cell[BoxData[
RowBox[{
RowBox[{"CleanQ", "[", "arg_", "]"}], ":=",
RowBox[{"FreeQ", "[",
RowBox[{"arg", ",",
RowBox[{"_Missing", "|", "$Failed"}]}], "]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119209631543*^9}},
CellID->693073784],
Cell[BoxData[
RowBox[{
RowBox[{"EarthSunAngle", "[",
RowBox[{"entity_Entity", ",", "jd_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"tmp1", ",", "tmp2"}], "}"}], ",",
RowBox[{
RowBox[{"tmp2", "=",
RowBox[{"-",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"EntityValue", "[",
RowBox[{
RowBox[{"Entity", "[",
RowBox[{"\"\<Planet\>\"", ",", "\"\<Earth\>\""}], "]"}], ",",
RowBox[{"Dated", "[",
RowBox[{"\"\<HelioCoordinates\>\"", ",",
RowBox[{"FromJulianDate", "[", "jd", "]"}]}], "]"}]}], "]"}],
",", "\"\<AstronomicalUnit\>\""}], "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"tmp1", "=",
RowBox[{"tmp2", "+",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"EntityValue", "[",
RowBox[{"entity", ",",
RowBox[{"Dated", "[",
RowBox[{"\"\<HelioCoordinates\>\"", ",",
RowBox[{"FromJulianDate", "[", "jd", "]"}]}], "]"}]}], "]"}],
",", "\"\<AstronomicalUnit\>\""}], "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"entity", "===",
RowBox[{"Entity", "[",
RowBox[{"\"\<Planet\>\"", ",", "\"\<Earth\>\""}], "]"}]}], ",",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"CleanQ", "[",
RowBox[{"{",
RowBox[{"tmp1", ",", "tmp2"}], "}"}], "]"}], ",",
RowBox[{"Mod", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Pi", "+",
RowBox[{
RowBox[{"Sign", "[",
RowBox[{"Last", "[",
RowBox[{"Cross", "[",
RowBox[{"#", ",", "#2"}], "]"}], "]"}], "]"}], "*",
RowBox[{"ArcCos", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"#", ".", "#"}], "+",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"#", ".", "#"}], "&"}], "[",
RowBox[{"#", "-", "#2"}], "]"}], ")"}], "-",
RowBox[{"#2", " ", ".", " ", "#2"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", " ",
RowBox[{"Norm", "[", "#", "]"}], " ",
RowBox[{"Norm", "[",
RowBox[{"#", "-", "#2"}], "]"}]}], ")"}]}], "]"}]}]}],
"&"}], "[",
RowBox[{"tmp1", ",", "tmp2"}], "]"}], ",",
RowBox[{"2", " ", "Pi"}]}], "]"}], ",", "$Failed"}], "]"}]}],
"]"}]}]}], "]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1467425]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119214379817*^9}, {3.8191192760726624`*^9, 3.819119281757429*^9}},
CellID->604930458],
Cell[BoxData[
RowBox[{
RowBox[{"MoonTiltAngle", "[",
RowBox[{"jd_", ",",
RowBox[{"{",
RowBox[{"long_", ",", "lat_"}], "}"}]}], "]"}], ":=",
RowBox[{"Apply", "[",
RowBox[{
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"v", "=",
RowBox[{"#", "-", "#2"}]}], ",",
RowBox[{"u", "=",
RowBox[{
RowBox[{
RowBox[{"#", "/",
RowBox[{"Norm", "[", "#", "]"}]}], "&"}], "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "1"}], "}"}], "-",
RowBox[{
RowBox[{"#2", "[",
RowBox[{"[", "3", "]"}], "]"}], " ", "#2"}]}], "]"}]}], ",",
RowBox[{"r", "=",
RowBox[{
RowBox[{
RowBox[{"#", "/",
RowBox[{"Norm", "[", "#", "]"}]}], "&"}], "[",
RowBox[{"{",
RowBox[{
RowBox[{"#2", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"-",
RowBox[{"#2", "[",
RowBox[{"[", "1", "]"}], "]"}]}], ",", "0"}], "}"}], "]"}]}]}],
"}"}], ",",
RowBox[{"ArcTan", "[",
RowBox[{
RowBox[{"-",
RowBox[{"v", ".", "r"}]}], ",",
RowBox[{"v", ".", "u"}]}], "]"}]}], "]"}], "&"}], ",",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "#", "]"}], " ",
RowBox[{"Cos", "[", "#2", "]"}]}], ",",
RowBox[{
RowBox[{"Sin", "[", "#", "]"}], " ",
RowBox[{"Cos", "[", "#2", "]"}]}], ",",
RowBox[{"Sin", "[", "#2", "]"}]}], "}"}], "&"}], "@@@",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"Pi", "/", "2"}]}], ",",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "@",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"SunPosition", "[",
RowBox[{
RowBox[{"GeoPosition", "[",
RowBox[{"{",
RowBox[{
RowBox[{"lat", "/", "Degree"}], ",",
RowBox[{"long", "/", "Degree"}]}], "}"}], "]"}], ",",
RowBox[{"FromJulianDate", "[", "jd", "]"}], ",",
RowBox[{
"AltitudeMethod", "\[Rule]", "\"\<ApparentAltitude\>\""}]}],
"]"}], ",", "\"\<Radians\>\""}], "]"}]}], ",",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"Pi", "/", "2"}]}], ",",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "@",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"MoonPosition", "[",
RowBox[{
RowBox[{"GeoPosition", "[",
RowBox[{"{",
RowBox[{
RowBox[{"lat", "/", "Degree"}], ",",
RowBox[{"long", "/", "Degree"}]}], "}"}], "]"}], ",",
RowBox[{"FromJulianDate", "[", "jd", "]"}], ",",
RowBox[{
"AltitudeMethod", "\[Rule]", "\"\<ApparentAltitude\>\""}]}],
"]"}], ",", "\"\<Radians\>\""}], "]"}]}]}], "}"}]}]}],
"]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1467505]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.819119217645473*^9}},
CellID->469943170],
Cell[BoxData[
RowBox[{
RowBox[{"SkyChart", "[",
RowBox[{"flights_", ",", "location_GeoPosition", ",",
RowBox[{"time_", "?", "DateObjectQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"jd", ",",
RowBox[{"sunradius", "=", "0.05"}], ",", "sunposition", ",",
"moonposition", ",", "long", ",", "lat", ",",
RowBox[{"edgethickness", "=", ".008"}], ",",
RowBox[{"se0", "=", "flights"}]}], "}"}], ",",
RowBox[{
RowBox[{"jd", "=",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"time", ",", "_Missing"}], "]"}], ",",
RowBox[{"Return", "[",
RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], "]"}], ",",
RowBox[{"JulianDate", "[", "time", "]"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"long", "=",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"Longitude", "[", "location", "]"}], ",", "\"\<Radians\>\""}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"lat", "=",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"Latitude", "[", "location", "]"}], ",", "\"\<Radians\>\""}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"sunposition", "=",
RowBox[{"(",
RowBox[{
RowBox[{"RADToHorizonLPG", "[",
RowBox[{"jd", ",",
RowBox[{"long", "/", "Degree"}], ",",
RowBox[{"lat", "/", "Degree"}], ",",
RowBox[{"{",
RowBox[{"Point", "[",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"SunPosition", "[",
RowBox[{"time", ",",
RowBox[{
"CelestialSystem", "\[Rule]", "\"\<Equatorial\>\""}]}], "]"}],
",", "\"\<Radians\>\""}], "]"}], "]"}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ")"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"moonposition", "=",
RowBox[{"(",
RowBox[{
RowBox[{"RADToHorizonLPG", "[",
RowBox[{"jd", ",",
RowBox[{"long", "/", "Degree"}], ",",
RowBox[{"lat", "/", "Degree"}], ",",
RowBox[{"{",
RowBox[{"Point", "[",
RowBox[{"QuantityMagnitude", "[",
RowBox[{
RowBox[{"MoonPosition", "[",
RowBox[{"time", ",",
RowBox[{
"CelestialSystem", "\[Rule]", "\"\<Equatorial\>\""}]}], "]"}],
",", "\"\<Radians\>\""}], "]"}], "]"}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ")"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"se0", "=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"fr", "=",
RowBox[{"EarthGeoidFrame", "[",
RowBox[{"2451545", ",", "long", ",", "lat", ",", "0"}], "]"}]}],
"}"}], ",",
RowBox[{"Flatten", "[",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"#", "/.",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"g7", ":",
RowBox[{"(",
RowBox[{
"Point", "|", "Line", "|", "Arrow", "|", "_String"}],
")"}]}], ")"}], "[",
RowBox[{"g8_", ",", "g9___"}], "]"}], "\[RuleDelayed]",
RowBox[{"g7", "[",
RowBox[{
RowBox[{"g8", "/.",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"tlong_", "?", "NumberQ"}], ",", "tlat_", ",",
"telev_"}], "}"}], "\[RuleDelayed]",
RowBox[{"Apply", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Pi", "+",
RowBox[{"ArcTan", "[",
RowBox[{"#", ",", "#2"}], "]"}]}], ",",
RowBox[{"ArcTan", "[",
RowBox[{
RowBox[{"Norm", "[",
RowBox[{"{",
RowBox[{"#", ",", "#2"}], "}"}], "]"}], ",", "#3"}],
"]"}]}], "}"}], "&"}], ",",
RowBox[{
RowBox[{"fr", "[",
RowBox[{"[", "2", "]"}], "]"}], ".",
RowBox[{"(",
RowBox[{
RowBox[{"EarthGeoidFrame", "[",
RowBox[{"2451545", ",",
RowBox[{"tlong", "*", "Degree"}], ",",
RowBox[{"tlat", "*", "Degree"}], ",", "telev", ",", "1"}],
"]"}], "-",
RowBox[{"fr", "[",
RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], "]"}]}]}],
",", "g9"}], "]"}]}], "}"}]}], "&"}], ",", "se0"}], "]"}],
"]"}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"iSkyChart", "[",
RowBox[{"{",
RowBox[{"(*",
RowBox[{"draw", " ", "the", " ", "ecliptic"}], "*)"}],
RowBox[{"Brown", ",",
RowBox[{"Thickness", "[", ".003", "]"}], ",",
RowBox[{"RADToHorizonLPG", "[",
RowBox[{"jd", ",",
RowBox[{"long", "/", "Degree"}], ",",
RowBox[{"lat", "/", "Degree"}], ",", "EclipticPrimitive"}], "]"}],
",",
RowBox[{"(*",
RowBox[{"draw", " ", "the", " ", "Sun"}], "*)"}],
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"sunposition", "[",
RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"\"\<Sun\>\"", ",", "Gray"}], "]"}], ",",
RowBox[{"#", "+",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"4", " ", "sunradius"}]}], "}"}]}]}], "]"}], ",",
RowBox[{"RGBColor", "[",
RowBox[{"1.", ",", "0.8305", ",", "0.2606"}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"EdgeForm", "[",
RowBox[{"{",
RowBox[{
RowBox[{"RGBColor", "[",
RowBox[{"0.91855", ",", "0.4613", ",", "0.0019"}], "]"}],
",",
RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], "]"}],
",",
RowBox[{"Disk", "[",
RowBox[{"#", ",", "sunradius"}], "]"}]}], "}"}]}], "}"}],
"&"}], "[", "sunposition", "]"}]}], "]"}], ",",
RowBox[{"(*",
RowBox[{"draw", " ", "the", " ", "Moon"}], "*)"}],
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"moonposition", "[",
RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"\"\<Moon\>\"", ",", "Gray"}], "]"}], ",",
RowBox[{"#", "+",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"4", " ", "sunradius"}]}], "}"}]}]}], "]"}], ",",
RowBox[{"MG5", "[",
RowBox[{
RowBox[{
RowBox[{"EarthSunAngle", "[",
RowBox[{
RowBox[{"Entity", "[",
RowBox[{"\"\<PlanetaryMoon\>\"", ",", "\"\<Moon\>\""}],
"]"}], ",", "jd"}], "]"}], "/",
RowBox[{"(",
RowBox[{"2", " ", "Pi"}], ")"}]}], ",",
RowBox[{"MoonTiltAngle", "[",
RowBox[{"jd", ",",
RowBox[{"{",
RowBox[{"long", ",", "lat"}], "}"}]}], "]"}], ",", "#",
",", "sunradius", ",",
RowBox[{"GrayLevel", "[", ".9", "]"}]}], "]"}]}], "}"}],
"&"}], "[", "moonposition", "]"}]}], "]"}], ",", "Black", ",",
RowBox[{"{",
RowBox[{
RowBox[{"RGBColor", "[",
RowBox[{".84", ",", ".84", ",", ".84"}], "]"}], ",",
RowBox[{"Thickness", "[", "edgethickness", "]"}], ",",
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"Pi", "/", "2"}]}], "}"}], ",", "1"}], "]"}]}], "}"}],
",", "se0"}], "}"}], "]"}]}]}], "]"}]}]], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1470449]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.8191192221766863`*^9}},
CellID->365349366],
Cell[BoxData[{
RowBox[{
RowBox[{"EarthGeoidFrame", "[",
RowBox[{"jd_", ",", "long_", ",", "lat_", ",", "elevationnmeters_"}],
"]"}], ":=",
RowBox[{"Apply", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{".00004263523", " ",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "#", "]"}], " ", "#3"}], ",",
RowBox[{
RowBox[{"Sin", "[", "#", "]"}], " ", "#3"}], ",", "#2"}], "}"}]}],
",",
RowBox[{"Orthogonalize", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "#2"}], " ",
RowBox[{"Cos", "[", "#", "]"}]}], ",",
RowBox[{
RowBox[{"-", "#2"}], " ",
RowBox[{"Sin", "[", "#", "]"}]}], ",", "#3"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
RowBox[{"Sin", "[", "#", "]"}]}], ",",
RowBox[{"Cos", "[", "#", "]"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"#3", " ",
RowBox[{"Cos", "[", "#", "]"}]}], ",",
RowBox[{"#3", " ",
RowBox[{"Sin", "[", "#", "]"}]}], ",", "#2"}], "}"}]}], "}"}],
"]"}]}], "}"}], "&"}], ",",
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"JDToMeanSiderealRadians", "[", "jd", "]"}], "+", "long"}],
",",
RowBox[{"Earthsincos", "[",
RowBox[{"lat", ",", "elevationnmeters"}], "]"}]}], "}"}], "]"}]}],
"]"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{"EarthGeoidFrame", "[",
RowBox[{
"jd_", ",", "long_", ",", "lat_", ",", "elevationnmeters_", ",", "1"}],
"]"}], ":=",
RowBox[{"Apply", "[",
RowBox[{
RowBox[{
RowBox[{".00004263523", " ",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "#", "]"}], " ", "#3"}], ",",
RowBox[{
RowBox[{"Sin", "[", "#", "]"}], " ", "#3"}], ",", "#2"}], "}"}]}],
"&"}], ",",
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"JDToMeanSiderealRadians", "[", "jd", "]"}], "+", "long"}],
",",
RowBox[{"Earthsincos", "[",
RowBox[{"lat", ",", "elevationnmeters"}], "]"}]}], "}"}], "]"}]}],
"]"}]}], "\n"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Earthsincos", "[",
RowBox[{"lat_", ",", "h_"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", "=",
RowBox[{"ArcTan", "[",
RowBox[{
RowBox[{"Cos", "[", "lat", "]"}], ",",
RowBox[{".99664719",
RowBox[{"Sin", "[", "lat", "]"}]}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{".99664719", " ",
RowBox[{"Sin", "[", "a", "]"}]}], "+",
RowBox[{
RowBox[{"h", "/", "6378140"}], " ",
RowBox[{"Sin", "[", "lat", "]"}]}]}], ",",
RowBox[{
RowBox[{"Cos", "[", "a", "]"}], "+",
RowBox[{
RowBox[{"h", "/", "6378140"}], " ",
RowBox[{"Cos", "[", "lat", "]"}]}]}]}], "}"}]}], "]"}]}]}], "Input",
TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9},
3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9,
3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9,
3.8191192236158752`*^9}},
CellID->956736084]
}, Open ]],
Cell[CellGroupData[{
Cell["Documentation", "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Documentation"},
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307],
Cell[CellGroupData[{
Cell[TextData[{
"Usage",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Usage",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Document input usage cases by first typing an input structure, \
then pressing ",
Cell[
BoxData[
StyleBox[
DynamicBox[
ToBoxes[
If[$OperatingSystem === "MacOSX", "\[ReturnKey]",
"\[EnterKey]"], StandardForm], SingleEvaluation -> True,
Evaluator -> "System"], ShowStringCharacters -> False]]],
" to add a brief explanation of the function\[CloseCurlyQuote]s \
behavior for that structure. Pressing ",
Cell[
BoxData[
StyleBox[
DynamicBox[
ToBoxes[
If[$OperatingSystem === "MacOSX", "\[ReturnKey]",
"\[EnterKey]"], StandardForm], SingleEvaluation -> True,
Evaluator -> "System"], ShowStringCharacters -> False]]],
" repeatedly will create new cases as needed. Every input usage \
case defined above should be demonstrated explicitly here.\n\nSee existing \
documentation pages for examples."}], "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoUsage"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Usage"},
DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"},
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[",
StyleBox["pos", "TI"], "]"}]], "UsageInputs",
FontFamily->"Source Sans Pro",
CellID->764821153],
Cell[TextData[{
"returns the flights and sky map for the flights currently overhead at the \
location ",
Cell[BoxData[
StyleBox["pos", "TI"]], "InlineFormula",
FontFamily->"Source Sans Pro"],
"."
}], "UsageDescription",
CellID->725045553]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[",
RowBox[{
StyleBox["pos", "TI"], ",",
StyleBox["prop", "TI"]}], "]"}]], "UsageInputs",
FontFamily->"Source Sans Pro",
CellID->42960790],
Cell[TextData[{
"returns the property ",
Cell[BoxData[
StyleBox["prop", "TI"]], "InlineFormula",
FontFamily->"Source Sans Pro"],
"."
}], "UsageDescription",
CellID->197161732]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Details & Options",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Notes",
Cell[
BoxData[
FrameBox[
Cell[
"Give a detailed explanation of how the function is used and \
configured (e.g. acceptable input types, result formats, options \
specifications, background information). This section may include multiple \
cells, bullet lists, tables, hyperlinks and additional styles/structures as \
needed.\n\nAdd any other information that may be relevant, such as when the \
function was first discovered or how and why it is used within a given field. \
Include all relevant background or contextual information related to the \
function, its development, and its usage.", "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoNotes"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Notes"},
DefaultNewCellStyle->"Notes",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236],
Cell[TextData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[", "]"}]], "InlineFormula",
FontFamily->"Source Sans Pro"],
" returns the flight information for flights overhead for the current \
location as defined by ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["Here", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/Here",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro"],
"."
}], "Notes",
CellTags->"TabNext",
CellID->349543592],
Cell[TextData[{
"The argument ",
Cell[BoxData[
StyleBox["pos", "TI"]], "InlineFormula",
FontFamily->"Source Sans Pro"],
" should be a ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["GeoPosition", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/GeoPosition",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro"],
" or ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["Entity", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/Entity",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro"],
" with a position."
}], "Notes",
CellID->823009216],
Cell[TextData[{
Cell[BoxData["FlightsOverhead"], "InlineFormula",
FontFamily->"Source Sans Pro"],
" supports the following properties:"
}], "Notes",
CellID->409670135],
Cell[BoxData[GridBox[{
{Cell["\"Flights\"", "TableText"], Cell[
"list of the flights overhead", "TableText"]},
{Cell["\"SkyMap\"", "TableText"], Cell[
"visualization of flight paths of flights overhead", "TableText"]}
}]], "TableNotes",
CellID->301361063],
Cell[TextData[{
Cell[BoxData["\"\<PropertyAssociation\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
" can also be supplied to get an association of properties for the flights \
overhead."
}], "Notes",
CellID->402689756]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Examples",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Examples",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Demonstrate the function\[CloseCurlyQuote]s usage, starting with \
the most basic use case and describing each example in a preceding text cell.\
\n\nWithin a group, individual examples can be delimited by inserting page \
breaks between them (either using ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"[Right-click]\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275],
FontSize -> 14, StripOnInput -> False],
StyleBox[
"\" \[FilledRightTriangle] \"", FontFamily ->
"Source Sans Pro", FontSize -> 13.86, FontColor ->
GrayLevel[0.5], StripOnInput -> False],
StyleBox[
"\"Insert Page Break\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275],
FontSize -> 14, StripOnInput -> False]}, "RowDefault"],
ShowStringCharacters -> False]]],
" between cells or through the menu using ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14,
StripOnInput -> False],
StyleBox[
"\" \[FilledRightTriangle] \"", FontFamily ->
"Source Sans Pro", FontSize -> 13.86, FontColor ->
GrayLevel[0.5], StripOnInput -> False],
StyleBox[
"\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14,
StripOnInput -> False]}, "RowDefault"],
ShowStringCharacters -> False]]],
").\n\nExamples should be grouped into Subsection and \
Subsubsection cells similarly to existing documentation pages. Here are some \
typical Subsection names and the types of examples they normally contain:\n \
",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Basic Examples: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"most basic function usage\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontSize -> 14, StripOnInput -> False]},
"RowDefault"], ShowStringCharacters -> False]]],
"input and display conventions, standard computational attributes \
(e.g. threading over lists)\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontSize -> 14, StripOnInput -> False]},
"RowDefault"], ShowStringCharacters -> False]]],
"available options and parameters for the function\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Applications: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"standard industry or academic applications\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Properties and Relations: \"", FontFamily ->
"Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14,
StripOnInput -> False]}, "RowDefault"], ShowStringCharacters ->
False]]], "how the function relates to other functions\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Possible Issues: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"limitations or unexpected behavior a user might experience\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Neat Examples: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"particularly interesting, unconventional, or otherwise unique \
usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoExamples"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Examples"},
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011],
Cell[CellGroupData[{
Cell["Basic Examples", "Subsection",
TaggingRules->{},
CellID->904125756],
Cell["\<\
Discover the flights currently overhead at the current location:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.812288845139318*^9, 3.812288856143364*^9}, {
3.8203380780681324`*^9, 3.8203380836241026`*^9}, {3.850822009847271*^9,
3.8508220101426783`*^9}},
CellID->937779090],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[",
RowBox[{"Here", ",", "\"\<Flights\>\""}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{3.812288842653101*^9},
CellID->469096015],
Cell[BoxData[
RowBox[{"{",
RowBox[{
TemplateBox[{"\"NetJets flight 319\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000089378\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000089378\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"American Airlines flight 2274\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000119606\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000119606\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"JetBlue Airways flight 723\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000092816\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000092816\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"202101080000110713\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000110713\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000110713\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"Delta Air Lines flight 324\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000098710\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000098710\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"GoJet Airlines flight 4603\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000108680\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000108680\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"Frontier Airlines flight 2038\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000100854\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000100854\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"Frontier Airlines flight 647\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000136189\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000136189\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"Bombardier Aerospace flight 552\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000078344\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000078344\\\"]\"",
"\"flight\""},
"Entity"]}], "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.812289771352116*^9, 3.819118657911673*^9},
CellID->474714960]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[Cell["\t", "ExampleDelimiter"],
$Line = 0; Null]], "ExampleDelimiter",
TaggingRules->{},
CellID->14107562],
Cell["\<\
Obtain a sky map showing the current positions and paths of flights overhead:\
\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.812288879218226*^9, 3.812288895694291*^9}},
CellID->372405303],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[",
RowBox[{"Here", ",", "\"\<SkyMap\>\""}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.812288901029838*^9, 3.8122889029312696`*^9}},
CellID->944237020],
Cell[BoxData[
TemplateBox[{
GraphicsBox[{
RGBColor[0.6, 0.4, 0.2],
Thickness[0.003], {
LineBox[{{-0.7649170135898475, -0.2220867059664069}, \
{-0.8313461998104216, -0.11225413008311781`}, {-0.884514482087752,
0.00790643525167633}, {-0.9222251856409422,
0.13776919720003766`}, {-0.9419380627369955,
0.2763755156325892}, {-0.9414455578564849, 0.3371650361355579}}],
LineBox[{{0.9464071630357241, -0.32297597705506254`}, {
0.8838684385602327, -0.39672805127551675`}, {
0.7796434618003745, -0.4881864341435612}, {
0.6674972414212306, -0.5618038782953734}, {
0.5498802028472916, -0.6184329916249556}, {
0.42879564826890804`, -0.6589497394860495}, {
0.3059024818285322, -0.684189951230003}, {
0.1826022578959954, -0.6949157667182003}, {
0.06011144363365737, -0.6918006157783846}, {-0.06047862027905991, \
-0.6754254324869211}, {-0.17815116822386962`, -0.6462816743355391}, \
{-0.29192007697270833`, -0.6047786755427951}, {-0.4007900396018787, \
-0.5512542275568062}, {-0.5037186430182369, -0.4859883006664174}, \
{-0.5995784463488825, -0.4092206958168065}, {-0.6871174790083004, \
-0.32117430539764713`}, {-0.7649170135898475, -0.2220867059664069}}]}, {
InsetBox[
FormBox[
StyleBox["\"Sun\"",
GrayLevel[0.5], StripOnInput -> False], TraditionalForm], {
0.04144205046341833, -0.5640235294185127}],
RGBColor[1., 0.8305, 0.2606], {
EdgeForm[{
RGBColor[0.91855, 0.4613, 0.0019],
Thickness[0.002]}],
DiskBox[{0.050772122039337585`, -0.6910051782783471}, 0.05]}}, {
InsetBox[
FormBox[
StyleBox["\"Moon\"",
GrayLevel[0.5], StripOnInput -> False], TraditionalForm], {
0.7124820974452953, -0.3650691970953205}], {
GrayLevel[0.75],
DiskBox[{0.8257969450074539, -0.42313067059314696`}, 0.05], {
GrayLevel[0.9],
PolygonBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAA5NGan8OF6T/zpw2gTXDYv98ssNe2
U+k/SaxeEfTA2L+hKD+3lijpPwYXIgpFINm/VNt8FnMF6T+dkB6154vZvw9z
+nUp6+g/4KKPlTUB2r8gBmSKX9roP4csCjxLfdq/Aur2J3/T6D9MOpF7Gv3a
v97hZ6ez1ug/ONIVrH1927+GQqbU6OPoP0Py+YBL+9u/cms2bsv66D/kAYr2
anPcv67MADLLGuk/yTbP2Obi3L/aTqlqHkPpP9OApGgAR92/OAQL58Zy6T9P
iYapQJ3dvwRBiTyYqOk/6CML64fj3b8mysEsP+PpP3T0DywbGN6/+A7//0kh
6j9RzjwDrznev92Vwp8xYeo/jQYXyG9H3r/S4QQ4Y6HqP9YWNckGQd6/1/F2
Ikrg6j+EVbhunCbev6f5Pt1ZHOs/rQOYO9f43b8alGHOF1TrPzNBA7TXuN2/
xRy2YA==
"]],
GrayLevel[0.75],
PolygonBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAkpIBBbC+6T9Nkw6lzwLcv5Jyrjam
Duo/5Vj1NSHI3L+ICWv11mfqPz91ciHQYt2/mg4BOofB6j8oS6svuMPdv0nO
n4HvEus/DCj7/Vzh3b8alGHOF1TrPzNBA7TXuN2/62CUV59+6z+X/6u6H07d
vzJ6w11cjus/qwHtVqer3L+aPFx9xIHrPw4uHeNV4du/HrWySRNa6z9MJ6hG
+QLbv2zT+mgrG+s/2FUCr1Um2r9s8003NcvqP0CQGx4EYdm/dlyReARy6j/m
c54yVcbYv2RX+zNUGOo//p1lJG1l2L+1l1zs68bpPxnBFVbIR9i/5NGan8OF
6T/zpw2gTXDYvxMFaBY8W+k/julkmQXb2L/M6zgQf0vpP3vnI/19fdm/ZCmg
8BZY6T8Xu/Nwz0fav+CwSSTIf+k/2cFoDSwm27+SkgEFsL7pP02TDqXPAty/
S/OxDw==
"]]},
GrayLevel[0.6],
CircleBox[{0.8257969450074539, -0.42313067059314696`}, 0.05]}},
GrayLevel[0], {
RGBColor[0.84, 0.84, 0.84],
Thickness[0.008],
CircleBox[{0, 0}, 1]}, {
PointSize[Large],
Arrowheads[{{0.05, 1,
GraphicsBox[{
Opacity[1],
InsetBox[
FormBox[
StyleBox[
"\"\:2708\"", FontSize -> 22, FontColor -> RGBColor[1, 0, 0],
StripOnInput -> False], TraditionalForm], {0, 0}]}]}}],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{-0.9830317568688342,
0.008315865756721968}, {-0.983984859395465, 0.00989362677023096}}],
GrayLevel[0.715],
LineBox[{{-0.983984859395465,
0.00989362677023096}, {-0.9847223549130688, 0.011234251541582847`}}],
GrayLevel[0.73],
LineBox[{{-0.9847223549130688,
0.011234251541582847`}, {-0.9853202281995488, 0.01241938111648631}}],
GrayLevel[0.745],
LineBox[{{-0.9853202281995488,
0.01241938111648631}, {-0.9861290510103979, 0.013815374426615736`}}],
GrayLevel[0.76],
LineBox[{{-0.9861290510103979,
0.013815374426615736`}, {-0.986952809527829, 0.015033516863510019`}}],
GrayLevel[0.7749999999999999],
LineBox[{{-0.986952809527829,
0.015033516863510019`}, {-0.9877266018515858, 0.01627317690104443}}],
GrayLevel[0.7899999999999999],
LineBox[{{-0.9877266018515858,
0.01627317690104443}, {-0.988432269593878, 0.01748241424169457}}],
GrayLevel[0.8049999999999999],
LineBox[{{-0.988432269593878,
0.01748241424169457}, {-0.9891206495153086, 0.018495892587466343`}}],
GrayLevel[0.82],
LineBox[{{-0.9891206495153086,
0.018495892587466343`}, {-0.989702433157535, 0.01963594441067357}}],
GrayLevel[0.835],
LineBox[{{-0.989702433157535,
0.01963594441067357}, {-0.9904244471807903, 0.020685077964999545`}}],
GrayLevel[0.85],
LineBox[{{-0.9904244471807903,
0.020685077964999545`}, {-0.9910565503457667, 0.021577990028820045`}}],
GrayLevel[0.865],
LineBox[{{-0.9910565503457667,
0.021577990028820045`}, {-0.9916612155561282, 0.022438013398498224`}}],
GrayLevel[0.88],
LineBox[{{-0.9916612155561282,
0.022438013398498224`}, {-0.9923254967763998, 0.023422489518247352`}}],
GrayLevel[0.895],
LineBox[{{-0.9923254967763998,
0.023422489518247352`}, {-0.9930701004172584, 0.024579129364910864`}}],
GrayLevel[0.9099999999999999],
LineBox[{{-0.9930701004172584,
0.024579129364910864`}, {-0.9935620393800616, 0.025466227656114178`}}],
GrayLevel[0.925],
LineBox[{{-0.9935620393800616,
0.025466227656114178`}, {-0.9942216405488137, 0.02629321848716648}}],
GrayLevel[0.94],
LineBox[{{-0.9942216405488137,
0.02629321848716648}, {-0.9947734809204316, 0.02711374527607375}}],
GrayLevel[0.955],
LineBox[{{-0.9947734809204316,
0.02711374527607375}, {-0.9952614697545891, 0.027928781905533294`}}],
GrayLevel[0.97],
LineBox[{{-0.9952614697545891,
0.027928781905533294`}, {-0.9959080731433225, 0.028685458855279858`}}],
GrayLevel[0.985],
LineBox[{{-0.9959080731433225,
0.028685458855279858`}, {-0.996346387875531, 0.029486436878177737`}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.983984859395465,
0.00989362677023096}, {-0.9830317568688342,
0.008315865756721968}}]},
TemplateBox[{"\"NetJets flight 319\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000089378\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000089378\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000089378"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{-0.9615116997722074,
0.18374794904197025`}, {-0.9638439347151142, 0.17714124572697051`}}],
GrayLevel[0.715],
LineBox[{{-0.9638439347151142,
0.17714124572697051`}, {-0.9661042177069071, 0.1706384557212983}}],
GrayLevel[0.73],
LineBox[{{-0.9661042177069071,
0.1706384557212983}, {-0.9682072381376178, 0.1645093354212026}}],
GrayLevel[0.745],
LineBox[{{-0.9682072381376178,
0.1645093354212026}, {-0.9700979602584999, 0.15893203200161526`}}],
GrayLevel[0.76],
LineBox[{{-0.9700979602584999,
0.15893203200161526`}, {-0.9718849805829212, 0.15360803169519346`}}],
GrayLevel[0.7749999999999999],
LineBox[{{-0.9718849805829212,
0.15360803169519346`}, {-0.9737442100105433, 0.1479305861545992}}],
GrayLevel[0.7899999999999999],
LineBox[{{-0.9737442100105433,
0.1479305861545992}, {-0.9752769906965314, 0.14322990921089288`}}],
GrayLevel[0.8049999999999999],
LineBox[{{-0.9752769906965314,
0.14322990921089288`}, {-0.9769114298300943, 0.13814556086458454`}}],
GrayLevel[0.82],
LineBox[{{-0.9769114298300943,
0.13814556086458454`}, {-0.978617514206516, 0.13280511456401287`}}],
GrayLevel[0.835],
LineBox[{{-0.978617514206516,
0.13280511456401287`}, {-0.9802221531037009, 0.12775284372947546`}}],
GrayLevel[0.85],
LineBox[{{-0.9802221531037009,
0.12775284372947546`}, {-0.9811050063098972, 0.12496964581534267`}}],
GrayLevel[0.865],
LineBox[{{-0.9811050063098972,
0.12496964581534267`}, {-0.9824256468771142, 0.12083981197666609`}}],
GrayLevel[0.88],
LineBox[{{-0.9824256468771142,
0.12083981197666609`}, {-0.9836714113560511, 0.11691003720098732`}}],
GrayLevel[0.895],
LineBox[{{-0.9836714113560511,
0.11691003720098732`}, {-0.9848444960556625, 0.11317119238298395`}}],
GrayLevel[0.9099999999999999],
LineBox[{{-0.9848444960556625,
0.11317119238298395`}, {-0.9860199815468015, 0.10941398272121997`}}],
GrayLevel[0.925],
LineBox[{{-0.9860199815468015,
0.10941398272121997`}, {-0.9873551791805794, 0.10497018999894356`}}],
GrayLevel[0.94],
LineBox[{{-0.9873551791805794,
0.10497018999894356`}, {-0.9882041248841731, 0.10207129028524328`}}],
GrayLevel[0.955],
LineBox[{{-0.9882041248841731,
0.10207129028524328`}, {-0.9895073299417543, 0.0978127603099891}}],
GrayLevel[0.97],
LineBox[{{-0.9895073299417543,
0.0978127603099891}, {-0.9902763181785553, 0.09529551919905595}}],
GrayLevel[0.985],
LineBox[{{-0.9902763181785553,
0.09529551919905595}, {-0.9910518172734454, 0.09276046989746675}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.9638439347151142,
0.17714124572697051`}, {-0.9615116997722074,
0.18374794904197025`}}]},
TemplateBox[{"\"JetBlue Airways flight 723\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000092816\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000092816\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000092816"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.7918149508978292, -0.5647730102512205}, {
0.7940728497877152, -0.5641969755624017}}],
GrayLevel[0.715],
LineBox[{{0.7940728497877152, -0.5641969755624017}, {
0.7959079930887957, -0.5638349562906609}}],
GrayLevel[0.73],
LineBox[{{0.7959079930887957, -0.5638349562906609}, {
0.7971076996015283, -0.5637734072965243}}],
GrayLevel[0.745],
LineBox[{{0.7971076996015283, -0.5637734072965243}, {
0.799047197137471, -0.5631953448008814}}],
GrayLevel[0.76],
LineBox[{{0.799047197137471, -0.5631953448008814}, {
0.8006392111560083, -0.5631921805566369}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.8006392111560083, -0.5631921805566369}, {
0.8017834778087035, -0.5631302949016659}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.8017834778087035, -0.5631302949016659}, {
0.8026322057728958, -0.5634862614408301}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.8026322057728958, -0.5634862614408301}, {
0.8026405336092112, -0.5651263937666904}}],
GrayLevel[0.82],
LineBox[{{0.8026405336092112, -0.5651263937666904}, {
0.8026652474977687, -0.5666892614345949}}],
GrayLevel[0.835],
LineBox[{{0.8026652474977687, -0.5666892614345949}, {
0.8022214392831597, -0.5686579347188089}}],
GrayLevel[0.85],
LineBox[{{0.8022214392831597, -0.5686579347188089}, {
0.8022681712876194, -0.5703942433944418}}],
GrayLevel[0.865],
LineBox[{{0.8022681712876194, -0.5703942433944418}, {
0.8020592774204274, -0.571878138756919}}],
GrayLevel[0.88],
LineBox[{{0.8020592774204274, -0.571878138756919}, {
0.8019466736110511, -0.5735738636263017}}],
GrayLevel[0.895],
LineBox[{{0.8019466736110511, -0.5735738636263017}, {
0.8019074409748368, -0.5752318569107009}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.8019074409748368, -0.5752318569107009}, {
0.8017855870401899, -0.5767610000004699}}],
GrayLevel[0.925],
LineBox[{{0.8017855870401899, -0.5767610000004699}, {
0.8016744674949545, -0.5782223482348766}}],
GrayLevel[0.94],
LineBox[{{0.8016744674949545, -0.5782223482348766}, {
0.8015706697268888, -0.5796308986441461}}],
GrayLevel[0.955],
LineBox[{{0.8015706697268888, -0.5796308986441461}, {
0.8014725465955016, -0.5809907870580399}}],
GrayLevel[0.97],
LineBox[{{0.8014725465955016, -0.5809907870580399}, {
0.8013884686228624, -0.5823023659662703}}],
GrayLevel[0.985],
LineBox[{{0.8013884686228624, -0.5823023659662703}, {
0.8012416220170774, -0.5836712791125508}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.7940728497877152, -0.5641969755624017}, {
0.7918149508978292, -0.5647730102512205}}]},
TemplateBox[{"\"202101080000110713\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000110713\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000110713\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000110713"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{-0.6528640572418262, -0.6524013609730759}, \
{-0.6647381455387322, -0.6476378750988433}}],
GrayLevel[0.715],
LineBox[{{-0.6647381455387322, -0.6476378750988433}, \
{-0.6756578818249679, -0.6429402706750914}}],
GrayLevel[0.73],
LineBox[{{-0.6756578818249679, -0.6429402706750914}, \
{-0.684308141301959, -0.6390535063728646}}],
GrayLevel[0.745],
LineBox[{{-0.684308141301959, -0.6390535063728646}, \
{-0.6912964894062034, -0.6358644172824734}}],
GrayLevel[0.76],
LineBox[{{-0.6912964894062034, -0.6358644172824734}, \
{-0.7008139109392733, -0.6316645090458064}}],
GrayLevel[0.7749999999999999],
LineBox[{{-0.7008139109392733, -0.6316645090458064}, \
{-0.7089327161891389, -0.6279888138623487}}],
GrayLevel[0.7899999999999999],
LineBox[{{-0.7089327161891389, -0.6279888138623487}, \
{-0.7132614999115227, -0.6262746083557972}}],
GrayLevel[0.8049999999999999],
LineBox[{{-0.7132614999115227, -0.6262746083557972}, \
{-0.7203446954704582, -0.6228962630187851}}],
GrayLevel[0.82],
LineBox[{{-0.7203446954704582, -0.6228962630187851}, \
{-0.7257868146886943, -0.620263361152084}}],
GrayLevel[0.835],
LineBox[{{-0.7257868146886943, -0.620263361152084}, \
{-0.7300187679871776, -0.6183134348390359}}],
GrayLevel[0.85],
LineBox[{{-0.7300187679871776, -0.6183134348390359}, \
{-0.7362895634427274, -0.6152953400044845}}],
GrayLevel[0.865],
LineBox[{{-0.7362895634427274, -0.6152953400044845}, \
{-0.7387683499679356, -0.614235006281102}}],
GrayLevel[0.88],
LineBox[{{-0.7387683499679356, -0.614235006281102}, \
{-0.7439396457089057, -0.6116979940079351}}],
GrayLevel[0.895],
LineBox[{{-0.7439396457089057, -0.6116979940079351}, \
{-0.7476786951376986, -0.6098424918175268}}],
GrayLevel[0.9099999999999999],
LineBox[{{-0.7476786951376986, -0.6098424918175268}, \
{-0.7508580373841804, -0.6082809331257856}}],
GrayLevel[0.925],
LineBox[{{-0.7508580373841804, -0.6082809331257856}, \
{-0.7551705873311424, -0.6057627070000906}}],
GrayLevel[0.94],
LineBox[{{-0.7551705873311424, -0.6057627070000906}, \
{-0.7569098516727025, -0.6056880420476919}}],
GrayLevel[0.955],
LineBox[{{-0.7569098516727025, -0.6056880420476919}, \
{-0.7584666350463798, -0.6063682683871172}}],
GrayLevel[0.97],
LineBox[{{-0.7584666350463798, -0.6063682683871172}, \
{-0.7595666446935205, -0.6070001214555931}}],
GrayLevel[0.985],
LineBox[{{-0.7595666446935205, -0.6070001214555931}, \
{-0.7605274814062944, -0.6079381267065838}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.6647381455387322, -0.6476378750988433}, \
{-0.6528640572418262, -0.6524013609730759}}]},
TemplateBox[{"\"American Airlines flight 2274\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000119606\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000119606\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000119606"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.9934403993354802, -0.07826841149362669}, {
0.9939349179620092, -0.08079473807811827}}],
GrayLevel[0.715],
LineBox[{{0.9939349179620092, -0.08079473807811827}, {
0.9943410079519426, -0.082473376325894}}],
GrayLevel[0.73],
LineBox[{{0.9943410079519426, -0.082473376325894}, {
0.9948034922882618, -0.08479064818473923}}],
GrayLevel[0.745],
LineBox[{{0.9948034922882618, -0.08479064818473923}, {
0.9952374293911685, -0.08696489363598285}}],
GrayLevel[0.76],
LineBox[{{0.9952374293911685, -0.08696489363598285}, {
0.9955978156001776, -0.08861994678391848}}],
GrayLevel[0.7749999999999999], {
LineBox[{{0.9955978156001776, -0.08861994678391848}, {
0.99593355318411, -0.09009082995551547}}]},
GrayLevel[0.7899999999999999], {},
GrayLevel[0.8049999999999999], {},
GrayLevel[0.82], {},
GrayLevel[0.835], {},
GrayLevel[0.85], {},
GrayLevel[0.865], {},
GrayLevel[0.88], {},
GrayLevel[0.895], {},
GrayLevel[0.9099999999999999], {},
GrayLevel[0.925], {},
GrayLevel[0.94], {},
GrayLevel[0.955], {},
GrayLevel[0.97], {},
GrayLevel[0.985], {},
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.9939349179620092, -0.08079473807811827}, {
0.9934403993354802, -0.07826841149362669}}]},
TemplateBox[{"\"Delta Air Lines flight 324\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000098710\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000098710\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000098710"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.8042742936079625, -0.5705224894101907}, {
0.797830062747297, -0.5804435119071173}}],
GrayLevel[0.715],
LineBox[{{0.797830062747297, -0.5804435119071173}, {
0.791529184469902, -0.5899038548235992}}],
GrayLevel[0.73],
LineBox[{{0.791529184469902, -0.5899038548235992}, {
0.7853542817452553, -0.5988197707173081}}],
GrayLevel[0.745],
LineBox[{{0.7853542817452553, -0.5988197707173081}, {
0.7792889320984576, -0.6073981141900419}}],
GrayLevel[0.76],
LineBox[{{0.7792889320984576, -0.6073981141900419}, {
0.7726010169924988, -0.6167682178687094}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.7726010169924988, -0.6167682178687094}, {
0.7656898749133269, -0.6262805075803637}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.7656898749133269, -0.6262805075803637}, {
0.7589305743833542, -0.6353772626749377}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.7589305743833542, -0.6353772626749377}, {
0.7523765453626663, -0.6440041426450078}}],
GrayLevel[0.82],
LineBox[{{0.7523765453626663, -0.6440041426450078}, {
0.745943629518335, -0.6523039242371106}}],
GrayLevel[0.835],
LineBox[{{0.745943629518335, -0.6523039242371106}, {
0.738849485672983, -0.6611458547107207}}],
GrayLevel[0.85],
LineBox[{{0.738849485672983, -0.6611458547107207}, {
0.731681502585262, -0.6698651108987207}}],
GrayLevel[0.865],
LineBox[{{0.731681502585262, -0.6698651108987207}, {
0.7235887059635566, -0.6792740967574551}}],
GrayLevel[0.88],
LineBox[{{0.7235887059635566, -0.6792740967574551}, {
0.713694377868464, -0.6901494335846058}}],
GrayLevel[0.895],
LineBox[{{0.713694377868464, -0.6901494335846058}, {
0.7038400650009639, -0.7006825106948591}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.7038400650009639, -0.7006825106948591}, {
0.6918917185804266, -0.7130194084571085}}],
GrayLevel[0.925],
LineBox[{{0.6918917185804266, -0.7130194084571085}, {
0.6798201493856824, -0.7250785002547308}}],
GrayLevel[0.94],
LineBox[{{0.6798201493856824, -0.7250785002547308}, {
0.6686947001914234, -0.7358533185107179}}],
GrayLevel[0.955],
LineBox[{{0.6686947001914234, -0.7358533185107179}, {
0.6585814017480958, -0.745378177921703}}],
GrayLevel[0.97],
LineBox[{{0.6585814017480958, -0.745378177921703}, {
0.6485593881090526, -0.7545726664851482}}],
GrayLevel[0.985],
LineBox[{{0.6485593881090526, -0.7545726664851482}, {
0.6390668443783559, -0.7630634411142413}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.797830062747297, -0.5804435119071173}, {
0.8042742936079625, -0.5705224894101907}}]},
TemplateBox[{"\"GoJet Airlines flight 4603\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000108680\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000108680\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000108680"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.965404534543337, -0.16870874702773117`}, {
0.9667911214069143, -0.1669310366986546}}],
GrayLevel[0.715],
LineBox[{{0.9667911214069143, -0.1669310366986546}, {
0.9683122813206648, -0.16513593724704023`}}],
GrayLevel[0.73],
LineBox[{{0.9683122813206648, -0.16513593724704023`}, {
0.9697683187449322, -0.16341506486869903`}}],
GrayLevel[0.745],
LineBox[{{0.9697683187449322, -0.16341506486869903`}, {
0.9710267679510874, -0.16195766513297383`}}],
GrayLevel[0.76],
LineBox[{{0.9710267679510874, -0.16195766513297383`}, {
0.9721653200616083, -0.16065710513410492`}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.9721653200616083, -0.16065710513410492`}, {
0.9732671551327874, -0.1593971006877202}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.9732671551327874, -0.1593971006877202}, {
0.9743346948052667, -0.15817510238060126`}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.9743346948052667, -0.15817510238060126`}, {
0.9753701523008771, -0.15698876858506536`}}],
GrayLevel[0.82],
LineBox[{{0.9753701523008771, -0.15698876858506536`}, {
0.9763749810649156, -0.1558020763183471}}],
GrayLevel[0.835],
LineBox[{{0.9763749810649156, -0.1558020763183471}, {
0.9773514749349608, -0.1546375668755422}}],
GrayLevel[0.85],
LineBox[{{0.9773514749349608, -0.1546375668755422}, {
0.9782962812032635, -0.1535185958904739}}],
GrayLevel[0.865],
LineBox[{{0.9782962812032635, -0.1535185958904739}, {
0.9792056256304049, -0.15245836293659923`}}],
GrayLevel[0.88],
LineBox[{{0.9792056256304049, -0.15245836293659923`}, {
0.9800923072798953, -0.15142416034354175`}}],
GrayLevel[0.895],
LineBox[{{0.9800923072798953, -0.15142416034354175`}, {
0.9809521124869804, -0.15050461482710484`}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.9809521124869804, -0.15050461482710484`}, {
0.9817912649499143, -0.14961744046375458`}}],
GrayLevel[0.925],
LineBox[{{0.9817912649499143, -0.14961744046375458`}, {
0.9826084547298997, -0.14875791725782458`}}],
GrayLevel[0.94],
LineBox[{{0.9826084547298997, -0.14875791725782458`}, {
0.9834040501057499, -0.1479269607709803}}],
GrayLevel[0.955],
LineBox[{{0.9834040501057499, -0.1479269607709803}, {
0.9841830755517202, -0.14711226370154482`}}],
GrayLevel[0.97],
LineBox[{{0.9841830755517202, -0.14711226370154482`}, {
0.9849272005071038, -0.14644651313461607`}}],
GrayLevel[0.985],
LineBox[{{0.9849272005071038, -0.14644651313461607`}, {
0.9856572245437006, -0.14579117682799436`}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.9667911214069143, -0.1669310366986546}, {
0.965404534543337, -0.16870874702773117`}}]},
TemplateBox[{"\"Frontier Airlines flight 2038\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000100854\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000100854\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000100854"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7], {},
GrayLevel[0.715], {},
GrayLevel[0.73], {},
GrayLevel[0.745], {},
GrayLevel[0.76], {},
GrayLevel[0.7749999999999999], {},
GrayLevel[0.7899999999999999], {},
GrayLevel[0.8049999999999999], {},
GrayLevel[0.82], {},
GrayLevel[0.835], {},
GrayLevel[0.85], {},
GrayLevel[0.865], {},
GrayLevel[0.88], {},
GrayLevel[0.895], {},
GrayLevel[0.9099999999999999], {},
GrayLevel[0.925], {},
GrayLevel[0.94], {},
GrayLevel[0.955], {},
GrayLevel[0.97], {},
GrayLevel[0.985], {},
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.9558451402516102, -0.34272246049396904`}, \
{-0.953915722984922, -0.3458084898298888}}]},
TemplateBox[{"\"Frontier Airlines flight 647\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000136189\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000136189\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000136189"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.9520493052671741, 0.30015244955735804`}, {
0.9539589407085695, 0.2960538918188427}}],
GrayLevel[0.715],
LineBox[{{0.9539589407085695, 0.2960538918188427}, {0.9559499405122347,
0.29180714405628905`}}],
GrayLevel[0.73],
LineBox[{{0.9559499405122347, 0.29180714405628905`}, {
0.9574280146298928, 0.2886315343756861}}],
GrayLevel[0.745], {
LineBox[{{0.9574280146298928, 0.2886315343756861}, {0.9574636439108246,
0.2885539301222661}}]},
GrayLevel[0.76], {},
GrayLevel[0.7749999999999999], {},
GrayLevel[0.7899999999999999], {},
GrayLevel[0.8049999999999999], {},
GrayLevel[0.82], {},
GrayLevel[0.835], {},
GrayLevel[0.85], {},
GrayLevel[0.865], {},
GrayLevel[0.88], {},
GrayLevel[0.895], {},
GrayLevel[0.9099999999999999], {},
GrayLevel[0.925], {},
GrayLevel[0.94], {},
GrayLevel[0.955], {},
GrayLevel[0.97], {},
GrayLevel[0.985], {},
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.9539589407085695, 0.2960538918188427}, {
0.9520493052671741, 0.30015244955735804`}}]},
TemplateBox[{"\"Bombardier Aerospace flight 552\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000078344\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000078344\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000078344"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.37091295376190725`, 0.8942612754202101}, {
0.3769333871706467, 0.893204975026038}}],
GrayLevel[0.715],
LineBox[{{0.3769333871706467, 0.893204975026038}, {0.3840906026123786,
0.892125607434867}}],
GrayLevel[0.73],
LineBox[{{0.3840906026123786, 0.892125607434867}, {0.3891565036023018,
0.8913635158985953}}],
GrayLevel[0.745],
LineBox[{{0.3891565036023018, 0.8913635158985953}, {0.3950933998063699,
0.8904426136542968}}],
GrayLevel[0.76],
LineBox[{{0.3950933998063699, 0.8904426136542968}, {
0.40091401503887397`, 0.8895286255634144}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.40091401503887397`, 0.8895286255634144}, {
0.4067977532074534, 0.8884412035125167}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.4067977532074534, 0.8884412035125167}, {
0.41113707719045517`, 0.8877476792157447}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.41113707719045517`, 0.8877476792157447}, {0.415281689427243,
0.8870908277466724}}],
GrayLevel[0.82],
LineBox[{{0.415281689427243, 0.8870908277466724}, {0.419284118352308,
0.8864691998271106}}],
GrayLevel[0.835],
LineBox[{{0.419284118352308, 0.8864691998271106}, {0.4230705309941937,
0.8858852487479405}}],
GrayLevel[0.85],
LineBox[{{0.4230705309941937, 0.8858852487479405}, {
0.42751571523502496`, 0.8849720252654923}}],
GrayLevel[0.865],
LineBox[{{0.42751571523502496`, 0.8849720252654923}, {
0.43084539181599935`, 0.8844546075360892}}],
GrayLevel[0.88],
LineBox[{{0.43084539181599935`, 0.8844546075360892}, {
0.4341534199914185, 0.883911339093024}}],
GrayLevel[0.895],
LineBox[{{0.4341534199914185, 0.883911339093024}, {0.4374754866924998,
0.8833291557013278}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.4374754866924998, 0.8833291557013278}, {
0.44073419598291935`, 0.8827604749071198}}],
GrayLevel[0.925],
LineBox[{{0.44073419598291935`, 0.8827604749071198}, {
0.4444232826765714, 0.8820978952590075}}],
GrayLevel[0.94],
LineBox[{{0.4444232826765714, 0.8820978952590075}, {
0.44718275292529647`, 0.8816386120180484}}],
GrayLevel[0.955],
LineBox[{{0.44718275292529647`, 0.8816386120180484}, {
0.4498521212359563, 0.8811941989136336}}],
GrayLevel[0.97],
LineBox[{{0.4498521212359563, 0.8811941989136336}, {0.452503819847834,
0.8807355201193819}}],
GrayLevel[0.985],
LineBox[{{0.452503819847834, 0.8807355201193819}, {0.4550407601383875,
0.8803051532013801}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.3769333871706467, 0.893204975026038}, {
0.37091295376190725`, 0.8942612754202101}}]},
TemplateBox[{"\"SkyWest Airlines flight 4033\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000141548\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000141548\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000141548"], "Tooltip"]& ]}},
Background -> None, PlotRange -> {{-1, 1}, {-1, 1}}, PlotRangePadding ->
0.03],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"S\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["S"]]],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"E\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["E"]]],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"N\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["N"]]],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"W\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["W"]]]},
"Labeled",
DisplayFunction->(GridBox[{{"",
ItemBox[#4, DefaultBaseStyle -> "LabeledLabel"], ""}, {
ItemBox[#3, DefaultBaseStyle -> "LabeledLabel"],
TagBox[
ItemBox[
PaneBox[
TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
BaselinePosition -> Baseline, ImageMargins -> 5], DefaultBaseStyle ->
"Labeled"], "SkipImageSizeLevel"],
ItemBox[#5, DefaultBaseStyle -> "LabeledLabel"]}, {"",
ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"], ""}},
GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
AutoDelete -> False,
GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {2, 2}]& ),
InterpretationFunction->(RowBox[{"Labeled", "[",
RowBox[{#, ",",
RowBox[{"{",
RowBox[{#2, ",", #3, ",", #4, ",", #5}], "}"}], ",", "All", ",",
RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]& )]], "Output",
TaggingRules->{},
CellChangeTimes->{3.812288906787575*^9, 3.8122889404797497`*^9,
3.8122897737250137`*^9, 3.819118669355925*^9},
CellID->387957271]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Scope", "Subsection",
TaggingRules->{},
CellID->204653245],
Cell[TextData[{
Cell[BoxData["FlightsOverhead"], "InlineFormula",
FontFamily->"Source Sans Pro"],
" has two properties:"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[1353985]},
CellChangeTimes->{{3.812288823597578*^9, 3.812288830959038*^9},
3.819118805016245*^9},
CellID->89314876],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[", "\"\<Properties\>\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{3.812288814395587*^9},
CellID->7276340],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\<\"Flights\"\>", ",", "\<\"SkyMap\"\>"}], "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.812288815086289*^9, 3.8122897738390903`*^9,
3.819118720407785*^9},
CellID->946850890]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[Cell["\t", "ExampleDelimiter"],
$Line = 0; Null]], "ExampleDelimiter",
TaggingRules->{},
CellID->14107563],
Cell[TextData[{
"Get an ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["Association", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/Association",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro"],
" of properties for flights over JFK airport:"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[225073]},
CellChangeTimes->{{3.812289609192232*^9, 3.8122896332700663`*^9},
3.81228994669527*^9},
CellID->419067492],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FlightsOverhead", "[",
TemplateBox[{"\"John F. Kennedy International Airport\"",
RowBox[{"Entity", "[",
RowBox[{"\"Airport\"", ",", "\"KJFK\""}], "]"}],
"\"Entity[\\\"Airport\\\", \\\"KJFK\\\"]\"", "\"airport\""},
"Entity"], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8122896410686617`*^9, 3.8122896739696903`*^9}, {
3.8122897824341*^9, 3.812289784580381*^9}},
CellID->180187369],
Cell[BoxData[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{"\<\"Flights\"\>", "\[Rule]",
RowBox[{"{",
RowBox[{
TemplateBox[{"\"PSA Airlines flight 5513\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000132763\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000132763\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"American Airlines flight 2387\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000130577\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000130577\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"Corporate Flight Management flight 154\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000116380\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000116380\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"202101080000066674\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000066674\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000066674\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"202101080000107002\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000107002\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000107002\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"CommutAir flight 4825\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000109141\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000109141\\\"]\"",
"\"flight\""},
"Entity"], ",",
TemplateBox[{"\"Southwest Airlines flight 6003\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000089107\""}], "]"}],
"\"Entity[\\\"FlightNumber\\\", \\\"202101080000089107\\\"]\"",
"\"flight\""},
"Entity"]}], "}"}]}], ",",
RowBox[{"\<\"SkyMap\"\>", "\[Rule]",
TemplateBox[{
GraphicsBox[{
RGBColor[0.6, 0.4, 0.2],
Thickness[0.003], {
LineBox[{{-0.6044336834817061, -0.31852641149263455`}, \
{-0.6823504284913076, -0.22642281781299578`}, {-0.750604165979464, \
-0.12497999772071798`}, {-0.8077734063656732, -0.01446375642243362}, \
{-0.8521742629786632, 0.10477455710621872`}, {-0.8818047130394804,
0.23222101461592407`}, {-0.8942891263581013,
0.36708712880735084`}, {-0.8895455853474291, 0.4568464201336152}}],
LineBox[{{0.8954488655393009, -0.4451643844742962}, {
0.8484828330291302, -0.4861728759026299}, {
0.7336087594379604, -0.5599285165997686}, {
0.6140665553047239, -0.6151717731250679}, {
0.49200688053355696`, -0.6533708950373281}, {
0.3691089697380114, -0.6758643447896954}, {
0.24671009234430882`, -0.6838329765529594}, {
0.12590579094078364`, -0.6782960721767974}, {
0.0076271876030937005`, -0.6601194807620119}, {-0.1072986885246337, \
-0.630029283698265}, {-0.21810052917107295`, -0.5886275479556907}, \
{-0.32402227051556276`, -0.53640861658521}, {-0.42428724961149505`, \
-0.4737755492686544}, {-0.5180643222469016, -0.40105711720774734`}, \
{-0.6044336834817061, -0.31852641149263455`}}]}, {
InsetBox[
FormBox[
StyleBox["\"Sun\"",
GrayLevel[0.5], StripOnInput -> False], TraditionalForm], {
0.19560801343933598`, -0.5635881754872529}],
RGBColor[1., 0.8305, 0.2606], {
EdgeForm[{
RGBColor[0.91855, 0.4613, 0.0019],
Thickness[0.002]}],
DiskBox[{0.23735607842189183`, -0.6838732055325014}, 0.05]}}, {},
GrayLevel[0], {
RGBColor[0.84, 0.84, 0.84],
Thickness[0.008],
CircleBox[{0, 0}, 1]}, {
PointSize[Large],
Arrowheads[{{0.05, 1,
GraphicsBox[{
Opacity[1],
InsetBox[
FormBox[
StyleBox[
"\"\:2708\"", FontSize -> 22, FontColor -> RGBColor[1, 0, 0],
StripOnInput -> False], TraditionalForm], {0, 0}]}]}}],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.12198316262693532`, 0.9461968677858349}, {
0.10445812356183469`, 0.9506964249116481}}],
GrayLevel[0.715],
LineBox[{{0.10445812356183469`, 0.9506964249116481}, {
0.08918923326316291, 0.9543747304149963}}],
GrayLevel[0.73],
LineBox[{{0.08918923326316291, 0.9543747304149963}, {
0.07662368724143559, 0.9572461969232303}}],
GrayLevel[0.745],
LineBox[{{0.07662368724143559, 0.9572461969232303}, {
0.062299883284997574`, 0.9603329723477704}}],
GrayLevel[0.76],
LineBox[{{0.062299883284997574`, 0.9603329723477704}, {
0.05013974707372424, 0.9628216699305886}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.05013974707372424, 0.9628216699305886}, {
0.03980557614151921, 0.9648341794183125}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.03980557614151921, 0.9648341794183125}, {
0.02674038567701351, 0.9671467068213669}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.02674038567701351, 0.9671467068213669}, {
0.01746521064423924, 0.9687519334913187}}],
GrayLevel[0.82],
LineBox[{{0.01746521064423924, 0.9687519334913187}, {
0.0063036545028471915`, 0.9705834047978414}}],
GrayLevel[0.835],
LineBox[{{0.0063036545028471915`,
0.9705834047978414}, {-0.0019296266204575415`,
0.9718979486983124}}],
GrayLevel[0.85],
LineBox[{{-0.0019296266204575415`,
0.9718979486983124}, {-0.009748067080400253, 0.9730956639399743}}],
GrayLevel[0.865],
LineBox[{{-0.009748067080400253,
0.9730956639399743}, {-0.01108979473140853, 0.974588156318954}}],
GrayLevel[0.88],
LineBox[{{-0.01108979473140853,
0.974588156318954}, {-0.009609548075638113, 0.9758205769216636}}],
GrayLevel[0.895],
LineBox[{{-0.009609548075638113,
0.9758205769216636}, {-0.0066196255552361735`,
0.9772012889301989}}],
GrayLevel[0.9099999999999999],
LineBox[{{-0.0066196255552361735`,
0.9772012889301989}, {-0.0035724778918630818`,
0.9783303978304023}}],
GrayLevel[0.925],
LineBox[{{-0.0035724778918630818`,
0.9783303978304023}, {-0.00043880122558025803`,
0.9794971182733424}}],
GrayLevel[0.94],
LineBox[{{-0.00043880122558025803`, 0.9794971182733424}, {
0.0027389334095468142`, 0.9809195800554066}}],
GrayLevel[0.955],
LineBox[{{0.0027389334095468142`, 0.9809195800554066}, {
0.005534718936930105, 0.9822464274944738}}],
GrayLevel[0.97],
LineBox[{{0.005534718936930105, 0.9822464274944738}, {
0.007154115012144473, 0.983552478076507}}],
GrayLevel[0.985],
LineBox[{{0.007154115012144473, 0.983552478076507}, {
0.00837649285787918, 0.9848198314455142}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.10445812356183469`, 0.9506964249116481}, {
0.12198316262693532`, 0.9461968677858349}}]},
TemplateBox[{"\"PSA Airlines flight 5513\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000132763\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000132763\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000132763"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{-0.6255356659798545,
0.7563329164109285}, {-0.6312384433108216, 0.7533853455575679}}],
GrayLevel[0.715],
LineBox[{{-0.6312384433108216,
0.7533853455575679}, {-0.6366659248678894, 0.7505517224614727}}],
GrayLevel[0.73],
LineBox[{{-0.6366659248678894,
0.7505517224614727}, {-0.6427178678847286, 0.7474753595147309}}],
GrayLevel[0.745],
LineBox[{{-0.6427178678847286,
0.7474753595147309}, {-0.6477445829218761, 0.744918588090168}}],
GrayLevel[0.76],
LineBox[{{-0.6477445829218761,
0.744918588090168}, {-0.6541730976677131, 0.7417017835248024}}],
GrayLevel[0.7749999999999999],
LineBox[{{-0.6541730976677131,
0.7417017835248024}, {-0.6589903143637498, 0.7393811688197385}}],
GrayLevel[0.7899999999999999],
LineBox[{{-0.6589903143637498,
0.7393811688197385}, {-0.663597909467423, 0.7371460025334275}}],
GrayLevel[0.8049999999999999],
LineBox[{{-0.663597909467423,
0.7371460025334275}, {-0.6681832551675692, 0.7348715718738295}}],
GrayLevel[0.82],
LineBox[{{-0.6681832551675692,
0.7348715718738295}, {-0.6726023101041841, 0.7326598428535314}}],
GrayLevel[0.835],
LineBox[{{-0.6726023101041841,
0.7326598428535314}, {-0.6774334577918325, 0.7299916724207511}}],
GrayLevel[0.85],
LineBox[{{-0.6774334577918325,
0.7299916724207511}, {-0.6825262910224965, 0.7269956226604264}}],
GrayLevel[0.865],
LineBox[{{-0.6825262910224965,
0.7269956226604264}, {-0.6877559995435276, 0.7237571218911792}}],
GrayLevel[0.88],
LineBox[{{-0.6877559995435276,
0.7237571218911792}, {-0.6945848917091301, 0.7188195712367567}}],
GrayLevel[0.895], {
LineBox[{{-0.6945848917091301,
0.7188195712367567}, {-0.6971010430426134, 0.7169728975274452}}]},
GrayLevel[0.9099999999999999], {},
GrayLevel[0.925], {},
GrayLevel[0.94], {},
GrayLevel[0.955], {},
GrayLevel[0.97], {},
GrayLevel[0.985], {},
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.6312384433108216,
0.7533853455575679}, {-0.6255356659798545,
0.7563329164109285}}]},
TemplateBox[{"\"American Airlines flight 2387\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000130577\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000130577\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000130577"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7], {},
GrayLevel[0.715], {},
GrayLevel[0.73], {},
GrayLevel[0.745], {},
GrayLevel[0.76], {},
GrayLevel[0.7749999999999999], {},
GrayLevel[0.7899999999999999], {},
GrayLevel[0.8049999999999999], {},
GrayLevel[0.82], {},
GrayLevel[0.835], {},
GrayLevel[0.85], {},
GrayLevel[0.865], {},
GrayLevel[0.88], {},
GrayLevel[0.895], {},
GrayLevel[0.9099999999999999], {},
GrayLevel[0.925], {},
GrayLevel[0.94], {},
GrayLevel[0.955], {},
GrayLevel[0.97], {},
GrayLevel[0.985], {},
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.1429585212549902,
0.994407813383579}, {-0.10518797426036956`,
0.9951128798617527}}]},
TemplateBox[{"\"Corporate Flight Management flight 154\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000116380\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000116380\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000116380"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.0036943984312175714`, 0.33997951706630514`}, {
0.0116218860038321, 0.34547028145921127`}}],
GrayLevel[0.715],
LineBox[{{0.0116218860038321, 0.34547028145921127`}, {
0.0201377049218388, 0.35132360272765556`}}],
GrayLevel[0.73],
LineBox[{{0.0201377049218388, 0.35132360272765556`}, {
0.02930563625995606, 0.35757210101710485`}}],
GrayLevel[0.745],
LineBox[{{0.02930563625995606, 0.35757210101710485`}, {
0.03919819069646914, 0.364251717595977}}],
GrayLevel[0.76],
LineBox[{{0.03919819069646914, 0.364251717595977}, {
0.04989796454536635, 0.37140196756748567`}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.04989796454536635, 0.37140196756748567`}, {
0.06149920084493951, 0.3790661490271031}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.06149920084493951, 0.3790661490271031}, {
0.07410957122370035, 0.3872914676441149}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.07410957122370035, 0.3872914676441149}, {
0.08785218382600236, 0.39612901468608114`}}],
GrayLevel[0.82],
LineBox[{{0.08785218382600236, 0.39612901468608114`}, {
0.1028678026435963, 0.40563350650808555`}}],
GrayLevel[0.835],
LineBox[{{0.1028678026435963, 0.40563350650808555`}, {
0.11931722855406915`, 0.41586265132725214`}}],
GrayLevel[0.85],
LineBox[{{0.11931722855406915`, 0.41586265132725214`}, {
0.13738373399566786`, 0.426875951076049}}],
GrayLevel[0.865],
LineBox[{{0.13738373399566786`, 0.426875951076049}, {
0.15727535001751136`, 0.43873266889665874`}}],
GrayLevel[0.88],
LineBox[{{0.15727535001751136`, 0.43873266889665874`}, {
0.17922666144074145`, 0.4514885949984156}}],
GrayLevel[0.895],
LineBox[{{0.17922666144074145`, 0.4514885949984156}, {
0.20349955578366616`, 0.46519112934276646`}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.20349955578366616`, 0.46519112934276646`}, {
0.23038207953140957`, 0.4798720855556284}}],
GrayLevel[0.925],
LineBox[{{0.23038207953140957`, 0.4798720855556284}, {
0.2601841801932917, 0.49553754693335095`}}],
GrayLevel[0.94],
LineBox[{{0.2601841801932917, 0.49553754693335095`}, {
0.29322869028215487`, 0.5121541524580733}}],
GrayLevel[0.955],
LineBox[{{0.29322869028215487`, 0.5121541524580733}, {
0.32983555170694556`, 0.5296314943353172}}],
GrayLevel[0.97],
LineBox[{{0.32983555170694556`, 0.5296314943353172}, {
0.3702972249303341, 0.5478010616551443}}],
GrayLevel[0.985],
LineBox[{{0.3702972249303341, 0.5478010616551443}, {
0.4148438783190476, 0.5663935692200841}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.0116218860038321, 0.34547028145921127`}, {
0.0036943984312175714`, 0.33997951706630514`}}]},
TemplateBox[{"\"202101080000066674\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000066674\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000066674\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000066674"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{-0.6909165121406555,
0.7142557360140581}, {-0.6949879671618551, 0.7120968602844366}}],
GrayLevel[0.715],
LineBox[{{-0.6949879671618551,
0.7120968602844366}, {-0.6991679499094458, 0.7096715407060893}}],
GrayLevel[0.73],
LineBox[{{-0.6991679499094458,
0.7096715407060893}, {-0.7032365184280576, 0.7075591579044892}}],
GrayLevel[0.745],
LineBox[{{-0.7032365184280576,
0.7075591579044892}, {-0.7069718735038776, 0.7055603135797714}}],
GrayLevel[0.76], {
LineBox[{{-0.7069718735038776,
0.7055603135797714}, {-0.7101601474786262, 0.7040401728119894}}]},
GrayLevel[0.7749999999999999], {},
GrayLevel[0.7899999999999999], {},
GrayLevel[0.8049999999999999], {},
GrayLevel[0.82], {},
GrayLevel[0.835], {},
GrayLevel[0.85], {},
GrayLevel[0.865], {},
GrayLevel[0.88], {},
GrayLevel[0.895], {},
GrayLevel[0.9099999999999999], {},
GrayLevel[0.925], {},
GrayLevel[0.94], {},
GrayLevel[0.955], {},
GrayLevel[0.97], {},
GrayLevel[0.985], {},
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{-0.6949879671618551,
0.7120968602844366}, {-0.6909165121406555,
0.7142557360140581}}]},
TemplateBox[{"\"202101080000107002\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000107002\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000107002\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000107002"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.21330264491883918`, 0.47822896303172113`}, {
0.22966702918050083`, 0.47648931725697447`}}],
GrayLevel[0.715],
LineBox[{{0.22966702918050083`, 0.47648931725697447`}, {
0.24719114018803548`, 0.4744167958597209}}],
GrayLevel[0.73],
LineBox[{{0.24719114018803548`, 0.4744167958597209}, {
0.2659762452885939, 0.4719509323106808}}],
GrayLevel[0.745],
LineBox[{{0.2659762452885939, 0.4719509323106808}, {
0.2861306565837116, 0.4690199710630513}}],
GrayLevel[0.76],
LineBox[{{0.2861306565837116, 0.4690199710630513}, {
0.30776891910140497`, 0.4655388633938832}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.30776891910140497`, 0.4655388633938832}, {
0.33101030977804324`, 0.46140702832402936`}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.33101030977804324`, 0.46140702832402936`}, {
0.35597638834619766`, 0.45650593158032915`}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.35597638834619766`, 0.45650593158032915`}, {
0.3827872839234793, 0.4506965952006736}}],
GrayLevel[0.82],
LineBox[{{0.3827872839234793, 0.4506965952006736}, {
0.41155635355286124`, 0.4438172389212944}}],
GrayLevel[0.835],
LineBox[{{0.41155635355286124`, 0.4438172389212944}, {
0.44238283170420756`, 0.4356813779051933}}],
GrayLevel[0.85],
LineBox[{{0.44238283170420756`, 0.4356813779051933}, {
0.47534213561016614`, 0.4260768608397522}}],
GrayLevel[0.865],
LineBox[{{0.47534213561016614`, 0.4260768608397522}, {
0.5104736464501216, 0.4147665178918261}}],
GrayLevel[0.88],
LineBox[{{0.5104736464501216, 0.4147665178918261}, {
0.5477661058309488, 0.4014912688851216}}],
GrayLevel[0.895],
LineBox[{{0.5477661058309488, 0.4014912688851216}, {
0.5871412989393151, 0.38597665707102785`}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.5871412989393151, 0.38597665707102785`}, {
0.6284374493872564, 0.36794372576808093`}}],
GrayLevel[0.925],
LineBox[{{0.6284374493872564, 0.36794372576808093`}, {
0.6713946481783772, 0.34712482167384634`}}],
GrayLevel[0.94],
LineBox[{{0.6713946481783772, 0.34712482167384634`}, {
0.7156454666183368, 0.3232841832782318}}],
GrayLevel[0.955],
LineBox[{{0.7156454666183368, 0.3232841832782318}, {
0.7607143003921734, 0.2962420412511966}}],
GrayLevel[0.97],
LineBox[{{0.7607143003921734, 0.2962420412511966}, {
0.8060285343874342, 0.2658995893022444}}],
GrayLevel[0.985],
LineBox[{{0.8060285343874342, 0.2658995893022444}, {
0.8509430159485443, 0.23226097739392995`}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.22966702918050083`, 0.47648931725697447`}, {
0.21330264491883918`, 0.47822896303172113`}}]},
TemplateBox[{"\"CommutAir flight 4825\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000109141\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000109141\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000109141"], "Tooltip"]& ],
Opacity[0.5],
Thickness[Large],
Opacity[1],
GrayLevel[0.7],
LineBox[{{0.7850505010895763, -0.5776757261274809}, {
0.7766811826844557, -0.5895772443460977}}],
GrayLevel[0.715],
LineBox[{{0.7766811826844557, -0.5895772443460977}, {
0.7719626657717864, -0.5969642424056087}}],
GrayLevel[0.73],
LineBox[{{0.7719626657717864, -0.5969642424056087}, {
0.7626968174038777, -0.610897872841843}}],
GrayLevel[0.745],
LineBox[{{0.7626968174038777, -0.610897872841843}, {
0.7655044769159304, -0.6097810347909465}}],
GrayLevel[0.76],
LineBox[{{0.7655044769159304, -0.6097810347909465}, {
0.7653359004885347, -0.6124156261694087}}],
GrayLevel[0.7749999999999999],
LineBox[{{0.7653359004885347, -0.6124156261694087}, {
0.7646889952748818, -0.6153538325062093}}],
GrayLevel[0.7899999999999999],
LineBox[{{0.7646889952748818, -0.6153538325062093}, {
0.7658794032154368, -0.6151146187515867}}],
GrayLevel[0.8049999999999999],
LineBox[{{0.7658794032154368, -0.6151146187515867}, {
0.7683269956482007, -0.6126678141366699}}],
GrayLevel[0.82],
LineBox[{{0.7683269956482007, -0.6126678141366699}, {
0.7617081712097262, -0.620468369210446}}],
GrayLevel[0.835],
LineBox[{{0.7617081712097262, -0.620468369210446}, {
0.7612104083850162, -0.6198408276018178}}],
GrayLevel[0.85],
LineBox[{{0.7612104083850162, -0.6198408276018178}, {
0.7597020418818704, -0.6207580882478032}}],
GrayLevel[0.865],
LineBox[{{0.7597020418818704, -0.6207580882478032}, {
0.7583708835187732, -0.6218728482145284}}],
GrayLevel[0.88],
LineBox[{{0.7583708835187732, -0.6218728482145284}, {
0.7588962473460716, -0.6206040432680545}}],
GrayLevel[0.895],
LineBox[{{0.7588962473460716, -0.6206040432680545}, {
0.7539665654423462, -0.6265206782680958}}],
GrayLevel[0.9099999999999999],
LineBox[{{0.7539665654423462, -0.6265206782680958}, {
0.7478055181263178, -0.6331473389784673}}],
GrayLevel[0.925],
LineBox[{{0.7478055181263178, -0.6331473389784673}, {
0.7416617760476606, -0.6397351084064624}}],
GrayLevel[0.94],
LineBox[{{0.7416617760476606, -0.6397351084064624}, {
0.7358119248532695, -0.6461707021896832}}],
GrayLevel[0.955],
LineBox[{{0.7358119248532695, -0.6461707021896832}, {
0.7303102880459064, -0.6521410159507688}}],
GrayLevel[0.97],
LineBox[{{0.7303102880459064, -0.6521410159507688}, {
0.7242482518201531, -0.6583009721029839}}],
GrayLevel[0.985],
LineBox[{{0.7242482518201531, -0.6583009721029839}, {
0.7182780103550962, -0.6636871936947107}}],
Opacity[0],
TagBox[
TooltipBox[{
ArrowBox[{{0.7766811826844557, -0.5895772443460977}, {
0.7850505010895763, -0.5776757261274809}}]},
TemplateBox[{"\"Southwest Airlines flight 6003\"",
RowBox[{"Entity", "[",
RowBox[{"\"FlightNumber\"", ",", "\"202101080000089107\""}],
"]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000089107\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#,
Entity["FlightNumber", "202101080000089107"], "Tooltip"]& ]}},
Background -> None, PlotRange -> {{-1, 1}, {-1, 1}}, PlotRangePadding ->
0.03],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"S\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["S"]]],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"E\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["E"]]],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"N\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["N"]]],
InterpretationBox[
Cell[
BoxData[
FormBox[
StyleBox["\"W\"", StripOnInput -> False], TextForm]], "InlineText"],
Text[
Style["W"]]]},
"Labeled",
DisplayFunction->(GridBox[{{"",
ItemBox[#4, DefaultBaseStyle -> "LabeledLabel"], ""}, {
ItemBox[#3, DefaultBaseStyle -> "LabeledLabel"],
TagBox[
ItemBox[
PaneBox[
TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
BaselinePosition -> Baseline, ImageMargins -> 5],
DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"],
ItemBox[#5, DefaultBaseStyle -> "LabeledLabel"]}, {"",
ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"], ""}},
GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {2, 2}]& ),
InterpretationFunction->(RowBox[{"Labeled", "[",
RowBox[{#, ",",
RowBox[{"{",
RowBox[{#2, ",", #3, ",", #4, ",", #5}], "}"}], ",", "All", ",",
RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]& )]}]}],
"\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.812289661460073*^9, 3.812289677954986*^9}, {
3.81228977864431*^9, 3.812289789882815*^9}, 3.819118727805327*^9},
CellID->235889243]
}, Open ]]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Source & Additional Information", "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"},
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116],
Cell[CellGroupData[{
Cell[TextData[{
"Contributed By",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Contributed By",
Cell[
BoxData[
FrameBox[
Cell[
"Enter the name of the person, people or organization that should be \
publicly credited with contributing this function.", "MoreInfoText"],
Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle ->
GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoContributedBy"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Contributed By"},
DefaultNewCellStyle->"Text",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256],
Cell["Jason Martinez", "Text",
CellID->360498248]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Keywords",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Keywords",
Cell[
BoxData[
FrameBox[
Cell[
"List relevant terms (e.g. functional areas, algorithm names, related \
concepts) that should be used to include the function in search results.",
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoKeywords"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Keywords"},
DefaultNewCellStyle->"Item",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425],
Cell["flights", "Item",
CellID->790269111],
Cell["airplane", "Item",
CellID->720224362],
Cell["sky map", "Item",
CellID->434074531]
}, Open ]],
Cell[CellGroupData[{
Cell["Categories", "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Categories"},
DefaultNewCellStyle->"Item",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"",
"\"Cloud & Deployment\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Data Manipulation & Analysis"}],
"\" \"", "\"Data Manipulation & Analysis\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "External Interfaces & Connections"}],
"\" \"", "\"External Interfaces & Connections\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
"Geographic Data & Computation", {
False, "Geographic Data & Computation"}], "\" \"",
"\"Geographic Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"",
"\"Graphs & Networks\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
False, {False, "Knowledge Representation & Natural Language"}],
"\" \"", "\"Knowledge Representation & Natural Language\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Notebook Documents & Presentation"}],
"\" \"", "\"Notebook Documents & Presentation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Repository Tools"}], "\" \"",
"\"Repository Tools\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
"Social, Cultural & Linguistic Data", {
False, "Social, Cultural & Linguistic Data"}], "\" \"",
"\"Social, Cultural & Linguistic Data\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Strings & Text"}], "\" \"",
"\"Strings & Text\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"",
"\"System Operation & Setup\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "User Interface Construction"}],
"\" \"", "\"User Interface Construction\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"",
"\"Wolfram Physics Project\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"",
"\"Core Language & Structure\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Engineering Data & Computation"}],
"\" \"", "\"Engineering Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Financial Data & Computation"}],
"\" \"", "\"Financial Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Higher Mathematical Computation"}],
"\" \"", "\"Higher Mathematical Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["Just For Fun", {False, "Just For Fun"}], "\" \"",
"\"Just For Fun\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Machine Learning"}], "\" \"",
"\"Machine Learning\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Programming Utilities"}], "\" \"",
"\"Programming Utilities\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
False, {False, "Scientific and Medical Data & Computation"}],
"\" \"", "\"Scientific and Medical Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Sound & Video"}], "\" \"",
"\"Sound & Video\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Symbolic & Numeric Computation"}],
"\" \"", "\"Symbolic & Numeric Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
"Time-Related Computation", {False, "Time-Related Computation"}],
"\" \"", "\"Time-Related Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
"Visualization & Graphics", {False, "Visualization & Graphics"}],
"\" \"", "\"Visualization & Graphics\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{"\<\"\"\>"}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxVUM1qwzAMhrGs6Sg79zIwO+\
y0PERIl9JR6IhK766jpmZObCzpkD39nLWM9SSJ709SmReQAY8O4WEnHIQLmFVnNF/\
YnjK631pieF6j76IOZ2vUSrNWr6ryfeJqtn6AF/DGavemKnEsUbuEb+3QSdJeFbD4EGJV+\
6hqGWC5tz0WDTrN2N54LQ+WRDv7/Tsmo/Ull9KaG8aeaF4K+z7BpoD8M/\
qAkUd4rJJV56PFxJztwqSm093lgKk24pDy99ayPqYuq7Uj/APmK3T4H5m+\
4J30w23g02ZgjCHidd15OYwgR8L0tkWD5CUa3I8BIU93monzA31ie8o="},
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->579526295]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Related Symbols",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Related Symbols",
Cell[
BoxData[
FrameBox[
Cell[
"List up to twenty documented, system-level Wolfram Language symbols \
related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95],
FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5,
ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoRelatedSymbols"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Related Symbols"},
DefaultNewCellStyle->"Item",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169],
Cell["AircraftData", "Item",
CellID->56362438],
Cell["FlightData", "Item",
CellID->808734181]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Related Resource Objects",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Related Resource Objects",
Cell[
BoxData[
FrameBox[
Cell[
"List the names of published resource objects from any Wolfram \
repository that are related to this function.", "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoRelatedResourceObjects"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"},
DefaultNewCellStyle->"Item",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472],
Cell["SkyChart", "Item",
CellID->593745188],
Cell["SkyPositionChart", "Item",
CellID->497576271]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Source/Reference Citation",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Source/Reference Citation",
Cell[
BoxData[
FrameBox[
Cell[
"Give a bibliographic-style citation for the original source of the \
function and/or its components (e.g. a published paper, algorithm, or code \
repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins ->
20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoSourceReferenceCitation"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"},
DefaultNewCellStyle->"Text",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552],
Cell["Source, reference or citation information", "Text",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Links",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Links",
Cell[
BoxData[
FrameBox[
Cell[
"List additional URLs or hyperlinks for external information related \
to the function.", "MoreInfoText"], Background -> GrayLevel[0.95],
FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5,
ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoLinks"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Links"},
DefaultNewCellStyle->"Item",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773],
Cell["Link to other related material", "Item",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Tests",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"VerificationTests",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Specify an optional list of tests for verifying that the function \
is working properly in any environment. Tests can be specified as \
Input/Output cell pairs or as symbolic ",
Cell[
BoxData[
StyleBox[
TagBox[
ButtonBox[
StyleBox[
"VerificationTest", "SymbolsRefLink", ShowStringCharacters ->
True, FontFamily -> "Source Sans Pro"], BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {
"Link"}]], ButtonData -> "paclet:ref/VerificationTest",
ContentPadding -> False],
MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True,
FontFamily -> "Source Sans Pro"]]],
" expressions for including additional options."}],
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoVerificationTests"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "VerificationTests"},
DefaultNewCellStyle->"Input",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448],
Cell[BoxData[
RowBox[{"MyFunction", "[",
RowBox[{"x", ",", "y"}], "]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.812288862107193*^9, 3.812289778843124*^9},
CellID->660885038]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Compatibility",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Compatibility",
Cell[
BoxData[
FrameBox[
Cell[
"Specify any known compatibilities for your resource to ensure it is \
discoverable on the correct platforms.", "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibility"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Compatibility"},
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822],
Cell[CellGroupData[{
Cell[TextData[{
"Wolfram Language Version",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityWolframLanguageVersionRequired",
Cell[
BoxData[
FrameBox[
Cell[
"Enter required Wolfram Language Version (e.g. 12.1+).",
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {
"SectionMoreInfoCompatibilityWolframLanguageVersionRequired"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{
"TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"},
DefaultNewCellStyle->"Text",
FontSize->16,
CellTags->{
"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup",
"Wolfram Language Version"},
CellID->901090016],
Cell["12.3+", "Text",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Operating System",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityOperatingSystem",
Cell[
BoxData[
FrameBox[
Cell[
"Select all operating systems where your resource is expected to \
function properly.", "MoreInfoText"], Background -> GrayLevel[0.95],
FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5,
ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"},
DefaultNewCellStyle->"Item",
FontSize->16,
CellTags->{
"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Windows", {False, "Windows"}], "\" \"",
"\"Windows\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\
3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\
TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\
BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\
V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"},
CellTags->{
"CheckboxCell", "CompatibilityOperatingSystem",
"CompatibilityOperatingSystem-Checkboxes"},
CellID->589765368]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Required Features",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityFeatures",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{"Choose any other features that are ",
Cell[
BoxData[
StyleBox[
StyleBox["required", "TI"], ShowStringCharacters -> True,
FontFamily -> "Source Sans Pro"]]],
" in order to use your resource."}], "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityFeatures"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"},
DefaultNewCellStyle->"Item",
FontSize->16,
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Notebooks"}], "\" \"",
"\"Notebooks\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"",
"\"Parallel Kernels\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Cloud Access"}], "\" \"",
"\"Cloud Access\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\
GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\
5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\
xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\
obsYtD4mTxC2UWr58w3NfBx2Q=="},
CellTags->{
"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->851691753]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Environments",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityEvaluationEnvironment",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Select all evaluation environments where your resource is expected \
to be compatible. See ",
Cell[
BoxData[
StyleBox[
TagBox[
ButtonBox[
StyleBox[
"$EvaluationEnvironment", "SymbolsRefLink",
ShowStringCharacters -> True, FontFamily ->
"Source Sans Pro"], BaseStyle -> Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {
"Link"}]], ButtonData ->
"paclet:ref/$EvaluationEnvironment", ContentPadding -> False],
MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True,
FontFamily -> "Source Sans Pro"]]], " for more details."}],
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"},
DefaultNewCellStyle->"Item",
FontSize->16,
CellTags->{
"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Session", {False, "Session"}], "\" \"",
TemplateBox[{
"\"Session\"", "\"Local or cloud interactive session\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"",
TemplateBox[{
"\"WebEvaluation\"",
"\"Cloud evaluation initiated by an HTTP request\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"",
TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Script", {False, "Script"}], "\" \"",
TemplateBox[{"\"Script\"", "\"Script run in batch mode\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"",
TemplateBox[{
"\"WebAPI\"", "\"API called through an HTTP request\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{"\<\"\"\>"}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"],
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"",
TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"",
TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{"\<\"\"\>"}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\
nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\
tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\
sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\
CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\
"},
CellTags->{
"CheckboxCell", "CompatibilityEvaluationEnvironment",
"CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->71422750]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Cloud Support",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityCloudSupport",
Cell[
BoxData[
FrameBox[
Cell[
"Specify whether your resource is expected to work in the public \
cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"},
DefaultNewCellStyle->"Text",
FontSize->16,
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[True, {False, True}], "\" \"",
"\"Supported in cloud\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\
u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\
5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\
82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\
JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="},
CellTags->{
"CheckboxCell", "CompatibilityCloudSupport",
"CompatibilityCloudSupport-Checkboxes"},
CellID->131115484]
}, Closed]]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Author Notes",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Author Notes",
Cell[
BoxData[
FrameBox[
Cell[
"This section, when used, will appear near the bottom of the \
published resource. Content displayed in this section can include background, \
possible improvements, additional information and/or implementation details \
that are otherwise beyond the scope of the function documentation.",
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoAuthorNotes"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Author Notes"},
DefaultNewCellStyle->"Text",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591],
Cell["Additional information about limitations, issues, etc.", "Text",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Submission Notes",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Submission Notes",
Cell[
BoxData[
FrameBox[
Cell[
"Enter any additional information that you would like to communicate \
to the reviewer here. This section will not be included in the published \
resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins ->
20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoSubmissionNotes"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Submission Notes"},
DefaultNewCellStyle->"Text",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765],
Cell["Additional information for the reviewer.", "Text",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]
}, Open ]]
}, Open ]]
},
WindowSize->Automatic,
WindowMargins->Automatic,
WindowTitle->"FlightsOverhead | Definition Notebook",
TaggingRules->{"CompatibilityTest" -> HoldComplete[
BinaryDeserialize[
BaseDecode[
"OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\
X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\
9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\
hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\
cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\
rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\
q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\
dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\
v195MbS63WrPMavIs/KKv/\
cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\
5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\
g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\
LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\
8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\
CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\
zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\
wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\
bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\
KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\
oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\
UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\
NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\
VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\
YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\
VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\
uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\
1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\
F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\
1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\
xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\
KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\
WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\
98fkvn3IKDA=="]]], "CreationTimestamp" ->
3.867425794931905`16.33999697871668*^9, "DefinitionNotebookFramework" ->
"DefinitionNotebookClient", "ResourceCreateNotebook" -> True,
"ResourceType" -> "Function",
"RuntimeConfiguration" -> {
"LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource",
"Contexts" -> {
"FunctionResource`", "FunctionResource`DefinitionNotebook`"},
"DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False,
"UpdatedTimestamp" -> 3.867425794988891`16.339996978723082*^9,
"VersionInformation" -> {"ResourceVersion" -> "1.1.0"}, "TemplateVersion" ->
"1.6.4", "StatusMessage" -> "",
"SubmissionReviewData" -> {"Review" -> False}},
CreateCellID->True,
FrontEndVersion->"13.1 for Linux x86 (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.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"},
CacheGraphics -> False],
Cell[
BoxData[
TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell",
TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"},
CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}},
CacheGraphics -> False, CellOpen -> Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]},
PrivateNotebookOptions -> {
"FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"},
CellLabelAutoDelete -> False,
CodeAssistOptions -> {"AutoDetectHyperlinks" -> False},
AutoQuoteCharacters -> {}],
Cell["Hint Styles", "Section"],
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["Template Boxes", "Section"],
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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
"], CurveClosed -> {1}]}, {
JoinForm[{"Miter", 3.25}],
Thickness[0.04581818181818182],
RGBColor[0.627441, 0.627441, 0.627441, 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:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m
N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4
1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j
1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/
oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP
Mx8WPjD7YeEHcx8sfNHDHwBu/qSR
"], CompressedData["
1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/
8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D
W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN
DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL
wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef
X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+
5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67
"]}]}, {
FaceForm[
RGBColor[0.627441, 0.627441, 0.627441, 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
"], CurveClosed -> {1}]}, {
JoinForm[{"Miter", 3.25}],
Thickness[0.04581818181818182],
RGBColor[0.5, 0.5, 0.5, 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
"]]}, {
FaceForm[
RGBColor[0.5, 0.5, 0.5, 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:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m
N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4
1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j
1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/
oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP
Mx8WPjD7YeEHcx8sfNHDHwBu/qSR
"], CompressedData["
1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/
8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D
W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN
DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL
wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef
X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+
5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67
"]}]}, {
FaceForm[
RGBColor[0.999985, 0.999985, 0.999985, 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[
DynamicModuleBox[{
RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$,
RSNB`horizontalRegion$$, RSNB`verticalRegion$$,
RSNB`chooseAttachLocation$$},
TagBox[
TemplateBox[{
TemplateBox[{}, "MoreInfoOpenerIconTemplate"],
"\"Click for more information\""}, "PrettyTooltipTemplate"],
EventHandlerTag[{"MouseDown" :> AttachCell[
ParentBox[
EvaluationBox[]], #2,
RSNB`chooseAttachLocation$$[],
RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}],
Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp ->
True}]],
DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[
RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[
Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[
RSNB`mPosRegion$$[
Pattern[RSNB`reg, {
Blank[Integer],
Blank[Integer]}]]] :> RSNB`reg, HoldPattern[
RSNB`mPosRegion$$[
BlankNullSequence[]]] :> None}}, {
DownValues[RSNB`attachPos$$] = {HoldPattern[
RSNB`attachPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[RSNB`h$],
RSNB`verticalRegion$$[RSNB`v$]}}}, {
DownValues[RSNB`offsetPos$$] = {HoldPattern[
RSNB`offsetPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[4 - RSNB`h$],
RSNB`verticalRegion$$[4 - RSNB`v$]}}}, {
DownValues[RSNB`horizontalRegion$$] = {HoldPattern[
RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[
RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[
RSNB`horizontalRegion$$[3]] :> Right}}, {
DownValues[RSNB`verticalRegion$$] = {HoldPattern[
RSNB`verticalRegion$$[1]] :> Top, HoldPattern[
RSNB`verticalRegion$$[2]] :> Top, HoldPattern[
RSNB`verticalRegion$$[3]] :> Top}}, {
DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[
RSNB`chooseAttachLocation$$[]] :>
With[{RSNB`p$ = RSNB`mPosRegion$$[]},
Apply[Sequence, {
RSNB`offsetPos$$[RSNB`p$], {-30, 30},
RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5,
BoxMargins -> 0.2]& )}],
Cell[
StyleData["InlineMoreInfoOpenerButtonTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
DynamicModuleBox[{
RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$,
RSNB`horizontalRegion$$, RSNB`verticalRegion$$,
RSNB`chooseAttachLocation$$},
TagBox[
TemplateBox[{
TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4},
"PrettyTooltipTemplate"],
EventHandlerTag[{"MouseDown" :> AttachCell[
ParentBox[
EvaluationBox[]], #2,
RSNB`chooseAttachLocation$$[],
RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}],
Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp ->
True}]],
DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[
RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[
Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[
RSNB`mPosRegion$$[
Pattern[RSNB`reg, {
Blank[Integer],
Blank[Integer]}]]] :> RSNB`reg, HoldPattern[
RSNB`mPosRegion$$[
BlankNullSequence[]]] :> None}}, {
DownValues[RSNB`attachPos$$] = {HoldPattern[
RSNB`attachPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[RSNB`h$],
RSNB`verticalRegion$$[RSNB`v$]}}}, {
DownValues[RSNB`offsetPos$$] = {HoldPattern[
RSNB`offsetPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[4 - RSNB`h$],
RSNB`verticalRegion$$[4 - RSNB`v$]}}}, {
DownValues[RSNB`horizontalRegion$$] = {HoldPattern[
RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[
RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[
RSNB`horizontalRegion$$[3]] :> Right}}, {
DownValues[RSNB`verticalRegion$$] = {HoldPattern[
RSNB`verticalRegion$$[1]] :> Top, HoldPattern[
RSNB`verticalRegion$$[2]] :> Top, HoldPattern[
RSNB`verticalRegion$$[3]] :> Top}}, {
DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[
RSNB`chooseAttachLocation$$[]] :>
With[{RSNB`p$ = RSNB`mPosRegion$$[]},
Apply[Sequence, {
RSNB`offsetPos$$[RSNB`p$], {-30, 30},
RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5,
BoxMargins -> 0.2]& )}],
Cell[
StyleData["ClickToCopyTemplate"],
TemplateBoxOptions -> {
DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
GridBox[{{#,
ButtonBox[
GraphicsBox[{
GrayLevel[0.85],
Thickness[
NCache[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[{
PaneSelectorBox[{False -> GraphicsBox[{
GrayLevel[0.65],
Thickness[
NCache[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], True -> GraphicsBox[{
RGBColor[0.988235, 0.419608, 0.203922],
Thickness[
NCache[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]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic,
FrameMargins -> 0], "\"Click to copy to the clipboard\""},
"PrettyTooltipTemplate"]],
RawBoxes[
TemplateBox[{
GraphicsBox[{
RGBColor[0,
NCache[2/3, 0.6666666666666666], 0],
Thickness[
NCache[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], "\"Copied\""},
"PrettyTooltipTemplate"]]], 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.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight ->
"Plain", FontTracking -> "Plain", StripOnInput -> False],
Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle ->
RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8,
StripOnInput -> False], TooltipDelay -> 0.1,
TooltipStyle -> {Background -> None, CellFrame -> 0}],
Annotation[#,
Framed[
Style[
RSNB`$$tooltip, "Text", FontColor ->
RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight ->
"Plain", FontTracking -> "Plain"], Background ->
RGBColor[0.960784, 0.960784, 0.960784], FrameStyle ->
RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8],
"Tooltip"]& ]& )}],
Cell[
StyleData["ToolsGridTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
TagBox[
GridBox[{{
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Template Input\"", "Text", FontFamily -> "Source Sans Pro",
FontSize -> 11, StripOnInput -> False],
"\"Format selection automatically using appropriate \
documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
2790153672590285854;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton =
"Template Input";
DefinitionNotebookClient`TemplateInput[]]]],
DefinitionNotebookClient`ButtonCodeID[
2790153672590285854]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background -> GrayLevel[0.9],
Method -> "Queued", ImageSize -> {All, 20}, Evaluator ->
Automatic], FrameStyle -> Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro",
FontSize -> 11, StripOnInput -> False],
"\"Format selection as literal Wolfram Language code\""},
"PrettyTooltipTemplate"], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
4138174468017918531;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Literal Input";
DefinitionNotebookClient`LiteralInput[]]]],
DefinitionNotebookClient`ButtonCodeID[
4138174468017918531]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background -> GrayLevel[0.9],
Method -> "Queued", ImageSize -> {All, 20}, Evaluator ->
Automatic], FrameStyle -> Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Insert Delimiter\"", "Text", FontFamily ->
"Source Sans Pro", FontSize -> 11, StripOnInput -> False],
"\"Insert example delimiter\""}, "PrettyTooltipTemplate"],
ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
1887802176716758884;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton =
"Insert Delimiter";
DefinitionNotebookClient`DelimiterInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
1887802176716758884]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background -> GrayLevel[0.9],
Method -> "Queued", ImageSize -> {All, 20}, Evaluator ->
Automatic], FrameStyle -> Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Subscripted Variable\"", "Text", FontFamily ->
"Source Sans Pro", FontSize -> 11, StripOnInput -> False],
"\"Insert subscripted variable placeholder\""},
"PrettyTooltipTemplate"], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3787878858871814623;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton =
"Subscripted Variable";
DefinitionNotebookClient`SubscriptInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
3787878858871814623]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background -> GrayLevel[0.9],
Method -> "Queued", ImageSize -> {All, 20}, Evaluator ->
Automatic], FrameStyle -> Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
ActionMenuBox[
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
TemplateBox[{
"\"Tables\"",
"\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\
\[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily ->
"Source Sans Pro", FontSize -> 11, StripOnInput -> False],
"\"Table functions\""}, "PrettyTooltipTemplate"],
ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3216557251994556740;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]],
DefinitionNotebookClient`ButtonCodeID[
3216557251994556740]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background -> GrayLevel[0.9],
Method -> "Queued", ImageSize -> {All, 20}, Evaluator ->
Automatic], FrameStyle -> Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False], {
"\"Insert table with two columns\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
5800166344906378520;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Insert table with two columns";
DefinitionNotebookClient`TableInsert[2]]]],
DefinitionNotebookClient`ButtonCodeID[
5800166344906378520]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Insert table with three columns\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
533841403879783297;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Insert table with three columns";
DefinitionNotebookClient`TableInsert[3]]]],
DefinitionNotebookClient`ButtonCodeID[
533841403879783297]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Add a row to the selected table\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
4413051590217973467;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Add a row to the selected table";
DefinitionNotebookClient`TableRowInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
4413051590217973467]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Sort the selected table\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
9150037060110806081;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Sort the selected table";
DefinitionNotebookClient`TableSort[]]]],
DefinitionNotebookClient`ButtonCodeID[
9150037060110806081]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Merge selected tables\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
2347719643166780208;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Merge selected tables";
DefinitionNotebookClient`TableMerge[]]]],
DefinitionNotebookClient`ButtonCodeID[
2347719643166780208]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]]}, Appearance -> None, Method -> "Queued"],
ActionMenuBox[
FrameBox[
ButtonBox[
StyleBox[
TemplateBox[{
"\"Cells\"",
"\"\[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,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3216557251994556740;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]],
DefinitionNotebookClient`ButtonCodeID[
3216557251994556740]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background -> GrayLevel[0.9],
Method -> "Queued", ImageSize -> {All, 20}, Evaluator ->
Automatic], FrameStyle -> Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False], {
"\"Insert comment for reviewer\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
2572781756330727330;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Cells";
DefinitionNotebookClient`$ClickedAction =
"Insert comment for reviewer";
DefinitionNotebookClient`CommentInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
2572781756330727330]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Mark/unmark selected cells as comments\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3646530685697756512;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Cells";
DefinitionNotebookClient`$ClickedAction =
"Mark/unmark selected cells as comments";
DefinitionNotebookClient`CommentToggle[]]]],
DefinitionNotebookClient`ButtonCodeID[
3646530685697756512]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Mark/unmark selected cells as excluded\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
1866935765212102190;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Cells";
DefinitionNotebookClient`$ClickedAction =
"Mark/unmark selected cells as excluded";
DefinitionNotebookClient`ExclusionToggle[]]]],
DefinitionNotebookClient`ButtonCodeID[
1866935765212102190]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]]}, Appearance -> None, Method -> "Queued"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
AutoDelete -> False,
GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
GrayLevel[0.9]}},
GridBoxFrame -> {
"Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle ->
GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[
Not[
TrueQ[DefinitionNotebookClient`$ButtonsDisabled]],
TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]},
StripOnInput -> False]& )}],
Cell[
StyleData["MainGridTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{
Thickness[0.022222222222222223`], {
FaceForm[{
RGBColor[0.87451, 0.278431, 0.03137260000000001],
Opacity[1.]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926,
0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`},
{0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {
34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, {
FaceForm[{
RGBColor[1., 1., 1.],
Opacity[1.]}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
"], {{19.051000000000002`, 14.242}, {19.051000000000002`,
27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426,
26.308999999999997`}, {21.375, 26.258000000000003`}, {
21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375,
15.602}, {21.426, 15.547}, {23.828,
15.315999999999999`}, {23.828, 14.242}}, {{24.578,
18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {
24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {
30.203, 23.91}, {30.578, 23.539}, {30.578,
23.078000000000003`}, {30.578, 18.75}, {
30.581999999999997`, 18.288999999999998`}, {30.207,
17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953,
17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328,
14.242}, {31.328, 15.315999999999999`}, {33.684,
15.539000000000001`}, {33.789, 15.602}, {33.789,
17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684,
26.281}, {31.328, 26.512000000000004`}, {31.328,
27.586}, {36.113, 27.586}, {36.113,
14.234000000000002`}}}]}}, {
ImageSize -> {Automatic, 32},
ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition ->
Scaled[0.25], AspectRatio -> Automatic, Background ->
RGBColor[0.988235, 0.419608, 0.203922],
ImageSize -> {45., 45.},
PlotRange -> {{0., 45.}, {0., 45.}}}],
StyleBox[
TagBox[
GridBox[{{
StyleBox[
"\"Function Resource\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", StripOnInput -> False],
StyleBox[
"\"DEFINITION NOTEBOOK\"", FontFamily ->
"Source Sans Pro", FontTracking -> "SemiCondensed",
FontVariations -> {"CapsType" -> "AllSmallCaps"},
StripOnInput -> False]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]},
"Rows" -> {{None}}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.],
StripOnInput -> False]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
"\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]",
"\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]",
"\[SpanFromLeft]",
TemplateBox[{
StyleBox[
TemplateBox[{
"\"Function Repository\"", "\" \[RightGuillemet] \""},
"RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.],
StripOnInput -> False],
"https://resources.wolframcloud.com/FunctionRepository"},
"HyperlinkURL"]}, {
TemplateBox[{
TemplateBox[{
"\"Open Sample\"",
"\"View a completed sample definition notebook\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034;
DefinitionNotebookClient`$ClickedButton = "Open Sample";
DefinitionNotebookClient`ViewExampleNotebook[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& ,
"\"View a completed sample definition notebook\"", False},
"OrangeButtonTemplate"],
TemplateBox[{
TemplateBox[{
"\"Style Guidelines\"",
"\"View general guidelines for authoring resource \
functions\""}, "PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171;
DefinitionNotebookClient`$ClickedButton = "Style Guidelines";
DefinitionNotebookClient`ViewStyleGuidelines[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& ,
"\"View general guidelines for authoring resource functions\"",
False}, "OrangeButtonTemplate"],
TemplateBox[{
TemplateBox[{
TagBox[
GridBox[{{"\"Tools\"",
PaneSelectorBox[{False -> GraphicsBox[{
RGBColor[1., 1., 1.],
AbsoluteThickness[1.],
LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}],
LineBox[{{5, 2.5}, {5, 7.5}}],
LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9,
PlotRangePadding -> 1.5], True -> GraphicsBox[{
RGBColor[1., 1., 1.],
AbsoluteThickness[1.],
LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}],
LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9,
PlotRangePadding -> 1.5]},
Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]],
BaselinePosition -> Scaled[0]]}},
GridBoxAlignment -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"],
"\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401;
DefinitionNotebookClient`$ClickedButton = "Tools";
DefinitionNotebookClient`ToggleToolbar[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& ,
"\"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.994118, 0.709804, 0.601961]], "Grid"],
TemplateBox[{
TemplateBox[{
"\"Check\"", "\"Check notebook for potential errors\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191;
DefinitionNotebookClient`$ClickedButton = "Check";
DefinitionNotebookClient`CheckDefinitionNotebook[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& ,
"\"Check notebook for potential errors\"", False},
"OrangeButtonTemplate"],
TemplateBox[{
TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021;
DefinitionNotebookClient`$ClickedButton = "Preview";
DefinitionNotebookClient`PreviewResource[
ButtonNotebook[], "Notebook"],
DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& ,
"\"Generate a preview notebook\"", True},
"OrangeButtonTemplate"],
ActionMenuBox[
TemplateBox[{
TemplateBox[{"\"Deploy\"",
TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""},
"RowDefault"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298;
Null,
DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& ,
"\"\"", True}, "OrangeButtonTemplate"], {
"\"Locally on this computer\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
8714502586816766511;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"Locally on this computer";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "Local"]]]]],
DefinitionNotebookClient`ButtonCodeID[
8714502586816766511]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]], "\"For my cloud account\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
1389539917011878958;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"For my cloud account";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "CloudPrivate"]]]]],
DefinitionNotebookClient`ButtonCodeID[
1389539917011878958]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]], "\"Publicly in the cloud\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
5593410685219912767;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"Publicly in the cloud";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "CloudPublic"]]]]],
DefinitionNotebookClient`ButtonCodeID[
5593410685219912767]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]],
"\"In this session only (without documentation)\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
8586347731213964380;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"In this session only (without documentation)";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "KernelSession"]]]]],
DefinitionNotebookClient`ButtonCodeID[
8586347731213964380]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]]}, Appearance -> None, Method -> "Queued"],
ItemBox[
StyleBox[
DynamicBox[
ToBoxes[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""],
StandardForm], Initialization :> (CurrentValue[
EvaluationNotebook[], {TaggingRules, "StatusMessage"}] =
"")], "Text",
GrayLevel[1], StripOnInput -> False], ItemSize -> Fit,
StripOnInput -> False],
DynamicBox[
ToBoxes[
If[
CurrentValue[
EvaluationNotebook[], {
TaggingRules, "SubmissionReviewData", "Review"}, False],
RawBoxes[
TemplateBox[{
TemplateBox[{
TagBox[
GridBox[{{
GraphicsBox[{
Thickness[0.06349],
StyleBox[{
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}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False],
StyleBox[{
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}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
"]],
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}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False]},
ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}},
AspectRatio -> 1.15], "\"Submit Update\""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5},
"Rows" -> {{0}}}], "Grid"],
"\"Submit changes to update your resource submission\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3196298050911436087;
DefinitionNotebookClient`$ClickedButton = "SubmitUpdate";
With[{RSNB`nb = ButtonNotebook[]},
DefinitionNotebookClient`DisplayStripe[RSNB`nb,
DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb],
"ShowProgress" -> True]],
DefinitionNotebookClient`ButtonCodeID[
3196298050911436087]]& ,
"\"Submit changes to update your resource submission\"",
True}, "OrangeButtonTemplate"]],
RawBoxes[
TemplateBox[{
TemplateBox[{
TagBox[
GridBox[{{
GraphicsBox[{
Thickness[0.06349],
StyleBox[{
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}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False],
StyleBox[{
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}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
"]],
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}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False]},
ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}},
AspectRatio -> 1.15], "\"Submit to Repository\""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5},
"Rows" -> {{0}}}], "Grid"],
"\"Submit your function to the Wolfram Function \
Repository\""}, "PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3704832848557640569;
DefinitionNotebookClient`$ClickedButton = "Submit";
With[{RSNB`nb = ButtonNotebook[]},
DefinitionNotebookClient`DisplayStripe[RSNB`nb,
DefinitionNotebookClient`SubmitRepository[RSNB`nb],
"ShowProgress" -> True]],
DefinitionNotebookClient`ButtonCodeID[
3704832848557640569]]& ,
"\"Submit your function to the Wolfram Function \
Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator ->
"System", SingleEvaluation -> True]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right},
"Rows" -> {{Center}}}, AutoDelete -> False,
GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
RGBColor[0.988235, 0.419608, 0.203922],
RGBColor[0.921569, 0.341176, 0.105882]}},
GridBoxFrame -> {
"Columns" -> False,
"RowsIndexed" -> {
1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 ->
RGBColor[0.921569, 0.341176, 0.105882]}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {5, {0.9}, 5},
"RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle ->
RGBColor[0.988235, 0.419608, 0.203922]], "Grid"],
ButtonBoxOptions -> {Enabled -> Dynamic[
Not[
TrueQ[DefinitionNotebookClient`$ButtonsDisabled]],
TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]},
StripOnInput -> False]& )}],
Cell[
StyleData["ReviewerCommentLabelTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (TagBox[
GridBox[{{#,
TemplateBox[{
GraphicsBox[{
Thickness[0.022222222222222223`], {
FaceForm[{
RGBColor[0.87451, 0.278431, 0.03137260000000001],
Opacity[1.]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926,
0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {
0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926,
45.}, {45., 34.926}, {45., 22.5}}}]}, {
FaceForm[{
RGBColor[1., 1., 1.],
Opacity[1.]}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0,
2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
"], {{19.051000000000002`, 14.242}, {19.051000000000002`,
27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426,
26.308999999999997`}, {21.375, 26.258000000000003`}, {
21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375,
15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {
23.828, 14.242}}, {{24.578, 18.75}, {24.578,
23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, {
25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578,
23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, {
30.581999999999997`, 18.288999999999998`}, {30.207,
17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953,
17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328,
14.242}, {31.328, 15.315999999999999`}, {33.684,
15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {
33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {
31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113,
27.586}, {36.113, 14.234000000000002`}}}]}}, {
ImageSize -> 12, AspectRatio -> Automatic, Background -> None,
ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}],
"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 -> (FrameBox[
ButtonBox[
StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
GrayLevel[1],
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]],
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, DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode = HoldForm[
#2[]]]],
DefinitionNotebookClient`ButtonCodeID[3145484069433207908]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]];
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = "";
Null], FrameMargins -> {{5, 5}, {0, 0}},
Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF
gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/
iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU
SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF
gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX
SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh
VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8=
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi
xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA
EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y
IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS
TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg==
"], "Byte", ColorSpace -> "RGB", ImageResolution -> 144,
Interleaving -> True]}, Background ->
RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued",
ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle ->
Directive[
RGBColor[0.921569, 0.341176, 0.105882],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False,
StripOnInput -> False]& )}],
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],
RowBox[{
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.5],
" "}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {Automatic, Automatic, Fit},
"Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"],
BoxMargins -> {{0.25, -0.5}, {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["FormEditValuesButtonTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{
TagBox[
PaneBox[
PaneSelectorBox[{False -> GraphicsBox[
TagBox[
RasterBox[CompressedData["
1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV
hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv
tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K
0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/
ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I
Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF
cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd
uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+
iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce
7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0
ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6
q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT
yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X
PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf
Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc
8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft
RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ
cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk
fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn
QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU
mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o
Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR
kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM
3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6
7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja
xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58
MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW
x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF
fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B
fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+
Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk
dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe
TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf
IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx
N3kqZvY=
"], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction ->
GrayLevel],
BoxForm`ImageTag[
"Byte", ColorSpace -> "Grayscale", Interleaving -> False],
Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}],
True -> GraphicsBox[
TagBox[
RasterBox[CompressedData["
1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf
YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs
Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb
1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh
WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u
t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E
+1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ
4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS
X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ
t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse
nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/
cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr
qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC
9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz
LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf
gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp
pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV
cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4
5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG
VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO
YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP
DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN
/AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF
N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11
4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7
U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf
gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU
Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu
/S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h
pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx
HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+
Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N
/4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy//
DcvuuIyle//vxt/PCE6d
"], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction ->
GrayLevel],
BoxForm`ImageTag[
"Byte", ColorSpace -> "Grayscale", Interleaving -> False],
Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
ImageSizeRaw -> {50., 50.},
PlotRange -> {{0, 50.}, {0, 50.}}]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins ->
0], ImageSize -> {Automatic, 15}, ImageSizeAction ->
"ResizeToFit"],
MouseAppearanceTag["LinkHand"]], "\"Edit values\""},
"PrettyTooltipTemplate"]& )}],
Cell["Documentation", "Section"],
Cell["Usage", "Subsection"],
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["Details & Options", "Subsection"],
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["Examples", "Subsection"],
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.906]],
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["ExampleImage"], PageWidth :> 650,
CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel ->
False, MenuSortingValue -> 10000,
RasterBoxOptions -> {ImageEditMode -> False}],
Cell["Links", "Section"],
Cell[
StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[
If[
CurrentValue["MouseOver"],
RGBColor[0.855, 0.396, 0.145],
RGBColor[0.02, 0.286, 0.651]]]],
Cell[
StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]],
FontColor -> Dynamic[
If[
CurrentValue["MouseOver"],
RGBColor[0.969, 0.467, 0.],
GrayLevel[0.467]]]],
Cell[
StyleData["CharactersRefLink"], ShowSpecialCharacters -> False],
Cell["Annotation", "Section"],
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, CellFrameLabels -> {{None,
Cell[
BoxData[
TemplateBox[{
StyleBox[
"\"excluded\"", "ExcludedCellLabel", StripOnInput -> False],
"\"Excluded cells will not appear anywhere in the published \
resource except for the definition notebook\""}, "PrettyTooltipTemplate"]],
"ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None,
Background -> RGBColor[1, 0.95, 0.95]],
Cell[
StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]],
ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize ->
9, FontWeight -> Plain, FontSlant -> Italic, FontColor ->
RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None],
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.982, 0.942, 0.871]],
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.905, 0.926, 0.956]],
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.934, 0.954, 0.879]],
Cell[
StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]],
ShowStringCharacters -> False, FontSlant -> "Italic", FontColor ->
GrayLevel[0.5]],
Cell["Special Input", "Section"],
Cell[
StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}],
Cell[
StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]],
CellFrameLabels -> {{None,
Cell[
BoxData[
ButtonBox[
"\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}},
BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic,
Method -> "Queued", ButtonFunction :>
With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell =
ParentCell[
EvaluationCell[]]},
If[
RSNB`file =!= $Canceled,
SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[
Notebooks[RSNB`cell],
RowBox[{"File", "[",
ToBoxes[RSNB`file], "]"}]]]], Appearance :>
FEPrivate`FrontEndResource[
"FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, {
None, None}}],
Cell[
StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]],
CellFrameLabels -> {{None,
Cell[
BoxData[
ButtonBox[
"\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}},
BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic,
Method -> "Queued", ButtonFunction :>
With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell =
ParentCell[
EvaluationCell[]]},
If[
RSNB`file =!= $Canceled,
SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[
Notebooks[RSNB`cell],
RowBox[{"File", "[",
ToBoxes[RSNB`file], "]"}]]]], Appearance :>
FEPrivate`FrontEndResource[
"FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, {
None, None}}],
Cell["Misc", "Section"],
Cell[
StyleData["Item"], DefaultNewCellStyle -> "Item"],
Cell[
StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11,
FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]],
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["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background ->
GrayLevel[0.9]]}, Visible -> False, FrontEndVersion ->
"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions ->
"PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"Name"->{
Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"0885626b-c1d4-4526-93cd-12d13f0d29a1",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->732081500]},
"TemplateCell"->{
Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"0885626b-c1d4-4526-93cd-12d13f0d29a1",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->732081500],
Cell[732, 27, 173, 5, 70, "Text",ExpressionUUID->"74b860ca-ca74-4ee3-9974-447fe2f42c9e",
CellTags->{"Description", "TemplateCell"},
CellID->45471754]},
"Title"->{
Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"0885626b-c1d4-4526-93cd-12d13f0d29a1",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->732081500]},
"Description"->{
Cell[732, 27, 173, 5, 70, "Text",ExpressionUUID->"74b860ca-ca74-4ee3-9974-447fe2f42c9e",
CellTags->{"Description", "TemplateCell"},
CellID->45471754]},
"Definition"->{
Cell[930, 36, 1206, 29, 70, "Section",ExpressionUUID->"8d00839d-9a1c-494a-9eb8-3fc4f6e19c42",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326]},
"Function"->{
Cell[930, 36, 1206, 29, 70, "Section",ExpressionUUID->"8d00839d-9a1c-494a-9eb8-3fc4f6e19c42",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326]},
"TemplateCellGroup"->{
Cell[930, 36, 1206, 29, 70, "Section",ExpressionUUID->"8d00839d-9a1c-494a-9eb8-3fc4f6e19c42",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326],
Cell[127074, 3442, 1980, 50, 70, "Subsection",ExpressionUUID->"72af61bb-5b2d-4509-a5e7-14d2b59c00a9",
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310],
Cell[129940, 3536, 1429, 32, 70, "Subsection",ExpressionUUID->"37e179e7-6cab-4d1e-b8ac-f64ebecdc2da",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236],
Cell[134021, 3664, 7029, 152, 70, "Section",ExpressionUUID->"c3488754-e258-4616-abef-f17167869dcd",
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011],
Cell[208886, 5415, 1026, 26, 70, "Subsection",ExpressionUUID->"0c448b2a-1342-467e-abe7-511b2d771c52",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256],
Cell[210002, 5449, 996, 26, 70, "Subsection",ExpressionUUID->"bbb02158-17a1-48c0-aea0-9072bd928298",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425],
Cell[211174, 5489, 221, 6, 70, "Subsection",ExpressionUUID->"9e3c7340-f4f3-4859-a615-28e1d4eac18c",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[219923, 5759, 980, 26, 70, "Subsection",ExpressionUUID->"702f9c5f-4f5e-4700-bfaf-6116d8601914",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169],
Cell[221039, 5796, 1039, 26, 70, "Subsection",ExpressionUUID->"d4c46c02-1e8e-4470-9f13-6ba0a8ef806b",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472],
Cell[222217, 5833, 1084, 26, 70, "Subsection",ExpressionUUID->"6669afe5-7e63-4b14-9472-7390936be073",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552],
Cell[223857, 5874, 923, 26, 70, "Subsection",ExpressionUUID->"b0f74030-38ba-4212-8b8d-6bd06abebbd1",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773],
Cell[225325, 5915, 1874, 45, 70, "Subsection",ExpressionUUID->"7c097af1-e0a8-4220-9cfb-9a7a690985aa",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448],
Cell[227429, 5972, 955, 25, 70, "Subsection",ExpressionUUID->"02c22b43-8f92-41bf-9e2f-d604058bdef1",
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822],
Cell[228409, 6001, 1174, 31, 70, "Subsubsection",ExpressionUUID->"f5c99c63-e77f-49ff-b8cd-7599df64966f",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016],
Cell[229712, 6041, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bc184707-8872-4f4c-9a78-055a9e912e0a",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[232963, 6139, 1280, 33, 70, "Subsubsection",ExpressionUUID->"9a44ce93-8d4f-4621-bf58-fbfa5f25b4e5",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[236432, 6242, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7f916f45-aa2e-4dff-9210-4d1ffa2b0eab",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[242371, 6412, 1071, 27, 70, "Subsubsection",ExpressionUUID->"eb4fc641-2f4a-4fab-b249-0a3e1dfe5cc2",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[244724, 6484, 1155, 28, 70, "Section",ExpressionUUID->"0c2b1ff5-e963-4cc6-a339-b6713d0a0832",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591],
Cell[246448, 6527, 1033, 26, 70, "Section",ExpressionUUID->"7d8c375a-1502-446c-8d87-38311ca0d598",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765]},
"Documentation"->{
Cell[126854, 3433, 195, 5, 70, "Section",ExpressionUUID->"99717d79-4bfe-4dcf-9cc3-9f4bbba1ab40",
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307]},
"TemplateSection"->{
Cell[126854, 3433, 195, 5, 70, "Section",ExpressionUUID->"99717d79-4bfe-4dcf-9cc3-9f4bbba1ab40",
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307],
Cell[208612, 5406, 249, 5, 70, "Section",ExpressionUUID->"03adfe3a-959c-4e71-b8a5-4f0af9fc069e",
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116]},
"Usage"->{
Cell[127074, 3442, 1980, 50, 70, "Subsection",ExpressionUUID->"72af61bb-5b2d-4509-a5e7-14d2b59c00a9",
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310]},
"Details & Options"->{
Cell[129940, 3536, 1429, 32, 70, "Subsection",ExpressionUUID->"37e179e7-6cab-4d1e-b8ac-f64ebecdc2da",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236]},
"Notes"->{
Cell[129940, 3536, 1429, 32, 70, "Subsection",ExpressionUUID->"37e179e7-6cab-4d1e-b8ac-f64ebecdc2da",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236]},
"TabNext"->{
Cell[131372, 3570, 750, 24, 70, "Notes",ExpressionUUID->"56526050-524d-4c00-a552-b2253597f151",
CellTags->"TabNext",
CellID->349543592],
Cell[223304, 5861, 516, 8, 70, "Text",ExpressionUUID->"963393b0-c2d9-4728-8dea-16cdf2de3fb7",
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423],
Cell[224783, 5902, 505, 8, 70, "Item",ExpressionUUID->"c18ab7db-90c9-4b0f-87d8-d730d96c79a7",
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746],
Cell[245882, 6514, 529, 8, 70, "Text",ExpressionUUID->"a3fe0c7c-e4c1-43ac-98a3-69cd81801639",
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487],
Cell[247484, 6555, 515, 8, 70, "Text",ExpressionUUID->"791fc68b-8e08-478c-99fb-1e66de455281",
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]},
"Examples"->{
Cell[134021, 3664, 7029, 152, 70, "Section",ExpressionUUID->"c3488754-e258-4616-abef-f17167869dcd",
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011]},
"Source & Additional Information"->{
Cell[208612, 5406, 249, 5, 70, "Section",ExpressionUUID->"03adfe3a-959c-4e71-b8a5-4f0af9fc069e",
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116]},
"Contributed By"->{
Cell[208886, 5415, 1026, 26, 70, "Subsection",ExpressionUUID->"0c448b2a-1342-467e-abe7-511b2d771c52",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256]},
"ContributorInformation"->{
Cell[208886, 5415, 1026, 26, 70, "Subsection",ExpressionUUID->"0c448b2a-1342-467e-abe7-511b2d771c52",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256]},
"Keywords"->{
Cell[210002, 5449, 996, 26, 70, "Subsection",ExpressionUUID->"bbb02158-17a1-48c0-aea0-9072bd928298",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425]},
"Categories"->{
Cell[211174, 5489, 221, 6, 70, "Subsection",ExpressionUUID->"9e3c7340-f4f3-4859-a615-28e1d4eac18c",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[211398, 5497, 8488, 257, 70, "Output",ExpressionUUID->"58b39087-41f0-4026-baa7-c83719a77d53",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->579526295]},
"Categories-Checkboxes"->{
Cell[211398, 5497, 8488, 257, 70, "Output",ExpressionUUID->"58b39087-41f0-4026-baa7-c83719a77d53",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->579526295]},
"CheckboxCell"->{
Cell[211398, 5497, 8488, 257, 70, "Output",ExpressionUUID->"58b39087-41f0-4026-baa7-c83719a77d53",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->579526295],
Cell[230828, 6072, 2098, 62, 70, "Output",ExpressionUUID->"ed35133c-092a-4123-a8b6-af053f6eade6",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->589765368],
Cell[234246, 6174, 2149, 63, 70, "Output",ExpressionUUID->"8900d488-bc3f-410c-bd42-eb87dabcc63a",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->851691753],
Cell[238348, 6290, 3986, 117, 70, "Output",ExpressionUUID->"54647e67-8e6d-4d84-bfe7-d500f494d47f",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->71422750],
Cell[243445, 6441, 1218, 36, 70, "Output",ExpressionUUID->"22fda77e-dd09-4cbb-99f5-1411649aa48d",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->131115484]},
"Related Symbols"->{
Cell[219923, 5759, 980, 26, 70, "Subsection",ExpressionUUID->"702f9c5f-4f5e-4700-bfaf-6116d8601914",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169]},
"Related Resource Objects"->{
Cell[221039, 5796, 1039, 26, 70, "Subsection",ExpressionUUID->"d4c46c02-1e8e-4470-9f13-6ba0a8ef806b",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472]},
"Source/Reference Citation"->{
Cell[222217, 5833, 1084, 26, 70, "Subsection",ExpressionUUID->"6669afe5-7e63-4b14-9472-7390936be073",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552]},
"DefaultContent"->{
Cell[223304, 5861, 516, 8, 70, "Text",ExpressionUUID->"963393b0-c2d9-4728-8dea-16cdf2de3fb7",
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423],
Cell[224783, 5902, 505, 8, 70, "Item",ExpressionUUID->"c18ab7db-90c9-4b0f-87d8-d730d96c79a7",
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746],
Cell[229586, 6034, 89, 2, 70, "Text",ExpressionUUID->"f302d132-89ce-4f0b-88f1-b071f25f70e9",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768],
Cell[245882, 6514, 529, 8, 70, "Text",ExpressionUUID->"a3fe0c7c-e4c1-43ac-98a3-69cd81801639",
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487],
Cell[247484, 6555, 515, 8, 70, "Text",ExpressionUUID->"791fc68b-8e08-478c-99fb-1e66de455281",
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]},
"Links"->{
Cell[223857, 5874, 923, 26, 70, "Subsection",ExpressionUUID->"b0f74030-38ba-4212-8b8d-6bd06abebbd1",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773]},
"Tests"->{
Cell[225325, 5915, 1874, 45, 70, "Subsection",ExpressionUUID->"7c097af1-e0a8-4220-9cfb-9a7a690985aa",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448]},
"VerificationTests"->{
Cell[225325, 5915, 1874, 45, 70, "Subsection",ExpressionUUID->"7c097af1-e0a8-4220-9cfb-9a7a690985aa",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448]},
"Compatibility"->{
Cell[227429, 5972, 955, 25, 70, "Subsection",ExpressionUUID->"02c22b43-8f92-41bf-9e2f-d604058bdef1",
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822]},
"CompatibilityWolframLanguageVersionRequired"->{
Cell[228409, 6001, 1174, 31, 70, "Subsubsection",ExpressionUUID->"f5c99c63-e77f-49ff-b8cd-7599df64966f",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016]},
"Wolfram Language Version"->{
Cell[228409, 6001, 1174, 31, 70, "Subsubsection",ExpressionUUID->"f5c99c63-e77f-49ff-b8cd-7599df64966f",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016]},
"ScrapeDefault"->{
Cell[229586, 6034, 89, 2, 70, "Text",ExpressionUUID->"f302d132-89ce-4f0b-88f1-b071f25f70e9",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768]},
"CompatibilityOperatingSystem"->{
Cell[229712, 6041, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bc184707-8872-4f4c-9a78-055a9e912e0a",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[230828, 6072, 2098, 62, 70, "Output",ExpressionUUID->"ed35133c-092a-4123-a8b6-af053f6eade6",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->589765368]},
"Operating System"->{
Cell[229712, 6041, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bc184707-8872-4f4c-9a78-055a9e912e0a",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406]},
"CompatibilityOperatingSystem-Checkboxes"->{
Cell[230828, 6072, 2098, 62, 70, "Output",ExpressionUUID->"ed35133c-092a-4123-a8b6-af053f6eade6",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->589765368]},
"CompatibilityFeatures"->{
Cell[232963, 6139, 1280, 33, 70, "Subsubsection",ExpressionUUID->"9a44ce93-8d4f-4621-bf58-fbfa5f25b4e5",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[234246, 6174, 2149, 63, 70, "Output",ExpressionUUID->"8900d488-bc3f-410c-bd42-eb87dabcc63a",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->851691753]},
"Required Features"->{
Cell[232963, 6139, 1280, 33, 70, "Subsubsection",ExpressionUUID->"9a44ce93-8d4f-4621-bf58-fbfa5f25b4e5",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156]},
"CompatibilityFeatures-Checkboxes"->{
Cell[234246, 6174, 2149, 63, 70, "Output",ExpressionUUID->"8900d488-bc3f-410c-bd42-eb87dabcc63a",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->851691753]},
"CompatibilityEvaluationEnvironment"->{
Cell[236432, 6242, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7f916f45-aa2e-4dff-9210-4d1ffa2b0eab",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[238348, 6290, 3986, 117, 70, "Output",ExpressionUUID->"54647e67-8e6d-4d84-bfe7-d500f494d47f",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->71422750]},
"Environments"->{
Cell[236432, 6242, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7f916f45-aa2e-4dff-9210-4d1ffa2b0eab",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563]},
"CompatibilityEvaluationEnvironment-Checkboxes"->{
Cell[238348, 6290, 3986, 117, 70, "Output",ExpressionUUID->"54647e67-8e6d-4d84-bfe7-d500f494d47f",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->71422750]},
"Cloud Support"->{
Cell[242371, 6412, 1071, 27, 70, "Subsubsection",ExpressionUUID->"eb4fc641-2f4a-4fab-b249-0a3e1dfe5cc2",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371]},
"CompatibilityCloudSupport"->{
Cell[242371, 6412, 1071, 27, 70, "Subsubsection",ExpressionUUID->"eb4fc641-2f4a-4fab-b249-0a3e1dfe5cc2",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[243445, 6441, 1218, 36, 70, "Output",ExpressionUUID->"22fda77e-dd09-4cbb-99f5-1411649aa48d",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->131115484]},
"CompatibilityCloudSupport-Checkboxes"->{
Cell[243445, 6441, 1218, 36, 70, "Output",ExpressionUUID->"22fda77e-dd09-4cbb-99f5-1411649aa48d",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->131115484]},
"Author Notes"->{
Cell[244724, 6484, 1155, 28, 70, "Section",ExpressionUUID->"0c2b1ff5-e963-4cc6-a339-b6713d0a0832",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591]},
"Submission Notes"->{
Cell[246448, 6527, 1033, 26, 70, "Section",ExpressionUUID->"7d8c375a-1502-446c-8d87-38311ca0d598",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"Name", 371004, 8883},
{"TemplateCell", 371186, 8887},
{"Title", 371520, 8894},
{"Description", 371701, 8898},
{"Definition", 371878, 8902},
{"Function", 372074, 8906},
{"TemplateCellGroup", 372279, 8910},
{"Documentation", 376139, 8971},
{"TemplateSection", 376335, 8975},
{"Usage", 376712, 8982},
{"Details & Options", 376909, 8986},
{"Notes", 377115, 8990},
{"TabNext", 377323, 8994},
{"Examples", 378136, 9010},
{"Source & Additional Information", 378348, 9014},
{"Contributed By", 378561, 9018},
{"ContributorInformation", 378797, 9022},
{"Keywords", 379019, 9026},
{"Categories", 379211, 9030},
{"Categories-Checkboxes", 379609, 9037},
{"CheckboxCell", 379823, 9041},
{"Related Symbols", 380948, 9057},
{"Related Resource Objects", 381161, 9061},
{"Source/Reference Citation", 381385, 9065},
{"DefaultContent", 381599, 9069},
{"Links", 382432, 9085},
{"Tests", 382616, 9089},
{"VerificationTests", 382834, 9093},
{"Compatibility", 383048, 9097},
{"CompatibilityWolframLanguageVersionRequired", 383278, 9101},
{"Wolfram Language Version", 383551, 9105},
{"ScrapeDefault", 383813, 9109},
{"CompatibilityOperatingSystem", 384017, 9113},
{"Operating System", 384488, 9120},
{"CompatibilityOperatingSystem-Checkboxes", 384753, 9124},
{"CompatibilityFeatures", 385011, 9128},
{"Required Features", 385463, 9135},
{"CompatibilityFeatures-Checkboxes", 385715, 9139},
{"CompatibilityEvaluationEnvironment", 385972, 9143},
{"Environments", 386453, 9150},
{"CompatibilityEvaluationEnvironment-Checkboxes", 386726, 9154},
{"Cloud Support", 386988, 9158},
{"CompatibilityCloudSupport", 387233, 9162},
{"CompatibilityCloudSupport-Checkboxes", 387712, 9169},
{"Author Notes", 387955, 9173},
{"Submission Notes", 388155, 9177}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"0885626b-c1d4-4526-93cd-12d13f0d29a1",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->732081500],
Cell[732, 27, 173, 5, 70, "Text",ExpressionUUID->"74b860ca-ca74-4ee3-9974-447fe2f42c9e",
CellTags->{"Description", "TemplateCell"},
CellID->45471754],
Cell[CellGroupData[{
Cell[930, 36, 1206, 29, 70, "Section",ExpressionUUID->"8d00839d-9a1c-494a-9eb8-3fc4f6e19c42",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326],
Cell[2139, 67, 7751, 205, 70, "Input",ExpressionUUID->"c0fa1b8f-8c32-4955-be23-60c76f6dd058",
CellID->309325391],
Cell[9893, 274, 6775, 170, 70, "Input",ExpressionUUID->"c7b8238c-f0f5-4556-84e0-f2ff1939a472",
CellID->339259382],
Cell[16671, 446, 4910, 130, 70, "Input",ExpressionUUID->"fe20182c-ae87-4b10-b952-3f871556bede",
CellID->963935420],
Cell[21584, 578, 9538, 246, 70, "Input",ExpressionUUID->"802a781b-bb9f-4aed-a675-308c5b271f13",
CellID->30876889],
Cell[31125, 826, 1745, 41, 70, "Input",ExpressionUUID->"fea751fe-6e7b-4ff9-9243-bd8e79fda298",
CellID->474413700],
Cell[32873, 869, 34040, 922, 70, "Input",ExpressionUUID->"f864c35f-aa21-4974-b6d8-753e02811565",
CellID->691814216],
Cell[66916, 1793, 1144, 28, 70, "Input",ExpressionUUID->"ee405105-011c-4f0b-bccf-dcf1451f3072",
CellID->296596398],
Cell[68063, 1823, 576, 11, 70, "Input",ExpressionUUID->"3cc24c57-7319-4a09-9bd0-809d55950b49",
CellID->607152602],
Cell[68642, 1836, 799, 21, 70, "Input",ExpressionUUID->"b95e6766-99bb-47b9-b9da-002f97f7719a",
CellID->308897624],
Cell[69444, 1859, 4331, 136, 70, "Input",ExpressionUUID->"e96b685e-dce5-4b07-b889-0926072297a8",
CellID->401754060],
Cell[73778, 1997, 1512, 42, 70, "Input",ExpressionUUID->"4a583bce-18e1-4529-b28d-55c0aaf67c98",
CellID->49927783],
Cell[75293, 2041, 16265, 446, 70, "Input",ExpressionUUID->"5b0d8c4d-4c1b-4a57-9662-a9daa0c6653b",
CellID->282618623],
Cell[91561, 2489, 2375, 64, 70, "Input",ExpressionUUID->"928458e5-0d7e-403d-87e1-3a1c43c3e0ef",
CellID->76137508],
Cell[93939, 2555, 1211, 31, 70, "Input",ExpressionUUID->"840d9656-f424-4390-81be-cd8de6b0b3e0",
CellID->31087761],
Cell[95153, 2588, 3446, 102, 70, "Input",ExpressionUUID->"cfb78d55-db4c-4133-bf3c-f956ca67dff0",
CellID->244375970],
Cell[98602, 2692, 5495, 138, 70, "Input",ExpressionUUID->"3fac965d-7155-4a1e-b0a6-447b96cfe863",
CellID->845360447],
Cell[104100, 2832, 1864, 47, 70, "Input",ExpressionUUID->"b423a4be-d5e0-4309-ad87-c725990f1086",
CellID->413871647],
Cell[105967, 2881, 581, 12, 70, "Input",ExpressionUUID->"0c92ade6-cd9a-438a-bbd5-ed842bc7989e",
CellID->693073784],
Cell[106551, 2895, 3279, 80, 70, "Input",ExpressionUUID->"87ac3c41-5f96-43e7-a50a-20bb9c92e26c",
CellID->604930458],
Cell[109833, 2977, 3945, 110, 70, "Input",ExpressionUUID->"94b1855c-db6e-47ab-84ef-86cd2b8dd16c",
CellID->469943170],
Cell[113781, 3089, 9374, 230, 70, "Input",ExpressionUUID->"2bb09b0c-7c02-46c7-a6c5-324363edd168",
CellID->365349366],
Cell[123158, 3321, 3659, 107, 70, "Input",ExpressionUUID->"e889937b-69e3-4dcd-bef8-78214007ec58",
CellID->956736084]
}, Open ]],
Cell[CellGroupData[{
Cell[126854, 3433, 195, 5, 70, "Section",ExpressionUUID->"99717d79-4bfe-4dcf-9cc3-9f4bbba1ab40",
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307],
Cell[CellGroupData[{
Cell[127074, 3442, 1980, 50, 70, "Subsection",ExpressionUUID->"72af61bb-5b2d-4509-a5e7-14d2b59c00a9",
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310],
Cell[CellGroupData[{
Cell[129079, 3496, 147, 4, 70, "UsageInputs",ExpressionUUID->"21ba20dd-bdf6-41ca-ad77-ba35e27dfbcd",
CellID->764821153],
Cell[129229, 3502, 246, 8, 70, "UsageDescription",ExpressionUUID->"9fd31f53-4ddb-4eae-9122-b983e1bd277e",
CellID->725045553]
}, Open ]],
Cell[CellGroupData[{
Cell[129512, 3515, 193, 6, 70, "UsageInputs",ExpressionUUID->"2d4a411e-a976-4a7d-bb26-86f059565a4f",
CellID->42960790],
Cell[129708, 3523, 183, 7, 70, "UsageDescription",ExpressionUUID->"f7a0daff-00f9-4230-8a89-8165bca208b3",
CellID->197161732]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[129940, 3536, 1429, 32, 70, "Subsection",ExpressionUUID->"37e179e7-6cab-4d1e-b8ac-f64ebecdc2da",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236],
Cell[131372, 3570, 750, 24, 70, "Notes",ExpressionUUID->"56526050-524d-4c00-a552-b2253597f151",
CellTags->"TabNext",
CellID->349543592],
Cell[132125, 3596, 1160, 39, 70, "Notes",ExpressionUUID->"452b249d-26d7-4986-823d-04fcef4ae972",
CellID->823009216],
Cell[133288, 3637, 172, 5, 70, "Notes",ExpressionUUID->"d0338951-ae89-4739-9032-d275e201d2eb",
CellID->409670135],
Cell[133463, 3644, 272, 6, 70, "TableNotes",ExpressionUUID->"12366764-d42c-480f-93f6-e3d5bd131dc1",
CellID->301361063],
Cell[133738, 3652, 234, 6, 70, "Notes",ExpressionUUID->"dd0c2cd8-bcf3-4175-90a6-73cc01225b84",
CellID->402689756]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[134021, 3664, 7029, 152, 70, "Section",ExpressionUUID->"c3488754-e258-4616-abef-f17167869dcd",
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011],
Cell[CellGroupData[{
Cell[141075, 3820, 75, 2, 70, "Subsection",ExpressionUUID->"3eb5531b-9ecc-4771-ac4b-d2d6ea958462",
CellID->904125756],
Cell[141153, 3824, 297, 7, 70, "Text",ExpressionUUID->"15f88bf2-d183-45ea-9f54-c7902ea0c862",
CellID->937779090],
Cell[CellGroupData[{
Cell[141475, 3835, 189, 5, 70, "Input",ExpressionUUID->"0d98c8d4-8616-4c47-92ab-a67780c4c5e7",
CellID->469096015],
Cell[141667, 3842, 2556, 59, 70, "Output",ExpressionUUID->"3c0495e2-83da-4fb9-861d-826eb5cc8947",
CellID->474714960]
}, Open ]],
Cell[CellGroupData[{
Cell[144260, 3906, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"72f5bb2a-5658-4b7a-adb9-969cd223530f",
CellID->14107562],
Cell[144406, 3912, 208, 6, 70, "Text",ExpressionUUID->"92dd1ee7-671f-4dab-9e9b-37ff830ab5fe",
CellID->372405303],
Cell[CellGroupData[{
Cell[144639, 3922, 214, 5, 70, "Input",ExpressionUUID->"0e659d7c-b13a-4c43-9614-4fe08c615031",
CellID->944237020],
Cell[144856, 3929, 34030, 778, 70, "Output",ExpressionUUID->"a9db6395-0600-4210-bbf9-9acb605a775e",
CellID->387957271]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[178947, 4714, 66, 2, 70, "Subsection",ExpressionUUID->"57d4011e-7fdf-4ce9-8352-26e265063a76",
CellID->204653245],
Cell[179016, 4718, 309, 8, 70, "Text",ExpressionUUID->"66389986-1eaf-4e3b-8fe4-131854a62c01",
CellID->89314876],
Cell[CellGroupData[{
Cell[179350, 4730, 164, 4, 70, "Input",ExpressionUUID->"df020d79-d7f4-46a0-8c8f-f4e54dcfe5e4",
CellID->7276340],
Cell[179517, 4736, 230, 6, 70, "Output",ExpressionUUID->"3a05ff73-20a5-4c08-b679-ee4e59995119",
CellID->946850890]
}, Open ]],
Cell[CellGroupData[{
Cell[179784, 4747, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"57af185f-efe8-4bda-8684-662eb0dc1e62",
CellID->14107563],
Cell[179930, 4753, 743, 22, 70, "Text",ExpressionUUID->"61723c3c-7801-40ba-aec5-c4e6609dd6d2",
CellID->419067492],
Cell[CellGroupData[{
Cell[180698, 4779, 444, 10, 70, "Input",ExpressionUUID->"3d98ba0e-7112-4f8f-9b8e-2c38e29f48ed",
CellID->180187369],
Cell[181145, 4791, 27394, 607, 70, "Output",ExpressionUUID->"f89433cf-9924-48bf-a119-041c84d33798",
CellID->235889243]
}, Open ]]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[208612, 5406, 249, 5, 70, "Section",ExpressionUUID->"03adfe3a-959c-4e71-b8a5-4f0af9fc069e",
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116],
Cell[CellGroupData[{
Cell[208886, 5415, 1026, 26, 70, "Subsection",ExpressionUUID->"0c448b2a-1342-467e-abe7-511b2d771c52",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256],
Cell[209915, 5443, 50, 1, 70, "Text",ExpressionUUID->"4cbbb61c-0233-4329-b799-4046985d64d9",
CellID->360498248]
}, Open ]],
Cell[CellGroupData[{
Cell[210002, 5449, 996, 26, 70, "Subsection",ExpressionUUID->"bbb02158-17a1-48c0-aea0-9072bd928298",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425],
Cell[211001, 5477, 43, 1, 70, "Item",ExpressionUUID->"42e83397-cdd3-434f-9194-e170d03737dc",
CellID->790269111],
Cell[211047, 5480, 44, 1, 70, "Item",ExpressionUUID->"7a741a9b-519e-408f-bfb1-90ce69551b69",
CellID->720224362],
Cell[211094, 5483, 43, 1, 70, "Item",ExpressionUUID->"05a82d00-e939-4c0f-b595-ea5b6aa8a1bd",
CellID->434074531]
}, Open ]],
Cell[CellGroupData[{
Cell[211174, 5489, 221, 6, 70, "Subsection",ExpressionUUID->"9e3c7340-f4f3-4859-a615-28e1d4eac18c",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[211398, 5497, 8488, 257, 70, "Output",ExpressionUUID->"58b39087-41f0-4026-baa7-c83719a77d53",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->579526295]
}, Open ]],
Cell[CellGroupData[{
Cell[219923, 5759, 980, 26, 70, "Subsection",ExpressionUUID->"702f9c5f-4f5e-4700-bfaf-6116d8601914",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169],
Cell[220906, 5787, 47, 1, 70, "Item",ExpressionUUID->"ff82e010-febb-4038-a3af-84c25e67c98b",
CellID->56362438],
Cell[220956, 5790, 46, 1, 70, "Item",ExpressionUUID->"b5e74fc3-88d6-439c-b737-b288d25d2e0b",
CellID->808734181]
}, Open ]],
Cell[CellGroupData[{
Cell[221039, 5796, 1039, 26, 70, "Subsection",ExpressionUUID->"d4c46c02-1e8e-4470-9f13-6ba0a8ef806b",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472],
Cell[222081, 5824, 44, 1, 70, "Item",ExpressionUUID->"fd76f7f9-dbe4-4202-bb45-bee8ad9cde46",
CellID->593745188],
Cell[222128, 5827, 52, 1, 70, "Item",ExpressionUUID->"4571f89f-5d23-4fda-beeb-28ba8649e80d",
CellID->497576271]
}, Open ]],
Cell[CellGroupData[{
Cell[222217, 5833, 1084, 26, 70, "Subsection",ExpressionUUID->"6669afe5-7e63-4b14-9472-7390936be073",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552],
Cell[223304, 5861, 516, 8, 70, "Text",ExpressionUUID->"963393b0-c2d9-4728-8dea-16cdf2de3fb7",
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423]
}, Open ]],
Cell[CellGroupData[{
Cell[223857, 5874, 923, 26, 70, "Subsection",ExpressionUUID->"b0f74030-38ba-4212-8b8d-6bd06abebbd1",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773],
Cell[224783, 5902, 505, 8, 70, "Item",ExpressionUUID->"c18ab7db-90c9-4b0f-87d8-d730d96c79a7",
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746]
}, Open ]],
Cell[CellGroupData[{
Cell[225325, 5915, 1874, 45, 70, "Subsection",ExpressionUUID->"7c097af1-e0a8-4220-9cfb-9a7a690985aa",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448],
Cell[227202, 5962, 190, 5, 70, "Output",ExpressionUUID->"93a72bf4-0a2a-4d56-bbdc-fd9084a1928e",
CellID->660885038]
}, Open ]],
Cell[CellGroupData[{
Cell[227429, 5972, 955, 25, 70, "Subsection",ExpressionUUID->"02c22b43-8f92-41bf-9e2f-d604058bdef1",
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822],
Cell[CellGroupData[{
Cell[228409, 6001, 1174, 31, 70, "Subsubsection",ExpressionUUID->"f5c99c63-e77f-49ff-b8cd-7599df64966f",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016],
Cell[229586, 6034, 89, 2, 70, "Text",ExpressionUUID->"f302d132-89ce-4f0b-88f1-b071f25f70e9",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768]
}, Open ]],
Cell[CellGroupData[{
Cell[229712, 6041, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bc184707-8872-4f4c-9a78-055a9e912e0a",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[230828, 6072, 2098, 62, 70, "Output",ExpressionUUID->"ed35133c-092a-4123-a8b6-af053f6eade6",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->589765368]
}, Closed]],
Cell[CellGroupData[{
Cell[232963, 6139, 1280, 33, 70, "Subsubsection",ExpressionUUID->"9a44ce93-8d4f-4621-bf58-fbfa5f25b4e5",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[234246, 6174, 2149, 63, 70, "Output",ExpressionUUID->"8900d488-bc3f-410c-bd42-eb87dabcc63a",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->851691753]
}, Closed]],
Cell[CellGroupData[{
Cell[236432, 6242, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7f916f45-aa2e-4dff-9210-4d1ffa2b0eab",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[238348, 6290, 3986, 117, 70, "Output",ExpressionUUID->"54647e67-8e6d-4d84-bfe7-d500f494d47f",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->71422750]
}, Closed]],
Cell[CellGroupData[{
Cell[242371, 6412, 1071, 27, 70, "Subsubsection",ExpressionUUID->"eb4fc641-2f4a-4fab-b249-0a3e1dfe5cc2",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[243445, 6441, 1218, 36, 70, "Output",ExpressionUUID->"22fda77e-dd09-4cbb-99f5-1411649aa48d",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->131115484]
}, Closed]]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[244724, 6484, 1155, 28, 70, "Section",ExpressionUUID->"0c2b1ff5-e963-4cc6-a339-b6713d0a0832",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591],
Cell[245882, 6514, 529, 8, 70, "Text",ExpressionUUID->"a3fe0c7c-e4c1-43ac-98a3-69cd81801639",
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487]
}, Open ]],
Cell[CellGroupData[{
Cell[246448, 6527, 1033, 26, 70, "Section",ExpressionUUID->"7d8c375a-1502-446c-8d87-38311ca0d598",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765],
Cell[247484, 6555, 515, 8, 70, "Text",ExpressionUUID->"791fc68b-8e08-478c-99fb-1e66de455281",
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)
Raw
FlightsOverhead-examples.nb
Notebook[{Cell[
CellGroupData[{Cell[
TextData[{"Basic Examples","\[NonBreakingSpace]",Cell[
"\<(2)\>","ExampleCount",ExpressionUUID -> "2ce56118-5ca1-40ac-a38a-d55aa590980b"],"\[NonBreakingSpace]"}],
"Subsection",CellID -> 904125756,ExpressionUUID -> "14eb9c6a-9b14-4745-94b2-8b8f61613788",
TaggingRules -> {}],Cell[
"\<Discover the flights currently overhead at the current location:\>",
"Text",CellChangeTimes -> {{3.812288845139318`*^9,3.812288856143364`*^9},{3.8203380780681324`*^9,3.8203380836241026`*^9},{3.850822009847271`*^9,3.8508220101426783`*^9}},
CellID -> 139905035,ExpressionUUID -> "32c2960f-fb91-4ca6-b83e-6b7e819c89a0",TaggingRules -> {}],Cell[
CellGroupData[
{Cell[
BoxData[RowBox[{InterpretationBox[TagBox[DynamicModuleBox[{Set[Typeset`open,
False]},FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[
AdjustmentBox["\"[\[FilledSmallSquare]]\"",BoxBaselineShift -> -0.25`,BoxMargins -> {{0,0},{-1,-1}}],
"ResourceFunctionIcon",FontColor -> RGBColor[0.8745098039215686`,0.2784313725490196`,
0.03137254901960784`]],ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",
FontSize -> Times[0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"],ImageSizeCache -> {11.`,{1.`,10.`}}],False -> DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps","IconizeOpener"],ImageSizeCache -> {11.`,{1.`,10.`}}]},Appearance -> None,
BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},BaselinePosition -> {1,1},
GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}],True -> GridBox[{{GridBox[
{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"",
BoxBaselineShift -> -0.25`,BoxMargins -> {{0,0},{-1,-1}}],"ResourceFunctionIcon",
FontColor -> RGBColor[0.8745098039215686`,0.2784313725490196`,0.03137254901960784`]],
ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",FontSize -> Times[
0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"]],False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps","IconizeOpener"]]},
Appearance -> None,BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],
Alignment -> Left,BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[
0.8313725490196079`,0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},
BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}]},{StyleBox[
PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"","IconizedLabel"]," ",TagBox[
"\"1.1.0\"","IconizedItem"]}]},{TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"","https://resources.wolframcloud.com/FunctionRepository/resources/d960ba65-e53a-4e40-8233-c4cd77d3b089/"},
"HyperlinkURL"],"IconizedItem"]}},DefaultBaseStyle -> "Column",GridBoxAlignment -> {"Columns" -> {{Left}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{5,4},{0,4}}],"DialogStyle",FontFamily -> "Roboto",
FontSize -> 11]}},BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxDividers -> {"Columns" -> {{None}},"Rows" -> {False,{GrayLevel[0.8`]},False}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}]},Dynamic[
Typeset`open],BaselinePosition -> Baseline,ImageSize -> Automatic],Background -> RGBColor[
0.9686274509803922`,0.9764705882352941`,0.984313725490196`],BaselinePosition -> Baseline,
DefaultBaseStyle -> {},FrameMargins -> {{0,0},{1,0}},FrameStyle -> RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`],RoundingRadius -> 4],ExpressionUUID -> "51dc3cad-23f5-4629-adbb-98734f4cf368"],
{"FunctionResourceBox",RGBColor[0.8745098039215686`,0.2784313725490196`,0.03137254901960784`],"FlightsOverhead"},
TagBoxNote -> "FunctionResourceBox"],ResourceFunction["FlightsOverhead"],BoxID -> "FlightsOverhead",
Selectable -> False],"[",RowBox[{"Here",",","\"Flights\""}],"]"}]],"Input",CellChangeTimes -> {3.812288842653101`*^9},
CellID -> 469096015,ExpressionUUID -> "a5aaf3cb-2972-4bd2-bd92-3ac5ea1c2c14",TaggingRules -> {}],Cell[
BoxData[
RowBox[{"{",RowBox[{TemplateBox[{"\"NetJets flight 319\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000089378\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000089378\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"American Airlines flight 2274\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000119606\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000119606\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"JetBlue Airways flight 723\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000092816\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000092816\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"202101080000110713\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000110713\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000110713\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"Delta Air Lines flight 324\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000098710\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000098710\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"GoJet Airlines flight 4603\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000108680\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000108680\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"Frontier Airlines flight 2038\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000100854\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000100854\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"Frontier Airlines flight 647\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000136189\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000136189\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"Bombardier Aerospace flight 552\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000078344\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000078344\\\"]\"","\"flight\""},
"Entity"]}],"}"}]],"Output",CellChangeTimes -> {3.812289771352116`*^9,3.819118657911673`*^9},
CellID -> 474714960,ExpressionUUID -> "f9b99bf1-833f-438e-aca2-89cd1efdb684",TaggingRules -> {}]},
Open],ExpressionUUID -> "d3c74ddf-e933-4ee2-8722-073edb7740da"],Cell[
CellGroupData[
{Cell[
BoxData[InterpretationBox[Cell[
"\< \>","ExampleDelimiter",ExpressionUUID -> "fc1ef244-5bd4-434f-8366-6038ce2678f5"],
CompoundExpression[Set[$Line,0],Null]]],"ExampleDelimiter",CellID -> 14107562,ExpressionUUID -> "b760c8f6-82c0-4e6e-bf68-9a687a425aeb",
TaggingRules -> {}],Cell[
"\<Obtain a sky map showing the current positions and paths of flights overhead:\>",
"Text",CellChangeTimes -> {{3.812288879218226`*^9,3.812288895694291`*^9}},CellID -> 372405303,
ExpressionUUID -> "0007c7bd-7e86-4120-a655-0a9dab744bd2",TaggingRules -> {}],Cell[
CellGroupData[
{Cell[
BoxData[RowBox[{InterpretationBox[TagBox[DynamicModuleBox[{Set[Typeset`open,
False]},FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[
AdjustmentBox["\"[\[FilledSmallSquare]]\"",BoxBaselineShift -> -0.25`,BoxMargins -> {{0,0},{-1,-1}}],
"ResourceFunctionIcon",FontColor -> RGBColor[0.8745098039215686`,0.2784313725490196`,
0.03137254901960784`]],ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",
FontSize -> Times[0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"],ImageSizeCache -> {11.`,{1.`,10.`}}],False -> DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps","IconizeOpener"],ImageSizeCache -> {11.`,{1.`,10.`}}]},Appearance -> None,
BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},BaselinePosition -> {1,1},
GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}],True -> GridBox[{{GridBox[
{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"",
BoxBaselineShift -> -0.25`,BoxMargins -> {{0,0},{-1,-1}}],"ResourceFunctionIcon",
FontColor -> RGBColor[0.8745098039215686`,0.2784313725490196`,0.03137254901960784`]],
ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",FontSize -> Times[
0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"]],False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps","IconizeOpener"]]},
Appearance -> None,BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],
Alignment -> Left,BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[
0.8313725490196079`,0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},
BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}]},{StyleBox[
PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"","IconizedLabel"]," ",TagBox[
"\"1.1.0\"","IconizedItem"]}]},{TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"","https://resources.wolframcloud.com/FunctionRepository/resources/d960ba65-e53a-4e40-8233-c4cd77d3b089/"},
"HyperlinkURL"],"IconizedItem"]}},DefaultBaseStyle -> "Column",GridBoxAlignment -> {"Columns" -> {{Left}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{5,4},{0,4}}],"DialogStyle",FontFamily -> "Roboto",
FontSize -> 11]}},BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxDividers -> {"Columns" -> {{None}},"Rows" -> {False,{GrayLevel[0.8`]},False}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}]},Dynamic[
Typeset`open],BaselinePosition -> Baseline,ImageSize -> Automatic],Background -> RGBColor[
0.9686274509803922`,0.9764705882352941`,0.984313725490196`],BaselinePosition -> Baseline,
DefaultBaseStyle -> {},FrameMargins -> {{0,0},{1,0}},FrameStyle -> RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`],RoundingRadius -> 4],ExpressionUUID -> "bed5a638-9669-4524-a2cd-8baa0988649a"],
{"FunctionResourceBox",RGBColor[0.8745098039215686`,0.2784313725490196`,0.03137254901960784`],"FlightsOverhead"},
TagBoxNote -> "FunctionResourceBox"],ResourceFunction["FlightsOverhead"],BoxID -> "FlightsOverhead",
Selectable -> False],"[",RowBox[{"Here",",","\"SkyMap\""}],"]"}]],"Input",CellChangeTimes -> {{3.812288901029838`*^9,3.8122889029312696`*^9}},
CellID -> 944237020,ExpressionUUID -> "e3da0144-7736-42b6-b5a0-6e6fd8a12c80",TaggingRules -> {}],Cell[
BoxData[
TemplateBox[{GraphicsBox[{RGBColor[0.6`,0.4`,0.2`],Thickness[0.003`],{LineBox[{{-0.7649170135898475`,-0.2220867059664069`},{-0.8313461998104216`,-0.11225413008311781`},{-0.884514482087752`,0.00790643525167633`},{-0.9222251856409422`,0.13776919720003766`},{-0.9419380627369955`,0.2763755156325892`},{-0.9414455578564849`,0.3371650361355579`}}],LineBox[
{{0.9464071630357241`,-0.32297597705506254`},{0.8838684385602327`,-0.39672805127551675`},{0.7796434618003745`,-0.4881864341435612`},{0.6674972414212306`,-0.5618038782953734`},{0.5498802028472916`,-0.6184329916249556`},{0.42879564826890804`,-0.6589497394860495`},{0.3059024818285322`,-0.684189951230003`},{0.1826022578959954`,-0.6949157667182003`},{0.06011144363365737`,-0.6918006157783846`},{-0.06047862027905991`,-0.6754254324869211`},{-0.17815116822386962`,-0.6462816743355391`},{-0.29192007697270833`,-0.6047786755427951`},{-0.4007900396018787`,-0.5512542275568062`},{-0.5037186430182369`,-0.4859883006664174`},{-0.5995784463488825`,-0.4092206958168065`},{-0.6871174790083004`,-0.32117430539764713`},{-0.7649170135898475`,-0.2220867059664069`}}]},{InsetBox[
FormBox[StyleBox["\"Sun\"",GrayLevel[0.5`],StripOnInput -> False],TraditionalForm],
{0.04144205046341833`,-0.5640235294185127`}],RGBColor[1.`,0.8305`,0.2606`],{EdgeForm[
{RGBColor[0.91855`,0.4613`,0.0019`],Thickness[0.002`]}],DiskBox[{0.050772122039337585`,-0.6910051782783471`},
0.05`]}},{InsetBox[FormBox[StyleBox["\"Moon\"",GrayLevel[0.5`],StripOnInput -> False],
TraditionalForm],{0.7124820974452953`,-0.3650691970953205`}],{GrayLevel[0.75`],DiskBox[
{0.8257969450074539`,-0.42313067059314696`},0.05`],{GrayLevel[0.9`],PolygonBox[CompressedData[
"\n1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAA5NGan8OF6T/zpw2gTXDYv98ssNe2\nU+k/SaxeEfTA2L+hKD+3lijpPwYXIgpFINm/VNt8FnMF6T+dkB6154vZvw9z\n+nUp6+g/4KKPlTUB2r8gBmSKX9roP4csCjxLfdq/Aur2J3/T6D9MOpF7Gv3a\nv97hZ6ez1ug/ONIVrH1927+GQqbU6OPoP0Py+YBL+9u/cms2bsv66D/kAYr2\nanPcv67MADLLGuk/yTbP2Obi3L/aTqlqHkPpP9OApGgAR92/OAQL58Zy6T9P\niYapQJ3dvwRBiTyYqOk/6CML64fj3b8mysEsP+PpP3T0DywbGN6/+A7//0kh\n6j9RzjwDrznev92Vwp8xYeo/jQYXyG9H3r/S4QQ4Y6HqP9YWNckGQd6/1/F2\nIkrg6j+EVbhunCbev6f5Pt1ZHOs/rQOYO9f43b8alGHOF1TrPzNBA7TXuN2/\nxRy2YA==\n "]],GrayLevel[
0.75`],PolygonBox[CompressedData["\n1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAkpIBBbC+6T9Nkw6lzwLcv5Jyrjam\nDuo/5Vj1NSHI3L+ICWv11mfqPz91ciHQYt2/mg4BOofB6j8oS6svuMPdv0nO\nn4HvEus/DCj7/Vzh3b8alGHOF1TrPzNBA7TXuN2/62CUV59+6z+X/6u6H07d\nvzJ6w11cjus/qwHtVqer3L+aPFx9xIHrPw4uHeNV4du/HrWySRNa6z9MJ6hG\n+QLbv2zT+mgrG+s/2FUCr1Um2r9s8003NcvqP0CQGx4EYdm/dlyReARy6j/m\nc54yVcbYv2RX+zNUGOo//p1lJG1l2L+1l1zs68bpPxnBFVbIR9i/5NGan8OF\n6T/zpw2gTXDYvxMFaBY8W+k/julkmQXb2L/M6zgQf0vpP3vnI/19fdm/ZCmg\n8BZY6T8Xu/Nwz0fav+CwSSTIf+k/2cFoDSwm27+SkgEFsL7pP02TDqXPAty/\nS/OxDw==\n "]]},GrayLevel[
0.6`],CircleBox[{0.8257969450074539`,-0.42313067059314696`},0.05`]}},GrayLevel[0],{RGBColor[
0.84`,0.84`,0.84`],Thickness[0.008`],CircleBox[{0,0},1]},{PointSize[Large],Arrowheads[
{{0.05`,1,GraphicsBox[{Opacity[1],InsetBox[FormBox[StyleBox["\"\:2708\"",FontSize -> 22,
FontColor -> RGBColor[1,0,0],StripOnInput -> False],TraditionalForm],{0,0}]},ExpressionUUID -> "0aff4cfd-3955-433f-a095-bdecb151493a"]}}],Opacity[
0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{-0.9830317568688342`,0.008315865756721968`},{-0.983984859395465`,0.00989362677023096`}}],GrayLevel[
0.715`],LineBox[{{-0.983984859395465`,0.00989362677023096`},{-0.9847223549130688`,0.011234251541582847`}}],GrayLevel[
0.73`],LineBox[{{-0.9847223549130688`,0.011234251541582847`},{-0.9853202281995488`,0.01241938111648631`}}],GrayLevel[
0.745`],LineBox[{{-0.9853202281995488`,0.01241938111648631`},{-0.9861290510103979`,0.013815374426615736`}}],GrayLevel[
0.76`],LineBox[{{-0.9861290510103979`,0.013815374426615736`},{-0.986952809527829`,0.015033516863510019`}}],GrayLevel[
0.7749999999999999`],LineBox[{{-0.986952809527829`,0.015033516863510019`},{-0.9877266018515858`,0.01627317690104443`}}],GrayLevel[
0.7899999999999999`],LineBox[{{-0.9877266018515858`,0.01627317690104443`},{-0.988432269593878`,0.01748241424169457`}}],GrayLevel[
0.8049999999999999`],LineBox[{{-0.988432269593878`,0.01748241424169457`},{-0.9891206495153086`,0.018495892587466343`}}],GrayLevel[
0.82`],LineBox[{{-0.9891206495153086`,0.018495892587466343`},{-0.989702433157535`,0.01963594441067357`}}],GrayLevel[
0.835`],LineBox[{{-0.989702433157535`,0.01963594441067357`},{-0.9904244471807903`,0.020685077964999545`}}],GrayLevel[
0.85`],LineBox[{{-0.9904244471807903`,0.020685077964999545`},{-0.9910565503457667`,0.021577990028820045`}}],GrayLevel[
0.865`],LineBox[{{-0.9910565503457667`,0.021577990028820045`},{-0.9916612155561282`,0.022438013398498224`}}],GrayLevel[
0.88`],LineBox[{{-0.9916612155561282`,0.022438013398498224`},{-0.9923254967763998`,0.023422489518247352`}}],GrayLevel[
0.895`],LineBox[{{-0.9923254967763998`,0.023422489518247352`},{-0.9930701004172584`,0.024579129364910864`}}],GrayLevel[
0.9099999999999999`],LineBox[{{-0.9930701004172584`,0.024579129364910864`},{-0.9935620393800616`,0.025466227656114178`}}],GrayLevel[
0.925`],LineBox[{{-0.9935620393800616`,0.025466227656114178`},{-0.9942216405488137`,0.02629321848716648`}}],GrayLevel[
0.94`],LineBox[{{-0.9942216405488137`,0.02629321848716648`},{-0.9947734809204316`,0.02711374527607375`}}],GrayLevel[
0.955`],LineBox[{{-0.9947734809204316`,0.02711374527607375`},{-0.9952614697545891`,0.027928781905533294`}}],GrayLevel[
0.97`],LineBox[{{-0.9952614697545891`,0.027928781905533294`},{-0.9959080731433225`,0.028685458855279858`}}],GrayLevel[
0.985`],LineBox[{{-0.9959080731433225`,0.028685458855279858`},{-0.996346387875531`,0.029486436878177737`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{-0.983984859395465`,0.00989362677023096`},{-0.9830317568688342`,0.008315865756721968`}}]},
TemplateBox[{"\"NetJets flight 319\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000089378\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000089378\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000089378"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{-0.9615116997722074`,0.18374794904197025`},{-0.9638439347151142`,0.17714124572697051`}}],GrayLevel[
0.715`],LineBox[{{-0.9638439347151142`,0.17714124572697051`},{-0.9661042177069071`,0.1706384557212983`}}],GrayLevel[
0.73`],LineBox[{{-0.9661042177069071`,0.1706384557212983`},{-0.9682072381376178`,0.1645093354212026`}}],GrayLevel[
0.745`],LineBox[{{-0.9682072381376178`,0.1645093354212026`},{-0.9700979602584999`,0.15893203200161526`}}],GrayLevel[
0.76`],LineBox[{{-0.9700979602584999`,0.15893203200161526`},{-0.9718849805829212`,0.15360803169519346`}}],GrayLevel[
0.7749999999999999`],LineBox[{{-0.9718849805829212`,0.15360803169519346`},{-0.9737442100105433`,0.1479305861545992`}}],GrayLevel[
0.7899999999999999`],LineBox[{{-0.9737442100105433`,0.1479305861545992`},{-0.9752769906965314`,0.14322990921089288`}}],GrayLevel[
0.8049999999999999`],LineBox[{{-0.9752769906965314`,0.14322990921089288`},{-0.9769114298300943`,0.13814556086458454`}}],GrayLevel[
0.82`],LineBox[{{-0.9769114298300943`,0.13814556086458454`},{-0.978617514206516`,0.13280511456401287`}}],GrayLevel[
0.835`],LineBox[{{-0.978617514206516`,0.13280511456401287`},{-0.9802221531037009`,0.12775284372947546`}}],GrayLevel[
0.85`],LineBox[{{-0.9802221531037009`,0.12775284372947546`},{-0.9811050063098972`,0.12496964581534267`}}],GrayLevel[
0.865`],LineBox[{{-0.9811050063098972`,0.12496964581534267`},{-0.9824256468771142`,0.12083981197666609`}}],GrayLevel[
0.88`],LineBox[{{-0.9824256468771142`,0.12083981197666609`},{-0.9836714113560511`,0.11691003720098732`}}],GrayLevel[
0.895`],LineBox[{{-0.9836714113560511`,0.11691003720098732`},{-0.9848444960556625`,0.11317119238298395`}}],GrayLevel[
0.9099999999999999`],LineBox[{{-0.9848444960556625`,0.11317119238298395`},{-0.9860199815468015`,0.10941398272121997`}}],GrayLevel[
0.925`],LineBox[{{-0.9860199815468015`,0.10941398272121997`},{-0.9873551791805794`,0.10497018999894356`}}],GrayLevel[
0.94`],LineBox[{{-0.9873551791805794`,0.10497018999894356`},{-0.9882041248841731`,0.10207129028524328`}}],GrayLevel[
0.955`],LineBox[{{-0.9882041248841731`,0.10207129028524328`},{-0.9895073299417543`,0.0978127603099891`}}],GrayLevel[
0.97`],LineBox[{{-0.9895073299417543`,0.0978127603099891`},{-0.9902763181785553`,0.09529551919905595`}}],GrayLevel[
0.985`],LineBox[{{-0.9902763181785553`,0.09529551919905595`},{-0.9910518172734454`,0.09276046989746675`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{-0.9638439347151142`,0.17714124572697051`},{-0.9615116997722074`,0.18374794904197025`}}]},
TemplateBox[{"\"JetBlue Airways flight 723\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000092816\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000092816\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000092816"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.7918149508978292`,-0.5647730102512205`},{0.7940728497877152`,-0.5641969755624017`}}],GrayLevel[
0.715`],LineBox[{{0.7940728497877152`,-0.5641969755624017`},{0.7959079930887957`,-0.5638349562906609`}}],GrayLevel[
0.73`],LineBox[{{0.7959079930887957`,-0.5638349562906609`},{0.7971076996015283`,-0.5637734072965243`}}],GrayLevel[
0.745`],LineBox[{{0.7971076996015283`,-0.5637734072965243`},{0.799047197137471`,-0.5631953448008814`}}],GrayLevel[
0.76`],LineBox[{{0.799047197137471`,-0.5631953448008814`},{0.8006392111560083`,-0.5631921805566369`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.8006392111560083`,-0.5631921805566369`},{0.8017834778087035`,-0.5631302949016659`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.8017834778087035`,-0.5631302949016659`},{0.8026322057728958`,-0.5634862614408301`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.8026322057728958`,-0.5634862614408301`},{0.8026405336092112`,-0.5651263937666904`}}],GrayLevel[
0.82`],LineBox[{{0.8026405336092112`,-0.5651263937666904`},{0.8026652474977687`,-0.5666892614345949`}}],GrayLevel[
0.835`],LineBox[{{0.8026652474977687`,-0.5666892614345949`},{0.8022214392831597`,-0.5686579347188089`}}],GrayLevel[
0.85`],LineBox[{{0.8022214392831597`,-0.5686579347188089`},{0.8022681712876194`,-0.5703942433944418`}}],GrayLevel[
0.865`],LineBox[{{0.8022681712876194`,-0.5703942433944418`},{0.8020592774204274`,-0.571878138756919`}}],GrayLevel[
0.88`],LineBox[{{0.8020592774204274`,-0.571878138756919`},{0.8019466736110511`,-0.5735738636263017`}}],GrayLevel[
0.895`],LineBox[{{0.8019466736110511`,-0.5735738636263017`},{0.8019074409748368`,-0.5752318569107009`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.8019074409748368`,-0.5752318569107009`},{0.8017855870401899`,-0.5767610000004699`}}],GrayLevel[
0.925`],LineBox[{{0.8017855870401899`,-0.5767610000004699`},{0.8016744674949545`,-0.5782223482348766`}}],GrayLevel[
0.94`],LineBox[{{0.8016744674949545`,-0.5782223482348766`},{0.8015706697268888`,-0.5796308986441461`}}],GrayLevel[
0.955`],LineBox[{{0.8015706697268888`,-0.5796308986441461`},{0.8014725465955016`,-0.5809907870580399`}}],GrayLevel[
0.97`],LineBox[{{0.8014725465955016`,-0.5809907870580399`},{0.8013884686228624`,-0.5823023659662703`}}],GrayLevel[
0.985`],LineBox[{{0.8013884686228624`,-0.5823023659662703`},{0.8012416220170774`,-0.5836712791125508`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.7940728497877152`,-0.5641969755624017`},{0.7918149508978292`,-0.5647730102512205`}}]},
TemplateBox[{"\"202101080000110713\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000110713\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000110713\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000110713"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{-0.6528640572418262`,-0.6524013609730759`},{-0.6647381455387322`,-0.6476378750988433`}}],GrayLevel[
0.715`],LineBox[{{-0.6647381455387322`,-0.6476378750988433`},{-0.6756578818249679`,-0.6429402706750914`}}],GrayLevel[
0.73`],LineBox[{{-0.6756578818249679`,-0.6429402706750914`},{-0.684308141301959`,-0.6390535063728646`}}],GrayLevel[
0.745`],LineBox[{{-0.684308141301959`,-0.6390535063728646`},{-0.6912964894062034`,-0.6358644172824734`}}],GrayLevel[
0.76`],LineBox[{{-0.6912964894062034`,-0.6358644172824734`},{-0.7008139109392733`,-0.6316645090458064`}}],GrayLevel[
0.7749999999999999`],LineBox[{{-0.7008139109392733`,-0.6316645090458064`},{-0.7089327161891389`,-0.6279888138623487`}}],GrayLevel[
0.7899999999999999`],LineBox[{{-0.7089327161891389`,-0.6279888138623487`},{-0.7132614999115227`,-0.6262746083557972`}}],GrayLevel[
0.8049999999999999`],LineBox[{{-0.7132614999115227`,-0.6262746083557972`},{-0.7203446954704582`,-0.6228962630187851`}}],GrayLevel[
0.82`],LineBox[{{-0.7203446954704582`,-0.6228962630187851`},{-0.7257868146886943`,-0.620263361152084`}}],GrayLevel[
0.835`],LineBox[{{-0.7257868146886943`,-0.620263361152084`},{-0.7300187679871776`,-0.6183134348390359`}}],GrayLevel[
0.85`],LineBox[{{-0.7300187679871776`,-0.6183134348390359`},{-0.7362895634427274`,-0.6152953400044845`}}],GrayLevel[
0.865`],LineBox[{{-0.7362895634427274`,-0.6152953400044845`},{-0.7387683499679356`,-0.614235006281102`}}],GrayLevel[
0.88`],LineBox[{{-0.7387683499679356`,-0.614235006281102`},{-0.7439396457089057`,-0.6116979940079351`}}],GrayLevel[
0.895`],LineBox[{{-0.7439396457089057`,-0.6116979940079351`},{-0.7476786951376986`,-0.6098424918175268`}}],GrayLevel[
0.9099999999999999`],LineBox[{{-0.7476786951376986`,-0.6098424918175268`},{-0.7508580373841804`,-0.6082809331257856`}}],GrayLevel[
0.925`],LineBox[{{-0.7508580373841804`,-0.6082809331257856`},{-0.7551705873311424`,-0.6057627070000906`}}],GrayLevel[
0.94`],LineBox[{{-0.7551705873311424`,-0.6057627070000906`},{-0.7569098516727025`,-0.6056880420476919`}}],GrayLevel[
0.955`],LineBox[{{-0.7569098516727025`,-0.6056880420476919`},{-0.7584666350463798`,-0.6063682683871172`}}],GrayLevel[
0.97`],LineBox[{{-0.7584666350463798`,-0.6063682683871172`},{-0.7595666446935205`,-0.6070001214555931`}}],GrayLevel[
0.985`],LineBox[{{-0.7595666446935205`,-0.6070001214555931`},{-0.7605274814062944`,-0.6079381267065838`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{-0.6647381455387322`,-0.6476378750988433`},{-0.6528640572418262`,-0.6524013609730759`}}]},
TemplateBox[{"\"American Airlines flight 2274\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000119606\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000119606\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000119606"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.9934403993354802`,-0.07826841149362669`},{0.9939349179620092`,-0.08079473807811827`}}],GrayLevel[
0.715`],LineBox[{{0.9939349179620092`,-0.08079473807811827`},{0.9943410079519426`,-0.082473376325894`}}],GrayLevel[
0.73`],LineBox[{{0.9943410079519426`,-0.082473376325894`},{0.9948034922882618`,-0.08479064818473923`}}],GrayLevel[
0.745`],LineBox[{{0.9948034922882618`,-0.08479064818473923`},{0.9952374293911685`,-0.08696489363598285`}}],GrayLevel[
0.76`],LineBox[{{0.9952374293911685`,-0.08696489363598285`},{0.9955978156001776`,-0.08861994678391848`}}],GrayLevel[
0.7749999999999999`],{LineBox[{{0.9955978156001776`,-0.08861994678391848`},{0.99593355318411`,-0.09009082995551547`}}]},GrayLevel[
0.7899999999999999`],{},GrayLevel[0.8049999999999999`],{},GrayLevel[0.82`],{},GrayLevel[
0.835`],{},GrayLevel[0.85`],{},GrayLevel[0.865`],{},GrayLevel[0.88`],{},GrayLevel[
0.895`],{},GrayLevel[0.9099999999999999`],{},GrayLevel[0.925`],{},GrayLevel[0.94`],{},GrayLevel[
0.955`],{},GrayLevel[0.97`],{},GrayLevel[0.985`],{},Opacity[0],TagBox[TooltipBox[
{ArrowBox[{{0.9939349179620092`,-0.08079473807811827`},{0.9934403993354802`,-0.07826841149362669`}}]},
TemplateBox[{"\"Delta Air Lines flight 324\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000098710\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000098710\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000098710"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.8042742936079625`,-0.5705224894101907`},{0.797830062747297`,-0.5804435119071173`}}],GrayLevel[
0.715`],LineBox[{{0.797830062747297`,-0.5804435119071173`},{0.791529184469902`,-0.5899038548235992`}}],GrayLevel[
0.73`],LineBox[{{0.791529184469902`,-0.5899038548235992`},{0.7853542817452553`,-0.5988197707173081`}}],GrayLevel[
0.745`],LineBox[{{0.7853542817452553`,-0.5988197707173081`},{0.7792889320984576`,-0.6073981141900419`}}],GrayLevel[
0.76`],LineBox[{{0.7792889320984576`,-0.6073981141900419`},{0.7726010169924988`,-0.6167682178687094`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.7726010169924988`,-0.6167682178687094`},{0.7656898749133269`,-0.6262805075803637`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.7656898749133269`,-0.6262805075803637`},{0.7589305743833542`,-0.6353772626749377`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.7589305743833542`,-0.6353772626749377`},{0.7523765453626663`,-0.6440041426450078`}}],GrayLevel[
0.82`],LineBox[{{0.7523765453626663`,-0.6440041426450078`},{0.745943629518335`,-0.6523039242371106`}}],GrayLevel[
0.835`],LineBox[{{0.745943629518335`,-0.6523039242371106`},{0.738849485672983`,-0.6611458547107207`}}],GrayLevel[
0.85`],LineBox[{{0.738849485672983`,-0.6611458547107207`},{0.731681502585262`,-0.6698651108987207`}}],GrayLevel[
0.865`],LineBox[{{0.731681502585262`,-0.6698651108987207`},{0.7235887059635566`,-0.6792740967574551`}}],GrayLevel[
0.88`],LineBox[{{0.7235887059635566`,-0.6792740967574551`},{0.713694377868464`,-0.6901494335846058`}}],GrayLevel[
0.895`],LineBox[{{0.713694377868464`,-0.6901494335846058`},{0.7038400650009639`,-0.7006825106948591`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.7038400650009639`,-0.7006825106948591`},{0.6918917185804266`,-0.7130194084571085`}}],GrayLevel[
0.925`],LineBox[{{0.6918917185804266`,-0.7130194084571085`},{0.6798201493856824`,-0.7250785002547308`}}],GrayLevel[
0.94`],LineBox[{{0.6798201493856824`,-0.7250785002547308`},{0.6686947001914234`,-0.7358533185107179`}}],GrayLevel[
0.955`],LineBox[{{0.6686947001914234`,-0.7358533185107179`},{0.6585814017480958`,-0.745378177921703`}}],GrayLevel[
0.97`],LineBox[{{0.6585814017480958`,-0.745378177921703`},{0.6485593881090526`,-0.7545726664851482`}}],GrayLevel[
0.985`],LineBox[{{0.6485593881090526`,-0.7545726664851482`},{0.6390668443783559`,-0.7630634411142413`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.797830062747297`,-0.5804435119071173`},{0.8042742936079625`,-0.5705224894101907`}}]},
TemplateBox[{"\"GoJet Airlines flight 4603\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000108680\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000108680\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000108680"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.965404534543337`,-0.16870874702773117`},{0.9667911214069143`,-0.1669310366986546`}}],GrayLevel[
0.715`],LineBox[{{0.9667911214069143`,-0.1669310366986546`},{0.9683122813206648`,-0.16513593724704023`}}],GrayLevel[
0.73`],LineBox[{{0.9683122813206648`,-0.16513593724704023`},{0.9697683187449322`,-0.16341506486869903`}}],GrayLevel[
0.745`],LineBox[{{0.9697683187449322`,-0.16341506486869903`},{0.9710267679510874`,-0.16195766513297383`}}],GrayLevel[
0.76`],LineBox[{{0.9710267679510874`,-0.16195766513297383`},{0.9721653200616083`,-0.16065710513410492`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.9721653200616083`,-0.16065710513410492`},{0.9732671551327874`,-0.1593971006877202`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.9732671551327874`,-0.1593971006877202`},{0.9743346948052667`,-0.15817510238060126`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.9743346948052667`,-0.15817510238060126`},{0.9753701523008771`,-0.15698876858506536`}}],GrayLevel[
0.82`],LineBox[{{0.9753701523008771`,-0.15698876858506536`},{0.9763749810649156`,-0.1558020763183471`}}],GrayLevel[
0.835`],LineBox[{{0.9763749810649156`,-0.1558020763183471`},{0.9773514749349608`,-0.1546375668755422`}}],GrayLevel[
0.85`],LineBox[{{0.9773514749349608`,-0.1546375668755422`},{0.9782962812032635`,-0.1535185958904739`}}],GrayLevel[
0.865`],LineBox[{{0.9782962812032635`,-0.1535185958904739`},{0.9792056256304049`,-0.15245836293659923`}}],GrayLevel[
0.88`],LineBox[{{0.9792056256304049`,-0.15245836293659923`},{0.9800923072798953`,-0.15142416034354175`}}],GrayLevel[
0.895`],LineBox[{{0.9800923072798953`,-0.15142416034354175`},{0.9809521124869804`,-0.15050461482710484`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.9809521124869804`,-0.15050461482710484`},{0.9817912649499143`,-0.14961744046375458`}}],GrayLevel[
0.925`],LineBox[{{0.9817912649499143`,-0.14961744046375458`},{0.9826084547298997`,-0.14875791725782458`}}],GrayLevel[
0.94`],LineBox[{{0.9826084547298997`,-0.14875791725782458`},{0.9834040501057499`,-0.1479269607709803`}}],GrayLevel[
0.955`],LineBox[{{0.9834040501057499`,-0.1479269607709803`},{0.9841830755517202`,-0.14711226370154482`}}],GrayLevel[
0.97`],LineBox[{{0.9841830755517202`,-0.14711226370154482`},{0.9849272005071038`,-0.14644651313461607`}}],GrayLevel[
0.985`],LineBox[{{0.9849272005071038`,-0.14644651313461607`},{0.9856572245437006`,-0.14579117682799436`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.9667911214069143`,-0.1669310366986546`},{0.965404534543337`,-0.16870874702773117`}}]},
TemplateBox[{"\"Frontier Airlines flight 2038\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000100854\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000100854\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000100854"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],{},GrayLevel[
0.715`],{},GrayLevel[0.73`],{},GrayLevel[0.745`],{},GrayLevel[0.76`],{},GrayLevel[
0.7749999999999999`],{},GrayLevel[0.7899999999999999`],{},GrayLevel[0.8049999999999999`],{},GrayLevel[
0.82`],{},GrayLevel[0.835`],{},GrayLevel[0.85`],{},GrayLevel[0.865`],{},GrayLevel[
0.88`],{},GrayLevel[0.895`],{},GrayLevel[0.9099999999999999`],{},GrayLevel[0.925`],{},GrayLevel[
0.94`],{},GrayLevel[0.955`],{},GrayLevel[0.97`],{},GrayLevel[0.985`],{},Opacity[0],TagBox[
TooltipBox[{ArrowBox[{{-0.9558451402516102`,-0.34272246049396904`},{-0.953915722984922`,-0.3458084898298888`}}]},
TemplateBox[{"\"Frontier Airlines flight 647\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000136189\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000136189\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000136189"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.9520493052671741`,0.30015244955735804`},{0.9539589407085695`,0.2960538918188427`}}],GrayLevel[
0.715`],LineBox[{{0.9539589407085695`,0.2960538918188427`},{0.9559499405122347`,0.29180714405628905`}}],GrayLevel[
0.73`],LineBox[{{0.9559499405122347`,0.29180714405628905`},{0.9574280146298928`,0.2886315343756861`}}],GrayLevel[
0.745`],{LineBox[{{0.9574280146298928`,0.2886315343756861`},{0.9574636439108246`,0.2885539301222661`}}]},GrayLevel[
0.76`],{},GrayLevel[0.7749999999999999`],{},GrayLevel[0.7899999999999999`],{},GrayLevel[
0.8049999999999999`],{},GrayLevel[0.82`],{},GrayLevel[0.835`],{},GrayLevel[0.85`],{},GrayLevel[
0.865`],{},GrayLevel[0.88`],{},GrayLevel[0.895`],{},GrayLevel[0.9099999999999999`],{},GrayLevel[
0.925`],{},GrayLevel[0.94`],{},GrayLevel[0.955`],{},GrayLevel[0.97`],{},GrayLevel[
0.985`],{},Opacity[0],TagBox[TooltipBox[{ArrowBox[{{0.9539589407085695`,0.2960538918188427`},{0.9520493052671741`,0.30015244955735804`}}]},
TemplateBox[{"\"Bombardier Aerospace flight 552\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000078344\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000078344\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000078344"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.37091295376190725`,0.8942612754202101`},{0.3769333871706467`,0.893204975026038`}}],GrayLevel[
0.715`],LineBox[{{0.3769333871706467`,0.893204975026038`},{0.3840906026123786`,0.892125607434867`}}],GrayLevel[
0.73`],LineBox[{{0.3840906026123786`,0.892125607434867`},{0.3891565036023018`,0.8913635158985953`}}],GrayLevel[
0.745`],LineBox[{{0.3891565036023018`,0.8913635158985953`},{0.3950933998063699`,0.8904426136542968`}}],GrayLevel[
0.76`],LineBox[{{0.3950933998063699`,0.8904426136542968`},{0.40091401503887397`,0.8895286255634144`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.40091401503887397`,0.8895286255634144`},{0.4067977532074534`,0.8884412035125167`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.4067977532074534`,0.8884412035125167`},{0.41113707719045517`,0.8877476792157447`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.41113707719045517`,0.8877476792157447`},{0.415281689427243`,0.8870908277466724`}}],GrayLevel[
0.82`],LineBox[{{0.415281689427243`,0.8870908277466724`},{0.419284118352308`,0.8864691998271106`}}],GrayLevel[
0.835`],LineBox[{{0.419284118352308`,0.8864691998271106`},{0.4230705309941937`,0.8858852487479405`}}],GrayLevel[
0.85`],LineBox[{{0.4230705309941937`,0.8858852487479405`},{0.42751571523502496`,0.8849720252654923`}}],GrayLevel[
0.865`],LineBox[{{0.42751571523502496`,0.8849720252654923`},{0.43084539181599935`,0.8844546075360892`}}],GrayLevel[
0.88`],LineBox[{{0.43084539181599935`,0.8844546075360892`},{0.4341534199914185`,0.883911339093024`}}],GrayLevel[
0.895`],LineBox[{{0.4341534199914185`,0.883911339093024`},{0.4374754866924998`,0.8833291557013278`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.4374754866924998`,0.8833291557013278`},{0.44073419598291935`,0.8827604749071198`}}],GrayLevel[
0.925`],LineBox[{{0.44073419598291935`,0.8827604749071198`},{0.4444232826765714`,0.8820978952590075`}}],GrayLevel[
0.94`],LineBox[{{0.4444232826765714`,0.8820978952590075`},{0.44718275292529647`,0.8816386120180484`}}],GrayLevel[
0.955`],LineBox[{{0.44718275292529647`,0.8816386120180484`},{0.4498521212359563`,0.8811941989136336`}}],GrayLevel[
0.97`],LineBox[{{0.4498521212359563`,0.8811941989136336`},{0.452503819847834`,0.8807355201193819`}}],GrayLevel[
0.985`],LineBox[{{0.452503819847834`,0.8807355201193819`},{0.4550407601383875`,0.8803051532013801`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.3769333871706467`,0.893204975026038`},{0.37091295376190725`,0.8942612754202101`}}]},
TemplateBox[{"\"SkyWest Airlines flight 4033\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000141548\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000141548\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000141548"],
"Tooltip"]]]}},Background -> None,PlotRange -> {{-1,1},{-1,1}},PlotRangePadding -> 0.03`],InterpretationBox[
Cell[
BoxData[FormBox[StyleBox["\"S\"",StripOnInput -> False],TextForm]],"InlineText",
ExpressionUUID -> "8b6f47c9-34c8-47a4-bc0c-fa5858740b25"],Text[Style["S"]]],InterpretationBox[
Cell[
BoxData[FormBox[StyleBox["\"E\"",StripOnInput -> False],TextForm]],"InlineText",
ExpressionUUID -> "e98fac41-0c7a-427b-95dd-491b54b5c93d"],Text[Style["E"]]],InterpretationBox[
Cell[
BoxData[FormBox[StyleBox["\"N\"",StripOnInput -> False],TextForm]],"InlineText",
ExpressionUUID -> "20cf5abd-e77c-4ab2-a3dc-21b232312998"],Text[Style["N"]]],InterpretationBox[
Cell[
BoxData[FormBox[StyleBox["\"W\"",StripOnInput -> False],TextForm]],"InlineText",
ExpressionUUID -> "4d5dcec9-f99f-494f-b594-8bb3f9ba58ae"],Text[Style["W"]]]},"Labeled",
DisplayFunction -> Function[GridBox[{{"",ItemBox[Slot[4],DefaultBaseStyle -> "LabeledLabel"],""},{ItemBox[
Slot[3],DefaultBaseStyle -> "LabeledLabel"],TagBox[ItemBox[PaneBox[TagBox[Slot[1],
"SkipImageSizeLevel"],Alignment -> {Center,Baseline},BaselinePosition -> Baseline,
ImageMargins -> 5],DefaultBaseStyle -> "Labeled"],"SkipImageSizeLevel"],ItemBox[Slot[
5],DefaultBaseStyle -> "LabeledLabel"]},{"",ItemBox[Slot[2],DefaultBaseStyle -> "LabeledLabel"],""}},
GridBoxAlignment -> {"Columns" -> {{Center}},"Rows" -> {{Center}}},AutoDelete -> False,
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},BaselinePosition -> {2,2}]],
InterpretationFunction -> Function[RowBox[{"Labeled","[",RowBox[{Slot[1],",",RowBox[
{"{",RowBox[{Slot[2],",",Slot[3],",",Slot[4],",",Slot[5]}],"}"}],",","All",",",RowBox[
{"FrameMargins","\[Rule]","5"}]}],"]"}]]]],"Output",CellChangeTimes -> {3.812288906787575`*^9,3.8122889404797497`*^9,3.8122897737250137`*^9,3.819118669355925`*^9},
CellID -> 387957271,ExpressionUUID -> "2fbaaeaf-da79-426e-bcac-de7e40764ddf",TaggingRules -> {}]},
Open],ExpressionUUID -> "d2decb2e-36b1-4bc3-afc4-509eb6bab981"]},Open],ExpressionUUID -> "33c8a800-d1d4-45a6-9fcb-2e0f67234250"]},
Open],ExpressionUUID -> "f651878b-0379-426a-a7eb-765fe89d3223"],Cell[
CellGroupData[
{Cell[
TextData[{"Scope","\[NonBreakingSpace]",Cell[
"\<(2)\>","ExampleCount",ExpressionUUID -> "7163bf2d-d475-4b38-a69e-ef865ae0c8d3"],"\[NonBreakingSpace]"}],
"Subsection",CellID -> 204653245,ExpressionUUID -> "aad88bb4-f534-44e5-a5d8-ffecb1f18912",
TaggingRules -> {}],Cell[
TextData[{Cell[
BoxData[StyleBox["FlightsOverhead","InlineResourceFunction"]],
"InlineFormula",FontFamily -> "Source Sans Pro",ExpressionUUID -> "88f85407-75c2-4c43-b03d-9406f9e08671"]," has two properties:"}],
"Text",CellChangeTimes -> {{3.812288823597578`*^9,3.812288830959038`*^9},3.819118805016245`*^9},
CellID -> 89314876,ExpressionUUID -> "19433c4a-98d2-48ed-8d9f-bd25534e0876",TaggingRules -> {"AttachedInlineCell" -> CellObject[
1353985]}],Cell[
CellGroupData[{Cell[
BoxData[RowBox[{InterpretationBox[TagBox[DynamicModuleBox[
{Set[Typeset`open,False]},FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[
{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"",BoxBaselineShift -> -0.25`,
BoxMargins -> {{0,0},{-1,-1}}],"ResourceFunctionIcon",FontColor -> RGBColor[0.8745098039215686`,
0.2784313725490196`,0.03137254901960784`]],ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",
FontSize -> Times[0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"],ImageSizeCache -> {11.`,{1.`,10.`}}],False -> DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps","IconizeOpener"],ImageSizeCache -> {11.`,{1.`,10.`}}]},Appearance -> None,
BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},BaselinePosition -> {1,1},
GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}],True -> GridBox[{{GridBox[
{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"",
BoxBaselineShift -> -0.25`,BoxMargins -> {{0,0},{-1,-1}}],"ResourceFunctionIcon",
FontColor -> RGBColor[0.8745098039215686`,0.2784313725490196`,0.03137254901960784`]],
ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",FontSize -> Times[
0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"]],False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps","IconizeOpener"]]},
Appearance -> None,BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],
Alignment -> Left,BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[
0.8313725490196079`,0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},
BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}]},{StyleBox[
PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"","IconizedLabel"]," ",TagBox[
"\"1.1.0\"","IconizedItem"]}]},{TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"","https://resources.wolframcloud.com/FunctionRepository/resources/d960ba65-e53a-4e40-8233-c4cd77d3b089/"},
"HyperlinkURL"],"IconizedItem"]}},DefaultBaseStyle -> "Column",GridBoxAlignment -> {"Columns" -> {{Left}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{5,4},{0,4}}],"DialogStyle",FontFamily -> "Roboto",
FontSize -> 11]}},BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxDividers -> {"Columns" -> {{None}},"Rows" -> {False,{GrayLevel[0.8`]},False}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}]},Dynamic[
Typeset`open],BaselinePosition -> Baseline,ImageSize -> Automatic],Background -> RGBColor[
0.9686274509803922`,0.9764705882352941`,0.984313725490196`],BaselinePosition -> Baseline,
DefaultBaseStyle -> {},FrameMargins -> {{0,0},{1,0}},FrameStyle -> RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`],RoundingRadius -> 4]],{"FunctionResourceBox",RGBColor[
0.8745098039215686`,0.2784313725490196`,0.03137254901960784`],"FlightsOverhead"},
TagBoxNote -> "FunctionResourceBox"],ResourceFunction["FlightsOverhead"],BoxID -> "FlightsOverhead",
Selectable -> False],"[","\"Properties\"","]"}]],"Input",CellChangeTimes -> {3.812288814395587`*^9},
CellID -> 7276340,ExpressionUUID -> "524fe2f8-c78d-4d54-81f9-5119ce63222e",TaggingRules -> {}],Cell[
BoxData[
RowBox[{"{",RowBox[{"\"Flights\"",",","\"SkyMap\""}],"}"}]],"Output",CellChangeTimes -> {3.812288815086289`*^9,3.8122897738390903`*^9,3.819118720407785`*^9},
CellID -> 946850890,ExpressionUUID -> "87d18de3-691e-43ea-a434-5dcd84e0e635",TaggingRules -> {}]},
Open],ExpressionUUID -> "05dcfdfa-ab23-4220-8c7c-bde633a5a3c7"],Cell[
CellGroupData[
{Cell[
BoxData[InterpretationBox[Cell[
"\< \>","ExampleDelimiter",ExpressionUUID -> "64cf4d17-8669-45bd-9bbe-3c0e81a47f02"],
CompoundExpression[Set[$Line,0],Null]]],"ExampleDelimiter",CellID -> 14107563,ExpressionUUID -> "8340a020-cc5a-47e9-9015-e044424343ce",
TaggingRules -> {}],Cell[
TextData[{"Get an ",Cell[
BoxData[TagBox[ButtonBox[StyleBox[
"Association","SymbolsRefLink",ShowStringCharacters -> True,FontFamily -> "Source Sans Pro"],
BaseStyle -> Dynamic[FEPrivate`If[CurrentValue["MouseOver"],{"Link",FontColor -> RGBColor[
0.854902`,0.396078`,0.145098`]},{"Link"}]],ButtonData -> "paclet:ref/Association",
ContentPadding -> False],MouseAppearanceTag["LinkHand"]]],"InlineFormula",FontFamily -> "Source Sans Pro",
ExpressionUUID -> "96134c31-808a-4313-ac2d-f1fad2c3cd65"]," of properties for flights over JFK airport:"}],
"Text",CellChangeTimes -> {{3.812289609192232`*^9,3.8122896332700663`*^9},3.81228994669527`*^9},
CellID -> 419067492,ExpressionUUID -> "ba4fb78c-bb0f-4e19-89d6-8785206ad372",TaggingRules -> {"AttachedInlineCell" -> CellObject[
225073]}],Cell[
CellGroupData[{Cell[
BoxData[RowBox[{InterpretationBox[TagBox[DynamicModuleBox[
{Set[Typeset`open,False]},FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[
{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"",BoxBaselineShift -> -0.25`,
BoxMargins -> {{0,0},{-1,-1}}],"ResourceFunctionIcon",FontColor -> RGBColor[0.8745098039215686`,
0.2784313725490196`,0.03137254901960784`]],ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",
FontSize -> Times[0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"],ImageSizeCache -> {11.`,{1.`,10.`}}],False -> DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps","IconizeOpener"],ImageSizeCache -> {11.`,{1.`,10.`}}]},Appearance -> None,
BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},BaselinePosition -> {1,1},
GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}],True -> GridBox[{{GridBox[
{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"",
BoxBaselineShift -> -0.25`,BoxMargins -> {{0,0},{-1,-1}}],"ResourceFunctionIcon",
FontColor -> RGBColor[0.8745098039215686`,0.2784313725490196`,0.03137254901960784`]],
ShowStringCharacters -> False,FontFamily -> "Source Sans Pro Black",FontSize -> Times[
0.6538461538461539`,Inherited],FontWeight -> "Heavy",PrivateFontOptions -> {"OperatorSubstitution" -> False}],StyleBox[
RowBox[{StyleBox["FlightsOverhead","ResourceFunctionLabel"]," "}],ShowAutoStyles -> False,
ShowStringCharacters -> False,FontSize -> Times[Rational[12,13],Inherited],FontColor -> GrayLevel[
0.1`]]}},GridBoxSpacings -> {"Columns" -> {{0.25`}}}],Alignment -> Left,BaseStyle -> {LineSpacing -> {0,0},LineBreakWithin -> False},
BaselinePosition -> Baseline,FrameMargins -> {{3,0},{0,0}}],ItemBox[PaneBox[TogglerBox[
Dynamic[Typeset`open],{True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps",
"IconizeCloser"]],False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps","IconizeOpener"]]},
Appearance -> None,BaselinePosition -> Baseline,ContentPadding -> False,FrameMargins -> 0],
Alignment -> Left,BaselinePosition -> Baseline,FrameMargins -> {{1,1},{0,0}}],Frame -> {{RGBColor[
0.8313725490196079`,0.8470588235294118`,0.8509803921568627`,0.5`],False},{False,False}}]}},
BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},GridBoxSpacings -> {"Columns" -> {{0}},"Rows" -> {{0}}}]},{StyleBox[
PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"","IconizedLabel"]," ",TagBox[
"\"1.1.0\"","IconizedItem"]}]},{TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"","https://resources.wolframcloud.com/FunctionRepository/resources/d960ba65-e53a-4e40-8233-c4cd77d3b089/"},
"HyperlinkURL"],"IconizedItem"]}},DefaultBaseStyle -> "Column",GridBoxAlignment -> {"Columns" -> {{Left}}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}],Alignment -> Left,
BaselinePosition -> Baseline,FrameMargins -> {{5,4},{0,4}}],"DialogStyle",FontFamily -> "Roboto",
FontSize -> 11]}},BaselinePosition -> {1,1},GridBoxAlignment -> {"Columns" -> {{Left}},"Rows" -> {{Baseline}}},
GridBoxDividers -> {"Columns" -> {{None}},"Rows" -> {False,{GrayLevel[0.8`]},False}},
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}]},Dynamic[
Typeset`open],BaselinePosition -> Baseline,ImageSize -> Automatic],Background -> RGBColor[
0.9686274509803922`,0.9764705882352941`,0.984313725490196`],BaselinePosition -> Baseline,
DefaultBaseStyle -> {},FrameMargins -> {{0,0},{1,0}},FrameStyle -> RGBColor[0.8313725490196079`,
0.8470588235294118`,0.8509803921568627`],RoundingRadius -> 4]],{"FunctionResourceBox",RGBColor[
0.8745098039215686`,0.2784313725490196`,0.03137254901960784`],"FlightsOverhead"},
TagBoxNote -> "FunctionResourceBox"],ResourceFunction["FlightsOverhead"],BoxID -> "FlightsOverhead",
Selectable -> False],"[",TemplateBox[{"\"John F. Kennedy International Airport\"",RowBox[
{"Entity","[",RowBox[{"\"Airport\"",",","\"KJFK\""}],"]"}],"\"Entity[\\\"Airport\\\", \\\"KJFK\\\"]\"","\"airport\""},
"Entity"],"]"}]],"Input",CellChangeTimes -> {{3.8122896410686617`*^9,3.8122896739696903`*^9},{3.8122897824341`*^9,3.812289784580381`*^9}},
CellID -> 180187369,ExpressionUUID -> "c7d50ced-1f96-46a5-89e6-c0806878b4a9",TaggingRules -> {}],Cell[
BoxData[
RowBox[{"\[LeftAssociation]",RowBox[{RowBox[{"\"Flights\"","\[Rule]",RowBox[{"{",RowBox[
{TemplateBox[{"\"PSA Airlines flight 5513\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000132763\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000132763\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"American Airlines flight 2387\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000130577\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000130577\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"Corporate Flight Management flight 154\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000116380\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000116380\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"202101080000066674\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000066674\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000066674\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"202101080000107002\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000107002\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000107002\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"CommutAir flight 4825\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000109141\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000109141\\\"]\"","\"flight\""},
"Entity"],",",TemplateBox[{"\"Southwest Airlines flight 6003\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000089107\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000089107\\\"]\"","\"flight\""},
"Entity"]}],"}"}]}],",",RowBox[{"\"SkyMap\"","\[Rule]",TemplateBox[{GraphicsBox[{RGBColor[
0.6`,0.4`,0.2`],Thickness[0.003`],{LineBox[{{-0.6044336834817061`,-0.31852641149263455`},{-0.6823504284913076`,-0.22642281781299578`},{-0.750604165979464`,-0.12497999772071798`},{-0.8077734063656732`,-0.01446375642243362`},{-0.8521742629786632`,0.10477455710621872`},{-0.8818047130394804`,0.23222101461592407`},{-0.8942891263581013`,0.36708712880735084`},{-0.8895455853474291`,0.4568464201336152`}}],LineBox[
{{0.8954488655393009`,-0.4451643844742962`},{0.8484828330291302`,-0.4861728759026299`},{0.7336087594379604`,-0.5599285165997686`},{0.6140665553047239`,-0.6151717731250679`},{0.49200688053355696`,-0.6533708950373281`},{0.3691089697380114`,-0.6758643447896954`},{0.24671009234430882`,-0.6838329765529594`},{0.12590579094078364`,-0.6782960721767974`},{0.0076271876030937005`,-0.6601194807620119`},{-0.1072986885246337`,-0.630029283698265`},{-0.21810052917107295`,-0.5886275479556907`},{-0.32402227051556276`,-0.53640861658521`},{-0.42428724961149505`,-0.4737755492686544`},{-0.5180643222469016`,-0.40105711720774734`},{-0.6044336834817061`,-0.31852641149263455`}}]},{InsetBox[
FormBox[StyleBox["\"Sun\"",GrayLevel[0.5`],StripOnInput -> False],TraditionalForm],
{0.19560801343933598`,-0.5635881754872529`}],RGBColor[1.`,0.8305`,0.2606`],{EdgeForm[
{RGBColor[0.91855`,0.4613`,0.0019`],Thickness[0.002`]}],DiskBox[{0.23735607842189183`,-0.6838732055325014`},
0.05`]}},{},GrayLevel[0],{RGBColor[0.84`,0.84`,0.84`],Thickness[0.008`],CircleBox[
{0,0},1]},{PointSize[Large],Arrowheads[{{0.05`,1,GraphicsBox[{Opacity[1],InsetBox[
FormBox[StyleBox["\"\:2708\"",FontSize -> 22,FontColor -> RGBColor[1,0,0],StripOnInput -> False],
TraditionalForm],{0,0}]}]}}],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[
0.7`],LineBox[{{0.12198316262693532`,0.9461968677858349`},{0.10445812356183469`,0.9506964249116481`}}],GrayLevel[
0.715`],LineBox[{{0.10445812356183469`,0.9506964249116481`},{0.08918923326316291`,0.9543747304149963`}}],GrayLevel[
0.73`],LineBox[{{0.08918923326316291`,0.9543747304149963`},{0.07662368724143559`,0.9572461969232303`}}],GrayLevel[
0.745`],LineBox[{{0.07662368724143559`,0.9572461969232303`},{0.062299883284997574`,0.9603329723477704`}}],GrayLevel[
0.76`],LineBox[{{0.062299883284997574`,0.9603329723477704`},{0.05013974707372424`,0.9628216699305886`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.05013974707372424`,0.9628216699305886`},{0.03980557614151921`,0.9648341794183125`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.03980557614151921`,0.9648341794183125`},{0.02674038567701351`,0.9671467068213669`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.02674038567701351`,0.9671467068213669`},{0.01746521064423924`,0.9687519334913187`}}],GrayLevel[
0.82`],LineBox[{{0.01746521064423924`,0.9687519334913187`},{0.0063036545028471915`,0.9705834047978414`}}],GrayLevel[
0.835`],LineBox[{{0.0063036545028471915`,0.9705834047978414`},{-0.0019296266204575415`,0.9718979486983124`}}],GrayLevel[
0.85`],LineBox[{{-0.0019296266204575415`,0.9718979486983124`},{-0.009748067080400253`,0.9730956639399743`}}],GrayLevel[
0.865`],LineBox[{{-0.009748067080400253`,0.9730956639399743`},{-0.01108979473140853`,0.974588156318954`}}],GrayLevel[
0.88`],LineBox[{{-0.01108979473140853`,0.974588156318954`},{-0.009609548075638113`,0.9758205769216636`}}],GrayLevel[
0.895`],LineBox[{{-0.009609548075638113`,0.9758205769216636`},{-0.0066196255552361735`,0.9772012889301989`}}],GrayLevel[
0.9099999999999999`],LineBox[{{-0.0066196255552361735`,0.9772012889301989`},{-0.0035724778918630818`,0.9783303978304023`}}],GrayLevel[
0.925`],LineBox[{{-0.0035724778918630818`,0.9783303978304023`},{-0.00043880122558025803`,0.9794971182733424`}}],GrayLevel[
0.94`],LineBox[{{-0.00043880122558025803`,0.9794971182733424`},{0.0027389334095468142`,0.9809195800554066`}}],GrayLevel[
0.955`],LineBox[{{0.0027389334095468142`,0.9809195800554066`},{0.005534718936930105`,0.9822464274944738`}}],GrayLevel[
0.97`],LineBox[{{0.005534718936930105`,0.9822464274944738`},{0.007154115012144473`,0.983552478076507`}}],GrayLevel[
0.985`],LineBox[{{0.007154115012144473`,0.983552478076507`},{0.00837649285787918`,0.9848198314455142`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.10445812356183469`,0.9506964249116481`},{0.12198316262693532`,0.9461968677858349`}}]},
TemplateBox[{"\"PSA Airlines flight 5513\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000132763\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000132763\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000132763"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{-0.6255356659798545`,0.7563329164109285`},{-0.6312384433108216`,0.7533853455575679`}}],GrayLevel[
0.715`],LineBox[{{-0.6312384433108216`,0.7533853455575679`},{-0.6366659248678894`,0.7505517224614727`}}],GrayLevel[
0.73`],LineBox[{{-0.6366659248678894`,0.7505517224614727`},{-0.6427178678847286`,0.7474753595147309`}}],GrayLevel[
0.745`],LineBox[{{-0.6427178678847286`,0.7474753595147309`},{-0.6477445829218761`,0.744918588090168`}}],GrayLevel[
0.76`],LineBox[{{-0.6477445829218761`,0.744918588090168`},{-0.6541730976677131`,0.7417017835248024`}}],GrayLevel[
0.7749999999999999`],LineBox[{{-0.6541730976677131`,0.7417017835248024`},{-0.6589903143637498`,0.7393811688197385`}}],GrayLevel[
0.7899999999999999`],LineBox[{{-0.6589903143637498`,0.7393811688197385`},{-0.663597909467423`,0.7371460025334275`}}],GrayLevel[
0.8049999999999999`],LineBox[{{-0.663597909467423`,0.7371460025334275`},{-0.6681832551675692`,0.7348715718738295`}}],GrayLevel[
0.82`],LineBox[{{-0.6681832551675692`,0.7348715718738295`},{-0.6726023101041841`,0.7326598428535314`}}],GrayLevel[
0.835`],LineBox[{{-0.6726023101041841`,0.7326598428535314`},{-0.6774334577918325`,0.7299916724207511`}}],GrayLevel[
0.85`],LineBox[{{-0.6774334577918325`,0.7299916724207511`},{-0.6825262910224965`,0.7269956226604264`}}],GrayLevel[
0.865`],LineBox[{{-0.6825262910224965`,0.7269956226604264`},{-0.6877559995435276`,0.7237571218911792`}}],GrayLevel[
0.88`],LineBox[{{-0.6877559995435276`,0.7237571218911792`},{-0.6945848917091301`,0.7188195712367567`}}],GrayLevel[
0.895`],{LineBox[{{-0.6945848917091301`,0.7188195712367567`},{-0.6971010430426134`,0.7169728975274452`}}]},GrayLevel[
0.9099999999999999`],{},GrayLevel[0.925`],{},GrayLevel[0.94`],{},GrayLevel[0.955`],{},GrayLevel[
0.97`],{},GrayLevel[0.985`],{},Opacity[0],TagBox[TooltipBox[{ArrowBox[{{-0.6312384433108216`,0.7533853455575679`},{-0.6255356659798545`,0.7563329164109285`}}]},
TemplateBox[{"\"American Airlines flight 2387\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000130577\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000130577\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000130577"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],{},GrayLevel[
0.715`],{},GrayLevel[0.73`],{},GrayLevel[0.745`],{},GrayLevel[0.76`],{},GrayLevel[
0.7749999999999999`],{},GrayLevel[0.7899999999999999`],{},GrayLevel[0.8049999999999999`],{},GrayLevel[
0.82`],{},GrayLevel[0.835`],{},GrayLevel[0.85`],{},GrayLevel[0.865`],{},GrayLevel[
0.88`],{},GrayLevel[0.895`],{},GrayLevel[0.9099999999999999`],{},GrayLevel[0.925`],{},GrayLevel[
0.94`],{},GrayLevel[0.955`],{},GrayLevel[0.97`],{},GrayLevel[0.985`],{},Opacity[0],TagBox[
TooltipBox[{ArrowBox[{{-0.1429585212549902`,0.994407813383579`},{-0.10518797426036956`,0.9951128798617527`}}]},
TemplateBox[{"\"Corporate Flight Management flight 154\"",RowBox[{"Entity","[",RowBox[
{"\"FlightNumber\"",",","\"202101080000116380\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000116380\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000116380"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.0036943984312175714`,0.33997951706630514`},{0.0116218860038321`,0.34547028145921127`}}],GrayLevel[
0.715`],LineBox[{{0.0116218860038321`,0.34547028145921127`},{0.0201377049218388`,0.35132360272765556`}}],GrayLevel[
0.73`],LineBox[{{0.0201377049218388`,0.35132360272765556`},{0.02930563625995606`,0.35757210101710485`}}],GrayLevel[
0.745`],LineBox[{{0.02930563625995606`,0.35757210101710485`},{0.03919819069646914`,0.364251717595977`}}],GrayLevel[
0.76`],LineBox[{{0.03919819069646914`,0.364251717595977`},{0.04989796454536635`,0.37140196756748567`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.04989796454536635`,0.37140196756748567`},{0.06149920084493951`,0.3790661490271031`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.06149920084493951`,0.3790661490271031`},{0.07410957122370035`,0.3872914676441149`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.07410957122370035`,0.3872914676441149`},{0.08785218382600236`,0.39612901468608114`}}],GrayLevel[
0.82`],LineBox[{{0.08785218382600236`,0.39612901468608114`},{0.1028678026435963`,0.40563350650808555`}}],GrayLevel[
0.835`],LineBox[{{0.1028678026435963`,0.40563350650808555`},{0.11931722855406915`,0.41586265132725214`}}],GrayLevel[
0.85`],LineBox[{{0.11931722855406915`,0.41586265132725214`},{0.13738373399566786`,0.426875951076049`}}],GrayLevel[
0.865`],LineBox[{{0.13738373399566786`,0.426875951076049`},{0.15727535001751136`,0.43873266889665874`}}],GrayLevel[
0.88`],LineBox[{{0.15727535001751136`,0.43873266889665874`},{0.17922666144074145`,0.4514885949984156`}}],GrayLevel[
0.895`],LineBox[{{0.17922666144074145`,0.4514885949984156`},{0.20349955578366616`,0.46519112934276646`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.20349955578366616`,0.46519112934276646`},{0.23038207953140957`,0.4798720855556284`}}],GrayLevel[
0.925`],LineBox[{{0.23038207953140957`,0.4798720855556284`},{0.2601841801932917`,0.49553754693335095`}}],GrayLevel[
0.94`],LineBox[{{0.2601841801932917`,0.49553754693335095`},{0.29322869028215487`,0.5121541524580733`}}],GrayLevel[
0.955`],LineBox[{{0.29322869028215487`,0.5121541524580733`},{0.32983555170694556`,0.5296314943353172`}}],GrayLevel[
0.97`],LineBox[{{0.32983555170694556`,0.5296314943353172`},{0.3702972249303341`,0.5478010616551443`}}],GrayLevel[
0.985`],LineBox[{{0.3702972249303341`,0.5478010616551443`},{0.4148438783190476`,0.5663935692200841`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.0116218860038321`,0.34547028145921127`},{0.0036943984312175714`,0.33997951706630514`}}]},
TemplateBox[{"\"202101080000066674\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000066674\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000066674\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000066674"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{-0.6909165121406555`,0.7142557360140581`},{-0.6949879671618551`,0.7120968602844366`}}],GrayLevel[
0.715`],LineBox[{{-0.6949879671618551`,0.7120968602844366`},{-0.6991679499094458`,0.7096715407060893`}}],GrayLevel[
0.73`],LineBox[{{-0.6991679499094458`,0.7096715407060893`},{-0.7032365184280576`,0.7075591579044892`}}],GrayLevel[
0.745`],LineBox[{{-0.7032365184280576`,0.7075591579044892`},{-0.7069718735038776`,0.7055603135797714`}}],GrayLevel[
0.76`],{LineBox[{{-0.7069718735038776`,0.7055603135797714`},{-0.7101601474786262`,0.7040401728119894`}}]},GrayLevel[
0.7749999999999999`],{},GrayLevel[0.7899999999999999`],{},GrayLevel[0.8049999999999999`],{},GrayLevel[
0.82`],{},GrayLevel[0.835`],{},GrayLevel[0.85`],{},GrayLevel[0.865`],{},GrayLevel[
0.88`],{},GrayLevel[0.895`],{},GrayLevel[0.9099999999999999`],{},GrayLevel[0.925`],{},GrayLevel[
0.94`],{},GrayLevel[0.955`],{},GrayLevel[0.97`],{},GrayLevel[0.985`],{},Opacity[0],TagBox[
TooltipBox[{ArrowBox[{{-0.6949879671618551`,0.7120968602844366`},{-0.6909165121406555`,0.7142557360140581`}}]},
TemplateBox[{"\"202101080000107002\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000107002\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000107002\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000107002"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.21330264491883918`,0.47822896303172113`},{0.22966702918050083`,0.47648931725697447`}}],GrayLevel[
0.715`],LineBox[{{0.22966702918050083`,0.47648931725697447`},{0.24719114018803548`,0.4744167958597209`}}],GrayLevel[
0.73`],LineBox[{{0.24719114018803548`,0.4744167958597209`},{0.2659762452885939`,0.4719509323106808`}}],GrayLevel[
0.745`],LineBox[{{0.2659762452885939`,0.4719509323106808`},{0.2861306565837116`,0.4690199710630513`}}],GrayLevel[
0.76`],LineBox[{{0.2861306565837116`,0.4690199710630513`},{0.30776891910140497`,0.4655388633938832`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.30776891910140497`,0.4655388633938832`},{0.33101030977804324`,0.46140702832402936`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.33101030977804324`,0.46140702832402936`},{0.35597638834619766`,0.45650593158032915`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.35597638834619766`,0.45650593158032915`},{0.3827872839234793`,0.4506965952006736`}}],GrayLevel[
0.82`],LineBox[{{0.3827872839234793`,0.4506965952006736`},{0.41155635355286124`,0.4438172389212944`}}],GrayLevel[
0.835`],LineBox[{{0.41155635355286124`,0.4438172389212944`},{0.44238283170420756`,0.4356813779051933`}}],GrayLevel[
0.85`],LineBox[{{0.44238283170420756`,0.4356813779051933`},{0.47534213561016614`,0.4260768608397522`}}],GrayLevel[
0.865`],LineBox[{{0.47534213561016614`,0.4260768608397522`},{0.5104736464501216`,0.4147665178918261`}}],GrayLevel[
0.88`],LineBox[{{0.5104736464501216`,0.4147665178918261`},{0.5477661058309488`,0.4014912688851216`}}],GrayLevel[
0.895`],LineBox[{{0.5477661058309488`,0.4014912688851216`},{0.5871412989393151`,0.38597665707102785`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.5871412989393151`,0.38597665707102785`},{0.6284374493872564`,0.36794372576808093`}}],GrayLevel[
0.925`],LineBox[{{0.6284374493872564`,0.36794372576808093`},{0.6713946481783772`,0.34712482167384634`}}],GrayLevel[
0.94`],LineBox[{{0.6713946481783772`,0.34712482167384634`},{0.7156454666183368`,0.3232841832782318`}}],GrayLevel[
0.955`],LineBox[{{0.7156454666183368`,0.3232841832782318`},{0.7607143003921734`,0.2962420412511966`}}],GrayLevel[
0.97`],LineBox[{{0.7607143003921734`,0.2962420412511966`},{0.8060285343874342`,0.2658995893022444`}}],GrayLevel[
0.985`],LineBox[{{0.8060285343874342`,0.2658995893022444`},{0.8509430159485443`,0.23226097739392995`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.22966702918050083`,0.47648931725697447`},{0.21330264491883918`,0.47822896303172113`}}]},
TemplateBox[{"\"CommutAir flight 4825\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000109141\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000109141\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000109141"],
"Tooltip"]]],Opacity[0.5`],Thickness[Large],Opacity[1],GrayLevel[0.7`],LineBox[{{0.7850505010895763`,-0.5776757261274809`},{0.7766811826844557`,-0.5895772443460977`}}],GrayLevel[
0.715`],LineBox[{{0.7766811826844557`,-0.5895772443460977`},{0.7719626657717864`,-0.5969642424056087`}}],GrayLevel[
0.73`],LineBox[{{0.7719626657717864`,-0.5969642424056087`},{0.7626968174038777`,-0.610897872841843`}}],GrayLevel[
0.745`],LineBox[{{0.7626968174038777`,-0.610897872841843`},{0.7655044769159304`,-0.6097810347909465`}}],GrayLevel[
0.76`],LineBox[{{0.7655044769159304`,-0.6097810347909465`},{0.7653359004885347`,-0.6124156261694087`}}],GrayLevel[
0.7749999999999999`],LineBox[{{0.7653359004885347`,-0.6124156261694087`},{0.7646889952748818`,-0.6153538325062093`}}],GrayLevel[
0.7899999999999999`],LineBox[{{0.7646889952748818`,-0.6153538325062093`},{0.7658794032154368`,-0.6151146187515867`}}],GrayLevel[
0.8049999999999999`],LineBox[{{0.7658794032154368`,-0.6151146187515867`},{0.7683269956482007`,-0.6126678141366699`}}],GrayLevel[
0.82`],LineBox[{{0.7683269956482007`,-0.6126678141366699`},{0.7617081712097262`,-0.620468369210446`}}],GrayLevel[
0.835`],LineBox[{{0.7617081712097262`,-0.620468369210446`},{0.7612104083850162`,-0.6198408276018178`}}],GrayLevel[
0.85`],LineBox[{{0.7612104083850162`,-0.6198408276018178`},{0.7597020418818704`,-0.6207580882478032`}}],GrayLevel[
0.865`],LineBox[{{0.7597020418818704`,-0.6207580882478032`},{0.7583708835187732`,-0.6218728482145284`}}],GrayLevel[
0.88`],LineBox[{{0.7583708835187732`,-0.6218728482145284`},{0.7588962473460716`,-0.6206040432680545`}}],GrayLevel[
0.895`],LineBox[{{0.7588962473460716`,-0.6206040432680545`},{0.7539665654423462`,-0.6265206782680958`}}],GrayLevel[
0.9099999999999999`],LineBox[{{0.7539665654423462`,-0.6265206782680958`},{0.7478055181263178`,-0.6331473389784673`}}],GrayLevel[
0.925`],LineBox[{{0.7478055181263178`,-0.6331473389784673`},{0.7416617760476606`,-0.6397351084064624`}}],GrayLevel[
0.94`],LineBox[{{0.7416617760476606`,-0.6397351084064624`},{0.7358119248532695`,-0.6461707021896832`}}],GrayLevel[
0.955`],LineBox[{{0.7358119248532695`,-0.6461707021896832`},{0.7303102880459064`,-0.6521410159507688`}}],GrayLevel[
0.97`],LineBox[{{0.7303102880459064`,-0.6521410159507688`},{0.7242482518201531`,-0.6583009721029839`}}],GrayLevel[
0.985`],LineBox[{{0.7242482518201531`,-0.6583009721029839`},{0.7182780103550962`,-0.6636871936947107`}}],Opacity[
0],TagBox[TooltipBox[{ArrowBox[{{0.7766811826844557`,-0.5895772443460977`},{0.7850505010895763`,-0.5776757261274809`}}]},
TemplateBox[{"\"Southwest Airlines flight 6003\"",RowBox[{"Entity","[",RowBox[{"\"FlightNumber\"",",","\"202101080000089107\""}],"]"}],"\"Entity[\\\"FlightNumber\\\", \\\"202101080000089107\\\"]\"","\"flight\""},
"Entity"]],Function[Annotation[Slot[1],Entity["FlightNumber","202101080000089107"],
"Tooltip"]]]}},Background -> None,PlotRange -> {{-1,1},{-1,1}},PlotRangePadding -> 0.03`],InterpretationBox[
Cell[
BoxData[FormBox[StyleBox["\"S\"",StripOnInput -> False],TextForm]],"InlineText"],
Text[Style["S"]]],InterpretationBox[Cell[
BoxData[FormBox[StyleBox["\"E\"",StripOnInput -> False],
TextForm]],"InlineText"],Text[Style["E"]]],InterpretationBox[Cell[
BoxData[FormBox[
StyleBox["\"N\"",StripOnInput -> False],TextForm]],"InlineText"],Text[Style["N"]]],InterpretationBox[
Cell[
BoxData[FormBox[StyleBox["\"W\"",StripOnInput -> False],TextForm]],"InlineText"],
Text[Style["W"]]]},"Labeled",DisplayFunction -> Function[GridBox[{{"",ItemBox[Slot[
4],DefaultBaseStyle -> "LabeledLabel"],""},{ItemBox[Slot[3],DefaultBaseStyle -> "LabeledLabel"],TagBox[
ItemBox[PaneBox[TagBox[Slot[1],"SkipImageSizeLevel"],Alignment -> {Center,Baseline},
BaselinePosition -> Baseline,ImageMargins -> 5],DefaultBaseStyle -> "Labeled"],"SkipImageSizeLevel"],ItemBox[
Slot[5],DefaultBaseStyle -> "LabeledLabel"]},{"",ItemBox[Slot[2],DefaultBaseStyle -> "LabeledLabel"],""}},
GridBoxAlignment -> {"Columns" -> {{Center}},"Rows" -> {{Center}}},AutoDelete -> False,
GridBoxItemSize -> {"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}},BaselinePosition -> {2,2}]],
InterpretationFunction -> Function[RowBox[{"Labeled","[",RowBox[{Slot[1],",",RowBox[
{"{",RowBox[{Slot[2],",",Slot[3],",",Slot[4],",",Slot[5]}],"}"}],",","All",",",RowBox[
{"FrameMargins","\[Rule]","5"}]}],"]"}]]]}]}],"\[RightAssociation]"}]],"Output",CellChangeTimes -> {{3.812289661460073`*^9,3.812289677954986`*^9},{3.81228977864431`*^9,3.812289789882815`*^9},3.819118727805327`*^9},
CellID -> 235889243,ExpressionUUID -> "31b44447-8e98-48b8-b6c1-2581af240f47",TaggingRules -> {}]},
Open],ExpressionUUID -> "e62102de-b6d4-4e22-8c78-4f14697de820"]},Open],ExpressionUUID -> "40082dc1-ab47-4c87-8a31-674d691fd6b6"]},
{1}],ExpressionUUID -> "970b983b-ff12-4d4a-9ffd-05e3807bf074"]},StyleDefinitions -> Notebook[
{Cell[
StyleData[StyleDefinitions -> FrontEnd`FileName[{"Wolfram"},"Reference.nb",
CharacterEncoding -> "UTF-8"]]],Cell[
StyleData[All,"Working"],Editable -> True,DockedCells -> {}],Cell[
StyleData[
"Notebook"],Editable -> True,DockedCells -> {},ScrollingOptions -> {"VerticalScrollRange" -> Automatic}],Cell[
StyleData[
"Section",StyleDefinitions -> StyleData["PrimaryExamplesSection"]],Editable -> True,
ShowGroupOpener -> "Inline",WholeCellGroupOpener -> True],Cell[
StyleData["Subsection",
StyleDefinitions -> StyleData["ExampleSection"]],Editable -> True,ShowGroupOpener -> "Inline",
WholeCellGroupOpener -> True],Cell[
StyleData["Subsubsection",StyleDefinitions -> StyleData[
"ExampleSubsection"]],Editable -> True,ShowGroupOpener -> "Inline",WholeCellGroupOpener -> True],Cell[
StyleData[
"Subsubsubsection",StyleDefinitions -> StyleData["ExampleSubsubsection"]],Editable -> True,
ShowGroupOpener -> "Inline",WholeCellGroupOpener -> True],Cell[
StyleData["Text",
StyleDefinitions -> StyleData["ExampleText"]],Editable -> True]},Visible -> False,
FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",StyleDefinitions -> "PrivateStylesheetFormatting.nb"],
WindowTitle -> "FlightsOverhead | Example Notebook",WindowSize -> Automatic,WindowMargins -> Automatic,
Visible -> False,FrontEndVersion -> "14.2 for Wolfram Cloud 1.72 (April 27, 2025)",
ClosingSaveDialog -> False]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment