(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 290671, 6598] NotebookOptionsPosition[ 222172, 5143] NotebookOutlinePosition[ 272854, 6201] CellTagsIndexPosition[ 272201, 6179] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["FromCharacterName", "Title", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[6945]}, 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.7590709754418974`*^9, 3.7590709780657997`*^9}}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["Get a string character from its name", "Text", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[6993]}, 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.759071023394407*^9, 3.7590710303212*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"FromCharacterName", " ", "//", " ", "ClearAll"}], ";"}]], "Code", CellChangeTimes->{{3.7590710554613943`*^9, 3.7590710625941906`*^9}}, CellLabel->"In[42]:=", CellID->164172078], Cell[CellGroupData[{ Cell["Messages", "Subsection", CellChangeTimes->{{3.758660005404146*^9, 3.75866000642813*^9}}, CellLabel->"In[43]:=", CellID->942613391], Cell[TextData[{ "Messages are printed using ", Cell[BoxData[ TemplateBox[{TagBox[ ButtonBox[ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"ResourceFunctionMessage\"", FontColor -> RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction[ ResourceObject[ Association[ "Name" -> "ResourceFunctionMessage", "UUID" -> "99f3bbb5-c9d2-4eaf-8c12-420ceb643e09", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Similar to Message, except prints as a labeled message from \ ResourceFunction with contexts hidden", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "WolframLanguageVersionRequired" -> "10.0", "SymbolName" -> "FunctionRepository`$a3f53bc84a2d413094f6f86c9a17b7f2`\ ResourceFunctionMessage", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/21023216-81de-4487-80a4-\ 0a264c4b217c"], "ShortName" -> "ResourceFunctionMessage"], ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]], Selectable -> False], ButtonFunction :> SystemOpen[ "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage\""], Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], MouseAppearanceTag["LinkHand"]], "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage\""}, "PrettyTooltipTemplate"]]], ":" }], "Text", CellChangeTimes->{{3.7586642621708994`*^9, 3.7586642683946915`*^9}, { 3.7586643609948125`*^9, 3.7586643850720644`*^9}, {3.7586645404822345`*^9, 3.7586645442231197`*^9}, {3.758664575275154*^9, 3.7586645773070917`*^9}, { 3.758664608979108*^9, 3.758664609779106*^9}, {3.7586648804586864`*^9, 3.7586648808006616`*^9}}, CellID->191546246], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "::", "notchar"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "::", "argx"}], " ", "=", " ", "\"\<`1` called with `2` arguments; 1 argument is expected.\>\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "::", "string"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "::", "invalid"}], " ", "=", " ", "\"\\""}], ";"}]}], "Code", CellChangeTimes->{{3.7586600124759264`*^9, 3.758660013196904*^9}, { 3.7586613077566814`*^9, 3.7586613083826623`*^9}, {3.7586613573731537`*^9, 3.7586613604360423`*^9}, {3.7586616118132505`*^9, 3.7586616421162915`*^9}, {3.758662733172391*^9, 3.7586627433230762`*^9}, 3.7586668138440866`*^9, 3.759071080843622*^9, {3.7590730874259996`*^9, 3.759073111641241*^9}, {3.7590731676655025`*^9, 3.759073178297171*^9}}, CellLabel->"In[1]:=", CellID->209541012] }, Closed]], Cell[CellGroupData[{ Cell["Formatting", "Subsection", CellChangeTimes->{{3.7590710982500815`*^9, 3.759071099938031*^9}}, CellLabel->"In[5]:=", CellID->166916962], Cell[TextData[{ "This uses ", Cell[BoxData[ TemplateBox[{TagBox[ ButtonBox[ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FormatAsResourceFunction\"", FontColor -> RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction[ ResourceObject[ Association[ "Name" -> "FormatAsResourceFunction", "UUID" -> "a04b8cc2-23c4-424e-9846-fb9e83ff42ef", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Format a symbol as a ResourceFunction in outputs", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "WolframLanguageVersionRequired" -> "10.0", "SymbolName" -> "FunctionRepository`$9a23e344af2a439b9bf754d5e4b52c65`\ FormatAsResourceFunction", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/ef623453-1f3d-4647-a91c-\ c7e8a948cbc7"], "ShortName" -> "FormatAsResourceFunction"], ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]], Selectable -> False], ButtonFunction :> SystemOpen[ "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ FormatAsResourceFunction\""], Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], MouseAppearanceTag["LinkHand"]], "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ FormatAsResourceFunction\""}, "PrettyTooltipTemplate"]], CellChangeTimes->{ 3.7586646899275913`*^9, 3.758664732980254*^9, 3.7586647862375994`*^9, { 3.758664820200543*^9, 3.758664841490883*^9}}], " to format FromCharacterName as a ResourceFunction since it can be returned \ in the output when there is an error." }], "Text", CellChangeTimes->{{3.7544183347368026`*^9, 3.754418383225356*^9}, { 3.7548383760157185`*^9, 3.7548383771116877`*^9}, 3.758660042910982*^9, { 3.7586600799798293`*^9, 3.758660108873931*^9}, {3.758660144038839*^9, 3.7586601630602474`*^9}, {3.7586646972343793`*^9, 3.7586646991563053`*^9}, {3.7586648508026075`*^9, 3.7586648511885815`*^9}, {3.7590711044578876`*^9, 3.759071106921813*^9}}, CellID->19811963], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "FromCharacterName", " ", "]"}], ";"}]], "Code", CellChangeTimes->{{3.7544214972781506`*^9, 3.7544215984451413`*^9}, { 3.7548383846554565`*^9, 3.7548383913922405`*^9}, {3.7586600522366896`*^9, 3.7586600668522367`*^9}, 3.759071113179618*^9}, CellLabel->"In[1]:=", CellID->38345076] }, Closed]], Cell[CellGroupData[{ Cell["Main definition", "Subsection", CellChangeTimes->{{3.7590711262412367`*^9, 3.759071127226165*^9}, { 3.7590712745221324`*^9, 3.7590712752981014`*^9}}, CellLabel->"In[2]:=", CellID->324440862], Cell["Character from a single character name:", "Text", CellChangeTimes->{{3.759071132354024*^9, 3.759071134705948*^9}, { 3.7590711728817616`*^9, 3.7590711783375764`*^9}}, CellID->527076645], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{ RowBox[{"(", "name_String", ")"}], "?", "StringQ"}], "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"char", ",", " ", "valid"}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"char", " ", "=", " ", RowBox[{"getString", "[", "name", "]"}]}], ";", "\n", " ", RowBox[{"valid", " ", "=", " ", RowBox[{ RowBox[{"StringQ", "[", "char", "]"}], " ", "&&", " ", RowBox[{ RowBox[{"StringLength", "[", "char", "]"}], " ", "===", " ", "1"}]}]}], ";", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"!", " ", "valid"}], ",", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"FromCharacterName", "::", "notchar"}], ",", " ", "name"}], "]"}]}], "]"}], ";", "\n", " ", RowBox[{"char", " ", "/;", " ", "valid"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.759071155730297*^9, 3.7590711590181923`*^9}, 3.759071204829768*^9, {3.759071897313779*^9, 3.7590719917858424`*^9}}, CellLabel->"In[1]:=", CellID->9364832], Cell["String from a list of character names:", "Text", CellChangeTimes->{{3.759071183313422*^9, 3.7590711879932766`*^9}}, CellID->42160365], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"names", ":", RowBox[{"{", RowBox[{"___String", "?", "StringQ"}], "}"}]}], "]"}], " ", ":=", "\n", " ", RowBox[{"StringJoin", "[", RowBox[{"FromCharacterName", " ", "/@", " ", "names"}], "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.75907119903395*^9, 3.7590712078856726`*^9}}, CellLabel->"In[2]:=", CellID->638271], Cell["Map across lists of lists:", "Text", CellChangeTimes->{{3.759071217137371*^9, 3.759071228457034*^9}}, CellID->268009176], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"list", ":", RowBox[{"{", "___List", "}"}]}], "]"}], " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"Flatten", "[", "list", "]"}], ",", " ", RowBox[{"{", RowBox[{"___String", "?", "StringQ"}], "}"}]}], "]"}]}], " ", ":=", "\n", " ", RowBox[{"FromCharacterName", " ", "/@", " ", "list"}]}], ";"}]], "Code", CellChangeTimes->{{3.7590712453880157`*^9, 3.759071264689432*^9}, { 3.759071535890007*^9, 3.7590715578613243`*^9}}, CellLabel->"In[3]:=", CellID->169338519], Cell["Handle error cases:", "Text", CellChangeTimes->{{3.7590713089540625`*^9, 3.759071312049964*^9}}, CellID->113425331], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FromCharacterName", "[", "args___", "]"}], " ", ":=", " ", RowBox[{"Null", " ", "/;", " ", RowBox[{"(", RowBox[{ RowBox[{"checkArguments", "[", "args", "]"}], ";", " ", "False"}], ")"}]}]}], ";"}]], "Code", CellChangeTimes->{{3.7590713135818977`*^9, 3.7590713700711594`*^9}}, CellLabel->"In[4]:=", CellID->249198086] }, Open ]], Cell[CellGroupData[{ Cell["Dependencies", "Subsection", CellChangeTimes->{{3.7590712897376385`*^9, 3.7590712912735915`*^9}}, CellLabel->"In[5]:=", CellID->883903207], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getString", " ", "//", " ", "ClearAll"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"getString", "[", "name_String", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"char", " ", "=", " ", RowBox[{"Replace", "[", RowBox[{"name", ",", " ", "$dispatch"}], "]"}]}], "}"}], ",", "\n", " ", RowBox[{"char", " ", "/;", " ", RowBox[{"StringQ", "[", "char", "]"}]}]}], "\n", " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"getString", "[", "name_String", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"h", " ", "=", " ", RowBox[{"getHeldChar", "[", "name", "]"}]}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"First", "[", "h", "]"}], " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{"h", ",", " ", RowBox[{"HoldComplete", "[", RowBox[{"_String", "?", "StringQ"}], "]"}]}], "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7588957774599876`*^9, 3.758895891228552*^9}, { 3.7588965213316574`*^9, 3.7588965245625544`*^9}, {3.75889794659683*^9, 3.758897979445825*^9}}, CellLabel->"In[1]:=", CellID->192693759], Cell["\<\ Precompute most names since some are missing a \[AHat]\.80\.9c\\[\[AHat]\.80\ \.9c input form:\ \>", "Text", CellChangeTimes->{{3.7590742389852133`*^9, 3.7590742808809147`*^9}}, CellID->231402301], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"$nameRules", " ", "=", " ", RowBox[{"KeyValueMap", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"#2", " ", "->", " ", "#1"}], " ", "&"}], ",", "\n", " ", RowBox[{"DeleteCases", "[", "\n", " ", RowBox[{ RowBox[{"AssociationMap", "[", RowBox[{"CharacterName", ",", " ", RowBox[{"FromCharacterCode", " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"0", ",", " ", "65535"}], "]"}]}]}], "]"}], ",", "\n", " ", RowBox[{"Except", "[", "_String", "]"}]}], "\n", " ", "]"}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", "\[IDoubleDot]\.8e\[Sterling]", "\n", RowBox[{ RowBox[{"$dispatch", " ", ":=", " ", RowBox[{"$dispatch", " ", "=", " ", RowBox[{"Dispatch", "[", "$nameRules", "]"}]}]}], ";"}]}], "Code", CellChangeTimes->{ 3.75889768492369*^9, {3.758897777980896*^9, 3.7588978050680647`*^9}, { 3.7588978429729447`*^9, 3.7588978726680527`*^9}, {3.75889799890224*^9, 3.7588980115908575`*^9}}, CellLabel->"In[4]:=", CellID->175755256], Cell[BoxData[{ RowBox[{ RowBox[{"getHeldChar", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getHeldChar", "[", "name_String", "]"}], " ", ":=", "\n", " ", RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{ "\"\<\\\"\\\\[\>\"", ",", " ", "name", ",", " ", "\"\<]\\\"\>\""}], "]"}], ",", " ", "InputForm", ",", " ", "HoldComplete"}], "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.758895714946848*^9, 3.7588957503337836`*^9}, { 3.758896503907176*^9, 3.758896507043067*^9}}, CellLabel->"In[6]:=", CellID->44369341], Cell["Print the appropriate messages for error cases:", "Text", CellChangeTimes->{{3.759074289936615*^9, 3.759074306697109*^9}}, CellID->91768621], Cell[BoxData[{ RowBox[{ RowBox[{"checkArguments", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"checkArguments", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", "HoldAllComplete", "}"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"checkArguments", "[", "\n", " ", RowBox[{"arg", ":", " ", RowBox[{"Except", "[", RowBox[{ RowBox[{"_String", "?", "StringQ"}], " ", "|", " ", RowBox[{"(", RowBox[{"list_", " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"Flatten", "[", "list", "]"}], ",", " ", RowBox[{"{", RowBox[{"___String", "?", "StringQ"}], "}"}]}], "]"}]}], ")"}]}], "]"}]}], "\n", "]"}], " ", ":=", "\n", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"FromCharacterName", "::", "string"}], ",", "\n", " ", RowBox[{"HoldForm", "[", RowBox[{"FromCharacterName", "[", "arg", "]"}], "]"}]}], "\n", " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"checkArguments", "[", "args___", "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Length", "[", RowBox[{"HoldComplete", "[", "args", "]"}], "]"}], " ", "=!=", " ", "1"}]}], " ", ":=", "\n", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"FromCharacterName", "::", "argx"}], ",", "\n", " ", "FromCharacterName", ",", "\n", " ", "1"}], "\n", " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"checkArguments", "[", RowBox[{"{", RowBox[{"OrderlessPatternSequence", "[", RowBox[{"s_String", ",", " ", "l_List", ",", " ", "___"}], "]"}], "}"}], "]"}], " ", ":=", "\n", " ", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"FromCharacterName", "::", "invalid"}], ",", "\n", " ", RowBox[{"HoldForm", "[", "s", "]"}], ",", "\n", " ", RowBox[{"HoldForm", "[", "l", "]"}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.759071465290203*^9, 3.7590714895384307`*^9}, { 3.7590716336099734`*^9, 3.7590717162524014`*^9}, {3.759071753441231*^9, 3.7590717615059795`*^9}, {3.759071841633506*^9, 3.759071849956251*^9}, { 3.759072961481891*^9, 3.7590729716095915`*^9}, {3.759073043153369*^9, 3.759073076075349*^9}, {3.7590731968575964`*^9, 3.75907326718141*^9}}, CellLabel->"In[8]:=", CellID->462116186] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\"", "]"}]], "UsageInputs", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[33969]}, CellChangeTimes->{{3.759072030353645*^9, 3.7590720695484247`*^9}}, CellTags->"TabNext", CellID->410373307], Cell[TextData[{ "gets the character named ", Cell[BoxData["\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\""], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.759072050554018*^9, 3.7590720572578096`*^9}, 3.7590720905057735`*^9}, CellTags->"TabNext", CellID->584004037] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[StyleBox[\"name\", \"TI\"], StyleBox[\"1\", \ \"TR\"]]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[StyleBox[\"name\", \"TI\"], StyleBox[\"2\", \ \"TR\"]]\)\>\"", ",", "\[AHat]\.80\.a6"}], "}"}], "]"}]], "UsageInputs", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedHints" -> { CellObject[38209], CellObject[38257], CellObject[38305], CellObject[38353], CellObject[38401], CellObject[38449], CellObject[38497], CellObject[38545], CellObject[38593], CellObject[38641]}, "AttachedInlineCell" -> CellObject[42401]}, CellChangeTimes->{{3.759072121813802*^9, 3.759072220290794*^9}}, CellID->115302085], Cell["gets a string containing the named characters.", "UsageDescription", CellChangeTimes->{{3.7590721414571743`*^9, 3.7590721469620204`*^9}}, CellID->229031745] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", StyleBox["\[AHat]\.80\.a6", "TR"], "}"}], ",", RowBox[{"{", StyleBox["\[AHat]\.80\.a6", "TR"], "}"}], ",", "\[AHat]\.80\.a6"}], "}"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " will return a list or lists of strings." }], "Notes", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedHints" -> { CellObject[107761], CellObject[107809], CellObject[107857], CellObject[107905], CellObject[107953], CellObject[108001]}, "AttachedInlineCell" -> CellObject[123473]}, CellChangeTimes->{{3.7588987631792936`*^9, 3.7588988708890543`*^9}, { 3.758899659317545*^9, 3.7588997337592807`*^9}, {3.759072409538916*^9, 3.759072482384658*^9}, {3.7590734820487347`*^9, 3.7590734820507355`*^9}}, CellID->43599463], Cell[TextData[{ Cell[BoxData["FromCharacterName"], "InlineFormula", FontFamily->"Source Sans Pro"], " is a partial inverse for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CharacterName", "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/CharacterName"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedHints" -> { CellObject[107761], CellObject[107809], CellObject[107857], CellObject[107905], CellObject[107953], CellObject[108001]}, "AttachedInlineCell" -> CellObject[123473]}, CellChangeTimes->{{3.7588987631792936`*^9, 3.7588988708890543`*^9}, { 3.758899659317545*^9, 3.7588997337592807`*^9}, {3.759072409538916*^9, 3.759072482384658*^9}, {3.7590734827366962`*^9, 3.7590735004791594`*^9}}, CellID->62334508] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[52673]}, CellLabel->"In[1]:=", CellID->462042388], Cell["Get a character from its name:", "Text", CellChangeTimes->{{3.759072495281252*^9, 3.759072499545103*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.759072502819019*^9, 3.7590725078978605`*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData["\<\"\[AHat]\.80\.a6\"\>"], "Output", CellChangeTimes->{{3.7590725087708316`*^9, 3.759072522490389*^9}, 3.759073275613146*^9, 3.75907410390841*^9}, CellLabel->"Out[1]=", CellID->249363915] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[2]:=", CellID->14837011], Cell[BoxData["\<\"\[AHat]\.9c\.93\"\>"], "Output", CellChangeTimes->{3.7590725225523877`*^9, 3.7590732756981277`*^9, 3.759074104004392*^9}, CellLabel->"Out[2]=", CellID->209301572] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[3]:=", CellID->304238490], Cell[BoxData["\<\"\[IDoubleDot]\.9c\[DownExclamation]\"\>"], "Output", CellChangeTimes->{3.759072522625385*^9, 3.759073275780143*^9, 3.759074104091404*^9}, CellLabel->"Out[3]=", CellID->352549858] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->646213129], Cell["Get a string from a list of character names:", "Text", CellChangeTimes->{{3.7590725338410406`*^9, 3.7590725413698025`*^9}}, CellID->685178117], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{3.7590725893173294`*^9}, CellLabel->"In[4]:=", CellID->933694854], Cell[BoxData["\<\"hello\"\>"], "Output", CellChangeTimes->{{3.759072566549037*^9, 3.759072609888692*^9}, 3.7590732759221363`*^9, 3.759074104263401*^9}, CellLabel->"Out[4]=", CellID->37144249] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->249748425], Cell["Get a list of strings:", "Text", CellChangeTimes->{{3.7590726321529837`*^9, 3.7590726346889057`*^9}}, CellID->501489942], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[5]:=", CellID->130340778], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"\[AHat]\.98\.ba\[AHat]\.9c\.93\"\>", ",", "\<\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\"\>"}], "}"}]], "Output", CellChangeTimes->{3.759072642402682*^9, 3.7590732760031347`*^9, 3.7590741043443966`*^9}, CellLabel->"Out[5]=", CellID->5022620] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"]}, CellLabel->"In[6]:=", CellID->964056545], Cell["FromCharacterName will thread over lists:", "Text", CellChangeTimes->{{3.7590726696248255`*^9, 3.759072678569559*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7590726810754766`*^9, 3.759072709002594*^9}, { 3.759072762749948*^9, 3.7590728107954316`*^9}}, CellLabel->"In[1]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"\"\>", ",", "\<\"\[AHat]\.98\.ba\[AHat]\.9c\.93\"\>", ",", "\<\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\"\>", ",", RowBox[{ "{", "\<\"\[IDoubleDot]\.9e\[DownQuestion]\[CapitalATilde]\.97\[AHat]\.88\ \.9e\[IDoubleDot]\.9c\[NonBreakingSpace]\[IDoubleDot]\.9d\.8e\[AHat]\.98\.ba\"\ \>", "}"}]}], "}"}], ",", "\<\"hello\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.7590727103385696`*^9, {3.7590727658418455`*^9, 3.7590728114454274`*^9}, 3.759073281793955*^9, 3.759074104632387*^9}, CellLabel->"Out[1]=", CellID->159590546] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->42045633], Cell["An empty list will produce an empty string:", "Text", CellChangeTimes->{{3.7590728339377127`*^9, 3.75907283982555*^9}}, CellID->366336543], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", "}"}], "]"}]], "Input", CellChangeTimes->{{3.759072840687503*^9, 3.759072844569397*^9}}, CellLabel->"In[2]:=", CellID->686102372], Cell[BoxData["\<\"\"\>"], "Output", CellChangeTimes->{3.759072845211377*^9, 3.7590732819409494`*^9, 3.7590741048033667`*^9}, CellLabel->"Out[2]=", CellID->972972637] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"]}, CellLabel->"In[3]:=", CellID->754506620], Cell[TextData[{ Cell[BoxData["FromCharacterName"], "InlineFormula", FontFamily->"Source Sans Pro"], " is a partial inverse of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CharacterName", "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/CharacterName"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.75907285834097*^9, 3.7590728794103146`*^9}}, CellID->602038342], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\n", "\[IDoubleDot]\.8e\[Sterling]", "\n", RowBox[{"FromCharacterCode", "[", RowBox[{"RandomInteger", "[", RowBox[{"65535", ",", "10"}], "]"}], "]"}]}], "Input", CellLabel->"In[1]:=", CellID->209476076], Cell[BoxData["\<\"\[IAcute]\.85\.80\[CCedilla]\.80\.88\[AE]\.83\.bd\ \[ADoubleDot]\.87\.88\[ARing]\[DownQuestion]\[RegisteredTrademark]\[AAcute]\ \.bc\.91\[ATilde]\.8b\.8a\[AAcute]\.b9\[NonBreakingSpace]\[AHat]\.99\.8b\ \[ARing]\.93\[Sterling]\"\>"], "Output", CellChangeTimes->{3.7590728867620707`*^9, 3.7590732963635025`*^9, 3.7590741050203605`*^9}, CellLabel->"Out[2]=", CellID->388923290] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CharacterName", "[", "%", "]"}]], "Input", CellLabel->"In[3]:=", CellID->943296710], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"HangulSyllableTeom\"\>", ",", "\<\"CJKUnifiedIdeograph7008\"\>", ",", "\<\"CJKUnifiedIdeograph60FD\"\>", ",", "\<\"CJKUnifiedIdeograph41C8\"\>", ",", "\<\"CJKUnifiedIdeograph5FEE\"\>", ",", "\<\"GreekSmallLetterEpsilonWithDasia\"\>", ",", "\<\"IdeographicTelegraphSymbolForNovember\"\>", ",", "\<\"LatinCapitalLetterSWithDotAbove\"\>", ",", "\<\"CancerSign\"\>", ",", "\<\"CJKUnifiedIdeograph54E3\"\>"}], "}"}]], "Output", CellChangeTimes->{3.7590728917110596`*^9, 3.7590732964504986`*^9, 3.759074105106374*^9}, CellLabel->"Out[3]=", CellID->395545457] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "%", "]"}]], "Input", CellLabel->"In[4]:=", CellID->666980721], Cell[BoxData["\<\"\[IAcute]\.85\.80\[CCedilla]\.80\.88\[AE]\.83\.bd\ \[ADoubleDot]\.87\.88\[ARing]\[DownQuestion]\[RegisteredTrademark]\[AAcute]\ \.bc\.91\[ATilde]\.8b\.8a\[AAcute]\.b9\[NonBreakingSpace]\[AHat]\.99\.8b\ \[ARing]\.93\[Sterling]\"\>"], "Output", CellChangeTimes->{3.7590728966619234`*^9, 3.7590732965374975`*^9, 3.7590741051933727`*^9}, CellLabel->"Out[4]=", CellID->756373319] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"]}, CellLabel->"In[5]:=", CellID->92483860], Cell["Names are case sensitive:", "Text", CellChangeTimes->{{3.758897475258974*^9, 3.7588974785948734`*^9}}, CellID->83112590], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.758897588292593*^9, 3.7588975991572514`*^9}}, CellLabel->"In[1]:=", CellID->313734999], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"FromCharacterName\\\"\ , \\\"::\\\", \\\"notchar\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\ \\\", \\\"\\\\\\\"No character with the name \\\\\\\\\\\\\\\"SuperScriptOne\\\ \\\\\\\\\\\\\" was found.\\\\\\\"\\\"], \\\"RowDefault\\\"]\\)\"",2,1,4, 31143264668110637334,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.758897601939183*^9, 3.7588980506346865`*^9, 3.758898351167672*^9, 3.7588986364160843`*^9, 3.7588996241985893`*^9, 3.759072914375373*^9, 3.7590733011523533`*^9, 3.759074105327366*^9}, CellLabel->"During evaluation of In[1]:=", CellID->78148102], Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[AHat]\.97\.8b\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"FromCharacterName\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["FromCharacterName"], Selectable->False], "[", "\<\"SuperScriptOne\"\>", "]"}]], "Output", CellChangeTimes->{3.7588976019521837`*^9, 3.758898050642685*^9, 3.7588983511796713`*^9, 3.758898636431084*^9, 3.758899624209588*^9, 3.7590729143863726`*^9, 3.759073301164337*^9, 3.759074105336351*^9}, CellLabel->"Out[1]=", CellID->359929781] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{3.7588976056440735`*^9}, CellLabel->"In[2]:=", CellID->436662545], Cell[BoxData["\<\"\[CapitalAHat]\.b9\"\>"], "Output", CellChangeTimes->{3.758897607330021*^9, 3.7588980536355963`*^9, 3.7588983512516675`*^9, 3.758898636527081*^9, 3.7588996243025856`*^9, 3.7590729145323663`*^9, 3.7590733012433352`*^9, 3.7590741054233646`*^9}, CellLabel->"Out[2]=", CellID->455687352] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->437728073], Cell["Each list must not mix strings and lists:", "Text", CellChangeTimes->{{3.7590733566896124`*^9, 3.759073390905567*^9}}, CellID->274544700], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{3.7590733313773985`*^9}, CellLabel->"In[3]:=", CellID->10616700], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"FromCharacterName\\\"\ , \\\"::\\\", \\\"invalid\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\ \\\", \\\"\\\\\\\"Elements \ \\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\"Checkmark\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\"}]\\\\\\\\) \ and \\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"{\\\\\\\\\\\\\\\", \ RowBox[{\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"FreakedSmiley\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\",\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"Times\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\"\\\\\\\\\\\\\\\"}], \\\\\\\\\\\\\\\"}\\\\\\\\\\\\\\\"}]\\\\\\\\) are \ incompatible.\\\\\\\"\\\"], \\\"RowDefault\\\"]\\)\"",2,3,5, 31143264668110637334,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7590733343683233`*^9, 3.75907410558836*^9}, CellLabel->"During evaluation of In[3]:=", CellID->547777608], Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[AHat]\.97\.8b\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"FromCharacterName\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["FromCharacterName"], Selectable->False], "[", RowBox[{"{", RowBox[{"\<\"Checkmark\"\>", ",", RowBox[{"{", RowBox[{"\<\"FreakedSmiley\"\>", ",", "\<\"Times\"\>"}], "}"}]}], "}"}], "]"}]], "Output", CellChangeTimes->{3.759073334384305*^9, 3.7590741055983577`*^9}, CellLabel->"Out[3]=", CellID->820530249] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.75907339817334*^9, 3.7590733997302923`*^9}}, CellLabel->"In[4]:=", CellID->44406043], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"\[AHat]\.9c\.93\"\>", ",", "\<\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\"\>"}], "}"}]], "Output", CellChangeTimes->{3.759073404307148*^9, 3.7590741057663527`*^9}, CellLabel->"Out[4]=", CellID->517392270] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7590734096509824`*^9, 3.759073420258638*^9}}, CellLabel->"In[5]:=", CellID->645267251], Cell[BoxData[ RowBox[{"{", "\<\"\[AHat]\.9c\.93\[IDoubleDot]\.9c\[DownExclamation]\ \[CapitalATilde]\.97\"\>", "}"}]], "Output", CellChangeTimes->{3.7590734213106213`*^9, 3.75907410585235*^9}, CellLabel->"Out[5]=", CellID->64307782] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Richard Hennigan (Wolfram Research)", "Text", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[70929]}, 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.7590734710500755`*^9}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["character name", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.759073553258505*^9, 3.7590735539884825`*^9}, { 3.759073590554361*^9, 3.7590735905553656`*^9}}, CellTags->"TabNext", CellID->123227828], Cell["character", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.759073553258505*^9, 3.7590735539884825`*^9}, { 3.7590735916173296`*^9, 3.7590735932012835`*^9}}, CellID->16759110], Cell["from character name", "Item", CellChangeTimes->{{3.7590735957392015`*^9, 3.7590736006440325`*^9}}, CellID->17996722], Cell["name to character", "Item", CellChangeTimes->{{3.7590735957392015`*^9, 3.759073610896714*^9}}, CellID->225903750] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell["CharacterName", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736138886204`*^9, 3.7590736159825706`*^9}}, CellTags->"TabNext", CellID->79477165], Cell["FromCharacterCode", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736138886204`*^9, 3.7590736217593756`*^9}}, CellID->481181949], Cell["FromLetterNumber", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736138886204`*^9, 3.75907362602526*^9}}, CellID->933414866] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell["StringFunction", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736581852603`*^9, 3.7590736601031995`*^9}}, CellTags->"TabNext", CellID->960273585], Cell["StringSort", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736581852603`*^9, 3.7590736816215334`*^9}}, CellID->141474961], Cell["StringWrap", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736581852603`*^9, 3.759073687750332*^9}}, CellID->257846683], Cell["FromCamelCase", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590736581852603`*^9, 3.7590736926651883`*^9}}, CellID->895128664] }, Open ]] }, Open ]], Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[TextData[ButtonBox["Guide: Character Operations", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/guide/CharacterOperations.html"]\ , None}, ButtonNote-> "http://reference.wolfram.com/language/guide/CharacterOperations.html"]], \ "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7590742062242155`*^9, 3.759074220248795*^9}}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", "\"\<\[AHat]\.80\.a6\>\""}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[1]:=", CellID->273727149], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"Ellipsis\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\[AHat]\.80\.a6\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\[AHat]\.80\.a6\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 18, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName["Ellipsis"]], "ExpectedOutput" -> HoldForm["\[AHat]\.80\.a6"], "ActualOutput" -> HoldForm["\[AHat]\.80\.a6"], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737587721353`*^9, 3.759074106348338*^9}, CellLabel->"Out[1]=", CellID->399805807] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", "\"\<\[AHat]\.9c\.93\>\""}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[2]:=", CellID->115965672], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"Checkmark\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\[AHat]\.9c\.93\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\[AHat]\.9c\.93\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 19, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName["Checkmark"]], "ExpectedOutput" -> HoldForm["\[AHat]\.9c\.93"], "ActualOutput" -> HoldForm["\[AHat]\.9c\.93"], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.759073759003128*^9, 3.759074106449332*^9}, CellLabel->"Out[2]=", CellID->417189210] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", "\"\<\[IDoubleDot]\.9c\[DownExclamation]\>\""}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[3]:=", CellID->903356023], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"FreakedSmiley\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ "\"\[IDoubleDot]\.9c\[DownExclamation]\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ "\"\[IDoubleDot]\.9c\[DownExclamation]\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 20, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName["FreakedSmiley"]], "ExpectedOutput" -> HoldForm["\[IDoubleDot]\.9c\[DownExclamation]"], "ActualOutput" -> HoldForm["\[IDoubleDot]\.9c\[DownExclamation]"], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.759073759097124*^9, 3.7590741065483284`*^9}, CellLabel->"Out[3]=", CellID->171758685] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", "\"\\""}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[4]:=", CellID->147263135], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{"\"LatinSmallLetterH\"", ",", RowBox[{ "\[IDoubleDot]\.9d\[DownExclamation]", "3", "\[IDoubleDot]\.9d\[Cent]"}], ",", RowBox[{"\"Latin\"", "\[AHat]\.80\.a6", "\"tterO\""}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"hello\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"hello\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 21, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{ "LatinSmallLetterH", "LatinSmallLetterE", "LatinSmallLetterL", "LatinSmallLetterL", "LatinSmallLetterO"}]], "ExpectedOutput" -> HoldForm["hello"], "ActualOutput" -> HoldForm["hello"], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[80, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737591931252`*^9, 3.7590741066883087`*^9}, CellLabel->"Out[4]=", CellID->6884960] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"{", RowBox[{ "\"\<\[AHat]\.98\.ba\[AHat]\.9c\.93\>\"", ",", " ", "\"\<\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\>\""}], "}"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[5]:=", CellID->318924569], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"Fr\"", "\[AHat]\.80\.a6", "\"ey\""}], ",", RowBox[{"\"\"", "\[AHat]\.80\.a6", "\"\""}]}], "}"}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "\"\[AHat]\.98\.ba\[AHat]\.9c\.93\"", ",", "\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ \""}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "\"\[AHat]\.98\.ba\[AHat]\.9c\.93\"", ",", "\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ \""}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 22, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{{"HappySmiley", "Checkmark"}, { "FreakedSmiley", "Times"}}]], "ExpectedOutput" -> HoldForm[{ "\[AHat]\.98\.ba\[AHat]\.9c\.93", "\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97"}], "ActualOutput" -> HoldForm[{ "\[AHat]\.98\.ba\[AHat]\.9c\.93", "\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97"}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[168, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.759073759292103*^9, 3.7590741068733187`*^9}, CellLabel->"Out[5]=", CellID->810867638] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\>\"", ",", " ", "\"\<\[AHat]\.98\.ba\[AHat]\.9c\.93\>\"", ",", " ", "\"\<\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\>\"", ",", " ", RowBox[{ "{", "\"\<\[IDoubleDot]\.9e\[DownQuestion]\[CapitalATilde]\.97\[AHat]\ \.88\.9e\[IDoubleDot]\.9c\[NonBreakingSpace]\[IDoubleDot]\.9d\.8e\[AHat]\.98\ \.ba\>\"", "}"}]}], "}"}], ",", " ", "\"\\""}], "}"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[6]:=", CellID->103755994], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "2", "\[IDoubleDot]\.9d\[Cent]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}], "}"}], "}"}]}], "}"}], ",", RowBox[{ "\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\"", ",", "\"\[AHat]\.98\.ba\[AHat]\.9c\.93\"", ",", "\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ \"", ",", RowBox[{"{", "\"\[IDoubleDot]\.9e\[DownQuestion]\[CapitalATilde]\.97\ \[AHat]\.88\.9e\[IDoubleDot]\.9c\[NonBreakingSpace]\[IDoubleDot]\.9d\.8e\ \[AHat]\.98\.ba\"", "}"}]}], "}"}], ",", "\"hello\""}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\"", ",", "\"\[AHat]\.98\.ba\[AHat]\.9c\.93\"", ",", "\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ \"", ",", RowBox[{"{", "\"\[IDoubleDot]\.9e\[DownQuestion]\[CapitalATilde]\.97\ \[AHat]\.88\.9e\[IDoubleDot]\.9c\[NonBreakingSpace]\[IDoubleDot]\.9d\.8e\ \[AHat]\.98\.ba\"", "}"}]}], "}"}], ",", "\"hello\""}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.001`4.150514997831987", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 23, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{{{}, {"HappySmiley", "Checkmark"}, { "FreakedSmiley", "Times"}, {{ "SpaceKey", "Times", "Infinity", "Wolf", "ImaginaryI", "HappySmiley"}}}, { "LatinSmallLetterH", "LatinSmallLetterE", "LatinSmallLetterL", "LatinSmallLetterL", "LatinSmallLetterO"}}]], "ExpectedOutput" -> HoldForm[{{ "", "\[AHat]\.98\.ba\[AHat]\.9c\.93", "\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97", { "\[IDoubleDot]\.9e\[DownQuestion]\[CapitalATilde]\.97\[AHat]\.88\.9e\ \[IDoubleDot]\.9c\[NonBreakingSpace]\[IDoubleDot]\.9d\.8e\[AHat]\.98\.ba"}}, "hello"}], "ActualOutput" -> HoldForm[{{ "", "\[AHat]\.98\.ba\[AHat]\.9c\.93", "\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97", { "\[IDoubleDot]\.9e\[DownQuestion]\[CapitalATilde]\.97\[AHat]\.88\.9e\ \[IDoubleDot]\.9c\[NonBreakingSpace]\[IDoubleDot]\.9d\.8e\[AHat]\.98\.ba"}}, "hello"}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.001`4.150514997831987, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[368, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.759073759393117*^9, 3.759074106973315*^9}, CellLabel->"Out[6]=", CellID->70833622] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", "\"\<\>\""}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[7]:=", CellID->203626060], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 24, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{}]], "ExpectedOutput" -> HoldForm[""], "ActualOutput" -> HoldForm[""], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737595031137`*^9, 3.7590741071133103`*^9}, CellLabel->"Out[7]=", CellID->636526282] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"c", "=", RowBox[{"RandomInteger", "[", RowBox[{"65535", ",", "10"}], "]"}]}], "}"}], ",", RowBox[{ RowBox[{"ToCharacterCode", "[", RowBox[{"FromCharacterName", "[", RowBox[{"CharacterName", "[", RowBox[{"FromCharacterCode", "[", "c", "]"}], "]"}], "]"}], "]"}], "===", "c"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]}], ",", "\[IDoubleDot]\.8e\[Sterling]", "True"}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellChangeTimes->{{3.759073874658535*^9, 3.759073918978161*^9}, { 3.7590740145881715`*^9, 3.759074052792983*^9}}, CellLabel->"In[8]:=", CellID->33303834], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{ "\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}]}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 25, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; With[{$CellContext`c = RandomInteger[65535, 10]}, ToCharacterCode[ $CellContext`FromCharacterName[ CharacterName[ FromCharacterCode[$CellContext`c]]]] === $CellContext`c]], "ExpectedOutput" -> HoldForm[True], "ActualOutput" -> HoldForm[True], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7590737596091084`*^9, 3.7590739207251024`*^9, {3.7590740450782394`*^9, 3.759074053295992*^9}, 3.7590741072113085`*^9}, CellLabel->"Out[8]=", CellID->401993344] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"FromCharacterName", "[", "\"\\"", "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"{", RowBox[{"ResourceFunction", "::", "usermessage"}], "}"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[9]:=", CellID->264831576], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"SuperScriptOne\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"SuperScriptOne\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"SuperScriptOne\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"ResourceFunction", "::", "usermessage"}], "MessageName"], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{"ResourceFunction", "::", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "11", "\[IDoubleDot]\.9d\[Cent]"}]}], "MessageName"], ",", RowBox[{ "\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}]}], "]"}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0010011`4.150992459206442", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 26, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName["SuperScriptOne"]], "ExpectedOutput" -> HoldForm[ $CellContext`FromCharacterName["SuperScriptOne"]], "ActualOutput" -> HoldForm[ $CellContext`FromCharacterName["SuperScriptOne"]], "ExpectedMessages" -> { HoldForm[ MessageName[ResourceFunction, "usermessage"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[ResourceFunction, "usermessage"], Row[{ RawBoxes[ StyleBox[ RowBox[{"FromCharacterName", "::", "notchar"}], "MessageName"]], ": ", StringForm[ "No character with the name \"`1`\" was found.", "SuperScriptOne"]}]]]}, "AbsoluteTimeUsed" -> Quantity[0.0010011`4.150992459206442, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[5240, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737598531017`*^9, 3.759074107313305*^9}, CellLabel->"Out[9]=", CellID->117819978] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", "\"\\"", "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", "\"\<\[CapitalAHat]\.b9\>\""}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[10]:=", CellID->425696326], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", "\"SuperscriptOne\"", "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\[CapitalAHat]\.b9\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox["\"\[CapitalAHat]\.b9\"", Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 27, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName["SuperscriptOne"]], "ExpectedOutput" -> HoldForm["\[CapitalAHat]\.b9"], "ActualOutput" -> HoldForm["\[CapitalAHat]\.b9"], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737600540953`*^9, 3.7590741074113007`*^9}, CellLabel->"Out[10]=", CellID->328876475] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"{", RowBox[{"ResourceFunction", "::", "usermessage"}], "}"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[11]:=", CellID->85577238], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{"\"Checkmark\"", ",", RowBox[{"{", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}], "}"}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{"\"Checkmark\"", ",", RowBox[{"{", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}], "}"}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{"\"Checkmark\"", ",", RowBox[{"{", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}], "}"}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"ResourceFunction", "::", "usermessage"}], "MessageName"], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{"ResourceFunction", "::", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "11", "\[IDoubleDot]\.9d\[Cent]"}]}], "MessageName"], ",", RowBox[{ "\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}]}], "]"}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0009997`4.150384689940255", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 28, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{ "Checkmark", {"FreakedSmiley", "Times"}}]], "ExpectedOutput" -> HoldForm[ $CellContext`FromCharacterName[{ "Checkmark", {"FreakedSmiley", "Times"}}]], "ActualOutput" -> HoldForm[ $CellContext`FromCharacterName[{ "Checkmark", {"FreakedSmiley", "Times"}}]], "ExpectedMessages" -> { HoldForm[ MessageName[ResourceFunction, "usermessage"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[ResourceFunction, "usermessage"], Row[{ RawBoxes[ StyleBox[ RowBox[{"FromCharacterName", "::", "invalid"}], "MessageName"]], ": ", StringForm["Elements `1` and `2` are incompatible.", HoldForm["Checkmark"], HoldForm[{"FreakedSmiley", "Times"}]]}]]]}, "AbsoluteTimeUsed" -> Quantity[0.0009997`4.150384689940255, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[4144, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.759073760157092*^9, 3.7590741075512967`*^9}, CellLabel->"Out[11]=", CellID->402076807] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{"{", RowBox[{ "\"\<\[AHat]\.9c\.93\>\"", ",", " ", "\"\<\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\>\""}], "}"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[12]:=", CellID->410239251], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"Checkmark\"", "}"}], ",", RowBox[{"{", RowBox[{"\[IDoubleDot]\.9d\[DownExclamation]", "1", "\[IDoubleDot]\.9d\[Cent]"}], "}"}]}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "\"\[AHat]\.9c\.93\"", ",", "\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ \""}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "\"\[AHat]\.9c\.93\"", ",", "\"\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ \""}], "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 29, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{{"Checkmark"}, { "FreakedSmiley", "Times"}}]], "ExpectedOutput" -> HoldForm[{ "\[AHat]\.9c\.93", "\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97"}], "ActualOutput" -> HoldForm[{ "\[AHat]\.9c\.93", "\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97"}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[168, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737602610893`*^9, 3.759074107692294*^9}, CellLabel->"Out[12]=", CellID->195510668] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ RowBox[{"FromCharacterName", "[", RowBox[{"{", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], "}"}], "]"}], ",", "\[IDoubleDot]\.8e\[Sterling]", RowBox[{ "{", "\"\<\[AHat]\.9c\.93\[IDoubleDot]\.9c\[DownExclamation]\ \[CapitalATilde]\.97\>\"", "}"}]}], "\[IDoubleDot]\.8e\[Sterling]", "]"}]], "Input", CellLabel->"In[13]:=", CellID->540302722], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[AHat]\.97\.8b\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"FromCharacterName\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["FromCharacterName"], Selectable -> False], "[", RowBox[{"{", RowBox[{"{", RowBox[{"\"Checkmark\"", ",", RowBox[{"\"\"", "\[AHat]\.80\.a6", "\"\""}], ",", "\"Times\""}], "}"}], "}"}], "]"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ "{", "\"\[AHat]\.9c\.93\[IDoubleDot]\.9c\[DownExclamation]\ \[CapitalATilde]\.97\"", "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ "{", "\"\[AHat]\.9c\.93\[IDoubleDot]\.9c\[DownExclamation]\ \[CapitalATilde]\.97\"", "}"}], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[IDoubleDot]\.8d\[NonBreakingSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0010001`4.150558425108854", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, 2/3]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 30, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`FromCharacterName[{{ "Checkmark", "FreakedSmiley", "Times"}}]], "ExpectedOutput" -> HoldForm[{ "\[AHat]\.9c\.93\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ "}], "ActualOutput" -> HoldForm[{ "\[AHat]\.9c\.93\[IDoubleDot]\.9c\[DownExclamation]\[CapitalATilde]\.97\ "}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0010001`4.150558425108854, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[136, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7590737603640842`*^9, 3.7590741077842913`*^9}, CellLabel->"Out[13]=", CellID->5671239] }, Open ]] }, Open ]] }, Closed]], Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell[TextData[{ "Submission Notes", Cell[BoxData[ 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"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10", "StatusMessage" -> ""}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ 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`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[IDoubleDot]\.8e\.ba", "\[IDoubleDot]\.8e\.ba", "\[IDoubleDot]\.8e\.ba", "\[IDoubleDot]\.8e\.ba", "\[IDoubleDot]\.8e\.ba", "\[IDoubleDot]\.8e\.ba", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[CapitalAHat]\[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[AHat]\.96\.be\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[AHat]\.96\.be\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, 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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], 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["\[IDoubleDot]\.94\[DoubleDot]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 787, 14, 70, "Title",ExpressionUUID->"4046be69-6319-4258-9951-e46816accbe3", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 787, 14, 70, "Title",ExpressionUUID->"4046be69-6319-4258-9951-e46816accbe3", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1370, 38, 805, 14, 70, "Text",ExpressionUUID->"5cd67a21-00d2-499b-b0e9-3b6817ac8090", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[23427, 618, 464, 10, 70, "UsageInputs",ExpressionUUID->"a738d5fb-865e-48a5-82e6-35e82fc0ca91", CellTags->"TabNext", CellID->410373307], Cell[23894, 630, 324, 9, 70, "UsageDescription",ExpressionUUID->"edd78f1e-ae5a-4657-99b7-32fb6adb8bdb", CellTags->"TabNext", CellID->584004037], Cell[48260, 1375, 768, 14, 70, "Text",ExpressionUUID->"34e44d6c-70e5-408a-8388-0ca0ba27ed30", CellTags->"TabNext", CellID->832483124], Cell[49715, 1416, 588, 10, 70, "Item",ExpressionUUID->"447bbc72-f359-4799-a3b2-e2e94cf5499b", CellTags->"TabNext", CellID->123227828], Cell[51855, 1473, 537, 9, 70, "Item",ExpressionUUID->"f1f78d64-1119-41d4-8cf2-0929d05ace8a", CellTags->"TabNext", CellID->79477165], Cell[54210, 1530, 539, 9, 70, "Item",ExpressionUUID->"0af93779-140d-428f-abe5-d646866fcf3f", CellTags->"TabNext", CellID->960273585], Cell[57705, 1615, 790, 16, 70, "Item",ExpressionUUID->"d0dc3aed-700b-41e8-9f36-4fe1c192391f", CellTags->"TabNext", CellID->485448166]}, "Description"->{ Cell[1370, 38, 805, 14, 70, "Text",ExpressionUUID->"5cd67a21-00d2-499b-b0e9-3b6817ac8090", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[2200, 56, 877, 21, 70, "Section",ExpressionUUID->"a987e415-dd17-46b3-b606-420978c50602", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[22495, 587, 99, 3, 70, "Section",ExpressionUUID->"87cd137b-29cd-42a3-a014-73579d52bc78", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[22619, 594, 783, 20, 70, "Subsection",ExpressionUUID->"9f70994e-4a29-44dc-8c91-f28d3eff3cee", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[25378, 677, 814, 20, 70, "Subsection",ExpressionUUID->"158cdc2e-1d98-4b54-8753-703ac52c5362", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[28576, 769, 913, 21, 70, "Section",ExpressionUUID->"2ce8fcb2-fb73-43b6-953f-a0b59e03b557", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[47425, 1348, 135, 3, 70, "Section",ExpressionUUID->"7a207a47-60bc-4087-8e51-15f0b0deaec0", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[47585, 1355, 672, 18, 70, "Subsection",ExpressionUUID->"a004c6eb-303d-44f1-bc45-57812059b883", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[49065, 1394, 625, 18, 70, "Subsection",ExpressionUUID->"256ead41-34a5-4455-b4e5-f61de3dfd709", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[51168, 1451, 662, 18, 70, "Subsection",ExpressionUUID->"b7b7a854-e821-4dcd-ba69-ce98f654fd5f", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[53483, 1508, 702, 18, 70, "Subsection",ExpressionUUID->"aac22ce3-01b8-4dea-bcc5-58cddc77f232", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[56325, 1573, 755, 19, 70, "Subsection",ExpressionUUID->"91b6146d-7f91-4332-956b-a962bf659967", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[57105, 1596, 597, 17, 70, "Subsection",ExpressionUUID->"4b203a8d-78dc-4750-a997-f2e33ff7fdc0", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[58532, 1636, 767, 20, 70, "Subsection",ExpressionUUID->"ef01cebf-d1b5-4dde-82cc-7b05d5f7c937", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[221306, 5115, 127, 4, 70, "Section",ExpressionUUID->"2f9f37b2-f970-4643-893e-4a36fcf4e4de", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[221436, 5121, 720, 19, 70, "Section",ExpressionUUID->"acbdbf25-fbda-4e95-8314-dafa2dc697d7", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 267876, 6080}, {"TabNext", 268042, 6084}, {"Description", 269383, 6112}, {"Definition", 269558, 6116}, {"Documentation", 269725, 6120}, {"Usage", 269887, 6124}, {"Details & Options", 270058, 6128}, {"Examples", 270231, 6132}, {"Source & Additional Information", 270416, 6136}, {"Contributed By", 270607, 6140}, {"Keywords", 270779, 6144}, {"Related Symbols", 270952, 6148}, {"Related Resource Objects", 271141, 6152}, {"Source/Reference Citation", 271340, 6156}, {"Links", 271520, 6160}, {"Tests", 271680, 6164}, {"Author Notes", 271846, 6168}, {"Submission Notes", 272021, 6172} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 787, 14, 70, "Title",ExpressionUUID->"4046be69-6319-4258-9951-e46816accbe3", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1370, 38, 805, 14, 70, "Text",ExpressionUUID->"5cd67a21-00d2-499b-b0e9-3b6817ac8090", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[2200, 56, 877, 21, 70, "Section",ExpressionUUID->"a987e415-dd17-46b3-b606-420978c50602", CellTags->"Definition", CellID->608264297], Cell[3080, 79, 214, 5, 70, "Code",ExpressionUUID->"57cf3473-f5f2-406b-b0e7-dcbff43bfef3", CellID->164172078], Cell[CellGroupData[{ Cell[3319, 88, 139, 3, 70, "Subsection",ExpressionUUID->"6c334ed1-e243-4e5f-98f4-682ee4652efa", CellID->942613391], Cell[3461, 93, 3407, 72, 70, "Text",ExpressionUUID->"af108132-5117-487d-b6dc-0f08f9a0c5bf", CellID->191546246], Cell[6871, 167, 1147, 25, 70, "Code",ExpressionUUID->"f02d8156-5196-46fa-8334-e2ad702bdc0e", CellID->209541012] }, Closed]], Cell[CellGroupData[{ Cell[8055, 197, 143, 3, 70, "Subsection",ExpressionUUID->"63106374-1494-4ecb-8fbc-5c278e369902", CellID->166916962], Cell[8201, 202, 3692, 77, 70, "Text",ExpressionUUID->"83f457ff-dd75-4883-b66d-115c377430d3", CellID->19811963], Cell[11896, 281, 433, 10, 70, "Code",ExpressionUUID->"9da33240-c2de-4eee-94f7-628a3cbc4f30", CellID->38345076] }, Closed]], Cell[CellGroupData[{ Cell[12366, 296, 201, 4, 70, "Subsection",ExpressionUUID->"52e11720-3e60-47f0-b811-e09b673795e1", CellID->324440862], Cell[12570, 302, 194, 3, 70, "Text",ExpressionUUID->"4c3a7aa5-fc2f-4f0b-817b-6e3b408e4658", CellID->527076645], Cell[12767, 307, 1336, 35, 70, "Code",ExpressionUUID->"14d77607-7e83-4518-a5a3-a494ad9e0b33", CellID->9364832], Cell[14106, 344, 141, 2, 70, "Text",ExpressionUUID->"fadb2b6d-b040-40b2-bb7a-6a2c8ad4c991", CellID->42160365], Cell[14250, 348, 435, 13, 70, "Code",ExpressionUUID->"bcfa098f-a698-4d79-92ee-289c54bbd5d6", CellID->638271], Cell[14688, 363, 128, 2, 70, "Text",ExpressionUUID->"7a647eb5-de5e-4f4a-a6b3-0e19a663e3c9", CellID->268009176], Cell[14819, 367, 625, 17, 70, "Code",ExpressionUUID->"2f27e678-12e1-498a-9847-a4a78da146d1", CellID->169338519], Cell[15447, 386, 123, 2, 70, "Text",ExpressionUUID->"653c22c5-a064-4c21-9562-4591ae47668c", CellID->113425331], Cell[15573, 390, 393, 11, 70, "Code",ExpressionUUID->"a987ad69-539a-4c83-a77e-5ebabd37f9e8", CellID->249198086] }, Open ]], Cell[CellGroupData[{ Cell[16003, 406, 147, 3, 70, "Subsection",ExpressionUUID->"4e6d16af-314f-43f9-bccf-7f5a76f60858", CellID->883903207], Cell[16153, 411, 1361, 38, 70, "Code",ExpressionUUID->"29758b2f-7b0f-4792-9ba9-ee0b477bf94c", CellID->192693759], Cell[17517, 451, 208, 5, 70, "Text",ExpressionUUID->"341d041a-9fd3-480c-bc0d-2802412f3b44", CellID->231402301], Cell[17728, 458, 1126, 27, 70, "Code",ExpressionUUID->"18518a96-c507-4f2a-89db-c0f41297a3e4", CellID->175755256], Cell[18857, 487, 618, 17, 70, "Code",ExpressionUUID->"aa8df33a-4652-43af-9472-089bbf4e5e8b", CellID->44369341], Cell[19478, 506, 148, 2, 70, "Text",ExpressionUUID->"3dd93159-416e-4092-a4ca-f886e197f75e", CellID->91768621], Cell[19629, 510, 2817, 71, 70, "Code",ExpressionUUID->"42de6d14-d376-415e-8dc7-f1cfa2c31aa6", CellID->462116186] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[22495, 587, 99, 3, 70, "Section",ExpressionUUID->"87cd137b-29cd-42a3-a014-73579d52bc78", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[22619, 594, 783, 20, 70, "Subsection",ExpressionUUID->"9f70994e-4a29-44dc-8c91-f28d3eff3cee", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[23427, 618, 464, 10, 70, "UsageInputs",ExpressionUUID->"a738d5fb-865e-48a5-82e6-35e82fc0ca91", CellTags->"TabNext", CellID->410373307], Cell[23894, 630, 324, 9, 70, "UsageDescription",ExpressionUUID->"edd78f1e-ae5a-4657-99b7-32fb6adb8bdb", CellTags->"TabNext", CellID->584004037] }, Open ]], Cell[CellGroupData[{ Cell[24255, 644, 907, 23, 70, "UsageInputs",ExpressionUUID->"22d35517-06cb-4d42-9688-ef974466572c", CellID->115302085], Cell[25165, 669, 164, 2, 70, "UsageDescription",ExpressionUUID->"9e156e13-dffe-4fab-8e49-4c7bf457d0fb", CellID->229031745] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25378, 677, 814, 20, 70, "Subsection",ExpressionUUID->"158cdc2e-1d98-4b54-8753-703ac52c5362", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[26217, 701, 1038, 26, 70, "Notes",ExpressionUUID->"aa93552a-b140-4a76-8565-b5ad0257f3c3", CellID->43599463], Cell[27258, 729, 1257, 33, 70, "Notes",ExpressionUUID->"fb3d4966-c864-4e0d-9e5c-0a6e6355a2c1", CellID->62334508] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28576, 769, 913, 21, 70, "Section",ExpressionUUID->"2ce8fcb2-fb73-43b6-953f-a0b59e03b557", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[29514, 794, 313, 7, 70, "Subsection",ExpressionUUID->"4b62ec25-f409-4d7d-92d3-f92a84f6ed14", CellID->462042388], Cell[29830, 803, 131, 2, 70, "Text",ExpressionUUID->"c55ec288-22d7-42a1-b36e-f1a7e4645ddb", CellID->13078159], Cell[CellGroupData[{ Cell[29986, 809, 196, 4, 70, "Input",ExpressionUUID->"98e8fb0d-c95d-4c5b-bcce-8d3b067ab4dc", CellID->443871870], Cell[30185, 815, 208, 4, 70, "Output",ExpressionUUID->"c5513e15-5926-464f-b843-9905e52d1219", CellID->249363915] }, Open ]], Cell[CellGroupData[{ Cell[30430, 824, 128, 3, 70, "Input",ExpressionUUID->"f9c181b8-566e-4996-a3d7-c0d881e18703", CellID->14837011], Cell[30561, 829, 186, 4, 70, "Output",ExpressionUUID->"d0578940-01c5-4f52-b053-de7bdc8df895", CellID->209301572] }, Open ]], Cell[CellGroupData[{ Cell[30784, 838, 133, 3, 70, "Input",ExpressionUUID->"b8338029-bb0b-4df7-92db-e3484ebb1c8c", CellID->304238490], Cell[30920, 843, 202, 4, 70, "Output",ExpressionUUID->"c8e571ae-8c35-4c16-912a-b8ff5179f193", CellID->352549858] }, Open ]], Cell[31137, 850, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"3c0f2419-a713-4b36-8e9e-52a92f22ed75", CellID->646213129], Cell[31265, 855, 150, 2, 70, "Text",ExpressionUUID->"a2c58a75-38df-4cb4-8f49-63ce6549afdc", CellID->685178117], Cell[CellGroupData[{ Cell[31440, 861, 368, 9, 70, "Input",ExpressionUUID->"0fbd42dc-a53b-4632-95c4-0d15709169eb", CellID->933694854], Cell[31811, 872, 198, 4, 70, "Output",ExpressionUUID->"a84a93de-f0dd-423e-8b7b-ca83b8a2cecb", CellID->37144249] }, Open ]], Cell[32024, 879, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e242424e-6a39-487f-b8ee-11d684d6bba8", CellID->249748425], Cell[32152, 884, 128, 2, 70, "Text",ExpressionUUID->"2ba69662-7189-4110-8051-cbd31346c6d3", CellID->501489942], Cell[CellGroupData[{ Cell[32305, 890, 331, 10, 70, "Input",ExpressionUUID->"83a86b21-388d-490a-b7ec-e1d1d2c7818e", CellID->130340778], Cell[32639, 902, 313, 8, 70, "Output",ExpressionUUID->"ffc40aa9-ecf5-4534-9053-68e073a249ae", CellID->5022620] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33001, 916, 257, 6, 70, "Subsection",ExpressionUUID->"581528ae-f1f0-460f-bac9-c26883c701f3", CellID->964056545], Cell[33261, 924, 145, 2, 70, "Text",ExpressionUUID->"f5ce2e64-f8a3-4ed2-b8db-eb8d5d7de63a", CellID->649685796], Cell[CellGroupData[{ Cell[33431, 930, 1017, 26, 70, "Input",ExpressionUUID->"1b62c6b6-3449-4107-9f0f-72f1c9687a87", CellID->836153427], Cell[34451, 958, 642, 15, 70, "Output",ExpressionUUID->"3bd47546-70cb-4837-829a-7d7430d4025c", CellID->159590546] }, Open ]], Cell[35108, 976, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"7a50410b-9075-4e99-a9f5-4ad13d3da43b", CellID->42045633], Cell[35235, 981, 146, 2, 70, "Text",ExpressionUUID->"e9d1c203-0a05-4d5e-867f-a10116b7a382", CellID->366336543], Cell[CellGroupData[{ Cell[35406, 987, 197, 5, 70, "Input",ExpressionUUID->"b705b944-bb3e-4668-a2be-b82ec4e8cbd0", CellID->686102372], Cell[35606, 994, 171, 4, 70, "Output",ExpressionUUID->"7ce5a9c3-3743-472f-b80b-07ac96572d9f", CellID->972972637] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35826, 1004, 276, 6, 70, "Subsection",ExpressionUUID->"f0b98486-f209-4aa4-8ed4-4c82aa06ad84", CellID->754506620], Cell[36105, 1012, 695, 21, 70, "Text",ExpressionUUID->"6ae03fc4-2c51-465a-b762-6bc0fbd4859a", CellID->602038342], Cell[CellGroupData[{ Cell[36825, 1037, 290, 8, 70, "Input",ExpressionUUID->"da1154cf-26a1-49e7-a8c1-0eb0ef5fbd8a", CellID->209476076], Cell[37118, 1047, 398, 7, 70, "Output",ExpressionUUID->"2249a8bf-7631-4794-a6e8-f2156b9ae0a2", CellID->388923290] }, Open ]], Cell[CellGroupData[{ Cell[37553, 1059, 109, 3, 70, "Input",ExpressionUUID->"6ea25862-5740-4881-ad37-803ca61d9f64", CellID->943296710], Cell[37665, 1064, 634, 14, 70, "Output",ExpressionUUID->"a5a7ac46-fa48-4f36-b023-568d49d90b9f", CellID->395545457] }, Open ]], Cell[CellGroupData[{ Cell[38336, 1083, 113, 3, 70, "Input",ExpressionUUID->"9fc78804-1460-4268-a2a8-8cad1c51032e", CellID->666980721], Cell[38452, 1088, 398, 7, 70, "Output",ExpressionUUID->"8fcda132-c730-4049-9d7a-9f3c8c419f65", CellID->756373319] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38899, 1101, 266, 6, 70, "Subsection",ExpressionUUID->"5e3f6014-dc5d-444f-beff-7b4c480003f6", CellID->92483860], Cell[39168, 1109, 128, 2, 70, "Text",ExpressionUUID->"411d155f-902e-439f-9c83-28377852ac29", CellID->83112590], Cell[CellGroupData[{ Cell[39321, 1115, 202, 4, 70, "Input",ExpressionUUID->"4f73552c-fce1-4e87-9bcd-b905d43ab8b5", CellID->313734999], Cell[39526, 1121, 723, 13, 70, "Message",ExpressionUUID->"ba0dcfcc-a827-432e-8d85-448bded36eb0", CellID->78148102], Cell[40252, 1136, 1823, 48, 70, "Output",ExpressionUUID->"ffb3e3bf-fc7e-4660-82ca-10af4a4d2c1d", CellID->359929781] }, Open ]], Cell[CellGroupData[{ Cell[42112, 1189, 178, 4, 70, "Input",ExpressionUUID->"95ddd49a-25a2-4ac9-b303-07016ff46b2d", CellID->436662545], Cell[42293, 1195, 310, 5, 70, "Output",ExpressionUUID->"6bf43dd2-e212-416e-83f1-e4eb5bf66b4c", CellID->455687352] }, Open ]], Cell[42618, 1203, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"458d04d5-7746-40c1-8c27-c6983523de36", CellID->437728073], Cell[42746, 1208, 145, 2, 70, "Text",ExpressionUUID->"2341dac8-bb4a-464b-ad43-0d2b25542216", CellID->274544700], Cell[CellGroupData[{ Cell[42916, 1214, 305, 9, 70, "Input",ExpressionUUID->"f4cf624f-69ef-4dd7-901f-d03a5e594214", CellID->10616700], Cell[43224, 1225, 1065, 18, 70, "Message",ExpressionUUID->"f7870256-8c2e-4279-87b9-79efc06e23f1", CellID->547777608], Cell[44292, 1245, 1809, 51, 70, "Output",ExpressionUUID->"6f0520d6-55f5-43bc-885d-cccdfad25754", CellID->820530249] }, Open ]], Cell[CellGroupData[{ Cell[46138, 1301, 353, 10, 70, "Input",ExpressionUUID->"14912836-bc41-4114-a5cc-d225ad928760", CellID->44406043], Cell[46494, 1313, 273, 7, 70, "Output",ExpressionUUID->"cd6b6d1c-d15e-4f53-8759-f473e770c6be", CellID->517392270] }, Open ]], Cell[CellGroupData[{ Cell[46804, 1325, 321, 9, 70, "Input",ExpressionUUID->"8eead02c-0dc4-430a-80be-c6e37860782e", CellID->645267251], Cell[47128, 1336, 236, 5, 70, "Output",ExpressionUUID->"da8f0518-e32c-4952-927b-3219799846f4", CellID->64307782] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47425, 1348, 135, 3, 70, "Section",ExpressionUUID->"7a207a47-60bc-4087-8e51-15f0b0deaec0", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[47585, 1355, 672, 18, 70, "Subsection",ExpressionUUID->"a004c6eb-303d-44f1-bc45-57812059b883", CellTags->"Contributed By", CellID->757508554], Cell[48260, 1375, 768, 14, 70, "Text",ExpressionUUID->"34e44d6c-70e5-408a-8388-0ca0ba27ed30", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[49065, 1394, 625, 18, 70, "Subsection",ExpressionUUID->"256ead41-34a5-4455-b4e5-f61de3dfd709", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[49715, 1416, 588, 10, 70, "Item",ExpressionUUID->"447bbc72-f359-4799-a3b2-e2e94cf5499b", CellTags->"TabNext", CellID->123227828], Cell[50306, 1428, 562, 9, 70, "Item",ExpressionUUID->"86382e31-2b9c-4c4e-b8a1-dad215b7fb21", CellID->16759110], Cell[50871, 1439, 124, 2, 70, "Item",ExpressionUUID->"e934ac67-14bb-45f0-a6bf-4f065dd71809", CellID->17996722], Cell[50998, 1443, 121, 2, 70, "Item",ExpressionUUID->"f2c72d9e-7960-4b10-b605-6ff70384d172", CellID->225903750] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51168, 1451, 662, 18, 70, "Subsection",ExpressionUUID->"b7b7a854-e821-4dcd-ba69-ce98f654fd5f", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[51855, 1473, 537, 9, 70, "Item",ExpressionUUID->"f1f78d64-1119-41d4-8cf2-0929d05ace8a", CellTags->"TabNext", CellID->79477165], Cell[52395, 1484, 520, 8, 70, "Item",ExpressionUUID->"939c5f29-7adf-4382-ab68-b1cddd0b5b6e", CellID->481181949], Cell[52918, 1494, 516, 8, 70, "Item",ExpressionUUID->"64207ad4-18e0-410f-ba3c-44a908e566ff", CellID->933414866] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53483, 1508, 702, 18, 70, "Subsection",ExpressionUUID->"aac22ce3-01b8-4dea-bcc5-58cddc77f232", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[54210, 1530, 539, 9, 70, "Item",ExpressionUUID->"0af93779-140d-428f-abe5-d646866fcf3f", CellTags->"TabNext", CellID->960273585], Cell[54752, 1541, 513, 8, 70, "Item",ExpressionUUID->"2b4e546a-02de-4206-8953-c4dc3ba79a8e", CellID->141474961], Cell[55268, 1551, 511, 8, 70, "Item",ExpressionUUID->"46bc7b83-3612-4c4e-8b92-066bd4d03018", CellID->257846683], Cell[55782, 1561, 516, 8, 70, "Item",ExpressionUUID->"4932e6a2-8aaa-4685-a00c-3a81582dffa2", CellID->895128664] }, Open ]] }, Open ]], Cell[56325, 1573, 755, 19, 70, "Subsection",ExpressionUUID->"91b6146d-7f91-4332-956b-a962bf659967", CellTags->"Source/Reference Citation", CellID->967310595], Cell[CellGroupData[{ Cell[57105, 1596, 597, 17, 70, "Subsection",ExpressionUUID->"4b203a8d-78dc-4750-a997-f2e33ff7fdc0", CellTags->"Links", CellID->593846556], Cell[57705, 1615, 790, 16, 70, "Item",ExpressionUUID->"d0dc3aed-700b-41e8-9f36-4fe1c192391f", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[58532, 1636, 767, 20, 70, "Subsection",ExpressionUUID->"ef01cebf-d1b5-4dde-82cc-7b05d5f7c937", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[59324, 1660, 320, 7, 70, "Input",ExpressionUUID->"f31f2ece-0a48-4244-af99-d701e249ef92", CellID->273727149], Cell[59647, 1669, 10407, 213, 70, "Output",ExpressionUUID->"eda1b7b3-c53b-4c41-b8cb-d63ba1ac3be8", CellID->399805807] }, Open ]], Cell[CellGroupData[{ Cell[70091, 1887, 321, 7, 70, "Input",ExpressionUUID->"543c060d-5116-4439-a7ea-a681b979345b", CellID->115965672], Cell[70415, 1896, 10405, 213, 70, "Output",ExpressionUUID->"09cced8a-6fec-47b6-a0cf-f90d147638ec", CellID->417189210] }, Open ]], Cell[CellGroupData[{ Cell[80857, 2114, 349, 8, 70, "Input",ExpressionUUID->"654cf555-d154-4535-a653-aa5eb51899f7", CellID->903356023], Cell[81209, 2124, 10577, 217, 70, "Output",ExpressionUUID->"dc136b60-c4dd-4ad3-84bf-45f6690ce615", CellID->171758685] }, Open ]], Cell[CellGroupData[{ Cell[91823, 2346, 536, 12, 70, "Input",ExpressionUUID->"d015ec89-e35f-42d9-8b61-aecaa952298f", CellID->147263135], Cell[92362, 2360, 10842, 223, 70, "Output",ExpressionUUID->"6766ced2-992f-43ec-8e50-ea797239677a", CellID->6884960] }, Open ]], Cell[CellGroupData[{ Cell[103241, 2588, 700, 18, 70, "Input",ExpressionUUID->"9caac00c-9e89-4b58-b5f3-7dc84505e58e", CellID->318924569], Cell[103944, 2608, 11571, 242, 70, "Output",ExpressionUUID->"5e888278-7c58-4814-99ba-83c5f0f5572c", CellID->810867638] }, Open ]], Cell[CellGroupData[{ Cell[115552, 2855, 1678, 41, 70, "Input",ExpressionUUID->"6b502eff-8945-4baa-b552-3b9a4fcb1fc8", CellID->103755994], Cell[117233, 2898, 13167, 275, 70, "Output",ExpressionUUID->"aec07341-7aa7-47ca-a078-95e76e58817f", CellID->70833622] }, Open ]], Cell[CellGroupData[{ Cell[130437, 3178, 307, 7, 70, "Input",ExpressionUUID->"223f0d53-3d3f-4bbb-8a97-4ce7f5daf3bc", CellID->203626060], Cell[130747, 3187, 10361, 213, 70, "Output",ExpressionUUID->"b92f31e9-7a3b-4ac4-918c-4a044d02f3d7", CellID->636526282] }, Open ]], Cell[CellGroupData[{ Cell[141145, 3405, 880, 22, 70, "Input",ExpressionUUID->"3b3bf8e8-c5e9-4001-8efb-f965ce2c7a45", CellID->33303834], Cell[142028, 3429, 8759, 184, 70, "Output",ExpressionUUID->"ee018044-d008-4869-8f9e-0bc6f040a970", CellID->401993344] }, Open ]], Cell[CellGroupData[{ Cell[150824, 3618, 491, 11, 70, "Input",ExpressionUUID->"4cd4d572-4634-4e55-9fb2-5ba259b7d934", CellID->264831576], Cell[151318, 3631, 16851, 345, 70, "Output",ExpressionUUID->"0bfec0ca-0f63-45bd-8b53-7221ea03b23d", CellID->117819978] }, Open ]], Cell[CellGroupData[{ Cell[168206, 3981, 330, 7, 70, "Input",ExpressionUUID->"b838cfdc-f8ce-4751-9023-d040b700d2b3", CellID->425696326], Cell[168539, 3990, 10452, 214, 70, "Output",ExpressionUUID->"346e7efd-dd45-4834-b2f8-0753ef0ee7d0", CellID->328876475] }, Open ]], Cell[CellGroupData[{ Cell[179028, 4209, 781, 19, 70, "Input",ExpressionUUID->"43a9c2c3-0bdc-4e41-82d4-dcd23d9213a4", CellID->85577238], Cell[179812, 4230, 17762, 366, 70, "Output",ExpressionUUID->"37134293-1ca2-4e84-a422-3aabdd426e6d", CellID->402076807] }, Open ]], Cell[CellGroupData[{ Cell[197611, 4601, 628, 16, 70, "Input",ExpressionUUID->"51f5162c-2aa8-4513-8564-db798533a8f8", CellID->410239251], Cell[198242, 4619, 11341, 239, 70, "Output",ExpressionUUID->"37b6e6ef-fee3-4615-b930-8507eb312f5d", CellID->195510668] }, Open ]], Cell[CellGroupData[{ Cell[209620, 4863, 552, 15, 70, "Input",ExpressionUUID->"2f8d2a51-4c00-4e39-8dfe-97da34b695d2", CellID->540302722], Cell[210175, 4880, 11092, 230, 70, "Output",ExpressionUUID->"95e37a4c-d6e4-4507-b99d-47c644bc685b", CellID->5671239] }, Open ]] }, Open ]] }, Closed]], Cell[221306, 5115, 127, 4, 70, "Section",ExpressionUUID->"2f9f37b2-f970-4643-893e-4a36fcf4e4de", CellTags->"Author Notes", CellID->795110225], Cell[221436, 5121, 720, 19, 70, "Section",ExpressionUUID->"acbdbf25-fbda-4e95-8314-dafa2dc697d7", CellTags->"Submission Notes", CellID->843283583] }, Open ]] } ] *) (* End of internal cache information *)