(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 28822, 823] NotebookOptionsPosition[ 23359, 690] NotebookOutlinePosition[ 23691, 706] CellTagsIndexPosition[ 23648, 703] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Test if a string is a valid symbol name:", "Text", CellChangeTimes->{{3.7616719436755977`*^9, 3.7616719525933447`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.761671959488138*^9, 3.761671998476972*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData["True"], "Output", CellChangeTimes->{3.761671999100953*^9, 3.7616723570825543`*^9}, CellLabel->"Out[1]=", CellID->346336301] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\<123\>\"", "]"}]], "Input", CellChangeTimes->{{3.7616720051077724`*^9, 3.761672010570593*^9}}, CellLabel->"In[2]:=", CellID->37714275], Cell[BoxData["False"], "Output", CellChangeTimes->{3.761672011549564*^9, 3.7616723571905513`*^9}, CellLabel->"Out[2]=", CellID->189665171] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->97167816], Cell["Test a fully qualified name:", "Text", CellChangeTimes->{{3.7616720426765575`*^9, 3.7616720482683816`*^9}}, CellID->182425019], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.761672049742321*^9, 3.761672077141491*^9}}, CellLabel->"In[1]:=", CellID->270311682], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7616720779554524`*^9, 3.7616723573725295`*^9}, CellLabel->"Out[1]=", CellID->203923671] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7616721103784585`*^9, 3.7616721280871105`*^9}}, CellLabel->"In[2]:=", CellID->522128949], Cell[BoxData["False"], "Output", CellChangeTimes->{3.76167213009705*^9, 3.761672357482541*^9}, CellLabel->"Out[2]=", CellID->331445292] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->26308431], Cell["Non-string expressions cannot be symbol names:", "Text", CellChangeTimes->{{3.761673619430584*^9, 3.761673654311535*^9}, { 3.7620164553694973`*^9, 3.7620164586768284`*^9}}, CellID->770882889], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "1", "]"}]], "Input", CellChangeTimes->{{3.7616736554615*^9, 3.7616736584424095`*^9}}, CellLabel->"In[1]:=", CellID->112042295], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.761673660331352*^9, 3.7616736645542264`*^9}}, CellLabel->"Out[1]=", CellID->815407323] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->461124222], Cell["Test a string corresponding to a nonexistent symbol:", "Text", CellChangeTimes->{{3.7616721753696747`*^9, 3.7616721964125795`*^9}}, CellID->18128506], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7616722006374507`*^9, 3.7616722083445044`*^9}}, CellLabel->"In[1]:=", CellID->189358282], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7616722158143387`*^9, 3.761672357665537*^9}, CellLabel->"Out[1]=", CellID->358006329] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NameQ", "[", "\"\\"", "]"}]], "Input",\ CellChangeTimes->{{3.761672220674466*^9, 3.7616722222804317`*^9}}, CellLabel->"In[2]:=", CellID->329780264], Cell[BoxData["False"], "Output", CellChangeTimes->{3.7616722228774147`*^9, 3.761672357766534*^9}, CellLabel->"Out[2]=", CellID->83173289] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["PossibleNameQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " only tests if the string corresponds to a valid symbol name:" }], "Text", CellChangeTimes->{{3.761672227654481*^9, 3.7616722533815117`*^9}}, CellID->15410154], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7616722006374507`*^9, 3.7616722083445044`*^9}}, CellLabel->"In[1]:=", CellID->21540584], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7616722158143387`*^9, 3.7616724238649597`*^9}, CellLabel->"Out[1]=", CellID->71281241] }, Open ]], Cell["It does not need to be an existing symbol:", "Text", CellChangeTimes->{{3.7616723703934345`*^9, 3.7616723756373205`*^9}, { 3.773475650730672*^9, 3.77347565305624*^9}}, CellID->161670877], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NameQ", "[", "\"\\"", "]"}]], "Input",\ CellChangeTimes->{{3.761672220674466*^9, 3.7616722222804317`*^9}}, CellLabel->"In[2]:=", CellID->330837924], Cell[BoxData["False"], "Output", CellChangeTimes->{3.7616722228774147`*^9, 3.761672423933942*^9}, CellLabel->"Out[2]=", CellID->39470131] }, Open ]], Cell[TextData[{ Cell[BoxData[ StyleBox["PossibleNameQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " only tests if it ", StyleBox["can", FontSlant->"Italic"], " be a symbol:" }], "Text", CellChangeTimes->{{3.761672434974971*^9, 3.761672472859141*^9}}, CellID->385087236], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Symbol", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7616722613867016`*^9, 3.761672265076589*^9}}, CellLabel->"In[3]:=", CellID->316783212], Cell[BoxData["This`Probably`Does`Not`Exist"], "Output", CellChangeTimes->{3.761672265628582*^9, 3.761672486870718*^9}, CellLabel->"Out[3]=", CellID->337437394] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.761672488067667*^9, 3.761672491560563*^9}}, CellLabel->"In[4]:=", CellID->457423474], Cell[BoxData["Symbol"], "Output", CellChangeTimes->{3.761672492089562*^9}, CellLabel->"Out[4]=", CellID->348427630] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PossibleNameQ\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PossibleNameQ\""}], ResourceFunction["PossibleNameQ"], BoxID -> "PossibleNameQ", Selectable->False], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7616722797967224`*^9, 3.7616722860165353`*^9}}, CellLabel->"In[5]:=", CellID->478123669], Cell[BoxData["False"], "Output", CellChangeTimes->{3.7616722896494265`*^9, 3.761672504949178*^9}, CellLabel->"Out[5]=", CellID->253626757] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Symbol", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7616722934916873`*^9, 3.7616722953496323`*^9}}, CellLabel->"In[6]:=", CellID->2151245], Cell[BoxData[ TemplateBox[{ "Symbol","symname", "\"The string \ \\\"\\!\\(\\*RowBox[{\\\"\\\\\\\"This`Can't`Exist\\\\\\\"\\\"}]\\)\\\" cannot \ be used for a symbol name. A symbol name must start with a letter followed by \ letters and numbers.\"",2,6,8,31160287394643833125,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7616722961416264`*^9, 3.7616725051691537`*^9}, CellLabel->"During evaluation of In[6]:=", CellID->283334858], Cell[BoxData[ RowBox[{"Symbol", "[", "\<\"This`Can't`Exist\"\>", "]"}]], "Output", CellChangeTimes->{3.761672296154608*^9, 3.7616725051811543`*^9}, CellLabel->"Out[6]=", CellID->600601604] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"5535cb9f-7787-481a-9886-da96cb1bc99c", CellID->462042388], Cell[639, 25, 145, 2, 70, "Text",ExpressionUUID->"2bc9bc62-8ef0-41c8-acc3-878da52b3e58", CellID->13078159], Cell[CellGroupData[{ Cell[809, 31, 1912, 47, 70, "Input",ExpressionUUID->"fb52276c-05b3-4b87-bc19-894e55c1fa02", CellID->443871870], Cell[2724, 80, 140, 3, 70, "Output",ExpressionUUID->"33c228f0-e8a9-4461-9f71-ff12b716af2b", CellID->346336301] }, Open ]], Cell[CellGroupData[{ Cell[2901, 88, 1915, 47, 70, "Input",ExpressionUUID->"61d5dd5f-c87e-4871-a9f7-db23104d9877", CellID->37714275], Cell[4819, 137, 141, 3, 70, "Output",ExpressionUUID->"1baa8252-ce8a-410a-b9f6-3dff7ac6c32c", CellID->189665171] }, Open ]], Cell[CellGroupData[{ Cell[4997, 145, 564, 18, 70, "ExampleDelimiter",ExpressionUUID->"ff47619c-5199-43cd-b3dd-d57fb0b19a8f", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->97167816], Cell[5564, 165, 134, 2, 70, "Text",ExpressionUUID->"21ae980b-73a8-4478-9beb-1bc241cfca72", CellID->182425019], Cell[CellGroupData[{ Cell[5723, 171, 1922, 47, 70, "Input",ExpressionUUID->"a38c0312-d6dc-4c98-9be7-8485d9359119", CellID->270311682], Cell[7648, 220, 142, 3, 70, "Output",ExpressionUUID->"77d73d8d-d116-4a88-874e-4688b2a036ec", CellID->203923671] }, Open ]], Cell[CellGroupData[{ Cell[7827, 228, 1927, 47, 70, "Input",ExpressionUUID->"80ef4a78-f2aa-4f3c-8963-9d05be3bf6a0", CellID->522128949], Cell[9757, 277, 138, 3, 70, "Output",ExpressionUUID->"33b2a29d-4f04-485b-ac01-fbea21152387", CellID->331445292] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9944, 286, 564, 18, 70, "ExampleDelimiter",ExpressionUUID->"afc6315b-8cd0-40c8-95f0-5ec2d879a6f3", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->26308431], Cell[10511, 306, 201, 3, 70, "Text",ExpressionUUID->"38b49833-2f66-4d8c-8425-8854b4ad8613", CellID->770882889], Cell[CellGroupData[{ Cell[10737, 313, 1904, 47, 70, "Input",ExpressionUUID->"53548ed6-9f82-4c86-862c-fbf9b9159fcb", CellID->112042295], Cell[12644, 362, 143, 3, 70, "Output",ExpressionUUID->"1d8956e6-7687-4e1d-a5a1-8c96ad12e0ca", CellID->815407323] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12836, 371, 565, 18, 70, "ExampleDelimiter",ExpressionUUID->"d773d21b-135e-4b9d-871b-11859e5f1bea", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->461124222], Cell[13404, 391, 157, 2, 70, "Text",ExpressionUUID->"1aefec30-1901-4d53-8d63-1b626a40c9de", CellID->18128506], Cell[CellGroupData[{ Cell[13586, 397, 1946, 48, 70, "Input",ExpressionUUID->"98a9d740-b3c6-4944-af26-010ca8a414ec", CellID->189358282], Cell[15535, 447, 140, 3, 70, "Output",ExpressionUUID->"6cf02af4-2b62-4943-8713-e9edd66d6341", CellID->358006329] }, Open ]], Cell[CellGroupData[{ Cell[15712, 455, 206, 5, 70, "Input",ExpressionUUID->"b53fa51b-e8aa-4180-8f99-482b83088777", CellID->329780264], Cell[15921, 462, 140, 3, 70, "Output",ExpressionUUID->"b923d370-bc33-4ac1-a07e-25a12f9eeb7f", CellID->83173289] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16122, 472, 66, 1, 70, "Subsection",ExpressionUUID->"3583d21f-b502-4896-850d-11ace751611c", CellID->754506620], Cell[16191, 475, 343, 8, 70, "Text",ExpressionUUID->"ae741d7e-9176-4a4a-9c35-36ecfbbfc4a4", CellID->15410154], Cell[CellGroupData[{ Cell[16559, 487, 1945, 48, 70, "Input",ExpressionUUID->"0bf2dabb-1a57-474b-baaf-45d0d4647ae1", CellID->21540584], Cell[18507, 537, 141, 3, 70, "Output",ExpressionUUID->"7ca39874-4401-4d3b-ae24-c2baa148ce93", CellID->71281241] }, Open ]], Cell[18663, 543, 196, 3, 70, "Text",ExpressionUUID->"de709af2-a59c-424a-8074-9c1f30faece6", CellID->161670877], Cell[CellGroupData[{ Cell[18884, 550, 206, 5, 70, "Input",ExpressionUUID->"90e311c5-b66a-4580-8328-076758091611", CellID->330837924], Cell[19093, 557, 140, 3, 70, "Output",ExpressionUUID->"c60496d1-5c23-4785-aafb-b5f86d9654e4", CellID->39470131] }, Open ]], Cell[19248, 563, 358, 11, 70, "Text",ExpressionUUID->"9f2d5d7d-3135-474d-afcb-23b5e9d9280a", CellID->385087236], Cell[CellGroupData[{ Cell[19631, 578, 208, 5, 70, "Input",ExpressionUUID->"e277a64f-4310-4937-8335-bacddf6a8a1e", CellID->316783212], Cell[19842, 585, 162, 3, 70, "Output",ExpressionUUID->"682ee74e-997f-4d22-98f3-792d38bb92d9", CellID->337437394] }, Open ]], Cell[CellGroupData[{ Cell[20041, 593, 166, 4, 70, "Input",ExpressionUUID->"37360490-651f-4f6c-a24d-c05834e1fe1c", CellID->457423474], Cell[20210, 599, 118, 3, 70, "Output",ExpressionUUID->"02339614-ae6e-477c-840c-d5a8728f16a3", CellID->348427630] }, Open ]], Cell[CellGroupData[{ Cell[20365, 607, 1931, 47, 70, "Input",ExpressionUUID->"b9c31fcc-294c-4617-bafe-0e66727008da", CellID->478123669], Cell[22299, 656, 141, 3, 70, "Output",ExpressionUUID->"9479ad58-c6c0-489c-871f-e24311f3a5cc", CellID->253626757] }, Open ]], Cell[CellGroupData[{ Cell[22477, 664, 193, 4, 70, "Input",ExpressionUUID->"81b75407-ebb0-45f9-ae4a-f942c652ecdd", CellID->2151245], Cell[22673, 670, 463, 10, 70, "Message",ExpressionUUID->"a95bf76c-3470-4f9d-927a-dbb269471182", CellID->283334858], Cell[23139, 682, 192, 4, 70, "Output",ExpressionUUID->"bbbee9a6-107f-4ec9-8c48-2abd8a12ea9c", CellID->600601604] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)