(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 78930, 2022] NotebookOptionsPosition[ 73847, 1895] NotebookOutlinePosition[ 75607, 1947] CellTagsIndexPosition[ 75564, 1944] WindowTitle->ReferenceAngle | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Compute a reference angle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.768318846862805*^9, 3.7683188575728045`*^9}, { 3.768321185696805*^9, 3.7683211878798046`*^9}, {3.768569090935381*^9, 3.7685691121084986`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", RowBox[{"2", RowBox[{"Pi", "/", "3"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768318810866805*^9, 3.768318835347805*^9}, { 3.7683211147408047`*^9, 3.768321119168805*^9}, {3.768569070754363*^9, 3.768569074712759*^9}, 3.768571414526717*^9}, CellLabel->"In[15]:=", CellID->443871870], Cell[BoxData[ FractionBox["\[Pi]", "3"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.768318827179805*^9, 3.768318835803805*^9}, { 3.7683211196938047`*^9, 3.768321144873805*^9}, 3.7685690753128195`*^9, { 3.7685714090571704`*^9, 3.7685714151327777`*^9}, 3.768571543049568*^9}, CellLabel->"Out[15]=", CellID->169452150] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", TaggingRules->{}, CellID->947850445], Cell["\<\ Compute the reference angle for angles lying in each of the four quadrants:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.768318846862805*^9, 3.7683188575728045`*^9}, { 3.768321185696805*^9, 3.7683211878798046`*^9}, {3.768569090935381*^9, 3.7685691121084986`*^9}, {3.768569251391425*^9, 3.7685692931966057`*^9}}, CellID->1141793], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"angleList", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "3"}], "+", RowBox[{"n", " ", RowBox[{"Pi", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "3"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7685692669869847`*^9, 3.768569272474533*^9}}, CellLabel->"In[30]:=", CellID->525484489], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "3"], ",", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"], ",", FractionBox[ RowBox[{"4", " ", "\[Pi]"}], "3"], ",", FractionBox[ RowBox[{"11", " ", "\[Pi]"}], "6"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7685692728715734`*^9, 3.7685715524565086`*^9, 3.768572490686322*^9}, CellLabel->"Out[30]=", CellID->508132144] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "/@", "angleList"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768318810866805*^9, 3.768318835347805*^9}, { 3.7683211147408047`*^9, 3.768321119168805*^9}, {3.768569070754363*^9, 3.768569074712759*^9}, {3.76856912282257*^9, 3.768569162399527*^9}, { 3.7685692756048465`*^9, 3.768569276883974*^9}}, CellLabel->"In[31]:=", CellID->361819671], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "3"], ",", FractionBox["\[Pi]", "6"], ",", FractionBox["\[Pi]", "3"], ",", FractionBox["\[Pi]", "6"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7685691538816752`*^9, 3.768569162690556*^9}, 3.7685692772020063`*^9, 3.7685715584521084`*^9, 3.76857249305956*^9}, CellLabel->"Out[31]=", CellID->610008354] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", TaggingRules->{}, CellID->669932371], Cell[TextData[{ "Plot the reference angle function for all angles between ", Cell[BoxData["0"], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{"2", StyleBox["\[Pi]", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.768318846862805*^9, 3.7683188575728045`*^9}, { 3.768321185696805*^9, 3.7683211878798046`*^9}, {3.768569090935381*^9, 3.7685691121084986`*^9}, {3.768569251391425*^9, 3.7685692931966057`*^9}, { 3.7685725105673103`*^9, 3.768572538507104*^9}, {3.774178698521062*^9, 3.774178698521062*^9}}, CellID->445312413], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", "theta", "]"}], ",", RowBox[{"{", RowBox[{"theta", ",", " ", "0", ",", " ", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"Pi", "/", "2"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7685715953708*^9, 3.768571645293792*^9}}, CellLabel->"In[19]:=", CellID->851012615], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxFl3s4VFsbwCejZkgx2/1ISUgoJaUi78pXUiS3ipIYlKZyKYSUS5LkiEmS 3MolqRiRkYpRuaRyhCNRcYQjX6E0Zo9LvnW+02P+2M9v/553rXe9az3P3u/e i5k+dp5iFAqlGV//kFol2fhpTYQpvv0/NT9XGi+8fAAoA/9ynKPv8Y7tA5Rf 7JPzIsvYYUCR/5cd5lFPc9mXgLL1X/55gL00nZ0JvF+0O6rckcIuAtdfTPzu XJLMroKEXzSu2S5pdqIJTH7RN8TarcS3fYbHyj3jxZZ0w9FfbB3YJnGL2TvD WP0xSpnTwAz9dOuv8HK/zHDc/UjhB++RGTKf7LZJOPh9hu7fWnm8mB8zjFvJ 9cmLHpthg8Hb/oB4EelrBPu3JIsYtd7IqjdXxFNmXG31GhFZDty/0qmCGW4N 4tpfCRcxKuRtg0eMiE9DBZsME0Q0jTBa2ZIp4tpYrhSjSkSNNG5N3JSIYjyu UVQIOcOCeUTeVKSIdvuOyp28KGL2mNq3w2kibl4eW7CzUsQvIb1KL2pFTKo3 PW/2h4h97qPua7pFjE51VlURE85wxUDZxSRJEdvWMMbnyYp45uwRr/MqIi59 U9NG0RCCxIWnb/iLhNC0UG1LiJ4QXI293EMVhRB0NKRk1FAI5V/n8cWkhVBP 00/o3yIELzsnJZmfJPjuuvDzgLUQeOLTt5P5JChlfzr6brcQlLg5xqpfSThs mrLt1SEh1KmMuOi8J0EyYBb1/gUhaPVF526uIOH+031+umxcz1U9o5fFJOyV KevKScX1bmuut71Nwp07rMdX7wjhXKHqF5cUEqx6WgJOvxZC78lSg+BAEuJ3 5g1YMMbhpmRP1T0DEhg6lo1dKeOwaOXGDoU7AuinZTLqs8Zhu93n5BXZAqjo ++7AyR+HQP8r9ubXBeBxI7UzvHwcXpV/fRVwUQDlSoMDi9vHIWhTRlXrEQG4 0C5QPRQnoNluOoetJ4C7vbXrBq5MQFRAtc/8wjGwyDTLHmFPwkDFltlzivmg OPzKPIz7E5SPPHI7GTcKqXUVs6iHKWiygcgd8fsGJqqbptU8ZiFfkHI4LBgC 3W6Z3tP+Yqh09Wse/8Eg3MsnvB4cp6K7jFqO4pN+CP24v0U3Whz5brhGNfXp AT+TdZYZSbPRunMHLAZY72E8czPzvwlz0IjX5KWwmFZo8k11PXmThsKfX98A ZB3oJMhM+OfRUHfj+sue5XVwtij6yvECGrJ59/a/F4PqYO3Q8YZj92lIbUg2 vZ2shfQjloYeT2mIoxg37SesAdbBSZptD57PCn2eM/4MxJ1dinTU6ShcvSJN brwKXE61btPWoiNkNLbDLaQKuKnbezV16EjNymD63nglsN6tVV5sQEe8gAK3 rRNP4M1u6bOKZnTUXZ+qFTL5CDJsebvFmXi+zylO108urN+q/vPDDRx/ZPK8 gMoBw+yGmLpcOqIEMz9+lyqCFdPHZYtv4/VDLA0TiEJQ5z7TjirGflq1u0H1 Lsxd6mmvU43zna02Qob58GFOfn5gN14/XuJvHbcsaGfarHbtxfnU+oITXmdA cyX5ZNsA9iVczZftaVAbuK1lwQj2ZftOo+EUKOofnHo6jfMbZuvpLkiEArPL MXepEojiPch5aR0PORnGssk07P7x9E2esZCyO077sDT28DauLjsS2PcNS+xk sUvxF5rZnoa4+R82mihiV9rYqHcmAKJZ5+o1VbBbSE6s2H0EImqX20svwl5u WEJ33QOh6m0fSPV/8t01NSgGCDxzxqtHC3vQls82ae7g26E1+lIHO2dvzcYb fsBa+8fpByuw5xAK9v7B4ME+Sc80wG7lubo0OxxchhZdjlmL3by60/T3KLDP 883fZ4rdOFjPwTUOrMWUV28xw36dxRrWSAALl+onK8yxp6RUliqzwUSBaJll jZ394yBQk0EzumTq1n4JFB59l+vQlg4vtqzPR2kSCOmZTzkkFkJQ3ZkVYVn/ zM+LH8sqAu1tz0uf5GCPpMpYOXIg2mpn9YZ7Eoj31f3G10PFsNnes8OwEuer 0Xi+8nwJ8FwTpZZ14/EBeRLcGi5wT332ZWhIopHPDg1ui3mQW3xtfc8dSdRk 4bjLO6Me5JfosVxuz0UDRVCkZNwKzbPokcqPpVBT7kLvb03v4QH9RF7Ti3nI 3/uRxa7MHtCTl2Exa+Yjmyz9PWm/98Nw/Jjc6jZp5Hz+hVhX0yAsOX9e34cl g8qjdHXjXg5Bz97ODrO/ZZAjo++pnNM3sOhrET7wZqCRDXWmfwWOQtBxTy+F rwzE8ZknZPryIcZy6NCGYRxvWSn4HsSHqxonD7l8YyC9dQ78yAg+lLXFHMzj M1A+5fq3m2w+jG6467H2JwOlJWoP9pTywZs66rpbmkAxJf/pZAr54J4U7pS8 ikDOguAnzMgxOH5MwqliNYFS9qU/+h47BpHmbMePawjUXsV7GHl5DLLI7D1a GwhkE0Mru5kzBh+d63aVmRHIQvlKYU/tGDhqzrdrsyfQSmNOJnOuAKzLrm9X CCQQPaw/gpkkAK9R5rR8EIF8T1B3uaUJ4OxKnVL5EAK9P6Sm7ZqD35cF5ary ZwjEsdnbuL9UAOqZf47IRhPIUb3xN6dWAYydl77KSCZQfs2Dkp1yJMjUtFky UggkU9Ecbb2ABF2xDAojlUChhcNOOzRIcA3VY8lk4HqvLqNYGpLQ4Ltto3Qe gUivdCtzBxIynM5+kirD9Uud6zNJIqE8eXuKVDlen3Kz3Bj305YWxg6pCgIt 4Fde3JBDAt06q2xuJYFGPpCr1pWScNzsyQXJWnxeRUfPrG4lIS4sylSynsDP ywVbA9yfbj22HJVoINDRlDyNVb0kvF/b4SzRSCAU0d2w4gcJYyduMCSa8H4C ptKXT+J+U+xVS28mkBzrNz89cSHoDemforcSKNzFaLOulBDMdQX69DYCDdg5 KOrI4b7qVdlLa8f72+o3qL1ACKdyz12jdRDIf+H4YCPuv8k9Vta09/j8dT4o NuH+y1kkR6V9JFDWGt7mN7j/Njh3cud0E2jdpmy/ZpoQ+q7dPDqnh0CvrKIz WqZJ+E1uVdvsfnxe7lbkn8MkGNqSsbMHCJTgo6/59m8SdsZXwexBAmmcIuza u0iIolvfFh/C9bDb73Tg74uhSVYodQzvj+dxoKuIBCdHy2VCAYEm7T7doeeT 8LxEt21IiMf3uZGrski4xvqi3zGF4xIHEqMS8HdM+7FPnNmyyMbe6dkyPxKu l/hud5GXRT/6diz1x/3ZghWo9NBQFqG5RsP0BwK48Tai1PuELHq/SyLMoGIM xr02ugZPyKIgGZUmWuoPUJ1K3OcXIoe+VNX3LM34Dv1bLzbQxeVRfdInrYaT I/BM6xUsvCiP8g142QNlX4BFzxNfLKGAfDW/hTbXDgA3S2Pjs0QFRHefLOdF 9EKjsUmNHUMR2cRC0OZz3UCyrtu7xisiinqcJGf9O6i3ydw1T0EJUWp2DHZV NgFzvcmtW0lKiBf4MyugoBoOf33Nf5+shLr5dY0v3avB98aBzcQ1PD4gcXKx ajWESZz9KzRdCamd0HBsvMSDtHcvVOzycLwraaH1YCW0Be9JmOQqofAmvQlO WAVsrzgebNuJvcS5NLCgGGy9xeujP+D1ioell6gWg6N6ssLjLjyfE3nkj0sc OBT7sESrF493tN1iM1gIUXspQxNfcHz758UlYQVQOf47M+8n9uXKnUEFN6Cm cFFxJ0UZhS8D9ptLWfCKWTwtQ1XG/aCB7TCYAZ0NrWmnaNg3Mn24YalApqq8 tZHBrsbWPl2QCNPW9zSjCewGj5fvH4yHOVTwfySHXcNBkhcWC3JHmAwtZez0 qGfnCiJAZdGPA/tUsP8wQm/CQkC95Vxhgir29kPC5AI/0DmvOFWzCLuvvufD AjdYZXzbcmIx9l//Q/8DW3MdyA== "]]}, Annotation[#, "Charting`Private`Tag$4601#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 2 Pi}, {0., 1.570302790999053}}, {{0, 6.283185307179586}, {0., 1.570302790999053}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7685716132115836`*^9, 3.768571646183881*^9}, CellLabel->"Out[19]=", CellID->75744376] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell[TextData[{ Cell[BoxData[ StyleBox["ReferenceAngle", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " works directly on ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " expressions with units of ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.768318846862805*^9, 3.7683188575728045`*^9}, { 3.768319423821805*^9, 3.768319446319805*^9}, {3.768320717251805*^9, 3.768320743303805*^9}, {3.768320804613805*^9, 3.7683208208678045`*^9}, { 3.7683211781178045`*^9, 3.7683211799578047`*^9}, {3.7685691736286497`*^9, 3.7685691757878656`*^9}, {3.774178721452862*^9, 3.774178736992244*^9}, { 3.859470875228511*^9, 3.859470875882224*^9}}, CellID->365617330], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", RowBox[{"Quantity", "[", RowBox[{"2", ",", " ", "\"\\""}], "]"}], "]"}], "//", "N"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768320650389805*^9, 3.7683206861578045`*^9}, { 3.7683207490898046`*^9, 3.7683207613718047`*^9}, {3.768321161738805*^9, 3.768321162703805*^9}, {3.7685691801092978`*^9, 3.768569182853572*^9}, { 3.7685693141957054`*^9, 3.7685693180380893`*^9}}, CellLabel->"In[38]:=", CellID->59087503], Cell[BoxData[ TemplateBox[{"1.1415926535897931`", "\"rad\"", "radians", "\"Radians\""}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7683206741038046`*^9, 3.768320689335805*^9}, { 3.768320762448805*^9, 3.7683207729008045`*^9}, {3.768321153014805*^9, 3.7683211632008047`*^9}, 3.768569183295616*^9, {3.7685693094432297`*^9, 3.7685693186021457`*^9}, 3.7685725775660095`*^9}, CellLabel->"Out[38]=", CellID->12038952] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["ReferenceAngle", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will remain unevaluated for non-numeric input:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7683188922208047`*^9, 3.768318913010805*^9}, { 3.7683189713718047`*^9, 3.7683189773778048`*^9}, {3.768319384515805*^9, 3.7683193986578045`*^9}, {3.768321194337805*^9, 3.768321194337805*^9}, { 3.7685693405633416`*^9, 3.7685693405633416`*^9}}, CellID->352681816], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", "a", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768318869927805*^9, 3.7683188725118046`*^9}, 3.768321196587805*^9, 3.7685693443217173`*^9}, CellLabel->"In[51]:=", CellID->379419362], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", "a", "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.768318873876805*^9, 3.768321213967805*^9, 3.768569368635148*^9}, CellLabel->"Out[51]=", CellID->341080923] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", TaggingRules->{}, CellID->78513056], Cell[TextData[{ Cell[BoxData[ StyleBox["ReferenceAngle", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " throws away the sign of its input:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7683188922208047`*^9, 3.768318913010805*^9}, { 3.7683189713718047`*^9, 3.7683189773778048`*^9}, {3.768319384515805*^9, 3.7683193986578045`*^9}, {3.7683197378138046`*^9, 3.768319742515805*^9}, { 3.768319920796805*^9, 3.768319928264805*^9}, {3.768320002578805*^9, 3.768320036573805*^9}, {3.768321208083805*^9, 3.7683212373328047`*^9}, { 3.7685693488201675`*^9, 3.7685693488201675`*^9}, {3.768569516114895*^9, 3.7685695354208255`*^9}, 3.768572641984451*^9}, CellID->305631140], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"r", "=", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "Pi"}], ",", " ", RowBox[{"2", "Pi"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", RowBox[{"-", "r"}], "]"}], "===", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReferenceAngle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReferenceAngle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReferenceAngle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReferenceAngle"], BoxID -> "ReferenceAngle", Selectable->False], "[", "r", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.768318810866805*^9, 3.768318835347805*^9}, { 3.768319710050805*^9, 3.768319732234805*^9}, {3.7683199701838045`*^9, 3.7683199851878047`*^9}, 3.768321210493805*^9, 3.768569350756361*^9, { 3.7685694286571503`*^9, 3.768569441118396*^9}, {3.76856950736502*^9, 3.768569509522236*^9}, {3.768569540419325*^9, 3.7685695938786707`*^9}}, CellLabel->"In[57]:=", CellID->217414528], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.768318827179805*^9, 3.768318835803805*^9}, { 3.7683197107468047`*^9, 3.768319734053805*^9}, {3.7683199736248045`*^9, 3.7683199856158047`*^9}, 3.7683212412398047`*^9, 3.7685693636416492`*^9, { 3.768569431496434*^9, 3.7685694416324472`*^9}, {3.7685694992892127`*^9, 3.7685695099912825`*^9}, {3.768569563449628*^9, 3.768569594434726*^9}, { 3.7685726308663387`*^9, 3.768572648932145*^9}}, CellLabel->"Out[58]=", CellID->645229851] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ReferenceAngle | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 168, 7, 70, "Subsection",ExpressionUUID->"9f3407d4-64c6-4443-8a3b-3f10b5445917", CellID->462042388], Cell[798, 32, 250, 5, 70, "Text",ExpressionUUID->"a973d97a-1ccb-4592-ada2-b8e8e3f1ebf4", CellID->13078159], Cell[CellGroupData[{ Cell[1073, 41, 7326, 184, 70, "Input",ExpressionUUID->"0e1c0081-8a7f-4231-9f29-5b2e7253d454", CellID->443871870], Cell[8402, 227, 333, 7, 70, "Output",ExpressionUUID->"b163c77e-a805-4368-83b0-eda902d78738", CellID->169452150] }, Open ]], Cell[CellGroupData[{ Cell[8772, 239, 138, 4, 70, "ExampleDelimiter",ExpressionUUID->"f0bb53bb-034e-47ed-a4ce-9058469cc31f", CellID->947850445], Cell[8913, 245, 354, 7, 70, "Text",ExpressionUUID->"f032e9a8-6328-4f93-abef-d2e13b2d2327", CellID->1141793], Cell[CellGroupData[{ Cell[9292, 256, 431, 13, 70, "Input",ExpressionUUID->"7eefcaa3-37da-4a0a-b545-ffad21d56642", CellID->525484489], Cell[9726, 271, 429, 14, 70, "Output",ExpressionUUID->"b6747e20-7f89-4e90-97e4-f3b126267c6c", CellID->508132144] }, Open ]], Cell[CellGroupData[{ Cell[10192, 290, 7359, 183, 70, "Input",ExpressionUUID->"52afb52e-b3e6-4cf5-b35c-53f3fcbad9d3", CellID->361819671], Cell[17554, 475, 401, 11, 70, "Output",ExpressionUUID->"7fd907b6-258b-41c0-b9e8-3661eb79245c", CellID->610008354] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18004, 492, 138, 4, 70, "ExampleDelimiter",ExpressionUUID->"1cdda73b-0701-400b-81c4-ac8707b459a0", CellID->669932371], Cell[18145, 498, 645, 17, 70, "Text",ExpressionUUID->"32090de6-9661-4e1f-9451-e2dc2b073fbb", CellID->445312413], Cell[CellGroupData[{ Cell[18815, 519, 7778, 191, 70, "Input",ExpressionUUID->"a3a7367b-556c-48a8-8c95-9d156e7177fb", CellID->851012615], Cell[26596, 712, 5899, 119, 70, "Output",ExpressionUUID->"b48e8515-102e-4f21-a6ca-93006768aac2", CellID->75744376] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32556, 838, 159, 7, 70, "Subsection",ExpressionUUID->"931292aa-a148-438a-95d0-5e75e8d9c328", CellID->964056545], Cell[32718, 847, 1226, 32, 70, "Text",ExpressionUUID->"1ab67b31-b268-42ab-b403-11529314c9dc", CellID->365617330], Cell[CellGroupData[{ Cell[33969, 883, 7665, 189, 70, "Input",ExpressionUUID->"9ec885b1-30b0-4641-8857-b2cf28c88c15", CellID->59087503], Cell[41637, 1074, 448, 9, 70, "Output",ExpressionUUID->"4335bf9d-383a-4b13-8051-77dcb7e78da6", CellID->12038952] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[42134, 1089, 178, 7, 70, "Subsection",ExpressionUUID->"f2bb870e-d6a9-4be2-80ea-46596e3e7ee6", CellID->754506620], Cell[42315, 1098, 511, 11, 70, "Text",ExpressionUUID->"218906d6-a6c9-4e40-a326-7c47640a0d54", CellID->352681816], Cell[CellGroupData[{ Cell[42851, 1113, 7211, 181, 70, "Input",ExpressionUUID->"29bbbc17-b967-4bb4-b425-e97c99d97f4b", CellID->379419362], Cell[50065, 1296, 7181, 181, 70, "Output",ExpressionUUID->"8ad77d24-964a-46f1-8e09-c4b8b01c0a88", CellID->341080923] }, Open ]], Cell[CellGroupData[{ Cell[57283, 1482, 137, 4, 70, "ExampleDelimiter",ExpressionUUID->"b87ae589-5bd0-4ea4-8d55-b10b6768ef7e", CellID->78513056], Cell[57423, 1488, 726, 14, 70, "Text",ExpressionUUID->"c3507bf9-64fe-4476-b53f-b8cfb5bd5f2d", CellID->305631140], Cell[CellGroupData[{ Cell[58174, 1506, 15112, 373, 70, "Input",ExpressionUUID->"25a4fc87-6b02-44c0-948e-5d15b24b3036", CellID->217414528], Cell[73289, 1881, 518, 9, 70, "Output",ExpressionUUID->"3c1374c1-5c70-4709-b65e-af609cbb0355", CellID->645229851] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)