(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 246233, 5574] NotebookOptionsPosition[ 106311, 2839] NotebookOutlinePosition[ 228682, 5190] CellTagsIndexPosition[ 227695, 5158] WindowTitle->HeatIndex | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["HeatIndex", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->28358657], Cell["\<\ Get the human-perceived temperature using air temperature and relative \ humidity\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->532281688], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "1"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "2"}], "=", "\"\\ \""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "3"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "4"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "5"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "6"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "7"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "8"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"HeatIndex", "::", "9"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"locate$19", "[", "position_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "res", "}"}], ",", RowBox[{"res", "=", RowBox[{"Quiet", "@", RowBox[{"AssociationThread", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "->", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{ RowBox[{"WeatherData", "[", RowBox[{"#", ",", "\"\\""}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"WeatherData", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}], "}"}], "&"}], "/@", RowBox[{"GeoNearest", "[", RowBox[{"\"\\"", ",", "position", ",", "1"}], "]"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "HeatIndex", "]"}], "=", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "[", "]"}], ":=", RowBox[{"HeatIndex", "[", "Here", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"HeatIndex", "[", RowBox[{"location_", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"HeatIndex", "[", RowBox[{"location", ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"HeatIndex", "[", RowBox[{"location_", ",", "resFormat_", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"locate$19", "[", "location", "]"}], "[", "\"\\"", "]"}], ",", RowBox[{ RowBox[{"locate$19", "[", "location", "]"}], "[", "\"\\"", "]"}]}], "}"}], ",", "resFormat", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{"temperature_", ",", "relativeHumidity_"}], "}"}], ",", "resFormat_", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "tmin", ",", "tmax", ",", "tt3", ",", "arh2", ",", "arh2x", ",", "tempForm", ",", "temperatureForm", ",", "relativeHumidityForm", ",", "heatIndex", ",", "heatIndexHumidityUnder40Percent", ",", "tUnder", ",", "t", ",", "result", ",", "resultConvert", ",", "unitConvert", ",", "plot", ",", "groupT"}], "}"}], ",", RowBox[{ RowBox[{"tmin", "=", "80"}], ";", " ", RowBox[{"tmax", "=", "110"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"groupT", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"tt3", "=", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"QuantityQ", "[", "temperature", "]"}], "&&", RowBox[{"MemberQ", "[", RowBox[{"groupT", ",", RowBox[{"QuantityUnit", "[", "temperature", "]"}]}], "]"}]}], ",", RowBox[{"QuantityMagnitude", "[", RowBox[{"temperature", ",", "\"\\""}], "]"}], ",", RowBox[{ RowBox[{"QuantityQ", "[", "temperature", "]"}], "&&", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"groupT", ",", RowBox[{"QuantityUnit", "[", "temperature", "]"}]}], "]"}], "\[Equal]", "False"}]}], ",", RowBox[{"Return", "@", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "5"}], "]"}]}], ",", RowBox[{"NumericQ", "[", "temperature", "]"}], ",", "temperature", ",", "True", ",", RowBox[{"Return", "@", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "9"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"arh2", "=", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"QuantityUnit", "[", "relativeHumidity", "]"}], "===", "\"\\""}], ",", RowBox[{"QuantityMagnitude", "[", "relativeHumidity", "]"}], ",", RowBox[{ RowBox[{"QuantityMagnitude", "[", "relativeHumidity", "]"}], "<", "1"}], ",", RowBox[{ RowBox[{"QuantityMagnitude", "[", "relativeHumidity", "]"}], "*", "100"}], ",", RowBox[{ RowBox[{"QuantityQ", "[", "relativeHumidity", "]"}], "\[Equal]", "False"}], ",", "relativeHumidity", ",", "True", ",", RowBox[{"Return", "@", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "8"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"tempForm", "=", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"QuantityUnit", "[", "temperature", "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{ RowBox[{"QuantityUnit", "[", "temperature", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", RowBox[{ RowBox[{"QuantityUnit", "[", "temperature", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", RowBox[{ RowBox[{"QuantityUnit", "[", "temperature", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", RowBox[{ RowBox[{"QuantityQ", "[", "temperature", "]"}], "\[Equal]", "False"}], ",", "\"\\"", ",", "True", ",", "Nothing"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"temperatureForm", "[", "tx_", "]"}], ":=", RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"tx", ",", "\"\\""}], "]"}], ",", "tempForm"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"relativeHumidityForm", "[", "rhx_", "]"}], ":=", RowBox[{"Quantity", "[", RowBox[{"rhx", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"heatIndex", "[", RowBox[{"relatHumidity_", ",", "temp_"}], "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "42.379"}], "+", RowBox[{"2.04901523", "*", "temp"}], "+", RowBox[{"10.14333127", "*", "relatHumidity"}], "-", RowBox[{"0.22475541", "*", "temp", "*", "relatHumidity"}], "-", RowBox[{"6.83783*^-3", "*", RowBox[{"temp", "^", "2"}]}], "-", RowBox[{"5.481717*^-2", "*", RowBox[{"relatHumidity", "^", "2"}]}], "+", RowBox[{"1.22874*^-3", "*", RowBox[{"temp", "^", "2"}], "*", "relatHumidity"}], "+", "\n", " ", RowBox[{"8.5282*^-4", "*", "temp", "*", RowBox[{"relatHumidity", "^", "2"}]}], "-", RowBox[{"1.99*^-6", "*", RowBox[{ RowBox[{"(", RowBox[{"temp", "*", "relatHumidity"}], ")"}], "^", "2"}]}]}], ")"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"heatIndexHumidityUnder40Percent", "[", RowBox[{"relatHumidity_", ",", "temp_"}], "]"}], ":=", " ", RowBox[{"(", RowBox[{"0.363445176", "+", RowBox[{"0.988622465", "*", "temp"}], "+", RowBox[{"4.777114035", "*", "relatHumidity"}], "-", RowBox[{"0.114037667", "*", "temp", "*", "relatHumidity"}], "-", RowBox[{"0.000850208", "*", RowBox[{"temp", "^", "2"}]}], "\n", " ", "-", RowBox[{"0.020716198", "*", RowBox[{"relatHumidity", "^", "2"}]}], "+", RowBox[{"0.000687678", "*", RowBox[{"temp", "^", "2"}], "*", "relatHumidity"}], "+", RowBox[{"0.000274954", "*", "temp", "*", RowBox[{"relatHumidity", "^", "2"}]}]}], ")"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"resultConvert", "[", "res_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], "===", RowBox[{"{", "}"}]}], ",", "res", ",", RowBox[{"MemberQ", "[", RowBox[{"groupT", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ",", RowBox[{"UnitConvert", "[", RowBox[{"res", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"groupT", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], "\[Equal]", "False"}], ",", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "6"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"unitConvert", "[", "unit_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], "===", RowBox[{"{", "}"}]}], ",", "unit", ",", RowBox[{"MemberQ", "[", RowBox[{"groupT", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"groupT", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], "\[Equal]", "False"}], ",", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "6"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"tUnder", "=", " ", RowBox[{"temperatureForm", "[", RowBox[{"heatIndexHumidityUnder40Percent", "[", RowBox[{"arh2", ",", "tt3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"t", "=", RowBox[{"temperatureForm", "[", RowBox[{"heatIndex", "[", RowBox[{"arh2", ",", "tt3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", " ", RowBox[{"result", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"arh2", "<", "40"}], ",", "\n", " ", "tUnder", ",", "\n", " ", "t"}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"tt3", "<", "tmin"}], ",", "\n", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"tt3", "<", RowBox[{"-", RowBox[{"(", RowBox[{"45967", "/", "100"}], ")"}]}]}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "1"}], "]"}], ";"}], "\n", " ", ",", "\n", " ", RowBox[{ RowBox[{"Return", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "2"}], "]"}], ";", RowBox[{"TildeTilde", "[", RowBox[{"\"\<\>\"", ",", RowBox[{"N", "[", RowBox[{"resultConvert", "[", RowBox[{"temperatureForm", "[", "tt3", "]"}], "]"}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"Return", "[", "]"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"tt3", ">", "tmax"}], ",", "\n", " ", RowBox[{ RowBox[{"Return", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "2"}], "]"}], ";", RowBox[{"TildeTilde", "[", RowBox[{"\"\<\>\"", ",", RowBox[{"N", "[", RowBox[{"resultConvert", "[", "result", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\n", " ", RowBox[{"Return", "[", "]"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"arh2", ">", "100"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "3"}], "]"}], ";", "\n", " ", RowBox[{"Return", "[", "]"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"arh2", "<", "0"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "4"}], "]"}], ";", "\n", " ", RowBox[{"Return", "[", "]"}], ";"}]}], "\n", " ", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"plot", "=", RowBox[{"Quiet", "@", RowBox[{"Plot", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"arh2", ">", "39"}], ",", RowBox[{"QuantityMagnitude", "[", RowBox[{"resultConvert", "[", RowBox[{"temperatureForm", "[", RowBox[{"heatIndex", "[", RowBox[{"arh2", ",", "te"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"QuantityMagnitude", "[", RowBox[{"resultConvert", "[", RowBox[{"temperatureForm", "[", RowBox[{"heatIndexHumidityUnder40Percent", "[", RowBox[{"arh2", ",", "te"}], "]"}], "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"te", ",", "tmin", ",", "tmax"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", RowBox[{"unitConvert", "@", "tempForm"}]}], "]"}]}], "}"}]}], ",", RowBox[{"LabelStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0", "]"}], ",", "10"}], "}"}]}], ",", RowBox[{"Background", "->", "None"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"Automatic", ",", "250"}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", RowBox[{"arh2", "//", "ToString"}], ",", "\"\<%\>\""}], "]"}]}], ",", RowBox[{"Epilog", " ", "->", " ", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"tt3", ",", RowBox[{"QuantityMagnitude", "[", RowBox[{"resultConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"QuantityMagnitude", "@", "result"}], ",", "tempForm"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Which", "[", RowBox[{ RowBox[{"resFormat", "===", "\"\\""}], ",", RowBox[{"resultConvert", "[", "result", "]"}], ",", RowBox[{"resFormat", "===", "\"\\""}], ",", "plot", ",", RowBox[{"resFormat", "===", "\"\\""}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "->", RowBox[{"resultConvert", "[", "result", "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "plot"}]}], "|>"}], ",", "True", ",", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"HeatIndex", "::", "7"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", 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}, CellChangeTimes->{ 3.805887112836907*^9, {3.805963262196536*^9, 3.805963266171463*^9}, { 3.806071586659745*^9, 3.806071633091872*^9}, {3.806071777612445*^9, 3.8060717806609297`*^9}, {3.80607207319351*^9, 3.8060721153427877`*^9}, { 3.806074983712061*^9, 3.8060750125505333`*^9}, {3.806075282883673*^9, 3.806075302815039*^9}, {3.8060779609314055`*^9, 3.8060780391268406`*^9}, { 3.8060782951678095`*^9, 3.8060783094160547`*^9}, {3.806078766203434*^9, 3.806078767185835*^9}, {3.806079116002638*^9, 3.8060791172175207`*^9}, { 3.8061396209592934`*^9, 3.8061396584991984`*^9}, {3.806139701472026*^9, 3.8061399437580867`*^9}, {3.806139988557992*^9, 3.806139992302269*^9}, { 3.806140105226225*^9, 3.806140111735705*^9}, {3.8061401662403965`*^9, 3.8061401666381416`*^9}, {3.806140410800868*^9, 3.8061404114861727`*^9}, 3.8061406945773983`*^9, {3.806140968899434*^9, 3.806141019214547*^9}, 3.806144211191701*^9, {3.8061516517122583`*^9, 3.8061517284960113`*^9}, 3.806151857987217*^9, {3.806314358499365*^9, 3.8063143902911825`*^9}, { 3.8063145479074755`*^9, 3.8063145588651657`*^9}, {3.806314668623781*^9, 3.8063146693905897`*^9}, {3.806315169155723*^9, 3.8063154459857416`*^9}, { 3.8063154942859774`*^9, 3.8063154975666423`*^9}, {3.8063156772138176`*^9, 3.8063157168217573`*^9}, {3.806316064434807*^9, 3.806316081883673*^9}, { 3.8063162752932606`*^9, 3.8063163232220707`*^9}, {3.806316450143008*^9, 3.8063164811559005`*^9}, {3.806316562756774*^9, 3.8063165710527587`*^9}, { 3.8063171706578107`*^9, 3.806317176140385*^9}, {3.806317519903035*^9, 3.806317524974037*^9}, 3.8063176010049477`*^9, {3.806321171505512*^9, 3.8063211855816727`*^9}, {3.8063341324083295`*^9, 3.8063342701525545`*^9}, {3.8063343498030767`*^9, 3.8063343954287004`*^9}, {3.8063345166624393`*^9, 3.806334614602831*^9}, { 3.806334652870887*^9, 3.8063347005645905`*^9}, {3.806396141502671*^9, 3.8063961647779665`*^9}, {3.8063964274421577`*^9, 3.806396435906892*^9}, { 3.806396758718766*^9, 3.8063968174050274`*^9}, {3.80639690579418*^9, 3.806396915730397*^9}, {3.8063980975244017`*^9, 3.8063981027287073`*^9}, { 3.8063981876591387`*^9, 3.8063982288400955`*^9}, {3.806400994230873*^9, 3.8064010901900873`*^9}, 3.8066673396481466`*^9, {3.807788298242483*^9, 3.807788348652732*^9}, {3.807866160805797*^9, 3.8078661624415293`*^9}, { 3.8078663458342977`*^9, 3.807866362666904*^9}, {3.807866513550433*^9, 3.8078665167937746`*^9}, {3.8078666209568677`*^9, 3.8078666299904284`*^9}, {3.8078667457668657`*^9, 3.807866753624152*^9}, { 3.8078668667381964`*^9, 3.8078668838837357`*^9}, {3.8078670276635323`*^9, 3.8078670464592037`*^9}, {3.807867123755316*^9, 3.8078671379264565`*^9}, { 3.807867229653455*^9, 3.8078672333226175`*^9}, {3.8078672741107583`*^9, 3.8078673222935915`*^9}, {3.8078673795241795`*^9, 3.8078674034668427`*^9}, {3.807867505607829*^9, 3.8078675600871716`*^9}, { 3.807891702306197*^9, 3.8078917119531097`*^9}}, CellTags->"TabNext", CellLabel->"In[89]:=", CellID->61144528] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->109939409], Cell["gives the heat index for the user's location.", "UsageDescription", CellID->980437407] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", StyleBox["loc", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->155005269], Cell[TextData[{ "gives the heat index for a location ", Cell[BoxData[ StyleBox["loc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->920891152] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", StyleBox["rh", "TI"]}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->439095025], Cell[TextData[{ "gives the heat index for a temperature ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and a relative humidity ", Cell[BoxData[ StyleBox["rh", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "UsageDescription", CellID->566567348] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ StyleBox["\[Ellipsis]", "TR"], ",", StyleBox["form", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->438593038], Cell[TextData[{ "gives the result in the desired output ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->176063811] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell["\<\ Heat index is the temperature perceived by humans, in the shade, taking into \ account air temperature and relative humidity. The function works with values \ between 80 \[Degree]F and 110 \[Degree]F for the temperature and values \ between 0% and 100% for relative humidity.\ \>", "Notes", CellTags->"TabNext", CellID->290120446], Cell[TextData[{ "The function can be used with one or two arguments. If the function is used \ with one argument, the argument is the location (in the form of an ", 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"], ", ", 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["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"], " argument) or a list with air temperature and relative humidity \ information, where the user is requesting the heat index value. This \ information comes from the nearest weather station to that location and the \ value may vary over time." }], "Notes", CellTags->"TabNext", CellID->523340747], Cell["\<\ In the case with two arguments, the second argument specifies the format of \ the output and can be a temperature, plot or an association giving both \ temperature and plot:\ \>", "Notes", CellTags->"TabNext", CellID->552559668], Cell[BoxData[GridBox[{ {Cell["\"Temperature\"", "TableText"], Cell[ "value of temperature that is the heat index", "TableText"]}, {Cell["\"Plot\"", "TableText"], Cell[ "plot of the curve of temperatures", "TableText"]}, {Cell["\"PropertyAssociation\"", "TableText"], Cell[ "all results as an association", "TableText"]} }]], "TableNotes", CellID->598092358], Cell[TextData[{ "The plot shows the temperature curve (the ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " axis is the air temperature and ", Cell[BoxData[ StyleBox["y", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " axis is the heat index temperature) for a given relative humidity." }], "Notes", CellID->79189482], Cell[TextData[{ "Temperatures accepted are ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "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/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects of temperature type such as \"DegreesCelsius\" or as a numeric \ value, in which case it is interpreted as Fahrenheit." }], "Notes", CellID->85441981], Cell[TextData[{ "If the relative humidity unit is not specified in the ", Cell[BoxData[ StyleBox["rh", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " argument, a value between 1 and 100 is considered as a percentage. If the \ value is given between 0 and 1, it is considered as a fraction and \ automatically converted into a percentage. For example, ", Cell[BoxData["0.25"], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["25"], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Quantity", "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/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{"25", ",", "\"\\""}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " are all equivalent." }], "Notes", CellTags->"TabNext", CellID->482375954], Cell["\<\ HeatIndex accepts the option \"ResultUnit\" to specify the unit of the \ result. The accepted values are \"DegreesFahrenheit\", \"DegreesCelsius\", \ \"DegreesRankine\" and \"Kelvins\". By default, the unit is inherited from \ the inputs. If no unit is provided, \"DegreesFahrenheit\" is used.\ \>", "Notes", CellTags->"TabNext", CellID->218556875] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Get the current heat index at your location:", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805964978534504*^9}, 3.8059664246915426`*^9, {3.8060558220036182`*^9, 3.80605587338803*^9}, { 3.806142488041107*^9, 3.806142493869582*^9}, {3.8061429248582554`*^9, 3.8061429305441437`*^9}, {3.8063347894922895`*^9, 3.806334802398491*^9}, { 3.8063985533788276`*^9, 3.8063986007723103`*^9}, {3.8078917540319557`*^9, 3.807891793912341*^9}, {3.8079763971787033`*^9, 3.8079764091701307`*^9}}, CellID->295146332], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80641412638969*^9, 3.806414131739813*^9}, 3.807891733287403*^9}, CellLabel->"In[16]:=", CellID->381139116], Cell[BoxData[ TemplateBox[{ "84.97889132112255`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.8064141405349956`*^9, 3.8078918165743513`*^9}, CellLabel->"Out[16]=", CellID->835174287] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Get the heat index in Miami:", "Text", TaggingRules->{}, CellChangeTimes->{ 3.80718923602114*^9, {3.8072588231413064`*^9, 3.8072588297517986`*^9}, { 3.8072591526313543`*^9, 3.8072591553833895`*^9}, {3.807359208918722*^9, 3.807359373157841*^9}, {3.807360161076192*^9, 3.8073601985359325`*^9}, { 3.8078685375312815`*^9, 3.8078685395922422`*^9}, {3.807891742835037*^9, 3.8078917516718435`*^9}, {3.807976424875391*^9, 3.807976430499385*^9}}, CellID->33680237], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", TemplateBox[{"\"Miami\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Miami\"", ",", "\"Florida\"", ",", "\"UnitedStates\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Miami\\\", \\\"Florida\\\", \\\"UnitedStates\ \\\"}]\"", "\"city\""}, "Entity"], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805890212515236*^9, 3.8058902311682353`*^9}, { 3.8061399670119147`*^9, 3.8061399688014*^9}, {3.806140421844211*^9, 3.806140425554045*^9}, {3.806141067323818*^9, 3.806141067866274*^9}, { 3.8061422625196686`*^9, 3.806142310240922*^9}, {3.80633480688313*^9, 3.8063348079727287`*^9}, 3.806397177060873*^9, 3.8063972783074045`*^9, 3.8063973550194216`*^9}, CellLabel->"In[30]:=", CellID->940693617], Cell[BoxData[ TemplateBox[{ "93.18735260249991`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.8063973595353637`*^9, 3.8063981145733614`*^9, 3.806398242922058*^9, 3.806401141480694*^9}, CellLabel->"Out[30]=", CellID->837514618] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Specify the desired output as \"Temperature\":", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805964978534504*^9}, 3.8059664246915426`*^9, {3.8060558220036182`*^9, 3.80605587338803*^9}, { 3.806142488041107*^9, 3.806142493869582*^9}, {3.8061429248582554`*^9, 3.8061429305441437`*^9}, {3.8063347894922895`*^9, 3.806334802398491*^9}, { 3.8063984766997786`*^9, 3.806398545171814*^9}, {3.8063986118574867`*^9, 3.8063986503855677`*^9}, {3.807976437609964*^9, 3.8079764522802973`*^9}}, CellID->687657507], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ TemplateBox[{"\"Jakarta\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Jakarta\"", ",", "\"Jakarta\"", ",", "\"Indonesia\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Jakarta\\\", \\\"Jakarta\\\", \\\"Indonesia\ \\\"}]\"", "\"city\""}, "Entity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806398433604848*^9, 3.8063984513090305`*^9}}, CellLabel->"In[31]:=", CellID->278719979], Cell[BoxData[ TemplateBox[{ "85.33080658998392`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.806398457369336*^9, 3.806401146922058*^9}, CellLabel->"Out[31]=", CellID->676308512] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Specify a temperature and humidity instead of a location:", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805964978534504*^9}, 3.8059664246915426`*^9, {3.8060558220036182`*^9, 3.80605587338803*^9}, { 3.806142488041107*^9, 3.806142493869582*^9}, {3.8061429248582554`*^9, 3.8061429305441437`*^9}, {3.8063986577236757`*^9, 3.8063986583405895`*^9}, {3.8078685997773204`*^9, 3.807868604589923*^9}, { 3.807976464004332*^9, 3.807976478627735*^9}}, CellID->457702918], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{"{", RowBox[{ TemplateBox[{ "100", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"], ",", TemplateBox[{"55", "\"%\"", "percent", "\"Percent\""}, "QuantityPostfix"]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805890212515236*^9, 3.8058902311682353`*^9}, { 3.8061399670119147`*^9, 3.8061399688014*^9}, {3.806140421844211*^9, 3.806140425554045*^9}, {3.806141067323818*^9, 3.806141067866274*^9}, { 3.8061422625196686`*^9, 3.806142310240922*^9}, {3.8063982450223136`*^9, 3.8063982492486506`*^9}, {3.8078685920683155`*^9, 3.8078685945103164`*^9}, { 3.807976481890383*^9, 3.807976482096108*^9}}, CellLabel->"In[104]:=", CellID->11050733], Cell[BoxData[ TemplateBox[{ "123.6382986000001`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.8063982510588064`*^9, 3.8064011489828677`*^9, 3.8078695628356304`*^9, 3.807976486904965*^9}, CellLabel->"Out[104]=", CellID->926082284] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ The output unit, in this case degrees Celsius, is inherited from the input:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, 3.8059664854538097`*^9, 3.8060724609395227`*^9, {3.8061440076741934`*^9, 3.806144019911252*^9}, {3.80797649586364*^9, 3.80797651908313*^9}}, CellID->338777780], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{"{", RowBox[{ TemplateBox[{ "39", "\"\[Degree]C\"", "degrees Celsius", "\"DegreesCelsius\""}, "Quantity"], ",", TemplateBox[{"35", "\"%\"", "percent", "\"Percent\""}, "QuantityPostfix"]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805890334899253*^9, 3.805890392622218*^9}, 3.805890501863455*^9, {3.80614001474826*^9, 3.8061400175144467`*^9}, { 3.8061404353982687`*^9, 3.806140435756255*^9}, {3.806141082749752*^9, 3.806141083585931*^9}, {3.8063982567897377`*^9, 3.8063982608027086`*^9}, { 3.807868621736004*^9, 3.807868624050384*^9}, {3.807976521357724*^9, 3.807976521563814*^9}}, CellLabel->"In[105]:=", CellID->350697601], Cell[BoxData[ TemplateBox[{ "44.581215706377805`", "\"\[Degree]C\"", "degrees Celsius", "\"DegreesCelsius\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.805890386480542*^9, 3.805890393363316*^9}, 3.8058905033429213`*^9, 3.8061400183476257`*^9, 3.8061401211216183`*^9, 3.806140175371113*^9, 3.806140436643553*^9, 3.8061410843232965`*^9, 3.806151873295323*^9, 3.806398261570774*^9, 3.806401150699421*^9, 3.8078695650101104`*^9, 3.8079765219886837`*^9}, CellLabel->"Out[105]=", CellID->118750743] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["\<\ If the temperature is not explicitly given with the unit, is interpreted as \ Fahrenheit (95 \[Degree]F):\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965032878626*^9}, 3.8059664538920493`*^9, 3.80607245709781*^9, {3.8061423600623145`*^9, 3.806142376273177*^9}, {3.806142413005921*^9, 3.806142447080514*^9}, { 3.8061429411436825`*^9, 3.8061429461361384`*^9}, {3.8061430610083246`*^9, 3.806143063208078*^9}, {3.8061460903014946`*^9, 3.806146097165777*^9}, { 3.8061461346317472`*^9, 3.806146146574758*^9}, {3.806146218094691*^9, 3.806146223951024*^9}, {3.807976542799759*^9, 3.807976544418601*^9}, 3.823949754409061*^9}, CellID->661674064], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{"{", RowBox[{"95", ",", TemplateBox[{"35", "\"%\"", "percent", "\"Percent\""}, "QuantityPostfix"]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058902700582123`*^9, 3.8058903101768527`*^9}, { 3.8061400052279615`*^9, 3.8061400090234795`*^9}, {3.806140432478897*^9, 3.8061404328182173`*^9}, {3.8061423813974633`*^9, 3.806142381446411*^9}, 3.8061425283964615`*^9, {3.8063982641421013`*^9, 3.806398268220559*^9}, { 3.8078686340013056`*^9, 3.807868636122266*^9}, {3.807976550144251*^9, 3.807976551754037*^9}}, CellLabel->"In[106]:=", CellID->872611627], Cell[BoxData[ TemplateBox[{ "98.47391805100004`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.805890329757507*^9, 3.806072424268589*^9, 3.8061400099013543`*^9, 3.806140119523553*^9, 3.806140173490237*^9, 3.8061404335080156`*^9, 3.8061410644291983`*^9, 3.806142383049624*^9, 3.8061425297549334`*^9, 3.806151874854226*^9, 3.806398269414547*^9, 3.8064011520986567`*^9, 3.8078695666724734`*^9, 3.807976552539906*^9}, CellLabel->"Out[106]=", CellID->356984862] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ "If the relative humidity is not given as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "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/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", values between zero and one are interpreted as a fraction:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965032878626*^9}, 3.8059664538920493`*^9, 3.80607245709781*^9, {3.8061423600623145`*^9, 3.806142376273177*^9}, {3.806142413005921*^9, 3.806142447080514*^9}, { 3.8061429411436825`*^9, 3.8061429461361384`*^9}, {3.8061430610083246`*^9, 3.806143063208078*^9}, {3.8061460903014946`*^9, 3.806146097165777*^9}, { 3.8061461346317472`*^9, 3.806146146574758*^9}, {3.806146218094691*^9, 3.806146223951024*^9}, {3.807976562713367*^9, 3.807976615047477*^9}, { 3.807976653006819*^9, 3.8079766640553427`*^9}}, CellID->376780057], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{"{", RowBox[{"95", ",", "0.35"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058902700582123`*^9, 3.8058903101768527`*^9}, { 3.8061400052279615`*^9, 3.8061400090234795`*^9}, {3.806140432478897*^9, 3.8061404328182173`*^9}, {3.8061423813974633`*^9, 3.806142381446411*^9}, 3.8061425283964615`*^9, {3.8063982641421013`*^9, 3.806398268220559*^9}, { 3.8078686340013056`*^9, 3.807868636122266*^9}, {3.80797658217516*^9, 3.807976588862544*^9}}, CellLabel->"In[108]:=", CellID->534317568], Cell[BoxData[ TemplateBox[{ "98.47391805100004`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.805890329757507*^9, 3.806072424268589*^9, 3.8061400099013543`*^9, 3.806140119523553*^9, 3.806140173490237*^9, 3.8061404335080156`*^9, 3.8061410644291983`*^9, 3.806142383049624*^9, 3.8061425297549334`*^9, 3.806151874854226*^9, 3.806398269414547*^9, 3.8064011520986567`*^9, 3.8078695666724734`*^9, {3.807976582884592*^9, 3.807976589446328*^9}}, CellLabel->"Out[108]=", CellID->656652813] }, Open ]], Cell["\<\ Humidity values between one and one hundred are interpreted as a percentage:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965032878626*^9}, 3.8059664538920493`*^9, 3.80607245709781*^9, {3.8061423600623145`*^9, 3.806142376273177*^9}, {3.806142413005921*^9, 3.806142447080514*^9}, { 3.8061429411436825`*^9, 3.8061429461361384`*^9}, {3.8061430610083246`*^9, 3.806143063208078*^9}, {3.8061430937976975`*^9, 3.806143185168971*^9}, { 3.806143248287011*^9, 3.806143269550044*^9}, 3.8061433338908787`*^9, { 3.806146186090458*^9, 3.8061461893910832`*^9}, {3.8063983031885195`*^9, 3.8063983228976107`*^9}, {3.807976624073043*^9, 3.807976639911235*^9}}, CellID->976175783], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{"95", ",", "35"}], "}"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058902700582123`*^9, 3.8058903101768527`*^9}, { 3.8061400052279615`*^9, 3.8061400090234795`*^9}, {3.806140432478897*^9, 3.8061404328182173`*^9}, {3.8061423813974633`*^9, 3.806142381446411*^9}, 3.8061425283964615`*^9, {3.8061431896869736`*^9, 3.806143243161629*^9}, 3.8063983774078326`*^9, {3.8078686387651863`*^9, 3.8078686416812005`*^9}, { 3.807976642635873*^9, 3.807976646728051*^9}}, CellLabel->"In[109]:=", CellID->762939733], Cell[BoxData[ TemplateBox[{ "98.47391805100004`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.805890329757507*^9, 3.806072424268589*^9, 3.8061400099013543`*^9, 3.806140119523553*^9, 3.806140173490237*^9, 3.8061404335080156`*^9, 3.8061410644291983`*^9, 3.806142383049624*^9, 3.8061425297549334`*^9, 3.80614334405723*^9, 3.8061518763475046`*^9, 3.8063983830398197`*^9, 3.8064011535460653`*^9, 3.807869568664079*^9, 3.807976647347847*^9}, CellLabel->"Out[109]=", CellID->562100537] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["\<\ Create a plot of the heat index as temperature varies for relative humidity \ fixed at the current value of Cairo. The red point indicates the current \ temperature:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, 3.8059664854538097`*^9, 3.8060724609395227`*^9, {3.8061440076741934`*^9, 3.806144019911252*^9}, {3.806398681634408*^9, 3.8063987069072175`*^9}, { 3.80797669100942*^9, 3.807976736279545*^9}, {3.8079767666347103`*^9, 3.807976776578054*^9}, {3.807982629195722*^9, 3.80798262953251*^9}}, CellID->167709368], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ TemplateBox[{"\"Cairo\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Cairo\"", ",", "\"Cairo\"", ",", "\"Egypt\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Cairo\\\", \\\"Cairo\\\", \ \\\"Egypt\\\"}]\"", "\"city\""}, "Entity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805890334899253*^9, 3.805890392622218*^9}, 3.805890501863455*^9, {3.80614001474826*^9, 3.8061400175144467`*^9}, { 3.8061404353982687`*^9, 3.806140435756255*^9}, {3.806141082749752*^9, 3.806141083585931*^9}, {3.806397456930414*^9, 3.8063974599120255`*^9}, { 3.806397508297423*^9, 3.806397516918505*^9}, {3.80639769828852*^9, 3.8063977003238745`*^9}, {3.8063977354010906`*^9, 3.8063977547168975`*^9}, {3.806397822103419*^9, 3.8063978430532055`*^9}, { 3.806398136864052*^9, 3.80639813743775*^9}, 3.8064012701101093`*^9, 3.8064013033457685`*^9, 3.806401339776647*^9, 3.8064013717508354`*^9}, CellLabel->"In[48]:=", CellID->359730997], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV0Hk41HkcB3ClHNHmqI3dVLJatbNFxy5JvZ/uJqWd+Z3z/SmkQ0gHohxF a4uasM+gg3Ik2zFD2H3aXR2qKSRtqRiVYzEYj2fziHW2s398nvfz+vzxeT/P x94vRLJzvIGBwWb9/J/n/FP0QSE1/rODHf0SqJ+YlafpzV0YaAoZkKBXlHD8 23EU0i0sZQN6iz8eMSDjKURZv9prNCjByI/+Y6UTKHQdyTZyHJZg+9XvhwJN KWx4vulr/08SOHa9+/DGioKRot28y1iKopD5zSpHChkJSwKm2kphkZm6LmkL BZ2I86lbIUWM9nxSUSiFlojDuU/8pPAblnjYnKdQN3coPT9BCrmLJuxaOYUa iQuzRinFkxPj5D91ULg8S1eifSmFeGhAlGxJIyvCPSVwVIrVblmu9W40HiSW XuycS0GsaHUI3k6DS4hXrtX3nrMeUohO0mhWx3Vfi6TQr1Rpv1PSaDTpGafJ oVBpPS3/+Esag4uLOzRVFNrPb9QNDNOojCsuMB+kYLFypsVtewaHNiQVNjvQ iJtY/scVMYOtZ10WmEhpBCqm1b44yEBtaNlrHkfDb5XpU3EGg7ai6Ngz+p5s y6finnsMzLLyp55spNEzuuCXt+0MGiPfSromM4g395X3T2HRv9KGaMFA3rqq aasri8fWSqH4EIOC+oeW/d4s7C3byN1cBqYfplWqE1hUXA9rk9cxiHQ09mu5 wUIcVrckcRILH4eCXStesFjEDkwWLWchX23T+2iIRaRqkfPtgyyqjjl5Z8zm sDxz3+FN+Sy8moy90jZy6By5f6vzvf6OafrN2gMc6ta49C6bzkHqpdZ5p3OQ vLZ9HODJIe+3h4VW9zhUJt9bXJ3AwdBjB23VzkHkGmk+VMahPqlol8SMx7nP YtOK+jgMjDwbK1vMw1HHyR4583BIOh0eyvM4rGAnRgXwSHe3DWPieJQlv45W XeVha7pOGl/AI8jz4cUDLTysLs/J+qeaB23UB9UMGaT8s5BT/TwUrbPiUwQZ chZ+YR+s33/ecP12Q4YMbk5L+ai1Mhw7m7Zep5Fhfden0apgGXZm5mriZhDs qNgbt+tnGer3eN6XyQgeV+adEf0pQ2ZuccnsLAK3zpgIjxYZskV7KqzeE8z5 y+S53Jgg0zknxt9OgKTBV2nmTOB1NKCvyk9AyngS9JImYNulH13zBPRtvTQz iiHoWDjnzLYrArhLfz//iiXw7rnlciJfwMzlQUvDOYLWii+zawoE3AiLHrMh BPuHJ9nuvilA3XEpeZsPQeKG7cEZvwoYedZa0rmXQJXYeHVChQAfu3m7UwMJ 1uwfefNNpYAHgcG27kEEpZUNU6VVAhJN+qNPBxO4v28uya4WMH2V8fqF+wnu xJrJV74QsKh0Xn1oGEHFjdq86AYBCsN9SXbhBKTJJvvKWwH//nDLQ63305Oz rlW/E3C3Z1nO9AiCLa6hLXZNAjydPAN/P0JQY+nefadVQGF4st2OowS+3alb tG0CrB/V1phFEbxyv1k2RStA4+u9xDta/x+3eeU+nQI8CrPbJ8YQ+GsT2VNd Ai6PtWUo9WYmqQaLdAImbJ6/iY0lcMpRFGi6Bey+sG/0k961yhX+hj0C/gOB YzXW "]]}, Annotation[#, "Charting`Private`Tag$53877#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{80., 75.85793734948518}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[ NCache[{ Rational[484, 5], 94.99841248470402}, {96.8, 94.99841248470402}]]}, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Heat Index - DegreesFahrenheit\"", TraditionalForm], None}, { FormBox["\"Temperature Range - DegreesFahrenheit\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{Automatic, 250}, LabelStyle->{ GrayLevel[0], 10}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ "\"Heat Index at relative humidity of 22.1%\"", TraditionalForm], PlotRange->{{80, 110}, {75.85793734948518, 115.71895700570468`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806401375931094*^9}, CellLabel->"Out[48]=", CellID->533743222] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell["\<\ Use \"PropertyAssociation\" to get the heat index and plot together:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.805965537029833*^9}, {3.8059658029007545`*^9, 3.8059658957325945`*^9}, {3.805966628884516*^9, 3.8059666354295053`*^9}, 3.8059669039283366`*^9, {3.806142972057132*^9, 3.806143022984053*^9}, { 3.806143364478859*^9, 3.8061434399045305`*^9}, {3.8061434926719017`*^9, 3.8061434933843193`*^9}, 3.8061440706506248`*^9, {3.8061519290817013`*^9, 3.8061519845256786`*^9}, {3.8063988314035516`*^9, 3.806398859251235*^9}, { 3.807976799324642*^9, 3.80797680999122*^9}, 3.8079826402653923`*^9}, CellID->498376207], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ TemplateBox[{"\"Beirut\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Beirut\"", ",", "\"Beirut\"", ",", "\"Lebanon\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Beirut\\\", \\\"Beirut\\\", \ \\\"Lebanon\\\"}]\"", "\"city\""}, "Entity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8063988005581903`*^9, 3.806398809791258*^9}}, CellLabel->"In[50]:=", CellID->408782706], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Temperature\"\>", "\[Rule]", TemplateBox[{ "97.83584863659996`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]}], ",", RowBox[{"\<\"Plot\"\>", "\[Rule]", GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVUGs0lAkYNsUOh5NbCmEJNWSr3SQq9lmdblYR3zcz33xNZsb4PgeDtS6R axdd2FnaI7fdmko1lWV025MiK1RKJG1RnaOyEptVW5TV2G9/vOc5z/u8z/O+ 53VRJIRFzTAwMNjE1f9YrizmgECo1qMh6RiBtpumzYc47vt9XnvwcQJvvfLz vuARsNjc+tnCKgJB7zMM6BkEbi6zNHtygsDUHqX+oiEBwbXLGzecJhBxasVk rAnnf7Cp2ENHwH346ZuHVgQ003lbzBsJ1CV4Pqt1J5AbbH+I7eNyfzm4rmAz N19vmiO3J5H9sqKgLpnrl1ecXkmRUPwb5m9bQSBxXRr/ejkJ9Zd9KWeauby9 Wh3/BYmbu3nqvUOc30qUn+4pRNDkhFeRJQms/fmbgB1CrPE77NvrR6Ksu/zS SAenlwy4qiJIWFSfmDB3EqHcerLEax8JY9tzaYHbRRivqX3pU0PCl3G+p+4U od3a5mTefRJdK0f1JgIxBis2jkz8S2LoDM81qEAMi6+dLC67CNHk017wdliM nUbNV04ECWFR0WI3TlKILbHp6U4SwiBlf6+8mYIi0OROUJkQuZ18fY6nBEct 7wSNNgkh87R2vHBYgtFPi08/GRTCuTdvzH8WjV1mcvW4uQjOj20qkw/QUA8E 9of6itDfmMTr4G+FtrfFclzK6a9lcS05W2Hyxqa9LV8EA6tMys1IinR3vuJ5 tQhLszKXtO2WQuaqZQK6RQj9/fX+TsNtUK+xfds6KYJtY3zCh4PbcDtXIC1z FqN/cStVZx+BkH5+yKGNYui6VXCui0CQSemvPd+J4ZzkZmnrJkN4SNuItFSM IVnHX2ZxMlT91qKzahJjad88Sf0VGWb6R5JWg2Ik/pGx9iRfjt6COibMlIJs jeODPeFyTEzd1TcsoxC6qtM3/ZQcrgWFqckUBU3W9eiwCTlKV9mlCHdS0FY2 JBwIUcDOZF34Li2FKu8qTfpxBaw08w+PdVDwkivz/SYUCKfuJuwfp+B9Kmbs fHgkji2xd1E5SGD48XhM4dlI+AmWU5lrJShs+rs5xkyJ9cPTn26rJDD2dSnz USkReStmJ/OTBNHP3AKMbilxo73qB6+rEthuzs9esTgKfq+yt/s/lyBx9Y+z AtRRmH/PuEvNpyHIENg9eB2FsMfyGtOlNNzEYo9FIgbFM+i4+ySN0I+1tVP1 DN6FHnHKFNLYd8+7seEqA/GRF11uIhoaw3nD2Y0MnFbHLU8V0wjeYVrBa2ZQ nZKlt6VpRJ/NlBjfYtA2dKRom4yG4RyNdN5DBlN3By68iqGRPHskTvQPA5mj B3swlsbAhsqFDu8ZXI9V2a2Ko+H1qHq6f5zBAePxrEIVDSX/HT92ksHcQP76 JYk04rRW6bk8Fl9d9OhNTqHR867oqc6cRcnM+ALHVO6eh8L4NEsWH7ac82/j +IXZ2Q4B1iyuja48Nnc7DQfNWNftOSyCBcGx9Rk0qj5GVQw5stClFjlG7qDh fd5nju5zFtatPZ2mmZx+I7o2zYVFn1zqLc3idN4bP747C3/d0UGjbG7fgvWL Ohew0Oj/LKvh+IaTer9SAQvDTZ7finK4/+bNZSI8WbCV8Z+mOf7oUnHtQi8W /wHmQhND "]]}, Annotation[#, "Charting`Private`Tag$55077#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{80., 82.5382531077205}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[ NCache[{ Rational[439, 5], 97.83584863659996}, {87.8, 97.83584863659996}]]}, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Heat Index - DegreesFahrenheit\"", TraditionalForm], None}, { FormBox["\"Temperature Range - DegreesFahrenheit\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{Automatic, 250}, LabelStyle->{ GrayLevel[0], 10}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ "\"Heat Index at relative humidity of 66.5%\"", TraditionalForm], PlotRange->{{80, 110}, {82.5382531077205, 185.3798444601041}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806398814867623*^9, 3.806401388653949*^9}, CellLabel->"Out[50]=", CellID->127753522] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[TextData[{ "Provide 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"], " instead of an ", 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"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.805965537029833*^9}, {3.8059658029007545`*^9, 3.8059658957325945`*^9}, {3.805966628884516*^9, 3.8059666354295053`*^9}, 3.8059669039283366`*^9, {3.806142972057132*^9, 3.806143022984053*^9}, { 3.806143364478859*^9, 3.8061434399045305`*^9}, {3.8061434926719017`*^9, 3.8061434933843193`*^9}, 3.8061440706506248`*^9, {3.8061519290817013`*^9, 3.8061519845256786`*^9}, {3.8063988314035516`*^9, 3.806398832760816*^9}, { 3.806398864859231*^9, 3.8063988718041325`*^9}, 3.8071892852531333`*^9, { 3.8072593974340415`*^9, 3.807259448819244*^9}, 3.80735984055258*^9, { 3.807976825225465*^9, 3.807976834200732*^9}, 3.8238837277978888`*^9}, CellID->223957070], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"23.806078", ",", "11.288452"}], "}"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8070647463313837`*^9, 3.8070647713978977`*^9}, { 3.8078687360145197`*^9, 3.8078687383055367`*^9}, {3.8078689456072025`*^9, 3.807868965454829*^9}}, CellLabel->"In[258]:=", CellID->167825121], Cell[BoxData[ TemplateBox[{ "97.10145257549601`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070647521043124`*^9, 3.8070647760492873`*^9}, 3.807173228679862*^9, 3.8078695826827116`*^9}, CellLabel->"Out[258]=", CellID->418059521] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell["\<\ The \"ResultUnit\" option specifies the temperature unit for the result:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654369263225`*^9, 3.8059654559583855`*^9}, 3.8059666023546414`*^9, 3.807976847996868*^9, {3.807982652910438*^9, 3.807982656083383*^9}}, CellID->700649172], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{ "103", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"], ",", "45"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058904242631426`*^9, 3.8058904634380627`*^9}, { 3.805890567862383*^9, 3.805890650189685*^9}, {3.8058907008149066`*^9, 3.805890722038781*^9}, {3.806140088640974*^9, 3.8061400918588343`*^9}, { 3.8061404398395386`*^9, 3.8061404524131994`*^9}, 3.8061410913879848`*^9, { 3.806398940104393*^9, 3.8063989446178627`*^9}, {3.8078687840695744`*^9, 3.807868786171417*^9}, {3.807976850198678*^9, 3.807976850360365*^9}}, CellLabel->"In[110]:=", CellID->298110063], Cell[BoxData[ TemplateBox[{"322.9070979`", "\"K\"", "kelvins", "\"Kelvins\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8058906076500173`*^9, 3.8058906513575163`*^9, {3.8058906923459024`*^9, 3.805890723313701*^9}, {3.806140093044982*^9, 3.8061401261941004`*^9}, 3.806140177060547*^9, {3.8061404413421917`*^9, 3.806140452980343*^9}, { 3.8061410879723883`*^9, 3.806141093177909*^9}, 3.8061518815358887`*^9, 3.8063989466218967`*^9, 3.806401395174985*^9, 3.80797685177973*^9}, CellLabel->"Out[110]=", CellID->957834708] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107570], Cell["Create a plot with the heat index values shown in Celsius:", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.8059656375582237`*^9}, {3.8059658993571024`*^9, 3.805965956989072*^9}, {3.805966664287188*^9, 3.805966675405229*^9}, 3.80596691389672*^9, {3.8061434717788725`*^9, 3.8061435522238407`*^9}, { 3.807868770801441*^9, 3.8078687720899057`*^9}, {3.807976868356003*^9, 3.8079769148449507`*^9}}, CellID->911309610], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{"99", ",", TemplateBox[{"35", "\"%\"", "percent", "\"Percent\""}, "QuantityPostfix"]}], "}"}], ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058904242631426`*^9, 3.8058904634380627`*^9}, { 3.8058908644472647`*^9, 3.805890887552579*^9}, {3.805965771546751*^9, 3.8059657716438756`*^9}, {3.806140498101759*^9, 3.8061405103696756`*^9}, { 3.8078687752770796`*^9, 3.8078687773855906`*^9}}, CellLabel->"In[111]:=", CellID->943311179], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVkns0lHkYxyelyeK4HbnUOC5Nq1JJmxpj+BoM3leR5v7uFIr2hNJmZFsj VCKaVOuS3UW6rNrSaNNNaycxW7SajXZTdpOshjqt2jVTRPvuH7/znM/5Pr/P 8/zxeCRui0syYzAYq+n3fz226TBdhNBwWUkzozjQ3bZsLf+fN/c9TyI4eONT kLd4mhDpvwUfaic5IMZ2MSgzIbTZ/5D71nDwft+mqaYZQsS+tFbNFHKw4buV 4ykWQjAkNi02Gzhgj/zx+nd7IXLlYc08JQeN2xY+vcAWYtRlZx2zjgPbb48I itcIYXul5OYc8wDkPK8qbsygfU2ertabApA4EcdzrqLnn0h5/NmtAKiXPVKe bRXC/VThV8mLubi9d5p6v4HOXbdnXj7CBTFu8im1E6HUQ/SCNT0QoZzqVb0c EfrHei7NzQgEUTbolbZBBPcgE/fJk0Accxgv8ykUQb987QlSwoOx4cJz/wYR cpvH/Jbf4aHDwfF0Xjftiy546c4NwlBV1AvThAijNhErIq4FwTbYzfaahxjx /i/fKZYFI9+8tfkUIYYmz6nM83IwUsoce+5/Lgaj28LhIAtI5FvcJSrFiDVa zb7+KXDc7i7xSivG6NoEU0Ed8GpyyZm+ITG0JcqB/kFgj1WC2mgjgW2O6Kjj khCoB/n9sask0MawAyN3hqC+t83OqJCgUuRRpb0RAovXjh26AgnSWUkzFBZ8 fMFmJg6ck6De4+M7rnF8xHvVJwfdl+DqbJX+YBUf6lDnN+3jtM9aSaWO8NGZ 662odJeicOpq53z/UMT0M2PKo6SoP+Or2l8UCsKi4nzPdik0SQ5Pf+gLxboY 3QtFhRQP7z1gKheF4eSVNo29lmanq/ns/DBM520U2Q9JgQcXdwt6wtBb3Jgc ZymDt9+B8yPscJjed039uFyGh23kjvbd4fAqLsnMkMmgH3bN6uwJRwXXRSnO l4GxUlXP9xPAxUKwbk+9DAYn3nntAQHsaz2rR3+RIT7EUHV6QIB1sq5tRUYZ NPr1ZHhoBOqWunqkzZVDv29a4KnqCHC8V8iyw+Xwdjbo3ppFImLkw2Rnmhy5 ncpLHcmR2HhnS37yUTkeLm6rnd0eiZ87Th70uSFHodpdXuMTBc5wThZvQA7t +oybKnUUPH+dpVczKRj0fcOH/45C3OOEBktfCqPlE/yFcgKHzajUbhEF2xam 4X4LgX9ja9yyxRR9CNREuZaAtOaZfp6EgveuWjbVSsAtMHVFppRCvPmHlmft BM4pVVPOFAXfImtz410COkNN6fp4CrmC9D/dHhN43zV4aXgLhbcV0bo8E4F4 1oLNR1Lo/qauK5HvCNxKSXPhptLzBHytzQSBA7OMqpI0Ctpbk47VUwSc+MyI pekUZvnoeprNSfg1LejNUFJIv/hNzYQDibLpW4tZmfR/K39GmyOJt2sv8nQ0 9/dqd5Y4kfjpVUCdUxaFLP3Z71lzSER7R6dc30X7Funnh3iS0GSWsjZ+Se/j NRb00TwSDu099yyz6fyQ5dZuNolHCYpPFCo6b7WyS15Agqc5PmSeQ/uKTHuX LiJRO/VXZQPNuW3dNu98SMxYvZCU7KYQu+N4Y+sSEpu/3jr5gWZDWfyWEl8S /wENkRV+ "]]}, Annotation[#, "Charting`Private`Tag$628785#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{80., 25.28525382960987}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{99, 41.015545668333345`}]}, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Heat Index - DegreesCelsius\"", TraditionalForm], None}, { FormBox["\"Temperature Range - DegreesFahrenheit\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{Automatic, 250}, LabelStyle->{ GrayLevel[0], 10}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ "\"Heat Index at relative humidity of 35%\"", TraditionalForm], PlotRange->{{80, 110}, {25.28525382960987, 54.379285142098354`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.805890464235385*^9, 3.8058908886328497`*^9, 3.8059657845013485`*^9, 3.8061405111787376`*^9, 3.806151883876217*^9, 3.8063989558012247`*^9, 3.806401396768738*^9, 3.807976883741517*^9}, CellLabel->"Out[111]=", CellID->104053280] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell[TextData[{ "Values outside the supported range are inaccurate, and in these cases the \ result is a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TildeTilde", "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/TildeTilde", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.8059656375582237`*^9}, {3.8059656829257984`*^9, 3.805965746349766*^9}, 3.8059667192370596`*^9, {3.806399443724455*^9, 3.8063994681628637`*^9}, {3.806414181693741*^9, 3.8064142768033104`*^9}, { 3.8078759631434264`*^9, 3.807875985186414*^9}, 3.8078774488818808`*^9, { 3.80797696076571*^9, 3.807976977259964*^9}, {3.807977022337359*^9, 3.807977035475129*^9}, {3.807977339726375*^9, 3.807977346045429*^9}}, CellID->50691709], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", "Here", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8063994075862913`*^9, 3.80639941398448*^9}, { 3.8079769857221117`*^9, 3.807977008823371*^9}}, CellLabel->"In[115]:=", CellID->618193660], Cell[BoxData[ TemplateBox[{ "ResourceFunction", "usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"HeatIndex\\\", \ \\\"::\\\", \\\"2\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\\\", \ TemplateBox[List[\\\"\\\\\\\"The actual temperature is outside range, the \ result is not accurate\\\\\\\"\\\"], \\\"RowDefault\\\"]], \ \\\"RowDefault\\\"]\\)\"", 2, 115, 41, 20652281725217597793, "Local"}, "MessageTemplate"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{ 3.8063994168837066`*^9, 3.8078695976531944`*^9, {3.807976984399137*^9, 3.807977010301683*^9}}, CellLabel->"During evaluation of In[115]:=", CellID->353057508], Cell[BoxData[ RowBox[{"\<\"\"\>", "\[TildeTilde]", TemplateBox[{ "77.`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.807869597662383*^9, {3.807976984411047*^9, 3.807977010311833*^9}}, CellLabel->"Out[115]=", CellID->492323571] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107571], Cell["\<\ Sometimes the nearest weather station of a specific location does not have \ data of air temperature and/or relative humidity:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.8059656375582237`*^9}, {3.8059656829257984`*^9, 3.805965746349766*^9}, 3.8059667192370596`*^9, {3.806399443724455*^9, 3.8063994681628637`*^9}, {3.8064014298561397`*^9, 3.8064014685527587`*^9}, {3.806401843211317*^9, 3.8064018454624662`*^9}, 3.807977360875277*^9}, CellID->143194281], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", TemplateBox[{"\"Quito\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Quito\"", ",", "\"Pichincha\"", ",", "\"Ecuador\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Quito\\\", \\\"Pichincha\\\", \ \\\"Ecuador\\\"}]\"", "\"city\""}, "Entity"], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8063994075862913`*^9, 3.80639941398448*^9}, 3.8064014799748325`*^9}, CellLabel->"In[56]:=", CellID->647398790], Cell[BoxData[ TemplateBox[{ "ResourceFunction", "usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"HeatIndex\\\", \ \\\"::\\\", \\\"9\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\\\", \ TemplateBox[List[\\\"\\\\\\\"There is no data on the nearest weather station \ to that location\\\\\\\"\\\"], \\\"RowDefault\\\"]], \ \\\"RowDefault\\\"]\\)\"", 2, 56, 6, 33042574380074152465, "Local"}, "MessageTemplate"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{3.8063994168837066`*^9, 3.806401491584114*^9}, CellLabel->"During evaluation of In[56]:=", CellID->649641345] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107572], Cell[TextData[{ "Even if the unit of the input temperature is different from Fahrenheit, the \ ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " axis in the plot remains in Fahrenheit:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.8059656375582237`*^9}, {3.8059656829257984`*^9, 3.805965746349766*^9}, 3.8059667192370596`*^9, {3.823883743953084*^9, 3.823883748194975*^9}}, CellID->991691874], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"302", "\"K\"", "kelvins", "\"Kelvins\""}, "Quantity"], ",", TemplateBox[{"67", "\"%\"", "percent", "\"Percent\""}, "QuantityPostfix"]}], "}"}], ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058904242631426`*^9, 3.8058904634380627`*^9}, { 3.8058908644472647`*^9, 3.805890887552579*^9}, 3.805890981922903*^9, { 3.806140520053276*^9, 3.8061405332827196`*^9}, {3.806152142377155*^9, 3.8061521435697002`*^9}, {3.8078696210007534`*^9, 3.807869623065879*^9}}, CellLabel->"In[261]:=", CellID->510392762], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVz3s0VAkcB3CkI6vNDAkpx9ADS+i1qKlvU2mbVYo7z2uKIVpDRREazL1z 00OcUTuRjqRU6pTo1NbWtmu9klrvtjPV7qaN9FiVGK3n3v3jd77nc37ne87v x1PuDN1mZmJisoGd//NEdD4bBG4Rp17x+jVoaLSqOc5a/ygtn8+63yub8jYl YLjPXyVjLRxMNyHNCGROzbqmYz26P3r8hjmB3cM9TydYb73w9bDKkkBTarDw r08azH3zx8fHNgSUEwn6M4MaVO307Lo6l8D8xVbdgf9qwCk+GpSzkUDWWAwt MaWQ+aoop2oPgXltypaNlhSUI6F8hyICefY6NzWXQp7fk+RLNQS8/Ns96mZS aGRM8w70sveGHdzd6kZBODzkpeOKsH3g9rYvFlBYHXDK3xAgArdWXEz5s3v9 S7eErSLEC1p55wUUTtgO670OisC0lHVbb6RgrLj6ammFCEF8QuAko9Bka3ee 6hCh2T9WHRxNoado/duhERFGcuVDhl0UOCudOT/yxCDsPK72qynQk2vunBOK sfzPO7r0wxRUervO9iQxPsVXH/QpZP8RWD4UFopRs2bpY+k5CqXch8K+ajGs BRWPplyn0De24OKzHjGuf+7L5NVQ0E6NzDNaS6Co/vR7Rxv7/0vB803+EgxE Lou51EWh3FDHNSokqMr9oaT9AwXLj3ZNDdkSFNg4eVw2pZE210L54rIEx5qz zz7g0ohwK49Z0S6B8udnL4Z4NPJWO/TXD0sw37Y3490iGg807opCFymUVqNn OWtphDy3CDm+Xoo63SR7jpSG0LLgSmeiFGtWLs5xU9EIC2l4qyiQYlqteVFI Bo2ym3WVNtVSNO3dkL0jn8YkfpTIpkcKy/dR4UVlNAw5VTGhVjI8+m6ireYm jaHR5vG7i2QYVq9wGXxIwy3nSMoemQzWLmlmzl00CpY5JotpGcKruaVRQzQc LYPCtOUy0DM32X0/VQub066nPvwmQ/mhf8Jv8bQIkzXvPGSUoeLXkRROgBZn fGbyEmbJ0R54zbg8RIsA9yUy9Vo5yO5EQWWsFuveTIw9SJAjWmJS6qzRIup+ HB1zTI5vJC1xwgIt7jWV5Xr9JIffu6STnZVs/3VmKv+FHM5pJMW5r4Vr25TW PAsSn0udpvl2aRH6NLLCypeEwwFXi/oRLfLNyPgOEYljwcWiwekMBjaVOKvF JFwVyvMxdgykJX+3zpGQOJGaO/6YtfPy+CUpUhLerXb1t2cwuJycMe5AknA3 e39J48CgobdEtyWChG9ireHLWQxGm19efx1Hgt43UOvtxiBitkfsURWJxt50 09Osa1UJjsviSQxExAbZzGFweIox40gCCdOkpB4ja3uBxTqfXSQ6ZmzOqp7H YOEND8OeZBI6le90kScD/aQdObNTSCw8YN94j/Xnzdf4DazvXInWBn7F4Je+ wDP2qSRSnPw4Ll4Mgt2DVbfTSdxNO0q/9WZQmaKbHbWPRO67i4lbFjCwre9s sVKTQNz87W2sn0QqFisySIRnE6qbPgz4laU9kzNJ1M4xT/X0ZXB6vLuwgjWn 2fFIMWvzDZ7fSrLYPq2/wPFjEHtyx9gEa/GqvU1a1v8B0CIlpA== "]]}, Annotation[#, "Charting`Private`Tag$72174#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{80., 542.2665550584416}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[ NCache[{ Rational[8393, 100], 549.0615786895364}, {83.93, 549.0615786895364}]]}, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Heat Index - DegreesRankine\"", TraditionalForm], None}, { FormBox["\"Temperature Range - DegreesFahrenheit\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{Automatic, 250}, LabelStyle->{ GrayLevel[0], 10}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ "\"Heat Index at relative humidity of 67%\"", TraditionalForm], PlotRange->{{80, 110}, {542.2665550584416, 646.1893510166944}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.805890464235385*^9, 3.8058908886328497`*^9, 3.8058909855291386`*^9, 3.8061405340535545`*^9, 3.806151887368394*^9, 3.8061521444556274`*^9, 3.80639926768604*^9, 3.8078696363482895`*^9}, CellLabel->"Out[261]=", CellID->46373370] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107573], Cell["\<\ For relative humidity values between 0% and 1%, the input must be explicitly \ given with a percentage unit. Otherwise, in the example below, 12% would be \ interpreted instead of 0.12%:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805964942125046*^9, 3.805965124525715*^9}, { 3.8059651858534193`*^9, 3.8059652878527813`*^9}, {3.805965327682996*^9, 3.80596540078819*^9}, {3.8059654316782465`*^9, 3.8059654324380913`*^9}, { 3.8059654755655065`*^9, 3.8059656375582237`*^9}, {3.8059656829257984`*^9, 3.805965746349766*^9}, {3.8059659894293857`*^9, 3.805966107741203*^9}, 3.805966785786969*^9, {3.807977380383499*^9, 3.8079773917016973`*^9}, { 3.807982701329681*^9, 3.8079827062124367`*^9}}, CellID->786182191], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HeatIndex", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{ "103", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"], ",", TemplateBox[{"0.12", "\"%\"", "percent", "\"Percent\""}, "QuantityPostfix"]}], "}"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8058904242631426`*^9, 3.8058904634380627`*^9}, { 3.805890567862383*^9, 3.805890666439578*^9}, {3.805891505432667*^9, 3.80589151898998*^9}, {3.8061405405102477`*^9, 3.8061405448510127`*^9}, { 3.806399256788823*^9, 3.8063992604969273`*^9}, {3.807869625488553*^9, 3.807869628747749*^9}}, CellLabel->"In[260]:=", CellID->903699638], Cell[BoxData[ TemplateBox[{ "93.2110291258416`", "\"\[Degree]F\"", "degrees Fahrenheit", "\"DegreesFahrenheit\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8058906076500173`*^9, {3.8058906513575163`*^9, 3.8058906675400715`*^9}, 3.805891520318703*^9, 3.806140546200955*^9, 3.8061518899904737`*^9, 3.806399261176659*^9, 3.8078696319219236`*^9}, CellLabel->"Out[260]=", CellID->572007173] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Claudio Lobo Chaib Filho", "Text", CellID->629036819] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["Temperature", "Item", CellID->405542599], Cell["Humidity", "Item", CellID->770990531], Cell["Heat index", "Item", CellID->327354814], Cell["Weather", "Item", CellID->564079256], Cell["Feels like", "Item", CellID->288539045] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Knowledge Representation & Natural Language", "Item", CellID->926508959], Cell["Scientific and Medical Data & Computation", "Item", CellID->525597770], Cell["Visualization & Graphics", "Item", CellID->891139041] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["WeatherData", "Item", CellID->676826509], Cell["AirTemperatureData", "Item", CellID->198693005], Cell["PsychrometricPropertyData", "Item", CellID->522693552] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["TimeToSunburn", "Item", CellID->675799243], Cell["SpaceWeatherData", "Item", CellID->604426060] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell["\<\ US National Library of Medicine National Institutes of Health, \ https://www.ncbi.nlm.nih.gov/pmc/articles/PMC6471173/\ \>", "Text", CellID->661187399], Cell["\<\ NDAA National Weather Service/Weather Prediction Center, \ https://www.wpc.ncep.noaa.gov/html/heatindex.shtml\ \>", "Text", CellID->49639476], Cell["\<\ Methods to Calculate the Heat Index as an Exposure Metric in Environmental \ Health Research, G. Brooke Anderson, Michelle L. Bell and Roger D. Peng https://ehp.niehs.nih.gov/doi/pdf/10.1289/ehp.1206273\ \>", "Text", CellID->738493171] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[TextData[ButtonBox["Heat Index\[Dash]Wolfram|Alpha", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolframalpha.com/input/?i=heat+index"], None}, ButtonNote->"https://www.wolframalpha.com/input/?i=heat+index"]], "Item", CellID->257601605] }, 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.854902, 0.396078, 0.145098]}, {"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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], 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->"HeatIndex | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.833882085646319`16.33621374080564*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.83388208569523`16.33621374081118*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", 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"}, 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[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.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[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.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[{{ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], 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]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], 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"]]]]], 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"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"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 -> (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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["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, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.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 -> "12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"94b6ea79-5088-44c7-9e64-a8e6f4852dcd", CellTags->{"Name", "TemplateCell", "Title"}, CellID->28358657]}, "TemplateCell"->{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"94b6ea79-5088-44c7-9e64-a8e6f4852dcd", CellTags->{"Name", "TemplateCell", "Title"}, CellID->28358657], Cell[719, 27, 169, 5, 70, "Text",ExpressionUUID->"4c521130-8aba-4b34-8988-e36066ecbfcc", CellTags->{"Description", "TemplateCell"}, CellID->532281688]}, "Title"->{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"94b6ea79-5088-44c7-9e64-a8e6f4852dcd", CellTags->{"Name", "TemplateCell", "Title"}, CellID->28358657]}, "Description"->{ Cell[719, 27, 169, 5, 70, "Text",ExpressionUUID->"4c521130-8aba-4b34-8988-e36066ecbfcc", CellTags->{"Description", "TemplateCell"}, CellID->532281688]}, "Definition"->{ Cell[913, 36, 1104, 27, 70, "Section",ExpressionUUID->"c29484e4-d8e7-43da-88b1-253649306b8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[913, 36, 1104, 27, 70, "Section",ExpressionUUID->"c29484e4-d8e7-43da-88b1-253649306b8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[913, 36, 1104, 27, 70, "Section",ExpressionUUID->"c29484e4-d8e7-43da-88b1-253649306b8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[26032, 627, 1880, 48, 70, "Subsection",ExpressionUUID->"02050001-8ec2-42ac-8658-868eb63068d9", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[29582, 754, 1329, 30, 70, "Subsection",ExpressionUUID->"566d776c-3ad7-4d51-ac14-c2315062bdf9", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[36447, 955, 6926, 150, 70, "Section",ExpressionUUID->"e985b916-58e2-4c81-bd31-c84ff514223a", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[93636, 2441, 918, 24, 70, "Subsection",ExpressionUUID->"111efd43-c4fb-4a6b-9d94-4d54d4cd7f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[94654, 2473, 893, 24, 70, "Subsection",ExpressionUUID->"915052ee-ba0b-472d-b967-e862dbd91647", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[95825, 2517, 167, 5, 70, "Subsection",ExpressionUUID->"33b70d39-40be-41f9-a766-d8fe13337d46", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[96254, 2536, 870, 24, 70, "Subsection",ExpressionUUID->"fa07a9ef-7454-42ff-9dd5-055b6707c276", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[97332, 2574, 919, 24, 70, "Subsection",ExpressionUUID->"d5c17c44-3992-4563-98b8-f4f6d8cd3ecb", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[98395, 2609, 971, 25, 70, "Subsection",ExpressionUUID->"1f4d1d87-f058-4a35-9e0c-3bdeeab8d642", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[99972, 2658, 823, 24, 70, "Subsection",ExpressionUUID->"fcc77edd-cadf-4ca8-9e58-14860587a254", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[101094, 2694, 1785, 44, 70, "Subsection",ExpressionUUID->"22f3ddda-7236-422a-a8ce-eae11131a1a8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388], Cell[103219, 2759, 1048, 26, 70, "Section",ExpressionUUID->"db3f28ea-0701-43fa-b9ac-aaa58cd53750", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[104836, 2800, 929, 25, 70, "Section",ExpressionUUID->"b84bdde1-1603-4b83-96f2-3e7c037f97a0", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "TabNext"->{ Cell[2020, 65, 23813, 549, 70, "Input",ExpressionUUID->"ceeba1ac-af70-4540-afb1-10b18237f4d8", CellTags->"TabNext", CellID->61144528], Cell[30914, 786, 342, 7, 70, "Notes",ExpressionUUID->"73dcf126-d7a5-468d-8984-729970fc65ca", CellTags->"TabNext", CellID->290120446], Cell[31259, 795, 1902, 56, 70, "Notes",ExpressionUUID->"181d40ab-81a8-476e-a197-012d5b39bb07", CellTags->"TabNext", CellID->523340747], Cell[33164, 853, 240, 6, 70, "Notes",ExpressionUUID->"95589a73-d4bc-47e7-877f-eb819cbc39bb", CellTags->"TabNext", CellID->552559668], Cell[34865, 906, 1170, 34, 70, "Notes",ExpressionUUID->"3867e4fe-b88b-4f49-9e43-4b1329079271", CellTags->"TabNext", CellID->482375954], Cell[36038, 942, 360, 7, 70, "Notes",ExpressionUUID->"14125f43-100b-47b8-a656-450c420b2700", CellTags->"TabNext", CellID->218556875], Cell[104270, 2787, 529, 8, 70, "Text",ExpressionUUID->"230d7ab5-18db-4ce4-ad6d-e2f6f32fb05c", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[105768, 2827, 515, 8, 70, "Text",ExpressionUUID->"6779d687-1b5c-4219-9883-80e750467966", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[25870, 619, 137, 4, 70, "Section",ExpressionUUID->"f93466a2-ae90-4615-b630-088aa0bbd989", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[25870, 619, 137, 4, 70, "Section",ExpressionUUID->"f93466a2-ae90-4615-b630-088aa0bbd989", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[93437, 2433, 174, 4, 70, "Section",ExpressionUUID->"37947fad-9c13-4c5d-a703-825f65fb260b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[26032, 627, 1880, 48, 70, "Subsection",ExpressionUUID->"02050001-8ec2-42ac-8658-868eb63068d9", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[29582, 754, 1329, 30, 70, "Subsection",ExpressionUUID->"566d776c-3ad7-4d51-ac14-c2315062bdf9", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[29582, 754, 1329, 30, 70, "Subsection",ExpressionUUID->"566d776c-3ad7-4d51-ac14-c2315062bdf9", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Examples"->{ Cell[36447, 955, 6926, 150, 70, "Section",ExpressionUUID->"e985b916-58e2-4c81-bd31-c84ff514223a", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[93437, 2433, 174, 4, 70, "Section",ExpressionUUID->"37947fad-9c13-4c5d-a703-825f65fb260b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[93636, 2441, 918, 24, 70, "Subsection",ExpressionUUID->"111efd43-c4fb-4a6b-9d94-4d54d4cd7f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[93636, 2441, 918, 24, 70, "Subsection",ExpressionUUID->"111efd43-c4fb-4a6b-9d94-4d54d4cd7f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[94654, 2473, 893, 24, 70, "Subsection",ExpressionUUID->"915052ee-ba0b-472d-b967-e862dbd91647", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[95825, 2517, 167, 5, 70, "Subsection",ExpressionUUID->"33b70d39-40be-41f9-a766-d8fe13337d46", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[96254, 2536, 870, 24, 70, "Subsection",ExpressionUUID->"fa07a9ef-7454-42ff-9dd5-055b6707c276", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[97332, 2574, 919, 24, 70, "Subsection",ExpressionUUID->"d5c17c44-3992-4563-98b8-f4f6d8cd3ecb", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[98395, 2609, 971, 25, 70, "Subsection",ExpressionUUID->"1f4d1d87-f058-4a35-9e0c-3bdeeab8d642", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[99972, 2658, 823, 24, 70, "Subsection",ExpressionUUID->"fcc77edd-cadf-4ca8-9e58-14860587a254", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[101094, 2694, 1785, 44, 70, "Subsection",ExpressionUUID->"22f3ddda-7236-422a-a8ce-eae11131a1a8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388]}, "VerificationTests"->{ Cell[101094, 2694, 1785, 44, 70, "Subsection",ExpressionUUID->"22f3ddda-7236-422a-a8ce-eae11131a1a8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388]}, "DefaultContent"->{ Cell[102904, 2742, 158, 5, 70, "Input",ExpressionUUID->"f3407702-e4d5-4ad0-aef9-79ffc3938b7c", CellTags->"DefaultContent", CellID->946203791], Cell[104270, 2787, 529, 8, 70, "Text",ExpressionUUID->"230d7ab5-18db-4ce4-ad6d-e2f6f32fb05c", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[105768, 2827, 515, 8, 70, "Text",ExpressionUUID->"6779d687-1b5c-4219-9883-80e750467966", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Author Notes"->{ Cell[103219, 2759, 1048, 26, 70, "Section",ExpressionUUID->"db3f28ea-0701-43fa-b9ac-aaa58cd53750", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[104836, 2800, 929, 25, 70, "Section",ExpressionUUID->"b84bdde1-1603-4b83-96f2-3e7c037f97a0", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 218069, 4971}, {"TemplateCell", 218250, 4975}, {"Title", 218584, 4982}, {"Description", 218764, 4986}, {"Definition", 218942, 4990}, {"Function", 219139, 4994}, {"TemplateCellGroup", 219345, 4998}, {"TabNext", 221901, 5041}, {"Documentation", 223105, 5066}, {"TemplateSection", 223298, 5070}, {"Usage", 223671, 5077}, {"Details & Options", 223866, 5081}, {"Notes", 224070, 5085}, {"Examples", 224277, 5089}, {"Source & Additional Information", 224487, 5093}, {"Contributed By", 224699, 5097}, {"ContributorInformation", 224934, 5101}, {"Keywords", 225155, 5105}, {"Categories", 225346, 5109}, {"Related Symbols", 225543, 5113}, {"Related Resource Objects", 225755, 5117}, {"Source/Reference Citation", 225976, 5121}, {"Links", 226179, 5125}, {"Tests", 226362, 5129}, {"VerificationTests", 226580, 5133}, {"DefaultContent", 226795, 5137}, {"Author Notes", 227292, 5147}, {"Submission Notes", 227492, 5151} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"94b6ea79-5088-44c7-9e64-a8e6f4852dcd", CellTags->{"Name", "TemplateCell", "Title"}, CellID->28358657], Cell[719, 27, 169, 5, 70, "Text",ExpressionUUID->"4c521130-8aba-4b34-8988-e36066ecbfcc", CellTags->{"Description", "TemplateCell"}, CellID->532281688], Cell[CellGroupData[{ Cell[913, 36, 1104, 27, 70, "Section",ExpressionUUID->"c29484e4-d8e7-43da-88b1-253649306b8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2020, 65, 23813, 549, 70, "Input",ExpressionUUID->"ceeba1ac-af70-4540-afb1-10b18237f4d8", CellTags->"TabNext", CellID->61144528] }, Open ]], Cell[CellGroupData[{ Cell[25870, 619, 137, 4, 70, "Section",ExpressionUUID->"f93466a2-ae90-4615-b630-088aa0bbd989", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[26032, 627, 1880, 48, 70, "Subsection",ExpressionUUID->"02050001-8ec2-42ac-8658-868eb63068d9", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[27937, 679, 115, 3, 70, "UsageInputs",ExpressionUUID->"1b1ad4ef-c0fb-47fd-ba47-d715271d0155", CellID->109939409], Cell[28055, 684, 93, 1, 70, "UsageDescription",ExpressionUUID->"0d4afc39-b9ad-44d7-8c68-9018c6aaf672", CellID->980437407] }, Open ]], Cell[CellGroupData[{ Cell[28185, 690, 141, 4, 70, "UsageInputs",ExpressionUUID->"203d29d6-e719-4814-b9b2-4506b6a958f2", CellID->155005269], Cell[28329, 696, 197, 7, 70, "UsageDescription",ExpressionUUID->"af72a22b-0640-4e28-94a5-27d39fba3afc", CellID->920891152] }, Open ]], Cell[CellGroupData[{ Cell[28563, 708, 210, 7, 70, "UsageInputs",ExpressionUUID->"cc9e9fe8-2d33-45a5-bfcd-39975e17a60e", CellID->439095025], Cell[28776, 717, 320, 11, 70, "UsageDescription",ExpressionUUID->"4e7954f1-f191-4dcf-9ec3-87a59e3964f6", CellID->566567348] }, Open ]], Cell[CellGroupData[{ Cell[29133, 733, 196, 6, 70, "UsageInputs",ExpressionUUID->"83fe0f1c-508b-4fa4-8c9c-07a07d3af6f7", CellID->438593038], Cell[29332, 741, 201, 7, 70, "UsageDescription",ExpressionUUID->"b761b31d-7f27-4473-a9b1-fb376fbc46bb", CellID->176063811] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29582, 754, 1329, 30, 70, "Subsection",ExpressionUUID->"566d776c-3ad7-4d51-ac14-c2315062bdf9", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[30914, 786, 342, 7, 70, "Notes",ExpressionUUID->"73dcf126-d7a5-468d-8984-729970fc65ca", CellTags->"TabNext", CellID->290120446], Cell[31259, 795, 1902, 56, 70, "Notes",ExpressionUUID->"181d40ab-81a8-476e-a197-012d5b39bb07", CellTags->"TabNext", CellID->523340747], Cell[33164, 853, 240, 6, 70, "Notes",ExpressionUUID->"95589a73-d4bc-47e7-877f-eb819cbc39bb", CellTags->"TabNext", CellID->552559668], Cell[33407, 861, 381, 8, 70, "TableNotes",ExpressionUUID->"b248c405-5fb9-41c1-a3ba-dd4d31db44a4", CellID->598092358], Cell[33791, 871, 383, 11, 70, "Notes",ExpressionUUID->"e2dc17ee-5d5b-4ef7-bb1a-1bfab171c261", CellID->79189482], Cell[34177, 884, 685, 20, 70, "Notes",ExpressionUUID->"2b133e9e-00bb-433c-b2f1-ba983f9a2c3d", CellID->85441981], Cell[34865, 906, 1170, 34, 70, "Notes",ExpressionUUID->"3867e4fe-b88b-4f49-9e43-4b1329079271", CellTags->"TabNext", CellID->482375954], Cell[36038, 942, 360, 7, 70, "Notes",ExpressionUUID->"14125f43-100b-47b8-a656-450c420b2700", CellTags->"TabNext", CellID->218556875] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36447, 955, 6926, 150, 70, "Section",ExpressionUUID->"e985b916-58e2-4c81-bd31-c84ff514223a", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[43398, 1109, 75, 2, 70, "Subsection",ExpressionUUID->"14386ccc-144e-459c-aace-913a2811e190", CellID->904125756], Cell[43476, 1113, 548, 8, 70, "Text",ExpressionUUID->"f0088f65-a593-4c97-9aba-08de8d23b53a", CellID->295146332], Cell[CellGroupData[{ Cell[44049, 1125, 211, 6, 70, "Input",ExpressionUUID->"912773d5-6472-42fa-b986-8e242ef94871", CellID->381139116], Cell[44263, 1133, 279, 8, 70, "Output",ExpressionUUID->"de288a42-9f4b-4506-bb2c-aa530ee9eb9d", CellID->835174287] }, Open ]], Cell[CellGroupData[{ Cell[44579, 1146, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"016b724e-8f0d-4f9e-ab7a-1783b7c6e5ea", CellID->14107562], Cell[44725, 1152, 480, 8, 70, "Text",ExpressionUUID->"25536860-ef65-404b-8162-6798f52409d1", CellID->33680237], Cell[CellGroupData[{ Cell[45230, 1164, 846, 19, 70, "Input",ExpressionUUID->"a9d15c05-ee31-4141-9a75-ffa2f49b6549", CellID->940693617], Cell[46079, 1185, 326, 9, 70, "Output",ExpressionUUID->"43c1fc2f-c064-4d65-91f5-40c64f2b399e", CellID->837514618] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46454, 1200, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9dcb64a6-e318-4f49-9447-dca230c6a47d", CellID->14107563], Cell[46600, 1206, 548, 8, 70, "Text",ExpressionUUID->"10d51196-fefd-49fe-87ba-4f864ddcdab5", CellID->687657507], Cell[CellGroupData[{ Cell[47173, 1218, 572, 15, 70, "Input",ExpressionUUID->"a8598bd9-deca-470d-adda-ad2a7d27ae7c", CellID->278719979], Cell[47748, 1235, 275, 8, 70, "Output",ExpressionUUID->"fa6b0556-8581-433b-b792-12e17462021f", CellID->676308512] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48072, 1249, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3e549479-fd76-4051-9d63-74fa5fa086a5", CellID->14107564], Cell[48218, 1255, 509, 8, 70, "Text",ExpressionUUID->"aab36032-d290-4087-80d6-852ed7d68d66", CellID->457702918], Cell[CellGroupData[{ Cell[48752, 1267, 777, 17, 70, "Input",ExpressionUUID->"8f679896-45a3-416f-bc75-18145354b918", CellID->11050733], Cell[49532, 1286, 329, 9, 70, "Output",ExpressionUUID->"1bc4d94e-218b-4b35-9442-ebab59061b44", CellID->926082284] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49922, 1302, 66, 2, 70, "Subsection",ExpressionUUID->"b8b2d994-919a-41a4-8199-b4c85736b242", CellID->204653245], Cell[49991, 1306, 352, 7, 70, "Text",ExpressionUUID->"9469b2d9-02f3-43b5-8350-32c3687e9c8f", CellID->338777780], Cell[CellGroupData[{ Cell[50368, 1317, 747, 17, 70, "Input",ExpressionUUID->"e97709e9-d24e-406f-93fc-8225ddd03254", CellID->350697601], Cell[51118, 1336, 543, 12, 70, "Output",ExpressionUUID->"144317e1-b1ed-4c26-812c-7101c8837c0a", CellID->118750743] }, Open ]], Cell[CellGroupData[{ Cell[51698, 1353, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8a6f91e6-855b-4723-9377-c6d5e55bf20c", CellID->14107565], Cell[51844, 1359, 709, 13, 70, "Text",ExpressionUUID->"3f9d0814-1634-40f0-bd53-352be5aaf37d", CellID->661674064], Cell[CellGroupData[{ Cell[52578, 1376, 656, 14, 70, "Input",ExpressionUUID->"cac28f51-c860-4949-8a16-07fbc49d08aa", CellID->872611627], Cell[53237, 1392, 564, 12, 70, "Output",ExpressionUUID->"33dd0707-74fc-4a21-bc34-e6bc616e360b", CellID->356984862] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53850, 1410, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"526b8f38-63f2-487f-bab9-36bdc006032d", CellID->14107566], Cell[53996, 1416, 1221, 28, 70, "Text",ExpressionUUID->"19da3fa3-8906-4afa-bf22-c7f8d074be97", CellID->376780057], Cell[CellGroupData[{ Cell[55242, 1448, 578, 12, 70, "Input",ExpressionUUID->"e76fb6fe-1245-44bc-8300-e262c856b09c", CellID->534317568], Cell[55823, 1462, 595, 13, 70, "Output",ExpressionUUID->"a3c737e3-59f8-4077-b264-3548858d7db6", CellID->656652813] }, Open ]], Cell[56433, 1478, 732, 12, 70, "Text",ExpressionUUID->"c0e82ad1-1f56-4a0f-aa44-514444593c64", CellID->976175783], Cell[CellGroupData[{ Cell[57190, 1494, 649, 14, 70, "Input",ExpressionUUID->"707bdc96-c7a3-429d-b56f-7d85acd6d6b7", CellID->762939733], Cell[57842, 1510, 590, 13, 70, "Output",ExpressionUUID->"558bf00d-7b8f-4730-a551-80488ae4f2a3", CellID->562100537] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58481, 1529, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"225f3ec9-e20a-44b3-8bf6-57d168857705", CellID->14107567], Cell[58627, 1535, 592, 11, 70, "Text",ExpressionUUID->"5ab22b96-fb47-4131-b846-f37b84e130aa", CellID->167709368], Cell[CellGroupData[{ Cell[59244, 1550, 1108, 22, 70, "Input",ExpressionUUID->"640378a5-6255-4db7-a29b-8e1a53be3493", CellID->359730997], Cell[60355, 1574, 3875, 91, 70, "Output",ExpressionUUID->"ca7f0424-5992-4db1-a038-3a67c949abe1", CellID->533743222] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64279, 1671, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"dcd77549-5189-4125-8ebf-9feea7ab4ad9", CellID->14107568], Cell[64425, 1677, 883, 14, 70, "Text",ExpressionUUID->"516b9709-6b42-461f-b785-7ddf91390e2a", CellID->498376207], Cell[CellGroupData[{ Cell[65333, 1695, 571, 15, 70, "Input",ExpressionUUID->"717fb7bc-0b45-450a-9f4f-3a69819084ac", CellID->408782706], Cell[65907, 1712, 4384, 100, 70, "Output",ExpressionUUID->"7f0f7c2c-a503-4d74-aeeb-ef8fcf01e77c", CellID->127753522] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[70340, 1818, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ba2923d5-ab9e-4776-b486-72bff3635703", CellID->14107569], Cell[70486, 1824, 1962, 48, 70, "Text",ExpressionUUID->"d308772d-f736-48ea-814c-b8d3468b9670", CellID->223957070], Cell[CellGroupData[{ Cell[72473, 1876, 403, 10, 70, "Input",ExpressionUUID->"53cae1fe-8bb2-4f41-aedb-1a9c2da587d3", CellID->167825121], Cell[72879, 1888, 332, 9, 70, "Output",ExpressionUUID->"ee7d1395-2d15-4cae-bc9a-674f11a0cdf3", CellID->418059521] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[73272, 1904, 68, 2, 70, "Subsection",ExpressionUUID->"ba76c9ae-acef-4c68-9b9f-83f2e721dd4c", CellID->890561554], Cell[73343, 1908, 454, 9, 70, "Text",ExpressionUUID->"8bff93ab-6e49-4cd5-9ed5-9bfe80833119", CellID->700649172], Cell[CellGroupData[{ Cell[73822, 1921, 831, 19, 70, "Input",ExpressionUUID->"aa8abf48-a3f4-40b1-b345-4036a7a213ac", CellID->298110063], Cell[74656, 1942, 561, 11, 70, "Output",ExpressionUUID->"31808f63-942a-464b-b291-fff514f25da7", CellID->957834708] }, Open ]], Cell[CellGroupData[{ Cell[75254, 1958, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ce48e656-c59a-449a-9421-a1e2d780fb39", CellID->14107570], Cell[75400, 1964, 663, 10, 70, "Text",ExpressionUUID->"208ba6a7-d602-41e4-9549-6276bc44af4f", CellID->911309610], Cell[CellGroupData[{ Cell[76088, 1978, 646, 15, 70, "Input",ExpressionUUID->"fb92d5f9-75fb-4162-8e00-56cab8075a39", CellID->943311179], Cell[76737, 1995, 3983, 91, 70, "Output",ExpressionUUID->"65213218-ce3c-44c2-a1db-09be90cfff66", CellID->104053280] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[80781, 2093, 76, 2, 70, "Subsection",ExpressionUUID->"d0739c35-9ea5-4289-b2c5-f37ce9a80c26", CellID->158766396], Cell[80860, 2097, 1320, 30, 70, "Text",ExpressionUUID->"0a3bcc61-e42e-4235-a931-4393e3f16301", CellID->50691709], Cell[CellGroupData[{ Cell[82205, 2131, 247, 6, 70, "Input",ExpressionUUID->"a2d4df75-f5cf-439c-89fb-de331f574614", CellID->618193660], Cell[82455, 2139, 672, 14, 70, "Message",ExpressionUUID->"917bfb71-9fe7-47ce-b5e9-4b7e7cbd94d2", CellID->353057508], Cell[83130, 2155, 329, 9, 70, "Output",ExpressionUUID->"4a691e54-7460-45d8-aaa1-2ae3817eeca0", CellID->492323571] }, Open ]], Cell[CellGroupData[{ Cell[83496, 2169, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"329c1089-dda1-4450-b912-f95b204b75e0", CellID->14107571], Cell[83642, 2175, 718, 13, 70, "Text",ExpressionUUID->"5b816bd5-1d51-4607-bbd7-a02e9811cfb6", CellID->143194281], Cell[CellGroupData[{ Cell[84385, 2192, 544, 15, 70, "Input",ExpressionUUID->"ab6de70b-d736-430b-914d-5bea82d35026", CellID->647398790], Cell[84932, 2209, 611, 12, 70, "Message",ExpressionUUID->"bad16929-3da5-47fb-bbf9-7680d4295824", CellID->649641345] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[85592, 2227, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"454ef375-bd22-4592-be58-443e41610996", CellID->14107572], Cell[85738, 2233, 682, 15, 70, "Text",ExpressionUUID->"dd08c9e1-eb9b-4796-b2cd-86a508d089dc", CellID->991691874], Cell[CellGroupData[{ Cell[86445, 2252, 744, 17, 70, "Input",ExpressionUUID->"39e86483-10aa-4af0-8fbc-4c3b113decdd", CellID->510392762], Cell[87192, 2271, 4031, 93, 70, "Output",ExpressionUUID->"8b598da3-9407-4bc9-8f00-a37673a966b8", CellID->46373370] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[91272, 2370, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ed1b5733-fc77-4fd8-abc6-060ffb3e6278", CellID->14107573], Cell[91418, 2376, 748, 13, 70, "Text",ExpressionUUID->"734e4eae-de64-40af-94c0-fe6042128d87", CellID->786182191], Cell[CellGroupData[{ Cell[92191, 2393, 740, 19, 70, "Input",ExpressionUUID->"1af37373-c97c-4019-9c9a-e5168ff4d256", CellID->903699638], Cell[92934, 2414, 430, 11, 70, "Output",ExpressionUUID->"f47d0929-4d29-42e2-bc22-1e1dbf352603", CellID->572007173] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[93437, 2433, 174, 4, 70, "Section",ExpressionUUID->"37947fad-9c13-4c5d-a703-825f65fb260b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[93636, 2441, 918, 24, 70, "Subsection",ExpressionUUID->"111efd43-c4fb-4a6b-9d94-4d54d4cd7f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[94557, 2467, 60, 1, 70, "Text",ExpressionUUID->"5ae7f545-884d-40dc-8ef5-a2428d779981", CellID->629036819] }, Open ]], Cell[CellGroupData[{ Cell[94654, 2473, 893, 24, 70, "Subsection",ExpressionUUID->"915052ee-ba0b-472d-b967-e862dbd91647", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[95550, 2499, 47, 1, 70, "Item",ExpressionUUID->"9bdb4a4f-af09-443b-8dcf-d5e4937ded8d", CellID->405542599], Cell[95600, 2502, 44, 1, 70, "Item",ExpressionUUID->"a9affc5e-0fa9-4825-8426-e3614ed6445d", CellID->770990531], Cell[95647, 2505, 46, 1, 70, "Item",ExpressionUUID->"c2397d9a-add9-4997-89a3-5653f4ce2049", CellID->327354814], Cell[95696, 2508, 43, 1, 70, "Item",ExpressionUUID->"8774839a-0ffa-435e-adc2-a86b4812d48b", CellID->564079256], Cell[95742, 2511, 46, 1, 70, "Item",ExpressionUUID->"9682b533-29ae-4a60-9fe6-080925ec9f40", CellID->288539045] }, Open ]], Cell[CellGroupData[{ Cell[95825, 2517, 167, 5, 70, "Subsection",ExpressionUUID->"33b70d39-40be-41f9-a766-d8fe13337d46", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[95995, 2524, 79, 1, 70, "Item",ExpressionUUID->"59bf37bc-b82e-4003-bed6-2f039bc37abe", CellID->926508959], Cell[96077, 2527, 77, 1, 70, "Item",ExpressionUUID->"2c95335c-f346-440c-ab67-75111ed2123a", CellID->525597770], Cell[96157, 2530, 60, 1, 70, "Item",ExpressionUUID->"7b211357-28da-469b-9573-b757eb09f363", CellID->891139041] }, Open ]], Cell[CellGroupData[{ Cell[96254, 2536, 870, 24, 70, "Subsection",ExpressionUUID->"fa07a9ef-7454-42ff-9dd5-055b6707c276", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[97127, 2562, 47, 1, 70, "Item",ExpressionUUID->"34e1a5c7-1b64-4734-8c2f-bc2bb6fa5f2f", CellID->676826509], Cell[97177, 2565, 54, 1, 70, "Item",ExpressionUUID->"1d46abf4-0672-4a18-9809-d3ff22290660", CellID->198693005], Cell[97234, 2568, 61, 1, 70, "Item",ExpressionUUID->"a83862aa-b865-4f8d-99f8-a4c5ba429f65", CellID->522693552] }, Open ]], Cell[CellGroupData[{ Cell[97332, 2574, 919, 24, 70, "Subsection",ExpressionUUID->"d5c17c44-3992-4563-98b8-f4f6d8cd3ecb", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[98254, 2600, 49, 1, 70, "Item",ExpressionUUID->"84313479-179b-4665-80d0-9a31ba746e06", CellID->675799243], Cell[98306, 2603, 52, 1, 70, "Item",ExpressionUUID->"1e2fe051-0400-4861-8b6c-feb1e7db3d66", CellID->604426060] }, Open ]], Cell[CellGroupData[{ Cell[98395, 2609, 971, 25, 70, "Subsection",ExpressionUUID->"1f4d1d87-f058-4a35-9e0c-3bdeeab8d642", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[99369, 2636, 162, 4, 70, "Text",ExpressionUUID->"30c087b4-c2c0-4a2b-9dc1-66a9dfdea240", CellID->661187399], Cell[99534, 2642, 152, 4, 70, "Text",ExpressionUUID->"7752265b-0610-4e90-8a0b-cab638025c95", CellID->49639476], Cell[99689, 2648, 246, 5, 70, "Text",ExpressionUUID->"8b8330e4-4660-401a-863f-cc2cb9a8de22", CellID->738493171] }, Open ]], Cell[CellGroupData[{ Cell[99972, 2658, 823, 24, 70, "Subsection",ExpressionUUID->"fcc77edd-cadf-4ca8-9e58-14860587a254", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[100798, 2684, 259, 5, 70, "Item",ExpressionUUID->"73f80a84-d783-4c92-ae3b-c1cd0a2061f5", CellID->257601605] }, Open ]], Cell[CellGroupData[{ Cell[101094, 2694, 1785, 44, 70, "Subsection",ExpressionUUID->"22f3ddda-7236-422a-a8ce-eae11131a1a8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388], Cell[CellGroupData[{ Cell[102904, 2742, 158, 5, 70, "Input",ExpressionUUID->"f3407702-e4d5-4ad0-aef9-79ffc3938b7c", CellTags->"DefaultContent", CellID->946203791], Cell[103065, 2749, 93, 3, 70, "Output",ExpressionUUID->"3c5ce8e3-ee2d-4170-af05-2f7a93f274cb", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[103219, 2759, 1048, 26, 70, "Section",ExpressionUUID->"db3f28ea-0701-43fa-b9ac-aaa58cd53750", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[104270, 2787, 529, 8, 70, "Text",ExpressionUUID->"230d7ab5-18db-4ce4-ad6d-e2f6f32fb05c", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[104836, 2800, 929, 25, 70, "Section",ExpressionUUID->"b84bdde1-1603-4b83-96f2-3e7c037f97a0", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[105768, 2827, 515, 8, 70, "Text",ExpressionUUID->"6779d687-1b5c-4219-9883-80e750467966", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)