(* 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[ 56435, 1314] NotebookOptionsPosition[ 52693, 1217] NotebookOutlinePosition[ 54448, 1269] CellTagsIndexPosition[ 54405, 1266] WindowTitle->SecDegree | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Compute the secant of an angle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, 3.742911636991931*^9, 3.7429155081990128`*^9, 3.7429160666908565`*^9, 3.7429167316783485`*^9}, CellID->820185740], 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["SecDegree", "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["SecDegree", "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/SecDegree"}, "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], "SecDegree"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SecDegree"], BoxID -> "SecDegree", Selectable->False], "[", "60", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749996301799013*^9, 3.749996309538787*^9}}, CellLabel->"In[257]:=", CellID->767834966], Cell[BoxData["2"], "Output", TaggingRules->{}, CellChangeTimes->{3.7499963111749506`*^9, 3.7499974174915714`*^9}, CellLabel->"Out[257]=", CellID->54713622] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1442410901], Cell["Plot over a given range of angles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}}, CellID->491367832], 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["SecDegree", "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["SecDegree", "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/SecDegree"}, "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], "SecDegree"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SecDegree"], BoxID -> "SecDegree", Selectable->False], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "360"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.70999648737139*^9, {3.7425674263225822`*^9, 3.7425674332075825`*^9}, { 3.7425674665905824`*^9, 3.7425674767165823`*^9}, 3.742911294582693*^9, 3.742915474648658*^9, 3.7429159303652253`*^9, 3.7429166637435555`*^9}, CellLabel->"In[258]:=", CellID->367187012], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk41NsfwHFjpyH7NiVLuLq2hmzF+WDs25gZsiVkS+pmuShbUbIUUqqb bbIlkqVkqVRIkitFSUmWqIv4jsHYym9+53nOc57XP+e8n89fR9H/L0ogJwcH Rx97//8M79NSa+ofNVXh+P/CkOl82T5/0mNUqRi3iGN7rFj/6m5SL7o93/uK j21ywL+8eN33qCl587wo2/WxSR08pBGU/FBSbRfb6V0yz5KqxtHPXeo1Omy3 9IcXbRKnkI2Yg4wV2zOfeuJPPfqBcopuhBxmW25K2WvFYg41XdEsimfbfiHe KLJ3AXEnabUUst22ObMttoqB4u52tLSz/eGsdNzDE0x0UE2OPsv2PC9pZom4 jNJbj4TJ4DDEe/Gkhy5rBbkxPsjbsi0vWtgd/mgVYdK1TQlsOxFWKuYtNpGJ 1pXCRbaD6EpSmvy/UcpZzVkiJ4aSVJzPH+vdQkGXbBVi2P4oPbg3qgoHiNfd fBsXhgI8Q49eucgJRb9/a3uxjRVw3Go4wQVnu3N4a9nmV9IUYRB54NA5sZP+ 3Bi6GtBhLSLJC3/Yf+FqZ1vhtkeSNosXKrJtklV4MGSokTp//BE/XBaehVW2 Q/S/9s5Y4KFbaGiglw9DS7F/cwuqCkEmbaPHnh9DZx5tO6DOLwz1SWL1fWzf AMPq4N7tcPB+kcOYALuvvJsUUSUKhNuTA0Q8hqq6roydJYgB3Yjo+pZt7LtP /OWLYoBjbvZECmEofs/y/boT4pBH/+N6pzC7t1ZReYEoCbU/h7vzRDH0qX+u 7XepJKT6/OCmibH7F5s8hSWlIMbY4ICUOIbu6jnlarKkQHnGjV4hgaHOltO4 sEcy8CF004MljaHljoGvPyx2QCcrLNFjF4bEHPAicW07oBKzTDqugCGdQRII Ge0Eo5PnzFMVMRT6rZG+V0seXM8XSXUpY+gkZ6+OCV4BAiYHlJP+wNCU0j3G +RVFeGtb5fORyJ5PUI/AG10lwHjuuRrpYYizelpRJlwJXrUTNIr3sXt1d1Gq ZpUgvz8u6ZQhhjwtchr6xpRhxPK/jRBTDL05EhEp/VoFuHa8Mttnj6HR21mZ vvyqYMvVZDDlgKG52arSO5aq4M1Vt/emE4YEoyYH9j9TBTc9zgPiFAyRztH0 fBvVwFWymmnmgaHWMv3lymJ1oP551u1qCIbKptajjaM04Vhy+w/FTAzZuF4Y jazRhM7RLXXyJfb9neJWNdOaYDJqoZCSjSG9Mg1JBQ8tWLP814B1hT1Pf5/7 PKbaIMONC5EpxNDiwljMjxQd+MwZlGVWhyHx46QH9x2JwFQxvm71CUPTZYIh 5FAi5MJQv+gXDDWP9BN+phLBW7RFc+IrhrwdDqWoPiPC1wITv9wpdt+f0ZR/ iLowGT6usJfBfn/mNpYorQetf+ytOSbAQLTgbZp24/ugO8rPbMmEgVC0K/Hg r30wUkAf8DRjoD3niw0CZPVhSXFtvIvEQByluuaJLvpgE1KSWmvPQDWjXgcb nusD/tyruA4PBuJ1u3tWrsQArHbHXV+PZqBmkuOHGX8jMBHHTb9uZKBS6vXP rEQjePuL4DTXwkBZ/uNj3PlGkGhS+k2sjYECzvw9Kz9gBHrnfB5GdDGQ6ONC DqqFMRDUjW4lDDFQqO78nkfK+8Hg5nxg1zoDEZSykzK/HYA7UddkXa0W0eOM JfU1ThOwttM58sB+EXkzPQaDFE3gv2J3zh0ui6ioc7e6uY8JnMs0OMbtvYiU glvfrQ6ZwLpHmuj+iEW05+6UStBrU+iomqbY0hfRToJ8kIIHgOBzP+4DXEx0 4g15/8EQAFhTUH4swERtKSkiWTEAXlIF0lYiTOQz96N1Iw/AJMyyJWYnE9Gf 3N8+9A4gZfV7KNWQiXb72rZccjCDlaw48tpfTKRRHoXfQObwAkeuD/vORP4B KcuaTuZQqnYiu22eiW4o5476epsDq22qVW6FibhKauu6Ys3hcJuh/iL3EvpU NEPLrTcHcrl12C7lJZR+w7dQXdkC9mSdbj7jt4SmMx203HlJwPOdWvB+egnt sPeSzpQgwdt7C6KXF5YQRTCUo02JBIXdnlvuq0uoLe3CO2VEgpyV5cvCgsso 73x79EIMCcb6dw6IaS0jUpLh09T/SLBlqOacG7uMbkXsJjf2WoKvd/FxvMwK ahh9likzYgnuvPZh/sorqN3u0Mu4WUsYnEiO79FaQd+UrpmaC1pB7ZiT91vL FaQ6wKf5xtoKZhtpa0+iVtBd3VmB/9qt4JvEJkb8sIKal+o7drRYg+uLDp+y ShZ65eu0ldRtDRkbrNgLD1noU++M8eSQNcSNt70628lCG2XKDXdWrMFBMGPw 8RgLmbrm0fX1bOCRhqwURW4VdTbGJpBrbcCbVJaglruK+qORwblyW6i/leom dm0NHe8rzC9+YAupnXLurIo1JKi6udXaYQsu+DuTa01ryPJ9czdj3BZU4nSr 3T+toVZdoudheTtw8J2sOaewjsqw3QnG1+1AaYIfP9SwjsxsUsZdK+xgqcT5 wcMX62i0eNwyvNEO+Bzl85s/riNZ5yLhygE7aH92Mmr31jrKqpGmS4rYg2AM x4tyxw0UGyrYgaXZQ8SkjnYRYwNJtoeo4W/Yg3SZW/pr3k3UIPsyU+22PWha 4ucUdmyin90pNJ8X9pC3xn3M0noT+av9mnqNc4CZJ7FbZ4o3kcO3Bf7bpx1A RHAKr+L+Cyn6vHc6FOYIGarVuOyfv1HZs+0vo047QtTPo5/f8m4hVWU7dDHN ERK389+xVNhCGj/atB+VOYLqX0/126lbSD+iUkT2iyMMdHuoyz/ZQg6pce8G HZ2gnFHnhDlwQN+PRrs5LyfQnRPvM/biABd7rJ0r1Amsj145UXKUA9xEAu8T U53gMkEhsCeVA/xuOl3NaXMCkjLUp7ZzQPQ9RTcHbWdISrAqxAEOVkW8+46Y OEPMelalDRkHcZHXrOLs2Y689LzBFwdnDLcZVAU7Q7BAZR/jLA4y25ek+enO cOvD4etqXTggz07O+fGTIV/yt8EnV04I3Hp4b+cpMggj+heRa1wgwUe4+vwM GdRGSE5pNVzQLpx0KjCNDFXlmd9MXnCBgrw1qeY6GXLomxbBy1wwcmBo+MBD MlDrXYh97txAOc3i9maSgdIfUTCswQO4ZK+ZrXUyMDf7ZGpteKAu/embUk4X 8Cnzg8EAHhD658LNWVEXGGgffiNWxAPdTdI6cTou0P/gtuMFCV4wXTbwunnc BQKf/H6dL8YHPzfzwfRvF6jtcZeV0+ODAm4O1Yl4FxguqP7K4cYHa+LdmPpF F5jfNuC/PZ8PHhDdU1uqXKAkO74ueA8/7DkZW//xuwt0rdng5w4LwHDMyLX4 BRcYy3m7Mp8mAGlJEK/AcgGC8WB5YoMATGXxW4fwUsD16HiuM58g0GtujLB2 U0DuIalLsFkQpGeb+aT9KfBcW+Lfl4Z4MFwVZBkepYBdoWBORQgePHkOTXue pABLQZih/Q8eCnbhXhQlUiCbqP2KvIkHJZptsmo+BQ5Bl7reayEg+eWH25RQ oMiTlNvPIQyBJ376ht6hgNtF3wF9A2GoTLuM7jVR4GD01IOICmHQejK8uW+Q AsXVw4c1srcDuefPuYOfKYCzN1PMf70dwocSPp+aoEAb6116ArcIPGAotj7B KFD9b+QNioUIGKuGxlgKUWFc4166yksRsMpeZ9CsqJDDdCYfnRGFkAKH8WhH KuQTSyrui4pB+p2i/hs0KqzXefvUGYlBb4d57Yg/FQaGbGQGM8WAspoRFpBE hac9fo00I3GI4vnilZpKhb8KS7ifB7H/YWLa9pWXqMAcwE0I5onDR40B9bl8 Kjy7VDFFXhKHQ36E75HNVMiblugObpOAxBPHP+Q9pcLsSnLLGaYE0OOevmjq osJw7vv0enVJmMg7UrYxSIXrE39/TPhHEkJ6qv1SGFTQmikQ6r0gBRlDv8jl q1TwoSfcvNslBdXfnOHlFhUm1krblnmlYf43U36bMA1s1oXkmJnSEKV7YCR3 Dw08vD7pSNyRAW/9ha85e2kQGGr2RYspAySjksksQxqgVENrMSQL4oh/NsOK BgzkVxw9IgsNdoNryf40kLllQ3iiTYCbjhd+nTlKg8gWYqZCBgGSyca4pJM0 CBohVs1OE8DFjc4fl0iDDrJu1s7KHYD5hUlH3qSBI8rYj3OQh48Buwjht2hA WQ9NrX4sD7Msr6qDpTQI9gm7ojciD/8DOVTjwA== "]], LineBox[CompressedData[" 1:eJw12Xk4lN/bAHD7vmVfI/QtypKttHBbWgiRkt1gZsxYZqZNSopsRaFCJZWt qESplMg5RFRIoqSUlHZ6Zuxbfs/7x/vXXJ9rznVm5tzLuZ9rloSwt9ME+Pj4 LvHz8f3fq/pT1d1iAd6gsLmmv6lnMXa+keVhTnrkxXPbka7FmLnU1CjpoDfE MK0b4zW0sKmQKvV8vDeMcf5a2t3XxFODC3nlqd5wNyVYq91DEx8veCnWk+MN SpEm7J4zGrhMg/11aZU3qDsOHH6/Sh1zZrw01tZ4w568C0Lan9Twmnc2292w Nyx/C/ORGWq4NVcGR3d4Q2XIL9V+nir+vqjiYssvbxBxXSVs+koFVxA5Xe+5 3vAmsURp8KQKjn4ZJ05MeUOtebOllrMKFjnlekBV1Ad4dVlSs63K+D+x4e1M PR+gFiauknirhEe+dZ+IM/SBveOPDt+/pISrm+vw6VU+kP5z4UsmTQlvSjxp /MjWB94OfefcmlLEtH8rJCT9fSAsO3/dlRWKuGQsvKE82weS8rJeTT+Wx++u X1jik+8DqrExh6Kz5LFMUGuCcIkPxAx/3vk6VB4ffLbUPvCuD3SWhu9VlJbH bpcHGmW7fCDk7b1KOeYinOQpq1f3zgdmTvUl/bRbhGvEbBIZn30Avgm37tdY hPX3XnRoIHwg+s2Otzmdcnh6s1fTHllfSLjZfv2gvRw2nk/S11bxBbHoatij I4epVXeTXiz2hW13i3ym52Vxh+aijfrGvpB+Viptd6wsLuG+aO5x8YWc36ai n4/JYLeLdi1r0sj10Wb16fVSONGds2zotC8sCzfc2n5CCj8UvpJ6+oIv6K3N VH+7UwrrceY2/yrzhfM7tM3MCEk85fig9WKLLzxObv1x1kgSF4+sfP5PyA9i q45cbm8Rx73FfoY3pfzgtfU/55ZL4ljGJy1tl6IfFK/jD3TfJ45jnnx3vq3n B2q+PReF9cSx2/miF8H2fiChgq5UpYjhKTvV9qajfnAxVslyniqKx/6U2rmm +sHmO7fqgx1E8d9zq6t7MvxA/umt6yt1RfG3Ya8r3y75gd/6gzkjAyK4+0LO brE6P5AxWH5+NEQE3+HKK7tM+UHUzfGg0gPCuDy/KK17wQ9aJ2rm7vgJ47LN Zgv+ov5Qtd3huwQI44JLHj+ilP2hNXbF/SJxYZzhlPUo08IflKvpMk4FQji8 UDroNccfsg8ubIjtE8R0l0uv/WL8oXf684YvjYI4eHLllq9H/eGDaurB4zcF sbery6rxDH/wD+hQTI0TxJun0wRVbvlDCL7wZb2+INb3ECvz/ekPCtqBvr2x ArifT5D7OTgApl9tf85148cud+LZPxgB4HvX+VqNDT9+FPxveIQdAKv5v/4s NubHuY3Tv2bjAuDkpK7kRxl+7J5EfFXKC4AXV0Kb+zv5cKPox16nrgAQ/qiY +NCXD1+TqcF37ANBdOceTzXRBaSIrGwfOgWCUtvnsh/D/9Ax9r3H9e6BUCxT ufxH9z8U1Fn56EVgILxMSS/dX/wPqZ65dm/oUCBsjN0g8tj+H0pTyi5TuxsI q5ZYDOacmEcsTXZWgl4QWK0NmUm0nEPOxeZrdFYEwYJRX3mH9hz6z3DqU71Z ENwX1zlvLzGH+lcnmMzZBUHTKh1OyadZ5OJ5tiOaEgQ9wrS3jidnkUHaA6nI S0FwdOuyY0V/ZhBv9qjjTUkKVH7hFAW3TCOKbcj5Q7IU0B5smtOqnkYdxxz/ OClQoH2Xc8lUyTS6IS6e/UOdAi8X7J+IJk6jYJUzX5YaUiDv3tIXyTCNOs1K jhVsocCin3sXWvAUqmC24pxkChyu/t39pHsS9VQWqumfoICkQ6dNfcskmhs/ tKfqJAXmpvdVtT2aRFuPGem/PEuBsXI/jaWFk+hH3plUsSIKMBqHWxFrEi1p 83eLraeAnODB5MPSkyjbmPueMkmBrp6LEv95T6Dafc8t/s5Q4DzDOTjAdQIN Pio+FfePAmqd33JK7CfQqs1etnnCwXBHqG55iNEE6giqLXqtEAw2CwO8XMEJ JHo6mbnJNBi0zD8OvawaR4dG1SZXMINhr7dofJfGOOotyaWKRAWDAS42UZQf R1ZeCl0DnGDY3Zc8TBUbR7yHUrdyYoKBz0dzhfn4GAo/shCykBoM8yOL+4++ HEM+4kMdXdeCwTcwPrwpZQyt0b597eDXYDgfodXmvTCKcjtXKu74EQxWzfvG XSdH0VjC9QTjP8HQNyG/a9vfUXT7a5H/l9FguEpfGx39aRQtu5Ej7yoYAsrP +hV24FGkbBl7REc3BGKOGb1fnzSKxp03ebUEhYCFdtppV8VRZHVgtD0zNARM rc3OPJUeRTHFBRu9w0Jgz4Sgl5PoKJqZnbH4yQoB4ZUTRMQMD/0rr1SQPBIC jyNiFvQ+85CIrNort/wQkNaoWLvjNg+pvP699U1vCDjm4AeUnTzkvXD+yeUP IXBjvdrs9DYeyluxaV3YQAicKHFIvujMQ5pJBYZT30PgT7rKxklbHtKx3Cmu PhkCB/cOecut4KHl5+qfBiiFgt/PaicswEPWfqfthjxCod/9m8vbB1xkkWZZ H7kzFIbY1fp373KRcc27tWPeobAxWt4qp5KLdFV0LQQpoVBpq/cnopSLpF5X /beEFQrHlJiTIee4aMC5WzIgLRSCmy/Z7YnhopS1Km+6G0NhnZ9l57ANF8Uz a7f7Pw0FXzHh+OR1XBR7Pujll2eh0BzTf193DRdxJkpbeZ2hkLlXqyBqFRf5 VK2plfsUCm2f7H446nPRSkPfApfZUNC69MpsXIKLutQuhTeZU6Gg9yyfzQcC Cd77OntuNRU26mzLt39HIAu3laci1lHBcTNNwfUNgXKP1VbKO1DB6uq5+L2d BPL7/W6Msp0KKz/adws3E+hrnfLReQ4VsgIYrPWVBFLaFSj3ah8VzJuyL+aX E2gT92phSQwVTg+O+AvcIFDZUsumrfFUgFU96R9LCBSV4Smel0kFRrm94bs8 Ak0EZZ21qqCCa7aBeHcqgZbNvNWXqCK/35XG4vRkAnlna1f336fCJffKnC2J BHrUWtGb9JgKt9Iv7+46QqCjq9q1XrdRgZN57sbSaAKJCUqUsX9ToVVm2LGF RiDrSx7WDn+pwF/d87QrlEDhqy88Vx6lgh4zL/JLMIHaIpYPP56hwsNnMqqK gQQ63b3JTEqCBll6A5ervAikfi2xrmw5DXJCTooPbiGQkEPj9nUrabDyuIGh 72YC/f3E97PdhAaCHoUFbzYSqEntiNKoFQ0S6lxTP9gTiHUqhrVhIw16bJaK aG4gUOO+KJ2uYBrciSxZxTAjUPmi8moqjQbBu5Ne6a8i0LmKXy6TDBpslS66 MWRCoMgfYQc1OTSoX7AW2GdEIGX/kC76ERrMPM3ReLKcQEyHXUmzeTSIOmVQ aaBDoB0DOeoZl2ngk1dnYqBNIJu47ts6RTTwM7jWtXIxgeQfePRvvE6Dy0WJ h0CTQHWGLlZZD2hg8qnZ9IIqga61pLXp1tLg6HPHohoV8jyoz0Lu19PgXsXd lR+VCUS/vCmzr5kG5RkKx82VCCQnb/dDv5sGSs8H18nKE2im4uiRB29pkOb7 ZJf7IgINba1XdH5PA2vbhKQcOTJ+yevs2IM0GLH4K7VSlkDUacu8GoIGMq1G DSekCOSWu8/UZYwGlaGsrb8lyfiZ3336cZIGpV4tn9xJy0SZjgou0KDlaoPe cgkCPRwwdHGTpoPPKFdIVIxAKVMX/nTI0UFDL2t9uiiBPOXET21TpIPVyTZ3 BdIjtt/b3TXoIHz9q5SJCPn7d3mxXi2mQ7d3xd1GYQKlsZtltuvSQWY1z8KX 9NIrxds8Dehw+N5kU7YQgXjV8sTrlXSIOtnWtZo07kjI2mFKh0x++5qPggTy /xf0audqOthaMmTWkDZUfrn7zVo6dG7wOPxLgECTRjbyu2zo4LZ/a0MB6TMB mp7eG+lQ90r5pSppyv700d4tdIg02niuj59ARqdmzvq40OG6nq1lAemZEqZF 3zY66HfVlzFJt9b1dvt60iH77zGuFenc7s3733vRYf65m6wY6dA/1Ur+vnSY df7F389HIFOh/6o/BNBBZ3jJs/uk/2nkeAUE0yGg+Sn1DOk2c6HJfiodYuIq uveQvrB177lABrn/jruqu0jTQwdXf4qgQ/3ie6a2pC1iPXqD2HTIcMzWXEFa 4CyOGdhDhzeN6z6ok+68YaIWHE3Gx/AcW4b05cbLNZ8P0uHslXNvhElH9En7 hsTR4WSf2SJ+0mt4h2cG4+nQ8F+oNh9pEYk/eaFJdBAPXcYvSLp7id+6r6l0 uMCfWC1Ousj6+XtqOh2kxI7YKpLmeFgfHsqgwyHZpfm6pDcwyzTpZ+hw2fFE mwVpiQSVx99y6CDCwJ3OpHvPpwSEXaCDZ8fXMirpa7fH57/n0yGNorTzGOm9 rdTLjAI6MPL39xSThoHXNj+L6dCWbWT4jLTMlP0nZikdjHhMTx7pD7JVR3/d oMPiUT8PbfL8ry9bohNRQYe3kdb67qQddy1QIu/TIV/xqtNj0vJsFv/wQzpY fr2fP036U0p/YVQdHcx2P2i2JvPhUHXtIOsJHSoLm/KaSW/pMEz8+5Tcv+bA 5kVkfil/u6DHeU6HRwfCX1BI31GKoe5+RYcVuVm+kmR+HjH6LsTrpsNv3yw6 nbTLRq+re3rpIHqWsbWZ9I99Ft/2fqLDkCarMIPM98XdRFj0MB00haknt5H1 ortLUMuBS4eHiSnc16T/61Pqkh2nw2eZM4P+ZL2ZDKxdf32ODio7dkccFifP 50+S3AfJMHhkr2rCI+vVkX2uuUw2DCTitCQukvXtxLt+aL9CGIz4vzywRZpA 26c6vspohIHTThXZOzJkvgqp1dgZhkHY1GOnGrJ/MFJXsGSMw0DDNv5NCtlf IiVs9N6vCgPzj7v+eSsQaJ9c6Kl91qTFZvQkyX6UonkruHRLGFzupP+8Rvaz Mgs7CemwMIhniaY8Jvtj+QNP9C48DNq8VIN6lpDntZa+7xorDLbKL/7J1SX7 E6R/tI0OAyXj3crWSwn0wqWnak9yGGRZFQjxGZL9g8r06y0Og5qcZzW7Lch+ 8D1W7mppGCh8MNzdY0neZ+EZzbtvhkFnNmViw2oCLXDumkjeJX386B6ttWS/ jJsXtGkMgy+zpZHKQCDznNPlxQNhsD7axZfnQiBC/SLd5GsYtK+XepPiRqCK ghKd2u9hQBGwLdB2J/tJ+YPsrpEwmMuzXB7oSSCdJ/2H+efDQF3T3k7Wl8xH roFrkBoDkiY7jzkwyHqONhf9rcmAp4dnfmiFE+jE3PqGaB0GGPRCw1wEeZ+J uVtmLGOArN7vVy1sAs0ujtZ6bMkAxbmzNWcPkPnh0jisvp0Bzrm934SOk/XR 9aL02k4G3NJqKVyWRsbLuyfYzIcBaQHElNtJAn0M/dHjRGHAHy1m6s0sAvUc kqmPYTEAD9VE518g778y34w3aQy4tFDoSCHnhUtCo8ZnnjBA4Xrz9pQesh+O X5lntjDA0141L66XjOc3lza7Fwxo+JfSeug9eZ+2XmNyuxjw4Mr6kZTPZL6d 9C1xH2RAaZjVj2/D5Hyi0Kgmy8+EDft9VJ6LcpGh3mmhkzZM2Ldu2YIDcNFi RZvXofZMuLT+c4qAIxcpCP8uXLeJCUPLeq63bOaiuW+Otr9dmcBfe+Q9bRsX td+YOugcwIT7N0tLeYHk/GVG+St2mAk758a+eB7lomo7k77kGiZ4281uYDRz UcYtqbtbHzNhbLm6M+8ZF9HUfqUvamDCTb3avMQOLlLklmy41MoE6tFlhnVv uWhPgXrhvbdMkMlR+5X8i5wnF4QZX8aZ5DzYwEpcxEOldR/GwSwcBLfNnaHT eOjI8kcdIlbhIP3ld9ivcB7yyj5X2mYdDivO9d6M5pDzceR2H2+7cDi15tLN slgeomq01rHdw+HAI1y39ww57x66m3iZFQ5pL4xEbjfw0PnVaYvmboSD9kPN QqVlo8jgWuDf+IpweHB6tdRWo1H0SNG8XbgqHMz3bdc7YT6KPnDfH5etCQfb XQWJ2jCKtMuN+PRawiHI+O6Oap9RdE3n1YjTF3L9dFR7bsYouieu2nZOIwJy 1d0848jni40xf65rakdAw+o/yQMiY+jNN5xaqBsBJrr64m4yY2jqCdPhpkEE qBr3b9iiNYbWHal9VL+afD/ASbZ23Rhq5AVeH/KMgDNXjdaXHRpDL99fTTE/ GQHbPr15osI/jnLvax0UyooAdtDQl2KJcRSYmRPRczYCDDrL7tkojqMR+2T3 AxcjQD5U6mXBsnEkdYOqXnsjAm53zjapbRtHW2L0KuyfRUDGrhPJEwXjqFGx sMdDJBJinE8vMfCYQGkjqq26EpHwvbYgotF/Anm0Zj0alY6Eu6xwQxZjAg3E xl/JUYoEw6HJ7PmjE2hhMIj5Tj8SOp3NNfhuT6D1dxbPUxwiodhycPl9hUl0 3zVfnxMfCdOXLaz5fk8iK0NJTb6kSCi3uZNnPzWJqkUOKWSlkp+/PbP8gvAU eoh2CdzOiATVwt6UFJ0pVLdKYeBvfiQU7ft0L2jXFGpSSrvIromEE0pbj1g9 m0Kv+w/Is3mR0OryVKm5fhrtePRNfGE8Evhz6vknO6ZRd+5O/szpSNA4Yt3s 8GkavdlmTlTwRUHRsUfImG8G9TWMtI/IRMH7/aVLPRxm0OBV2gnWiihgyjet XeiYQdwoTz4WNQp+nd+X/n1+Fnk18/j/hEWBX0J/ctaiOfRI84xgeEQUnNob 9t1v6Rw69qJThL4nCqhCNw39XOeQvIGbdGB8FEi93jQtdGUOmX3dou6WHwUf GX0Fnk7zKHfdD422K1GQUH5RyyVoHs2cSdVyLo6CJTt2347cP48a7Z7qbLoR BfNd7MplRfNo+xWHZTYPo8AiBCdkzc+jvb42FsbdUbAMD9ScqvuHeu/0W5a/ jQLBq+e3rO35h9aLx602fB8Fe9KUxpVG/iGhh7Vr/xuMAkPdv4X+OgsoW8na bjERBXV/PqZZpi6ge53mbjJSLLghqDe2yYQPj28yYIw4sOCtopmTiCY/zhKP PPJwMwvum05LrTbix4ZtFdnHtrJAqyxxV6YNP6Z4WDQoe7LA95l8+sNgftzm Z6tuG8KCC7FmFnPX+XERZ2dbZjwL3BRbvz+1F8AbzM8P+iSxQJzZ5F7lJYB7 x/um9I6zQL9M92RHuACWjqUsfZjJglO0VpP8swI4JjniyMBlFvl8Jfb+yncB 7JaXYLrqMQscoilfuRcE8U//pk2zmAWaYxsm7e8I4iRt0YDmJhbQTD/tfNUq iGtKTp7waWNBKNeu5PqUINavPDeY8J4FhzfE7Aj1E8KzT25ld02zoEitsnTQ SBjnphA38udZYKn19VCCkzA2dTJvoPOzgd9/Ux2LJozpHQ+HZ8TY8P1lW5n1 ZWHc1ftkk54qG3SUJvOrFURw2fC7qb1WbOC90Og4IyuK56oUFOet2bDkdtB/ Kcai2D3G1SRlAxv4zqc87HIVxVMCDbTzjuR+dbVxcadEsZNqWVfddjZ8+qOk unGRGP5lH10uzGbDnh2u6qorxbGN2O2WjD1sqJTH76ge4vhM+89BlWg2sGVA ZNkBcbzWO0DNMI4NQfv6bRWbxHF6lGOKWzobghO6I16FSuCV5+Up50rZcGNK 0k/gsSSOD3CJ1bnJBn1nk9anvyRxt25K7vUKNjQ8+KJhqCaFD9+abqu9zwaZ rrKAvgNSuL1xwHrgCRukfX0KYIM01j2uvpPZQq5/g0X9ONI42nUHh/ecDeHt JqdNS6Tx4t6Wa0JdbNi1rVldS0YGs4YrFAwG2GBlHbx4728Z3Fj1w7jqCxtM n8r9/aAvi5VjdJ3XfWdDtJC/9dIgWVwvkBvvOsKG9B9n42hvZLGsatzw7jk2 lA17PNZiyGHvwquhAVIcUC/YIbIxdhG+bJ09u1mGA7kXaRac4kX4y6tjZ83k OJCwdkmbb9sizBKgPBFV5IDXZ+W2RB15nBSqrlelwYHQFzaDLV3y+PmsWG2+ FgfQciAy+RWwbPbk9lRtDrhT8n23rFLAeU3dx/z1OLBx6HBW6VkFXLk0c1Bk BQf+bbQfn6cq4rHHcYe4Kzkg396SujRfEa/1ipT/YMyBi8qVRfHdirgpxcn+ jhkHTt5Wsp3ZooT7vgsW+a3lwM9KOR1ze2WsE8+z3rSeAxtSBZ1XJiljmurn V6Y2HMgIznnwoEUZE1vq+UXsOTC0oPQbeapgkRsxwbedOKCTu4Xik6CKXezD pvO2cmCNqJtWyStVfLpv5+lkVw5IHy/XltRXw5qS5g2+Hhyou98ilfxSDa+K HNYR9uFAptDP3S8dNHC00IeHf305EFI7cTC/VAPX5T937/PnwDONHYNeMpp4 U3tpfCWFA/2bTxlrDGlif+OQAR8GB/ZnHsiVqVuM7YtOD9eR/v//b/4HJ8yv 6g== "]], LineBox[CompressedData[" 1:eJwV0gk0VdsfB/BryjzPkVch4RUZcmXYv4rMhVI0iEuaTOfcew6ZXhSVUoZK gyIaVOYxoudpIFSm948MiVBSzr1XhMr/vLPWWXt91u/s7/791j4rWGGeBwQZ DEYb/f63VhpWZ8EuDA76BmeY9WtBkp7XYPMeDGzWjPmWVy2Da3Fvf53Zh4H9 2aE6KbdlUPivzzKX/Rg8ugGzHmOa0H3Cd+8rFgb9ZU/y9FZogvbQwXcdhzEY HLbXkKxcCp2TVsI1RzHQ4vBHbnkvhYQ52bU5IRjE+deOVf1WhyGFR/GhGAba LwsDZz3UIcteTF/yGAaxQjtTdyuogYtnvycvCgPHmSJt/yZVmPctiemNofen J5dYxamCd6R3+73jGEQd0TM14KqA0sP8CLvTGBx7nMeyn1CGp9UxtwyTMagy yVppW6AM+DP3VoVzGKQQDvpXwpShfeCH1ocLGISPRKzZNK8E5+ScXsRmYpCX W3PPQUsJhMnPStV3MSi2IUMtripAeUK97c18DK75hm18FqwArAtphxIfYDCU nFuyeqMCNORb1m0vwqBIqu+U36Q8xPSdCaAqMfDO1pujXOTB8NO+lLfV9Lwr Rwdv6MrDu+l11U9qMNh1I2R8dlEOmDLvJFLqMWhIPXfmVpUcTINBmf5zDMrS 2qN2GspBntvvPrkmDO7/CKycEZcDz92dIj+aMVBdU73csVMWSthRPi/aMPDi 7VBb5ykLwXdbGAHdGFivmbqs5SsDHyWPbssawSDh8duZsFtSQF2tXWCNYuBh 6396PlwKfupJ5OuPY5Bh6DS7dqMUKNrdZ1RPYHDuimX/qRFJ2BQzXtrBxaBe HKvJNpKE7MkAJVEGDkuc+OrvhsXhQVR5wysBHMa/v665/FgcqsSEQi4K4UC5 5Au2XxSH1zq5z1eI4jD64HZqsaM4/Nw7RFrL4PDCbSJrrFIMdr/a24tp4iCQ KNYfc1sUgvYUJDK1cBBzl94ld1IU8M8L6xb/wGHqwiRDMFAUzohcTz6njcNX hS9Fczqi8Mim1+qeAQ79p2W5cg+XgHKR181+Jg7tSsq3Cl6IQPv5rQEOXjhY dPJ3BpgKQ0TnlLrZLhwuuZl+9l4qDFoqae3LfXB4X/pBKF1AGIJvdNnM78XB eHyurqVdCMQKvNUKA3EIiLd7uQEXgo0vWa8UODhsETLxdmoQhE9SwicXCRzM UpJFRR8KQqr7nQ2TETg4+zpKz18ShMG34/eeR+NQ9y13eWywIESNBSdEnsDB 3p7nMqIhCGVCERaD6TgoKPqfv3pCAHwc1L61XMRB9vGi7G5MABhna25XX8Yh k9APt98vAFsVfsqnXcNB8ePPtGtWAjCxPH5ycy4OnXpBbkYzDNC2PXvrfikO +3S7HqbhDLgYmS1JtOMQf61c10JiERXMeTd5d9L3tXi9Q23qN3oepXDCuhsH /+Ntdibdv9FMTOK8UA8OrquqhCSyfyOf+KOf09/jkHHs4byVxW+klWzRVPIN hx1Gvzr0sV8o//qbhEkpNsyZ93ZdEv2JGjTP2LbLsKHv6t0zAbwF1Htj03y5 HBtk1iTwvAcWkEROJRatxIbnYoRzTfkCCrl93U9Ckw385jwfe9YCMik8aLva kA1r0kI9LF/Mo7oni3MBTnTeh6p2dG8OrfvHjKnnwgbvRD+fY5lz6O7Tw+SE KxuqUx8fajs1h9Kau3jh7myIcSnZ9OTQHArqvPcldhcbdu8aU201nEPyY9sG Mg+w4SXodu+t+oGCpHMaWuPZEDa3/w/1/lnUJ/vv7/Mn2NCRISCu+2YWuStI 2HgmsqHQc22tXeMsslLl1PScZsMzqcx3T/JnkdwKx7LRC2w4W9X+6yo5i2rN qLzFG2wocg/1bVOeRbJ74ZRpLRt0wzoTmP4zaLlS0xvNOjYIyttDhtcMMm5z U1vyhA05QeuDGc4zyNN6z/2ef9iw7MqWE/KmM+iiJtka+5INS+D4pMSSGbR0 4KFscw8bktatfWFT/B3p+Kpe2TvLhsg8/ulX0t+RmcrNIfs5NmjM1icxhb8j +9c6+kYLbBjoyTQum59GQbYmtQKLbNiqHqLdMT6N7mu59d9dwgHPRsX22sZp tPZ9wnKuMgfeTFT5rY6eRpZ+3/ITzTjAYWx81/6dj+5epdhb13MAmiQkj37j I6Uunq0qkwMJO5pvy47z0Tf72e58Kw787ZPzv4gePrptyBBo28QBx7SbGY2P +UhmVt5HwYMDgozOPrOTfPQxxVw8O4QDR5zYBms1+cijyaL7YBgHxv7Rj51X 5qMnjA3ZxhgHojDtC29k+egq29a8kcMBI4PBxgwhPtrq4+A/Gs2BjtDqP098 4aEaHZ8aw2QOfCv8gE3X8dD5xzGHH93lQK9HX2bPAR4KMcm0jMzngCXTz6HR j4dc75eKMx9wIG37+VXle3hIInPsfnUhB+otszwfePBQIu4+UVXBAdYO/Ziv NjwUo69ztLKRA+IbzZY3qPLQkczW4LJBDhRGpVuw2rnISWbMGh/iQKwGe2Jl GxetTmRImwxz4H1g7NDnJi4aw80LS0c58OCNbUzy31zkvzX7a8kkB8w1rjUo F3ORtwg7tHieA5H1PqrbLnCRA3tpeIEKAYGXol10dnBRY3aSc7oaAV+WH671 cuci6zaeTuRSAoICBEtSXLnIWLe1d7MWAfFTZcry9lyk/jZ6c58uAVv2xWkc WM9FXzYMqEiYE9CgFfuP9VIuCjroxJ1aT4BIoGVtlwoXDWVUtv7LJCBhtLE3 XJGLuidTjt+yJqCpRyGiXoqL6m/aTjDtCDCatEjPXqTQBcGc+oPbCZgq21yc MEYhCSOpK25eBHTGOVw6NkKhk3sicdNdBGS68baSQxSKrHDXW9xNwOKUtEH8 Owr5BwmkXWYRUHEuaaHvNYVMW1iBzzECBO0q5HIfUehtmq6kdioBdsKfvDxT KVSEpA99SiPA8KeLqvZ5Ov/r9LPCDAKSTmVG/DhLIROnZ3HMTAJqvMLES09R 6DwjgOd2k4BCjRBtn78otCUspzeygIC6fUc7EsIotGzZ6fW2RfR8Wg8tskIo NN0SliFUQgBlLK9Qe5RCuauQ2/lyAq4bnFYXOkShXwMDDXm1BKg8lTVu8aNQ hatG/utmAkzOlkUYbKfQ2XlBkYstBLCChMWSPSjEyp/w92kjYOXU+k9ft1FI TrhW4+MbAuB/QqmNrhQKfux9Ye5/9HkVfLvsLRTSNrhM6ozS/QaaXtKxotD8 29iuz2METI/+YDZbUqg98YBx8Sc6r2i/TDiTQnEfzCYsJwlojnN2aDOn0Lsr Xfu28Qnw6vB7WmVMoXRRefsoARKUxpcmeupRqI43sIcjREJUhe6C6ioKjQ88 wENFSGgftTg3rEMh6wq7HJY4CUa/eLNJKyk05he54CxPwsfNyk+ltOj+Xe0V 7BVJ2GSGD85rUsjKQkEfKZPwVKlwyTcNCqVKF+w0VafrVzZFjKjT9dr3pRor 6PpB70IJFQoF3SloVtYmwbLnrdAKZfr71GPvZXVJOH5Efo+1En1ekKK0sD4J +3SYSxIU6Lqiw6FJYxJ8K0oMnGQpVPtb8a8xExJMTq5inZKh0OjnoUtDZiQE P/sztUWaQhsaop52M0kw6D7cul+KQh+Di7TqgYRCv46c5+IUkvGONq/eRM9/ /O9QQ9qWmx1dS+1I4IwIG14Wo/8X9eFjdxxJsE2QOBolSqFHwsWp2c4knHRX +8pfQqGRqeh7V11JSD6uthunzXyh/G+KOwlZJYPcWBH6vkuHv5zyJOE+b62G JO2UrGLBhB0kiCkn/XlDmELDuJMx6U0C60yJcLsQhaR9VRzCd5Nwk3BuCafN dBrZd2QvCap4JKFCO+WP2LO+fiQ4scOjwgXpfiScc71ZJASusOnSoT38XaXG M5CE12vzZAcF6LwPI29cg0iovLPeKIs2s61kbMshElaLZ6zbT5tVHfsLjpBw efseFT3aKbnOSlbBJMR/txzgM+j8FFVD81ASTLuHEp/THo78uNEonIQ7juJy WbSlAku99XESMC1OdARti21xYdocEibTPzftos3a4JK0jCRhxw7L79a0z+mq 3VCNJEEzfoOQHu0qudFy+SgSdt5r5SrT/rBQ2iIZQ4LZs84G8f/yx+M+iMSR 8GCzTbgg7fWdLj8W/yJBl/HfQ6H/Ax2P320= "]]}, Annotation[#, "Charting`Private`Tag$31309#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->{{0, 360}, {-7.708758797105264, 7.7150443110364}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7425674984935827`*^9, 3.742912370679292*^9, 3.74291574919711*^9, 3.742916134853672*^9, 3.742916504428626*^9, 3.7429168866368427`*^9, 3.7499963160964427`*^9, 3.7499974175835805`*^9}, CellLabel->"Out[258]=", CellID->358230615] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Evaluate numerically:", "Text", TaggingRules->{}, CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}, {3.7425676017175827`*^9, 3.7425676115715823`*^9}}, CellID->389520083], 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["SecDegree", "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["SecDegree", "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/SecDegree"}, "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], "SecDegree"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SecDegree"], BoxID -> "SecDegree", Selectable->False], "[", "43.1", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.70999648737139*^9, {3.7425675450285826`*^9, 3.7425675450305824`*^9}, { 3.7425676155775824`*^9, 3.7425676268715825`*^9}, 3.742911295941829*^9, 3.742915475307724*^9, 3.7429159312163105`*^9, 3.742916664767658*^9}, CellLabel->"In[259]:=", CellID->756181074], Cell[BoxData["1.3695585652932902`"], "Output", TaggingRules->{}, CellChangeTimes->{3.7425676284245825`*^9, 3.7429123831415386`*^9, 3.742915737251916*^9, 3.7429161436915555`*^9, 3.742916904451624*^9, 3.7499963314769807`*^9, 3.749997417596582*^9}, CellLabel->"Out[259]=", CellID->438398929] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1804605771], Cell["Evaluate to high precision:", "Text", TaggingRules->{}, CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}, {3.7425676017175827`*^9, 3.7425676115715823`*^9}, {3.742567725781489*^9, 3.7425677335892696`*^9}, { 3.7499963323320665`*^9, 3.7499963332321568`*^9}}, CellID->826884589], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", 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["SecDegree", "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["SecDegree", "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/SecDegree"}, "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], "SecDegree"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SecDegree"], BoxID -> "SecDegree", Selectable->False], "[", "26", "]"}], ",", " ", "50"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.70999648737139*^9, {3.7425675450285826`*^9, 3.7425675450305824`*^9}, { 3.7425676155775824`*^9, 3.742567691536065*^9}, {3.742567749251836*^9, 3.742567763337244*^9}, 3.742911296913926*^9, 3.742915475918785*^9, 3.7429159320843973`*^9, 3.7429166658717685`*^9}, CellLabel->"In[260]:=", CellID->400010907], Cell[BoxData["1.\ 11260194047518893255362195456639709190747102488273205758757880502838968832027`\ 50."], "Output", TaggingRules->{}, CellChangeTimes->{3.742567764525363*^9, 3.7429123854577703`*^9, 3.7429157293371243`*^9, 3.7429161437405605`*^9, 3.7429169045026293`*^9, 3.7499963346032934`*^9, 3.7499974176105833`*^9}, CellLabel->"Out[260]=", CellID->480195327] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SecDegree | 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[622, 23, 168, 7, 70, "Subsection",ExpressionUUID->"60a78f00-f0a2-48c9-b25f-1ed19a470aaa", CellID->462042388], Cell[793, 32, 256, 5, 70, "Text",ExpressionUUID->"7c7b0823-0174-4fb0-9587-7d15fb936222", CellID->820185740], Cell[CellGroupData[{ Cell[1074, 41, 7112, 179, 70, "Input",ExpressionUUID->"7d6a21fd-da36-4e23-8bac-a7a692075777", CellID->767834966], Cell[8189, 222, 159, 4, 70, "Output",ExpressionUUID->"0c0efcbc-7bcf-4562-951d-7ebf0e8c7e00", CellID->54713622] }, Open ]], Cell[CellGroupData[{ Cell[8385, 231, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"1ee1a2e1-96f5-4101-8996-3e98876a07ba", CellID->1442410901], Cell[8533, 237, 208, 4, 70, "Text",ExpressionUUID->"1a2ee47e-da3b-4116-a817-eeb147648568", CellID->491367832], Cell[CellGroupData[{ Cell[8766, 245, 7795, 190, 70, "Input",ExpressionUUID->"b1a7224a-6faa-4ca8-851e-75afff8f6993", CellID->367187012], Cell[16564, 437, 19278, 340, 70, "Output",ExpressionUUID->"b6b2a1db-9a44-4a15-91b9-a82820477f75", CellID->358230615] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35903, 784, 159, 7, 70, "Subsection",ExpressionUUID->"6b39b633-151d-4d63-a114-694fc35955ca", CellID->964056545], Cell[36065, 793, 248, 5, 70, "Text",ExpressionUUID->"a8c9fd3a-0c16-4ddc-8a04-400f0a4d0948", CellID->389520083], Cell[CellGroupData[{ Cell[36338, 802, 7290, 182, 70, "Input",ExpressionUUID->"72d88628-e697-4c35-88dd-8a1ef21a1416", CellID->756181074], Cell[43631, 986, 298, 6, 70, "Output",ExpressionUUID->"53585e00-af60-40b4-abe9-5d8f747f24a9", CellID->438398929] }, Open ]], Cell[CellGroupData[{ Cell[43966, 997, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"c3594782-0d02-4192-b3e8-f6277732dcf1", CellID->1804605771], Cell[44114, 1003, 355, 6, 70, "Text",ExpressionUUID->"0522f4ae-eb0f-41cd-97ac-a6c3fcc40711", CellID->826884589], Cell[CellGroupData[{ Cell[44494, 1013, 7786, 189, 70, "Input",ExpressionUUID->"4bfc1b5b-7287-4300-bf7f-9f2cbf73ac36", CellID->400010907], Cell[52283, 1204, 370, 8, 70, "Output",ExpressionUUID->"005f3a51-9c6c-4493-be0f-e6dab566ceec", CellID->480195327] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)